エクセルVBA100本ノック。6本目：セルに計算式

この記事から得るもの

R１C１参照で、セルに計算式を入れる方法が分かる。

目次
　１　今回のお題
　２　今回のお題の意図
　３　回答
　４　特定の文字列が含まれているか判断する　

１　今回のお題

画像のようにA1から始まる表があります。
C列にA列×B列の計算式を入れてください。
ただし商品コードに"-"の枝番が付いている場合は計算式を入れずそのままにしてください。
例.C2にはA2×B2の計算式を入れる。C4:C5には計算式を入れない。

注：おそらく列Ｃではなく列Ｄですが、その辺は気にせずいきましょう！

f:id:bimori466:20201105072048p:plain

excel-ubara.com

２　今回のお題の意図

１　計算結果ではなく、計算式を代入すること。
２　特定の文字列が含まれているか判断する処理を考えること。

３　回答

私の最初の回答

Sub ノック6本目_1()

Dim LastLine As Long
Dim Ws As Worksheet: Set Ws = Worksheets("Sheet1")
Dim ItemNo As String

'最終行の取得
LastLine = Ws.Cells(Rows.Count, 1).End(xlUp).Row

For k_ItemNo = 2 To LastLine
    ItemNo = Ws.Cells(k_ItemNo, 1)
    
    If InStr(ItemNo, "-") = 0 Then
        Ws.Cells(k_ItemNo, 4) = Ws.Cells(k_ItemNo, 2) * Ws.Cells(k_ItemNo, 3)
        Ws.Cells(k_ItemNo, 4).NumberFormatLocal = "\#,##0;\-#,##0"
    End If
Next

End Sub

数式を代入できてないですね(;^ω^)。
Ws.Cells(k_ItemNo, 4) = Ws.Cells(k_ItemNo, 2) * Ws.Cells(k_ItemNo, 3)、で定数を入れていることになるんですね。お題の意図が分かっていませんでした。

私は、数式を直接代入するという記述は使ってませんでした。なぜなら、セルに数式入れるとファイルが重くなります。それが嫌なので、ＶＢＡで計算した結果（定数）を入れる。こんなポリシーをもっておりました。そんなポリシーを持つようになったきっかけが、１０万行のVlookupです。セルの数式に入れて実行すると固まるんですよね。しかしＶＢＡで実行すると固まらずにすんなり終わる。この経験からセルに数式は入れないようにしようと思いました。

まえおきが長くなりましたが、結論「数式の入れ方を知らない」ということです(;^ω^)。なので、回答をカンニングしました。

最終回答

Sub ノック6本目_2()

Dim LastLine As Long
Dim Ws As Worksheet: Set Ws = Worksheets("Sheet1")
Dim ItemNo As String

'最終行の取得
LastLine = Ws.Cells(Rows.Count, 1).End(xlUp).Row

For k_ItemNo = 2 To LastLine
    ItemNo = Ws.Cells(k_ItemNo, 1)
    
    If InStr(ItemNo, "-") = 0 Then
        Ws.Cells(k_ItemNo, 4).FormulaR1C1 = "=RC[-2]*RC[-1]"
    End If
Next

End Sub