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

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

ホームピグアメブロ

芸能人ブログ人気ブログ

21Jan
- VBA 特定シートだけ残して他のシート一括削除
  特定シートだけ残して他のシート一括削除Sub test() ' 特定シートだけ残して他のシート一括削除 Dim mySheets As Worksheet For Each mySheets In Worksheets If mySheets.Name <> "オリジナル" Then　　　　　’　警告メッセージを表示させない Application.DisplayAlerts = False mySheets.Delete Application.DisplayAlerts = True End If NextEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る関連記事『VBA シート追加・削除』シートの追加構文Worksheets.Add(Before, After, Count, Type)引数なにも指定しない場合、アクティブシートの前に追加…ameblo.jp
15Jan
- VBA セル入力後日付やユーザー名を自動コメントする
  セル入力後日付やユーザー名を自動コメントするPrivate Sub worksheet_change(ByVal Target As Range)’　セル入力後日付やユーザー名を自動コメントする If Target.Column < 6 And Target.Row < 15 Then '　範囲(A１：E14)判定 If Target.Value <> "" Then　　　　’　値が空白でなければ Target.AddComment Date & Chr(10) & Application.UserName ’　日付及びユーザー名をコメントする End If End IfEnd SubVBE画面なか、対象シートを右クリックして、上記コードを貼り付けて、セル「A１：E14」内に入力してみてください。― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る『VBA　指定フォルダー内の全ファイルを開く』Dir関数　Dir関数は、ファイルの存在確認できる関数です。引数に指定したファイルが存在すると、ファイル名を返します。一方、指定したファイルが見つからな…ameblo.jp『VBA ブックを閉じる（Closeメソッド）』変更を保存せず閉じるSub test() ’ 変更を保存せず閉じる　　ActiveWorkbook.Close　　’ActiveWorkbo…ameblo.jp『VBA 条件付き書式をクリアする』実務では、共有していたファイルの条件付き書式が、知らないうちに大量増殖することがあったりします。あまりにも増えすぎると、Excelの動作が遅くなる場合もある…ameblo.jp『VBA　条件付き書式で１行おき色塗り』条件付き書式で１行おき色塗りSub test()’　条件付き書式で１行おき色塗り With Selection .FormatCon…ameblo.jp
07Jan
- VBA 表の最後のセルの行列番号を取得
  表の最後のセルの行列番号を取得Sub test() ’　表の最後のセルの行列番号を取得 Dim myR As Range Dim xlcnt As Long Set myR = Range("A2").CurrentRegion xlcnt = myR.Cells.Count MsgBox "表の最後のセル：" & _ myR.Cells(xlcnt).Address & vbLf & _ "セルの行番号：" & myR.Cells(xlcnt).Row & vbLf & _ "セルの列番号：" & myR.Cells(xlcnt).Column Set myR = NothingEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る『VBA　指定フォルダー内の全ファイルを開く』Dir関数　Dir関数は、ファイルの存在確認できる関数です。引数に指定したファイルが存在すると、ファイル名を返します。一方、指定したファイルが見つからな…ameblo.jp『VBA ブックを閉じる（Closeメソッド）』変更を保存せず閉じるSub test() ’ 変更を保存せず閉じる　　ActiveWorkbook.Close　　’ActiveWorkbo…ameblo.jp『VBA 条件付き書式をクリアする』実務では、共有していたファイルの条件付き書式が、知らないうちに大量増殖することがあったりします。あまりにも増えすぎると、Excelの動作が遅くなる場合もある…ameblo.jp『VBA　条件付き書式で１行おき色塗り』条件付き書式で１行おき色塗りSub test()’　条件付き書式で１行おき色塗り With Selection .FormatCon…ameblo.jp
01Jan
- 新年おめてとうございます。
  2025年もプログラミングを通して、一緒に強くなりましょう。どうぞよろしくお願いいたします。
24Dec
- VBA フォルダー内のシートを一括PDF保存
  フォルダー内のシートを一括PDF保存Sub test() ’　フォルダー内のシートを一括PDF保存 Dim myPath As String Dim myFileName As String Dim WS As Worksheet Set WS = ThisWorkbook.Sheets("Sheet1") myPath = ThisWorkbook.Path & "\" & WS.Range("C2").Value & "\" myFileName = Dir(myPath & "*.xls*") 'ファイルを開く Do While myFileName <> "" Workbooks.Open myPath & myFileName ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=myPath & myFileName & ".PDF" myFileName = Dir() LoopEnd SubEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る『VBA　指定フォルダー内の全ファイルを開く』Dir関数　Dir関数は、ファイルの存在確認できる関数です。引数に指定したファイルが存在すると、ファイル名を返します。一方、指定したファイルが見つからな…ameblo.jp『VBA ブックを閉じる（Closeメソッド）』変更を保存せず閉じるSub test() ’ 変更を保存せず閉じる　　ActiveWorkbook.Close　　’ActiveWorkbo…ameblo.jp『VBA 条件付き書式をクリアする』実務では、共有していたファイルの条件付き書式が、知らないうちに大量増殖することがあったりします。あまりにも増えすぎると、Excelの動作が遅くなる場合もある…ameblo.jp『VBA　条件付き書式で１行おき色塗り』条件付き書式で１行おき色塗りSub test()’　条件付き書式で１行おき色塗り With Selection .FormatCon…ameblo.jp
