Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/код VBA меняет формат - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » код VBA меняет формат (Макросы/Sub)
код VBA меняет формат
grh1 Дата: Суббота, 24.07.2021, 22:47 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 0 ±
Замечаний: 20% ±

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
 
Ответить
СообщениеДоброго дня, уважаемые знатоки!

Суть вопроса: в файле 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]

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

Спасибо

Автор - grh1
Дата добавления - 24.07.2021 в 22:47
R_Dmitry Дата: Воскресенье, 25.07.2021, 00:06 | Сообщение № 2
Группа: Друзья
Ранг: Новичок
Сообщений: 46
Репутация: 27 ±
Замечаний: 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} Если программа тебе понятна,значит она уже устарела
 
Ответить
Сообщение[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]

Автор - R_Dmitry
Дата добавления - 25.07.2021 в 00:06
grh1 Дата: Воскресенье, 25.07.2021, 00:13 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 0 ±
Замечаний: 20% ±

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-й вариант всего одна строка кода, а не такая длинная портянка.
Может еще есть какие варианты?


Vadym Gorokh
 
Ответить
Сообщение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-й вариант всего одна строка кода, а не такая длинная портянка.
Может еще есть какие варианты?

Автор - grh1
Дата добавления - 25.07.2021 в 00:13
nilem Дата: Воскресенье, 25.07.2021, 05:40 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1596
Репутация: 553 ±
Замечаний: 0% ±

Excel 2013, 2016
[vba]
Код
Sub переимен_загол()
'    Range("A2:E2").Value = Split("1;2;3;4;5", ";")
    Range("A2:E2").Value = Array(1, 2, 3, 4, 5)
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщение[vba]
Код
Sub переимен_загол()
'    Range("A2:E2").Value = Split("1;2;3;4;5", ";")
    Range("A2:E2").Value = Array(1, 2, 3, 4, 5)
End Sub
[/vba]

Автор - nilem
Дата добавления - 25.07.2021 в 05:40
grh1 Дата: Воскресенье, 25.07.2021, 08:00 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 0 ±
Замечаний: 20% ±

2019
nilem, как обычно - талантливо, спасибо


Vadym Gorokh
 
Ответить
Сообщениеnilem, как обычно - талантливо, спасибо

Автор - grh1
Дата добавления - 25.07.2021 в 08:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » код VBA меняет формат (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!