Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
склеивание номера
 
#1
17.08.2010 09:01:59
Всем привет!  
Помогите, пожалуйста, написать макрос по наигрыванию номера  
 
 
есть два столбца, время и наименование. Нужно отсортировать столбцы по времени и добавить третий столбец с номером, который будет складываться из:  
порядкового номера наименования + сегодняшняя дата + слово "отчет"  
 
то есть 1-17.08.2010-отчет  
       2-17.08.2010-отчет и так пока не будет конца таблицы  
 
 
Помогите, пожалуйста
 
 
 
#2
17.08.2010 09:52:53
{quote}{login=Natalia}{date=17.08.2010 09:01}{thema=склеивание номера}{post}...написать макрос по наигрыванию номера{/post}{/quote}  
Это как ???  
А примерчик скинуть слабо?
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#3
17.08.2010 09:54:22
1. Зачем макрос, если можно обойтись встроенными средствами Excel?  
2. Что мешает вам выполнить эти действия вручную, предварительно включив запись макросов?  
3. Без примеров файлов помогают только на форумах телепатов.
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#4
17.08.2010 09:59:24
Пример
 
 
 
#5
17.08.2010 10:02:52
{quote}{login=EducatedFool}{date=17.08.2010 09:54}{thema=}{post}3. Без примеров файлов помогают только на форумах телепатов.{/post}{/quote}  
 
плиз дай ссылочку на форум телепатов! :)
 
 
 
#6
17.08.2010 10:07:22
не получается сцепить число, функцию сегодня и слово отчет!  
 
как это сделать?
 
 
 
#7
17.08.2010 10:07:47
Может лучше подумать над таким наименованием:  
2010.08.17-1-отчет  
тогда, если сортировать через год, отчёты будут расположены по порядку.  
При теперешнем наименовании - даже трудно описать... :)
 
 
 
#8
17.08.2010 10:14:04
Нет, мне именно нужна моя последовательность :(  
 
если пишу =СЦЕПИТЬ(R[-2]C[-6];"-";СЕГОДНЯ();"-";"отчет")
то выводит 12-40407-отчет даже при формате ячеек дата
 
 
 
#9
17.08.2010 10:17:59
не СЕГОДНЯ() надо, а ТЕКСТ(СЕГОДНЯ();"ДД.ММ.ГГ")
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#10
17.08.2010 10:18:28
Макрос, толко диапазон свой задайте, ну и последовательность свою :)  
 
Sub tt()  
Count = 1  
For Each cc In [a14:a19]
cc.Offset(, 4) = Format(Now(), "yyyy.mm.dd") & "-" & Count & "-" & "отчет"  
Count = Count + 1  
Next  
End Sub  
 
А как в фомуле формат поменять - не нашёл пока...
 
 
 
#11
17.08.2010 10:18:57
{quote}{login=Natalia}{date=17.08.2010 10:14}{thema=}{post}Нет, мне именно нужна моя последовательность :(  
 
если пишу =СЦЕПИТЬ(R[-2]C[-6];"-";СЕГОДНЯ();"-";"отчет")
то выводит 12-40407-отчет даже при формате ячеек дата{/post}{/quote}  
Надо так:  
=СТРОКА()-1&"-"&ТЕКСТ(СЕГОДНЯ();"ДД.ММ.ГГГГ")&"-"&RC[-1]
 
23 Кб
 
 
 
#12
17.08.2010 10:22:51
{quote}{login=Excel-Ok}{date=17.08.2010 10:02}{thema=Re: }{post}{quote}{login=EducatedFool}{date=17.08.2010 09:54}{thema=}{post}3. Без примеров файлов помогают только на форумах телепатов.{/post}{/quote}  
 
плиз дай ссылочку на форум телепатов! :){/post}{/quote}А зачем телепатам форум?    
Они и так общаться могут ;-)  
 
http://kerio-rus.ru/forum/showthread.php?t=2189
 
 
 
#13
17.08.2010 10:27:50
{quote}{login=Hugo}{date=17.08.2010 10:18}{thema=}{post}Макрос, толко диапазон свой задайте, ну и последовательность свою :)  
 
Sub tt()  
Count = 1  
For Each cc In [a14:a19]
cc.Offset(, 4) = Format(Now(), "yyyy.mm.dd") & "-" & Count & "-" & "отчет"  
Count = Count + 1  
Next  
End Sub  
 
А как в фомуле формат поменять - не нашёл пока...{/post}{/quote}  
 
СПасибо!  
 
Игорь, только у меня ошибку выдает в макросе на переменную COUNT
 
 
 
#14
17.08.2010 10:28:52
{quote}{login=Serge 007}б{/post}{/quote}  
 
 
Спасибо!
 
 
 
#15
17.08.2010 10:30:09
Можно так. Но дата СЕГОДНЯ() будет всё время меняться на сегодняшнюю и завтра там, где было 17.08.2010 будет 18.08.2010
 
 
 
#16
17.08.2010 10:37:24
Спасибо всем большое!  
 
Общими усилиями написала:  
 
Sub tt()  
Count = 1  
x = 1  
Do While Cells(x, 1).Value <> ""  
 
Cells(x, 4) = Count & "-" & Format(Now(), "dd.mm.yyyy") & "-" & "îò÷åò"  
Count = Count + 1  
x = x + 1  
Loop  
 
End Sub
 
 
 
#17
17.08.2010 10:38:49
точнее х=2
 
 
 
#18
17.08.2010 10:39:18
{quote}{login=Natalia}{date=17.08.2010 10:27}{thema=Re: }...у меня ошибку выдает в макросе на переменную COUNT{/post}{/quote}  
А какую ошибку-то?  
Что переменная не определена?  
Тогда или уберите в начале модуля  
Option Explicit  
или в начале макроса определите переменные  
Dim Count as integer  
Dim cc as range
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#19
17.08.2010 10:47:02
Вот как полезно не давать вылизанный код :)  
Вообще тут без х можно обойтись, привязаться к count  
Do While Cells(count+1, 1).Value <> ""  
А на большом объёме макрос-то лучше :)
 
 
 
#20
17.08.2010 10:50:34
Dim Count as integer  
Правильнее As Long - может там лист под завязку забит...
 
 
 
#21
17.08.2010 10:50:54
Игорь, а как сортировку сделать по времени? макросом
 
 
 
#22
17.08.2010 10:55:29
Записать это действие мастером :)  
Только я сейчас проверил - там в примере форматы ячеек разные, поэтому сортирует неправильно.
 
 
 
#23
17.08.2010 10:55:54
И как сделать формат даты в этом номере без точек 17082010  
Научи, пожалуйста!
 
 
 
#24
17.08.2010 10:56:50
А определенной функции сортировки в VBA нет?
 
 
 
#25
17.08.2010 11:01:23
Без точек:  
cc.Offset(, 4) = Format(Now(), "ddmmyyyy") & "-" & Count & "-" & "отчет"  
:)  
Насчёт сортировки боюсь соврать...
 
 
 
#26
17.08.2010 11:33:40
Пример, с сортировкой по дате.
<FONT COLOR="CadetBlue">
 
 
 
#27
17.08.2010 11:36:41
А формат так и остался неисправленный - обратите внимание, как сортируются  
12:56:57  
12:23:02
 
 
 
#28
17.08.2010 11:43:28
Мистика - не могу задать общий формат ячейке с 12:56:57...  
У всех общий, у неё Custom, как не бейся.
 
 
 
#29
17.08.2010 11:58:35
А я задал с помощью "Range("A2:A7").NumberFormat = "h:mm:ss"".  
Но пока через "F2" не зашел и не нажал "Enter" - сортировка не происходила
<FONT COLOR="CadetBlue">
 
 
 
#30
17.08.2010 12:08:25
Если скопировать как значение, вот что получается:  
12:23:02  
17:01:58  
17:56:37  
17:56:37  
0,539548611  
18:15:02  
 
:)  
 
Только в ручную формат времени правильно задается...
<FONT COLOR="CadetBlue">
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх