|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.05.2010, 17:04 | #1 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 15
|
считать последнюю строку из истории в tt1()
Привет!
Помогите, пожалуйста, записать правильно макрос: Я сначала записываю данные в историю 'запоминаем изменения из TextBox'ов For i = 1 To 36 tt2(i - 1) = CSng(UserForm1.Controls("TextBox" & i)) Next i 'произошли ли изменения в TextBox'ах For i = 0 To 35 If tt1(i) <> tt2(i) Then Exit For Next i If i = 36 Then GoTo Конец 'т.е. если изм-ий нет With Application.Workbooks.Open(Filename :=ThisWorkbook.Path & "\История изменения параметров.xls") With Sheets(1) 'записываем историю j = .Cells(Rows.Count, 4).End(xlUp).Row + 1 For i = 1 To 36 .Cells(j, i + 3) = tt2(i - 1) Next i End With .Close saveChanges:=True End With А теперь мне нужно считать самую последнюю строчку из истории и записать в tt1() и потом циклом заполнить боксы, типа .Controls("TextBox" & i) = tt1(i - 1) Помогите правильно записать, пожалуйста! |
25.05.2010, 18:01 | #2 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
Андрей, почему Ваш пример - один в один с примером Натальи? Ну, не важно.
Если добавить на форму кнопку "История", то можно так (без массива, наверное, даже быстрее): Код:
|
25.05.2010, 18:17 | #3 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 15
|
Спасибо! Понял принцип! А такой же пример, как у Натальи,так как искал принцип решения подобной задачи,но не нашел, нашел только задачу Натальи,правда там решение этого вопроса не был выложено,а придумывать свой пример на эту тему не хотел, но принцип нужен,то скопировал у нее! Извините,пожалуйста!
|
25.05.2010, 18:32 | #4 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
Извиняться не за что. Просто было интересно.
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как узнать последнюю строку и последний столбец в xls таблице? | Аццкий прогер | Общие вопросы Delphi | 7 | 06.12.2010 12:58 |
Как найти последнюю строку Листа? | Stilet | Microsoft Office Excel | 6 | 13.10.2009 14:33 |
Удалить последнюю строку из файла | Flame_of_Death | Помощь студентам | 6 | 21.07.2009 13:48 |
организация поиска - не ищет последнюю строку в StringGrid | Xeon332 | Общие вопросы Delphi | 5 | 13.11.2008 04:36 |
Нужно найти последнюю строку в файле с информацией и узнать ее адрес | Мефистофель | Microsoft Office Excel | 2 | 10.06.2007 16:03 |