Excel VBA質問箱 IV

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

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


7198 / 13644 ツリー ←次へ | 前へ→

【40582】複数の合計 てつじ 06/7/18(火) 15:09 質問[未読]
【40585】Re:複数の合計 m2m10 06/7/18(火) 15:44 回答[未読]
【40589】Re:複数の合計 てつじ 06/7/18(火) 15:58 質問[未読]
【40590】Re:複数の合計 m2m10 06/7/18(火) 16:15 回答[未読]
【40591】Re:複数の合計 てつじ 06/7/18(火) 16:27 お礼[未読]

【40582】複数の合計
質問  てつじ  - 06/7/18(火) 15:09 -

引用なし
パスワード
   form上のtextboxにsheetのD4からAS4の「和」を表示させたいのですが、
D4+E4ならわかるのですが、沢山ある合計となると、どうコードを記入すればよいかわかりません。sheet上に関数を記入するばあい、=SUM(D4:AS4)でいいと思うのですが、コードを記入するとなると・・・・。
sheet上で計算させて、formに表示させるのは簡単なのですが、できればコードを知りたいです。
よろしくお願い致します。

【40585】Re:複数の合計
回答  m2m10  - 06/7/18(火) 15:44 -

引用なし
パスワード
   こんちは

 VBA でシート関数が使えます。

Application.WorksheetFunction

例 
Range("A1") = Application.WorksheetFunction.Sum(Range("D4:AS4"))

【40589】Re:複数の合計
質問  てつじ  - 06/7/18(火) 15:58 -

引用なし
パスワード
   ▼m2m10 さん:
>こんちは
>
> VBA でシート関数が使えます。
>
>Application.WorksheetFunction
>
>例 
>Range("A1") = Application.WorksheetFunction.Sum(Range("D4:AS4"))

form上のcomboboxで選んだ月のシートのセルの合計をform上に表示させたいのですが、下記では駄目ですか?

Mys = Me.ComboBox1

TextBox47.Value = Worksheets(Mys).Application.WorksheetFunction.Sum(Range("D4:AS4"))

【40590】Re:複数の合計
回答  m2m10  - 06/7/18(火) 16:15 -

引用なし
パスワード
   こんちは

Mys = Me.ComboBox1
^^^ = シートの名前でしたら。

 =Application.WorksheetFunction.Sum(Sheets(Mys).Range("d4:as4"))


 です。

 少し違ったので再度。

【40591】Re:複数の合計
お礼  てつじ  - 06/7/18(火) 16:27 -

引用なし
パスワード
   ▼m2m10 さん:
>こんちは
>
>Mys = Me.ComboBox1
>^^^ = シートの名前でしたら。
>
> =Application.WorksheetFunction.Sum(Sheets(Mys).Range("d4:as4"))
>
>
> です。
>
> 少し違ったので再度。

なるほど、できました。ありがとうございました。

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