[µo°Ý] ¦Û°Ê¥[¤JSolver.xla ©Î Solver.xlam

Scott090

¹q¸£¤º¦³EXCEL 2003¤Î 2010 ª©¥»¡A©ÎªÌ»¡¦P¤@workbookÀÉ­n¦b¤£¦Pªº¹qÄ䤺³Q¨Ï¥Î¡A¥¦­Ì±MÄݪº SOLVERª©¥»¤£¦P
¨C¦¸³£­n¤H¤u¨Ó°µ ADDIN ªº°Ê§@¡A«Ü¤£¤è«K
½Ð±Ð¤j®v¥ý¶i ¦³¦ó¤èªk¦b Workbook ¥´¶}®É¯à¦Û°Ê¿ëÃѨà Addin Solver

ÁÂÁÂ

GBKEE

¦^´_ 1# Scott090
½Ð½Æ»s©óThisWorkbook¼Ò²Õ

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     Select Case Application.Version
   
4.         Case "11.0"   '2003
   
5.             AddIns("SOLVER.xla").Installed = True
   
6.         Case "14.0"    '2010
   
7.             AddIns("SOLVER.xlam").Installed = True
   
8.     End Select
   
9. End Sub

½Æ»s¥N½X

Scott090

¦^´_ 2# GBKEE

·P®¦«ü¾É
1.¨Ì·Ó°õ¦æ·|¥X²{¶W¥X°}¦C½d³òªº¿ù»~¡A¤£ª¾¦ó¬G
2.solver.xla,solver.xlam ¦U¦Û³Q¦w¸Ë¦b¤£¦Pªº¸ô®|¤º¡A¨Ò¦p application.path, ¦]¬°³Q¥s¥Îªº excel.exe ª©¥»¤£¦P
3.¥[¸ü¤Þ¥Î«á°µ½T»{¡A¬O§_¤Þ¥Î¦¨¥\¡F§Q¥ÎŪ¨ú¤Þ¥Î¶µ¨Ó§@¤ñ¹ï ¡G
   ¥ý¨ú±o­p¼Æ¦³´X¶µ³Q¤Þ¥Î
      Dim i as integer   
      i = ThisWorkbook.VBProject.References.Count
   «h¥X²{ Thisworkbook.VBProject. .... ¤èªk¿ù»~¡A§ä¤£¥X°ÝÃD¦b­þ¸Ì

¬è±æ GBKEE ¤j®v¤£§[«üÂI

GBKEE

¦^´_ 3# Scott090

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     Select Case Application.Version
   
4.         Case "11.0"   '2003
   
5.             AddIns.Add Filename:="D:\2003\SOLVER.xla"
   
6.         Case "14.0"    '2010
   
7.             AddIns.Add Filename:="D:\2010\SOLVER.xlam"
   
8.     End Select
   
9.     AddIns("SOLVER").Installed = True
   
10. End Sub

½Æ»s¥N½X

Scott090

¦^´_ 4# GBKEE

·PÁ¤j®vµL¨pªº«ü¾É
¾Ç¨ì¤F   Addins.add filename:= ¥þ¸ô®|ÀɦW
               Addins().installed =