Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8427 / 76732 ←次へ　｜　前へ→
【73879】Re:別シート検索してマッチすれば値を＋１
発言  UO3  - 13/2/27(水) 16:30 -
引用なし
パスワード
   ▼nonoka さん：

こんにちは

レイアウトは思いだしておりません。
また、コードも精査していません。
ただ、コードについてはおそらく、前回、私が提示したものに、項目を増やしただけだと思います。
あたるも八卦、あたらぬも八卦。

If x1 <= n1 And x2 <= n2 ・・・・・・And x14 <= n14 Then Exit Do

これを

If Sheets("holiday").Range("B4:S200").Find(What:=.Range("K1").Value, LookAt:=xlWhole) Is Nothing Then

　　If x1 <= n1 And x2 <= n2 ・・・・・・And x14 <= n14 Then Exit Do

End If

こうかえてお試しください。
295 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 回答
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8427 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free