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

[µo°Ý] ½Ð°Ý¦U¦ì«e½úÃö©ófor each°ÝÃD

[µo°Ý] ½Ð°Ý¦U¦ì«e½úÃö©ófor each°ÝÃD

¤£¦n·N«ä½Ð°Ý¦U¦ì«e½ú¤@¤U¡B¤p§Ìªº¸ê®Æ±¡ªp¦p¤U¡G
1. sheet("list")¤¤AÄæ¦ì¤U¦³»Ý³B²zªº¤À­¶¦WºÙ
2.±N¦U»Ý³B²z¤À­¶ªº¤º®e¼Æ­È¨Ì·Ó¦U¤À­¶¤W"e1"Àx¦s®æ¤¤¦³¤@­Ó¤ô·Ç¡A§C©ó³o­Ó¤ô·Ç´N±N¸Ó¼Æ­È¤Ï¬õ

¤p§Ìªºµ{¦¡½X¥u¯à³B²z¤@­Ó¤À­¶«á´N·|¥X²{¿ù»~¡K½Ð°Ý¤j¤j­Ì¡B¤p§Ìªºµ{¦¡½X»Ý±q­þ­×§ï©O¡H

·PÁÂ~
for each °w¹ï¯S©w¤À­¶.rar (20.91 KB)
µ{¦¡½X¡G
Sub test()

    Dim bc As Range
    Dim Customer As String
    Dim cc As Integer, b As Integer
   
     For b = 2 To Worksheets("list").[a65536].End(3).Row
    Customer = Worksheets("list").Cells(b, 1)

   
cc = Sheets(Customer).Range("b2:cd2").End(xlToRight).Column 'ºâ¥X³o½d³ò³Ì«á¤@µ§¸ê®Æ

     For Each bc In Sheets(Customer).Range("c" & 3, Cells(40, cc))

    If bc.Value < Sheets(Customer).Range("e1") Then

    With bc.Font
        .Color = -16776961
        .TintAndShade = 0
    End With

    End If
    Next
    Next
End Sub

For b = 2 To Worksheets("list").[a65536].End(3).Row
        Customer = Worksheets("list").Cells(b, 1)


        cc = Sheets(Customer).Range("b2:cd2").End(xlToRight).Column    'ºâ¥X³o½d³ò³Ì«á¤@µ§¸ê®Æ

        For Each bc In Sheets(Customer).Range("c" & 3, Sheets(Customer).Cells(40, cc))
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 2# ML089

ML089«e½ú¤£¦n·N«ä¡B½Ð°Ý§Ú¥Ø«e¥i°õ¦æ¦ý«o¥u¯à°õ¦æ"¤ôªG"¨º­Ó¤À­¶¦Ó¤w' ¦pªþ¥óªº±¡ªp¡A½Ð°Ý¤p§Ìªº­þ­Ó¦a¤è¦³¼g¿ù©O¡H
·PÁ«e½ú~
   
for each °w¹ï¯S©w¤À­¶.rar (21.77 KB)
µ{¦¡½X¡G
Sub test()

    Dim bc As Range
    Dim Customer As String
    Dim cc As Integer, b As Integer
   
     For b = 2 To Worksheets("list").[a65536].End(3).Row
    Customer = Worksheets("list").Cells(b, 1)

   
cc = Sheets(Customer).Range("b2:cd2").End(xlToRight).Column 'ºâ¥X³o½d³ò³Ì«á¤@µ§¸ê®Æ

     For Each bc In Sheets(Customer).Range("c" & 3, Sheets(Customer).Cells(40, cc))

    If bc.Value < Sheets(Customer).Range("e1") Then

    With bc.Font
        .Color = -16776961
        .TintAndShade = 0
    End With

    End If
    Next
    Next
End Sub

TOP

¦^´_ 3# ii31sakura

¤õÀsªG¨º¤@­¶¼Æ­È¨S¦³ ¤p©ó 97% ¡A©Ò¥H¬Ý¤£¥XÅܤơA§A¦Û¤v¥´´X­Ó 96% ¦A°õ¦æ¤@¦¸´N¥i¥H¬Ý±o¥X¨Ó
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 4# ML089

ML089«e½ú¯u¬O¤£¦n·N«ä¡B¨Sª`·N¨ì³o­Ó¦a¤è¡A¤w¸g¥i¥H¥¿±`¨Ï¥Î¤F¡A·PÁ«e½ú®@~

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD