Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2310 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2310 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free