Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » ttolu
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 След.
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
15.10.2019 14:04:26
Цитата
Юрий М написал:
см. пункт 3.10 наших правил
я только до пункта 3.09 дошол,- многа букоф.
ПО АЙПИ БАНИТЬ- ЗАЁБЕШЬСЯ, ОТ СЛОВА СОВСЕМ.
Изменено: ttolu - 15.10.2019 14:05:14
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 17:28:38
vikttur, Слава Богу, что Вы знаете! аж отпустило меня)
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 14:40:59
vikttur, вечно у вас какие-то проблемы, как я посмотрю) что я не так сделал? конкретно можете сказать?
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 14:23:34
Теперь всё так))) все мои влажные фантазии на сегодня сбылись, всем огромное спасибо))!!  
Изменено: ttolu - 14.10.2019 14:50:22
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 14:19:10
Юрий М,
Да Вы правы, я ещё раз проверил, все получается, причём макрос уже есть такой по поиску мест, прям рядом в коде:
Set rCell = Cells.Find("Кол-во мест:")
-чёт сам не смог догодаться, походу Ваш вариант проще получается. И там по-барабану относительно чего находится активная часть экрана- всё чётко возвращает на место.  
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 13:56:19
я понял- не прокатит(((  так не устраивает, хотя, Вы помогли о чём я просил чётко, спасибо, я везде уже Ваш код прописал.
-мне тогда макросом прописывать это диапазон нужно.. а смысл для меня ничтожный получается....
Изменено: ttolu - 14.10.2019 13:57:49
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 13:50:07
Цитата
МатросНаЗебре написал:
Ага, понятно. Так не будет зависеть от выделения столбца.
не, не так: вместо CL1 может быть любое место правее или левее самой таблицы, сейчас если по столбцу А, работать, то всё чётко, а вот если без привязки ВООБЩЕ???
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 13:48:00
Цитата
Юрий М написал:
Разве строка с найденной ячейкой не будет в зоне видимости?
Да Вы правы, я ещё раз проверил, все получается, причём макрос уже есть такой по поиску мест, прям рядом в коде:
Set rCell = Cells.Find("Кол-во мест:")
-чёт сам не смог догодаться, походу Ваш вариант проще получается. И там по-барабану относительно чего находится активная часть экрана- всё чётко возвращает на место.
Изменено: ttolu - 14.10.2019 14:17:31
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 13:42:16
Цитата
МатросНаЗебре написал:
Надо поменять номер столбца в первой строке.
понял... это единственный вариант?? а если универсально как-то реализовать и за отдельную плату, чтобы в код не лазить, не писать номер столбца?? меня уже заинтриговала эта тема.
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 13:39:58
Цитата
МатросНаЗебре написал:
смотреть не на монитор, а от монитора?
не, смотрим чётко на монитор): если активным будет столбец, например СС, то таблица от него буде находиться левее,  верно? понимаете?
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 13:25:32
МатросНаЗебре,
-теория: а если таблица смещена будет левее, скажем активный столбец будет CL?  в данном случае Ваш код не работает, а можно сделать чтобы и в этом случае работало??
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 13:19:54
-а, не, там есть случай, если примерно 80 строк таблица, то она не двигается никуда,- из-за етого весь сыр -бор

Цитата
МатросНаЗебре написал: Сообщение могло потеряться.
да, теперь всё работает! спасибо!
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 13:06:40
Цитата
МатросНаЗебре написал:
Подозреваю, что "умные таблицы" пока Вам неизвестны.
я вообще не использую эту тему по причине ненадобности,- нам поставщики присылают инвойс , и  погнали.
Цитата
МатросНаЗебре написал:
Ниже таблицы, про которую Вы говорите, данных нет?
есть девять и одиннадцать строчек ниже выводятся суммы(если все совпадает- они будут подсвечены), вот их мне и нужно видеть, чтобы не крутить колёсиком мыши по километру, пример в файле.
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 12:55:54
МатросНаЗебре, такой вопрос: Таблица1 что означает??
я пока тоже не могу запустить с такой фразой, и куда её прикрутить не ведаю.
Изменено: ttolu - 14.10.2019 12:57:45
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 12:11:19
я поставил еденицу,- теперь не крутит ничего.. таблица как была в начале, так и остаётся...
и вообще: неужели нет какого-то универсального кода, который бы возвращал конец таблицы всегда на середину экрана: не важно где конец находится: вверху или внизу??
Изменено: ttolu - 14.10.2019 12:21:41
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 11:46:41
Цитата
МатросНаЗебре написал:
был выделен какой-то другой объект не-range
я только строки добавил строки в таблицу, и после этого стало выдавать сообщение, в данном случае ничего не изменилось, см ссылку:
https://www.dropbox.com/s/gt0j4lofccxkg0m/%D0%A1%D0%BD%D0%B8%D0%BC%D0%BE%D0%BA2.PNG?dl=0
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 11:16:04
МатросНаЗебре, если в таблице 190 строк, то выводит сообщение:"нельзя установить свойство ScrollRow класса Window"
https://www.dropbox.com/s/taltec1ks6ha2ue/%D0%A1%D0%BD%D0%B8%D0%BC%D0%BE%D0%BA.PNG?dl=0
Изменено: ttolu - 14.10.2019 11:29:39
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 11:07:33
я использую такой код:
Код
 LastRow = Cells(Rows.Count, "G").End(xlUp).Row  ' последняя строка таблици  


 LastRow = Cells(Rows.Count, "G").End(xlUp).Select
Изменено: ttolu - 14.10.2019 11:08:12
 
Перейти    
Вывод результата всегда по центру экрана, существует ли способ, чтобы ВСЕГДА результат был в одном и том же месте на экране монитора?
 
#
14.10.2019 11:03:50
Здравстуйте, потому-что вывод последней строки с её активацией при определённом размере таблицы не всегда работает, таблицы могут быть произвольной размерности, и если таблица имеет вот такой размер, примерно 70 строк, то активация последней ячейки не помогает- результаты не прокручиваются:
Изменено: ttolu - 14.10.2019 11:04:44
 
Перейти    
[ Закрыто] Программно закрыть надстройку, при переходе в другую папку
 
#
20.09.2019 13:45:10
Цитата
Jack Famous написал:
если вы спрашиваете, чем заправить "девятку",
да, и я сразу уточнил ПЕВРОНАЧАЛЬНОМ варианте задания(сейчас его поправили), и я специально ето момент указал:она работает в определенной папке , далее текст задания:   " а при переходе в другую папку она уже не нужна- там своя надстройка." ; вы просто увидели слово "надстройка", а где она используется не уточнили. а я написал специально это.
 
Перейти    
[ Закрыто] Программно закрыть надстройку, при переходе в другую папку
 
#
20.09.2019 13:38:03
Цитата
Юрий М написал:
И немножко из наших правил: Цитата4.4. Создавать сообщения, содержащие "аффтарскую" речь, специально сделанные ошибки; злостно несоблюдать правила русского языка.
осознал, каюс! больше не буду!!
а когда Владимир Путин на форуме называет Сталина "папашей", это подпадает под пункт 4.4.?? Или ему можно? Мне просто интересно.
 
Перейти    
[ Закрыто] Программно закрыть надстройку, при переходе в другую папку
 
#
20.09.2019 13:23:15
типо так нужно было, просто устал чёта совсем, сразу не сообразил:
Код
Sub Main(control As Office.IRibbonControl)
With ThisWorkbook
        .Saved = True
        .ChangeFileAccess xlReadOnly
        'SetAttr .FullName, 0
        On Error Resume Next
       'закрываем книгу
        .Close
    End With
    End Sub
 
Перейти    
[ Закрыто] Программно закрыть надстройку, при переходе в другую папку
 
#
20.09.2019 13:16:56
Цитата
Андрей VG написал:
дал абсолютно правильный ответ.
мне он не подходит, простите меня.
 
Перейти    
[ Закрыто] Программно закрыть надстройку, при переходе в другую папку
 
#
20.09.2019 13:14:59
Цитата
vikttur написал:
ttolu , прежде, чем возмущаться:
нигде я не возмущался, если кого обидел-ПРОШУ прощения.
Надстройка лежит в папке, папок примерно штук 10 , в каждой находится такая надстройка, каждая надстройка суммирует файлы , в которой лежит надстройка, нужно на кнопку зделать команду для закрытия надстройки. мега аффтор этой надстройки The Pirst! если что)  
Изменено: ttolu - 20.09.2019 13:15:35
 
Перейти    
[ Закрыто] Программно закрыть надстройку, при переходе в другую папку
 
#
20.09.2019 12:59:20
Jack Famous, смотрите ещё раз: "(она работает в определенной папке), а при переходе в другую папку она уже не нужна- там своя надстройка."
т.е. надстройка работает и лежит в КОНКРЕТНОЙ ПАПКЕ(суммирует в ней файлы), поэтому, цитата:"всегда стоит начать с макрорекордера", - а может проще прочетать ВНИМАТЕЛЬНО ТЗ для начала, чем давать советы никому не нужные кроме вас одного)?
Изменено: ttolu - 20.09.2019 13:02:34
 
Перейти    
[ Закрыто] Программно закрыть надстройку, при переходе в другую папку
 
#
20.09.2019 12:09:53
Здравствуйте, каким образом на кнопку сделать команду закрытия надстройки? А то приходится каждый раз закрывать -запускать заново все файлы активные.
 
Перейти    
Добавить список классификаторов в макрос, есть макрос, удалящий строки по условию
 
#
19.09.2019 11:02:21
Kuzmich, мечты сбываются не только газпрома, а у меня тоже (иногда))
-спасибо!)
 
Перейти    
Добавить список классификаторов в макрос, есть макрос, удалящий строки по условию
 
#
18.09.2019 17:45:47
Пытливый, если именно в таком виде как есть,- неззя, тогда не надо.. ладно уже.
главное, если искать не часть текста, а содержимое целой ячейку- в таком виде всё работает, а если часть текста- фигвам((
 
Перейти    
Добавить список классификаторов в макрос, есть макрос, удалящий строки по условию
 
#
18.09.2019 17:15:56
Пытливый, ничего не происходит при запуске вашим способом.
gena10111, не понял как структуру прописывать .. типо вот так зделал, как было написано:
Код
Sub tty()
 Dim классиф
 Dim i As Long
    классиф = "09999/0"
    классиф = классиф & ", " & "03022/0"
хотелось бы именно в этом макросе чтобы, в такой же структуре было, если возможно конечно.
 
Перейти    
Добавить список классификаторов в макрос, есть макрос, удалящий строки по условию
 
#
18.09.2019 13:30:53
Как назначить список для переменной "классиф"?  код:
также пример в файле прилагаю
Код
Sub тест()
 Dim классиф
 Dim i As Long
    классиф = "09999/0" 'каким образом сюда ещё добавить ещё один классификатор, например 03022/0? 

    For i = Cells(Rows.count, 1).End(xlUp).row To 1 Step -1       
       If InStr(1, Cells(i, 1), классиф, vbTextCompare) > 0 Then        
      Rows(i).Delete
       End If
    Next' Application.ScreenUpdating = True
End Sub
Изменено: ttolu - 18.09.2019 13:40:04
 
Перейти    
Страницы: 1 2 3 След.
Наверх