Позиционирование формы возле ячейки Excel 2007+. Тест - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Позиционирование формы возле ячейки Excel 2007+. Тест - Мир MS Excel

Старая форма входа

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_

Позиционирование формы возле ячейки Excel 2007+. Тест (Просьба протестировать код и отписать о результатах)

Позиционирование формы возле ячейки Excel 2007+. Тест

Дата: Суббота, 08.12.2012, 02:37 | Сообщение № 1

Группа: Редакторы

Ранг: Обитатель

Сообщений: 431

Репутация: 193 ±

Замечаний: 0% ±

Всем привет.

Наваял код для позиционирования формы без WinAPI. Просьба протестировать в Excel 2007+.
Форма должна появляться рядом с активной ячейкой. Вызывается двойным кликом или Ctrl+Enter.
Предвижу, что данный код не будет работать из-за анимации в Office x64, но до конца не уверен.
Кроме того форма будет не корректно позиционироваться при DPI отличном от 96.

Результаты просьба писать в формате
- название ос, разрядность
- офис, разрядность
- работает/не работает

Спасибо.

К сообщению приложен файл: Sub_nerv_SetFor.xlsm (37.9 Kb)

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Ответить

Дата: Суббота, 08.12.2012, 09:55 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

ХР 32, Excel 2007, работает

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Суббота, 08.12.2012, 10:08 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Win 7 64
Office 2010 32
работает

Чем больше номер строки/столбца, тем дальше от ячейки форма. На столбце Z уже и не скажешь, что "рядом"

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Суббота, 08.12.2012, 11:34 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Win-8, 2013 (все 32)- работает

Ответить

Дата: Суббота, 08.12.2012, 11:43 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Аналогично Pelena

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Суббота, 08.12.2012, 13:05 | Сообщение № 6

Группа: Друзья

Ранг: Обитатель

Сообщений: 397

Репутация: 112 ±

Замечаний: 0% ±

Excel 2007

Win 7 (32)
Excel 2007
работает

MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет

Ответить

Дата: Воскресенье, 09.12.2012, 01:42 | Сообщение № 7

Группа: Редакторы

Ранг: Обитатель

Сообщений: 431

Репутация: 193 ±

Замечаний: 0% ±

спасибо, карма проплюсована всем smile

smile

Pelena, Serge_007, скриншоты пожалуйста.

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Ответить

Дата: Воскресенье, 09.12.2012, 06:55 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

nerv, скриншот чего ты хочешь?
Того что всё работает или того что у меня Win7 и Excel 2010?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Воскресенье, 09.12.2012, 10:22 | Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Quote (nerv)

скриншоты пожалуйста

Для А1

Для Z25

К сообщению приложен файл: 7477042.png (53.5 Kb) · 3208996.png (29.6 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Воскресенье, 09.12.2012, 14:26 | Сообщение № 10

Группа: Редакторы

Ранг: Обитатель

Сообщений: 431

Репутация: 193 ±

Замечаний: 0% ±

Quote (Serge_007)

скриншот чего ты хочешь?

Quote (Pelena)

Чем больше номер строки/столбца, тем дальше от ячейки форма. На столбце Z уже и не скажешь, что "рядом"

Pelena, спасибо. Работает ли у Вас этот код, и если да, то что пишет
[vba]

Code

Public Sub GetDPI()
     With GetObject("winmgmts:\\.\root\cimv2")
         For Each Item In .ExecQuery("Select * from Win32_DesktopMonitor")
             MsgBox Item.PixelsPerXLogicalInch & ", " & Item.PixelsPerYLogicalInch
         Next
     End With
End Sub

[/vba]

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Ответить

Дата: Воскресенье, 09.12.2012, 14:32 | Сообщение № 11

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Quote (nerv)

что пишет

120, 120

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Воскресенье, 09.12.2012, 14:36 | Сообщение № 12

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (nerv)

Чем больше номер строки/столбца, тем дальше от ячейки форма. На столбце Z уже и не скажешь, что "рядом"

Не, у меня не так
У меня

Quote (Pelena)

Win 7 64
Office 2010 32
работает

А эту строку я не видел раньше
Либо сам слепой, либо Pelena, пост редактировала

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Воскресенье, 09.12.2012, 14:54 | Сообщение № 13

Группа: Редакторы

Ранг: Обитатель

Сообщений: 431

Репутация: 193 ±

Замечаний: 0% ±

Quote (Serge_007)

А эту строку я не видел раньше

бывает ) Я на планете тоже тупанул biggrin

biggrin

Pelena, прошу попробовать теперь.

UPD: Че т файл не сохранился. Перезалил.

UPD: И еще раз.

UPD: Походу глюк форума. Подгружает файл из первого поста, при том, что ссылку я даю на другой.

UPD: Вообщем, в файле из первого поста зайти в модуль nerv_SetFormPosition, проскроллить в самый низ, 96 заменить на 120, затем запустить, затем отписать smile

smile

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Сообщение отредактировал nerv - Воскресенье, 09.12.2012, 15:07

Ответить

Дата: Воскресенье, 09.12.2012, 15:11 | Сообщение № 14

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Quote (Serge_007)

либо Pelena, пост редактировала

не редактировала

Quote (nerv)

Подгружает файл из первого поста

Да нет, я скачала исправленный

Так получается для любой ячейки

К сообщению приложен файл: 4063608.png (60.9 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Воскресенье, 09.12.2012, 22:21 | Сообщение № 15

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

А куда делся файл Sub_nerv_SetFor.xlsm(38Kb) из первого поста?
не могу скачать - ошибка 404..

Ответить

Дата: Понедельник, 10.12.2012, 22:11 | Сообщение № 16

Группа: Редакторы

Ранг: Обитатель

Сообщений: 431

Репутация: 193 ±

Замечаний: 0% ±

Quote (Michael_S)

А куда делся файл Sub_nerv_SetFor.xlsm(38Kb) из первого поста?
не могу скачать - ошибка 404..

не знаю

smile

у меня та же ошибка. Я ничего не трогал )

Pelena, еще раз спасибо wink

wink

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Сообщение отредактировал nerv - Понедельник, 10.12.2012, 22:13

Ответить

Дата: Понедельник, 10.12.2012, 22:55 | Сообщение № 17

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

nerv, А нельзя ли еще раз выложить?

Ответить

Дата: Понедельник, 10.12.2012, 23:02 | Сообщение № 18

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Quote (Michael_S)

нельзя ли еще раз выложить?

Перевложила в первый пост

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Понедельник, 10.12.2012, 23:04 | Сообщение № 19

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Можно

К сообщению приложен файл: 3779925.xlsm (37.9 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Понедельник, 10.12.2012, 23:44 | Сообщение № 20

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Pelena, RAN, - спасибо!

Ответить

Позиционирование формы возле ячейки Excel 2007+. Тест (Просьба протестировать код и отписать о результатах)

Страница 1 из 2
1
2
»

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!