Excel VBA質問箱 IV

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

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


2290 / 13645 ツリー ←次へ | 前へ→

【68900】指定の文字列を条件から除外 初心者です。 11/4/26(火) 1:36 質問[未読]
【68901】Re:指定の文字列を条件から除外 SK63 11/4/26(火) 1:42 発言[未読]
【68922】Re:指定の文字列を条件から除外 初心者です。 11/4/28(木) 0:02 発言[未読]
【68923】Re:指定の文字列を条件から除外 SK63 11/4/28(木) 1:12 回答[未読]
【68933】Re:指定の文字列を条件から除外 初心者です。 11/4/28(木) 23:23 お礼[未読]

【68900】指定の文字列を条件から除外
質問  初心者です。  - 11/4/26(火) 1:36 -

引用なし
パスワード
   指定文字列を条件から除外したいのですが、

たとえば、A列、B列にて重複チェックをし、
「333」はチェックしないよう設定したいのです。

ifステートメントで簡易に指定できますか?

【68901】Re:指定の文字列を条件から除外
発言  SK63  - 11/4/26(火) 1:42 -

引用なし
パスワード
   ▼初心者です。 さん:
>指定文字列を条件から除外したいのですが、
>
>たとえば、A列、B列にて重複チェックをし、
>「333」はチェックしないよう設定したいのです。
>
>ifステートメントで簡易に指定できますか?

出来ます(簡単かどうかは、個人差があるのでわかりませんが)

【68922】Re:指定の文字列を条件から除外
発言  初心者です。  - 11/4/28(木) 0:02 -

引用なし
パスワード
   SK63 さん

申し訳ないのですが、例として記載していただけないでしょうか?

参考にさせていただきますので、よろしくお願いします。

▼SK63 さん:
>▼初心者です。 さん:
>>指定文字列を条件から除外したいのですが、
>>
>>たとえば、A列、B列にて重複チェックをし、
>>「333」はチェックしないよう設定したいのです。
>>
>>ifステートメントで簡易に指定できますか?
>
>出来ます(簡単かどうかは、個人差があるのでわかりませんが)

【68923】Re:指定の文字列を条件から除外
回答  SK63  - 11/4/28(木) 1:12 -

引用なし
パスワード
   ▼初心者です。 さん:
>SK63 さん
>
>申し訳ないのですが、例として記載していただけないでしょうか?
>
>参考にさせていただきますので、よろしくお願いします。


Sub test()

Dim s1 As Integer, i As Integer
Dim str As String, strA As String

str = "333"

For i = 1 To 200
 strA = Range("A" & i)
  s1 = InStr(strA, str)
 If s1 <> 0 Then
  '指定文字がある場合の処理
 Else
  '指定文字が無い場合の処理
 End If
Next i

End Sub

【68933】Re:指定の文字列を条件から除外
お礼  初心者です。  - 11/4/28(木) 23:23 -

引用なし
パスワード
   ▼SK63 さん

返答ありがとございます。
大変参考になりました。
本当にありがとうございます。


▼SK63 さん:
>▼初心者です。 さん:
>>SK63 さん
>>
>>申し訳ないのですが、例として記載していただけないでしょうか?
>>
>>参考にさせていただきますので、よろしくお願いします。
>
>
>Sub test()
>
>Dim s1 As Integer, i As Integer
>Dim str As String, strA As String
>
>str = "333"
>
> For i = 1 To 200
> strA = Range("A" & i)
>  s1 = InStr(strA, str)
> If s1 <> 0 Then
>  '指定文字がある場合の処理
> Else
>  '指定文字が無い場合の処理
> End If
> Next i
>
>End Sub

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