Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8221 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【34541】VBA_文字列と数値の和について ねぎたま 06/2/5(日) 22:36 質問[未読]
【34543】Re:VBA_文字列と数値の和について [名前なし] 06/2/5(日) 23:50 発言[未読]
【34573】Re:VBA_文字列と数値の和について ねぎたま 06/2/6(月) 23:12 発言[未読]
【34544】Re:VBA_文字列と数値の和について ちくたく 06/2/6(月) 9:23 回答[未読]
【34574】Re:VBA_文字列と数値の和について ねぎたま 06/2/6(月) 23:15 発言[未読]
【34575】Re:VBA_文字列と数値の和について ちくたく 06/2/7(火) 6:54 発言[未読]
【34541】VBA_文字列と数値の和について
質問  ねぎたま  - 06/2/5(日) 22:36 -
引用なし
パスワード
   Excel VBAを用いて、数値の入ったセルと文字列の入ったセルの和を求めたとき、文字列は無視して数値のみの合計を求めたいのですがどのようにしたらよいでしょうか。
例えば、A1セル「1」、A2セル「2」、A3セル「・」と入っているとき、A1セル〜A３セルの和が「3」となる。
コードに「range("A5")=range("A1")+range("A2")+range("A3")」と書くとエラーがでます。（A3セルに数値を入れるとエラーはでません）
初歩的な質問かもしれませんがよろしくお願いいたします。
【34543】Re:VBA_文字列と数値の和について
発言  [名前なし]  - 06/2/5(日) 23:50 -
引用なし
パスワード
   ▼ねぎたま さん：

Range("A5").Value = WorksheetFunction.Sum(Range("A1:A3"))

なんてのはどうですか？
【34544】Re:VBA_文字列と数値の和について
回答  ちくたく WEB  - 06/2/6(月) 9:23 -
引用なし
パスワード
   ねぎたま さん。
おはようございます。
名前なしさんの回答が出ておりますが、情報として。
TypeNameを使って変数の型による判別をしています。
で、Ifでかませてみました。わざわざ的な書き方ですが。

Sub test()

　　Dim i As Integer
　　Dim tmpVal As Double
　　
　　tmpVal = 0
　　
　　For i = 1 To 3
　　　　If TypeName(Range("A" & i).Value) <> "String" Then
　　　　　　tmpVal = tmpVal + Range("A" & i).Value
　　　　End If
　　Next i
　　MsgBox tmpVal
End Sub
【34573】Re:VBA_文字列と数値の和について
発言  ねぎたま  - 06/2/6(月) 23:12 -
引用なし
パスワード
   ▼[名前なし] さん　ご回答ありがとうございます。

>Range("A5").Value = WorksheetFunction.Sum(Range("A1:A3"))

実は「Sum」関数をセルに入力させることも考えたのですが、複数のシートの単一セルを合計しようと思っていますので、プログラムが複雑になってしまいました。

もう少し、簡潔にできないかと思っているのですが…。

他の方法がありましたら、教えてください。
【34574】Re:VBA_文字列と数値の和について
発言  ねぎたま  - 06/2/6(月) 23:15 -
引用なし
パスワード
   ちくたく さん。
ご回答ありがとうございます。
>Sub test()
>
>　　Dim i As Integer
>　　Dim tmpVal As Double
>　　
>　　tmpVal = 0
>　　
>　　For i = 1 To 3
>　　　　If TypeName(Range("A" & i).Value) <> "String" Then
>　　　　　　tmpVal = tmpVal + Range("A" & i).Value
>　　　　End If
>　　Next i
>　　MsgBox tmpVal
>End Sub

実は複数のシートの単一セルを串刺し計算する予定です。シート数もセルの項目もかなりありますので、もう少しシンプルな方法がないのかな…と。

申し訳ありませんが、最も簡潔な方法がございましたら、お教えください。
【34575】Re:VBA_文字列と数値の和について
発言  ちくたく WEB  - 06/2/7(火) 6:54 -
引用なし
パスワード
   ねぎたま さん。
おはようございます。

>実は複数のシートの単一セルを串刺し計算する予定です。シート数もセルの項目もかな>りありますので、もう少しシンプルな方法がないのかな…と。

その具体的な仕様を教えてください。
コードの書きようはいろいろにあるのですが、
具体的な目的があるのでしたら、小出しにせずに、
最初に全部書くようにしてくださいね。

基本的には、こういった考え方だよ、的なことの、
アイディアを示していますだけですので。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8221 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free