ExcelHome¼¼ÊõÂÛ̳

 ÕÒ»ØÃÜÂë
 Ãâ·Ñ×¢²á

QQ怬

Ö»ÐèÒ»²½£¬¿ìËÙ¿ªÊ¼

¿ì½ÝµÇ¼

ËÑË÷
EH¼¼Êõ»ã-רҵµÄÖ°³¡¼¼ÄܳäµçÕ¾ ÃîÔÕ£¡º¯Êý¶Î×ÓÊÖȤζ½²º¯Êý Excel·þÎñÆ÷-»áExcel,×ö¹ÜÀíϵͳ Excel Home¾«Æ·Í¼ÎĽ̳̿â
HRн³ê¹ÜÀíÊý×Ö»¯ÊµÕ½ Excel 2021º¯Êý¹«Ê½Ñ§Ï°´óµä ExcelÊý¾Ý͸ÊÓ±íʵսÃؼ¼ ´òÔìºËÐľºÕùÁ¦µÄÖ°³¡±¦µä
300¼¯Office 2010΢ÊÓƵ½Ì³Ì Êý¾Ý¹¤×÷ÕߵݸͷÊé Ãâ·ÑÖ±²¥¿Î¼¯½õ ExcelHome³öÆ· - VBA´úÂ뱦Ãâ·ÑÏÂÔØ
ÓÃChatGPTÓëVBAÒ»¼ü¸ã¶¨Excel WPS±í¸ñ´ÓÈëÃŵ½¾«Í¨ Excel VBA¾­µä´úÂëʵ¼ùÖ¸ÄÏ
²é¿´: 1466|»Ø¸´: 13

[ÇóÖú] Ϊʲôֻѭ»·ÁË1´Î£¬²»ÄܱéÀúÎļþ¼ÐÏÂËùÓеÄÎļþ

[¸´ÖÆÁ´½Ó]

TAµÄ¾«»ªÖ÷Ìâ

TAµÄµÃ·ÖÖ÷Ìâ

·¢±íÓÚ 2017-8-16 15:48 | ÏÔʾȫ²¿Â¥²ã |ÔĶÁģʽ
±¾ÈËÊDzËÄñ£¬´Ë³ÌÐòÊǰٶȳ­Ï®ºóÐ޸ĵģ¬µ«ÊÇÔ­Îļþ¿ÉÒÔ±éÀúÎļþ¼ÐÄÚÈÝ»ã×Ü£¬ÎÒÕâ¸öÖ»Äܲé1¸ö¹¤×÷²¾µÄÄÚÈÝ»ã×Ü£¬²»ÖªµÀÊÇÔõô»ØÊ¡£Âé·³°ïæ¿´ÏÂ

н¨Îļþ¼Ð.rar

133.56 KB, ÏÂÔØ´ÎÊý: 11

TAµÄ¾«»ªÖ÷Ìâ

TAµÄµÃ·ÖÖ÷Ìâ

 Â¥Ö÷| ·¢±íÓÚ 2017-8-16 16:02 | ÏÔʾȫ²¿Â¥²ã
°´Å¥Ôڲ˵¥À¸µÄ  ¡°Êý¾Ý¡±¡ª¡ª¡°Éú³É±¾²¾Êý¾Ý¡±¡ª¡ª¡°×ãÀºÅÅ¡±

TAµÄ¾«»ªÖ÷Ìâ

TAµÄµÃ·ÖÖ÷Ìâ

 Â¥Ö÷| ·¢±íÓÚ 2017-8-17 08:33 | ÏÔʾȫ²¿Â¥²ã

TAµÄ¾«»ªÖ÷Ìâ

TAµÄµÃ·ÖÖ÷Ìâ

