½Ð°Ý¦p¦ó±N¦h±i¤u§@ªí¾ã¦X¦¨¦bÁ`ªí¡A ¤u§@ªíÁ`ªíªº¢ÏÄæ¬O¦U¤u§@ªíªº¦WºÙ
- ©«¤l
- 334
- ¥DÃD
- 139
- ºëµØ
- 0
- ¿n¤À
- 621
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWSXP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-8-5
- ³Ì«áµn¿ý
- 2022-11-3
|
½Ð°Ý¦p¦ó±N¦h±i¤u§@ªí¾ã¦X¦¨¦bÁ`ªí¡A ¤u§@ªíÁ`ªíªº¢ÏÄæ¬O¦U¤u§@ªíªº¦WºÙ
½Ð°Ý¦p¦ó±N¦h±i¤u§@ªí¾ã¦X¦¨¦bÁ`ªí¡A
¤u§@ªíÁ`ªíªº¢ÏÄæ¬O¦U¤u§@ªíªº¦WºÙ
ÁÂÁÂ |
|
joyce
|
|
|
|
|
- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-12
|
²o¯A®æ¦¡¤Î¦X¨Ö®æ, ¥ÎVBA§a~~
Sub §ó·s()
Dim Sht As Worksheet, R&, xE As Range, CL, N%
Call ²M°£
CL = Array(36, 35) 'ÃC¦â
For Each Sht In Sheets
If Sht.Name Like "#######-#*" = False Then GoTo 101 '§PÂ_¤u§@ªí¦WºÙ¬O§_²Å¦X "¦~¤ë¤é-§Ç¸¹"
R = Sht.Cells(Rows.Count, "D").End(xlUp).Row - 5
If R <= 0 Then GoTo 101
Set xE = Sheets("Á`ªí").Cells(Rows.Count, 1).End(xlUp)(2)
Sht.Range("A6:G6").Resize(R - 1).Copy xE(1, 2)
Sht.Range("A6").Resize(R - 1).Copy xE
xE.Resize(R - 1) = Sht.Name
N = 1 - N
xE.Resize(R - 1, 8).Interior.ColorIndex = CL(N) '¥HÃC¦â°Ï¤À¦U¤u§@ªí¸ê®Æ(Y¥Î¤£¨ì¥i§R)
101: Next
End Sub
Sub ²M°£()
Sheets("Á`ªí").UsedRange.Offset(1, 0).EntireRow.Delete
End Sub
Xl0000070.rar (18.73 KB)
=========================================== |
|
|
|
|
|
|
- ©«¤l
- 334
- ¥DÃD
- 139
- ºëµØ
- 0
- ¿n¤À
- 621
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWSXP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_¿¤
- µù¥U®É¶¡
- 2010-8-5
- ³Ì«áµn¿ý
- 2022-11-3
|
¦^´_ 2# ã´£³¡ªL
ÁÂÁ¦^´_
½Ð°Ý¥t¤@®æ¦¡®M³oµ{¦¡½X¡An§ïªº³¡¥÷°£¤F½d³ò¤Î¤u§@ªí¦WºÙ¬O§_²Å¦X¤§¥~¡A¬O§_ÁÙ¦³¨ä¥L¦a¤è¡]¦]¹ï¥¨¶°¤£¼ô¡A¥u¦³§ï½d³ò¡A¨ä¥L³¡¥÷¤£ª¾¦p¦óקï¡^
Sub §ó·s()
Dim Sht As Worksheet, R&, xE As Range, CL, N%
Call ²M°£
CL = Array(36, 35) 'ÃC¦â
For Each Sht In Sheets
If Sht.Name Like "#######-#*" = False Then GoTo 101 '§PÂ_¤u§@ªí¦WºÙ¬O§_²Å¦X "¦~¤ë¤é-§Ç¸¹"
R = Sht.Cells(Rows.Count, "D").End(xlUp).Row - 5
If R <= 0 Then GoTo 101
Set xE = Sheets("Á`ªí").Cells(Rows.Count, 1).End(xlUp)(2)
Sht.Range("A5:N5").Resize(R - 1).Copy xE(1, 2)
Sht.Range("A5").Resize(R - 1).Copy xE
xE.Resize(R - 1) = Sht.Name
N = 1 - N
xE.Resize(R - 1, 8).Interior.ColorIndex = CL(N) '¥HÃC¦â°Ï¤À¦U¤u§@ªí¸ê®Æ(Y¥Î¤£¨ì¥i§R)
101: Next
End Sub
Sub ²M°£()
Sheets("Á`ªí").UsedRange.Offset(1, 0).EntireRow.Delete
End Sub |
|
joyce
|
|
|
|
|