Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7447 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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さんおはようございます、あんちょびです。
すばやいレス本当にありがとうございました。早速やってみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7447 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free