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

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

¥»©«³Ì«á¥Ñ 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

¦^´_ 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

¥»©«³Ì«á¥Ñ 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

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD