エクセルの学校：全文検索：Hyper Estraier： VBA��

Results of 1 - 1 of about 14729 for VBA�� (0.003 sec.)

[[20200911000430]]: #score: 3408; @digest: 6cba9b39fe78ae06f201d9a3675a25e0; @id: 85128; @mdate: 2020-09-11T01:17:50Z; @size: 1938; @type: text/plain; #keywords: 角含 (5832), 象? (3974), 効活 (3931), 値っ (2309), isnumeric (1617), ビギ (1526), ギナ (1507), ト関 (1200), の和 (1074), クシ (951), 無視 (793), 高橋 (792), 素直 (783), 承知 (770), ナー (678), cells (667), 数字 (652), はvb (562), 数値 (549), isnumber (511), 除い (496), ーク (492), 文字 (491), 区別 (466), ワー (448), 判定 (447), 関数 (445), ダム (398), 字列 (392), を除 (385), 実現 (370), ルa1 (364); 『SUM関数で文字列が無視されるのをVBAで実現するには?』（VBAビギナー）
お世話になります。セルA1〜E5にランダムで数字が入っており、F列に行ごとの和を出すとします。 ⇒関数だと【F1=SUM(A1:E1)】【F2=SUM(A2:E2)】・・・これはVBAだと Sub test() Dim i As Long For i = 1 To 5 Cells(i, 6) = Cells(i, 1) + Cells(i, 2) + Cells(i, 3) + Cells(i, 4) + Cells(i, 5) Next i End Sub 上記でできることが分かりました。では、例えばC1セルに「無」という文字列が入っており、だけど文字列を除いた数字の和を求めたい場合はどうすれば良いのでしょうか? 上記の書き方ではエラーになってしまい、困っています。もちろん、これはVBAなど使わず素直にSUM関数でやったほうが良いのは承知しているのですが… どうしてもVBAでの書き方が知りたくなりました。どうぞ、よろしくお願いいたします。＜使用 Excel:Excel2016、使用 OS:unknown ＞ ---- ワークシートファンクションを使う・・・では解決にならないのでしょうね。 IsNumeric関数で数値っぽいときは足し算をして、数値っぽくないときは無視をするという処理でいかがでしょうか。 Sub test() Dim i As Long,j As Long For i = 1 To 5 Cells(i, 6) = 0 For j = 1 to 5 If IsNumeric(Cells(i, j) Then Cells(i, 6) = Cells(i, 6) + Cells(i, j) End if Next j Next i End Sub （高橋） 2020/09/11(金) 00:44 ---- VBAですからねぇ。（「A」ってエクセルの事です） VBAでも、ワークシート関数は有効活用した方がいいと思う。（半平太） 2020/09/11(金) 09:29 ---- >文字列を除いた数字の和これの意味は、文字の数字は無視で良いんですか? 数値のみ対象? この辺しっかり書いた方が良いですよ。数値と文字の数字を分けてくれないと数値と数字（文字）の区別できてますか? SUM関数は、数値のみが対象ですが、 IsNumeric で判定をすると、文字の数字は（全角含む）通ってしまいます。この判定で出てくるのが、やっぱりワークシート関数のIsnumber。やっぱり、SUM関数を使った方が簡単ですかね。（Why） 2020/09/11(金) 10:14 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202009/20200911000430.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