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

¤£¦Pexcel¤§¶¡ªº¸ê®Æ½Æ»s¡C

¤£¦Pexcel¤§¶¡ªº¸ê®Æ½Æ»s¡C

¦U¦ì¦n¡A½Ð°Ý¸Ó¦p¦ó¨Ï¥ÎVBA¡A¼¶¼g¤£¦PExcel¤§¶¡ªº¸ê®Æ½Æ»s¡H
Ä´¦p¡G§Ú¦³¨â¥÷Excelªí¡A¤@¥÷¬Oªí³æ¡B¥t¤@¥÷¬O¸ê®Æ®w¡A§Ú·Q§¹¦¨¨Ï¥Î¸ê®Æ®w¶ñ¤Jªí³æªº¥\¯à¡C
§Ú¥Ø«e·Q¨ìªº¿ìªk¬°¡A»Ý­n¨Ï¥Î¨ì¸ê®Æ®w®É¡A¶}±Ò¸Ó¥÷Excelªí¡A½Æ»s¹ïÀ³ªº¸ê®Æ¶i¤Jªí³æ¡C
»yªk¬°
Filename = "D:\Users\issac\Desktop\TQC+.xlsx"                                                          'Ū¨ú¸ê®Æ®w¸ô®|
Application.Workbooks.Open Filename                                                                           '¶}±Ò¸Ó¥÷ÀÉ®×(¦¹®É¨â¥÷Excel¦@¦s¦b¤@­ÓÀɮ׸Ì)
Workbooks("TQC+.xlsx").Activate                                                                                       '¤Á´«¦Ü TQC+.xlsx

¦ý¤U¤@¨B¡A·í§Ú¹Á¸Õ¦s¨úTQC+.xlsxªº¸ê®Æ®É¡A«o¤@ª½¨S¿ìªk§¹¦¨...§Úª½±µ·Q¨ì¥H¤Uªº¤è¦¡¡G
Worksheets("102").Range("a1").Select  ¤@ª½¥X²{"Class RangeªºSelect¤èªk¥¢±Ñ"ªº¿ù»~°T®§~

½Ð°Ý¸Ó¦p¦ó¸Ñ¡HÁÂÁ¡C

¦^´_ 1# tku0216
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.      With Workbooks("TQC+.xlsx").Worksheets("102")
  4.         .Activate
  5.         .[a1].Select
  6.      End With
  7. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ª©¤j±z¦n¡A·PÁ¦^ÂСA³o¼Ë´N¥i¥H¿ï¨ì§Ú©Ò»Ý­nªº¤u§@ªí¤F¡C

¥t·Q¦A½Ð±Ð¡A¹Á¸Õ¦b±zªº¼gªk¥[ªF¦è¡G
With Workbooks("TQC+.xlsx").Worksheets("102")
        .Activate
        .[a1].CurrentRegion.Select
     End With

¤W¤è¬õ¦r¬qªºµ{¦¡½X¬O§_¥i¥H¨Ï¥Î[Ctrl+J]ªº¤è¦¡¦Û°Ê±a¥X¡H

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD