Добрый день. Подскажите как произвести заливку гистограммой условного формата - определенную ячейку.
В ячейке D11 - указано текущее число. В ячейке F11 - указано максимальное для гистограммы число. Обычная ячейка с условным форматом - приведена по адресу H13. Там гистограмма - занимает четверть от всей ячейки.
Но дело в том, что текст в нужной ячейке H11 - должен быть другой, конкретно "50/200". Поскольку это текст, то гистограмма его обработать уже не может. Ей нужно непременно, чтобы в ячейку H11 - было вписано именно число.
Подскажите - как отобразить условное форматирование гистограммой в ячейке H11 ?
Добрый день. Подскажите как произвести заливку гистограммой условного формата - определенную ячейку.
В ячейке D11 - указано текущее число. В ячейке F11 - указано максимальное для гистограммы число. Обычная ячейка с условным форматом - приведена по адресу H13. Там гистограмма - занимает четверть от всей ячейки.
Но дело в том, что текст в нужной ячейке H11 - должен быть другой, конкретно "50/200". Поскольку это текст, то гистограмма его обработать уже не может. Ей нужно непременно, чтобы в ячейку H11 - было вписано именно число.
Подскажите - как отобразить условное форматирование гистограммой в ячейке H11 ?ОсиповаТатьяна
ОсиповаТатьяна, вы в вопросе своем уже написали ответ, раз в ячейке не число а текст, а гистограмма строится только на значении самой ячейки, то никак желаемое не построить. Максимум это в ячейке( для вашего примера ) иметь 0.25 формат простой дроби (будет выглядеть как 1/4)ну и от 0 до 1 значения приделов в УФ
ОсиповаТатьяна, вы в вопросе своем уже написали ответ, раз в ячейке не число а текст, а гистограмма строится только на значении самой ячейки, то никак желаемое не построить. Максимум это в ячейке( для вашего примера ) иметь 0.25 формат простой дроби (будет выглядеть как 1/4)ну и от 0 до 1 значения приделов в УФbmv98rus
а я даже не озвучивал возможность, понимая к чему приведет :-)
ОсиповаТатьяна, тут только маленький макрос, который будет менять формат ячейки в зависимости от значений это тайной ячейки. Сложности нет, но тогда совсем можно проще, а именно вводить в саму ячейку ваши 50/200 и на основании этого заменить и значение на вычесленное и 200 использовать в формате.
а я даже не озвучивал возможность, понимая к чему приведет :-)
ОсиповаТатьяна, тут только маленький макрос, который будет менять формат ячейки в зависимости от значений это тайной ячейки. Сложности нет, но тогда совсем можно проще, а именно вводить в саму ячейку ваши 50/200 и на основании этого заменить и значение на вычесленное и 200 использовать в формате.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$11" Then Application.EnableEvents = False Target.NumberFormat = """" & Target.Value & """" Target.Value = Application.Evaluate("=" & Target.Value) Application.EnableEvents = True End If End Sub
[/vba]
вводить 50/200
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$11" Then Application.EnableEvents = False Target.NumberFormat = """" & Target.Value & """" Target.Value = Application.Evaluate("=" & Target.Value) Application.EnableEvents = True End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$11" Or Target.Address = "$F$11" Then Application.EnableEvents = False [h11].NumberFormat = """" & [d11].Text & "/" & [F11].Text & """" Application.EnableEvents = True End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$11" Or Target.Address = "$F$11" Then Application.EnableEvents = False [h11].NumberFormat = """" & [d11].Text & "/" & [F11].Text & """" Application.EnableEvents = True End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Or Target.Column = 6 Then Application.EnableEvents = False If IsNumeric(Cells(Target.Row, "F")) And Cells(Target.Row, "F") > 0 Then Cells(Target.Row, "H").NumberFormat = "?/" & CStr(Cells(Target.Row, "F")) Application.EnableEvents = True End If End Sub
[/vba]
По произведениям bmv98rus
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Or Target.Column = 6 Then Application.EnableEvents = False If IsNumeric(Cells(Target.Row, "F")) And Cells(Target.Row, "F") > 0 Then Cells(Target.Row, "H").NumberFormat = "?/" & CStr(Cells(Target.Row, "F")) Application.EnableEvents = True End If End Sub
bmv98rus, объясните, пожалуйста - почему на одном из листов (с другими макросами) при использовании этого макроса - он выдает результат #/# ? А на других листах - нормально работает.
В чем может причина этой ошибки ?
bmv98rus, объясните, пожалуйста - почему на одном из листов (с другими макросами) при использовании этого макроса - он выдает результат #/# ? А на других листах - нормально работает.