Excel VBA質問箱 IV

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

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


62586 / 76732 ←次へ | 前へ→

【18752】Re:コンボボックスで選択、そしてまた次...
お礼  ぴ〜こ  - 04/10/8(金) 20:55 -

引用なし
パスワード
   ichinose さん

こんばんは
なんとかできました。
ありがとうございます。
また宜しくお願いします


>▼ぴ〜こ さん:
>うーん、まだはっきり分かっていませんが・・・・。
>私の想像がかなり入った例です。
>まず、シート1のシートモジュールでは、
>'=====================================================
>Private Sub Worksheet_Activate()
>  With UserForm1
>   If .Visible = False Then .Show vbModeless
>   End With
>End Sub
>'==============================================================
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>  With UserForm1
>   If .Visible = False Then .Show vbModeless
>   End With
>End Sub
>↑このコードでシート1がアクティブになったり、セルを選択したりした動作で
>フォームが表示されます。
>
>
>次にシート2では、
>'===============================================================
>Private Sub Worksheet_Activate()
>  Dim rng As Range
>  Set rng = Selection
>  If TypeName(rng) = "Range" Then
>   Call rng_chk_and_form_show(rng)
>   End If
> 
>End Sub
>
>'===========================================================
>Private Sub Worksheet_Deactivate()
>  UserForm1.Hide
>End Sub
>'===========================================================
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>  Call rng_chk_and_form_show(Target)
>End Sub
>Sub rng_chk_and_form_show(rng As Range)
>  If rng.Column = 1 And rng.Columns.Count = 1 Then
>   UserForm1.Show vbModeless
>  Else
>   UserForm1.Hide
>   End If
>End Sub
>↑これらのコードでA列を選択したときのみフォームが表示されます。
>
>最後にユーザーフォームのモジュールに今まで私が投稿したコードに追加として、
>
>'================================================================
>Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
>  UserForm1.Hide
>  Cancel = True
>End Sub
>
>↑これで、シート1で選択したコンボボックスの内容が保持されます。
>
>コマンドボタンのクリックで動作する仕様は変えていません。
>
>こんな仕様では?
1 hits

【2574】コンボボックスで選択、そしてまた次のコンボボックスで選択 EBA 03/1/6(月) 11:07 質問
【2576】Re:コンボボックスで選択、そしてまた次のコ... ポンタ 03/1/6(月) 16:53 回答
【2659】Re:コンボボックスで選択、そしてまた次のコ... EBA 03/1/9(木) 17:31 お礼
【2577】Re:コンボボックスで選択、そしてまた次のコ... ichinose 03/1/6(月) 16:55 回答
【2596】Re:コンボボックスで選択、そしてまた次のコ... EBA 03/1/7(火) 13:16 お礼
【2604】Re:コンボボックスで選択、そしてまた次のコ... ichinose 03/1/7(火) 18:41 発言
【2614】Re:コンボボックスで選択、そしてまた次のコ... EBA 03/1/8(水) 10:39 お礼
【9653】Re:コンボボックスで選択、そしてまた次のコ... ぴ〜ちゃん 03/12/12(金) 1:39 質問
【9697】Re:コンボボックスで選択、そしてまた次のコ... ichinose 03/12/13(土) 2:48 回答
【9698】Re:コンボボックスで選択、そしてまた次のコ... ichinose 03/12/13(土) 9:52 発言
【9701】Re:コンボボックスで選択、そしてまた次のコ... ぴ〜ちゃん 03/12/14(日) 0:40 質問
【9703】Re:コンボボックスで選択、そしてまた次のコ... ぴ〜ちゃん 03/12/14(日) 9:07 お礼
【18724】Re:コンボボックスで選択、そしてまた次... ぴ〜こ 04/10/7(木) 15:23 質問
【18734】Re:コンボボックスで選択、そしてまた次... ichinose 04/10/7(木) 20:12 発言
【18735】Re:コンボボックスで選択、そしてまた次... ぴ〜こ 04/10/7(木) 20:53 質問
【18736】Re:コンボボックスで選択、そしてまた次... ichinose 04/10/7(木) 21:27 発言
【18752】Re:コンボボックスで選択、そしてまた次... ぴ〜こ 04/10/8(金) 20:55 お礼

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