|
Worksheets("Template")上にComboBoxが二つあります。ComboBox1で年、ComboBox2で月を選択し、二つを組み合わせた名前をシート名にします。例えばWorksheets("2000.1")が既にあればそのシートを開き、なければWorksheets("Template")をコピーして名前をWorksheets("2000.1")に変えます。以下のように作ってみたのですが、ErrHandler: 以下がよく分からず、うまく動きません。教えてください。
Private Sub CommandButton1_Click()
Dim mysheet As String
mysheet = ComboBox1.Text & "." & ComboBox2.Text
On Error GoTo ErrHandler
Worksheets("Template").Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = mysheet
Exit Sub
ErrHandler:
Worksheets(mysheet).Activate ’←???
Resume
End Sub
|
|