|
調べてみたのですが、分からないのでお時間のある方、教えてください。
今、ユーザーフォームを作って、下記まで作成しました。
この後、入力したセルにハイパーリンクを挿入したいです。
手順としては、
1."製品マスタ"というシートをコピーし、末尾へ貼り付けます。
2.入力したセルと同じ名前をそのシートの名前とします。
3.そのシートのC2に入力したセルと同じ名前を貼り付けます。
4.入力したセルにハイパーリンクを挿入し、そのシートへとばす。
となります。
どのような命令をすればいいのか、分からないので教えてください。
CommandButton1_Click()
Dim x As Long
Select Case ComboBox1.Value
Case "MB": x = 1
Case "BK": x = 2
Case "2B": x = 3
Case "信金": x = 4
Case "信組": x = 5
Case "JA": x = 6
Case "労金": x = 7
Case "その他": x = 8
End Select
If x <> 0 Then Cells(6, x).End(xlDown).Offset(1).Value = (TextBox1.Value & TextBox2.Value)
Unload Me
|
|