Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Очень умное форматирование. / 20 сообщений из 20, страница 1 из 1
24.10.2006, 09:52:45
    #34075905
Игорь?
Игорь?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
Проблемма встала такая, и встала колом. Программа мониторинга оборудования создает базу данных в Exel. Пример выложу. При отсутствии сигнала база данных перестает заполнятся, и ситуация возникает такая, чтопромежуток между записями может достигать двух часов. А теперь вопрос.
Можно ли с помощью возможностей офиса забить пропуски цифрами?
Помогите, горю... Без вас никак!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 10:45:08
    #34076112
Игорь?
Игорь?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
Нужто недьзя? Ну редложите шоть что-то похожее...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 10:53:00
    #34076144
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
Ничего сложного. Пишем процедуру, которая будет сравнивать время в смежных ячейках и добавлять значения в случае различия.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 10:57:13
    #34076156
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Sub Mins()
Dim Mins1 As Integer
Dim Mins2 As Integer
Dim RowIndex As Long

    Mins1 = Minute(Cells( 23 ,  1 ).Value)

    RowIndex =  3 
    Do
        Mins1 = Minute(Cells(RowIndex -  1 ,  1 ).Value)
        Mins2 = Minute(Cells(RowIndex,  1 ).Value)
        
        If Mins2 =  0  Then Mins2 =  60 
        
        If Mins2 <> Mins1 +  1  Then
            Rows(RowIndex).Insert Shift:=xlDown
            
            Range("A" & RowIndex -  2  & ":A" & RowIndex -  1 ).AutoFill _
                Destination:=Range("A" & RowIndex -  2  & ":A" & RowIndex), Type:=xlFillDefault
        
            Cells(RowIndex,  2 ).Value = Cells(RowIndex -  1 ,  2 ).Value
            Cells(RowIndex,  3 ).Value = Cells(RowIndex -  1 ,  3 ).Value
        End If
        
        RowIndex = RowIndex +  1 
        
    Loop While Cells(RowIndex,  1 ).Value <> ""

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 10:59:09
    #34076165
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
vbapro
Код: plaintext
1.
    Mins1 = Minute(Cells( 23 ,  1 ).Value)


это можно удалить, осталось от отладки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 11:04:04
    #34076189
Игорь?
Игорь?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
vbapro большое спасибо, осмелюсь попросить тебя еще об одном одолжениии...
Выложи документ в котором твой макрос работает, а то не все мне глупому понятно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 11:11:41
    #34076231
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
на листе будет кнопка для запуска программы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 11:20:09
    #34076270
Игорь?
Игорь?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
Пишет ошибку в этой строчке

Range("A" & RowIndex - 2 & ":A" & RowIndex - 1).AutoFill _
Destination:=Range("A" & RowIndex - 2 & ":A" & RowIndex), Type:=xlFillDefault

Что делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 11:27:26
    #34076300
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
попробуй весь код заменить на этот
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Option Explicit

Sub Mins()
Dim Mins1 As Integer
Dim Mins2 As Integer
Dim RowIndex As Long
Dim SourceRange As Range
Dim FillRange As Range

    Mins1 = Minute(Cells( 23 ,  1 ).Value)

    RowIndex =  2 
    Do
        Mins1 = Minute(Cells(RowIndex -  1 ,  1 ).Value)
        Mins2 = Minute(Cells(RowIndex,  1 ).Value)
        
        If Mins2 =  0  Then Mins2 =  60 
        
        If Mins2 <> Mins1 +  1  Then
            Rows(RowIndex).Insert Shift:=xlDown
            
'            Range("A" & RowIndex - 2 & ":A" & RowIndex - 1).AutoFill _
'                Destination:=Range("A" & RowIndex - 2 & ":A" & RowIndex), Type:=xlFillDefault
        
            Set SourceRange = Range("A" & RowIndex -  2  & ":A" & RowIndex -  1 )
            Set FillRange = Range("A" & RowIndex -  2  & ":A" & RowIndex)
            
            SourceRange.AutoFill Destination:=FillRange
        
            Cells(RowIndex,  2 ).Value = Cells(RowIndex -  1 ,  2 ).Value
            Cells(RowIndex,  3 ).Value = Cells(RowIndex -  1 ,  3 ).Value
        End If
        
        RowIndex = RowIndex +  1 
        
    Loop While Cells(RowIndex,  1 ).Value <> ""

    Set SourceRange = Nothing
    Set FillRange = Nothing

End Sub

если ошибка останется, то запиши макрос автозаполнения ячеек (перетаскивание черного квадратика в нижнем правом углу выделения) и покажи что записалось
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 11:39:02
    #34076351
Игорь?
Игорь?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
vbapro браво!!!! Второй вариант прекрасно работает, но опять но не кождая база ночинается с 7:00. Помоги...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 11:58:39
    #34076431
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
Игорь?не квждая база ночинается с 7:00
это не важно. единственная проблема может быть, если после первой же записи - разрыв (но такое, мне кажется, маловероятно). тем не менее, если встретится проблема, пожешь мне на почту написать, чтоб я быстро откликнулся
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 12:24:43
    #34076528
Игорь?
Игорь?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
Надеюсь мыло не подведет!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 12:49:19
    #34076640
Игорь?
Игорь?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
Vbapro отзовись дошло письмо?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 12:58:16
    #34076696
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
не дошло
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 13:16:47
    #34076795
Игорь?
Игорь?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
Что-часто у меня такое начало случаться. Ладно прости это мои проблемы. Повторяю содержание письма. Прблемма не в том что макрос не работает, когда база начинает писаться не с семи, а втом что если база от 9.56 раньше записей не появляется. Просьба в том чтобы макрос работал и вверх и вниз, целе сутки с 7 до 7. и можно еще сделать чтобы добовляемые ячейки забивались не нулями, а 777. Базу в таком виде как есть у нас выкладываю. Помоги...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 13:25:47
    #34076846
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
1) т.е. нужно чтоб были всегда записи с 7:00 до 6:59 следующего дня через каждую минуту?
2) почему в файле три колонке с датами. Их нужно все обработать? может их быть больше? какая здесь логика?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 13:37:42
    #34076914
Игорь?
Игорь?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
1 - Да.
2 - Обробатывается все три колонки. Логика в том, что данная база была создана для 3х автоматов, в будующем планируется больше.
3 - Пожалуйста напиши подсказки к коду, а то не хочется и дальше тебя напрягать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 16:03:56
    #34077608
Игорь?
Игорь?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
Помощь прийдет я верю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 16:21:28
    #34077688
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
комментарии в коде, что нужно, можешь поменять
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2006, 11:35:45
    #34079468
Игорь?
Игорь?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень умное форматирование.
vbapro отправил тибе письмо неужели опять не дошло. Отзовись...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Очень умное форматирование. / 20 сообщений из 20, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 293ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2184071]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 42ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 194ms
total:  293ms
x
x
Закрыть


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