選択した範囲の列を渡す方法

Question

私は少しの研究を行い、my questionが見つかりました。問題は、私が慣れていないC言語と書かれていることです。私はVBAに精通している人ではありませんが、それは私が取り組んでいることであり、とてもうまくやっています。だから私の能力を駄目にして、物事を変える代わりに、ユーザーが選択した列からサブ範囲や列を渡す方法はありますか？

私のコード例では、選択されたものの最初の列全体を渡そうとしていました。ユーザーの範囲がB34：D40で、B34：B40を渡して、アレンジがB34：B40になるようにしたいとします。

Sub initialsub (userrange as range) 

Call secondfunction (userrange([],1) 

end sub 
---------------------------------------------------------------- 
function secondfunction (arrange as range) as long 

some function that counts a variety of things in a single column 

secondfunction = 45 

end function 

Answer 1

一つの方法：

また

Sub dural() 
    Dim FirstColumn As Range 

    Set FirstColumn = Intersect(Selection(1).EntireColumn, Selection) 
    MsgBox FirstColumn.Address 
End Sub 

：

Sub dural() 
    MsgBox Selection.Columns(1).Address 
End Sub 

がトリックを行うようです。