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

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

ホームピグアメブロ

芸能人ブログ人気ブログ

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
12Feb
- VBA　一部のセルを入力可能にしてシートを保護する
  一部のセルを入力可能にしてシートを保護するSub test() ' 　一部のセルを入力可能にしてシートを保護する On Error GoTo errHandler With ActiveSheet .Range("B3:B4").Locked = False .Protect Password:="Yokbali168" .EnableSelection = xlUnlockedCells End With Exit SuberrHandler: MsgBox Err.DescriptionEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA シートの保護』シートの保護Sub test()’ ワークシートの保護Worksheets(1).Protect Password:="yokbali168"En…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp
04Feb
- VBA シートの保護状況を確認してから保護する
  シートの保護状況を確認してから保護するSub test() ' 事前にワークシート保護を確認する If ActiveSheet.ProtectContents Then MsgBox "対象シートは保護されています。" Exit Sub End If 　’　B3:C14を編集可能にする Range("B3:C14").Locked = False ActiveSheet.Protect 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
28Jan
- VBA 数式を非表示にしてシートを保護
  数式を非表示にしてシートを保護Sub test() ' 数式を非表示にしてシートを保護 With Sheets(1) .Range("A2").CurrentRegion.SpecialCells(xlCellTypeFormulas).Select Selection.FormulaHidden = True .Protect End WithEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA シートの保護』シートの保護Sub test()’ ワークシートの保護Worksheets(1).Protect Password:="yokbali168"En…ameblo.jp『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp