Excel のVBAに付いて教えて下さい。

質問

前回、質問しました内容が関連してくるんですが　参考に下記のURLを
ご覧になって下さい。
http://okwave.jp/qa/q7472816.html

前回の内容ですと、指定した列を月で指定してComboboxで選択していました。
その指定した列に特定の文字数を入力すると言う動作を作成しました。

特定の文字数を入力すると言う内容ですが、現時点では指定した列に上から下に
順序に入力して行くように作成してます。
そのコードが”Set myRng = Range(rng).End(xlUp).Offset(1)”です。

今回は、Comboboxで指定した列の2つ隣の列に日付が入力されています。
2つ隣と言うのは、左に向かって2つ隣です。
例えばC列を指定したとすればA列を表します。

実際に行いたいことは、指定した列の日付の入った行を検索し、指定した日付の所に
文字数を入力したいと考えています。

Userformを使って入力しているんですが、Combobox1が月の列を選択していますので、
新たにCombobox2を作りCombobox2で指定した日付(行)を選択し入力できる様に作成
したいのですが・・・今、使っているコードを基にCommandbox2を追加して作成できますでしょうか？

現在のコードは下記です。

Private Sub UserForm_Initialize()
Dim i As Long

For i = 1 To 12
Me.ComboBox1.AddItem i & "月"
Next
End Sub

Private Sub CommandButton1_Click()
Dim myRng As Range
Dim rng As String

Select Case ComboBox1.Value
Case "1月": rng = "az76"
Case "2月": rng = "be76"
Case "3月": rng = "bj76"
Case "4月": rng = "ak41"
Case "5月": rng = "ap41"
Case "6月": rng = "au41"
Case "7月": rng = "az41"
Case "8月": rng = "be41"
Case "9月": rng = "bj41"
Case "10月": rng = "ak76"
Case "11月": rng = "ap76"
Case "12月": rng = "au76"
Case Else: Exit Sub
End Select

Set myRng = Range(rng).End(xlUp).Offset(1)
myRng.Value = TextBox1.Value
End Sub

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.1

watabe007 · ベストアンサー

添付されている図では4月1日が何行目から始まっているのか解りません
'4月1日が7行目から始まっている場合
日 = 日 + 6
8行目からだと
日 = 日 + 7　　と修正してください

Private Sub UserForm_Initialize()
　　Dim i As Long

　　For i = 1 To 12
　　　　Me.ComboBox1.AddItem i & "月"
　　Next
　　For i = 1 To 31
　　　　Me.ComboBox2.AddItem i & "日"
　　Next
End Sub

Private Sub CommandButton2_Click()
　　Dim 月 As Long, 日 As Long

　　月 = Replace(Me.ComboBox1.Value, "月", "")
　　日 = Replace(Me.ComboBox2.Value, "日", "")
　　Select Case 月
　　　　Case 4 To 9
　　　　　　月 = 月 * 5 + 17
　　　　　　'4月1日が7行目から始まっている場合
　　　　　　日 = 日 + 6
　　　　Case 10 To 12
　　　　　　月 = 月 * 5 - 13
　　　　　　'10月1日が42行目から始まっている場合
　　　　　　日 = 日 + 41
　　　　Case 1 To 3
　　　　　　月 = 月 * 5 + 47
　　　　　　日 = 日 + 41
　　End Select
　　Cells(日, 月).Value = TextBox1.Value
End Sub

お礼

度々私の質問に回答いただきまして本当にありがとうございます。
コードの意味も分かりやすく教えて頂きまして、今後、活用していければと思います。
また質問は、絶えないかもしれませんが、宜しくお願いします。

補足

ご回答ありがとうございます。内容が不足してまして申し訳ありません。
日付けの行の件ですが・・・
4月1日は、11行目
10月1日は、46行目となります。

質問ですが・・・
月 = 月 * 5 + 17←この部分ですが、どの様に理解したらよいでしょうか？

回答No.2

watabe007

>質問ですが・・・
>月 = 月 * 5 + 17←この部分ですが、どの様に理解したらよいでしょうか？
まず
Me.ComboBox1.Value　で何月を選択したと、値が得られます
仮に　4月　だとすると
Replace("4月", "月", "")
と、"月"を""に置き換えると4の数値だけが残りますね
コードで書くと
月 = Replace(Me.ComboBox1.Value, "月", "")
になります。
4月の場合だと
月 = 月 * 5 + 17　⇒　月 = 4 * 5 + 17　で月に37が入ります、
この37が列番号になります。　　　　37列 = AK列
５月だと　5 * 5 + 17 = 42 42列 = AP列
日付の場合も得た日付に始まりの行目を加算して求めています

'4月1日が7行目から始まっている場合
日 = 日 + 6
>4月1日は、11行目
なら
日 = 日 + 10　になります

補足

ありがとうございます。
とても分かりやすい説明ありがとうございます

希望する動作が得ることができました。