17Dec
- VBA 他のExcelブックを一括保存して閉じる
  他のExcelブックを一括保存して閉じるSub test() ’　他のExcelブックを一括保存して閉じる Dim tgtBook As Workbook For Each tgtBook In Workbooks If tgtBook.Name <> ThisWorkbook.Name Then tgtBook.Close True End If Next tgtBookEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る『VBA　指定フォルダー内の全ファイルを開く』Dir関数　Dir関数は、ファイルの存在確認できる関数です。引数に指定したファイルが存在すると、ファイル名を返します。一方、指定したファイルが見つからな…ameblo.jp『VBA ブックを閉じる（Closeメソッド）』変更を保存せず閉じるSub test() ’ 変更を保存せず閉じる　　ActiveWorkbook.Close　　’ActiveWorkbo…ameblo.jp『VBA 条件付き書式をクリアする』実務では、共有していたファイルの条件付き書式が、知らないうちに大量増殖することがあったりします。あまりにも増えすぎると、Excelの動作が遅くなる場合もある…ameblo.jp『VBA　条件付き書式で１行おき色塗り』条件付き書式で１行おき色塗りSub test()’　条件付き書式で１行おき色塗り With Selection .FormatCon…ameblo.jp
10Dec
- VBA デフォルトシート数を変更
  セル値によって色を付けるSub test() ’　デフォルトシート数を変更（シート6つにする Dim ns As Integer Application.SheetsInNewWorkbook = 6 ns = Application.SheetsInNewWorkbook Workbooks.Add Application.SheetsInNewWorkbook = nsEnd Sub実行結果上の「Application.SheetsInNewWorkbook = 6」の６を１に変えれば、デフォルトシート数は１になります。― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る『VBA 条件付き書式をクリアする』実務では、共有していたファイルの条件付き書式が、知らないうちに大量増殖することがあったりします。あまりにも増えすぎると、Excelの動作が遅くなる場合もある…ameblo.jp『VBA　条件付き書式で１行おき色塗り』条件付き書式で１行おき色塗りSub test()’　条件付き書式で１行おき色塗り With Selection .FormatCon…ameblo.jp
03Dec
- VBA セル値によって色を付ける
  セル値によって色を付けるSub test() ’　条件付き書式設定でセル値によって色を付ける　(110％以上水色塗りにする With Range("E4:E12").FormatConditions.Add _ (Type:=xlCellValue, Operator:=xlGreater, Formula1:=1.1) .Font.Bold = True .Interior.Color = vbCyan End WithEnd SubType:=xlCellValue　　セルの値Operator:=xlGreater　　より大きいFormula1:=1.1　110％超え条件付き書式をクリアするSub test() ’　条件付き書式をクリアする Range("E4:E12").FormatConditions.DeleteEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る『VBA 条件付き書式をクリアする』実務では、共有していたファイルの条件付き書式が、知らないうちに大量増殖することがあったりします。あまりにも増えすぎると、Excelの動作が遅くなる場合もある…ameblo.jp『VBA　条件付き書式で１行おき色塗り』条件付き書式で１行おき色塗りSub test()’　条件付き書式で１行おき色塗り With Selection .FormatCon…ameblo.jp
26Nov
- VBA DataSeriesメソッドで連続データ出力
  月末日付連続出力Sub test() ' 月末日付連続出力 With ActiveSheet Set myRange = .Range("A1:A12") .Range("A1").Value = "2025/01/31" myRange.DataSeries Type:=xlChronological, Date:=xlMonth myRange.NumberFormat = "[$-ja-JP]gge年mm月dd日(aaa)" End WithEnd Sub土日以外Weekday連続出力Sub test2() '土日以外Weekday連続出力 With ActiveSheet Set myRange = .Range("B1:B25") .Range("B1").Value = "2025/01/01" myRange.DataSeries Type:=xlChronological, Date:=xlWeekday myRange.NumberFormat = "yyyy/mm/dd(aaa)" End WithEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る
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