Custom Format Cells
6 отговора
228 прегледа
Custom Format Cells
Здравейте,
опитвам се да направя потребителски формат на клетка, който да ми трансформира стойността в евро. Може би е нещо такова:
# ##0,00 делено на 1.95583, но не знам как точно трябва да го изпиша това.
опитвам се да направя потребителски формат на клетка, който да ми трансформира стойността в евро. Може би е нещо такова:
# ##0,00 делено на 1.95583, но не знам как точно трябва да го изпиша това.
Re: Custom Format Cells
Избираш формат Accounting - Symbol € EURO /123€/ и задаваш в клетката формула да разделя въведената стойност на 1,95583
Re: Custom Format Cells
Всъщност точно това се опитвам да избягна. Последното нещо което искам е да минавам по позициите на формуляра и да коригирам формулите.
Re: Custom Format Cells
Няма начин, приятелю, само с форматиране не става
По българите при Дойран са изстреляни 350 000 снаряда. Даваме 9 убити и 40 ранени.
По българите при Дойран са изстреляни 350 000 снаряда. Даваме 9 убити и 40 ранени.
Re: Custom Format Cells
Форматирането не случайно се нарича форматиране (начин на показване на данните). Както виждам, искаш при форматирането да ползваш някаква функция (в случая деление на някакво число). Според теб дали би трябвало да стане. Според мен не. Мисля, че и Excel казва същото.
Re: Custom Format Cells
Не е нужно да ходиш от клетка на клетка и правиш формула - просто копирай тази която си направил навсякъде където ти е необходима - копира се и формата и формулата.
Re: Custom Format Cells
С формат не става, но едно възможно решение ми подсказа Cveti_m с отговора си на teoiva в темата "Има ли начин?".
Стартирай VisualBasicEditor (Alt+F11) избери Sheet1 и копирай този код:
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) And Mid(Target.Formula, 1, 1) <> "=" And Target.Column = 2 Then
On Error Resume Next
Target.Formula = "=" & CStr(Target.Value) & "/" & "A1"
End If
End Sub
Всяко число, въведено в колона "B" на sheet1 се замества с формула, представляваща самото число, разделено на стойността в клетка "А1". Може би ще свърши работа...
Стартирай VisualBasicEditor (Alt+F11) избери Sheet1 и копирай този код:
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) And Mid(Target.Formula, 1, 1) <> "=" And Target.Column = 2 Then
On Error Resume Next
Target.Formula = "=" & CStr(Target.Value) & "/" & "A1"
End If
End Sub
Всяко число, въведено в колона "B" на sheet1 се замества с формула, представляваща самото число, разделено на стойността в клетка "А1". Може би ще свърши работа...
Редактирано от zhitov на