Rekan be-excelers,
Saya mempunyai vba code seperti berikut:
'=============================
Sub TestNameRange()
'A. Tes Pertama
'A.1. Mengisi nilai di [A1]
Range("A1").Value = 123456
'A.2. Mebuat named range [RangePertama]
Range("A1").Name = "RangePertama"
'A.3. Mengambil nilai dari [RangePertama]
MsgBox "Nilai [RangePertama]: " & Range("RangePertama").Value
'B. Tes Kedua
'B.1. Membuat name range [RangeKedua] dan mengisi dengan nilai constant
Dim sName As Name
Set sName = Names.Add("RangeKedua", "789")
'B.2. mengambil nilai dari [RangeKedua]
'ERRORNYA TUH DI SINI....:::
MsgBox "Nilai [RangeKedua]: " & Range("RangeKedua").Value
End Sub
'====================================
Errornya bisa hilang jika saya menggunakan code:
MsgBox "Nilai [RangeKedua]: " & 0 + Mid(Names("RangeKedua").Value, 2, 99)
Mohon penjelasannya kenapa error tersebut bisa muncul?
terimakasih
-zainul
