Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8442 / 76732 ←次へ　｜　前へ→
【73864】別シート検索してマッチすれば値を＋１
質問  nonoka  - 13/2/26(火) 11:09 -
引用なし
パスワード
   いつもお世話になりありがとうございます。

VBNｺｰﾄﾞの途中にCallで下記コード入れました。

メインのコードで計算していて、計算の途中に下記処理を挟みたいと思っています。
そのなかで検索する値をどう設定していいのかわかりません。
これでは不可能というか考え方が間違っていますか？

下記コードはまだテスト段階で題名と不一致です。
検索する値を設定出来ればこれも設定可能かと思っています。
ご教授ください。宜しくお願い申し上げます。


Sub Search()
　　Dim rngTarget　 As Range
　　Dim rngFind　　 As Range

　　' 検索する範囲
　　Set rngTarget = Sheets("holiday").Columns("B4:S200")
　　' 検索
　　Set rngFind = rngTarget.Find("検索する値")

　　If rngFind Is Nothing Then
　　　　MsgBox "既存データは存在しません。"
　　Else
　　　　MsgBox "既存データが存在します。"
　　End If
End Sub
304 hits
▼ 【73864】別シート検索してマッチすれば値を＋１ nonoka 13/2/26(火) 11:09 質問≪
【73865】Re:別シート検索してマッチすれば値を＋１ UO3 13/2/26(火) 12:36 発言
【73866】Re:別シート検索してマッチすれば値を＋１ nonoka 13/2/26(火) 13:19 質問
【73867】Re:別シート検索してマッチすれば値を＋１ nonoka 13/2/26(火) 15:54 質問
【73878】Re:別シート検索してマッチすれば値を＋１ UO3 13/2/27(水) 10:41 発言
【73879】Re:別シート検索してマッチすれば値を＋１ UO3 13/2/27(水) 16:30 発言
【73880】Re:別シート検索してマッチすれば値を＋１ nonoka 13/2/27(水) 17:03 回答
【73894】Re:別シート検索してマッチすれば値を＋１ nonoka 13/3/18(月) 15:49 回答
【73903】Re:別シート検索してマッチすれば値を＋１ UO3 13/3/19(火) 5:44 発言
【73904】Re:別シート検索してマッチすれば値を＋１ nonoka 13/3/19(火) 9:27 発言
【73905】Re:別シート検索してマッチすれば値を＋１ UO3 13/3/19(火) 9:44 発言
【73906】Re:別シート検索してマッチすれば値を＋１ UO3 13/3/19(火) 9:50 発言
【73907】Re:別シート検索してマッチすれば値を＋１ nonoka 13/3/19(火) 9:59 回答
【73908】Re:別シート検索してマッチすれば値を＋１ UO3 13/3/19(火) 10:50 発言
【73909】Re:別シート検索してマッチすれば値を＋１ nonoka 13/3/19(火) 11:14 回答
【73910】Re:別シート検索してマッチすれば値を＋１ UO3 13/3/19(火) 13:59 発言
【73916】Re:別シート検索してマッチすれば値を＋１ nonoka 13/3/19(火) 19:10 質問
【73917】Re:別シート検索してマッチすれば値を＋１ nonoka 13/3/19(火) 19:19 質問
【73918】Re:別シート検索してマッチすれば値を＋１ nonoka 13/3/19(火) 19:37 お礼
【73911】Re:別シート検索してマッチすれば値を＋１ UO3 13/3/19(火) 14:01 発言
【73912】Re:別シート検索してマッチすれば値を＋１ UO3 13/3/19(火) 15:31 発言
【73915】Re:別シート検索してマッチすれば値を＋１ nonoka 13/3/19(火) 18:29 回答
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8442 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free