Hello
I might need some help with the use of Combo Box Cells. This Excel 2016 + VBA.
I have a need to setup a two column list that would show a text in column 1 and a Combo in column 2:
Something like
Text ! Combo !
Text1 ! < combo > !
Text2 ! < combo > !
Text3 ! < combo > !
So I'm defining my combo like this:
With igGUI.Combos.Add("GUI")
.AddItem sItemText:="Left-aligned", vItemValue:="Available"
.AddItem sItemText:="Left-aligned", vItemValue:="Disabled"
.AddItem sItemText:="Left-aligned", vItemValue:="Hidden"
.AutoAdjustWidth
End With
Then the grid as
With igGUI.AddCol(sKey:="field_name", sheader:="Field Name", lMaxWidth:=200, eHeaderAlignH:=igAlignHCenter)
.eType = igCellText
End With
With igGUI.AddCol(sKey:="cmb_use", sheader:="Use", eHeaderAlignH:=igAlignHCenter)
.eType = igCellCombo
End With
One I have this for testing purposes I do
For i = 1 To 10
igGUI.AddRow
igGUI.CellValue(i, 1) = "test " & i
igGUI.CellValue(i, "cmb_use") = "Available"
Next i
Everything seems to execute correctly - however when I show my form I see
Note that the combo field does not show any value...
Worse clicking on said field will crash Excel - oops.
PS: for some reason I had to try many time to post this message as it is apparently triggering anti spam detection -
extremely irritating !