½Ð«ü¾É¦p¦ó¿ï¨ú©Ò¦³²Å¦X®æ¦¡¤Æ±ø¥óªºÀx¦s®æ
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 54
- ÂI¦W
- 0
- §@·~¨t²Î
- Window10
- ³nÅ骩¥»
- office365
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2020-10-21
- ³Ì«áµn¿ý
- 2022-6-1
|
½Ð«ü¾É¦p¦ó¿ï¨ú©Ò¦³²Å¦X®æ¦¡¤Æ±ø¥óªºÀx¦s®æ
½Ð«ü¾É¦p¦ó¿ï¨ú©Ò¦³²Å¦X®æ¦¡¤Æ±ø¥óªºÀx¦s®æ,
ªþ¥ó¬°¤W¯Z¦Ò¶Ô¨Ò¤l,³]©w®æ¦¡¤Æ±ø¥ó¬°·í¤W¯Z®É¶¡¤j©ó09:00®É,¤W¯Z®É¶¡¤Î¤W¯Zª¬ªp¦rÅéÅܬõ¥[²Ê¡C
°ÝÃD: §Ún¿ï¨ú©Ò¦³Åܬõ¥[²Ê¦rÅ骺Àx¦s®æ¡C
¥Ø«e¦b¥¿¦¡ªº¨C¤ë¦Ò¶Ôªí¤º¦³¤@¦Ê¤H¡A6000µ§¼Æ¾Ú(¤W¯Z¤Î¤U¯Z),¤j¬ù¦³15¦Ü20¤H·|¿ð¨ì¦°h¡Cn¿ï¨ú¤j¬ù400ÓÀx¦s®æ¡C
§Ú¬O«ö(Shift + F8),µM«á¦A¤@Ó¤@ÓÂI¿ï¡A¡A½Ð«ü¾Én¦p¦ó¯à¤@¦¸¿ï¨ú¡C
¥ýÁÂÁ¦U¦ì¥ý¶i¡C
®æ¦¡¤Æ±ø¥ó.zip (8.32 KB)
|
|
|
|
|
|
|
- ©«¤l
- 1391
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 1401
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-11
- ³Ì«áµn¿ý
- 2024-12-16
|
|
google"EXCEL°g" blog ©Îgoogleºô§}:https://hcm19522.blogspot.com/
|
|
|
|
|
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 54
- ÂI¦W
- 0
- §@·~¨t²Î
- Window10
- ³nÅ骩¥»
- office365
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2020-10-21
- ³Ì«áµn¿ý
- 2022-6-1
|
ÁÂÁÂÀ°¦£,§Ú¤£¶·n´£¨ú¸ê®Æ,¥un¿ï¨úÀx¦s®æ§Y¥i¡C
¦]¬°®æ¦¡¤Æ±ø¥ó·|¨ü¨ä¥L±¡ªp¦ÓÅܤơC
¤W¤U¯Z®É¶¡²ÊÅé¬õ¦r¤£¥i¥H§ïÅÜ¡C
©Ò¥Hn¿ï¨ú©Ò¦³¦]®æ¦¡¤ÆÅܦ¨²ÊÅé¬õ¦rªº®É¶¡Àx¦s®æ¶i¦æ¤H¤â¥[²ÊÅܬõ¡C |
|
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-12-5
|
¦^´_ 3# Andrewfat
¸Õ¸Õ¬Ý! |
|
|
|
|
|
|
- ©«¤l
- 1391
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 1401
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-11
- ³Ì«áµn¿ý
- 2024-12-16
|
|
google"EXCEL°g" blog ©Îgoogleºô§}:https://hcm19522.blogspot.com/
|
|
|
|
|
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 54
- ÂI¦W
- 0
- §@·~¨t²Î
- Window10
- ³nÅ骩¥»
- office365
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2020-10-21
- ³Ì«áµn¿ý
- 2022-6-1
|
ÁÂÁ¦U¦ìÀ°¦£, VBA À³¸Ó¬O³Ì§Ö±¶ªº¤èªk¤F¡C
ÁÂÁÂ hcm19522
ÁÂÁÂ Andy2483 |
|
|
|
|
|
|
- ©«¤l
- 976
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 1018
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-4-19
- ³Ì«áµn¿ý
- 2024-12-18
|
¦^´_ 1# Andrewfat
½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xU
With Cells.Font
.ColorIndex = 1
.Bold = False
End With
Arr = Range("e6").CurrentRegion
Set xU = [e6]
For i = 2 To UBound(Arr) Step 2
For j = 2 To UBound(Arr, 2)
If Arr(i, j) > Arr(3, 1) Then
Set xU = Union(Cells(i + 5, j + 4).Resize(2, 1), xU)
End If
Next j
Next i
With xU.Font
.ColorIndex = 3
.Bold = True
End With
[e6].Interior.ColorIndex = xlNone
End Sub |
|
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-12-5
|
¦^´_ 7# samwang
·PÁ«e½ú¤À¨É
1.¾Ç¨ìÁY¤p°õ¦æ½d³ò
2.¾Ç¨ì°}¦C¤è¦¡
°}¦C¸ò¦r¨å«Ü¦n¥Î!¦nÃø¾Ç!
ÁÂÁÂ |
|
|
|
|
|
|