エクセルの学校：全文検索：Hyper Estraier：エラー値 #N/A

Results of 1 - 1 of about 228 for エラー値 #N/A (0.017 sec.)

エラー値 (860), #n/a (1385)

[[20200713194203]]: #score: 10843; @digest: d1802a35f8584d50de73ddb747e8c4d8; @id: 84452; @mdate: 2020-07-13T12:37:45Z; @size: 2019; @type: text/plain; #keywords: 目)" (20029), 性的 (5655), きカ (3868), ね…! (3722), ク() (2093), 回目 (2026), 可読 (1310), 読性 (1304), マナ (1190), カウ (978), 月) (927), ょこ (825), cnt (702), 2020 (681), ウン (595), 。ra (592), 省略 (588), 型が (573), 件付 (559), 実施 (524), トア (490), 略し (472), 未入 (461), で条 (456), value (449), ナさ (448), ント (444), （ち (403), 一致 (396), range (393), コメ (357), トあ (355); 『VBAで条件付きカウントをしたい』（ちょこ）
VBAで条件付きのカウントアップを行い、表示させたいです。しかし、1回目から変わらず困っています。 cnt=0で宣言しているので実施する度に0に戻ってしまうからだと思うのですが、適切なやり方が思いつきません…。 ↓現在（IF文の最後なのでElseのみです） cnt = 0 ・・・ Else: cnt = cnt + 1 Range("D9").Value = "(" & cnt & "回)" ＜使用 Excel:Excel2010、使用 OS:Windows10 ＞ ---- 省略しすぎです。（マナ） 2020/07/13(月) 20:21 ---- すみません、省略しすぎました… ↓追記 Sub チェック() cnt = 0 If Range("A1").Value = "" Then MsgBox "未入力です" ElseIf Range("A1").Value = "0" Then MsgBox "「0」は設定できません" Else: Range("A1").Value = "(" & cnt + 1 & "回目)" End If （ちょこ） 2020/07/13(月) 20:56 ---- ＞条件付きカウントをしたい何をカウントしたいのですか。どんな結果を期待しているのでしょうか。こういうことですか。 Range("A1").Value = Range("A1").Value + 1 （マナ） 2020/07/13(月) 21:12 ---- マナさん続けてコメントありがとうございます。やりたいこととしては記載して頂いたものと同じです! しかし、下記のようにすると型が一致しません、というエラーが出てしまいます。 Range("A1").Value = "(" & Range("A1").Value + 1 & "回目)" （ちょこ） 2020/07/13(月) 21:22 ---- ＞型が一致しませんそのエラーが出るときに、Range("A1").Valueは何になっていますか? 仮に"(1回目)" となっているなら、それはもう文字列ですから足し算できないですよね。（もこな2 ） 2020/07/13(月) 21:28 ---- できないこともありませんが書式設定の表示形式ではだめなのですか。 Range("A1").Value = "(" & Val(Mid(Range("A1").Value, 2)) + 1 & "回目)" （マナ） 2020/07/13(月) 21:30 ---- もこな2さんコメントありがとうございます。あぁぁ、なるほどです、そういうことなんですね…!! マナさん返信ありがとうございます。そうなるんですね…!それなら可読性的にも書式設定にします… 皆さまありがとうございました。（ちょこ） 2020/07/13(月) 21:37 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202007/20200713194203.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