Excel VBA質問箱 IV

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

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


8367 / 13644 ツリー ←次へ | 前へ→

【33698】#N/Aの場合にも比較したい。 k 06/1/18(水) 15:07 質問[未読]
【33700】Re:#N/Aの場合にも比較したい。 awu 06/1/18(水) 15:20 回答[未読]
【33701】Re:#N/Aの場合にも比較したい。 Jaka 06/1/18(水) 15:54 回答[未読]
【33703】Re:#N/Aの場合にも比較したい。 Statis 06/1/18(水) 16:01 回答[未読]
【33724】Re:#N/Aの場合にも比較したい。 k 06/1/19(木) 12:23 お礼[未読]

【33698】#N/Aの場合にも比較したい。
質問  k E-MAIL  - 06/1/18(水) 15:07 -

引用なし
パスワード
   A列とC列に証券名が入っています。
他のブックからVLOOKUP関数でQ列とR列に証券コードを表示させ、
・Q列とR列が同じだったら○○
・Q列とR列が違ったら××
というコードを書こうと思っています。

Dim j As Integer
For j = 7 To 3000
  Select Case Cells(j, "Q")
  Case Cells(j, "R").Value
   ○○

とコードを書いたのですが、
A列にある証券名がVLOOKUP関数で使っている範囲にない場合は、Q列に#N/Aと表示されるため、Case Cells(j, "R").Valueの部分で「型が一致しません。」のエラーが表示されます。

#N/Aの場合にも、
・Q列とR列が同じだったら○○
とするにはどうしたら良いのでしょうか。

【33700】Re:#N/Aの場合にも比較したい。
回答  awu  - 06/1/18(水) 15:20 -

引用なし
パスワード
   比較対象セルの書式が同じなら こんな感じで如何でしょうか。

Select Case Cells(j, "Q").Text
  Case Cells(j, "R").Text
   ○○

【33701】Re:#N/Aの場合にも比較したい。
回答  Jaka  - 06/1/18(水) 15:54 -

引用なし
パスワード
   >Dim j As Integer
>For j = 7 To 3000
  If Not IsError(Cells(j, "Q")) Then
>   Select Case Cells(j, "Q")
>   Case Cells(j, "R").Value
>    ○○
  End if

【33703】Re:#N/Aの場合にも比較したい。
回答  Statis  - 06/1/18(水) 16:01 -

引用なし
パスワード
   こんにちは
単純にQ列とR列の値の比較ですよね?
なら「Select Case」を使う必要がないのでは?
これで如何かな?

Dim j As Long
For j = 7 To 3000
  If Cells(j,17).Text = Cells(j,18).Text Then
    Cells(j,?).Value="○○○"
  Else
    Cells(j,?).Value="×××"
  End If
Next j


尚、「?」は入力する列が判りませんのでそちらで変更して下さい。

【33724】Re:#N/Aの場合にも比較したい。
お礼  k E-MAIL  - 06/1/19(木) 12:23 -

引用なし
パスワード
   awuさん、Jakaさん、Statisさんありがとうございました。

8367 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free