ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вход в приложение xl через InputBox и запись в лог лист
25 сообщений из 26, страница 1 из 2
  1  все
вход в приложение xl через InputBox и запись в лог лист
    #39626154
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Ребята помогите с организацией ввода через InputBox
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub Workbook_Open()
Windows("книга.xlsm").Visible = False
Dim pass
pass = InputBox("введите имя пользователя:", "сообщение", "")

If pass = "" Then
    MsgBox "вы не указали имя пользователя!", vbCritical, "сообщение!"
If StrPtr(pass) = 0 Then 
     MsgBox "вы не указали имя пользователя! приложение будет закрыто", vbCritical, "сообщение"
    'Windows("книга.xlsm").Save
    'Windows("книга.xlsm").Close

   lastrow = Worksheets("лог").Range("A60000").End(xlUp).Row
   Worksheets("лог").Cells(lastrow + 1, 1) = pass 'Environ("USERNAME")
   Worksheets("лог").Cells(lastrow + 1, 2) = Now
   End If
   End If
End Sub
...
Рейтинг: 0 / 0
05.04.2018, 14:58
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626181
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А вопрос-то какой?
...
Рейтинг: 0 / 0
05.04.2018, 15:50
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626197
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, не получается построить условия:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub Workbook_Open()
Windows("книга.xlsm").Visible = False
Dim pass
pass = InputBox("введите имя пользователя:", "сообщение", "")

If pass = "" Then
    MsgBox "вы не указали имя пользователя! введите имя", vbCritical, "сообщение!"  'исчезает  InputBox!

elseIf StrPtr(pass) = 0 Then 
     MsgBox "вы не указали имя пользователя! приложение будет закрыто", vbCritical, "сообщение"
    'Windows("книга.xlsm").Save
    'Windows("книга.xlsm").Close

elseIf pass = Text  Then  'здесь не получается установить в InputBox проверка на текст 
 lastrow = Worksheets("лог").Range("A60000").End(xlUp).Row
   Worksheets("лог").Cells(lastrow + 1, 1) = pass ' сюда хотелось бы прописать то что будет вводится из текстового поля InputBox
   Worksheets("лог").Cells(lastrow + 1, 2) = Now
   End If
   End If
End Sub
...
Рейтинг: 0 / 0
05.04.2018, 16:05
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626202
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А что хотите-то?
assei
Код: vbnet
1.
'здесь не получается установить в InputBox проверка на текст

А что такое в данном случае Text, с которым вы сравниваете pass?
assei
Код: vbnet
1.
' сюда хотелось бы прописать то что будет вводится из текстового поля InputBox

Ну так оно хранится в pass, проблема-то в чем?
assei
Код: sql
1.
2.
   End If
   End If

Один End If лишний
...
Рейтинг: 0 / 0
05.04.2018, 16:16
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626203
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
asseiне получается установить в InputBox проверка на текст
InputBox в принципе не может вернуть что-то не-строковое. Проверка абсолютно бессмысленна.
...
Рейтинг: 0 / 0
05.04.2018, 16:16
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626209
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
из InputBox хотелось бы занести имя пользователя, но не получается создать условие, пример во вложении
...
Рейтинг: 0 / 0
05.04.2018, 16:23
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626229
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
asseiно не получается создать условиеВы уже в третий раз это говорите, но мы-то не знаем, какой именно условие вы пытаетесь создать. На вопрос вы тоже не ответили. Поэтому вы можете дальше разговаривать сами с собой - толку не будет. Ну или попытаетесь все-таки сформулировать, что вы хотите.
...
Рейтинг: 0 / 0
05.04.2018, 16:52
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626243
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, хотелось бы создать условие:

