ªð¦^¦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

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

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD