プログラミング学習メモ

プログラミング学習メモ

ホームピグアメブロ

芸能人ブログ人気ブログ

前ページ
次ページ

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
15Jul
- VBA　クリップボードからデータを取得する
  クリップボードからデータを取得するSub test()'クリップボードからデータを取得する Dim CB As Variant, i As Long CB = Application.ClipboardFormats If CB(1) = True Then MsgBox "クリップボードは空です。", 48 Exit Sub End If For i = 1 To UBound(CB) If CB(i) = xlClipboardFormatBitmap Then ActiveSheet.Cells(1, 1).Activate ActiveSheet.Paste　　　’　アクティブシートのA1に値を貼り付ける Exit For 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
08Jul
- VBA　クリップボードが空かどうかをチェック
  クリップボードが空かどうかをチェックSub test()'クリップボードが空かどうかをチェック Dim Cb As Variant Cb = Application.ClipboardFormats If Cb(1) = True Then Debug.Print "クリップボードは空です" Else Debug.Print "クリップボードは空ではない" End IfEnd 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
01Jul
- VBA　ダイアログボックスでファイルを削除する
  ダイアログボックスでファイルを削除するSub test()'ダイアログボックスでファイルを削除する Application.Dialogs(xlDialogFileDelete).ShowEnd 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

前ページ
次ページ