Excel VBA質問箱 IV

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

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


29483 / 76732 ←次へ | 前へ→

【52530】月間データ範囲取得について
質問  yata  - 07/11/17(土) 20:30 -

引用なし
パスワード
   こんばんわ
度々お世話になって感謝してます。
今回は以下のことをお願いいたします。

フォームのテキストボックスへ月名を入れて、Sheet1のA2から下の日付データの該当する一番上の行と、一番下の行を取得するため、下の様にしてみましたがこれで問題は無いでしょうか?

最初、上の行はFind関数で、下の行はMACTHワークシート関数でと思ったのですが、どうもMatch関数がうまく行きません。
12月の下に1月が続くとうまく行きませんでした。

1行目は項目行
A2から下へ7月から1年分の日付が入ります。
仮にB列へA列の月名だけを =MONTH(A2) 以下で月名だけ取り出しておく方法をこの掲示板で拝見しましたので利用させて頂いてます。

Sub Test()
Dim myM As String
Dim firstRow As Long, lastRow As Long
Dim f1 As Range, f2 As Range

myM = Range("C1").Value 'テキストボックスの代わり

Set f1 = Sheets("Sheet1").Columns("b").Find(myM, LookIn:=xlValues, LookAt:=xlWhole)
If Not (f1 Is Nothing) Then
  firstRow = f1.Row

 Set f2 = Worksheets("Sheet1").Columns("b").FindPrevious(after:=f1)
  lastRow = f2.Row
End If

MsgBox "上側の行: " & firstRow & "下側の行" & lastRow
Set fc1 = Nothing
Set fc2 = Nothing
End Sub
検索した行が0の場合は別に処理します。

また、もう少し簡単な方法があれば教えていただけませんか?

1 hits

【52530】月間データ範囲取得について yata 07/11/17(土) 20:30 質問
【52531】Re:月間データ範囲取得について かみちゃん 07/11/17(土) 21:17 発言
【52533】Re:月間データ範囲取得について yata 07/11/17(土) 22:01 質問
【52534】Re:月間データ範囲取得について かみちゃん 07/11/17(土) 22:17 発言
【52542】Re:月間データ範囲取得について yata 07/11/17(土) 23:49 お礼
【52532】Re:月間データ範囲取得について Hirofumi 07/11/17(土) 21:57 回答
【52535】Re:月間データ範囲取得について yata 07/11/17(土) 22:18 お礼
【52538】Re:月間データ範囲取得について Hirofumi 07/11/17(土) 23:07 回答
【52540】Re:月間データ範囲取得について Hirofumi 07/11/17(土) 23:26 回答
【52541】Re:月間データ範囲取得について yata 07/11/17(土) 23:37 お礼
【52548】結果報告とお礼 yata 07/11/18(日) 21:25 お礼

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