если в поле пусто - сообщение, и продолжить работу InputBox
если в поле имеется текст - тогда - заносим из текстового поля в -
Код: vbnet
1.
2.
3.
lastrow = Worksheets("Лог").Range("A60000").End(xlUp).Row
   Worksheets("Лог").Cells(lastrow + 1, 1) = Environ("USERNAME")
   Worksheets("Лог").Cells(lastrow + 1, 2) = Now


если нажата кнопка отмена - сообщение - выход/закрыть из приложения xl, т.е. закрыть всю книгу
...
Рейтинг: 0 / 0
05.04.2018, 17:05
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626246
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
asseiесли в поле пусто ....
если в поле имеется текстЕсли в поле не пусто, значит в поле имеется текст. Какая-то дополнительная проверка не нужна, достаточно просто Else
...
Рейтинг: 0 / 0
05.04.2018, 17:09
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626248
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, должен быть только текст
...
Рейтинг: 0 / 0
05.04.2018, 17:14
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626258
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Что такое "только текст" в вашем понимании?
...
Рейтинг: 0 / 0
05.04.2018, 17:27
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626260
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, не цифры
...
Рейтинг: 0 / 0
05.04.2018, 17:29
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626273
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
assei,

ну вообще неясно чего Вы хотите в итоге. Попробуйте ознакомиться:
Работа с диалогами
Каждому пользователю свой лист/диапазон
Отслеживание входа пользователей в книгу Excel
Может наведет на какие-нибудь светлые мысли.
...
Рейтинг: 0 / 0
05.04.2018, 17:44
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626320
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
asseiShocker.Pro, не цифрыто есть "вs ;'*"№;"*$$ adsf askjываы&" - это считаем текстом, правильно?
...
Рейтинг: 0 / 0
05.04.2018, 18:19
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626526
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, я думаю вы меня прекрасно поняли, чего издеваться то над слабыми!, пользователь должен указать свое имя или фамилию, которая будет прописываться в лог файл
...
Рейтинг: 0 / 0
06.04.2018, 09:05
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626531
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
The_Prist, поясню по порядку, здесь у меня InputBox пропадает после нажатия кнопки ок в MsgBox, а хотелось бы продолжить видеть InputBox для ввода!
Код: vbnet
1.
2.
3.
4.
5.
6.
Dim pass
pass = InputBox("имя пользователя:", "сообщение", "")
If pass = "" Then 
    MsgBox "поле пустое, продолжите ввод имени пользователя !", vbCritical, "сообщение!"

End If
...
Рейтинг: 0 / 0
06.04.2018, 09:18
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626550
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim pass as string
do
    pass = inputbox(...)
    If pass = "" Then 
        MsgBox "поле пустое, продолжите ввод имени пользователя !", vbCritical, "сообщение!"
    end if 
loop while pass=""
...
Рейтинг: 0 / 0
06.04.2018, 09:38
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626563
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
asseiShocker.Pro, я думаю вы меня прекрасно поняли, чего издеваться то над слабыми!, пользователь должен указать свое имя или фамилию, которая будет прописываться в лог файлВы не можете объяснить что вы хотите обычному человеку, вы тем более не сможете объяснить компьютеру. Я не издеваюсь, я вас обучаю. К примеру, я мог бы показать, как отфильтровать "не цифры", но вряд ли это то, что вам реально нужно. Попробуйте все-таки сформулировать.
asseiпользователь должен указать свое имя или фамилиюЯ все равно не делаю вывода о том, что там должно быть. Может вы латиницей вводите, может русскими, может допускаете смешанные, может только заглавные, что еще допускать в вашем "тексте" кроме букв? При написании программы вам придется объяснить это компьютеру, и если он поймет вас буквально (как например в моем примере с "не цифрами"), вы тоже будете ему говорить, что он над вами издевается?
...
Рейтинг: 0 / 0
06.04.2018, 09:48
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626565
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Akina, здесь я не могу понять какая кнопка нажата, как мне хотелось бы если нажата кнопка отмена, тогда закрываю книгу, так как пользователь не пожелал продолжить работу,
- не могу разобратся с =0 или 1 как они работают?
Код: vbnet
1.
2.
3.
4.
If pass = 0 Then 
     MsgBox "вы не указали имя пользователя! приложение будет закрыто", vbCritical, "сообщение"
    Windows("книга.xlsm").Save
    Windows("книга.xlsm").Close
...
Рейтинг: 0 / 0
06.04.2018, 09:52
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626570
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
MsgBox - это, блин, ФУНКЦИЯ!!! и она ВОЗВРАЩАЕТ ЗНАЧЕНИЕ!!! а ты его никуда не присваиваешь и, соответственно, теряешь - ну и кто тебе злобный буратин?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
If pass = 0 Then 
    If vbCancel = MsgBox "вы не указали имя пользователя! приложение будет закрыто", _
                         vbCritical + vbOKCancel, _
                         "сообщение" Then
        Windows("книга.xlsm").Save
        Windows("книга.xlsm").Close
    end if
...
Рейтинг: 0 / 0
06.04.2018, 09:58
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626575
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Akina, я ни кого не обзывал "злобным буратином", все что я пишу это от своего безсилия
...
Рейтинг: 0 / 0
06.04.2018, 10:00
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626579
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Akina, скобочки забыли в пылу гнева MsgBox ("вы не указали имя пользователя! приложение будет закрыто", _
vbCritical + vbOKCancel, _
"сообщение") Then
...
Рейтинг: 0 / 0
06.04.2018, 10:02
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626580
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
asseiмне хотелось бы если нажата кнопка отмена, тогда закрываю книгуЕсли бы приложили усилия и прочитали статью по моей первой ссылке - вопрос бы отпал. Там это расписывается прямо с примером готового кода.
asseiу меня InputBox пропадает после нажатия кнопки ок в MsgBox
А что должно было произойти? У Вас после MsgBox идет окончание процедуры...Видимо, все же чего-то такое надо:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub Workbook_Open()
    'ThisWorkbook - Обращение к книге с кодом
    'Но из модуля самой книги можно обращаться и проще - Me
    ThisWorkbook.Visible = False
    Dim pass As String, lastrow As Long
    
    'цикл, пока не будут указаны данные
    Do While pass = ""
        pass = InputBox("введите имя пользователя:", "сообщение", "")
        If StrPtr(pass) = 0 Then
            MsgBox "Приложение будет закрыто", vbCritical, "сообщение!"
            ThisWorkbook.Close
            Exit Sub
        End If
        If pass = "" Then
            MsgBox "вы не указали имя пользователя! введите имя", vbCritical, "сообщение!"  'исчезает  InputBox!
        End If
    Loop
    lastrow = Worksheets("лог").Range("A60000").End(xlUp).Row
    Worksheets("лог").Cells(lastrow + 1, 1) = pass ' сюда хотелось бы прописать то что будет вводится из текстового поля InputBox
    Worksheets("лог").Cells(lastrow + 1, 2) = Now
End Sub
...
Рейтинг: 0 / 0
06.04.2018, 10:03
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626596
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
The_Prist, по поводу
Код: vbnet
1.
StrPtr

поясните, умные слова я в инете нашел, а по доходчивее можно как то? какое отношение к pass?
...
Рейтинг: 0 / 0
06.04.2018, 10:16
| Ответить | Цитировать | Написать  
вход в приложение xl через InputBox и запись в лог лист
    #39626620
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
The_Prist, Shocker.Pro, Akina, И все равно скажу всем вам спасибо!
...
Рейтинг: 0 / 0
06.04.2018, 10:48
| Ответить | Цитировать | Написать  
25 сообщений из 26, страница 1 из 2
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вход в приложение xl через InputBox и запись в лог лист
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39626565&tid=2172359]:
 0ms
get settings:
 12ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 291ms
total:  432ms
созд. / загр.: 432ms
x
x
Закрыть


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