タイトル : Re^2: コンボボックスについて 投稿日 : 2008/02/12(Tue) 18:10 投稿者 : だめおやじ
> もう少し詳しく教えてください。 < 早速みていただきありがとうございます。 コードはおおむね以下のとおりです。 Private Sub ken() ’はじまり '変数にデータ取得 call kennab'1回目 end sub Private Sub syo() '変数にデータ取得 call kennab'2回目 end sub Private Sub kennab() '_Click() 'list にtext 貼付 Combo17.Visible = True'コンボボックスの表示 Combo17.AddItem kenna(3) ・ ・ ・ ・ End Sub Private Sub combo17_Click() '1回目はここでコンボボックスから選択できる。 '2回目ははここでコンボボックスから選択できない。 fkenna = Combo17 If hata = "県" Then skenna = fkenna fkenna = "" MsgBox skenna & "県です。" Call syo ’1回目syoプログラム実行 Else End If If hata = "署" Then syonna = fkenna fkenna = "" MsgBox syona & "署です。"'2回目はコンボボックスで選択できずにここまで進みます。 Call zimunaa Else End If End Sub |