EXCEL VBAコミュのシートの操作、セルの操作をユーザーフォームで行う

力を貸してください！
現在ユーザーフォームでこのようなものを作っています。

?リストボックス１で「月」を選択
?リストボックス２で「日」を選択
?コンボボックスで選択されている「種別」を??で選択されたセルに「種別」を代入

?はすでに完成し、以下のコードです。
Private Sub Listbox1_Click()
Dim listbox As Integer
Listpos = UserForm1.ListBox1.ListIndex
Select Case Listpos
Case 0
sheetname = "１月"
Case 1
sheetname = "２月"
Case 2
sheetname = "３月"
Case 3
sheetname = "４月"
Case 4
sheetname = "５月"
Case 5
sheetname = "６月"
Case 6
sheetname = "７月"
　　　・
　　　・
　　　・
End Select
Worksheets(sheetname).Activate
End Sub

?、?はどのようにするとよいでしょうか？？

コメント(1)

最初
全て
最新の40件

[1] mixiユーザー 08月08日 22:26

すみません結局何がしたいのかよくわかりません。

＞?コンボボックスで選択されている「種別」を??で選択されたセルに「種別」を代入
こうありますが、?でも?でも特にセルを指定する説明文が無く、どのようなフォーマットのブックに対しての操作なのかがわからないです。

ユーザーフォームの大体のイメージは掴めても反映先のブックがどうなってるのかがわからない。

この説明文だと、回答者に「意味がわからんからもういいや」と思われても仕方のない記述になってます。

想像の範疇であれば、?に対する各月のシートがあって、それぞれのシートに?に対するRowかColumnがあり、Offset+1の位置に?の内容を反映したいのだと読み取れました。

また、?のコードももっと簡略化できますよ。

Worksheets(StrConv(UserForm1.ListBox1.ListIndex, vbWide) & "月").Activate

この一行だけで出来るはずです。

それと、必要のないActive(Activate)やSelectは記述しない方がコード的には良いです。

そも、ListBox1のイベントとして記述するのではなくComboBox1側または反映用のCommandButton1を作成し、そこで?と?、?の内容を一緒くたに纏めてしまった方がいいです。

ログインすると、みんなのコメントがもっと見れるよ