Как да отворите конкретен работен лист чрез избраната стойност на комбинирано поле в Excel?
Да предположим, че имате разгъващ се списък, който съдържа всички имена на листове на текущата работна книга, както е показано на екранната снимка по-долу. И сега искате да отворите конкретен работен лист, когато изберете съответното име на лист в разгъващ се списък. Как да го постигнем? Методът в тази статия може да ви помогне.
Отворете конкретен работен лист чрез избраната стойност на комбинирано поле с VBA код
Отворете конкретен работен лист чрез избраната стойност на комбинирано поле с VBA код
Кодът VBA по-долу може да ви помогне да отидете до конкретен работен лист въз основа на избора на Combo Box в Excel. Моля, направете следното.
Забележка: Ако комбинираното поле не съдържа име на лист във вашия работен лист, моля, следвайте съвета по-долу, за да добавите бързо всички имена на листове към това комбинирано поле. И ако вече има комбинирано поле, съдържащо всички имена на листове, моля, преминете към стъпка 1 директно.
тип: Вмъкнете команден бутон 1 във вашия работен лист, щракнете с десния бутон върху него и изберете Преглед на кода от менюто с десен бутон. След това копирайте и поставете долния VBA код в код прозорец и натиснете Друг + Q ключове за затваряне на Microsoft Visual Basic за приложение прозорец. Щракнете върху вмъкнатия команден бутон, след което всички имена на листове от текущата работна книга ще бъдат добавени автоматично в ComboBox1.
VBA код: Добавете лесно всички имена на листове в разгъващ се списък
Private Sub CommandButton1_Click()
Me.ComboBox1.Clear
Dim strWs As String
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next
End Sub
Ако вече има комбинирано поле, съдържащо всички имена на листове, моля, направете следното.
1. Включете Режим на проектиране под Софтуерен Инженер раздела.
2. Щракнете с десния бутон върху разгъващото се поле с имена на листове, след което щракнете Преглед на кода от менюто с десен бутон.
3. След това Microsoft Visual Basic за приложения се появи прозорец, моля, заменете оригиналния код на VBA в прозореца на кода с кода на VBA по-долу.
VBA код: Отворете конкретен работен лист чрез избрана стойност на Combo Box
Private Sub ComboBox1_Change()
Dim actWsh As String
actWsh = ComboBox1.Text
Worksheets(actWsh).Select
End Sub
Забележка: в кода ComboBox1 е името на комбинираното поле, което съдържа имената на листовете.
4. Натисни Друг + Q ключове за затваряне на Microsoft Visual Basic за приложения прозорец и изключете Режим на проектиране под Софтуерен Инженер раздела.
Сега, когато изберете име на който и да е работен лист в комбинираното поле, съответният работен лист ще се отвори автоматично.
Лесно избройте всички имена на листове на текущата работна книга в Excel:
Използването на индекс на листа във вашата работна книга ви помага да управлявате вашите работни листове лесно. С Създайте списък с имена на листове полезност на Kutools за Excel, можете лесно да създадете индекс на лист, съдържащ всички имена на листове в текущата работна книга. След това можете бързо да преминете към определен работен лист, като просто щракнете върху името на листа в работния лист на индекса. Вижте екранната снимка по-долу:
Изтеглете и опитайте сега! (30-дневна безплатна пътека)
Свързани статии:
- Как да копирам стойност на Combo Box в активна клетка в Excel?
- Как да покажа формат на датата в изхода на комбинираното поле в Excel?
- Как да скриете или покажете команден бутон въз основа на определена стойност на клетка в Excel?
- Как да предотвратите или деактивирате въвеждането в разгъващ се списък в Excel?
- Как да изберете табулация от комбинираното поле, за да изберете конкретна клетка в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!