Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7966 / 76733 ←次へ | 前へ→

【74348】フォームが勝手に消える
質問  ケビン  - 13/5/24(金) 14:31 -

引用なし
パスワード
   ユーザフォームを 
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
2 hits

【74348】フォームが勝手に消える ケビン 13/5/24(金) 14:31 質問
【74349】Re:フォームが勝手に消える UO3 13/5/24(金) 15:00 発言
【74351】Re:フォームが勝手に消える ケビン 13/5/24(金) 15:38 お礼

7966 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free