Изменение данных в ячейках в зависимости от ввода в диалоговом окне

@bot1 · Регистрация: 15.01.2016

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

Добрый день,
Имеется файл, в котором часть ячеек неизменны, а часть нужно изменять в зависимости от того, кто открыл файл.
При отркытии должно выскакивать окно типа "введите личный номер", а после ввода некоторые из ячеек нужно изменить, например в a1 должно появиться имя, в b1 фамилия, в c1 личный номер и т.д.
Каким образом можно реализовать подобный функционал?
Заранее спасибо!

~~Shersh~~ · 15.01.2016, 07:49

Например так (в модуль ThisWorkbook (ЭтаКнига) - [Alt+F11])-

Visual Basic

Private Sub Workbook_Open()
n = InputBox("введите личный номер")
On Error GoTo u
[a1] = Array("имя0", "имя1", "имя2")(n)
[b1] = Array("фамилия0", "фамилия1", "фамилия2")(n)
[c1] = n
Exit Sub
u:
MsgBox "Звиняйте, нэма таких"
ThisWorkbook.Close
End Sub

@bot1 · 18.01.2016, 01:56 **[ТС]**

Здорово, спасибо, в принципе все устраивает, только один вопрос.
В вашем примере личные номера присваиваются просто по возрастанию, начиная с нуля, а как прикрутить заранее определенную таблицу типа
номер имя фамилия
12873 Иван Петров
34299 Петр Сергеев
42781 Сергей Иванов

Добавлено через 12 минут
И еще момент...можно вызывать диалоговое окно не при открытии файла, а по нажатию кнопки?

~~Shersh~~ · 18.01.2016, 07:16

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

можно...?

Разрешаю.
Делайте таблицу, организуйте поиск по ней, кнопку и т.д.
Появятся конкретные вопросы - задавайте, помогальщиков здесь хватает (а вот халявщиков многие недолюбливают).

@bot1 · 18.01.2016, 07:19 **[ТС]**

спасибо!)

@bot1 0 / 0 / 0 Регистрация: 15.01.2016 Сообщений: 3
		1
	Изменение данных в ячейках в зависимости от ввода в диалоговом окне 15.01.2016, 06:16. Показов 1409. Ответов 4 Метки нет (Все метки) Добрый день, Имеется файл, в котором часть ячеек неизменны, а часть нужно изменять в зависимости от того, кто открыл файл. При отркытии должно выскакивать окно типа "введите личный номер", а после ввода некоторые из ячеек нужно изменить, например в a1 должно появиться имя, в b1 фамилия, в c1 личный номер и т.д. Каким образом можно реализовать подобный функционал? Заранее спасибо! 0

@bot1 0 / 0 / 0 Регистрация: 15.01.2016 Сообщений: 3
	18.01.2016, 01:56 [ТС]	3
	Здорово, спасибо, в принципе все устраивает, только один вопрос. В вашем примере личные номера присваиваются просто по возрастанию, начиная с нуля, а как прикрутить заранее определенную таблицу типа номер имя фамилия 12873 Иван Петров 34299 Петр Сергеев 42781 Сергей Иванов Добавлено через 12 минут И еще момент...можно вызывать диалоговое окно не при открытии файла, а по нажатию кнопки? 0

~~Shersh~~ Заблокирован
	18.01.2016, 07:16	4
	Сообщение было отмечено bot1 как решение Решение Сообщение от bot1 можно...? Разрешаю. Делайте таблицу, организуйте поиск по ней, кнопку и т.д. Появятся конкретные вопросы - задавайте, помогальщиков здесь хватает (а вот халявщиков многие недолюбливают). 1

@bot1 0 / 0 / 0 Регистрация: 15.01.2016 Сообщений: 3
	18.01.2016, 07:19 [ТС]	5
	спасибо!) 0

Изменение данных в ячейках в зависимости от ввода в диалоговом окне

Решение