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

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

ホームピグアメブロ

芸能人ブログ人気ブログ

24Jun
- VBA　コードでイミディエイトウィンドウを開く
  コードでイミディエイトウィンドウを開くSub test()' コードでイミディエイトウィンドウを開く Application.VBE.Windows("イミディエイト").Visible = True Debug.Print "只今の時刻は：" & TimeEnd 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
17Jun
- VBA　日付が変わるごとに空白行を挿入
  日付が変わるごとに空白行を挿入Sub test()' 日付が変わるごとに空白行を挿入 Dim i As Integer With Range("A2").CurrentRegion For i = .Rows.Count To 3 Step -1 If .Cells(i, 1) <> .Cells(i - 1, 1) Then .Rows(i).Insert End If Next End WithEnd 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
10Jun
- VBA　１ページ目ヘッダーだけに「社外秘」を入れる
  １ページ目ヘッダーのだけに「社外秘」を入れるSub test()'１ページ目ヘッダーだけに「社外秘」を入れる With ActiveSheet.PageSetup .PrintTitleRows = "$3:$3" 　　' ３行目をタイトル行にする .DifferentFirstPageHeaderFooter = True .FirstPage.LeftHeader.Text = "社外秘資料" End With ActiveSheet.PrintPreview 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
03Jun
- VBA　 TintAndShadeで色の濃淡を設定する
  TintAndShadeで色の濃淡を設定するSub test()'TintAndShadeで色の濃淡を設定する Range("A1").MergeArea.Interior.TintAndShade = 0.1 With Range("A3").CurrentRegion .Interior.Color = RGB(255, 240, 220) .Columns(1).Interior.TintAndShade = -0.4 .Rows(1).Interior.TintAndShade = -0.5 End WithEnd Sub実行結果TintAndShadeは、色の「明るさ」または「暗さ」を調節します。これは色自体を変えるのではなく、既存の色に「色合い」を加えることで行われます。値の範囲: このプロパティの値は -1（最も暗い）から +1（最も明るい）までの範囲で設定できます。0は色の変更を加えないことを意味します。― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA シート名一括取得・変更』実務上では、たくさんあるシート名を、一括で取得したり、変更したりすることがあります。今日は、そのやり方を見てみましょう。シート名の一括取得Sub test…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
27May
- VBA　スパークラインを追加する
  スパークラインを追加するSub test() ' スパークラインを追加する With Range("F4:F7").SparklineGroups.Add( _ Type:=xlSparkLine, SourceData:="B4:E7") .SeriesColor.ColorIndex = 1 .Points.Markers.Visible = True End WithEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA シート名一括取得・変更』実務上では、たくさんあるシート名を、一括で取得したり、変更したりすることがあります。今日は、そのやり方を見てみましょう。シート名の一括取得Sub test…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
20May
- VBA　ハイパーリンク付き目次シートの作成
  ハイパーリンク付き目次シートの作成Sub test()'ハイパーリンク付き目次シートを作成する call test0'　シート名を一括取得 Dim i As Integer Dim MaxRow As Integer Dim HLink As Hyperlink '最終行を取得 MaxRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row '1行目から最終行まで繰り返し For i = 1 To MaxRow 'A列にハイパーリンクの設定 Set HLink = ActiveSheet.Hyperlinks.Add(Anchor:=Cells(i, "A"), _ Address:="", SubAddress:="'" & Cells(i, "A") & "'!A1") Next iEnd Sub' -------------------------------------------------------------------------------------------------Sub test0()'　シート名を一括取得 Dim i As Integer For i = 1 To Worksheets.Count'　　　シート名をセルB列に代入 Cells(i, 1).Value = Sheets(i).Name NextEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA シート名一括取得・変更』実務上では、たくさんあるシート名を、一括で取得したり、変更したりすることがあります。今日は、そのやり方を見てみましょう。シート名の一括取得Sub test…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
13May
- VBA　 DatePart関数で年初来何周目を取得
  DatePart関数で年初来何周目を取得Sub test()'DatePart関数で年初来何周目を取得 Dim myDate As Date myDate = #5/13/2025# Debug.Print "対象日付は年初から数えて" & DatePart("ww", myDate) & "週目です。" 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
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