ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð«ü¾É¦p¦ó¿ï¨ú©Ò¦³²Å¦X®æ¦¡¤Æ±ø¥óªºÀx¦s®æ

½Ð«ü¾É¦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¡C­n¿ï¨ú¤j¬ù400­ÓÀx¦s®æ¡C
§Ú¬O«ö(Shift + F8),µM«á¦A¤@­Ó¤@­ÓÂI¿ï¡A¡A½Ð«ü¾É­n¦p¦ó¯à¤@¦¸¿ï¨ú¡C

¥ýÁÂÁ¦U¦ì¥ý¶i¡C ®æ¦¡¤Æ±ø¥ó.zip (8.32 KB)

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

ÁÂÁÂÀ°¦£,§Ú¤£¶·­n´£¨ú¸ê®Æ,¥u­n¿ï¨úÀx¦s®æ§Y¥i¡C
¦]¬°®æ¦¡¤Æ±ø¥ó·|¨ü¨ä¥L±¡ªp¦ÓÅܤơC
¤W¤U¯Z®É¶¡²ÊÅé¬õ¦r¤£¥i¥H§ïÅÜ¡C
©Ò¥H­n¿ï¨ú©Ò¦³¦]®æ¦¡¤ÆÅܦ¨²ÊÅé¬õ¦rªº®É¶¡Àx¦s®æ¶i¦æ¤H¤â¥[²ÊÅܬõ¡C

TOP

¦^´_ 3# Andrewfat


    ¸Õ¸Õ¬Ý!

®æ¦¡¤Æ±ø¥ó_T1.zip (39.77 KB)

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

ÁÂÁ¦U¦ìÀ°¦£, VBA À³¸Ó¬O³Ì§Ö±¶ªº¤èªk¤F¡C
ÁÂÁÂ hcm19522
ÁÂÁÂ Andy2483

TOP

¦^´_ 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

TOP

¦^´_ 7# samwang


    ·PÁ«e½ú¤À¨É
1.¾Ç¨ìÁY¤p°õ¦æ½d³ò
2.¾Ç¨ì°}¦C¤è¦¡

°}¦C¸ò¦r¨å«Ü¦n¥Î!¦nÃø¾Ç!
ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD