|
ユーザフォームを
UserForm_MainMenu.Show 0
にて起動した後
フォーム上の機能ボタンにて 以下の処理をしたとたん
フォームが消えてしまうのですが
フォームを常に表示した状態で シート編集できるようにするには どうしたらよいのでしょうか?
Private Sub CommandButton_OK_Click()
Dim ans As Range
Dim combo_name As String
On Error Resume Next
Set ans = Application.InputBox("貼り付け先のセルを選択してください", "コンボボックスの移動先指定", Type:=8)
On Error GoTo 0
If ans Is Nothing Then Exit Sub
Worksheets("Control_LIST").Shapes("ComboBox_Ok").Copy
Application.Goto ans
combo_name = "ComboBox_Ok" + Format(Now(), "YYYYMMDDhhmmss")
With ActiveSheet
.Paste
DoEvents 'おまじない
.Shapes(.Shapes.Count).Name = combo_name
End With
End Sub
|
|