½Ð±Ð½Æ»s¨ì¤£¦Pªº¤u§@ªíµLªk°_§@¥Î ?¦p¦ó­×§ï?

t8899

¿ï¾Ü¬Y½d³ò¡A¦p¦ó¨D±ooffset ªº­È?
¨Ò¦p  A1:B2 §YA1 ²¾¨ì B2 «hµª®×¬° OFFSET(1,1)
Sub t()
    Dim rng As Range
    Set rng = Selection
???= rng.Address
  End Sub

t8899

¦^´_  t8899
¬O³o¼Ë¶Ü?
GBKEE µoªí©ó 2014-8-24 10:19

¥¿½T¡AÁÂÁÂ!

t8899

Sub test() '½Ð¥Îmouse¥ý¿ï¾Ü½Æ»sªº½d³ò
    Dim rng As Range, a, z, r, rr
    Set rng = Selection
z = InputBox("¿é¤J¶}©l¦ì§}")
Set r = Range(z).Offset(rng.Rows.Count - 1, rng.Columns.Count - 1)
Set rr = Range(z)
ActiveSheet.Range(rr.Address, r.Address) = Selection.Formula
End Sub

t8899

¦^´_  t8899

Sub test() '½Ð¥Îmouse¥ý¿ï¾Ü½Æ»sªº½d³ò
    Dim rng As Range, a, z, r, rr
    Set rn ...
GBKEE µoªí©ó 2014-8-25 05:53

  Set rng = Selection   '³o¥²¬OActiveSheetªºSelection
³o¤@¥y¥i¥H§ó§ï¶Ü? ¦pªGµL¸Ñ¡A¦A¼W¥[¤@­Óinbox ¿é¤J¿ï¾Üªº¤u§@ªí¥i¥H¶Ü??

t8899

¦^´_  t8899
¦³Application,     InputBox ¬°¤èªk,
¨S¦³Application,  InputBox ¬°¨ç¼Æ,
GBKEE µoªí©ó 2014-8-25 06:23

¥i¥H, ¦ý¥u¯àÂлs¤@­ÓÀx¦s®æ

t8899

¦^´_  t8899
¦³Application,     InputBox ¬°¤èªk,
¨S¦³Application,  InputBox ¬°¨ç¼Æ,
GBKEE µoªí©ó 2014-8-25 06:23

Àɮפ¤ Book1.rar (8.46 KB)

¤U¸ü¦¸¼Æ: 3

2014-8-25 09:32

¥Ø¼Ð¤£¹ï
1.¿ï¾Üsheet1 c1-c3 ¥Ø¼Ð sheet2 h1 µ²ªG sheet1 c1¶K¨ì sheet2 h3 ¨ä¾lªÅ¥Õ
¥¿½T¥Ø¼ÐÀ³¬° sheet2 h1-h3 Offset(rng.Rows.Count - 1, rng.Columns.Count - 1)¥¢®Ä ?
2.¿ï¾Üsheet1 c1-c3 ¥Ø¼Ð sheet2 h1-h3 µ²ªG  sheet1 c1¶K¨ì sheet2 h3-h5
¥¿½T¥Ø¼ÐÀ³¬° sheet2 h1-h3

t8899

¦^´_  t8899
¬O³o¼Ë¶Ü?
GBKEE µoªí©ó 2014-8-25 09:56

§¹¥þ¥¿½T¡A·PÁ±z¼ö¤ß«ü¾É!

t8899

¦^´_  t8899
¬O³o¼Ë¶Ü?
GBKEE µoªí©ó 2014-8-25 09:56

¦A½Ð±Ð¤@¤U¡Aµ{§Ç¶]§¹¦³µL¿ìªk°±¯d¦b¥Ø¼Ð¤u§@ªí(activate)??