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

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

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

§Ú·Q½Æ»s¤u§@ªí¤º®e¶K¤W­È¨ì¨ä¥L¤u§@ªí®Éµo¥Í¤F¿ù»~
  1. Private Sub ¹L±b_Click()

  2.     Sheets("¹L±bªí³æ").Select
  3.     Range("A6").Select
  4.     Application.CutCopyMode = False

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

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD