½Ð°Ý¦U¦ì¤j¯«¥[§Ö VBA §R°£¬°0ªºÀx¦s®æ¤½¦¡ªºµ{¦¡¼gªk
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 1
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2025-1-28

|
½Ð°Ý¦U¦ì¤j¯«¥[§Ö VBA §R°£¬°0ªºÀx¦s®æ¤½¦¡ªºµ{¦¡¼gªk
¥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)
|
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 1
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2025-1-28

|
'§R°£ D Äæ(Àx¦s®æ D2~D101)¬°0®ÉªºÀx¦s®æ¤½¦¡¸ê®Æ
À³¸Ó¬O D2 ~ D101 |
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 1
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2025-1-28

|
¤£¦n·N«ä¡A¬O§Ú¥t¤@Ó¼Ò½k¬d¸ßªí¸ê®Æ¦³3000µ§¾ÉP³t«×ÅܺC¡A§Ú¤w¸g±N¼Ò½k¬d¸ßªí¬d¸ß±ø¥ó§ï±¼Â«K«Ü§Ö¤F¡CÁÂÁ¦U¦ì¡C |
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 1
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2025-1-28

|
¦^´_ 4# adrian_9832
¤j¤j±z¦n¡G¹ê´úµ²ªG¬OOKªº¡A§Úªº¹q¸£³t«×¬ù70¬í¡C·PÁ¤j¤jªº«ü¾É¤À¨É¡C |
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 1
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2025-1-28

|
¦^´_ 5# adrian_9832
¤j¤j±z¦n¡G¹ê´úµ²ªG¬OOKªº¡A§Úªº¹q¸£³t«×¤]¬O¬ù70¬í¡C·PÁ¤j¤jªº«ü¾É¤À¨É¡C |
|
|
|
|
|
|
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 1
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2025-1-28

|
¦^´_ 8# quickfixer
·PÁ¤j¯«ªº¨ó§U¡A¶W·P¿Eªº¡C |
|
|
|
|
|
|