Hoe altijd in cel A1 bij het openen van een werkmap?
Zoals we allemaal weten, wordt bij het openen van een werkmap de celpositie weergegeven waar u deze de laatste keer hebt opgeslagen en gesloten. Hoe kun je altijd een werkmap blijven openen met elk blad in een specifieke cel A1? In dit artikel worden enkele manieren besproken om het op te lossen.
Open altijd een werkmap met elk blad in cel A1 met behulp van VBA-code
Open altijd een werkmap op een specifiek blad en cel A1 met behulp van VBA-code
Open altijd een werkmap met elk blad in cel A1 met behulp van VBA-code
U wilt bijvoorbeeld altijd dat de werkmap wordt geopend in cel A1 van elk werkblad, ongeacht waar u zich in de werkmap bevond toen deze voor het laatst werd gesloten. Ga als volgt te werk:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster. Links Project-VBAProject dubbelklik op het paneel Dit Werkboek om een lege module te openen, kopieer en plak vervolgens de volgende code in de module, zie screenshot:
VBA-code: open altijd een werkmap met elk blad in cel A1:
Private Sub Workbook_SheetActivate(ByVal Wsh As Object)
'Updateby Extendoffice
On Error Resume Next
Wsh.Range("A1").Select
End Sub
2. Sluit vervolgens deze code en klik op Dien in > Opslaan als om de werkmap op te slaan als Excel-werkmap met ingeschakelde macro's formaat, zie screenshot:
3. Als u deze werkmap de volgende keer opent, klikt u vanaf nu op Inhoud aanzetten om de code te activeren en tussen de bladen te schakelen, kunt u zien dat elk werkblad automatisch in cel A1 staat.
Open altijd een werkmap op een specifiek blad en cel A1 met behulp van VBA-code
Als u alleen een specifiek blad in cel A1 hoeft te openen wanneer u de werkmap elke keer start, kan de volgende VBA-code u helpen.
Ik wil bijvoorbeeld altijd naar Blad1 in cel A1 gaan bij het openen van de werkmap.
1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster. Links Project-VBAProject dubbelklik op het paneel Dit Werkboek om een lege module te openen, kopieer en plak vervolgens de volgende code in de module, zie screenshot:
VBA-code: open altijd een werkmap met een specifiek blad in cel A1:
Private Sub Workbook_Open()
'Updateby Extendoffice
Application.Goto ThisWorkbook.Sheets("Sheet1").Range("A1"), True
End Sub
Note: In de bovenstaande code, Sheet1 en A1 zijn het werkblad en de celverwijzing waarnaar u wilt gaan bij het openen van de werkmap. U kunt ze naar wens aanpassen.
2. Sluit vervolgens deze code en klik op Dien in > Opslaan als om de werkmap op te slaan als Excel-werkmap met ingeschakelde macro's formaat, vanaf nu, wanneer u deze werkmap de volgende keer opent, klikt u op Inhoud aanzetten om de code te activeren, en deze gaat automatisch naar Blad1 in cel A1.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!