2019-03-27から1日間の記事一覧

2019-03-27

非表示シートがあるときの複数シート一括処理

結論コレクション作ってループsub CommandToSheets()Dim mySheetsNames as CollectionSet mySheetsNames = New Collection‘まとめて扱うシート名をコレクションに追加With mySheetsNames .Add “Sheet5” .Add “sheet6”End withDim mySheetName as Object ‘オ…

2019-03-27

For～Nextのイテレータ（カウンター変数）を使用前に初期化するべきか

１結論初期化不要。変数宣言した後、直接For文を書き始めてよい。２テスト内容 Sub test1() Dim i As Longi = 100Debug.Print "iの値：" & i For i = 1 To 10 Debug.Print "iの値：" & iNext i End Sub イミディエイトウインドウの結果 iの値：100iの値：1…