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

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

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

¹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

ÁÂÁÂ

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE

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

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD