Как да намеря и заменя текст в заглавията на диаграмата в Excel?
Диаграмите са много полезни за нас в Excel и често им даваме някои заглавия, за да ги идентифицираме. Но опитвали ли сте да намерите и замените текстовата стойност в заглавията на диаграмите в множество диаграми? Днес ще говоря за това как да намеря конкретен текст в множество плочки на диаграма и да ги заменя с друга стойност в Excel.
Намерете и заменете текст в заглавията на диаграмите в Excel с VBA код
Намерете и заменете текст в заглавията на диаграмите в Excel с VBA код
Да предположим, че имате работен лист, който съдържа диаграмите, както е показано на следната екранна снимка, и искате да замените текста януари с февруари само във всички заглавия на диаграмите. Разбира се, можете да ги промените ръчно една по една, но това ще отнеме много време, ако има няколко диаграми. Ето, следният VBA код може да ви помогне да се справите с тази задача.< /p>
1. Активирайте вашия работен лист, който съдържа диаграмите, които искате да намерите и замените в техните заглавия.
2. Задръжте натиснат ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.
3. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
VBA код: Намерете и заменете текст в заглавията на диаграмите в активния работен лист
Sub ChartLabelReplace()
'Update 20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
For Each ch In xWs.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
End Sub
4. След това натиснете F5 за да стартирате този код и ще изскочи поле за подкана, за да ви напомни да въведете стария си текст, който искате да замените, вижте екранна снимка:
5, И после щракнете върху OK и се появява друго поле за подкана, трябва да въведете новата си текстова стойност, която искате да замените старата, вижте екранната снимка:
6. Продължете да щракате OK за да затворите полето за подкана и старите ви текстове са заменени от новините в даден момент в текущия работен лист, както е показано на следната екранна снимка:
Забележка: Ако трябва да намерите и замените текстовата стойност на заглавията на диаграмата във всички работни листове в работна книга, трябва да приложите следния VBA код: (Процедурата е същата като горната)
VBA код: Намерете и заменете текст в заглавията на диаграмите във всички работни листове
Sub ChartLabelReplaceAllWorksheet()
'Update 20140603
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Worksheets
For Each ch In sh.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
Next
End Sub
Още по темата:
Как да намерите и замените текст в коментари в Excel?
Как да намерите и замените конкретен текст в множество текстови полета на Excel?
Как да променя няколко пътя на хипервръзка наведнъж в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!