[µo°Ý] Application.InputBox

t8899

Dim rng As Range
    Set rng = Application.InputBox("½Ð¥Î·Æ¹«¿ï", Type:=8)
RNG.COUNT ·|¶Ç¦^¿ï¤F´X­ÓÀx¦s®æ
°²¦p¿ï¾Ü3­ÓÀx¦s®æ,³o¤T­ÓÅܼƦU¦p¦óªí¥Ü?(·Q¤À¶}¨Ï¥Î)

t8899

Set A1 = rng(1)
Set A2 = rng(2)
Set A3 = rng(3)
bobomi µoªí©ó 2014-10-31 22:03

Sub MA3333()
    Dim rng, A1, A2, A3, A4
    Set rng = Application.InputBox("½Ð¥Î·Æ¹«¿ï", Type:=8)
Set A1 = rng(1)
Set A2 = rng(2)
Set A3 = rng(3)
Set A4 = rng(4)
' °²¦p§Ú¨Ì§Ç¿ï¾Ü $I$13,$I$17,$J$14,$J$19   4­Ó
   MsgBox A3.Address '(¶Ç¦^²Ä¤T­Ó)
end sub
¦^³ø  $I$15 ¤£¹ï°Ú ,À³¸Ó¬O $J$14,§Ú¨S¿ï $I$15 °Ú ??

t8899

thanks
bobomi µoªí©ó 2014-11-2 00:00

§Ú¸Õ¹L  ¤U­±¤]·|·Ó§A©Ò¿ïªº¶¶§Ç¨Ì§Ç³B²z,¥u¬OµLªkª¾¹D­Ó§OÅܼƪº¦WºÙ  
   Dim ZZ, rng
    Set rng = Application.InputBox("½Ð¥Î·Æ¹«¿ï" & [A10], Type:=8)
For Each ZZ In rng
MsgBox ZZ.Address
Next

t8899

§Ú·Q¨ìªº¦³¨âºØ¤èªk¥i¥H¹ê²{,
¤£¹L­n¬Ý§A«áÄòªº»Ý¨D¨M©w­n¥Î­þºØ:
1. »Ý­n§ì©Ò¿ï¨úÀx¦s®æªº¦ì§}¦r¦ê:2. ...
luhpro µoªí©ó 2014-11-2 10:23

·PÁ¨â¦ì«ü¾É!