Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9883 / 13646 ツリー ←次へ | 前へ→

【24968】値の出し方 ミレニア 05/5/16(月) 12:09 質問[未読]
【24969】Re:値の出し方 Jaka 05/5/16(月) 12:27 回答[未読]
【24970】Re:値の出し方 ミレニア 05/5/16(月) 12:54 お礼[未読]

【24968】値の出し方
質問  ミレニア E-MAIL  - 05/5/16(月) 12:09 -

引用なし
パスワード
   初心者丸出しの質問で申し訳ないですが、以下のマクロにおいてご教授頂ければと思い投稿させて頂きました。

  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列にそれぞれの列の合計数が入る計算式のような物を入力する方法はないでしょうか?よろしくお願い致します。

【24969】Re:値の出し方
回答  Jaka  - 05/5/16(月) 12:27 -

引用なし
パスワード
   こんにちは。
素直に関数を入れてやれば良いです。

Range("F" & lnglastrow).Formula = "=sum(G" & lnglastrow & ":K" & lnglastrow & ")"

関数を数値に変えたいのなら
Range("F" & lnglastrow).Value = Range("F" & lnglastrow).Value
追加

【24970】Re:値の出し方
お礼  ミレニア E-MAIL  - 05/5/16(月) 12:54 -

引用なし
パスワード
   早速の回答ありがとうございました。
無事解決致しました。

あまりにも簡単なことに気がつかないで居て恥ずかしいやら・・・。
本当にありがとうございました。

9883 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free