□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 親トピックをトピックトップへ ]
| このトピックに書きこむ |
|---|
| このトピックに書きこむ |
|---|
| Re[1]: For文の中にIf文を記述する正しい方法について | |
|---|---|
[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のコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195521] For文の中にIf文を記述する正しい方法について- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ AVALANCHE -(2023/01/23(16:32)) □U R L/ 現在、Excel上で九九の表から指定したセルの値を削除する課題を取り組んでいます
↓のコードは九九表の、行と列を変数i.jに入れて
行より列の方が大きいセルの値を、削除するコードです。
ただ、この記述だとExcel上の１行目のみ削除されてしまい、２行目、３行目、４行目...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のコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |