Next i End Sub For…Nextは繰り返し処理です。 上記では2～10まで繰り返しています。 Cells(Rows.Count, 1).End(xlUp).Row これは最終行を取得するVBAコードです。 これらについては今後詳しく解説していきます。 たった1行のVBAで複数のセルに計算式を入れる たった1行のVBAで複数のセル...
SubDeleteEmptyRows() SelectedRange = Selection.Rows.Count ActiveCell.Offset(0,0).SelectFori =1ToSelectedRangeIfActiveCell.Value =""ThenSelection.EntireRow.DeleteElseActiveCell.Offset(1,0).SelectEndIfNextiEndSub セル列を選択してからこのマクロを実行すると、選択した範囲の列から、空のセルがあ...
同じスタイル(たとえば背景色)が、セル自体の書式と条件付き書式とで同時に適用された場合、条件付き書式が優先されますし、条件付き書式が複数あれば、より優先度の高いものが優先利用されます。 より優先度の強い条件付き書式を与えるようにするなり、条件の組み合わせを見直して不要な条件付き...
DimwsasWorksheetForEachwsinWorksheets MsgBox ws.nameNextws このコードは、ワークブック内のすべてのワークシートをループし、各ワークシートの名前をメッセージボックスに表示します。ワークブック内のすべてのシートをループすることは、一度に複数のワークシートをロック/ロック解除、ま...
Add("すぺらんかー") Dim vData As Variant For Each vData In cll Debug.Print TypeName(vData) & ":" & vData Next Set cll = Nothing End Sub また、以下のように連想配列としても使用可能だ。Public Sub CollectionTest002() Dim cll As New Collection Call cll.Add("りんご", "赤") ...
Dim i As Integer 'Change the loop according to your requirements For i = 1 To 1500 'Perform the tasks here 'Update the progress bar Application.StatusBar = "Progress: " & x & " of 1500: " & Format(x / 1500, "0%") Next x Application.StatusBar = False ...
DimcurrentSlideasSlideDimshpasShapeSetcurrentSlide=Application.ActiveWindow.View.SlideForEachshpIncurrentSlide.Shapes' 変数 'shp' で参照されている現在の図形に何らかの処理を行う' 例えば、イミディエイトウィンドウに図形の名前を表示Debug.Print shp.NameNextshp ...
Add "Item3" 'ArrayListを繰り返し、値を確認する For N = 0 To MyList.Count - 1 MsgBox MyList(N) Next N End Sub この例では、新しい ArrayList オブジェクトを作成して 3 つのアイテムを入力し、各アイテムを表示しながらリストを反復しています。