-2
私は実際のものを見つける必要がありますか?ある範囲の細胞である。私はこのコードを使用しています:実際のところをお探しですか? in excel vba
Dim rCell As Range
Dim rArea As Range
' set range variable = Column in the active sheet.
Set rCell = Range("g1")
Set rArea = Range("g2:g" & countusers)
For Each rCell In rArea
With rCell
Dim Qmark As Integer
If InStr(1, (rCell.Value), "~?") > 0 Then
MsgBox "Cell " & rCell.Address & "has a question mark in it"
Qmark = Qmark + 1
End If
私は〜を疑問符の前に置きますが、機能しません。 ありがとうございました
'InStr'メソッドはチルダ'〜 'を必要としないので、削除してください。 'Range.Find'メソッドを使用している場合は、チルダだけが必要です – tigeravatar