Vraag : Macro die cellen in de zelfde-rijcellen van een genoemde waaier richt

Ik heb een macro nodig die in een genoemde waaier „dings“ zal kijken en voor elke cel in dat gamma dat aan WAAR evalueert, het nul uit alle cellen in de zelfde rij in de waaier „AllAll“ zal. Met andere woorden als CL17=TRUE („dings“ is in cl van de Kolom), dan alle cellen in Rij 17 van „AllAll“ een zero.

Thanks zal worden gegeven,
John

Antwoord : Macro die cellen in de zelfde-rijcellen van een genoemde waaier richt

John,

als dit (zie voorbeeld)

Ik heb dat dings en AllAll op verschillende bladen kan zijn verondersteld, zal de code eithe zelfde of verschillende bladen behandelen

Dave



1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Sub ZeroEm ()
    Schemerig c als Waaier
    Schemerige rng1 als Waaier
    Schemerige ws als Aantekenvel
    Vastgesteld ws = Waaier („AllAll“). Ouder
    Voor Elk c in Waaier („dings“)
        Als UCase$ (c.Value) = „WAAR“ toen
            De reeks rng1 = snijdt (Waaier („AllAll“), ws. Rijen (c.Row))
            rng1.Value = „0“
        Eind als
    Daarna
Sub van het eind
Andere oplossingen  
 
programming4us programming4us