Запрос фамилии при запуске файла - Мир MS Excel

Регистрация

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

= Мир MS Excel/Запрос фамилии при запуске файла - Мир MS Excel

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

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

Запрос фамилии при запуске файла (Макросы/Sub)

Запрос фамилии при запуске файла

Дата: Вторник, 12.11.2019, 08:32 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

Excel 2016

Здравствуйте Уважаемые гуру Excel!
Необходим макрос при первом открытии файла выходит InputBox с запросом Фамилии студента. Далее записываем данные в ячейку на скрытом листе (например User). Сохраняем файл. При втором открытии (если данные уже есть) сообщаем, что файл создан Фамилией это студента, кнопочка "Окей" и он может приступать к редактированию данных на других листах, если нет, то опять запрос Фамилии.

Ответить

Дата: Среда, 13.11.2019, 02:21 | Сообщение № 2

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

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

Сообщений: 2347

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

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

Excel 2007,2010,2013

Здравствуйте [vba]

Код

Private Sub Workbook_Open()
    Dim SName
    If [type(User!A1)] <> 2 Then
        Do
            SName = Application.InputBox("Введите фамилию")
            If TypeName(SName) = "String" And Not IsNumeric(SName) Then Exit Do
            SName = False
        Loop While MsgBox("Повторить ввод?", 4) = 6
        If SName = False Then
            Me.Close False
        Else
            With Me.Sheets.Add
                .Visible = 2: .Name = "User"
                .[A1] = SName: Me.Save
            End With
        End If
    Else
        MsgBox [User!A1]
    End If
End Sub

[/vba]Здравствуйте

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Дата: Среда, 13.11.2019, 09:08 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

Excel 2016

Большое Спасибо krosav4ig - работает..

Ответить

Дата: Четверг, 14.11.2019, 11:06 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

Excel 2016

krosav4ig,
А как сделать чтобы это работало в Libreoffice Calc?
Ругается начиная с 5-ой строки
Вот макрос в LO Calc:

[vba]

Код

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Private Sub Workbook_Open()
Dim SName
If [type(User!A1)] <> 2 Then
Do
SName = Application.InputBox("Введите Вашу фамилию")
If TypeName(SName) = "String" And Not IsNumeric(SName) Then Exit Do
SName = False
Loop While MsgBox("Повторить ввод?", 4) = 6
If SName = False Then
Me.Close False
Else
With Me.Sheets.Add
.Visible = 2: .Name = "User"
.[A1] = SName: Me.Save
End With
End If
Else
Text = Sheets("User").Range("A1").Value
MsgBox "Фамилия: " & [Text], vbOKOnly, "Внимание! Пользователь документа"
End If
End Sub

[/vba]

К сообщению приложен файл: 1529436.ods (3.0 Kb)

Сообщение отредактировал Salvian55 - Четверг, 14.11.2019, 11:48

Ответить

Дата: Четверг, 14.11.2019, 11:30 | Сообщение № 5

Группа: Модераторы

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

Сообщений: 7029

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

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

Excel 2007;2010;2016

Salvian55, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Четверг, 14.11.2019, 12:06 | Сообщение № 6

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

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

Сообщений: 5660

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

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

2010

Цитата Salvian55, 14.11.2019 в 11:06, в сообщении № 4 ()

А как сделать чтобы это работало в Libreoffice Calc

Переписать сей код с VBA на OpenBasic.

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

Ответить

Дата: Четверг, 14.11.2019, 12:22 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

Excel 2016

Помогите переписать! Знал бы и переписал! Просто у нас в универе есть классы с MS и LO!

Сообщение отредактировал Salvian55 - Четверг, 14.11.2019, 12:31

Ответить

Дата: Четверг, 14.11.2019, 12:51 | Сообщение № 8

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

Ранг: Участник клуба

Сообщений: 4115

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

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

Excel 2013/2016

Цитата RAN, 14.11.2019 в 12:06, в сообщении № 6 ()

Переписать сей код с VBA на OpenBasic.

Не переписать а убрать то что не совсем стандартно
[vba]

Код

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1

Private Sub Workbook_Open()
Dim SName
If Range("User!A1") = "" Then
Do
SName = InputBox("Введите Вашу фамилию")
If Not IsNumeric(SName) Then Exit Do
SName = False
Loop While MsgBox("Повторить ввод?", 4) = 6
If SName = False Then
'Me.Close False
Else
With Me.Sheets.Add
.Visible = 2: .Name = "User"
.[A1] = SName
'Me.Save
End With
End If
Else
Text = Range("User!A1").Value
MsgBox "Фамилия: " & Text, vbOKOnly, "Внимание! Пользователь документа"
End If
End Sub

[/vba]

Закоментированы сохранения и закрыте, для отладки.

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

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Четверг, 14.11.2019, 12:52

Ответить

Дата: Четверг, 14.11.2019, 13:30 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

Excel 2016

СПСБ! Запрос на фамилию работает, лист не прячет. Но! Пишет в лист Sheet4 При повторном открытии нет Msg с Фамилией студента.....

Ответить

Дата: Четверг, 14.11.2019, 13:51 | Сообщение № 10

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

Ранг: Участник клуба

Сообщений: 4115

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

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

Excel 2013/2016

Я собственно только подправил код, чтоб он работал независимо от того в каком приложении работает. Остальное сами там еще [A1] нужно заменить а если лист создается, то первично надо обработать ошибку.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Четверг, 14.11.2019, 14:32

Ответить

Дата: Четверг, 14.11.2019, 14:12 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

Excel 2016

понятно что не скрыт... а пример чтобы работало в ods можно сварганить - втыкаю меняю - одни дебаги - заранее спасибо...??

Сообщение отредактировал Salvian55 - Четверг, 14.11.2019, 14:12

Ответить

Дата: Четверг, 14.11.2019, 14:34 | Сообщение № 12

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

Ранг: Участник клуба

Сообщений: 4115

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

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

Excel 2013/2016

ODS - зачем? Libre прекрасно справится с XLSM

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Дата: Четверг, 14.11.2019, 15:04 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

Excel 2016

Спасибо - записывает, справляется но не выводит то что сделано в MS Offise, спрятать можно, знаю - а вот как в первом посте .. фальлик....

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

Ответить

Дата: Четверг, 14.11.2019, 15:25 | Сообщение № 14

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

Ранг: Участник клуба

Сообщений: 4115

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

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

Excel 2013/2016

Salvian55, ну не переваривает Libre Evaluate записанный через [ ]

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Дата: Пятница, 15.11.2019, 15:33 | Сообщение № 15

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

Excel 2016

Так и не получилось!!!!!

Ответить

Дата: Понедельник, 18.11.2019, 10:38 | Сообщение № 16

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

Excel 2016

Увы - Нет!

Ответить

Запрос фамилии при запуске файла (Макросы/Sub)

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

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