°²¦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 |