Excel VBA 画面表示倍率5％ずつ拡大/縮小

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

Excel VBA 空白セル/空白セル以外でフィルタリング

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

Excel VBA ウインドウ枠の固定、解除

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

Excel 書式を判定する

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

Excel 通番を入力する

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

STOPでループを一時停止させる

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

Excel 色の付いたセルを数える

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

Excel 最終行まで選択、コピー、切り取り

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

3つのセルを比較する

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

【Excel】Address & Replace

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

Excel 先頭の単語の1文字目だけ大文字にする

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

Excel 2つのセルを比較

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

ワンクリックで行列サイズ調整 マクロ

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

VLOOKUPの逆をやりたい

​ ​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

メンズシェーバ 人気商品6選！ ここから選ぼう！

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

寝袋・シュラフ 人気商品6選！ ここから選ぼう！

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

傘 アクセサリ ここから選ぼう！

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

メンズ 日傘/晴雨兼用 人気商品6選！ ここから選ぼう！

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

• #楽天
• #日傘
• #メンズ
• #長傘
• #ランキング

除湿器 人気商品6選！ ここから選ぼう！

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

• #楽天
• #除湿器
• #ランキング