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

vb excel²Ù×÷³ö´í - VB / ¿Ø¼þ

ÏÂÃæÊÇÎÒ´ÓÎÒµÄÁíÍâÒ»¸öÌû×ÓÖп½¹ýÀ´µÄ£¬ÏëÒýÆð¸ü¶àÈ˰ïæ£¬ËùÒÔÁí·¢ÐÂÌû£¬Çë¸÷λ°ïæ¿´Ï£¬Ð»Ð»À²£¡

ÊǶÔÒ»¸öexcelÖжàÐнøÐÐsum³ö´í

ÒýÓà 2 Â¥ king06 µÄ»Ø¸´:
VB code
Range("A1:A101").Select
Range("A101").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-100]C:R[-1]C)" 'µÚ101ÐмǼÕâ¸öºÍÊǶàÉÙ.


ÎÒʹÓõÄÊÇÕâλͬѧµÄ·½·¨£¬µ«ÊÇÏÖÔÚÓöµ½ÁíÍâÒ»¸öÎÊÌâ
ÎҵijÌÐòÖØ¸´ÔËÐÐʱ±¨´í object variable or with block variable not set
±¨´íÐÐÊÇ ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)" ±¨´í¶ÔÏóÊÇActiveCell.FormulaR1C1


ÏÂÃæÊÇÎҵĶÔExcel²Ù×÷µÄ´úÂ룬Âé·³¸÷λ¸ø¿´Ò»Ï£¬ÎÊÌâ´¦ÔÚÄÄ£¬Ð»Ð»£¡

--¶¨Òå
  Dim excelApp As Excel.Application
  Dim excelBook As Excel.Workbook
  Dim excelSheet As Excel.Worksheet

 --´ò¿ªExcel¶ÔÏó
  Set excelApp = CreateObject("Excel.Application")
  Set excelBook = excelApp.Workbooks.Open(excelPath)
  Set excelSheet = excelBook.Worksheets(1)
--¶ÔexcelµÄ²Ù×÷µÈ
 excelSheet.Cells(endRow, 1) = "»ã×Ü:"
  excelSheet.Range("C5:C" & endRow).Select
  excelSheet.Range("C" & endRow).Activate
  ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)"

 --¶ÔexcelµÄ¹Ø±ÕµÈ²Ù×÷
excelApp.Visible = True
  excelBook.SaveAs savePath
  excelBook.Save
&nbs


Ïà¹ØÎÊ´ð£º

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

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

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