錦子老師

周小鵬：「錦子老師，以下小段的VBA 指令，有個部份的使用方法比較特別，已經查過很多文章似乎都沒有人討論過，在此請教看有沒有能幫忙

A1 = "09:00"

A2 = "10:00"

B = "A1"

C = CStr(B)

我的目地是C的內容是要"09:00"，但是B是用字串是算出來的，B是變數，用過C = CStr(B)或是C = CVar(B) 都不行，能點解一下?謝謝！」

錦子老師：「這個要求可能錦子老師無法達成，因為VBA是不支援Dynamic Variable Name，但是可以用Dictionary物件來模擬的，但是Marlin12這位VBA高手提出其程式供大家分享。」

SUB TEST()

Dim Dict

Set Dict = CreateObject("Scripting.Dictionary")

Dict("A1") = "09:00"

Dict("A2") = "10:00"

Dim B, C As String

B = "A1"

C = Dict(B)

Debug.Print "C = " & C      ' result "C = 09:00"

Dict("A1") = "20:00"

C = Dict(B)

Debug.Print "C = " & C      ' result "C = 20:00"

END SUB

以上就是今天主要學習的知識點，希望對大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

部落格相關範例