ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý HLOOKUP ªº table_array ³o³¡¤À¨Ï¥Î¦WºÙ©w¸q¬O§_¥i¦æ¡I

½Ð°Ý HLOOKUP ªº table_array ³o³¡¤À¨Ï¥Î¦WºÙ©w¸q¬O§_¥i¦æ¡I

·Q¥Î HLOOKUP ªº table_array ³o³¡¤À¨Ï¥Î¦WºÙ©w¸q
¨Ã¥B¥Î¤@­ÓÀx¦s®æ¬ö¿ýÀɮתº¦ì¸m = 'D:\[´¸«Bªí.xlsx]¤Ñ®ðª¬ªp²Î­p'!$D$3:$AAR$6

Sheets("1.¤Á´«").Range("A16") = 'D:\[´¸«Bªí.xlsx]¤Ñ®ðª¬ªp²Î­p'!$D$3:$AAR$6
¦ý¬O¦b¦WºÙºÞ²z¾¹ªº³¡¤À½TÅã¥Ü ="D:\[´¸«Bªí.xlsx]¤Ñ®ðª¬ªp²Î­p'!$D$3:$AAR$6"¡A¾É­PHLOOKUPªº table_array ½d³ò¿ù»~¡C

¬ÛÃöVBA¦p¤U¡G

Sub test() '³z¹Lvba¡AÅýhlookup¥i¥H¥Î"¦WºÙ©w¸q"ªº¤è¦¡¡A§Ö³t°Ñ¦Ò´¸«Bªí¦ì¸m

Dim a As String

a = Sheets("1.¤Á´«").Range("A16") '.Value

ActiveWorkbook.Names.Add Name:="´¸«Bªí", RefersTo:=a

End Sub

¤w¸g´ú¸Õ¹L¦r²Å¦êªº¤è¦¡¤]µLªk¹F¦¨,¦³ªø½ú³B²z¹L³o¼Ëªº°ÝÃD¶Ü¡I¥ý·PÁ¤F

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD