|
はじめまして、検索でこのサイトにたどり着きました。
初めて質問させていただきます
OSはWindowsXP SP3、ExcelはExcel2003です。
まず、やりたいことですが、ModelessなUserFormにいろいろなツール群があって
それを使ったり、または直接Excelのワークシートを編集したり、ということをしたいのですが、
どうしても解決できない問題に行き当たりました。
発生する条件を、可能な限り簡略化すると、
まず、WorksheetにコントロールツールボックスからCheckBoxを一つ貼り付けます。
次に、UserFormをひとつ作成し、Buttonを一つ貼り付けます。
Private Sub CommandButton1_Click()
Sheet1.CheckBox1.Copy
Sheet1.Paste Sheet1.Range("C4")
End Sub
という具合に、Worksheetに貼り付けたCheckBoxをCopy & Pasteする
動作を、Buttonに設定します。
また、ShowModalプロパティをFalseに設定してModelessになるようにしておきます。
次に、
Private Sub Workbook_Open()
UserForm1.Show
End Sub
という具合に、Workbookを開いたときに、そのUserFormが開くようにしておきます。
ここまで記述して、一度保存をして閉じて、もう一度開きます。
ここで、自動的に表示されたUserFormのButtonをクリックすると、
CheckBoxが一つコピーされて、そのままUserFormが消えてしまいます。
なぜ消えるのかわからず、CheckBoxをCopy & Pasteしたあとに、
HideとShowを書いてみたり、UnloadとLoadを書いてみたり、
挙句には、SetWindowPosなんてのを検索から引っ張り出してやってみたのですが
どうしても再表示することができませんでした。
私の力では、もうどうすることもできない状態ですので、
みなさまのお知恵をお借りしたいと思います。
よろしくお願いします。
|
|