VBA: получите номер столбца выбора

Question

Я хочу получить номер столбца выбора после использования Application InputBox, но он всегда имеет ошибки.

Вот то, что я до сих пор:

Dim cln1 as Integer 

selection1 = Application.InputBox(prompt:="Please select the fist column.", Title:="First Column") 

cln1 = selection1.Cells(1, 1).Column 

debug.print(cln1) 

Я не знаю, почему это does't work..Can кто-нибудь сказать мне, как это исправить? Спасибо!

Answer 1

Это должно сделать трюк, это в ваших подразделах:

Dim selection1 As Range 
Dim cln1 As Integer 

Set selection1 = Application.InputBox(Prompt:="Please select the fist column.", Title:="First Column", Type:=8) 

cln1 = selection1.Cells(1, 1).Column 

MsgBox cln1 

Тип: = 8 Препятствует он знает, что Вариант1 является Range Object