Excel VBA質問箱 IV

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

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


1455 / 13644 ツリー ←次へ | 前へ→

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

【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

【74349】Re:フォームが勝手に消える
発言  UO3  - 13/5/24(金) 15:00 -

引用なし
パスワード
   ▼ケビン さん:

こちらも、あちらもマルチ容認だけど、他でも質問してますと、そう書くのが
マナーでしょうね。

で、あちらで回答がついていましたよ。

【74351】Re:フォームが勝手に消える
お礼  ケビン  - 13/5/24(金) 15:38 -

引用なし
パスワード
   ▼UO3 さん:
>▼ケビン さん:
>
>こちらも、あちらもマルチ容認だけど、他でも質問してますと、そう書くのが
>マナーでしょうね。
>
>で、あちらで回答がついていましたよ。
ご指摘ありがとうございます。
あちらの内容で解決できました。

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