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

[µo°Ý] Ãö©ó¦Û°Ê¶K¤W³sµ²¦Ü¥t¤@­ÓÀɮרæ۰ʴ¡¤J¶W³sµ²

¦^´_ 58# GBKEE


    ¥Ø«e§ï¬°¥H¤U«ü¥O,¤w¸Ñ¨M³sµ²°ÝÃD,
  1. Sub ¤pÀ\³æ_AÀ\_¦Û°Ê¿é¤J¸ê®Æ()
  2.     Sheets("¼Æ¾Ú").Select
  3.     Range("B22").Select
  4.     Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
  5.     Sheets("§Ö³t¿é¤J").Select
  6.     Range("B2") = "=" & ThisWorkbook.Sheets("¥XÀ\³æ").Range("H1").Address(, , , 1)
  7.     Range("C3") = "=" & ThisWorkbook.Sheets("¥XÀ\³æ").Range("C4").Address(, , , 1)
  8.     Range("D3") = "=" & ThisWorkbook.Sheets("¥XÀ\³æ").Range("V1").Address(, , , 1)
  9.     Range("B4") = "=" & ThisWorkbook.Sheets("¥XÀ\³æ").Range("X3").Address(, , , 1)
  10.     Range("B5") = "=" & ThisWorkbook.Sheets("¥XÀ\³æ").Range("E1").Address(, , , 1)
  11. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-5-12 15:41 ½s¿è

¦^´_ 60# starry1314

EX1.JPG
2015-5-12 15:36
  1. Sub Ex()
  2.     End
  3.     '·í°õ¦æ¨ì End ³¯­z¦¡®É¡A³¯­z¦¡·|­«·s³]©w¦b©Ò¦³¼Ò²Õ¤¤ªº©Ò¦³¼Ò²Õ¼h¦¸ÅܼƥH¤Î©Ò¦³ÀRºA°Ï°ìÅܼơC
  4.     '­Y­n«O¯d³o¨ÇÅܼƪº­È¡A½Ð¨Ï¥Î Stop ³¯­z¦¡¨Ó¨ú¥N End ¡AµM«á±z¥i¥H¦bµy«áÄ~Äò°õ¦æ¡C
  5. End Sub
½Æ»s¥N½X
¼Ò²Õ¦@¥Îªº¨p¥ÎÅܼưõ¦æ«á·|¦s¦b©ó VBA¤¤
­Y¦³°õ¦æ End ³¯­z¦¡
©Î¦p¹Ïªº ­«·s³]©w
ÅܼƻݦA«×³]©w
¤]´N¬O»¡
µ¹§Aªº Sub Main()¶·°õ¦æ¤@¦¸,
µ¹§Aªº Sub Ex() ¤~¨S¦³¿ù»~ªº
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 62# GBKEE

·PÁ»¡©ú~§Ú¦A¸Õ¸Õ¬Ý¡I

TOP

¦^´_ 59# lpk187


    L¤j~·Q½Ð°Ý¤@¤U
­n«ç»ò³Ì«á¤@¦æ¥[¤Jwindows«ü¥O¥iÅý¥Lªð¦^¥¨¶°©Ò¦s¦bªºµøµ¡,©Î¬O¦b­þ¸ÌÂIÀ»¥¨¶°´N¸õÂà¦^¨Ó
  1.     Sheets("¼Æ¾Ú").Select
  2.     Range("B27").Select
  3.     Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
  4.     Sheets("§Ö³t¿é¤J").Select
  5.     Range("B2") = "=" & ThisWorkbook.Sheets("¥XÀ\³æ").Range("H1").Address(, , , 1)
  6.     Range("C3") = "=" & ThisWorkbook.Sheets("¥XÀ\³æ").Range("C5").Address(, , , 1)
  7.     Range("D3") = "=" & ThisWorkbook.Sheets("¥XÀ\³æ").Range("L1").Address(, , , 1)
  8.     Range("B4") = "=" & ThisWorkbook.Sheets("¥XÀ\³æ").Range("B3").Address(, , , 1)
  9.     Range("B5") = "=" & ThisWorkbook.Sheets("¥XÀ\³æ").Range("E1").Address(, , , 1)
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-5-25 09:38 ½s¿è

¦^´_ 64# starry1314


    §Ú¤£ª¾¹D§A­ì¬¡­¶Ã¯ªº¤u§@ªí¦WºÙ¬O¤°»ò¡A§Ú°²³]¥¦¬O"¥XÀ\³æ"³oªº¤u§@ªí
ThisWorkbook.Sheets("¥XÀ\³æ").Activate
"ThisWorkbook"¬O­ìµ{¦¡©Ò¦bªº¬¡­¶Ã¯

TOP

¦^´_ 65# lpk187


   
·PÁÂ..­ì¨Ó¬O¤Ö¤Fsheets
­ì¥»¼gªk...ThisWorkbook.Activate

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD