VBµ÷ÓÃEXCEL»æͼ£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp.ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("O24"), PlotBy:=xlRows
objExlApp.ActiveChart.SeriesCollection.NewSeries
objExlApp.ActiveChart.SeriesCollection(1).XValues = "={1,2}"
.........
»æÖÆXÖáʹÓÃÒÔÉÏÓï¾ä£¬ÕâÑùÖ»ÄÜÔÚXÖá×îÔçÁ½¸öµã±ê×¢ºá×ø±ê£¬Èç¹û»Í¼Ê±×¢Ïú×îºóÒ»¾ä»°£¬ÄÇôËùÓеã»á°´Ë³Ñ°±ê×¢ºá×ø±ê£¨1£¬2£¬3.....£©
µ«ÊÇÎÒÒª»æÖƵĵãºÜ¶à£¬ÎÒÏ£ÍûÔÚÕû¸öXÖáÉÏÖ»±ê×¢µÚÒ»µãºÍ×îºóÒ»µã£¬»òÕ߸ɴíXÖá²»Òª×ø±ê£¬ÇëÎÊ£¬ÓÐÏà¹ØÊôÐÔÐÞ¸ÄÂ𣿣¿
żȻƮ¹ý£¬²»ÊǺܻᣬ¹Ø×¢ÖУ¬UpUp
ÔÚExcelÀï¼Öƺ꣬Ȼºó²Î¿¼×Ô¶¯Éú³ÉµÄVBA´úÂë¾Í¿ÉÒÔÁË£¡
¹Ø×¢ÖС¡¡¡¡¡
ͼ±íÒÔÇ°ÊÇÔÚexcel×ö£¬ÏÖÔÚÒª½«ÆäÓ¦Óõ½VBÖС£
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
òËÆû·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄÜ°Ñ´úÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......