プログラミング学習メモ -3ページ目

プログラミング学習メモ -3ページ目

ホームピグアメブロ

芸能人ブログ人気ブログ

30Apr
- VBA　日本語入力モードの設定
  日本語入力モードの設定Sub test()' 日本語入力モードの設定 With Range("B3").Validation .Delete .Add Type:=xlValidateInputOnly .IMEMode = xlIMEModeOff '日本語入力モードオフ (英語モード) End With With Range("B4").Validation .Delete .Add Type:=xlValidateInputOnly .IMEMode = xlIMEModeHiragana '日本語入力モードひらがな End WithEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『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
22Apr
- VBA　印刷総ページ数を調べる
  印刷総ページ数を調べるSub test()' 印刷総ページ数を調べる MsgBox Application. _ ExecuteExcel4Macro("GET.DOCUMENT(50)") & _ "ページが印刷されます。"End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『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
15Apr
- VBA　シートに2色カラースケールを設定
  2色カラースケールを設定Sub test() ' 2色カラースケールを設定 Dim myCS As ColorScale Dim myR As Range Set myR = Range("E4:E9") ' 対象セルの条件付き書式を初期化 myR.FormatConditions.Delete Set myCS = myR.FormatConditions.AddColorScale(2) With myCS.ColorScaleCriteria(1) .Type = xlConditionValueLowestValue .FormatColor.Color = RGB(255, 255, 255) End With With myCS.ColorScaleCriteria(2) .Type = xlConditionValueHighestValue .FormatColor.Color = RGB(255, 0, 255) End With Set myCS = NothingEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『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
08Apr
- VBA　シートを任意の順序で並べ替える
  シートを任意の順序で並べ替えるSub test() ' シート名を取得 Dim i As Long Dim WS As Worksheet Worksheets.Add(after:=Worksheets(Worksheets.Count)) _ .Name = "INDEX" ' 並べ替え用シートを追加 Set WS = Sheets("INDEX") With WS For i = 1 To Worksheets.Count ' すべてのシート名を出力 .Cells(i, "A").Value = Sheets(i).Name Next i End WithEnd SubSub test2() ' シートを任意の順序で並べ替える Dim i As Long Dim WS As Worksheet Set WS = Sheets("INDEX") With WS '　C列並べ替え後1番目シートを一番左へ移動 Sheets(.Cells(1, "C").Value).Move Before:=Worksheets(1) For i = 2 To Worksheets.Count ' 2番目のシートから並べ替える Sheets(.Cells(i, "C").Value).Move after:=Sheets(i - 1) Next i End WithEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp『VBA シート移動・コピー』シートの移動構文Worksheets.Move(Before, After)Sub test1() ’Sheet2をSheet3の後ろ…ameblo.jp
25Mar
- VBA　印刷されないシート背景の設定
  印刷されないシート背景の設定Sub test() ' 印刷されないシート背景の設定 Dim myPath As String myPath = ThisWorkbook.Path ActiveSheet.SetBackgroundPicture myPath & "\2025-Pic.png"End SubSub test２() ' シート背景の解除 ActiveSheet.SetBackgroundPicture ""End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA印刷設定シートの印刷』シートの印刷Sub test() ’　シート1を印刷する Worksheets("sheet1").PrintOutEnd Sub…ameblo.jp『VBA印刷設定　行列番号を含めて印刷する』行列番号を含めて印刷するSub test() ’ 行列番号を含めて印刷する With Worksheets(1) .Page…ameblo.jp『VBA印刷設定　印刷の余白設定』印刷の余白設定するSub test() ’ 印刷の余白設定する With Worksheets(1) ' 印刷の上余白を設定…ameblo.jp『VBA印刷設定ページのフッターを設定』ページのフッターを設定Sub test() ’ ページのフッターを設定' 左フッターを設定する　ファイル名WorkSheets(1).Pag…ameblo.jp『VBA　改ページの挿入と削除』改ページの挿入と削除Sub test() '垂直改ページの挿入 ActiveSheet.VPageBreaks.Add Before:=R…ameblo.jp『VBA印刷設定ページ中央に印刷位置を設定する』ページ中央に印刷位置を設定するSub test() ' 水平方向の中央に配置する .PageSetup.CenterH…ameblo.jp『VBA印刷設定用紙サイズ、印刷の向きを調整する』用紙サイズ、印刷の向きを調整するSub test() With Sheets(1) ' 印刷の向きを縦に設定する…ameblo.jp
18Mar
- VBA　数式エラーを印刷しない
  数式エラーを印刷しないSub test() ' 数式エラーを印刷しない With ActiveSheet .PageSetup.PrintErrors = xlPrintErrorsBlank .PrintPreview End WithEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA印刷設定シートの印刷』シートの印刷Sub test() ’　シート1を印刷する Worksheets("sheet1").PrintOutEnd Sub…ameblo.jp『VBA印刷設定　行列番号を含めて印刷する』行列番号を含めて印刷するSub test() ’ 行列番号を含めて印刷する With Worksheets(1) .Page…ameblo.jp『VBA印刷設定　印刷の余白設定』印刷の余白設定するSub test() ’ 印刷の余白設定する With Worksheets(1) ' 印刷の上余白を設定…ameblo.jp『VBA印刷設定ページのフッターを設定』ページのフッターを設定Sub test() ’ ページのフッターを設定' 左フッターを設定する　ファイル名WorkSheets(1).Pag…ameblo.jp『VBA　改ページの挿入と削除』改ページの挿入と削除Sub test() '垂直改ページの挿入 ActiveSheet.VPageBreaks.Add Before:=R…ameblo.jp『VBA印刷設定ページ中央に印刷位置を設定する』ページ中央に印刷位置を設定するSub test() ' 水平方向の中央に配置する .PageSetup.CenterH…ameblo.jp『VBA印刷設定用紙サイズ、印刷の向きを調整する』用紙サイズ、印刷の向きを調整するSub test() With Sheets(1) ' 印刷の向きを縦に設定する…ameblo.jp
