Excel VBA質問箱 IV

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

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


7433 / 13644 ツリー ←次へ | 前へ→

【39223】関数からVBAにするには? あんちょび 06/6/20(火) 9:35 質問[未読]
【39224】Re:関数からVBAにするには? Kein 06/6/20(火) 9:57 回答[未読]
【39225】Re:関数からVBAにするには? あんちょび 06/6/20(火) 10:02 お礼[未読]

【39223】関数からVBAにするには?
質問  あんちょび  - 06/6/20(火) 9:35 -

引用なし
パスワード
   みなさん、初心者エクセルです。
以下の式をVBAにするにはどのような計算式になりますか?
=IF(COUNT(FIND("A",A1:B10))>0,"○","")
どなたかご教授お願いします

【39224】Re:関数からVBAにするには?
回答  Kein  - 06/6/20(火) 9:57 -

引用なし
パスワード
   Dim FR As Range

Set FR = Range("A1:B10").Find("A", , xlValues, xlPart)
If Not FR Is Nothing Then
  MsgBox "○": Set FR = Nothing
End If

というようなコードになります。A1:B10の範囲で "A" という文字を含む値
が入力されているセルを検索する、という処理です。

【39225】Re:関数からVBAにするには?
お礼  あんちょび  - 06/6/20(火) 10:02 -

引用なし
パスワード
   Keinさんおはようございます、あんちょびです。
すばやいレス本当にありがとうございました。早速やってみます。

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