VBA シート上のコンボボックス

2021/4/1
2021/4/9
2021/5/7
などのデータがB列にありシート上のコンボボックスで指定した月以外の行を非表示にする様にしたいです。
またコンボボックスに表示される文字は4月や5月などにしたいです。
よろしくお願いします。

itagagaki

2021/04/27 03:16

あなたが実際にプログラミングに取り組んで、つまづいたところで具体的に困っている質問をしてください。

NOHORO

2021/04/27 03:31

コンボボックス内に表示された月をシートからどうやって見つけ出すのか分からず困っています。

yo_u

2021/04/27 04:47

実際にどこまでやってみたのでしょう？ここは「思考するエンジニア」のための場らしいので、あなたがどの程度までやってみたのか示すことで答えやヒントがもらえるかもですよ。いきなり、これがこうなってほしいというのではなく、問題をひとつずつ分解していってはどうでしょうか？・B列のデータの月の部分だけを抽出する。・B列の月部分と、コンボボックスの値を同じ型にする。・コンボボックスで選んだ値と、B列の月の部分を比べておなじものを探す。・同じだった時にその行を非表示にする。・上記の処理を、効率の良い順序で行う。をプログラムすればいいので、できるだけご自分で書いてみてください。

行動規範の内容に同意します

回答3件

皆様ありがとうございました。
今日改めて自分で考えたところ、すんなりと上手くいきました。
確かに丸投げの質問でしたが、自分的には全部やってもらうつもりは無くヒントを貰いたいと思っていたのでヒントをくれた方をベストアンサーにします。

投稿2021/04/28 03:21

NOHORO

総合スコア2

ベストアンサー

何かのヒントになれば。

VBA
1Sub test()
2    
3    Call HideRows("5月")
4
5End Sub
6
7Function HideRows(mon As String)
8
9    Dim ws As Worksheet, rng As Range
10    Set ws = ActiveSheet
11    Set rng = Intersect(ws.UsedRange, ws.Columns("B"))
12    
13    rng.EntireRow.Hidden = False
14    
15    Dim c As Range
16    For Each c In rng
17        If IsDate(c.Value) Then
18            If Month(c.Value) <> Val(mon) Then c.EntireRow.Hidden = True
19        End If
20    Next
21
22End Function