[µo°Ý] ½Ð±Ð¦¹µ{§Ç¦p¦ó§ï??

t8899

°²¦psheet1 [A1]=8
§ÚÂIªº¬Osheet1 [A1]
¦p¦óÅý [A2]=8  ([A1]ªº­È)
Sub abc123()
Dim rng
Set rng = Application.InputBox("¿é¤J¿ï¾Ü°Ï°ì", Type:=8) '¥i¦b¦U¤u§@ªí¤¤²¾°Ê,¿ï¾ÜÀx¦sÎÝ
a = rng.Address
b = rng.Parent.Name ' ¤u§@ªí¦WºÙ
c = rng.Parent.Parent.Name  ' workbook
abc = "Workbooks(""" & c & ".xls"")." & "Sheets(""" & b & """).range(""" & a & """).value"
[a2] = abc ' ³o¥y¦p¦ó§ï ??
End Sub

GBKEE

¦^´_ 1# t8899
·Q¤Ó¦h

1. [a2] = Application.InputBox("¿é¤J¿ï¾Ü°Ï°ì", Type:=8) '¥i¦b¦U¤u§@ªí¤¤²¾°Ê,¿ï¾ÜÀx¦sÎÝ

½Æ»s¥N½X