Ｐａｇｅ 704 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼なぜエラーが出るのかわかりません。 TMOMT 03/2/8(土) 14:55 ┗Re:なぜエラーが出るのかわかりません。 ハマゾウ 03/2/8(土) 15:12 ┗即答に感謝いたしますありがとうございました。 TMOMT 03/2/8(土) 15:31 ─────────────────────────────────────── ■題名 ： なぜエラーが出るのかわかりません。 ■名前 ： TMOMT ■日付 ： 03/2/8(土) 14:55 -------------------------------------------------------------------------
| -------------------------------------- Private Sub CommandButton1_Click() UserForm1.Show End Sub -------------------------------------- 上記のコマンドボタンをエクセルに表示しておきこのボタンをクリックすることにより、ユーザーフォーム１を呼び出します。 ユーザーフォーム１にはテキストボックスが３つあり特定セル内の内容をフォーム１のテキストボックスにそれぞれ表示します。 ---------------------------------------------------------- Private Sub UserForm_Initialize() UserForm1.TextBox1.Text = Sheets("Sheet1").Range("A1") UserForm1.TextBox2.Text = Sheets("Sheet1").Range("A2") UserForm1.TextBox3.Text = Sheets("Sheet1").Range("A3") UserForm1.Show End Sub ---------------------------------------------------------- この後、フォームを閉じようと右上にある×ボタンをクリックするとエラーがでます。解決方法を教えていただけると嬉しいです。よろしくお願いいたします |
| ▼TMOMT さん： Private Sub UserForm_Initialize()の"UserForm1.Show"は既にUserform1が読み込れているので不要です。 Private Sub UserForm_Initialize() UserForm1.TextBox1.Text = Sheets("Sheet1").Range("A1") UserForm1.TextBox2.Text = Sheets("Sheet1").Range("A2") UserForm1.TextBox3.Text = Sheets("Sheet1").Range("A3") 'UserForm1.Show End Sub |
| お恥ずかしい限りです。ありがとうございました。 |