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

¦p¦ó¦b°õ¦æVBA®É¡A²£¥Í·sÀÉ¡A¨Ã±Nµ{¦¡½X²¾°Ê¨ì·sÀɤ¤ («æ)

¦p¦ó¦b°õ¦æVBA®É¡A²£¥Í·sÀÉ¡A¨Ã±Nµ{¦¡½X²¾°Ê¨ì·sÀɤ¤ («æ)

Dear ¤j¤j
         
          ¼¶¼g¤W¹J¨ì²~ÀV¡A²{¦b¦³»Ý­n¦b²£¥Í·sÀɮɡA¥i¥H±N«öÁä²¾°Ê¨ì·sÀɤW¡C
          ¯Ê¦p¦ó¦b·sÀɤ¤³]©w«öÁä»P³]©wµ{¦¡½X¡C
          ´£¨Ñ¤@­Ó¤pÀÉ®×»¡©ú¡C
          ·s¼W·sÀɦP®É±NÂÂÀɵ{¦¡½X½Æ»s¨ì·sÀɤ¤.rar (14.19 KB)
¾Ç²ß¤~¯à´£¤É¦Û¤v

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-11-20 02:31 ½s¿è

¦^´_ 1# hugh0620


¦b¦P¸ô®|¤U²£¥Í "Test.xls" ÀÉ¡A¨Ã¥B²£¥Í«ö¶s+²£¥Í¥¨¶°¨Ã¥B«ü©wµ¹¸Ó«ö¶s

¥H¤U¬O§Ú¼gªº½d¨Òµ{¦¡¡A½Ð¦Û¦æ­×§ï¦¨§A­nªº


Application.DisplayAlerts = False
oPath = ThisWorkbook.path
Set wb = Workbooks.Add   '·s¼W·sÀÉ

With wb.VBProject.VBComponents.Add(1).CodeModule
  .InsertLines 1, "Sub Test()"
  .InsertLines 2, "Msgbox ""³o¬O´ú¸Õ"""
  .InsertLines 3, "End Sub"
End With

With ActiveSheet.Buttons.Add(50, 50, 100, 30)
  .OnAction = wb.Name & "!Test"
  .Characters.Text = "·s¼Wªº«ö¶s"
End With

wb.SaveAs oPath & "\" & "Test.xls", xlNormal
wb.Close True
Set wb = Nothing


·sÀɲ£¥Í«ö¶s»P¥¨¶°.rar (34.51 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2019-11-20 09:50 ½s¿è

¦^´_ 2# n7822123


    ¸ÕµÛ¥h°õ¦æ¤j¤j´£¨ÑªºÀɮסA¦ý¦b:With wb.VBProject.VBComponents.Add(1).CodeModule¡A³o¤@¥y´N²£¥Í¿ù»~¡C
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 3# hugh0620

¸Õ¸Õ
¿ï¶µ-«H¥ô¤¤¤ß-«H¥ô¤¤¤ß³]©w-¥¨¶°³]©w-¶}µo¤H­û¥¨¶°³]©w
-«H¥ô¦s¨úvba±M®×ª«¥ó¼Ò«¬=>¥´¤Ä

TOP

¦^´_ 3# hugh0620


À³¸Ó­n¥i¥H¤~¹ï¡A¤£¥Î±`¼Æ¥N¸¹¦A¸Õ¬Ý¬Ý

With wb.VBProject.VBComponents.Add(vbext_ct_StdModule).CodeModule
  .InsertLines 1, "Sub Test()"
  .InsertLines 2, "Msgbox ""³o¬O´ú¸Õ"""
  .InsertLines 3, "End Sub"
End With
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 5# n7822123


    quickfixer ¤j¤jªº¦^ÂСA¤w¸g¥i¥H¡A·P®¦!!
   
     ¥t¥~¡A§Ú²{¦b¦b½m²ß¸ó¬¡­¶©I¥sµ{¦¡½X¡A¨Ì·Ó®Ñ¥»¤W¦b½m²ß¡A¦ýÁÙ¬O¦³¿ù»~¡A³Â·Ð½Ð«ü¥¿¡A½Ð°Ñ¾\ÀÉ®×!!
       ¸ó¬¡­¶Ã¯©I¥s¥¨¶°.rar (20.07 KB)
       ¦bÀɮ׳]©w¤W¡A·í§Ú©I¥s§¹«á¡A¦p¦ó±N©I¥sªºÀÉ®×Ãö±¼¡C
       (¦]¬°¡A¨Ï¥ÎªÌ¦bEXCEL¤W¾Þ§@¯à¤O¤W¤ñ¸û®t¡A©Ò¥H¡A·í§Q¥Î§¹©I¥sªºÀɮ׫á¡A¥i¥H¦Û¦æÃö³¬¡C)
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 2# n7822123


    ¤j¤j¡A§Aªº¤è¦¡¬O¥Î¼Ò²Õªº¤è¦¡¼W¥[µ{¦¡½X¡A¦A¥Îªí³æ±±¨î¶µªºButton«ü©w¥¨¶°¡C
    ¦ý¥i¥H¥ÎActiveX±±¨î¶µªºButtonªº¤è¦¡¡Aª½±µ¦bButton¸Ì­±¼g¤Jµ{¦¡½X¶Ü?!!
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-11-20 23:51 ½s¿è

¦^´_ 7# hugh0620


¤j¤j¡A§Aªº¤è¦¡¬O¥Î¼Ò²Õªº¤è¦¡¼W¥[µ{¦¡½X¡A¦A¥Îªí³æ±±¨î¶µªºButton«ü©w¥¨¶°¡C
¦ý¥i¥H¥ÎActiveX±±¨î¶µªºButtonªº¤è¦¡¡Aª½±µ¦bButton¸Ì­±¼g¤Jµ{¦¡½X¶Ü?!!

«ö¶s¤G

·sÀɲ£¥Í«ö¶s»P¥¨¶°1120.rar (43.95 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-11-21 01:14 ½s¿è

¦^´_ 6# hugh0620

¥t¥~¡A§Ú²{¦b¦b½m²ß¸ó¬¡­¶©I¥sµ{¦¡½X¡A¨Ì·Ó®Ñ¥»¤W¦b½m²ß¡A¦ýÁÙ¬O¦³¿ù»~¡A³Â·Ð½Ð«ü¥¿¡A½Ð°Ñ¾\ÀÉ®×!!
¦bÀɮ׳]©w¤W¡A·í§Ú©I¥s§¹«á¡A¦p¦ó±N©I¥sªºÀÉ®×Ãö±¼¡C
(¦]¬°¡A¨Ï¥ÎªÌ¦bEXCEL¤W¾Þ§@¯à¤O¤W¤ñ¸û®t¡A©Ò¥H¡A·í§Q¥Î§¹©I¥sªºÀɮ׫á¡A¥i¥H¦Û¦æÃö³¬¡C)

¥Îµ{¦¡Ãö±¼³]©w¤Þ¥Î¶µ¥Ø......§Ú¤£·|¡A¦]¬°§Ú³£¥Î Application.Run ¨Ó©I¥s  

¸ó¬¡­¶Ã¯©I¥s¥¨¶°.rar (21.38 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

²³æªº¨Æ±¡, ´N¤£­n½ÆÂø¤Æ,
±N¤u§@ªí·í°µ¼Ë¦¡ªí, «O¯d¥²­nªºªÅ¥Õ¤Î®æ¦¡,
½Æ»s¦Ü·sÀɮ׫á, ¦A¶K¤J»Ý­nªº¸ê®Æ§Y¥i~~

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD