Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7198 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【40582】複数の合計 てつじ 06/7/18(火) 15:09 質問[未読]
【40585】Re:複数の合計 ｍ2ｍ10 06/7/18(火) 15:44 回答[未読]
【40589】Re:複数の合計 てつじ 06/7/18(火) 15:58 質問[未読]
【40590】Re:複数の合計 ｍ2ｍ10 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:複数の合計
回答  ｍ2ｍ10  - 06/7/18(火) 15:44 -
引用なし
パスワード
   こんちは

　ＶＢＡ　でシート関数が使えます。

Application.WorksheetFunction

例　
Range("A1") = Application.WorksheetFunction.Sum(Range("D4:AS4"))
【40589】Re:複数の合計
質問  てつじ  - 06/7/18(火) 15:58 -
引用なし
パスワード
   ▼ｍ2ｍ10 さん：
>こんちは
>
>　ＶＢＡ　でシート関数が使えます。
>
>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:複数の合計
回答  ｍ2ｍ10  - 06/7/18(火) 16:15 -
引用なし
パスワード
   こんちは

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

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


　です。

　少し違ったので再度。
【40591】Re:複数の合計
お礼  てつじ  - 06/7/18(火) 16:27 -
引用なし
パスワード
   ▼ｍ2ｍ10 さん：
>こんちは
>
>Mys = Me.ComboBox1
>^^^　= シートの名前でしたら。
>
>　＝Application.WorksheetFunction.Sum(Sheets(Mys).Range("d4:as4"))
>
>
>　です。
>
>　少し違ったので再度。

なるほど、できました。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7198 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free