2022-08-15から1日間の記事一覧
Option Explicit 'ディクショナリーただそれだけ '(tagもitemもString型のみ) ' '作成中 2022/8/14 Dim pdic As Object Private Sub Class_Initialize() Set pdic = CreateObject("Scripting.Dictionary") End Sub Public Function Add(ByVal pstrTag As Str…
イメージ サンプル Public Sub sample() Call nipsubClear2(Worksheets("Sheet1"), 6, 3, 8, 5, True, True) End Sub ソースコード ' シートの情報を初期化する。2 ' ' ByRef wksTarger As Worksheet 初期化するシートオブジェクト ' Optional ByVal plngSta…
'現在開いているブック名をコンボボックスに入れる ' 'URL https://pgbigoroku.hatenablog.com/entry/2022/08/15/100724 '必要関数URL https://pgbigoroku.hatenablog.com/entry/2022/08/15/100527 'Ver.2022.8.15 Public Sub nipsub現在開いているブック名…
'コンボボックスに指定リストがあるか ' 'URL https://pgbigoroku.hatenablog.com/entry/2022/08/15/100527 'Ver.2022.8.15 Public Function nipblnコンボボックスに指定リストがあるか(ByRef pcmb代入先 As ComboBox, _ ByVal pstr検索文字 As String) As B…
' ' 指定のブック名を開いているか確認する。 ' 'バージョン 2022.8.15 Private Function nipbln指定のブック名を開いているか確認する(ByVal pstr検索ブック As String) As Boolean Dim obj As Workbook For Each obj In Workbooks If obj.Name = pstr検索…
