Как да запазите форматирането на клетката, докато препращате към други клетки на листа?
По принцип клетката запазва само стойността на клетката, докато препраща към друга клетка, но в тази статия въвеждам VBA код, за да запазя стойностите и форматирането на клетката, докато препраща към друга клетка, а стойностите и форматирането на клетката се променят, когато референтната клетка се променя, както е показано по-долу показана екранна снимка.
Запазете форматирането на клетката, докато препращате към друга клетка с VBA
Запазете форматирането на клетката, докато препращате към друга клетка с VBA
За да се справите с тази задача, просто трябва да изпълните кода по-долу.
1. Активирайте работната книга, която използвате, натиснете Alt + F11 ключ за активиране Microsoft Visual Basic за приложение прозорец и щракнете двукратно върху името на листа, в който ще поставите референтната клетка Проект-VBAProject панел за показване на празен скрипт. В този случай искам да се позова на клетка A1 в Sheet1. Вижте екранна снимка:
2. Поставете кода по-долу в скрипта и в кода на VBA посочете препратките към клетките, както ви е необходимо.
VBA: Запазете форматирането и стойностите, докато препращате към друга клетка
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then 'Range("A1") the reference cell
Target.Copy
ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
Application.CutCopyMode = False
Target.Select
End If
Application.EnableEvents = True
End Sub
Забележка: A1 е референтната клетка, B1 in Лист 2 е клетката, която искате да свържете към референтната клетка и да запазите стойности и форматиране с A1 в Shee1.
След това, когато промените стойностите или форматирането в клетка A1 в Sheet1, клетката B1 в Sheet2 ще бъде променена, докато щракнете два пъти върху референтната клетка.
Брой по цвят
|
В някои случаи може да имате набор от изчисления с множество цветове и това, което искате, е да преброите/сумирате стойности въз основа на един и същ цвят, как можете бързо да изчислите? с Kutools за Excel's Брой по цвят, можете бързо да правите много изчисления по цвят, а също така можете да генерирате отчет за изчисления резултат. |
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!