Пользовательский формат ячеек для добавления предложения с использованием кода VBA

Question

Мне нужно написать макрос для пользовательского форматирования ячейки таким образом, чтобы, если кто-то набирает число в ячейке (скажем, например, 10), результат должен составлять «10% маржи EBITDA».Как мне это сделать?

Answer 1

Попробуйте этот код VBA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRNG As Range: Set MyRNG = Range("B2:B20") 'change your required range here
If Not Application.Intersect(MyRNG, Target) Is Nothing Then
ActiveCell.NumberFormat = "0.00 ""of EBITDA margin"""
End If
End Sub

Answer 2

Создайте пользовательский NumberFormat для ячейки (Format Cells> Number> Custom), например,

0.00% "of EBITDA margin"

Часть 0.00% может быть любым форматом, который вы хотите для числа.Пробел после него может быть внутри кавычек или перед ними.Кавычки могут содержать любую строку, которую вы хотите, одно слово или длинное предложение (но, вероятно, всего не более 255 символов).

Приведенный ниже код будет форматировать ячейку A1 с тем же NumberFormat, показанным выше,Формат может быть изменен аналогичным образом.

Private Sub SetCellFormat()

    Cells(1, 1).NumberFormat = "0.00% ""of EBITDA margin"""
End Sub