EXcel2003でマクロ作成中です。エクセルシートのN列を右クリックすると、ユーザーォームが現れ、その中のリストボックスから項目を選択すると選択文字が白色に反転します。
ユーザーホームの下方に設置した「入力する」ボタンをクリックする、アクティブセルにテキスト文字列が挿入されます。
Option Explicit
Private Sub CommandButton1_Click()
With ListBox1
If .ListIndex = -1 Then
MsgBox "項目を選択してくだい"
Else
ActiveCell.Value = ListBox1.list(ListBox1.ListIndex)
End If
End With
Unload UserForm1
End Sub
---------------------------
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
------------------------------
これと同じものをB列につくりました。エクセルシートのB列を右クリックすると、リストボックスが表示されますが、その中の項目を選択しようとすると、一瞬にしてユーザーフォーム自体が消えてしまい項目を
選択できません。
Private Sub CommandButton1_Click()
With ListBox2
If .ListIndex = -1 Then
MsgBox "項目を選択してくだい"
Else
ActiveCell.Value = ListBox2.list(ListBox2.ListIndex)
End If
End With
Unload UserForm2
End Sub
-----------------------------
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
------------------------------------------
まったく同じものを作って内容だけかえたのですが、できません。
どうしてでしょうか?ご教授おねがいします。
No.1ベストアンサー
- 回答日時:
どうも
ん~ちょっとよく判りませんが、UserForm1の内容をコピーしてUserForm2を作ったんではないんですね
UserForm2はListBoxが『2』ですもんね
この状態で表示されたUserForm2のListBoxが『1』で、ListBox1_Enterに UnLoad Me
とか書いてあるなら判りますけど、違うんなら正直この手の事柄は物(エクセルファイル自体)を見ないと、なんとも言い様がないです
一度UserForm3を作って、それにUserform1の内容をコピーして貼り付けし、プロパティも全く同じに指定してUserForm1の完全なコピーを作成してから、細部を調整してはいかがですか?
意外な思い込みで、間違っている事に気付く場合もあるでしょうし、気が付かなくても、Userform3が望みどおり動作するなら、そのまま採用
UserFormの番号が跳ぶのがいやなら、Userform3が望みどおり動作するようになった後で、UserForm2を開放しマクロ全体(カレントプロジェクト)に対してUserForm3→UserForm2と置き換えを実行
UserForm3自体をUserForm2と改名すれば完了です
お試しを
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) ListBox1をClickしたときのイベント 5 2022/12/11 19:45
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) フレーム内のオプションボタンの選択結果をセルに書き出したい。 図のような預金種目というフレームにオプ 2 2022/07/29 11:12
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル マクロ写真帳に一括で...
-
エクセルファイルの回数期限の...
-
VBA Shapes コピーと名前
-
EXCEL VBA 他のアプリケーショ...
-
セルに入力するたびにマクロを...
-
EXCEL 行番号や列番号が選択で...
-
【ExcelVBA】マクロブックを通...
-
シートにマクロ記述があるとシ...
-
エクセルのマクロについて教え...
-
エクセルファイルを値でのみし...
-
Excelでマクロ実行中に画面を固...
-
WPSOffice_マクロの有効化について
-
VBAについての質問です
-
VBAで保存しないで閉じると空の...
-
Excelのマクロでボタンを押すと...
-
エクセルで明日の日付を表示す...
-
エクセルで、「いいね」のよう...
-
エクセルの表を複数枚印刷した...
-
【マクロ】必要な項目(列)の...
-
エクセルVBA 個人用マクロブッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA Shapes コピーと名前
-
Excelでマクロ実行中に画面を固...
-
エクセルファイルを値でのみし...
-
エクセル連番自動印刷について
-
エクセル マクロ写真帳に一括で...
-
エクセルのマクロについて教え...
-
【Excel】マクロでページを追加...
-
セルに入力するたびにマクロを...
-
EXCEL VBA 他のアプリケーショ...
-
VBAで行コピーして挿入
-
エクセルVBAで納期管理システム...
-
EXCEL 行番号や列番号が選択で...
-
ブックの共有でVBAエラー
-
シート名を記入する
-
【ExcelVBA】マクロブックを通...
-
エクセル 図形の寸法を取得したい
-
VB.NETによるEXCELの行挿入
-
ExcelのVBAコードについて教え...
-
エクセルVBA MSGBOXを30秒間出...
-
VBでエクセルに罫線を引くには?
おすすめ情報