Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вставка значения в Excel / 8 сообщений из 8, страница 1 из 1
05.05.2010, 10:26
    #36612221
DEVATKIN
DEVATKIN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вставка значения в Excel
Приветствую, друзья! Признаться, не шибко силен в создании макросов- давно было. Но задачка как-то поставила в ступор:
Помогите с созданием макроса. На листе есть колонка с одинаковыми по структуре значениями - по 8 символов. Задача по сути проста - в этом столбце вставить в каждую ячейку после 2 и 4 символа "."
Как наиболее быстро это можно сделать?

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

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

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


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