[µo°Ý] µo¥Í°õ¦æ¶¥¬q¿ù»~'1004': Class RangeªºSelect¤èªk¥¢±Ñ

zzoo123

§Ú·Q½Æ»s¤u§@ªí¤º®e¶K¤W­È¨ì¨ä¥L¤u§@ªí®Éµo¥Í¤F¿ù»~

1. Private Sub ¹L±b_Click()
   
2. 
   
3.     Sheets("¹L±bªí³æ").Select
   
4.     Range("A6").Select
   
5.     Application.CutCopyMode = False
   
6. 
   
7.     Sheets("¹L±bªí³æ").Select
   
8.     Range("A6:F15").Select
   
9.     Application.CutCopyMode = False
   
10.     Selection.Copy
    
11.     Sheets("­É¥XÂkÁÙ¬ö¿ý").Select
    
12.     Range("A3").Select  //³o¤@¥y·|µo¥Í°õ¦æ¶¥¬q¿ù»~'1004': Class RangeªºSelect¤èªk¥¢±Ñ
    
13.     Selection.End(xlDown).Select
    
14.     ActiveCell.Offset(1, 0).Range("A1").Select
    
15.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
16.         :=False, Transpose:=False
    
17.    
    
18.     Sheets("¹L±bªí³æ").Select
    
19.     Range("A6").Select
    
20.    
    
21. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# zzoo123
§Aªºµ{¦¡½X¦b¤u§@ªí¼Ò²Õ
µ{¦¡½X Range("A3").Select ¬O³o¤u§@ªíªºRange("A3").Select
**************************
Sheets("­É¥XÂkÁÙ¬ö¿ý").Select  **§ïÅܤF§@¥Î¤¤¤u§@ªí¬°Sheets("­É¥XÂkÁÙ¬ö¿ý")**
Range("A3").Select  //³o¤@¥y·|µo¥Í°õ¦æ¶¥¬q¿ù»~'1004':
¤£¯à¦b Sheets("­É¥XÂkÁÙ¬ö¿ý")ªº Range¤¤°õ¦æ, ¤u§@ªí¼Ò²Õªº¤u§@ªí¸ÌªºRange("A3").Select
******************************************
¸Ñ¨M¤è¦¡
¥i±Nµ{¦¡½X©ñ¦bThisWorkbook¼Ò²Õ , ¸Õ¸Õ¬Ý
©Î­×§ïµ{¦¡½X

1. With Sheets("­É¥XÂkÁÙ¬ö¿ý")
   
2.     .Select
   
3.     .Range("A3").Select
   
4. End With

½Æ»s¥N½X

zzoo123

·PÁÂGBKEEªºÀ°¦£ °ÝÃD³z¹L ´£¨Ñªº­×§ïµ{¦¡½X ¤w¸g¸Ñ¨M ¹ê¦b¤Ó¼F®`¤F