For文の中にIf文を記述する正しい方法について | |
---|---|
[195521] For文の中にIf文を記述する正しい方法について- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ AVALANCHE -(2023/01/23(16:32)) □U R L/ 現在、Excel上で九九の表から指定したセルの値を削除する課題を取り組んでいます ↓のコードは九九表の、行と列を変数i.jに入れて 行より列の方が大きいセルの値を、削除するコードです。 ただ、この記述だとExcel上の1行目のみ削除されてしまい、2行目、3行目、4行目...etc の比較が出来ていません。デバックすると、しっかりループ出来ているのですが、記述のどこが問題点かご教示頂きたいです。 Option Explicit Sub hdnnmst() Dim i, j For j = 1 To 9 For i = 1 To 9 If Cells(i) < (j) Then Cells(j).Clear Else Cells(i, j) = i * j End If Next Next End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[195522] Re[1]: For文の中にIf文を記述する正しい方法について- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2023/01/23(18:26)) □U R L/ >↓のコードは九九表の、行と列を変数i.jに入れて >行より列の方が大きいセルの値を、削除するコードです。 If i < j Then Cells(i, j).Clear Else Cells(i, j) = i * j End If この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
このトピックに書きこむ |
---|