Как в Excel привязать столбец к userform?

[^D^ima]

Имеется таблица Excel. Как проще сделать так, чтобы при щелчке в любую ячейку определенного столбца открывалась UserForm и этой форме были переданы координаты ячейки? Или как привязать комбобокс к столбцу, чтобы пользователи выбирали данные этой ячейки из комбобокса?

[^D^ima]

Я нашел пример, только помогите понять:
1 В примере есть комбобокс, визуально найти не могу. Он судя по всему создается не в realtime, тогда где посмотреть список объектов, которые есть на листе?
2 В свойствах этого комбобокс есть поле ListFillRange, там стоит значение "области". Где посмотреть эти "области" и что это такое?

Прикреплённый файлSample__14_05_2010__22_29_35.zip (10,35 Кбайт, скачиваний: 420)

[Akina]

Открой Эксель.
На листе пометь нужный диапазон (например, прямоугольный от C5 до F13, пометить заливкой... ну или весь столбец, как там тебе надо).
Иди в редактор VBA.
Добавь в проект форму UserForm1.
Брось на неё надпись Label1.
Выбери в списке объектов тот лист, на котором отмечал диапазон.
Открой его модуль и напиши там (поправив во второй строке адрес помеченного диапазона):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C5:F13")) Is Nothing Then
    UserForm1.Label1.Caption = "Address: " & Target.Address
    UserForm1.Show
End If
End Sub

Наслаждайся эффектом.

Сообщение отредактировано: Akina - 14.11.12, 09:22

[^D^ima]

Спасибо.
А если на форму добавить объект, то как к нему обратиться можно? Например добавили комбобокс и хотим изменить его местоположение на странице.

[Akina]

Точно так же, как я изменяю текст надписи.

[^D^ima]

Я имел в виду не на форме, а на листе worksheet:

Если мы нажимаем свойство этого объекта, то выскакивает окно "формат элемента управления", а не полноценное окно properties как для всего Листа. Т.е. не посмотреть имя объекта, для обращения к нему.

[Akina]

Ну так и разбирайся в объектной модели Экселя, что это за объект и в каком контейнере и как его искать...

[Old Bat]

Цитата ^D^ima @ 14.11.12, 10:17

как к нему обратиться можно? Например добавили комбобокс и хотим изменить его местоположение на странице.

ежели переместить вручную - то кликаешь по объекту мышой, удерживая Ctrl - и вперед
ежели хочешь помучить программно, то имя автоматом формируется по принципу: название объекта + инкремент, т.о. в твоем случае

For Each xx In ActiveSheet.Shapes
Debug.Print xx.Name
Next

выдаст нечто вроде Drop Down 1

[^D^ima]

Old Bat
Получил Drop Down 2. А как затем что-то изменить у этого объекта?

Сообщение отредактировано: ^D^ima - 14.11.12, 13:50

[Akina]

Цитата ^D^ima @ 14.11.12, 13:50

Old Bat

А фигли ты Dr начинаешь набирать? тебе же показали - ActiveSheet.Shapes("Drop Down 2"). набирать надо... или около того. Ну или xx - только тогда напиши для него правильный Dim.

Сообщение отредактировано: Akina - 14.11.12, 14:06

[Old Bat]

к объекту обращаемся либо по имени, либо по номеру, например:

ActiveSheet.Shapes("Drop Down 2").Name = "qwe"

[Old Bat]

Но по-хорошему вопрос решается стандартными средствами, без программинга, через ИМЯ диапазона.

[^D^ima]

Old Bat
А в примере во 2-м посте как создается combobox? У него нормальные свойства.

[Old Bat]

именно через диапазон, в данном случае с именем "области", ссылающееся на =Список!$A$1:$A$5

см. закладку ФОРМУЛЫ, раздел ОПРЕДЕЛЕННЫЕ ИМЕНА
+ встроенная справка, глава "Определение и использование имен в формулах"

[^D^ima]

Ясно. Спасибо.

Добавлено 14.11.12, 19:33
И все-же не нашел где там создается сам combobox? На форме его не видно, при создании Worksheet_Activate() тоже ничего нет, а обращение Me.Combo есть.

[Old Bat]

http://office.microsoft.com/ru-ru/excel-he...P010072599.aspx

[^D^ima]

Там не совсем так, но за ссылку спасибо. Оказывается все можно сделать проще...

[Azx]

Добрый день!

Большое спрасибо за макрос.

Все работает, но у меня есть нюанс:

Если ввести в ячейку построчный текст как в поле [Реквизиты] - выает ошибку и не вставляет.

Что я делаю неправильно?

(прикрепил скрин)
Прикреплённый файл____________.PNG (33,65 Кбайт, скачиваний: 190)

Сообщение отредактировано: Azx - 06.03.20, 11:32

[pashulka]

Azx, В макросе вообще нет никаких проблем с построчным текстом (кроме того, что в поле со списком, он будет отображаться в одну строку). Так что лучше опубликуйте свой файл (а не картинку), где происходит ошибка.

[Azx]

Файл
Прикреплённый файлMacro.rar (37,79 Кбайт, скачиваний: 122)

Добавлено 09.03.20, 09:40
Как только удаляю все из поля [Реквизиты] - все работает. Добавляю реквизиты - ошибка.

Сообщение отредактировано: Azx - 09.03.20, 09:40

[pashulka]

Azx, В Word (как и в Excel) есть ограничение на количество символов в поиске/замене.
Если оно(кол-во) превышает 255, возникает ошибка. Так что заменить один текст на другой, таким способом - Вам не удастся.
Но повторюсь, никаких проблем с построчным текстом нет.

Сообщение отредактировано: pashulka - 17.03.20, 19:04