Буду очень благодарен за помощь. Уверен, для кого-то это семечки и смешно, но для обывателя.... в VBA полный ноль
Суть: нужно чтобы в одной и той же ячейки excel 2010 часть "текста" (там цифры) была Calibri, Bold, 26 размер, а часть была Calibri, Bold, 42 размер. Можете помочь с созданием подобного макроса и возможно ли это? Руками то я могу это сделать, но мне нужно массово. Дли примера, чтобы было более понятно файл во вложении. Все что в range A именно так отформатировано , как мне нужно. А вся колона B сейчас просто Calibri, Bold, 26 размер.
Т.е, для примера возьмем B1, мне нужно чтобы первые шесть символов в ячейке (02.002) были 26-ого размера, а последующие 7 символов (.048.38) 42-размера. И тот и тот полужирный. (как это например в А1, А2, А3, А4)
Цвет ячейки знаения не имеет
Заранее благодарен
Добрый день,
Буду очень благодарен за помощь. Уверен, для кого-то это семечки и смешно, но для обывателя.... в VBA полный ноль
Суть: нужно чтобы в одной и той же ячейки excel 2010 часть "текста" (там цифры) была Calibri, Bold, 26 размер, а часть была Calibri, Bold, 42 размер. Можете помочь с созданием подобного макроса и возможно ли это? Руками то я могу это сделать, но мне нужно массово. Дли примера, чтобы было более понятно файл во вложении. Все что в range A именно так отформатировано , как мне нужно. А вся колона B сейчас просто Calibri, Bold, 26 размер.
Т.е, для примера возьмем B1, мне нужно чтобы первые шесть символов в ячейке (02.002) были 26-ого размера, а последующие 7 символов (.048.38) 42-размера. И тот и тот полужирный. (как это например в А1, А2, А3, А4)
Ну и да, я специально так сократил файл, чтобы лишним не отвлекать внимание. А так, данный макрос должен быть применим ко всему листу, а еще лучше всей книге, а не только Range B
Ну и да, я специально так сократил файл, чтобы лишним не отвлекать внимание. А так, данный макрос должен быть применим ко всему листу, а еще лучше всей книге, а не только Range Bbagraart
Sub char_font() Application.ScreenUpdating = False On Error Resume Next For Each sh In ThisWorkbook.Sheets For Each cl In sh.UsedRange.Cells cl.Characters(Start:=7, Length:=7).Font.Size = 42 Next cl Next sh Application.ScreenUpdating = True End Sub
[/vba]
Добрый день. [vba]
Код
Sub char_font() Application.ScreenUpdating = False On Error Resume Next For Each sh In ThisWorkbook.Sheets For Each cl In sh.UsedRange.Cells cl.Characters(Start:=7, Length:=7).Font.Size = 42 Next cl Next sh Application.ScreenUpdating = True End Sub