Re: [ohjelmistot] Re: ComboBox ongelmia edelleen..

[Juhani Lammassaari <jlammas@st.jyu.fi>]

>Kokeilin tuollaista ja mulla se ei toimi sellaisenaan. Kertoiletko hieman
>tarkemmin minkälainen tuo sinun objekti on? Siis ControlToolbox-objekti
>vai Forms-objekti.

Sekä toiminnan aloittava painike ja itse ComboBox ovat Control Toolboxin 
objekteja.

tässä esimerkkejä tuosta koodistani ja hyvin toimivat (kaikki makrot ovat 
Sheet1-välilehdellä myös VB-editorissa, ei siis Moduuleissa, niin kuin 
Forms-objektit.

<clip>
Private Sub ComboBox_Change()
   Range("C1").Value = ComboBox.Value
End Sub
'-----------------------------------------------------

Private Sub CommandButton1_Click()
   ComboBox.Enabled = False
End Sub

'-----------------------------------------------------
Private Sub CommandButton2_Click()
   ComboBox.Enabled = True
End Sub

'-----------------------------------------------------
Private Sub CommandButton3_Click()

Dim Index As Integer

Index = 1
ComboBox.Clear

Do While Range("A" & Index).Value <> ""
  ComboBox.AddItem Range("A" & Index).Value 'ListIndex = 0
  Range("B" & Index).Value = Range("A" & Index).Value
  Index = Index + 1
Loop
End Sub
</clip>

>Itse en saanut tuota Forms-objektia toimimaan niinkuin olisin halunnut :(

Form-objektia en saanut minäkään ja tappelin (liian) kauan sen kanssa ennen 
kuin Control Toolboxi tuli tutuksi.

Sinc. Juhani Lammassaari

-- send "unsubscribe ohjelmistot" to majordomo@cc.jyu.fi to unsubscribe ---