Как я могу получить все значения ячеек (например, даты), найденные в строке (A1, B1, C1 и т. Д.), И поместить их в поле со списком?Использование comboboxes
Я попытался это, но не повезло:
Private Sub ComboBox1_DropButtonClick()
With Worksheets("Sheet1")
ComboBox1.List = .Range("A1:Z" & .Range("A" & .Columns.Count).End(xlRight).Column).Value
End With
End Sub
Что-то вроде этого
Хотя вы можете продолжить работу с диапазоном для удаления заготовок, простофили и т.д.
Private Sub ComboBox1_DropButtonClick()
Dim rng1 As Range
With Sheets(1)
Set rng1 = .Range([a1], Cells(1, Columns.Count).End(xlToLeft))
ComboBox1.List = Application.Transpose(rng1.Value)
End With
End Sub
Большое спасибо – progRAImmer
@progRAImmer, вы должны отметить этот ответ как правильный, есть зеленая галочка чуть ниже стрелки вниз, которую вы можете только отметить. –
@brettdj Большое спасибо – progRAImmer
ваша попытка получить последний столбец близко, но не совсем правильно. Перейдите в 'ComboBox1.List = .Range (.Range (« A1 »), .Range (« A1 »). End (xltoright)). Значение« Это может быть или не быть вашей проблемой. –
@ScottCraner очень близко, но вам нужно транспонировать, чтобы преобразовать строку в столбец. Плюс лучше оглянуться назад с правого налево. – brettdj
@brettdj, да, я повесил трубку на вопрос о диапазоне, который я забыл, что его нужно перенести. И, как правило, я занимаюсь далеким правом, но я хотел как можно ближе подойти к OP. –