[[20141122151210]]　『コンボボックスでリセットされない方法』（初心者）　ページの最後に飛ぶ

『コンボボックスでリセットされない方法』（初心者）

質問させてください。
下記のコードを発展させたいのですが知識もないので教えてください。

リストから検索してそのままセルに選択して行きどんどん入力できる様にしたいのですが、
以下の部分で困っています。

1.リストから選択されても、セルがD11に固定されてしまう。
2.リストを出したときに全てが初期化されてしまう。

現在の記述です。

Private Sub UserForm_Initialize()

    下 = Worksheets("原料").Range("A2").End(xlDown).Row 
    ComboBox1.ColumnCount = 3                   
    For I = 0 To 下 - 2                         
        ComboBox1.AddItem Worksheets("原料").Cells(I + 2, 1).Value 
        ComboBox1.List(I, 1) = Worksheets("原料").Cells(I + 2, 2).Value 
    Next                                        
    ComboBox1.TextColumn = 1                    
    ComboBox1.MatchEntry = fmMatchEntryFirstLetter 
End Sub

Private Sub ComboBox1_Change()

    氏名 = ComboBox1.Text                       
    Worksheets("SSS").Range("D11").Value = 氏名 
End Sub

Private Sub CommandButton1_Click()

    If ComboBox1.MatchFound Then                
        Unload Me                               
    Else                                        
        MsgBox "やり直してください", vbExclamation, "みつかりません"
    End If
End Sub

大変申し訳ありませんが、御教授お願いします。

＜使用 Excel：Excel2010、使用 OS：unknown ＞

ユーザーフォームをモードレスに設定して，activecellに入力しては？

（Hara） 2014/11/22(土) 16:37

回答ありがとうございます。

ユーザーフォームとコンボボックスのShowModalプロパティをFalseに変更して、

Private Sub UserForm_Initialize()　→　Private Sub UserForm_activecell()
に変更してみました。

ですが、リストが出ないくなりました。
申し訳ありませんが、方法をお願いします。
（初心者） 2014/11/22(土) 17:17

変更は、左上のほうのVBAPROJECTのユーザーフォーム１をダブルクリックして、その下
のプロパテｨのSHOWMODALをFALSEにすれば、ACTIVECELLに入力できます。

（Hara） 2014/11/22(土) 17:52

再度ご回答ありがとうございます。

ユーザーフォームのみShowModalプロパティをFalseに変更してみました。
リストは見え、固定のセルに入力されましたが、再度マクロを使用すると、
入力されたセルが消され再度上書きされてしまいます。

これを回避して、固定のセルに入力されず、私が選択したセルにマクロでリスト選択した
データを残して、下へ下へとセルに入力をして行きたいのですが、
根本的にこの記述ではダメってこですか？
ぜんぜん理解せず申し訳ありません。

（初心者） 2014/11/22(土) 18:17

Sub ComboBox1_Change()

    氏名 = ComboBox1.Text
    ActiveCell = 氏名
    ActiveCell.Offset(1).Activate

End Sub
にしては？
（Hara） 2014/11/22(土) 18:40

ありがとうございます！！

出来ました。本当に助かりました。
感謝します。

ありがとうございました。

（初心者） 2014/11/22(土) 19:12

コメント返信：

[ 一覧(最新更新順) ]

[[20141122151210]] 『コンボボックスでリセットされない方法』（初心者） ページの最後に飛ぶ

[[20141122151210]]　『コンボボックスでリセットされない方法』（初心者）　ページの最後に飛ぶ