DimwsasWorksheetForEachwsinWorksheets MsgBox ws.nameNextws このコードは、ワークブック内のすべてのワークシートをループし、各ワークシートの名前をメッセージボックスに表示します。ワークブック内のすべてのシートをループすることは、一度に複数のワークシートをロック/ロック解除、ま...
Next i End Sub For…Nextは繰り返し処理です。 上記では2～10まで繰り返しています。 Cells(Rows.Count, 1).End(xlUp).Row これは最終行を取得するVBAコードです。 これらについては今後詳しく解説していきます。 たった1行のVBAで複数のセルに計算式を入れる たった1行のVBAで複数のセル...
Add "Item3" 'ArrayListを繰り返し、値を確認する For N = 0 To MyList.Count - 1 MsgBox MyList(N) Next N End Sub この例では、新しい ArrayList オブジェクトを作成して 3 つのアイテムを入力し、各アイテムを表示しながらリストを反復しています。
DimcurrentSlideasSlideDimshpasShapeSetcurrentSlide=Application.ActiveWindow.View.SlideForEachshpIncurrentSlide.Shapes' 変数 'shp' で参照されている現在の図形に何らかの処理を行う' 例えば、イミディエイトウィンドウに図形の名前を表示Debug.Print shp.NameNextshp ...