|
▼一年生 さん:
>とりあえず、動きますが、
>手直しするところがあったら、教えて下さい。
自分の望んだ結果を得られ、且つ、半年後の自分が見てわかるなら
手直しの必要はないです。・・・・持論です。
・1つのデータを複数のデータで評価する場合は下記のように書く方が見易いです。
・Cellsでは、どのシートかが、明示されてませんので、Activeなシートの
セルを指定することになります。必ず明示的にシートから指定しましょう。
Private Sub ListBox3_Click()
Select Case Me.listbox3.Value
Case "1月"
Cells(1, 15).Select
Case "2月"
Cells(5, 15).Select
Case "3月"
Cells(10, 15).Select
Case "4月"
Cells(15, 15).Select
Case "5月"
Cells(20, 15).Select
Case "6月"
Cells(25, 15).Select
Case "7月"
Cells(30, 15).Select
Case "8月"
Cells(35, 15).Select
Case "9月"
Cells(40, 15).Select
Case "10月"
Cells(45, 15).Select
Case "11月"
Cells(50, 15).Select
Case "12月"
Cells(55, 15).Select
End Select
End Sub
|
|