Прескочи на основното съдържание

Как да препратка към формат и стойност от друга клетка в Excel?

Автор: Силувия Последна промяна: 2020-05-28

Обикновено използваме формулата =A1, за да препратим клетка A1 към друга клетка в работния лист. Но това може да препраща само към стойността на клетката. Ако искате да посочите стойността на клетката, както и нейния формат, трябва да опитате друг метод. Тази статия предоставя два метода за постигане на това.

Референтен формат и стойност от друга клетка с поставяне на свързана картина
Автоматичен препратен формат и стойност от друга клетка с VBA


Референтен формат и стойност от друга клетка с поставяне на свързана картина

Да предположим, че искате да посочите формат и стойност от клетка A1, моля, направете следното, за да го направите.

1. Изберете клетката (A1), която трябва да посочите, след което я копирайте с натискане Ctrl + C ключове.

2. Отидете до клетката, която искате да свържете с референтната клетка, щракнете с десния бутон върху нея и изберете > Специално поставяне > Свързана снимка. Вижте екранна снимка:

Сега форматът и стойността на клетка A1 се отнасят към определена клетка. И форматът и стойността на тези две клетки ще бъдат синхронни, както е показано на екранната снимка по-долу.


Автоматичен препратен формат и стойност от друга клетка с VBA

Можете автоматично да препращате към формат и стойност от друга клетка, като изпълните VBA скрипта по-долу.

1. Щракнете с десния бутон върху раздела на листа, който съдържа клетката, която трябва да посочите, и след това щракнете Преглед на кода от менюто с десен бутон.

2. При изскачане Microsoft Visual за приложения прозорец, копирайте и поставете кода на VBA по-долу в прозореца на кода.

VBA код: Референтен формат и стойност от друга клетка

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Sheet1")
        If .Range("A1").Value2 <> "" Then
            On Error Resume Next
            Range("A1").Copy (.Range("E2"))
        End If
    End With
End Sub

Забележка: В кода Sheet1 е името на листа, който съдържа клетката, която трябва да посочите както стойността, така и формата. A1 и E2 означава, че клетка A1 автоматично ще бъде препратена към клетка E2.

Отсега нататък, когато стойността се промени в клетка A1 на Sheet1, нейната стойност и формат ще бъдат незабавно препратени към клетка E2.


Свързани статии:

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Can I mirror the first 5 columns on each new sheet? I have the data just want the formatting to change with all sheets instead of having to do so repeatedly
This comment was minimized by the moderator on the site
Hello did the below code but it did not work
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Competitive Analysis Summary")
If .Range("BI7").Value2 <> "" Then
On Error Resume Next
Range("BI7").Copy (Worksheets("In Depth View - ADP").Range("E55"))
End If
End With
End Sub
This comment was minimized by the moderator on the site
Hi, after adding the code, you need to modify the worksheet "Competitive Analysis Summary" to enable the VBA.
This comment was minimized by the moderator on the site
How do I do that if I want to copy to a different sheet?
This comment was minimized by the moderator on the site
Hi Lil,
If you need to copy to a different sheet, please apply the below VBA code. Sheet1 is the original worksheet, Sheet3 is the destination worksheet. Please change them based on your needs.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Sheet1")
If .Range("A5").Value2 <> "" Then
On Error Resume Next
Range("A5").Copy (Worksheets("Sheet3").Range("E2"))
End If
End With
End Sub
This comment was minimized by the moderator on the site
How to run this code on excel? Does it need to be run on both worksheet? Can it be specific like step-by-step?
This comment was minimized by the moderator on the site
Hi Jesse,Hi, as the above code mentioned, you just need to fill the code in the original worksheet's Code window, when changing the cell value in the original worksheet (A5 in Sheet1 in this case), the code will be runned automatically. And cell A5 in Sheet1 will be copied to E2 in Sheet3.
This comment was minimized by the moderator on the site
Hi! Very cool!! Is there a way to do the first option in Google Spreadsheets?
This comment was minimized by the moderator on the site
Hi Julian,
Sorry we didn't test in Google sheets. Thanks for your comment.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations