【知りたい事】
以下コードを事項すると、メッセージBOXに100と表示されます
私は、高橋が全部で2行分あるので、セルD2の1とD3 100を足して
変数Aには、101 が格納されていると思います
しかし、答えが100なのが、疑問です
ご存じの方、教えて下さい
【表】
A列 B C D
1行 鈴木 1 1 1
2行 高橋 1 1 1
3行 高橋 100 100 100
【コード動きます】
Sub 変数について()
Dim i As Long, A As Long
For i = 1 To 3
If Cells(i, 1) = "高橋" Then
A = Cells(i, 1).Offset(0, 2)
End If
Next i
MsgBox A
End Sub
No.3ベストアンサー
- 回答日時:
足し算していないという事はすでに回答されている通りです。
ですので足し算するというのは正解なんですが……。
A = Cells(i, 1).Offset(0, 2)
↓
A = A + Cells(i, 1).Offset(0, 2)
(´・ω・`) 本当にこれで良いのかなぁ。
質問文には、D2セルとD3セルの値を足したいような事が書かれています。
細かいようですが、
A = A + Cells(i, 1).Offset(0, 2)
↓
A = A + Cells(i, 1).Offset(0, 3)
のような気がするんだよね。
ご指摘ありがとうございます
D列の指定は、A列からみて⇒Offsetに(0, 3)でした
A = A + Cells(i, 1).Offset(0, 3)
No.2
- 回答日時:
Aには何も足して無いよ。
足し算しないと。A=0 ←←←追加する
For i = 1 To 3
If Cells(i, 1) = "高橋" Then
A = A + Cells(i, 1).Offset(0, 2) ←←←修正する
End If
Next i
MsgBox A
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
【マクロ】Ifとwith ステートメントにて分からない部分があります
Excel(エクセル)
-
Excelの数式の効率化について
Excel(エクセル)
-
Excelで特定の文字列が含まれているか確認したい
Excel(エクセル)
-
-
4
[関数得意な方]教えて下さい・・[困ってます]
Excel(エクセル)
-
5
CSVファイルについて質問です。
Excel(エクセル)
-
6
エクセルの「入力規則」のプルダウンメニュの▼をセルの左側に出したい
Excel(エクセル)
-
7
データチェックを行うエクセルマクロをおしえてほしい
Excel(エクセル)
-
8
Excel 対象のセルに入力が無いとセルに入力できないようにしたい
Excel(エクセル)
-
9
【ExcelVBA】UTF-8(BOM無)でCSV保存するには?
Excel(エクセル)
-
10
Excelの数値の小数点表示について質問です
Excel(エクセル)
-
11
【マクロ】functionプロシージャの、変数について
Excel(エクセル)
-
12
【マクロ】AブックからBブックへセルの値コピーにおけるブックのアクティブについて
Excel(エクセル)
-
13
エクセルを使用して、円周率を表示させる方法
Excel(エクセル)
-
14
重複しない値を取り出したい
Excel(エクセル)
-
15
Excelで、10000,20000,30000と表示されているのですが、時々10000,20000
Excel(エクセル)
-
16
エクセルで不等号記号(≠)が上にずれて表示される
Excel(エクセル)
-
17
エクセルの神よ、ご回答を! エクセルのコメント欄について質問2点。
Excel(エクセル)
-
18
Excelはなんで先頭の0を消すんですか?しかもCSVとかもなんでそもそも勝手に元のデータ変えるのに
Excel(エクセル)
-
19
自動入力で今月はMONTH(TODAY())で良いのですが、翌月はどのようにすれば良いでしょうか。
Excel(エクセル)
-
20
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
数学の質問です。 3で割ると2余...
-
7で割ると2余り、11で割ると3余...
-
数IIで分からない問題があるの...
-
組立除法をする時の因数の見つけ方
-
微分
-
(2)番で接点のx座標を文字でお...
-
階差数列について質問したいの...
-
連立方程式 代入法の原理 加減...
-
「Access」のフォームで、同じ...
-
割り算の余りと商を求める連立式
-
恒等的に正しいとはどういう意...
-
整数問題について
-
Access VBA クリップボードの内...
-
数列の極限の問題で、1/(−1)∧n...
-
角度が無理数になる三角形について
-
6、7の問題について、教えてく...
-
高2数学 軌跡
-
よろしくお願いします。
-
等加速度直線運動の時間消去の...
-
数列の証明
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
恒等的に正しいとはどういう意...
-
隣り合う平方数の大きい数から...
-
SPIの問題
-
数Bの数列の問題です。 正の奇...
-
平衡定数の求め方について、ΔG=...
-
右のような図形の時、方程式が...
-
数学の質問です。 3で割ると2余...
-
高2数学 軌跡
-
【マクロ】Fon nextステートメ...
-
4元連立方程式の解き方を教えて...
-
二次関数
-
「Access」のフォームで、同じ...
-
ライニプッツの公式に関してで...
-
3で割ると2余り,5で割ると3余...
-
w=1/z−iのときz平面上の図形は...
-
SPIの問題でわからないところが...
-
円の方程式
-
連想配列の初期化
-
大、小2つの数がある。大きい数...
-
エクセル 2/3乗
おすすめ情報