|
初心者丸出しの質問で申し訳ないですが、以下のマクロにおいてご教授頂ければと思い投稿させて頂きました。
Dim lnglastrow As Long
'入力されている最終行番号を取得
lnglastrow = Range("a65536").End(xlUp).Row
'未入力状態かどうかを判定
If lnglastrow = 2 Then
lnglastrow = 3
Else
lnglastrow = lnglastrow + 1
End If
'ワークシートに記載する
With Me
Range("a" & lnglastrow).Value = .indateBox.Value
Range("e" & lnglastrow).Value = .kubunBox.Value
Range("b" & lnglastrow).Value = .opendateBox.Value
Range("c" & lnglastrow).Value = .DRnamebox.Value
Range("d" & lnglastrow).Value = .DRnobox.Value
Range("g" & lnglastrow).Value = .noteBox.Value
Range("h" & lnglastrow).Value = .pcBox.Value
Range("i" & lnglastrow).Value = .crtBox.Value
Range("j" & lnglastrow).Value = .liquidBox.Value
Range("k" & lnglastrow).Value = .otherBox.Value
Range("l" & lnglastrow).Value = .palettebox.Value
Range("m" & lnglastrow).Value = .kaisyubox.Value
End With
Unload Me
'フォーム閉じる
End Sub
このg列からk列迄は数値がはいるので、f列にそれぞれの列の合計数が入る計算式のような物を入力する方法はないでしょうか?よろしくお願い致します。
|
|