код VBA меняет формат

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

код VBA меняет формат (Макросы/Sub)

grh1

Дата: Суббота, 24.07.2021, 22:47 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 233

Репутация: 0 ±

Замечаний: 40% ±

2019

Доброго дня, уважаемые знатоки!

Суть вопроса: в файле excel имею пять цифр 5,6,7,8,9 которые программно меняю на 1,2,3,4,5
В excel выставлен формат ЧИСЛОВОЙ, поэтому картинка ТАКАЯ
Когда срабатывает макрос, происходит замена, но почему-то заменяемые цифры вставляются в формате текста и получаю картинку ТАКУЮ с раздражающими зелеными треугольничками по углам.

Код замены использую такой:[vba]

Код

Sub переимен_загол()

Range("A2:E2").Value = Split("1;2;3;4;5", ";")

End Sub

[/vba]

Подскажите пожалуйста, что изменить/добавить в строке кода, чтобы замена была в числовом формате?!

Спасибо

Vadym Gorokh

Ответить

R_Dmitry

Дата: Воскресенье, 25.07.2021, 00:06 | Сообщение № 2

Группа: Друзья

Ранг: Участник

Сообщений: 74

Репутация: 34 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub переимен_загол()
Dim a, b
a = Split("1;2;3;4;5", ";")
ReDim b(UBound(a))
For i = LBound(a) To UBound(a)
b(i) = Val(a(i))
Next
Range("A2:E2").Value = b
End Sub

[/vba]

{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела

Ответить

grh1

Дата: Воскресенье, 25.07.2021, 00:13 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 233

Репутация: 0 ±

Замечаний: 40% ±

2019

R_Dmitry, спасибо.
Ну я применил еще один вариант такой: [vba]

Код

Sub переимен_загол()

    Cells(2, "A").Value = "1"
    Cells(2, "B").Value = "2"
    Cells(2, "C").Value = "3"
    Cells(2, "D").Value = "4"
    Cells(2, "E").Value = "5"

End Sub

[/vba]

Просто 1-й вариант всего одна строка кода, а не такая длинная портянка.
Может еще есть какие варианты?