Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÇóÖúVBÀûÓÃEXCEL»­Ç÷ÊÆÍ¼ - VB / »ù´¡Àà

¸÷λ´óÏÀ£¬ÎÒÏëÓÃÒÔÏ´úÂëʵÏÖ»­Ç÷ÊÆÍ¼µÄ¹¦ÄÜ£¬¼´°²ÅÅÁ½¸ö°´¼ü£¬·Ö±ð»°AÁкÍBÁеÄͼ²¢ÏÔʾ£¬Óöµ½ÁËRANGE·½·¨µÄglobalÎÊÌâ£¬ÍøÉÏ·½·¨ºÜ¶à£¬µ«ÊǶ¼²»Ì«ºÃÓã¬Çë´ó¼ÒÖ¸µã

PS:ΪÁËÏÔʾ×öµÃͼ£¬ÎÒ°ÑEXCELµÄ¹Ø±Õ³ÌÐò×¢Ê͵ôÁË£¬µãCommand1¿ÉÒÔ×ö³öÀ´£¬µ«ÊǹرÕͼºó£¬ÔÙµã»÷Command2¾Í»á±¨´í
£¬¼´Ê¹ÎÒʹÓÃ×¢Ê͵ôµÄ³ÌÐò£¬µ«ÊÇ»¹ÊÇ»áÓдËÎÊÌ⣬¶øÇÒ½ø³ÌÀïµÄEXCEL.EXE¹Ø²»µô£¬Çë´ó¼Ò´Í½Ì£¬ÒªÊÇÄÜÓбðµÄ·½Ê½Íê³ÉÇ÷ÊÆÍ¼Ò²¿ÉÒÔ˵˵£¬µ«ÊÇÊý¾ÝÊDZ£´æÔÚEXCELÀïµÄ²»Í¬ÁÐÖС£

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub Command1_Click()

  Range("A:A").Select
  xlApp.DisplayAlerts = False
  Charts.Add.ChartWizard gallery:=xlLine, HasLegend:=False, Title:="ÕÛÏßͼ±í", ValueTitle:="PHÖµ", _
  Format:=2
  xlApp.Visible = True

' Set xlSheet = Nothing
' xlBook.Close
' Set xlBoook = Nothing
' xlApp.Quit
' Set xlApp = Nothing  

End Sub

Private Sub Command2_Click()
  Range("B:B").Select
  xlApp.DisplayAlerts = False
  Charts.Add.ChartWizard gallery:=xlLine, HasLegend:=False, Title:="ÕÛÏßͼ±í", ValueTitle:="PHÖµ", _
  Format:=2
  xlApp.Visible = True

' Set xlSheet = Nothing
' xlBook.Close
' Set xlBoook = Nothing
' xlApp.Quit
'


Ïà¹ØÎÊ´ð£º

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

ÇóÖú£ºC´úÂëchange toVB´úÂë - VB / »ù´¡Àà

ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó­¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