Het tellen van de Times een werkblad wordt gebruikt

U wilt misschien een manier om bij te houden hoe vaak een bepaald werkblad wordt gebruikt houden. Er zijn vele manieren waarop u kunt dit te bereiken. Een eenvoudige manier is om gewoon op te slaan de telling in het werkblad zelf. Klik met de rechtermuisknop op een tabblad werkblad, kies View Code in het contextmenu. Excel toont de Visual Basic Editor, waar u de volgende code dient te plakken:

Private Sub Worksheet_Activate ()
Range ("A1"). Select 'aanpassen Range
ActiveCell = ActiveCell + 1
Range ("B1") = "tijden geopend" "aanpassen Range
End Sub

Deze code verhoogt de waarde in cel A1 elke keer als het werkblad wordt geactiveerd. U kunt de cel locaties waar de macro schrijft de informatie te wijzigen, volgens uw behoeften.

Een grondiger aanpak is om een ​​macro die stappen genoemd referenties binnen de werkmap. Beschouw de volgende macro:

Functie IncrementEventCounter (sName als Koord, SHT als Voorwerp)
On Error Resume Next
Als sht.Names (sName) dan niets is _
ThisWorkbook.Names.Add "'" & sht.Name & "'! ' & SName, "1", False
On Error GoTo 0
Met ThisWorkbook.Names ("'" & sht.Name & "'!" & SName)
.RefersTo = Val (Mid (.Value, 2)) + 1
End With
End Function

Deze functie is ontworpen om te worden aangeroepen door een ander macro-one veroorzaakt door de gebeurtenis die zou hierna gebruiksteller te verhogen. Bijvoorbeeld, als je wilt om te houden van elke keer het werkblad wordt geactiveerd, dan zou je de volgende macro gebruiken als onderdeel van de ThisWorkbook object:

Private Sub Workbook_SheetActivate (ByVal sh als Voorwerp)
IncrementEventCounter "geactiveerd", sh
End Sub

De macro verhoogt een teller met de naam "Activated" voor het werkblad. Het doet dit door te bellen naar het IncrementEventCounter macro, met de naam van de teller en de naam van het werkblad. Als, in plaats daarvan, je wilde het aantal keren te tellen dat een werkblad werd veranderd, zou je de volgende macro gebruiken als onderdeel van de ThisWorkbook object:

Private Sub Workbook_SheetChange (ByVal sh als Voorwerp, _
ByVal Target As Excel.Range)
IncrementEventCounter "Changed", sh
End Sub

Het enige verschil tussen deze macro en de vorige is dat het verhoogt een teller genaamd "veranderd". Om de waarden van de tellers te zien, hoeft u alleen maar een formule in een cel die de teller gevonden. Bijvoorbeeld, kon u = invoeren gewijzigd in de waarde van de Gewijzigde teller zien, of = ingeschakeld om de waarde van de geactiveerde teller zien. De waarde van elke teller verschilt van plaat tot plaat, aangezien de tellers worden bijgehouden op een vel voor vel basis.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (2497) is van toepassing op Microsoft Excel 97, 2000, 2002 en 2003. U kunt een versie van deze tip voor de ribbon-interface van Excel (Excel 2007 en later) vindt u hier: Het tellen van de Times een werkblad wordt gebruikt.