11Mar
- VBA　コメントをシート末尾に印刷する
  コメントをシート末尾に印刷にするSub test() ' コメントを印刷する With ActiveSheet .PageSetup.PrintComments = xlPrintSheetEnd .PrintPreview End WithEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA印刷設定シートの印刷』シートの印刷Sub test() ’　シート1を印刷する Worksheets("sheet1").PrintOutEnd Sub…ameblo.jp『VBA印刷設定　行列番号を含めて印刷する』行列番号を含めて印刷するSub test() ’ 行列番号を含めて印刷する With Worksheets(1) .Page…ameblo.jp『VBA印刷設定　印刷の余白設定』印刷の余白設定するSub test() ’ 印刷の余白設定する With Worksheets(1) ' 印刷の上余白を設定…ameblo.jp『VBA印刷設定ページのフッターを設定』ページのフッターを設定Sub test() ’ ページのフッターを設定' 左フッターを設定する　ファイル名WorkSheets(1).Pag…ameblo.jp『VBA　改ページの挿入と削除』改ページの挿入と削除Sub test() '垂直改ページの挿入 ActiveSheet.VPageBreaks.Add Before:=R…ameblo.jp『VBA印刷設定ページ中央に印刷位置を設定する』ページ中央に印刷位置を設定するSub test() ' 水平方向の中央に配置する .PageSetup.CenterH…ameblo.jp『VBA印刷設定用紙サイズ、印刷の向きを調整する』用紙サイズ、印刷の向きを調整するSub test() With Sheets(1) ' 印刷の向きを縦に設定する…ameblo.jp
04Mar
- VBA　印刷設定白黒に印刷にする
  白黒に印刷にするSub test() '白黒に印刷にする With ActiveSheet .PageSetup.BlackAndWhite = True .PrintOut End WithEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA印刷設定シートの印刷』シートの印刷Sub test() ’　シート1を印刷する Worksheets("sheet1").PrintOutEnd Sub…ameblo.jp『VBA印刷設定　行列番号を含めて印刷する』行列番号を含めて印刷するSub test() ’ 行列番号を含めて印刷する With Worksheets(1) .Page…ameblo.jp『VBA印刷設定　印刷の余白設定』印刷の余白設定するSub test() ’ 印刷の余白設定する With Worksheets(1) ' 印刷の上余白を設定…ameblo.jp『VBA印刷設定ページのフッターを設定』ページのフッターを設定Sub test() ’ ページのフッターを設定' 左フッターを設定する　ファイル名WorkSheets(1).Pag…ameblo.jp『VBA　改ページの挿入と削除』改ページの挿入と削除Sub test() '垂直改ページの挿入 ActiveSheet.VPageBreaks.Add Before:=R…ameblo.jp『VBA印刷設定ページ中央に印刷位置を設定する』ページ中央に印刷位置を設定するSub test() ' 水平方向の中央に配置する .PageSetup.CenterH…ameblo.jp『VBA印刷設定用紙サイズ、印刷の向きを調整する』用紙サイズ、印刷の向きを調整するSub test() With Sheets(1) ' 印刷の向きを縦に設定する…ameblo.jp
26Feb
- VBA　改ページの挿入と削除
  改ページの挿入と削除Sub test() '垂直改ページの挿入 ActiveSheet.VPageBreaks.Add Before:=Range("F1")End SubSub test02() ' 水平改ページの挿入 ActiveSheet.HPageBreaks.Add Before:=Range("A23") End SubSub test03() '改ページの削除 ActiveSheet.ResetAllPageBreaksEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA シートの保護』シートの保護Sub test()’ ワークシートの保護Worksheets(1).Protect Password:="yokbali168"En…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp
18Feb
- VBA　書式設定以外マクロのみ編集可能なシートにする
  書式設定以外マクロのみ編集可能なシートにするSub test() ' 書式設定以外マクロのみ編集可能なシートにする Dim WS As Worksheet Set WS = Sheets(1) With WS .Protect UserInterfaceOnly:=True, _ Password:="yokbali168", _ AllowFormattingColumns:=True, _ AllowFormattingCells:=True, _ AllowFormattingRows:=True .Range("B3") = "00001" .Range("B4") = "福沢ユキチ" End WithEnd SubSub test02() 'シート保護を解除 Sheets(1).Unprotect Password:="yokbali168"End Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA シートの保護』シートの保護Sub test()’ ワークシートの保護Worksheets(1).Protect Password:="yokbali168"En…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp