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

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

ホームピグアメブロ

芸能人ブログ人気ブログ

19Nov
- VBA フィルタ可視セルのみを削除
  フィルタ可視セルのみを削除Sub test() ' フィルタ可視セルのみを削除 '警告や確認を促すメッセージを非表示 Application.DisplayAlerts = False With Range("A2").CurrentRegion .Rows("3:" & .Rows.Count).SpecialCells(xlCellTypeVisible).Delete End With Application.DisplayAlerts = True ' フィルタを解除 Range("A2").AutoFilterEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA 非表示の行・列があるかを判定』非表示の行・列があるかを判定Sub test() If Cells.SpecialCells(xlCellTypeVisible).Areas.C…ameblo.jp『VBA 行列の非表示』行非表示構文Rows(対象の行).Hidden = True または False1行を非表示Sub test1() ’ 3行目を非表示…ameblo.jp『VBA 行列番号を非表示』実務では、作成される資料によって行列番号を非表示したりすることがあります。今日は、VBAで非表示の仕方を見ていきましょう。行列番号を非表示Sub test…ameblo.jp
12Nov
- VBA　対象ファイルを読取専用にする
  対象ファイルを読取専用にするSub test()' 対象ファイルを読取専用にする Dim myPath As String Dim myFile As String myPath = ThisWorkbook.Path ' 読取専用変更対象ファイル名 myFile = myPath & "\test_11.12.xlsx" SetAttr myFile, vbReadOnly '　読み取り専用になっているか確認 Workbooks.Open myFileEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る『VBA ファイル名を一括取得』ファイル名を一括取得Sub test() ' ファイル一覧を取得 Dim myStr As String Dim i As Integ…ameblo.jp『VBA　ファイル名を一括変換』実務では、規則性のないファイル名を一定のルールに従って変換する作業がよくあったりします。ファイルの数が少ないなら、まだ手動で変換してもいいですが、300件、1…ameblo.jp『VBA 結合セル一括解除_値埋め合わせ』実務では、本来ピッポットテーブルをつくりたいのに、表のなか結合セルがあったりはよく見られます。今日は、その結合セルを一瞬解除し、その解除後の空白もまとめて埋め…ameblo.jp『VBA 階層別複数フォルダを一括作成』階層別複数フォルダを一括作成Sub test() ’ 階層別複数フォルダを一括作成 Dim i As Long Dim m As L…ameblo.jp『VBA　シェイプを一括削除』シェイプを一括削除Sub test()　　’　シート上のシェイプを一括削除 ActiveSheet.DrawingObjects.Delete…ameblo.jp『VBA　非表示シート一括で再表示』非表示シート一括で再表示するSub test()' 非表示シート一括で再表示 Dim WS As Worksheet For Each W…ameblo.jp
05Nov
- VBA Select Case Trueで複雑条件判定
  Select Case Trueで複雑条件判定Sub test()　　’　Likeと組み合わせで複雑条件判定 Dim i As Long Dim myCD As String For i = 3 To 16 myCD = Cells(i, 1).Value Select Case True Case myCD Like "AC*" Cells(i, "C") = "東北" Case myCD Like "A*" Cells(i, "C") = "関東" Case myCD Like "BB*" Cells(i, "C") = "関西" Case myCD Like "B*" Cells(i, "C") = "四国" Case myCD Like "K*" Cells(i, "C") = "沖縄" Case myCD Like "P*" Cells(i, "C") = "九州" Case Else Cells(i, "C") = "不明" End Select Next iEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る『VBA 条件分岐Select Case』条件分岐Select Case構文Select Case 変数 Case 値1 変数=値1の場合の処理 Case 値2…ameblo.jp
29Oct
- VBA　ピボットテーブルにフィルタを追加する
  ピボットテーブルにフィルタを追加するSub test()' VBAでピボットテーブルにフィルタを追加する Dim WS As Worksheet Dim PVC As PivotCache Dim PVT As PivotTable Dim myR As Range '　元データ範囲自動取得 Set myR = Sheets(1).Range("A2").CurrentRegion '　ピボットテーブル出力シートを追加（最後に） Set WS = Sheets.Add(after:=Sheets(Sheets.Count)) '　ピボットテーブルデータソースをセット Set PVC = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _ SourceData:=myR) Set PVT = PVC.CreatePivotTable(TableDestination:=WS.Name & "!R3C1", _ TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1") ' フィールドのレイアウト設定 With PVT With .PivotFields("地区") .Orientation = xlPageField .Position = 1 End With With .PivotFields("支店名") .Orientation = xlRowField .Position = 1 End With '　集計対象を設定 .AddDataField .PivotFields("売上高"), "合計 / 売上高", xlSum End With End SubSub test2()' VBAでピボットテーブルにフィルタを追加する　”関東”を絞り込む Dim WS As Worksheet Dim PVC As PivotCache Dim PVT As PivotTable Dim myR As Range '　元データ範囲自動取得 Set myR = Sheets(1).Range("A2").CurrentRegion '　ピボットテーブル出力シートを追加（最後に） Set WS = Sheets.Add(after:=Sheets(Sheets.Count)) '　ピボットテーブルデータソースをセット Set PVC = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _ SourceData:=myR) Set PVT = PVC.CreatePivotTable(TableDestination:=WS.Name & "!R3C1", _ TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1") ' フィールドのレイアウト設定 With PVT With .PivotFields("地区") .Orientation = xlPageField .Position = 1 .CurrentPage = "関東" End With With .PivotFields("支店名") .Orientation = xlRowField .Position = 1 End With '　集計対象を設定 .AddDataField .PivotFields("売上高"), "合計 / 売上高", xlSum End With End SubSub test3()' VBAでピボットテーブルにフィルタを追加する　複数項目を絞り込む Dim WS As Worksheet Dim PVC As PivotCache Dim PVT As PivotTable Dim myR As Range '　元データ範囲自動取得 Set myR = Sheets(1).Range("A2").CurrentRegion '　ピボットテーブル出力シートを追加（最後に） Set WS = Sheets.Add(after:=Sheets(Sheets.Count)) '　ピボットテーブルデータソースをセット Set PVC = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _ SourceData:=myR) Set PVT = PVC.CreatePivotTable(TableDestination:=WS.Name & "!R3C1", _ TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1") ' フィールドのレイアウト設定 With PVT With .PivotFields("地区") .Orientation = xlPageField .Position = 1 .EnableMultiplePageItems = True .PivotItems("近畿").Visible = False .PivotItems("九州").Visible = False End With With .PivotFields("支店名") .Orientation = xlRowField .Position = 1 End With '　集計対象を設定 .AddDataField .PivotFields("売上高"), "合計 / 売上高", xlSum End With End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　ピボットテーブルの作成』実務では、データ分析といえば、何と言ってもExcelのピボットテーブルでしょう。今日は、ピボットテーブル作成の基本について、見ていきましょう。VBAでピボ…ameblo.jp『VBA　セル範囲に名前の定義をする』　実務では、ミス防止や入力時間短縮などのため、セル範囲に名前を定義することがよくあります。今日は、VBAで名前の定義をみてみましょう。セル範囲に名前の定義を…ameblo.jp『VBA　ピボットテーブルの削除』今回は、VBAでピボットテーブルの削除について、見ていきましょう。VBAでピボットテーブルを作成Sub test() ' ピボットテーブル初期化　…ameblo.jp『VBA　ピボットテーブル　元データ範囲の自動取得』VBAで元データ範囲の自動取得Sub test() '元データ範囲の自動取得 Dim myR As Range '　A2を含むセル範…ameblo.jp『VBA　ピボットテーブルの更新』VBAでピボットテーブルの更新Sub test()'　ピボットテーブルの更新 ActiveSheet.PivotTables(1).PivotCa…ameblo.jp
22Oct
- VBA印刷設定印刷プレビュー
  PrintOutで印刷プレビューSub test() ’ ページのフッターを設定 ActiveSheet.PrintOut Preview:=TrueEnd SubPrintPreviewで印刷プレビューSub test2() ’ PrintPreviewで印刷プレビュー ActiveSheet.PrintPreviewEnd SubSub test2B() ’ PrintPreviewで印刷プレビュー（余白などページ設定をさせない時 ActiveSheet.PrintPreview EnableChanges:=FalseEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA印刷設定用紙１枚に収まる』VBA印刷設定用紙１枚に収まるSub test() With ActiveSheet.PageSetup .Zoom = …ameblo.jp『VBA印刷設定シートの印刷』シートの印刷Sub test() ’　シート1を印刷する Worksheets("sheet1").PrintOutEnd Sub…ameblo.jp『VBA印刷設定　印刷タイトルを設定する』印刷タイトルを設定するSub test() With Sheets(1) ’ 1-3行を見出し行に設定する .PageSet…ameblo.jp『VBA印刷設定用紙サイズ、印刷の向きを調整する』用紙サイズ、印刷の向きを調整するSub test() With Sheets(1) ' 印刷の向きを縦に設定する…ameblo.jp『VBA印刷設定ページ中央に印刷位置を設定する』ページ中央に印刷位置を設定するSub test() ' 水平方向の中央に配置する .PageSetup.CenterH…ameblo.jp『VBA印刷設定　ページのヘッダーを設定』ページのヘッダーを設定するSub test() With Sheets(1) ’ 左ヘッダーにファイル名を設定する …ameblo.jp『VBA印刷設定　行列番号を含めて印刷する』行列番号を含めて印刷するSub test() ’ 行列番号を含めて印刷する With Worksheets(1) .Page…ameblo.jp『VBA印刷設定　印刷の余白設定』印刷の余白設定するSub test() ’ 印刷の余白設定する With Worksheets(1) ' 印刷の上余白を設定…ameblo.jp
16Oct
- VBA印刷設定ページのフッターを設定
  ページのフッターを設定Sub test() ’ ページのフッターを設定' 左フッターを設定する　ファイル名WorkSheets(1).PageSetup.LeftFooter = "&F"' 中央フッターを設定する　ページ番号/総ページ数WorkSheets(1).PageSetup.CenterFooter = "&P/&N"' 右フッターを設定する　日付WorkSheets(1).PageSetup.RightFooter = "&D"End Sub&T: 現在の時刻&A: シート見出し名― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA印刷設定用紙１枚に収まる』VBA印刷設定用紙１枚に収まるSub test() With ActiveSheet.PageSetup .Zoom = …ameblo.jp『VBA印刷設定シートの印刷』シートの印刷Sub test() ’　シート1を印刷する Worksheets("sheet1").PrintOutEnd Sub…ameblo.jp『VBA印刷設定　印刷タイトルを設定する』印刷タイトルを設定するSub test() With Sheets(1) ’ 1-3行を見出し行に設定する .PageSet…ameblo.jp『VBA印刷設定用紙サイズ、印刷の向きを調整する』用紙サイズ、印刷の向きを調整するSub test() With Sheets(1) ' 印刷の向きを縦に設定する…ameblo.jp『VBA印刷設定ページ中央に印刷位置を設定する』ページ中央に印刷位置を設定するSub test() ' 水平方向の中央に配置する .PageSetup.CenterH…ameblo.jp『VBA印刷設定　ページのヘッダーを設定』ページのヘッダーを設定するSub test() With Sheets(1) ’ 左ヘッダーにファイル名を設定する …ameblo.jp『VBA印刷設定　行列番号を含めて印刷する』行列番号を含めて印刷するSub test() ’ 行列番号を含めて印刷する With Worksheets(1) .Page…ameblo.jp『VBA印刷設定　印刷の余白設定』印刷の余白設定するSub test() ’ 印刷の余白設定する With Worksheets(1) ' 印刷の上余白を設定…ameblo.jp
08Oct
- VBA　文字色で判定してセルの数を集計
  文字色で判定してセルの数を集計Sub test() ’ 文字色で判定してセルの数を集計 Dim A As Range Dim Cnt As Long Cnt = 0 '　初期値セロにする 'ループで個数を集計 For Each A In Range("A3").CurrentRegion If A.Font.Color = vbRed Then Cnt = Cnt + 1 '　カウントアップ End If Next Debug.Print "赤は、" & Cnt & " 個です"End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA印刷設定用紙１枚に収まる』VBA印刷設定用紙１枚に収まるSub test() With ActiveSheet.PageSetup .Zoom = …ameblo.jp『VBA印刷設定シートの印刷』シートの印刷Sub test() ’　シート1を印刷する Worksheets("sheet1").PrintOutEnd Sub…ameblo.jp『VBA印刷設定　印刷タイトルを設定する』印刷タイトルを設定するSub test() With Sheets(1) ’ 1-3行を見出し行に設定する .PageSet…ameblo.jp
01Oct
- VBA印刷設定　印刷の余白設定
  印刷の余白設定するSub test() ’ 印刷の余白設定する With Worksheets(1) ' 印刷の上余白を設定 .PageSetup.TopMargin = 35 ' 印刷の下余白を設定 .PageSetup.BottomMargin = 15 ' 印刷の左余白を設定 .PageSetup.LeftMargin = 35 ' 印刷の右余白を設定 .PageSetup.RightMargin = 15 End WithEnd Sub余白設定の数字は、ポイントとなります。1ポイントは1/72インチ、約0.35mmです。― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA印刷設定用紙１枚に収まる』VBA印刷設定用紙１枚に収まるSub test() With ActiveSheet.PageSetup .Zoom = …ameblo.jp『VBA印刷設定シートの印刷』シートの印刷Sub test() ’　シート1を印刷する Worksheets("sheet1").PrintOutEnd Sub…ameblo.jp『VBA印刷設定　印刷タイトルを設定する』印刷タイトルを設定するSub test() With Sheets(1) ’ 1-3行を見出し行に設定する .PageSet…ameblo.jp
25Sep
- VBA　Application.Gotoで全シートでA1を一括選択する
  全シートでA1を一括選択するSub test() 'Application.Gotoで全シートでA1を選択した状態にする Dim WS As Worksheet For Each WS In Worksheets Application.Goto WS.Cells(1, 1) NextEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA 文字列の操作　InStr関数』複数多数の文字列なか、特定文字列の所在位置を調べる時、InStr関数がよく使われます。きょうは、その基本的な使い方を見てみましょう。InStr関数構文In…ameblo.jp『VBA　WorksheetFunctionでVlookup関数を利用』WorksheetFunctionでVlookup関数を利用Sub test()' WorksheetFunctionでVlookup関数を利用 …ameblo.jp『VBA　WorksheetFunctionでデータ集計』連想配列　 WorksheetFunctionでデータ集計Sub test2()' 連想配列　WorksheetFunctionでデータ集計 Dim…ameblo.jp『Excel VBA基礎入門』プロローグVBAとは？Excel VBAの出来ることVBA始める前の準備モジュールとは？オブジェクト(Object)とは？プロパティとメソッドVBA 変数とは…ameblo.jp『VBA 主要VBA関数』VBA関数は、Visual Basicで用意されている関数が元となっていてVBAで使う関数のことです。これに対して、ワークシート関数は、Excelのワークシ…ameblo.jp
18Sep
- VBA　RemoveDuplicatesで重複削除
  RemoveDuplicatesで重複削除Sub test() 'RemoveDuplicatesで重複削除 ActiveSheet.Range("A1").CurrentRegion. _ RemoveDuplicates Columns:=1, Header:=xlNoEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA 文字列の操作　InStr関数』複数多数の文字列なか、特定文字列の所在位置を調べる時、InStr関数がよく使われます。きょうは、その基本的な使い方を見てみましょう。InStr関数構文In…ameblo.jp『VBA　WorksheetFunctionでVlookup関数を利用』WorksheetFunctionでVlookup関数を利用Sub test()' WorksheetFunctionでVlookup関数を利用 …ameblo.jp『VBA　WorksheetFunctionでデータ集計』連想配列　 WorksheetFunctionでデータ集計Sub test2()' 連想配列　WorksheetFunctionでデータ集計 Dim…ameblo.jp『Excel VBA基礎入門』プロローグVBAとは？Excel VBAの出来ることVBA始める前の準備モジュールとは？オブジェクト(Object)とは？プロパティとメソッドVBA 変数とは…ameblo.jp『VBA 主要VBA関数』VBA関数は、Visual Basicで用意されている関数が元となっていてVBAで使う関数のことです。これに対して、ワークシート関数は、Excelのワークシ…ameblo.jp