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

[µo°Ý] ¥i§_¥Îªí³æ¤è¦¡¨Ó«Ø¥ß¸ê®Æ®w?

[µo°Ý] ¥i§_¥Îªí³æ¤è¦¡¨Ó«Ø¥ß¸ê®Æ®w?

¥i¤£¥i¥H¥Îªí³æ¤è¦¡¨Ó¶ñ¤J¸ê®Æ  ,¥H«Ø¥ß­û¤u°ò¥»¸ê®Æ®w?
¦pªþ¥ó
ÁÂÁ¡I

ªþ¥ó.rar (26.42 KB)

¥»©«³Ì«á¥Ñ atuan207 ©ó 2011-4-21 20:04 ½s¿è

§Ú¦Û¤v³Ìªñ¸Õ°µªºªí³æ¤è¦¡KEY¸ê®Æ¡A
¦]¬°Åv­­ÁÙ¤£°÷¡A¤£¯à¬Ý¤j¤jªºªþ¥[ÀÉ®×
©Ò¥H§Ú¦Û¤v°µªº¥á¤W¥hµ¹§A¬Ý¬Ý
§Æ±æ¦³À°§U


ªí³æ¤è¦¡KEY¸ê®Æ.rar (13.57 KB)

PS.·í¤¤³¡¤Àµ{¦¡¤]¬O¦b³o°Ý°Ý³oÃ䪺«e½ú¤~¦h¥X¨Óªº(·s¼W&§R°£)

TOP

¦^´_ 2# atuan207


    ÁÂÁ§Aªº¸Ñµª¡A¦ý§ÚªºÅv­­µLªk¤U¸üÀɮסA½Ð°Ý¦U¦ì¥i§_¥Î¨ä¥L¤è¦¡§e²{¥X¨Ó©O¡H

ÁÂÁ¡I

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-4-28 00:27 ½s¿è

¶â...
§A¤w¸g¥i¥H¦Û¤v«Ø¥ß°_¦Û©wªí³æ±±¨î¶µ¤F,
¨º»ò´N¥i¥H§â UserForm1.TextBox1.Text µ¥µ¥»P Sheet ¤¤ªº¸ê®Æ¥æ¤¬¹ïÀ³°Ñ·Ó.

©R¥O«ö¶s ¥u­n DoubleClick ´N·|¦Û°Ê«Ø¥ß sub §âµ{¦¡Áä¶i¥h§Y¥i,
°õ¦æ®É«h¥u­nÂI¸Ó«ö¶s´N·|¶]¬ÛÀ³ªºµ{¦¡.

¦Ü©ó Sheet ¤¤¤W¤U¤@µ§¸ê®Æªº¨ú¥Î¤è¦¡«Øij¥Î Sheet(1).Cells(3,1) ªº¤è¦¡,
¨ä¤¤ Cells(3,1) ªí¥Ü¨ú¥Î ¦C 3 Äæ 1 <§Y Range("A3")> ªº¸ê®Æ,
¦ÓÂÇ¥Ñ
With Sheet(1)
  .Cells(iRow, 1).value  ' ²Ä¤@µ§¸ê®Æªº©m¦W
  .Cells(iRow, 2).value  ' ²Ä¤@µ§¸ê®Æªº¨­¥÷ÃÒ¦r¸¹
  .
  .
  .
End With
«h¥u­n§ó§ï iRow ´N¥i¥H¨ú±o¨C¤@µ§¸ê®Æªº¤º®e

TOP

¦hµo¤@ÂI¤å³¹~ ¶°º¡50¤À´N¥i¥H¤U¸ü¤F~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

Private Sub Cbo·s¼W¸ê®Æ_Click()
     myarray = Array(Txt©m¦W.Value, Txt¹q¸Ü.Value, Txt¦a§}.Value)
    [b65536].End(xlUp).Offset(1).Resize(, 3) = myarray   ===>½Ð°Ý¥ªÃä³o¦æµ{¦¡½X,¥i§_À°¸ÑÄÀ¤@¤U!!
    If Range("A2") = "" Then
        Range("A2") = 1
        Range("A2:A" & Range("B65536").End(xlUp).Row).DataSeries===>½Ð°Ý¥ªÃä³o¦æµ{¦¡½X,¥i§_À°¸ÑÄÀ¤@¤U!!
    Else
        Range("A" & [a65536].End(xlUp).Row & ":A" & Range("B65536").End(xlUp).Row).DataSeries     ===>½Ð°Ý¥ªÃä³o¦æµ{¦¡½X,¥i§_À°¸ÑÄÀ¤@¤U!!
    End If
End Sub

TOP

¦^´_ 7# rph
[b65536].End(xlUp) : ±q Range("B65536") Àx¦s®æ¶}©l©¹¤W§ä²Ä¤@­Ó¦³¸ê®ÆªºÀx¦s®æ, ¥ç§Y¸ÓÄæ¸ê®Æ°Ï°ìªº³Ì©³¤U¤@­Ó.(§Y«ö End Áä§ä¨ìªº¨º­Ó)
.Offset(1) : ¦V¤U²¾°Ê¤@®æ, µ¥¦P .Offset(1, 0)
.Resize(,3) : ¦V¥kÂX¥R¿ï¨ú°Ï°ì¬°¥]§t¸Ó®æ¦@ 3 ­ÓÄæ¦ìªºÀx¦s®æ¬°¼Ðªº, µ¥¦P .Resize(0, 3)

­nª¾¹D»PÀx¦s®æ¦³Ãöªº«ü¥O¥Î³~¥i¥Hª½±µ¶K¦b§Y®É¹Bºâµøµ¡³v¨B©ó¥kÃä¥[¤W .Select ´N¥i¥H¬Ý¨ì®ÄªG¤F
¨Ò¦p : ¥ý¥´¤W [b65536].End(xlUp).Select ¬Ý­þ­ÓÀx¦s®æ³Q¿ï¨ú¤F,
¤¤¶¡¥[¤W .Offset(1) Åܦ¨ [b65536].End(xlUp).Offset(1).Select Ä~ÄòÆ[¹î... ¨Ì¦¹Ãþ±À.

Range("A2:A" & Range("B65536").End(xlUp).Row).DataSeries
´N¬O¥H¼Æ­Ó(§Y "A2:Ax" x=BÄæ³Ì©³¤@­Ó¦³¸ê®ÆªºÀx¦s®æªº¦C½s¸¹<ÂÇ¥Ñ .Row ¨ú±o>)Àx¦s®æ¬°¼Ð¦a«Ø¥ß¸ê®Æ¼Æ¦C

Range() ¥k¤è¨â­Ó¬A©·¤¤¶¡¨ä¹ê´N¬O¤å¦r¬Û±µ, ¥i¥Hª½±µ Copy ¶K¨ì§Y®É¹Bºâµøµ¡¦A¦b¥ª¤è¥[¤@­Ó ? ´N¥i¤F¸Ñ,
§Y ? "A" & [a65536].End(xlUp).Row & ":A" & Range("B65536").End(xlUp).Row ´Nª¾¹D¥¦¬O«ç»ò¦^¨Æ¤F.

½Ðµ½¥Î Mark ©R¥O¤å¦r«á«ö F1 Áä§ä»¡©ú.

TOP

65536¬O³Ì¤j­­¨îªº®æ¼Æ
½ñ¨¬¤ù¨è¡A¨É¨ü¥Í¬¡(Y)
¾K¥Í¹Ú¦º¡A´ýµM§Ñ§Ú(N)
(Y/N)?

TOP

¯u¬O¨ü±Ð¤F....ÁöµM¤£¯à¤U¸ü....¥[ªo

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD