Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8378 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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さんありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8378 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free