Як застосувати кнопку для відкриття чергової книги в Excel?
На аркуші ми можемо вставити гіперпосилання, щоб зв’язати іншу книгу, щоб можна було швидко та легко її відкрити. Але чи намагалися ви коли-небудь створити кнопку для відкриття іншої книги за допомогою активної книги?
Застосуйте кнопку, щоб відкрити іншу книгу з кодом VBA
Застосуйте кнопку, щоб відкрити іншу книгу з кодом VBA
В Excel ми можемо вставити кнопку фігури, а потім зв’язати з нею код. Ви можете вирішити цю роботу, виконавши такі дії:
1. Клацання Insert > форми > Прямокутник, див. скріншот:
2. Потім перетягніть мишу, щоб намалювати кнопку фігури, і відформатуйте її відповідно до своїх потреб, див. Знімок екрана:
3. А потім утримуйте кнопку ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
4. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: Відкрийте конкретну книгу:
Sub Openworkbook_Click()
'Updateby Extendoffice
Dim xWb As Workbook
Dim wbName As String
On Error Resume Next
Set xWb = Workbooks.Open("C:\Users\DT168\Desktop\test\Book2.xlsx")
wbName = xWb.Name
If Err.Number <> 0 Then
MsgBox "This workbook does not exist!", vbInformation, "Kutools for Excel"
Err.Clear
Else
MsgBox "This workbook is opened!", vbInformation, "Kutools for Excel"
End If
End Sub
примітки: У наведеному вище коді вам слід змінити шлях до файлу та ім'я C: \ Users \ DT168 \ Desktop \ test \ Book2.xlsx до реального шляху книги, на яку потрібно посилатись.
5. Потім збережіть і закрийте це вікно коду, клацніть правою кнопкою миші кнопку фігури, яку ви створили, і виберіть Призначити макрос з контекстного меню, що з’явиться Призначити макрос діалоговому вікні клацніть ім'я макросу Openworkbook_Click Ви щойно вставили, і натисніть OK , див. знімок екрана:
6. Тепер, коли ви натискаєте кнопку фігури:
(1.) Якщо робочої книги не існує, ви отримаєте таке вікно із запитом:
(2.) Якщо книга існує, вона буде відкрита відразу, і також з'явиться вікно запиту, щоб нагадати вам:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!