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

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

ホームピグアメブロ

芸能人ブログ人気ブログ

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
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