·¢±íÓÚ 2017-8-17 09:14 | ÏÔʾȫ²¿Â¥²ã
ÒÔÏ´úÂëÓÐÎÊÌ⣬ÿ´Î¶¼½«Éϴλã×ܵıíɾ³ýºóÔÙн¨£¬µ±È»Ö»ÄÜ»ã×ÜÒ»¸ö±íÁË¡£
For Each sht In ThisWorkbook.Worksheets '********Ä£¿é2
        
        If sht.Name = "×ãÀºÅÅ" Then 'Èç¹û´æÔÚͬÃû£¬ÏÈɾ³ý
           Application.DisplayAlerts = False
           sht.Delete
           Application.DisplayAlerts = True
        End If
        Next
         
          Sheets.Add after:=Sheets(Sheets.Count) '******** Ä£¿é2
           Sheets(Sheets.Count).Name = "×ãÀºÅÅ"

TAµÄ¾«»ªÖ÷Ìâ

TAµÄµÃ·ÖÖ÷Ìâ

 Â¥Ö÷| ·¢±íÓÚ 2017-8-17 09:25 | ÏÔʾȫ²¿Â¥²ã
ÄÇÓ¦¸ÃÔõôдÕâ¸ö´úÂë²ÅÄܺϲ¢Í³¼ÆÄØ£¿

TAµÄ¾«»ªÖ÷Ìâ

TAµÄµÃ·ÖÖ÷Ìâ

·¢±íÓÚ 2017-8-17 10:10 | ÏÔʾȫ²¿Â¥²ã
[¹ã¸æ] VBA´úÂ뱦 - VBA±à³Ì¼ÓÇ¿¹¤¾ß ¡¤ VBA´úÂëËæ²éËæÓà ¡¤ ÄÚÖöàÏîVBA±à³Ì¼ÓÇ¿¹¤¾ß       ¡ï Ãâ·ÑÏÂÔØ ¡ï      ¡ïʹÓÃÊÖ²á¡ï
dxk007 ·¢±íÓÚ 2017-8-17 09:25
ÄÇÓ¦¸ÃÔõôдÕâ¸ö´úÂë²ÅÄܺϲ¢Í³¼ÆÄØ£¿

²»ÈçÏêϸ˵Ã÷ÄãµÄÒªÇó£¬×îºÃÄܸ½ÉÏÄ£Äâ½á¹û£¬Èôó¼Ò°ïÖúÄãÖØÐÂдһ¶Î´úÂë¡£

TAµÄ¾«»ªÖ÷Ìâ

TAµÄµÃ·ÖÖ÷Ìâ

·¢±íÓÚ 2017-8-17 10:25 | ÏÔʾȫ²¿Â¥²ã
[¹ã¸æ] ExcelÒ×Óñ¦ - ÌáÉýExcelµÄ²Ù×÷ЧÂÊ ¡¤ Excel / WPS±í¸ñ²å¼þ       ¡ïÃâ·ÑÏÂÔØ ¡ï       ¡ï ʹÓðïÖú¡ï
chxw68 ·¢±íÓÚ 2017-8-17 10:10
²»ÈçÏêϸ˵Ã÷ÄãµÄÒªÇó£¬×îºÃÄܸ½ÉÏÄ£Äâ½á¹û£¬Èôó¼Ò°ïÖúÄãÖØÐÂдһ¶Î´úÂë¡£

ÀÏʦ£¬ÇëÄú°ïÖú½âÎö¸öSQLÓï¾ä£¬Ð»Ð»Äú

http://club.excelhome.net/thread-1363365-1-1.html

TAµÄ¾«»ªÖ÷Ìâ

TAµÄµÃ·ÖÖ÷Ìâ

 Â¥Ö÷| ·¢±íÓÚ 2017-8-17 11:21 | ÏÔʾȫ²¿Â¥²ã
chxw68ÀÏʦ£¬×îÖÕÄ¿µÄÎÒдÔÚ»ã×ܱíÄÚÁË£¬Âé·³¿´ÏÂÄܲ»ÄÜʵÏÖ£¬Ð»Ð»

н¨Îļþ¼Ð.rar

58.36 KB, ÏÂÔØ´ÎÊý: 2

TAµÄ¾«»ªÖ÷Ìâ

TAµÄµÃ·ÖÖ÷Ìâ

·¢±íÓÚ 2017-8-17 11:33 | ÏÔʾȫ²¿Â¥²ã
[¹ã¸æ] VBA´úÂ뱦 - VBA±à³Ì¼ÓÇ¿¹¤¾ß ¡¤ VBA´úÂëËæ²éËæÓà ¡¤ ÄÚÖöàÏîVBA±à³Ì¼ÓÇ¿¹¤¾ß       ¡ï Ãâ·ÑÏÂÔØ ¡ï      ¡ïʹÓÃÊÖ²á¡ï
  1. Sub test()
  2.   Dim r%, i%
  3.   Dim arr, brr
  4.   Dim wb As Workbook
  5.   Dim ws As Worksheet
  6.   Dim mypath$, myname$
  7.   Dim d As Object
  8.   Set d = CreateObject("scripting.dictionary")
  9.   Application.ScreenUpdating = False
  10.   Application.DisplayAlerts = False
  11.   mypath = ThisWorkbook.Path & ""
  12.   myname = Dir(mypath & "*.xls")
  13.   m = 0
  14.   Do While myname <> ""
  15.     If myname <> ThisWorkbook.Name Then
  16.       Set wb = GetObject(mypath & myname)
  17.       With wb
  18.         With .Worksheets("×ãÀºÅÅ")
  19.           r = .Cells(.Rows.Count, 1).End(xlUp).Row
  20.           arr = .Range("a4:l" & r)
  21.           For i = 1 To UBound(arr)
  22.             xm = arr(i, 3) & "+" & arr(i, 8)
  23.             If Not d.exists(xm) Then
  24.               m = m + 1
  25.               ReDim brr(1 To 4)
  26.               brr(1) = m
  27.               brr(2) = arr(i, 3)
  28.               brr(3) = arr(i, 8)
  29.             Else
  30.               brr = d(xm)
  31.             End If
  32.             brr(4) = brr(4) + arr(i, 12)
  33.             d(xm) = brr
  34.           Next
  35.         End With
  36.         .Close False
  37.       End With
  38.     End If
  39.     myname = Dir
  40.   Loop
  41.   With Worksheets("sheet3")
  42.     .Range("i4").Resize(d.Count, UBound(brr)) = Application.Transpose(Application.Transpose(d.items))
  43.   End With
  44. End Sub
¸´ÖÆ´úÂë

TAµÄ¾«»ªÖ÷Ìâ

TAµÄµÃ·ÖÖ÷Ìâ

·¢±íÓÚ 2017-8-17 11:33 | ÏÔʾȫ²¿Â¥²ã
Ïê¼û¸½¼þ¡£

н¨Îļþ¼Ð.rar

64.87 KB, ÏÂÔØ´ÎÊý: 3

ÄúÐèÒªµÇ¼ºó²Å¿ÉÒÔ»ØÌû µÇ¼ | Ãâ·Ñ×¢²á

±¾°æ»ý·Ö¹æÔò

ÊÖ»ú°æ|¹ØÓÚÎÒÃÇ|ÁªÏµÎÒÃÇ|ExcelHome

GMT+8, 2024-3-29 16:51 , Processed in 0.056812 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

»¦¹«Íø°²±¸ 31011702000001ºÅ »¦ICP±¸11019229ºÅ-2

±¾ÂÛ̳ÑÔÂÛ´¿Êô·¢±íÕ߸öÈËÒâ¼û£¬ÈκÎÎ¥·´¹ú¼ÒÏà¹Ø·¨ÂɵÄÑÔÂÛ£¬±¾Õ¾½«Ð­Öú¹ú¼ÒÏà¹Ø²¿ÃÅ×·¾¿·¢ÑÔÕßÔðÈΣ¡     ±¾Õ¾ÌØƸ·¨ÂɹËÎÊ£ºÀî־ȺÂÉʦ

¿ìËٻظ´ ·µ»Ø¶¥²¿ ·µ»ØÁбí