Настройка расположения диалогового окна Application.InputBox

@ooos · Регистрация: 08.04.2021

Студворк — интернет-сервис помощи студентам

Здравствуйте.

Положение диалогового окна Application.InputBox жестко зафиксировано в единственной позиции относительно расположения окна Excel.
Как в данном случае менять его расположение не прибегая к использованию формы?

P.S.: При изменении параметров [Left], [Top] в поинтах нет реакции.

InputBox Promt, [Title], [DefaultValue], [Left], [Top], [HelpFile], [HelpContextID], [Type]

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
    Dim iLastRow As Long
    Dim vRetVal
'    xpos = 800: ypos = 600
'    vRetVal = Trim(Application.InputBox("Укажите количество документов:", "Запрос данных", "4", xpos * 15, ypos * 15))
 
     vRetVal = Application.InputBox("Укажите количество документов:", "Запрос данных", "4", 50500, 1200)
        If Val(vRetVal) = 0 Then
        MsgBox "Количество должно быть целым числом больше нуля!", vbCritical, "Внимание!"
        Exit Sub
    End If
         
    iLastRow = Cells(Rows.Count, 3).End(xlUp).Row
        Cells(iLastRow + 1, 3).Select    
    Cells(iLastRow + 1, 3).Value = vRetVal    
'    MsgBox "Значение " & vRetVal & " внесено в ячейку", vbYesOnly + vbInformation + vbMsgBoxRight, "Сообщение"
End Sub

@АЕ · 30.05.2025, 09:44

ooos, пробуйте так

Visual Basic
1
vRetVal = InputBox("Укажите количество документов:", "Запрос данных", "4", 50500, 1200)

@Eugene-LS · 30.05.2025, 10:11

Сообщение от ooos

... в поинтах нет реакции

У меня отработало штатно.
MSO 2024x64

@ooos · 30.05.2025, 10:19 **[ТС]**

Сообщение от АЕ

ooos, пробуйте так

Да, так отлично работает.

Добавлено через 5 минут

Сообщение от Eugene-LS

У меня отработало штатно.
MSO 2024x64

Т.е. MSO 2024x64MSO 2024x64 нормально работает с vRetVal = Application.InputBox("Укажите количество документов:", "Запрос данных", "4", 50500, 1200)?

Вынужден был откатиться на MSO 2016x64, т.к. на работе машины с MSO от 16 до 21...

@Eugene-LS · 30.05.2025, 10:36

Сообщение от ooos

Т.е. MSO 2024x64MSO 2024x64 нормально работает с vRetVal = Application.InputBox ...

У меня отработало, т.е. сместилось вправо.

@ooos · 30.05.2025, 10:39 **[ТС]**

Сообщение от Eugene-LS

У меня отработало

Спасибо за ценную информацию, Eugene-LS, учту данный нюанс

@Eugene-LS · 30.05.2025, 10:42

Сообщение от ooos

Вынужден был откатиться на MSO 2016x64, т.к. на работе машины с MSO от 16 до 21...

Это всё 16-е версии ...
2010 -2024 - просто перезапуски одного и того же, с лёгкими косметическими изменениями и иногда вкраплениями глючного и ненужного - короче: сплошной маркетинг.

Пишу на 2024 - клиенты на разных, от 2010x32 до 2024x64 - проблем с совместимостью не наблюдаю.

Кстати: Я бы то же написал без "Application" ...

shanemac51 · 30.05.2025, 10:45

Сообщение от ooos

в поинтах нет реакции

проверила на дюйм=1440 твипов, без Application
при 10 дюймах отработало
при 20 дюймах жестко заклинило, снимала через диспетчер

@ooos · 30.05.2025, 10:49 **[ТС]**

Сообщение от Eugene-LS

Кстати: Я бы то же написал без "Application" ...

Сейчас повнимательней прочитал мануал и понял что действительно надо было выбрать вариант без "Application"

Добавлено через 2 минуты

Сообщение от shanemac51

проверила на дюйм=1440 твипов, без Application

50500 это конечно перебор, ошибка вылетела, vRetVal = InputBox("Укажите количество документов:", "Запрос данных", "4", 15500, 8200) - нормально.

@Eugene-LS · 30.05.2025, 11:15

Сообщение от shanemac51

снимала через диспетчер

Не по теме:

Понакупають больших мониторыф - и выделываються потом ... :)

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

Настройка расположения диалогового окна Application.InputBox

Решение