Excel VBA質問箱 IV

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

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


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

722 / 13667 ﾂﾘｰ

←次へ　｜　前へ→

▼

【78912】For-Next トキノハジメ 17/2/22(水) 20:28

【78914】Re:For-Next β 17/2/22(水) 21:29

【78918】Re:For-Next トキノハジメ 17/2/23(木) 8:53


	【78912】For-Next

トキノハジメ - 17/2/22(水) 20:28 -


	引用なし

	パスワード

いつもお世話になります。

下記のコードを For-Next にするどうすれはよいかおしえてください。

宜しくお願い致します。　

　　Range("D9").Value = Range("D7").Value - Range("D8").Value
　　Range("E9").Value = Range("E7").Value - Range("E8").Value
　　Range("F9").Value = Range("F7").Value - Range("F8").Value
　　Range("G9").Value = Range("G7").Value - Range("G8").Value
　　Range("H9").Value = Range("H7").Value - Range("H8").Value
　　Range("I9").Value = Range("I7").Value - Range("I8").Value
　　Range("J9").Value = Range("J7").Value - Range("J8").Value
　　Range("K9").Value = Range("K7").Value - Range("K8").Value
　　Range("L9").Value = Range("L7").Value - Range("L8").Value
　　Range("M9").Value = Range("M7").Value - Range("M8").Value
　　Range("N9").Value = Range("N7").Value - Range("N8").Value
　　Range("O9").Value = Range("O7").Value - Range("O8").Value
　　Range("P9").Value = Range("P7").Value - Range("P8").Value
　　Range("Q9").Value = Range("Q7").Value - Range("Q8").Value
　　Range("R9").Value = Range("R7").Value - Range("R8").Value
　　Range("S9").Value = Range("S7").Value - Range("S8").Value
　　Range("T9").Value = Range("T7").Value - Range("T8").Value
　　Range("U9").Value = Range("U7").Value - Range("U8").Value


	【78914】Re:For-Next

β - 17/2/22(水) 21:29 -


	引用なし

	パスワード

▼トキノハジメさん：

For/Next を 2例と、別案1例。

Sub Sample1()
　　Dim j As Long
　　
　　For j = 4 To 21
　　　　Cells(9, j).Value = Cells(7, j).Value - Cells(8, j).Value
　　Next
　　
End Sub

Sub Sample2()
　　Dim j As Long
　　
　　For j = 0 To 17
　　　　Range("D9").Offset(, j).Value = Range("D7").Offset(, j).Value - Range("D8").Offset(, j).Value
　　Next
　　
End Sub

Sub Sample3()
　　Range("D9:U9").Formula = "=D7-D8"
　　Range("D9:U9").Value = Range("D9:U9").Value
End Sub


	【78918】Re:For-Next

トキノハジメ - 17/2/23(木) 8:53 -


	引用なし

	パスワード

▼β さん：
色々ありがとうございます。

今後とも宜しくお願い致します。


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

722 / 13667 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free