Range.Formula property (Excel)

• 05/10/2019
• 2 minuten om te lezen
• • o
  • l
  • m

  O

• k
• +3

Retourneert of stelt een Variant-waarde in die de impliciet doorsneden formule van het object weergeeft in A1-notatie.

Syntax

expression.Formula

expression Een variabele die een bereikobject vertegenwoordigt.

Opmerkingen

In Excel met dynamische matrices, vervangt Range.Formula2 Range.Formula. Range.Formula blijft ondersteund om de onderlinge compatibiliteit te behouden. Een bespreking van Dynamische matrices en Range.Formula2 vindt u hier.

Zie ook

Range.Formula2 eigenschap

Deze eigenschap is niet beschikbaar voor OLAP-gegevensbronnen.

Als de cel een constante bevat, geeft deze eigenschap de constante terug. Als de cel leeg is, geeft deze eigenschap een lege tekenreeks weer. Als de cel een formule bevat, retourneert de eigenschap Formule de formule als een tekenreeks in dezelfde opmaak die in de formulebalk zou worden weergegeven (inclusief het gelijkheidsteken ( = )).

Als u de waarde of formule van een cel instelt op een datum, controleert Microsoft Excel of die cel al is opgemaakt met een van de datum- of tijdnummeropmaken. Zo niet, dan wijzigt Excel de getalnotatie in de standaardnotatie voor korte datumnummers.

Als het bereik een bereik met één of twee dimensies is, kunt u de formule instellen op een Visual Basic-array van dezelfde afmetingen. Op dezelfde manier kunt u de formule in een Visual Basic-array zetten.

Formules die zijn ingesteld met Range.Formula kunnen impliciete doorsnijding activeren.

Als u de formule instelt voor een bereik met meerdere cellen, worden alle cellen in het bereik gevuld met de formule.

Voorbeeld

Het volgende codevoorbeeld stelt de formule in voor cel A1 op Blad1.

Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10"

Het volgende codevoorbeeld stelt de formule in voor cel A1 op Blad1 om de datum van vandaag weer te geven.

Sub InsertTodaysDate() ' This macro will put today's date in cell A1 on Sheet1 Sheets("Sheet1").Select Range("A1").Select Selection.Formula = "=text(now(),""mmm dd yyyy"")" Selection.Columns.AutoFit End Sub

Ondersteuning en feedback

Heeft u vragen of feedback over Office VBA of deze documentatie? Zie Office VBA-ondersteuning en feedback voor informatie over de manieren waarop u ondersteuning kunt krijgen en feedback kunt geven.