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

[µo°Ý] ¦p¦ó¦C¥X¤å¥ó¦W?

[µo°Ý] ¦p¦ó¦C¥X¤å¥ó¦W?

¥ý Select  A2(³Ì«á¦bA2¶}©l¦V¤U¦C¥X¤å¥ó¦W)
§ä¨ì¤å¥ó2010¤º·Q­nªº¤å¥ó,¥Î "¦h­«¿ï¨úÀÉ®×" ¿ï¨ú·Q­nªº¤å¥óÀÉ®×,³Ì«á¥HSelect ªºA2¶}©l¦V¤U¦C¥X¤å¥ó¦W.

½Ð°Ý¤j¤j­Ì³o­Ó¦pªG¼g?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# basarasy


    ¥i§_¤W¶Ç­Ó²©öÀÉ®×+»¡©ú ³o¼Ë¤ñ¸û¾A·í¡C¤£µM¥i¯à«ÜÃøÀ´±z­nªº

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-13 20:17 ½s¿è

¦^´_ 1# basarasy
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i%
  4.     With Application.FileDialog(msoFileDialogOpen)
  5.         .AllowMultiSelect = True
  6.         .InitialFileName = "D:\TEST"       '½Ð ­×§ï¬°§Aªº¤å¥ó§¨
  7.         .Show
  8.         For i = 1 To .SelectedItems.Count
  9.             ActiveSheet.[A2].Offset(i - 1) = .SelectedItems(i)
  10.         Next
  11.     End With
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# GBKEE


    ÁÂÁÂGBKEE¤j¤j.
    ¦ý¬O¥i¥H Sheets a1´N¦ba1¥X Sheets b2´N¦bb2¥X¶Ü?
eg.  Sheets a3  >run vba > a3-a10¥X¸ê®Æ¦W(¤å¥ó§¨ªº¦W or ¤å¥ó¦W)
   


50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 4# basarasy
ActiveSheet.[A2].Offset(i - 1) = .SelectedItems(i)
§ï¦¨§@¥Î¤¤ªºÀx¦s®æ
ActiveCell.Offset(i - 1) = .SelectedItems(i)

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD