Как да вмъкна плаваща таблица или текстово поле в работен лист на Excel?
Ако имате таблица или текстово поле с някои важни данни, които искате винаги да се виждат на екрана на работния лист, дори когато превъртате нагоре или надолу в работния лист. Това може да е интересна задача, в тази статия ще представя бърз трик за решаването й.
Вмъкване на плаваща таблица в Excel с VBA код
Вмъкнете плаващо текстово поле в Excel с VBA код
Вмъкване на плаваща таблица в Excel с VBA код
Няма директен начин да вмъкнете плаващата таблица, така че трябва да конвертирате данните от таблицата в изображение и след това да приложите код, за да го завършите, моля, направете следното:
1. Изберете таблицата с данни, която искате да запазите видима, след което щракнете Копирайте > Копиране като картина под Начало раздел, вижте екранна снимка:
2. В изскочилото Копиране на снимка изберете диалоговия прозорец Както е показано на екрана от Външен вид раздел и изберете Снимка под формат раздел, кликнете върху OK за да затворите диалоговия прозорец и след това щракнете върху клетка, за да изведете картината, накрая натиснете Ctrl + V за да поставите тази снимка, вижте екранната снимка:
3. След като преобразувате таблицата в картина, щракнете с десния бутон върху раздела на листа, който съдържа картината на таблицата, която искате да запазите видима винаги, и изберете Преглед на кода от контекстното меню и в отвореното Microsoft Visual Basic за приложения прозорец, копирайте и поставете следния код в празния модул:
VBA код: Вмъкване на плаваща таблица в excel:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
If Target.Cells.Count > 1 Then Exit Sub
With ActiveSheet.Shapes("Picture1")
.Top = ActiveWindow.VisibleRange.Top + 5
.Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
End With
Application.ScreenUpdating = False
End Sub
Забележка: В този код, Снимка1 е името на изображението, което сте създали, моля, променете го според вашите нужди.
4. След това запазете и затворете прозореца с код, сега, когато превъртите работния лист и щракнете върху клетка, картината на таблицата винаги се запазва в горния десен ъгъл на работния лист.
Вмъкнете плаващо текстово поле в Excel с VBA код
За да вмъкнете плаващо текстово поле, ето и VBA код за решаване на тази задача.
1. Първо, трябва да вмъкнете текстово поле от Софтуерен Инженер кликнете върху Софтуерен Инженер > Поставете > Текстово поле (ActiveX контрола)и след това начертайте текстовото поле и въведете информацията в текстовото поле, както ви е необходимо. Вижте екранна снимка:
2. След това щракнете с десния бутон върху раздела на листа, който съдържа текстовото поле, което искате да запазите винаги видимо, и изберете Преглед на кода от контекстното меню и в отвореното Microsoft Visual Basic за приложения прозорец, копирайте и поставете следния код в празното поле Модули:
VBA код: Вмъкване на плаващо текстово поле в Excel:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
With ActiveWindow.VisibleRange
TextBox1.Top = .Top + 5
TextBox1.Left = .Left + .Width - TextBox1.Width - 45
End With
Application.ScreenUpdating = True
End Sub
Забележка: В този код, TextBox1 е името на текстовото поле, което сте въвели, моля, променете го според вашите нужди.
3. След това запазете и затворете прозореца на кода, сега, когато превъртите работния лист навсякъде, вмъкнатото текстово поле винаги се запазва в горния десен ъгъл на работния лист.
Увеличете или минимизирайте прозореца на работния лист
За да увеличите максимално прозореца на работния лист, можете да освободите повече място за потребителите, в Excel можете да увеличите прозореца на работния лист, като скриете лентата, лентата с формули или лентата на състоянието. Kutools за Excel's Работна среда може да ви помогне да скриете лентата само с едно щракване. Изтеглете и изпробвайте безплатно Kutools за Excel сега!
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!