プログラミング学習メモ

プログラミング学習メモ

ホームピグアメブロ

芸能人ブログ人気ブログ

前ページ
次ページ

24Sep
- VBA　シート名に"削除"を含むシートを一括削除する
  シート名に"削除"を含むシートを一括削除するSub test() ' 　シート名に"削除"を含むシートを一括削除する Dim i As Long '注意メッセージを非表示する Application.DisplayAlerts = False For i = Sheets.Count To 1 Step -1 If InStr(Sheets(i).Name, "削除") > 0 Then Sheets(i).Delete End If Next iEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA 行列の挿入』行の挿入構文Rows(行番号).Insert 1行を挿入するSub test1()　　　’　3行目に1行を挿入する　　　Rows(3).Insert…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp『VBA シート移動・コピー』シートの移動構文Worksheets.Move(Before, After)Sub test1() ’Sheet2をSheet3の後ろ…ameblo.jp『VBA セル値によって色を付ける』セル値によって色を付けるSub test() ’　条件付き書式設定でセル値によって色を付ける　(110％以上水色塗りにする With R…ameblo.jp
16Sep
- VBA　全シートのフッターにページ番号を一括追加
  全シートのフッターにページ番号を一括追加Sub test() ' 全シートのフッターにページ番号を一括追加 Dim ws As Worksheet ' 全シートをループ For Each ws In ThisWorkbook.Worksheets With ws.PageSetup ' 中央フッターに「ページ番号 / 総ページ数」を設定 .CenterFooter = "&P / &N" ' 必要なら左や右に設定も可能 ' .LeftFooter = "&P / &N" ' .RightFooter = "&P / &N" End With Next ws MsgBox "全シートにページ番号を設定しました。", vbInformationEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA 行列の挿入』行の挿入構文Rows(行番号).Insert 1行を挿入するSub test1()　　　’　3行目に1行を挿入する　　　Rows(3).Insert…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp『VBA シート移動・コピー』シートの移動構文Worksheets.Move(Before, After)Sub test1() ’Sheet2をSheet3の後ろ…ameblo.jp『VBA セル値によって色を付ける』セル値によって色を付けるSub test() ’　条件付き書式設定でセル値によって色を付ける　(110％以上水色塗りにする With R…ameblo.jp
09Sep
- VBA　R1C1形式で累計取得
  R1C1形式で累計取得Sub test()' R1C1形式累計取得 Dim i As Long Dim j As Long i = 1 Do j = -(i - 1) Range("B" & i).FormulaR1C1 = "=SUM(R[" & j & "]C[-1]:RC[-1])" i = i + 1 Loop Until Cells(i, 1) = "" End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA 行列の挿入』行の挿入構文Rows(行番号).Insert 1行を挿入するSub test1()　　　’　3行目に1行を挿入する　　　Rows(3).Insert…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp『VBA シート移動・コピー』シートの移動構文Worksheets.Move(Before, After)Sub test1() ’Sheet2をSheet3の後ろ…ameblo.jp『VBA セル値によって色を付ける』セル値によって色を付けるSub test() ’　条件付き書式設定でセル値によって色を付ける　(110％以上水色塗りにする With R…ameblo.jp
02Sep
- VBA　A1形式で数式入力
  A1形式で数式入力Sub test()' A1形式で数式入力 Range("E3").Formula = "=B3+C3+D3" Range("F3") = Chr(39) & Range("E3").Formula End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA 行列の挿入』行の挿入構文Rows(行番号).Insert 1行を挿入するSub test1()　　　’　3行目に1行を挿入する　　　Rows(3).Insert…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp『VBA シート移動・コピー』シートの移動構文Worksheets.Move(Before, After)Sub test1() ’Sheet2をSheet3の後ろ…ameblo.jp『VBA セル値によって色を付ける』セル値によって色を付けるSub test() ’　条件付き書式設定でセル値によって色を付ける　(110％以上水色塗りにする With R…ameblo.jp
26Aug
- VBA　R1C1形式で数式入力
  R1C1形式で数式入力Sub test()' R1C1形式で数式入力 Range("E3").FormulaR1C1 = "=SUM(RC[-3]:RC[-1])" Range("F3") = Chr(39) & Range("E3").FormulaR1C1 End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA 行列の挿入』行の挿入構文Rows(行番号).Insert 1行を挿入するSub test1()　　　’　3行目に1行を挿入する　　　Rows(3).Insert…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp『VBA シート移動・コピー』シートの移動構文Worksheets.Move(Before, After)Sub test1() ’Sheet2をSheet3の後ろ…ameblo.jp『VBA セル値によって色を付ける』セル値によって色を付けるSub test() ’　条件付き書式設定でセル値によって色を付ける　(110％以上水色塗りにする With R…ameblo.jp
19Aug
- VBA　数式バーの高さを設定する
  数式バーの高さを設定するSub test()'　数式バーの高さを設定する Application.FormulaBarHeight = 3 End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA 行列の挿入』行の挿入構文Rows(行番号).Insert 1行を挿入するSub test1()　　　’　3行目に1行を挿入する　　　Rows(3).Insert…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp『VBA シート移動・コピー』シートの移動構文Worksheets.Move(Before, After)Sub test1() ’Sheet2をSheet3の後ろ…ameblo.jp『VBA セル値によって色を付ける』セル値によって色を付けるSub test() ’　条件付き書式設定でセル値によって色を付ける　(110％以上水色塗りにする With R…ameblo.jp
12Aug
- VBA　数式バーを非表示する
  数式バーを非表示するSub test()'　数式バーを非表示する Application.DisplayFormulaBar = False End Sub数式バーを再表示するSub test()'　数式バーを表示する Application.DisplayFormulaBar = True End Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA 行列の挿入』行の挿入構文Rows(行番号).Insert 1行を挿入するSub test1()　　　’　3行目に1行を挿入する　　　Rows(3).Insert…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp『VBA シート移動・コピー』シートの移動構文Worksheets.Move(Before, After)Sub test1() ’Sheet2をSheet3の後ろ…ameblo.jp『VBA セル値によって色を付ける』セル値によって色を付けるSub test() ’　条件付き書式設定でセル値によって色を付ける　(110％以上水色塗りにする With R…ameblo.jp
05Aug
- VBA　全てのウィンドウを最小化する
  全てのウィンドウを最小化するSub test()'全てのウィンドウを最小化する Dim myShell As Object Set myShell = CreateObject("Shell.Application") myShell.MinimizeAll End Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA 行列の挿入』行の挿入構文Rows(行番号).Insert 1行を挿入するSub test1()　　　’　3行目に1行を挿入する　　　Rows(3).Insert…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp『VBA シート移動・コピー』シートの移動構文Worksheets.Move(Before, After)Sub test1() ’Sheet2をSheet3の後ろ…ameblo.jp『VBA セル値によって色を付ける』セル値によって色を付けるSub test() ’　条件付き書式設定でセル値によって色を付ける　(110％以上水色塗りにする With R…ameblo.jp
29Jul
- VBA　前後のシートの差異を比較
  前後のシートの差異を比較Sub test()'前後のシートの差異を比較 Dim j As Long With ActiveSheet For j = 4 To 5 If .Cells(j, "F") <> .Next.Cells(j, "F") Then MsgBox j & "行目が一致しない:" & Chr(10) & _ "「" & .Cells(j, "F") & "」 VS 「" & .Next.Cells(j, "F") & "」" End If Next j End With End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA 行列の挿入』行の挿入構文Rows(行番号).Insert 1行を挿入するSub test1()　　　’　3行目に1行を挿入する　　　Rows(3).Insert…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp『VBA シート移動・コピー』シートの移動構文Worksheets.Move(Before, After)Sub test1() ’Sheet2をSheet3の後ろ…ameblo.jp『VBA セル値によって色を付ける』セル値によって色を付けるSub test() ’　条件付き書式設定でセル値によって色を付ける　(110％以上水色塗りにする With R…ameblo.jp
23Jul
- VBA　前後のシートを参照する
  前後のシートを参照するSub test()'前後のシートを参照する Sheets(2).Select MsgBox "前(左)のシート名：" & ActiveSheet.Previous.Name & Chr(10) & _ "後(右)のシート名：" & ActiveSheet.Next.Name End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA 行列の挿入』行の挿入構文Rows(行番号).Insert 1行を挿入するSub test1()　　　’　3行目に1行を挿入する　　　Rows(3).Insert…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp『VBA シート移動・コピー』シートの移動構文Worksheets.Move(Before, After)Sub test1() ’Sheet2をSheet3の後ろ…ameblo.jp『VBA セル値によって色を付ける』セル値によって色を付けるSub test() ’　条件付き書式設定でセル値によって色を付ける　(110％以上水色塗りにする With R…ameblo.jp

前ページ
次ページ