Excel VBA質問箱 IV

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

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


63544 / 76732 ←次へ | 前へ→

【17783】Re:禁止文字
回答  Kein  - 04/9/7(火) 17:49 -

引用なし
パスワード
   Sub Check_CellSt()
  Dim MyR As Range, C As Range
  Dim ObjRE As Object, Match As Object, Matches As Object
  Dim CkSt As String, Ck As Boolean
 
  On Error GoTo ErLine
  Set MyR = Range("D:D").SpecialCells(2)
  On Error GoTo 0
  Set ObjRE = CreateObject("VBScript.RegExp")
  With ObjRE
   .Pattern = "\W"
   .Global = True
  End With
  For Each C In MyR
   CkSt = StrConv(C.Text, vbNarrow)
   If ObjRE.Test(CkSt) Then
     Ck = False: Set Matches = ObjRE.Execute(CkSt)
     For Each Match In Matches
      If Match.Value <> "_" Then
        Ck = True: Exit For
      End If
     Next
     Set Matches = Nothing
     If Ck = True Then C.Interior.ColorIndex = 3
   End If
  Next
ErLine:
  Set MyR = Nothing: Set ObjRE = Nothing
End Sub

で、どうでしょーか ? 英数とアンダースコア以外の文字が入力されたセルを、
赤で塗りつぶしてます。
正規表現で「かつ(And)」というPatternが設定できれば、\W にアンダースコア抜きの
意味を含ませることが出来るのですが、私には分かりません。どなたかご存知の方は、
レスをお願いします。m(_ _)m

1 hits

【17753】禁止文字 KAME 04/9/7(火) 10:23 質問
【17755】Re:禁止文字 IROC 04/9/7(火) 10:32 回答
【17758】Re:禁止文字 こもれび 04/9/7(火) 10:54 発言
【17766】Re:禁止文字 KAME 04/9/7(火) 14:59 質問
【17768】Re:禁止文字 こもれび 04/9/7(火) 15:10 発言
【17772】Re:禁止文字 KAME 04/9/7(火) 15:37 質問
【17778】Re:禁止文字 IROC 04/9/7(火) 16:39 回答
【17783】Re:禁止文字 Kein 04/9/7(火) 17:49 回答
【17793】Re:禁止文字 KAME 04/9/7(火) 21:59 お礼
【17795】Re:禁止文字 ちゃっぴ 04/9/7(火) 23:22 回答
【17801】Re:禁止文字 IROC 04/9/8(水) 8:37 回答
【17802】Re:禁止文字 ちゃっぴ 04/9/8(水) 9:06 回答
【17803】Re:禁止文字 IROC 04/9/8(水) 9:32 回答
【17841】Re:禁止文字 KAME 04/9/8(水) 18:16 質問
【17843】Re:禁止文字 KAME 04/9/8(水) 18:20 発言
【17850】Re:禁止文字 ちゃっぴ 04/9/8(水) 19:16 回答
【17853】Re:禁止文字 KAME 04/9/8(水) 19:39 質問
【17869】Re:禁止文字 ちゃっぴ 04/9/9(木) 9:30 回答
【17870】Re:禁止文字 KAME 04/9/9(木) 11:13 お礼

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