Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5339 / 76807

←次へ　｜　前へ→


	【77081】Re:検索して集計するマクロ

kanabun - 15/5/15(金) 0:15 -


	引用なし

	パスワード

追加で、 Matchしたときに帰ってくる数値ですのことですが... >　Set sh2 = Workbooks("集計表.xlsm").Worksheets(2) >　Set RangeF = sh2.Range("F6:F115") >　　　　' 集計表ブックのF6からF115範囲にマッチするセルがあるか？ >　　　　MyR = Application.Match(.Cells(k, "C"), RangeF, 0) .Cells(k, "C") を範囲RangeF からMatch検索していますが、このとき MyR に 1 という数値が返ってきたとしますと、それは RangeFという範囲の 1番目のセルで一致という意味であることはご存知ですよね？ RangeF という範囲の1番目のセルを RangeF.Item(1) と表現します。 RangeF は sh2 の.Range("F6:F115") の範囲のことですから、その1番目のセルは具体的にはシート上の[F6]セルのことなのですが、いつもシート上の絶対番地になおさず、「検索範囲の何番目」というママの数値を使ったほうが複雑にならずに済みます。ところでコードでは RangeF.Item(MyR) とあらわさず、 > RangeF.Item(MyR, 7) という表記をしていますが、これは RangeF範囲の (1行目、7列目)のセルという意味です。 RangeF.Item(1,1) が [F6] RangeF.Item(1,2) が [G6] RangeF.Item(1,3) が [H6] RangeF.Item(1,4) が [I6] 　 : RangeF.Item(1,7) が [L6] ということで、 RangeF.Item(MyR, 7) は RangeF列の MyR行目のセルの右側7列目のセル、ということになります。下の RangeF.Item(1,11) も同じ考えで [P6] セルとなります。なお、Itemは省略可能ですから RangeF(1,11) と書くことも可能です。あと、　　　MyR = Application.Match(.Cells(k, "C").Value, RangeF, 0) と検索値を Valueをつけるのは良くないです。なぜなら Matchワークシート関数で検索値はセルの.Value値ではなくセルの .Value2 値だからです。たいていのばあい、セルのValue2値はセルの Value値と同じですが、日付のときはValue2値は 42345 などのシリアル数値です。 Value値(2015/5/15) でMatch検索しても絶対にヒットしません。　　　MyR = Application.Match(.Cells(k, "C").Value2, RangeF, 0) ↑このように、つけるなら Value2 通常は何もつけないでセルを書いておけばいいです。↓ 　　　MyR = Application.Match(.Cells(k, "C"), RangeF, 0)