Results of 1 - 1 of about 228 for エラー値 #N/A (0.017 sec.)
エラー値 (861), #n/a (1385)
- [[20230911222553]]
- #score: 10842
- @digest: 702f096433e9a02433496d5911012a70
- @id: 95058
- @mdate: 2023-09-11T19:38:22Z
- @size: 1963
- @type: text/plain
- #keywords: ドye (7055), ド← (6633), 版su (6590), 類件 (6309), 値行 (4510), 理マ (3788), yes (2842), 件以 (1893), ー行 (1878), ー値 (1657), 本番 (1399), も貼 (1117), iserror (1084), ス頂 (998), 値化 (941), 記元 (921), と# (856), 分類 (803), cells (762), 転記 (697), 件数 (642), 変勉 (633), 表題 (628), 元デ (625), 行も (556), microsoft365 (480), error (472), エラ (460), value (449), ラー (429), 目名 (407), 今度 (397)
- 『エラー値の処理 マクロ』(ぷりん)
表題の件、教えてください。 <元データ> 項目名は1行目のA列から始まるものとする。 コード Yes/No 分類 件数 a Yes no 20 b No 1 1 c Yes 2 #VALUE! d Yes 2 3 a Yes 3 2 f No 3 3 a Yes #N/A 20 a Yes 3 20 上記元データで、B列がYesでC列の分類がno以外で、D列の件数が3件以上の場合、E列-H列の同じ行にデータをそのまま転記したいです。 #N/Aと#VALUEは数式ではなく、値に変換したものとなっています(本番では他のファイルに転記したいので、数式を全て値化してから転記する仕様にしているため) まずループでIF文で条件を組んだら、エラー値があるからか「型が一致しません」と出ました。 そこで、On Error Resume Next 〜 処理 〜 On Error GoTo 0 を入れてみたところ、今度は止まらずに動いたのですが、#N/Aと#VALUEの行も転記されてしまいました。 「no」でもなく、「3件以上」にも該当しないはずなのに、なぜエラー値行も貼りついてしまうのかが不明です。 考えたコード ←エラー行も貼りついてしまう版 Sub test() Dim l As Long For l = 2 To 9 On Error Resume Next If Cells(l, "B").Value = "Yes" And Cells(l, "C").Value <> "no" And Cells(l, "D").Value >= 3 Then Cells(l, "A").Resize(, 4).Copy Cells(l, "E") End If Next On Error GoTo 0 End Sub アドバイス頂けますと幸いです。 < 使用 Excel:Microsoft365、使用 OS:Windows10 > ---- こうですか? Sub test() Dim l As Long For l = 2 To 9 If Not (IsError(Cells(l, "C").Value) Or IsError(Cells(l, "D").Value)) Then If Cells(l, "B").Value = "Yes" And Cells(l, "C").Value <> "no" And Cells(l, "D").Value >= 3 Then Cells(l, "A").Resize(, 4).Copy Cells(l, "E") End If End If Next End Sub (xyz) 2023/09/11(月) 23:36:31 ---- xyz様 ありがとうございます!!出来ました。 IsError(エラーかどうか)をそれぞれTrue, Falseで判定させて、それをNotの中に入れるのですね… 入れ子の方法がどうしても分からなかったのですが、大変勉強になりました! (ぷりん) 2023/09/12(火) 04:38:22 ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/202309/20230911222553.txt
- [detail]
- similar
PREV
NEXT
Powered by
Hyper Estraier 1.4.13, with 97021 documents and 608149 words.
訪問者: