½Æ¨î activecell ©Ò¦b¦æªº¸ê®Æ¨ì¬Y­¶¡A

eigen

½Æ¨î activecell ©Ò¦b¦æªº¸ê®Æ¨ì¬Y­¶¡A

§Ú¬O°Ñ¦Ò http://forum.twbts.com/thread-10659-1-1.html¡A­×§ï¥X¨Óªº

1. Sub setup_cal()
   
2.         Dim E As Range
   
3.         Sheets("Sheet1").Activate
   
4.                 For Each E In Selection.EntireRow
   
5.                         If E.Row > 1 Then 'And (E.Range("a1") = 1 Or E.Range("a1") = "Yes") Then
   
6.        
   
7.                                  With Sheets("Sheet2")
   
8.                                         .[a1]=        E.Range("b1")                                '«È¤á½s¸¹
   
9.                                         .[b1]=        E.Range("d1")                                '«È¤á¦WºÙ
   
10.                                         .[k2]=        E.Range("e1")                                '¥»´ÁÀ³¦¬
    
11.                                  End With        
    
12.                          End If
    
13.                 Next       
    
14. End Sub

½Æ»s¥N½X

³o­Óµ{§Ç·|±N©Ò¦b¦æªº¸ê®Æ copy ¨ì¥t¤@­Ó sheet

°Ý¬O¥d¦b¡GµL½×¿ï¾Ü¤@¦æ¡B¨â¦æ¡AÁÙ¬O«Ü¦h¦æ¡A§Ú³£¥u»Ý­n½Æ¨î³Q¿ï¾Üªº²Ä¤@¦æ¨ì¥t¤@­Ósheet ¤§¤¤¡C

For Each E In Selection.EntireRow ¡A§ÚÀ³¸Ó«ç»ò§ï¼g¡HÁÂÁÂ

eigen

¦^´_ 2# ML089


    «D±`·PÁ§Aªº¦^´_¡A­ì¨Ó¬O¥Î set ~~ÁÂÁÂ~~

ML089

µL½×¿ï¾Ü¤@¦æ¡B¨â¦æ¡AÁÙ¬O«Ü¦h¦æ¡A§Ú³£¥u»Ý­n½Æ¨î³Q¿ï¾Üªº²Ä¤@¦æ¨ì¥t¤@­Ósheet ¤§¤¤¡C
For Each E In Selection.EntireRow ¡A§ÚÀ³¸Ó«ç»ò§ï¼g

§ï¬°
Set E = Selection(1, 1).EntireRow

Sub setup_cal()
    Dim E As Range
    Set E = Selection(1, 1).EntireRow
    If E.Row > 1 Then
        With Sheets("Sheet2")
            .[a1] = E.Range("b1") '«È¤á½s¸¹
            .[b1] = E.Range("d1") '«È¤á¦WºÙ
            .[k2] = E.Range("e1") '¥»´ÁÀ³¦¬
        End With
    End If
End Sub