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

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

ホームピグアメブロ

芸能人ブログ人気ブログ

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