EXCELVBAで自動生成
以下のことをやりたいのですが、どのような方法でやればうまくいくでしょうか？
VBAコードを途中まで書いたのですが、最後までわからないので参考になるサイトか物があれば教えて欲しいです
１．修正シートと区分テーブルシートの2つとUserFormがあります。
２．修正シートを開く。
３．修正シートの様々なデータの中から、AAA-030/035-35W-Aのセルをマウスでクリック
４．AAA-030/050-35W-A のデータの中から/前後の030と035の数字を取得。
５．Userform起動
６．区分テーブルシート参照。００１～120までのデータが入っている。
７．００１～１４０の間の中から０３０～０３５番の間のデータ（KKKK～KKKK）と/の前の数字三桁と後ろの三桁０３０と０３５までの番号を見つけ、範囲内のデータ全部取得する。
８．UserFormに、カレンダーのような形式で、縦列に３０から３５までの数字を書き、横列にＡＡＡ～ＣＣＣを書く
９．縦と横のラベルの内側にKKKK～KKKKまでの範囲のデータをボタンか何かクリックするもので生成して、UserFormに書き出す。
１０．クリックしたい部分をボタンか何かをクリックしたら修正シート起動
１１．先ほどのセルのデータがAAA-030/035-35W-Aだったら、AAA-KKKK-35W-Aになる。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strwk As String
Dim retu As Integer
Dim retu2 As Integer
Dim wmk As Variant
Dim wmkk As Variant
Dim colwk As Integer
Dim Larray(1000, 1000) As String
ith = Target.Row
Dim i As Integer
Dim btn As Control
Dim NewBtn(10) As New Class1
If (Target.Column = 4) Then
If (Worksheets("CSV修正シート").Cells(ith, 4) <> "") Then
If (InStr(Worksheets("CSV修正シート").Cells(ith, 4), "-") > "0") Then
wmk = Split(Worksheets("CSV修正シート").Cells(ith, 4), "-")
If (InStr(wmk(1), "/") > 0) Then
s = InStr(wmk(1), "/")
r = Left(wmk(1), s - 1)
l = Right(wmk(1), s - 1)
If (wmk(0) <> 0) Then
i = 1
Do While Worksheets("区分テーブルHID").Cells(i, 1).Value <> ""
If (r = Worksheets("区分テーブルHID").Cells(i, 1).Value) Then
retu = i
End If
If (l = Worksheets("区分テーブルHID").Cells(i, 1).Value) Then
retu2 = i
End If
i = i + 1
Loop
UserForm１.Show vbModeless
colwk = 0
For i = retu To retu2
Set btn = Controls.Add("Forms.CommandButton.1", "button" & i)
With btn
.Top = 5
.Left = 5 + (i - 1) * 120
.Height = 20
.Width = 100
.Caption = "push No." & i
Set NewBtn(i) = New Class1
Set NewBtn(i).Button = UserForm1.Controls("button" & i)
End With
Next
.Height = 60
.Width = 360
.Show
End With
