Как да винаги в клетка A1 при отваряне на работна книга?
Както всички знаем, когато отворите работна книга, тя ще покаже позицията на клетката, където сте я запазили и затворили последния път. Как можете винаги да отваряте работна книга с всеки лист в конкретна клетка A1? Тази статия ще говори за някои начини за разрешаването му.
Винаги отваряйте работна книга с всеки лист в клетка A1, като използвате VBA код
Винаги отваряйте работна книга на конкретен лист и клетка A1, като използвате VBA код
Винаги отваряйте работна книга с всеки лист в клетка A1, като използвате VBA код
Например, вие винаги искате работната книга да се отваря в клетка A1 на всеки работен лист, независимо къде сте били в работната книга, когато е била затворена последно. Моля, направете следното:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец. В ляво Проект-VBAProject панел, щракнете двукратно Тази работна книга за да отворите празен модул и след това копирайте и поставете следния код в модула, вижте екранната снимка:
VBA код: Винаги отваряйте работна книга с всеки лист в клетка A1:
Private Sub Workbook_SheetActivate(ByVal Wsh As Object)
'Updateby Extendoffice
On Error Resume Next
Wsh.Range("A1").Select
End Sub
2. След това затворете този код и щракнете досие > Save As за да запазите работната книга като Работна книга с активирани макроси на Excel формат, вижте екранната снимка:
3. Отсега нататък, когато отворите тази работна книга следващия път, щракнете Активиране на съдържанието за да активирате кода и да превключвате между листовете, можете да видите, че всеки работен лист автоматично е в клетка A1.
Винаги отваряйте работна книга на конкретен лист и клетка A1, като използвате VBA код
Ако просто трябва да отворите конкретен лист в клетка A1, когато стартирате работната книга всеки път, следният VBA код може да ви помогне.
Например винаги искам да отида до Sheet1 в клетка A1, когато отварям работната книга.
1. Задръжте надолу ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец. В ляво Проект-VBAProject панел, щракнете двукратно Тази работна книга за да отворите празен модул и след това копирайте и поставете следния код в модула, вижте екранната снимка:
VBA код: Винаги отваряйте работна книга с определен лист в клетка A1:
Private Sub Workbook_Open()
'Updateby Extendoffice
Application.Goto ThisWorkbook.Sheets("Sheet1").Range("A1"), True
End Sub
Забележка: В горния код, Sheet1 намлява A1 са работният лист и препратката към клетка, към които искате да отидете, когато отваряте работната книга. Можете да ги промените според вашите нужди.
2. След това затворете този код и щракнете досие > Save As за да запазите работната книга като Работна книга с активирани макроси на Excel формат, отсега нататък, когато отворите тази работна книга следващия път, щракнете върху Активиране на съдържанието за да активирате кода и той автоматично ще отиде в Sheet1 в клетка A1.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!