画面表示倍率を5％単位で拡大/縮小 ​Sub 画面倍率5パーセント拡大()​​ Dim z As Long ​ z = ActiveWindow.Zoom ActiveWindow.Zoom = z + 5​End Sub​ ========== ​Sub 画面倍率5パーセント縮

AutoFilter が A列から設置してある場合​Sub AutoFilter固定列_空白セルで絞込み()​​​ Dim c As Long​ c = Selection.Column Range("A1").AutoFilter Field:=c, Criteria1:="="​End Sub​      空白セル以外で

​ウインドウ枠の固定​ ActiveWindow.FreezePanes = True ​​ウインドウ枠の解除​ ActiveWindow.FreezePanes = False ＝＝＝＝＝＝＝＝＝＝ ​マクロ​Sub ウインドウ枠の固定解除（） If ActiveWindow.

​書式を判定する​​Sub 書式いろいろ判定()​​ '取り消し線の判定​​​ If Selection.Font.Strikethrough = True Then​​ MsgBox "取り消し線が付いています" ​Else​ MsgBox "取り消し線は付いていません"​

​通番を入力する方法 1．手入力10未満の通番だったら無理に Excel の機能や関数やマクロを使うよりも、ひとつづつ入力したほうが早い。==========​2．黒ハンドルをドラッグセルの右下にマウスを合わせて黒ハン

​ ​​STOP を使ってループを指定したところで一時停止させる​ ​Sub StopでForLoopを一時停止()​​    Dim r As Long​​    For r = 1 To 10000​​​        If r = 53215 Then Stop ​​​​        If Cells(r, 1) = "" Th

​​​Subtotal関数 + フィルタ​​=SUBTOTAL(3,J5:J12) Subtotal関数を任意のセルに記述し、該当の列をフィルタリングする =====​​検索の機能を使う​​色のみを設定し、「すべて検索」をすると、左下のヒット数が表

​​最終行まで選択してコピーする​​※前提：コピーしたい列の先頭の行を選択しておくSub 列コピー() Dim r As Long '行番号を格納 Dim c As Long '列番号を格納 Dim LastR As Long '最終行を格納 r = S

​​​ ​​3つのセルが同じか判定する​​=IF(AND(EXACT(A2,B2)=TRUE,EXACT(A2,C2)=TRUE,EXACT(B2,C2)=TRUE),"3つ同じ","3つは同じでない") ＝＝＝＝＝ ​​どこのセルが同じか判定する​​=IF(AND(EXACT(A1,B1)=TRUE,

​ Address指定したセル番地を取得    MsgBox Selection.Address =====​ReplaceReplace(対象の文字列、検索する文字列、置換する文字列）    MsgBox Replace(Selection.Address, "$", "")     

​ 先頭単語の1文字目のみ大文字にする ※大文字小文字が存在する言語に適用できる 関数​=UPPER(LEFT(A1,1))&MID(A1,2,LEN(A1)-1) UPPER(LEFT(A1,1)) LEFT関数で左から1文字目を指定し、UPPER関数の対象と

イコールで比較セルに =A1=B1 と記述するだけ。 大文字小文字は判別できないので、同じものとみられる。 ​==========Exact関数Exact(text1,text2) =Excact(A1,B1) 完全一致かどうかを判断するので、大文字小

​全行高・列幅調整全部の行に対して、行の高さを変更するマクロ。********** ​Sub 全行高自動調整​ ​​       Cells.EntireRow.AutoFit End​​********** ********** ​Sub 全列幅自動調整​ ​​       Cells.E

​ ​Index関数 ​Index（配列, 行番号, [列番号]） =​​​Index(A1:F6,4,3)​​​ 結果は「い3」 ＝＝＝＝＝＝＝＝＝＝ ​​Match関数​ Match（検索値, 検索の範囲, [照合の種類]） =​Match(3,A1:A6, 0)​ 

3文字目と4文字目の間に改行コードを挿入するマクロ。 ********************************************** Sub 改行コードtest() Range("c2") = Left(Range("b2"), 3) & Chr(10) & Mid(Range("b2"), 4) Rang

​4/26更新 多くの男性のお仕事・・・ 少しでも楽にしたいですよね 楽天 週間ランキングから6つ集めてみました。 ​​アラブの国の人たちみたいにヒゲがある方が「普通」にならないかなぁ・・・ ならないよ

​4/26更新 キャンプ、車中泊、普段使いにもなる寝袋。 楽天 週間ランキングから6つ集めてみました。​​​​​​​​楽天 人気商品6選！​​順位123商品価格￥2,480￥14,800￥1,644評価4.274.574.32型封筒封筒封筒限界温

​​もう少しで梅雨の季節です。 こんなアクセサリも一緒に使うと雨の日のストレスも少し緩和されるかもしれません。 ー ー ー ー ー ー ー ー ー​​ ​​​​これはアンブレラハンガーです。​​​​

​ 5月になると日差しが強くなりますね。 日焼けが気になりませんか？ 外回りとかで、汗をかいてびっしょりになってしまいませんか？ そのあとには梅雨も控えていますよ。 晴雨兼用の傘でどちらにも対応しま

​じめじめとした梅雨がやってくる前に除湿器を準備しておきませんか？ 楽天週間ランキングから Top3と1万円以下の商品をそれぞれ3つずつ集めてみました。 ​​​​​​​​​楽天 人気商品Top3​​​順位123商品価格¥1