ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вставка значения в Excel
8 сообщений из 8, страница 1 из 1
Вставка значения в Excel
    #36612221
DEVATKIN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEVATKIN
Гость
Приветствую, друзья! Признаться, не шибко силен в создании макросов- давно было. Но задачка как-то поставила в ступор:
Помогите с созданием макроса. На листе есть колонка с одинаковыми по структуре значениями - по 8 символов. Задача по сути проста - в этом столбце вставить в каждую ячейку после 2 и 4 символа "."
Как наиболее быстро это можно сделать?

P.S.: Поиск юзал - не нашёл!
...
Рейтинг: 0 / 0
05.05.2010, 10:26
| Ответить | Цитировать | Написать  
Вставка значения в Excel
    #36612229
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Mid$(a,1,2)+"."+Mid$(a,3,2)+"."+Mid$(a,5)
...
Рейтинг: 0 / 0
05.05.2010, 10:29
| Ответить | Цитировать | Написать  
Вставка значения в Excel
    #36612241
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Код: plaintext
1.
x =  12345678 
x = Format(x, "@@.@@.@@@@")
...
Рейтинг: 0 / 0
05.05.2010, 10:33
| Ответить | Цитировать | Написать  
Вставка значения в Excel
    #36612256
DEVATKIN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEVATKIN
Гость
vlth
Код: plaintext
1.
x =  12345678 
x = Format(x, "@@.@@.@@@@")

А это прокатит, если х присваивать значение каждой ячейки?
...
Рейтинг: 0 / 0
05.05.2010, 10:38
| Ответить | Цитировать | Написать  
Вставка значения в Excel
    #36612333
DEVATKIN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEVATKIN
Гость
Еще такой аспект - отбирать надо все значения столбца кроме первого.
...
Рейтинг: 0 / 0
05.05.2010, 11:07
| Ответить | Цитировать | Написать  
Вставка значения в Excel
    #36612364
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
DEVATKIN, организуйте цикл по столбцу от второго значения до последнего.
В цикле:
Код: plaintext
Cells(Nстроки,Nстолбца)  = Format$(Cells(Nстроки,Nстолбца), "@@.@@.@@@@")
...
Рейтинг: 0 / 0
05.05.2010, 11:16
| Ответить | Цитировать | Написать  
Вставка значения в Excel
    #36612454
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
DEVATKIN,

А вы уверены, что вам вообще макрос нужен?
Может можно просто вписать в ячейку формулу:
Код: plaintext
=ПСТР(A1;1;2)&"."&ПСТР(A1;3;2)&"."&ПСТР(A1;5;4)
...
Рейтинг: 0 / 0
05.05.2010, 11:38
| Ответить | Цитировать | Написать  
Вставка значения в Excel
    #36612550
DEVATKIN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEVATKIN
Гость
Формула не подойдет! Спасибо всем, кто откликнулся! Задача рашилась с помощью Mid! Спасибо Shocker.Pro
...
Рейтинг: 0 / 0
05.05.2010, 12:07
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вставка значения в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]