Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
Igor_Tr
4368 / 652 / 36
Регистрация: 17.01.2010
Сообщений: 2,134
1

Комбинированная работа с Application.InputBox

06.12.2012, 23:55. Просмотров 1609. Ответов 2
Метки нет (Все метки)

Здравствуйте. Можете подсказать, есть возможность использовать Application.InputBox таким образом, чтобы не только получить ссылку на rng, но также иметь возможность вставить строковое выражение? Тоесть или rng, или выражение, без выставления доп. условий и перехода в VBA.InputBox.

Visual Basic
1
2
3
4
5
6
7
8
9
Sub asdf()
    Dim mRng As Range
    Dim mStr$
     ' получаем ссылку на rng
    Set mRng = Application.InputBox(prompt:="ASDFSDFSDF", _ 
                            Title:="FFFFFFFFFF", _
                            Type:=8) ' 8+2=10, 8+1=9, 8+3=11 (перепробовал!)
     mStr = mRng.Value 
End Sub
Добавлено через 32 минуты
Если быть точнее, что бы не делать что-то на подобие следующих зиг-загов:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub asdf()
    Dim mRng As Range
    Dim mStr$
    Application.DisplayAlerts = False
    On Error Resume Next
    Set mRng = Application.InputBox(prompt:="ASDFSDFSDF", _
                            Title:="FFFFFFFFFF", _
                            Type:=9) ' 8+2=10, 8+1=9, 8+3=11
         mStr = mRng.Value
         
        If Not IsArray(mRng) Then
            mStr = InputBox(prompt:="Эти эксперименты до добра не доведут.", _
                            Title:="Остепенисть!!!")
        End If
        MsgBox mStr
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2012, 23:55
Ответы с готовыми решениями:

Поиск файлов по частичному названию + Application.InputBox ?
Уважаемые Форумчане ,подскажите пожалуйста .Как к этой строке кода прикрутить...

Работа с InputBox
Здравствуйте! Как выйти из окна InputBox обратно в интерфейс? (так как нажимая...

Объясните разницу между Excel.Application.xxx и Application.xxx
Всем привет. Начинаю изучать VBA, планирую пока использовать для эксель....

InputBox MsgBox
С помощью встроенной функции InputBox организовать ввод динамического...

Функция InputBox
С помощью функции InputBox запросите у пользователя название трех любых месяцев...

2
Казанский
14153 / 5852 / 1535
Регистрация: 24.09.2011
Сообщений: 9,193
06.12.2012, 23:57 2
Но Вы же пишете Set mRng = Application.InputBox(...), т.е. Application.InputBox должен вернуть объект.
Собсно, Вы можете вводить строку - имя диапазона. Например, если на листе определен диапазон с именем qqq, Вы можете ввести qqq, и это сработает.
0
Igor_Tr
4368 / 652 / 36
Регистрация: 17.01.2010
Сообщений: 2,134
07.12.2012, 00:04  [ТС] 3
Это понятно. Я про его использование с расширенными возможностями. Set - это к примеру.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.12.2012, 00:04

функции InputBox
С помощью функции Input Boxввести произвольное целое число S, с помощью...

Inputbox, msgbox
Здравствуйте, помогите пожалуйста,нужно выполнить 2 задания в VBA в Word:...

массив и inputbox
Не получается занести информацию с inputbox в массив Dim pagesA() As Integer...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru