エクセルＶＢＡ（掛け算）

質問

いつもおせわになります。
現在、下記のようなコードを書いてますがどうもうまくいきません。よろしくお願いいたします。

Ｍ列 ＝ Ｋ列 × Ｎ列を６行目から最終行目で入れたくて下記のようなコードを書きました。
ところが・・・Ｎ列にはデータのない場合があるので、Ｉｆ～を入れてみました。ここまではうまくいったのですが、
Ｏ列 ＝ Ｋ列 × Ｐ列のように数式を入れたい列が他にもあり、又同じコードを下記のように書いたら、Ｐ列にデータがないところで止まってしまいます。

'/////////////////////////////////////////////
Dim wsS As Worksheet
Dim r As Long
Dim Srow As Long

Set wsS = Worksheets("syukei")
Srow = wsS.Range("D65536").End(xlUp).Row
With Worksheets("syukei")
For r = 6 To Srow
If Cells(r, 12) = Noting Then
r = r
End If
Cells(r, 13) = Cells(r, 11) * Cells(r, 12)
Next
End With

With Worksheets("syukei") '↓////////ここらへんで止まる//////////
For r = 6 To Srow
If Cells(r, 14) = Noting Then
r = r
End If
Cells(r, 15) = Cells(r, 11) * Cells(r, 14)
Next
End With
End Sub

掛け算を入れたい行は、下記のようになっています。
Ｍ列＝Ｋ列×Ｌ列
Ｏ列＝Ｋ列×Ｎ列
Ｑ列＝Ｋ列×Ｐ列
Ｓ列＝Ｋ列×Ｒ列
Ｕ列＝Ｋ列×Ｔ列
Ｗ列＝Ｋ列×Ｖ列
Ｙ列＝Ｋ列×Ｘ列

よろしくお願いいたします。

回答No.1

TTak · ベストアンサー

rurucomさんこんにちは。記述されたコードの中の、Notingが定義されていないのが原因ではないでしょうか。たとえば、空白であれば、"" という記述でOKです。以下に、例を示してみましたので、試してみてください。この例では、ある列の最終行を取得する関数を作っています。また、空白や文字列などがデータに混在していて、計算できない場合は、エラーを無視しして進みますので、結果的に空白のセルが返されるはずです。

Sub TEST()
Dim r As Long '計算結果を書き込む行番号
Dim Srow As Long '計算結果を書き込む最下段の行番号
Dim cul As Integer '計算結果を書き込む列番号

On Error Resume Next 'エラーが発生しても処理を進める

With Sheets("syukei")
　　'culの値を12(L)から24(X)まで1つ飛びに増加させる
　　For cul = 12 To 24 Step 2
　　　'シートsyukeiのcul列目の最下段を調べる
　　　Srow = Myrec("syukei", cul)
　　　For r = 6 To Srow
　　　　If .Cells(r, cul) <> "" Then
　　　　　　.Cells(r, cul + 1) = _
　　　　　　　　.Cells(r, 11) * .Cells(r, cul)
　　　　End If
　　　Next r
　　Next cul
End With
End Sub

Function Myrec(stIndex, c As Integer) As Integer
'***使用されている行数を返す関数***

'stIndex 調べるシートの名前またはインデクス値
'c 調べる列番号
Myrec = Sheets(stIndex).Range(Sheets(stIndex).Cells _
(ActiveSheet.Rows.Count, c).End(xlUp).Address).Row
End Function

上記の２つのステートメントを貼り付けて実行してみてください。
不具合がある場合は再度ご質問ください。

お礼

ありがとうございました。
うまくいきました！！

回答No.2

X-Terra

For r = 6 To Srow
If (IsEmpty(Cells(r, 1)) Or IsEmpty(Cells(r, 2))) = True Then
Cells(r, 3) = "#n/a"
Else
Cells(r, 3) = Cells(r, 1) * Cells(r, 2)
End If
Next

にしてみてはいかがでしょう？
＃ただし、cells(r,*) の*は、適宜列にあわせて決めてください。
あと、同じ演算を何回もやるようなので、For ... Nextにまとめて記述してしまうのも良い手だと思いますよ。

お礼

ありがとうございました。
For～Nextやってみました。アドバイスありがとうございました。