сделать десятичные числа (КОД)

RSS

andrey_008

Пользователь

Сообщений: 15 Регистрация: 09.08.2018

09.08.2018 20:18:55

есть код вожу десятичные выводит целые только числа нужно чтобы показывал все числа после запятой

Код

Sub test1()
  Dim i&, s$: t = Range("A1")
With CreateObject("VBScript.RegExp"): .Pattern = "\d+\*\d+\*\d+": .Global = True
For i = 0 To .Execute(t).Count - 1: s = s & "+" & "(" & .Execute(t)(i) & ")": Next
  Range("F1").NumberFormat = "@": Range("F1") = "=" & Mid(s, 2)
End With
End Sub

60*12*1,14+55*18*1,14+35*20*1,14+115*15*1,14+46*16*1,14+65*15*1,14
ставлю так
выходит так

=(60121)+(55181)+(35201)+(115151)+(46161)+(65151)

после запятой невидит

Прикрепленные файлы

example_10_08_2018_pl2 (1).xls (41 КБ)

vikttur

Пользователь

Сообщений: 47199 Регистрация: 15.09.2012

09.08.2018 20:50:09

Как просите, так и показывает. d в регулярных выражениях - цифра от 0 до 9.
Зачем такие сложности?

Код
Sub test1() Dim t As String: t = Range("A1").Value Range("F1").Value = "=(" & Replace(t, "+", ")+(") & ")" End Sub

andrey_008 Пользователь Сообщений: 15 Регистрация: 09.08.2018	#3 10.08.2018 15:27:28 RANGE("A1:A40") дклвю там ошибку выдает error 13

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#4 10.08.2018 16:14:47 Там - это где? Показывать надо.