Не получается написать функцию приведения чисел к следующему виду, например: Число Пикетажное значение
0,00 ПК0+00,00 1,11 ПК0+01,11 99,99 ПК0+99,99 100,11 ПК1+00,11 1000,11 ПК10+00,11 11111,11 ПК111+11,11 Если число 0, то ПК0+00,00, а от 0,01 до 99,99 и т.д. ПК№(№-целый пикет)+остаток от деления. Т.е. все числа делятся на 100 и приводятся к виду показанному выше. И если возможно чтобы формат в ячейке оставался числовым( "ПК" “+” , как-то так чтобы можно было выполнять арифметические действия с этими ячейками)
[vba]
Код
Function Piket(Cifra As Double) As Double If Cifra = 0 Then Cifra = "ПК0+00,00" End If If Cifra > 0 Then Cifra = “ПК+” Cifra/100(Т.е. сцепить “ПК” “+” ) End If End Function
[/vba]
Не получается написать функцию приведения чисел к следующему виду, например: Число Пикетажное значение
0,00 ПК0+00,00 1,11 ПК0+01,11 99,99 ПК0+99,99 100,11 ПК1+00,11 1000,11 ПК10+00,11 11111,11 ПК111+11,11 Если число 0, то ПК0+00,00, а от 0,01 до 99,99 и т.д. ПК№(№-целый пикет)+остаток от деления. Т.е. все числа делятся на 100 и приводятся к виду показанному выше. И если возможно чтобы формат в ячейке оставался числовым( "ПК" “+” , как-то так чтобы можно было выполнять арифметические действия с этими ячейками)
[vba]
Код
Function Piket(Cifra As Double) As Double If Cifra = 0 Then Cifra = "ПК0+00,00" End If If Cifra > 0 Then Cifra = “ПК+” Cifra/100(Т.е. сцепить “ПК” “+” ) End If End Function