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

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

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

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

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD