In dit hoofdstuk leert u hoe u alle cellen in het actieve werkblad kunt wijzigen in waarden met VBA in Microsoft Excel.
Laten we een voorbeeld nemen en begrijpen hoe we de VBA-code schrijven om de celwaarde in het actieve blad te wijzigen.
Hoe verander ik alle cellenwaarde in het actieve blad?
We hebben gegevens in Excel, waarin we alle cellen willen vervangen door alleen een celwaarde.
Volg de onderstaande stappen: -
- Druk op Alt+F11 om de Visual Basic-toepassing te openen
- Dubbelklik in VBAProject op Blad 1
- Voer de onderstaande VBA-code in:
Sub Values_1() With ActiveSheet.UsedRange Range("A1:I7").Value = Range("A2").Value End With End Sub
- Om de code uit te voeren, drukt u op de F5-toets
- Cel A2-waarde wordt bijgewerkt in het gedefinieerde bereik
Hoe verandert de waarde van de eerste tafel naar de tweede tafel?
We hebben 2 tafels, 1NS het bereik van de tafel is A3: I5 en 2nd tafelbereik is A8:I10. We willen de waarde van 1 . vervangenNS tabel met de waarde van 2 tabel in het actieve blad.
Volg de onderstaande stappen en code om de waarde te wijzigen: -
- Open de Visual Basic-toepassing
- Voer de onderstaande code in: -
Sub Values_1() With ActiveSheet.UsedRange Range("A3:I5").Value = Range("A8:I10").Value End With End Sub
- Voer de code uit door op F5 . te drukken
- Waarden worden bijgewerkt
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite