Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata
 ComboBox1.Style = fmStyleDropDownList
 ComboBox2.Style = fmStyleDropDownList
 Dim I As Long, ColumnLetter As String
 Me.ComboBox1.Clear
 Me.ComboBox2.Clear
 For I = 1 To Columns.Count
  ColumnLetter = Col_Letter(I)
  Me.ComboBox1.AddItem ColumnLetter
  Me.ComboBox2.AddItem ColumnLetter
 Next
Public Function Col_Letter(lngCol As Long) As String
    Dim vArr
    vArr = Split(Cells(1, lngCol).Address(True, False), "$")
    Col_Letter = vArr(0)
End Function
  • No labels