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

basarasy

¥ý 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?

mark15jill

¦^´_ 1# basarasy


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

GBKEE

¦^´_ 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

basarasy

¦^´_ 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)
   

¤U¸ü (37.46 KB)

2011-5-18 15:17

¤U¸ü (52.79 KB)

2011-5-18 15:17

¤U¸ü (36.45 KB)

2011-5-18 15:17

GBKEE

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