ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA , EXCEL
11 сообщений из 11, страница 1 из 1
VBA , EXCEL
    #32685080
Massimo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Massimo
Гость
На диалоговом окне ( форме ) расположены 2 кнопки.После щелчка
на одной из низ выполняется некий код. Как отменить
результат его выполнения –

командда

Application.Undo
не отменяет, хотя выполнено условие – она должна быть
первой в коде, который прикреплён ко второй кнопке?

СПАСИБО.

Код: plaintext
1.
2.
3.
4.
5.
Private Sub CommandButton2_Click()
     'Undo Method Example 
     'This example cancels the last user-interface action. 
     'The example must be the first line in a macro. 
    Application.Undo  ' отменить последнюю операцию 
End Sub
...
Рейтинг: 0 / 0
08.09.2004, 12:35
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32685133
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
если я правильно понял вопрос
при ручном вводе , например, в А1 то application.undo сработает
если написать в коде range("A1").value="ddd" то application.undo не сработает
...
Рейтинг: 0 / 0
08.09.2004, 12:49
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32685951
Massimo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Massimo
Гость
Уточняю ситуацию:

Код: plaintext
1.
2.
3.
4.
На диалоговом окне ( форме ) имеется 
 90  текстовых полей (  9  строк *  10  столбцов ) ,
в которые пользователь вводит информацию.
Последняя, т.е. введенная информация, дозаписывается в лист в хвост,
т.е. после последней строки.

Как отменить последнюю операцию,
т.е. удалить фактически добавленные 9 строк ?

СПАСИБО.
...
Рейтинг: 0 / 0
08.09.2004, 17:28
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32685981
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
1.найти на листе последнюю строку
2. выделить последние 9 строк
3. удалить
...
Рейтинг: 0 / 0
08.09.2004, 17:39
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32686889
Massimo2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Massimo2
Гость
Как поставить курсор, т.е. выбрать последнюю строку в листе ?
Используемая команда

Код: plaintext
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate

работает не так, как я хочу. На выбор последней ячейки зависит
1.где пользователь оставил курсор при работе вручную – т.е. после работы
программно, т.е. была нажата кнопка, к которой прикреплён некий код,
пользователь влез ещё сам на этот лист
2.Если же пользователь пока не влез ещё сам на этот лист, а программист на
этапе отладки выделяет некоторые строки, ячейки и нажимает на
клавиатуре Del , т.е.чистит. После выполнения вышеуказанной команды НЕ
БУДЕТ ВЫБРАНА в последней ВИДИМОЙ ЯЧЕЙКЕ ВИДИМОЙ СТРОКИ.

Не стану больше приводить доводы, скажу что была выбрана ячейка даже на 65 535 , т.е самая последняя на листе или даже в самом правом последнем столбце IW или в столбцах правее от столбца ‘L” , который является последним, в котором
содержится информация и который видим пользователю на экране.
Курсор попадал туда вследствие отладки, изучения проблемы

КАК ПОСТАВИТЬ КУРСОР и ВЫБРАТЬ ЯЧЕЙКУ в столбце “C”
В ПОСЛЕДНЕЙ ВЫДИМОЙ ЗАПОЛНЕННОЙ СТРОКЕ ?

PS: на листе информация нахоодится в строках “C : L”
каждый день надо добавлять 9 строк, т.е. за каждую дату
надо добавлять из диалогового окна 9 строк
...
Рейтинг: 0 / 0
09.09.2004, 11:29
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32687089
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
поищи по форуму про последнюю строку и потом ограничь поиск по C
попробуй типа
range("C65535").End(xlUp) - это даст range c посл строкой в С
...
Рейтинг: 0 / 0
09.09.2004, 12:25
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32687126
Vladimir2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir2
Гость
ЗАЩИТИЛ ЛИСТ

Код: plaintext
Worksheets("Береж").Protect

Как снять ( отменить ) защиту ?

2. Как определить какие методы иммет объект, например
Worksheets

3. Как наприсать оператор прверки защиты листа , то отменить защиту

if Worksheets("Береж").Protect then

else

СПАСИБО
...
Рейтинг: 0 / 0
09.09.2004, 12:35
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32687227
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Я думаю, тебе это будет полезно. Войди в раздел VBA by Step и читай...
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
09.09.2004, 13:01
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32687428
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Processor
Участник
Massimo2Как поставить курсор, т.е. выбрать последнюю строку в листе ?
Используемая команда
Код: plaintext
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
работает не так, как я хочу.Цитата из книги: Э.Уэллс, С.Хешбаргер. Microsoft Excel 97. Разработка приложений.
пер. с англ. - СПб.: БХВ - Санкт-Петербург, 1998. - 624 с.,ил.Процедура Proc20 использует вместо метода UsedRange метод SpecialCells и при любых обстоятельствах выделяет последнюю ячейку в использованной области.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub Chap08aProc20_GotoLastCell2()
    Worksheets("Ëèñò3").Select
    If Range("A1").SpecialCells(xlCellTypeLastCell).Value = "" Then
        Cells(Cells.Find("*", ActiveCell.SpecialCells(xlCellTypeLastCell), _
              , , xlByRows, xlPrevious).Row, _
              Cells.Find("*", ActiveCell.SpecialCells(xlCellTypeLastCell), _
              , , xlByColumns, xlPrevious).Column).Select
    Else
        Range("A1").SpecialCells(xlCellTypeLastCell).Select
    End If
End Sub
...
Рейтинг: 0 / 0
09.09.2004, 13:58
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32688942
Massimo2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Massimo2
Гость
Код: plaintext
1.
Я думаю, тебе это будет полезно. Войди в раздел VBA by Step и читай...
Stepler

Спасибо Питеру за подсказку где почитать
...
Рейтинг: 0 / 0
10.09.2004, 10:20
| Ответить | Цитировать | Написать  
VBA , EXCEL
    #32689118
Фотография funddd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
funddd
Участник
Ставлю на вид.
Топик с таким названием быть не должен.
Тем более 3 рядышком.
Надо менять.

Уважаемый Massimo (он же, вероятно, Владимир), прошу обратить внимание.
...
Рейтинг: 0 / 0
10.09.2004, 11:12
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA , EXCEL
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=32685080&tid=2186599]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 48ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 15ms
total:  163ms
созд. / загр.: 163ms
x
x
Закрыть


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