½Ð°Ý¦U¦ì¤j¯«¥[§Ö VBA §R°£¬°0ªºÀx¦s®æ¤½¦¡ªºµ{¦¡¼gªk

jeffrey628litw

¥H¤U¬O§Úª¦¤å§ì¨ìªº¡A¦ý¹ê¥Î«á¶]ÀÉ®×10MB¡A

¤u§@ªí¤¤  DÄæ  §PÂ_¨Ã§R°£ 100µ§¥ª¥k0ªº¤½¦¡¸ê®Æ¡Aªá¤F7¤ÀÄÁ¡A
½Ð°Ý¦p¦ó¥[§Öµ{¦¡½X¶]ªº³t«×©O?

¦p¦ó¥[§Ö¦¹ VBA  Module10 µ{¦¡ªº³t«×©O?
Sub TT()

Dim t1
   
    t1 = Timer   '³o¬O²£¥Í¬í¼Æªº MSG
   '==============================================================

  '§R°£  D Äæ(Àx¦s®æ O2~O101)¬°0®ÉªºÀx¦s®æ¤½¦¡¸ê®Æ
  
   Range("D2").Select
   
     For X = 1 To 1
     For y = 2 To 101

     If ActiveCell(y, X) = 0 Then

        ActiveCell(y, X) = ""

     Else
     
     End If
     
     
     Next y
     
     Next X


'¥H¤U¬°Åã¥ÜVBA Runµ{¦¡ªº®É¶¡ + ³o¬O²£¥Í¬í¼Æªº MSG
MsgBox "§ì¸ê®Æ§¹¦¨!  " & Chr(10) & "¨Ï¥Î®É¶¡¡G" & Round(Timer - t1, 2) & " ¬í" & Chr(10) & "±z¿é¤Jªº±ø¥ó¤ñ¹ï«á¡A¦@­p¦³" & "  " & Application.CountA(Sheets("¤ñ¹ï¼t½s«á¸ê®Æ").Columns("A:A")) - 1 & "  " & "µ§¸ê®Æ"
  
'¥H¤U¬°²£¥ÍMsgbox »¡©ú¤ñ¹ï«á¦³´Xµ§¤£­«½Æªº¸ê®Æ
    'MsgBox "±z¿é¤Jªº" & "±ø¥ó" & "¤ñ¹ï«á¡A¦@­p¦³" & "  " & APplication.CountA(Sheets("¤ñ¹ï¼t½s«á¸ê®Æ").Columns("A:A")) - 1 & "  " & "µ§¸ê®Æ"
   

End Sub


'==============================================================


ÀɮפU¸ü¡G ABC 20191219-V.04ª©.rar (167.63 KB)

¤U¸ü¦¸¼Æ: 14

2019-12-20 09:46

jeffrey628litw

'§R°£  D Äæ(Àx¦s®æ D2~D101)¬°0®ÉªºÀx¦s®æ¤½¦¡¸ê®Æ

À³¸Ó¬O D2 ~ D101

jeffrey628litw

¤£¦n·N«ä¡A¬O§Ú¥t¤@­Ó¼Ò½k¬d¸ßªí¸ê®Æ¦³3000µ§¾É­P³t«×ÅܺC¡A§Ú¤w¸g±N¼Ò½k¬d¸ßªí¬d¸ß±ø¥ó§ï±¼Â«K«Ü§Ö¤F¡CÁÂÁ¦U¦ì¡C

jeffrey628litw

¦^´_ 4# adrian_9832


    ¤j¤j±z¦n¡G¹ê´úµ²ªG¬OOKªº¡A§Úªº¹q¸£³t«×¬ù70¬í¡C·PÁ¤j¤jªº«ü¾É¤À¨É¡C

jeffrey628litw

¦^´_ 5# adrian_9832


        ¤j¤j±z¦n¡G¹ê´úµ²ªG¬OOKªº¡A§Úªº¹q¸£³t«×¤]¬O¬ù70¬í¡C·PÁ¤j¤jªº«ü¾É¤À¨É¡C

jeffrey628litw

¦^´_ 8# quickfixer

  ·PÁ¤j¯«ªº¨ó§U¡A¶W·P¿Eªº¡C