Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51529 / 76732

←次へ　｜　前へ→


	【30068】Re:エクセルのマクロ（ForNext文）

hine - 05/10/19(水) 1:15 -


	引用なし

	パスワード

nikuo さん
ponponさん
こんばんは

>あのすいません。わたしはoga,悠ではないんですけど、nikuoです。
>oga=悠という人は赤の他人です。

こんな感じですか？
ヘルプも見てくださいね。

Sub TEST1()
'Rangeを使った例
With Worksheets("Sheet1")
　　For f = 1 To 56
　　　　.Range("A" & CStr(f)).Value = f
　　　　.Range("B" & CStr(f)).Interior.ColorIndex = f
　　Next
End With
End Sub

Sub TEST2()
'Cellsを使った例
Dim f As Long
With Worksheets("Sheet1")
　　For f = 1 To 56
　　　　.Cells(f, 1).Value = f
　　　　.Cells(f, 2).Interior.ColorIndex = f
　　Next
End With
End Sub

0 hits

▼

【30064】エクセルのマクロ（ForNext文） nikuo 05/10/18(火) 23:37