Одинаковые элементы в ComboBox

@Yarson · Регистрация: 16.05.2010

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

Добрый день.
Помогите, пожалуйста с такой проблемой:
есть раскрывающийся список с датами, которые могут повторятся в таблице. В списке все правильно отображается, но при выборе любой из одинаковых дат, курсор в таблице ставится на первую из одинаковых. Как сделать, чтоб курсор перемещался на соответствующую ячейку. Заранее спасибо.

Вот файл

@Busine2009 · 16.05.2010, 18:32

Yarson,
Вот эту часть вставь:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub dat_Change()
Range("h3").Select
ActiveCell.Offset(dat.ListIndex, 0).Select 'dat.ListIndex - порядковый номер выброной строки в комбобокс
 
d2 = ActiveCell.Offset(0, 1).Value
d3 = ActiveCell.Offset(0, 2).Value
d4 = ActiveCell.Offset(0, 3).Value
d5 = ActiveCell.Offset(0, 4).Value
d6 = ActiveCell.Offset(0, 5).Value
d7 = ActiveCell.Offset(0, 6).Value
 
pkp.Text = d2

Эта часть:

Visual Basic
1
pkp.Text = d2

без изменений, просто является границей, по куда надо вставить код.

@Yarson · 18.05.2010, 00:34 **[ТС]**

Спасибо большое!
Обнаружил еще одну проблему:
Если в конце таблицы несколько одинакових записей, то при нажатии на кнопки "Останній" (последний) или "Зберегти"(сохранить), при добавлении и редактировании елементов с формы, курсор также падает на певую из одинаковых, а надо, чтоб на последнюю запись.
Подскажите пожалуйста.

Вот немного усовершенствованый файл.

@Busine2009 · 18.05.2010, 21:59

Yarson,
что за dat1 у тебя появилось?
Вот строчка по первому вопросу.

Visual Basic
1
ComboBox1.Value = ComboBox1.List(ComboBox1.ListCount - 1)

@Yarson · 18.05.2010, 22:45 **[ТС]**

dat1 - это поле для даты. Отображается при нажатии на "Редагувати" или "Доповнити" вместо списка dat
ну, короче, это не важно. Пока dat1 несущесвовало, проблема тоже была.

Первую проблему уже решил, но всеравно спасибо; вот теперь с этим проблема =(

@Busine2009 · 18.05.2010, 22:47

Yarson,
оставь только dat и заново вложи файл.

@Yarson · 18.05.2010, 22:55 **[ТС]**

вот, вроде сделал

@Yarson · 18.05.2010, 23:49 **[ТС]**

не помню, вроде все как надо, но может где встретится - переименовать dat

@Busine2009 · 19.05.2010, 21:02

Yarson,
да, ты прав, здесь идёт пересечение событий. То, что я предложил - не работает. Попробую что-нибудь придумать.

@Busine2009 · 26.05.2010, 20:40

Yarson,
вот ключевое:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Private Sub CommandButton1_Click()
'выбираем 3-й элемент (нумерация нач-ся с 0)
Me.ComboBox1.ListIndex = 2
End Sub
 
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Me.ComboBox1
    .AddItem "Первый"
    .AddItem "Второй"
    .AddItem "Первый"
End With
End Sub

@Busine2009 · 30.05.2010, 09:05

Вот так более конкретно по 2-му вопросу:

Visual Basic
1
2
3
4
5
6
7
8
Private Sub ost_Click()
dat.ListIndex = dat.ListCount - 1
nas.Enabled = False
ost.Enabled = False
pop.Enabled = True
per.Enabled = True
MsgBox "Останній запис"
End Sub

Добавлено через 14 минут
В этой части:

Visual Basic
1
2
3
4
5
Private Sub dop_Click()
i = 1
'Змінні
 
dat.Text = Date

Вот это:

Visual Basic
1
dat.Text = Date

не работает, если есть вот это:

Visual Basic
1
2
dat.Style = fmStyleDropDownList
'Заборона вводу з клавіатури

@piloterist · 30.05.2010, 20:01

Извиняюсь что влезаю в вашу тему, но чтобы не плодить новых не могли бы подсказать,желательно кодом. Как в ComboBox добавить пункты из которых выбирать. И как сделать чтобы при выборе той или иной строки из ComboBox выполнялось некое действие, например в массив записывался номер выбранного пункта.

@Busine2009 · 30.05.2010, 20:10

piloterist,
новую тему создай - за это не банят. Просто твоя тема вообще никак не связана с этой темой.

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@Yarson 0 / 0 / 0 Регистрация: 16.05.2010 Сообщений: 7
	18.05.2010, 22:45 [ТС]
	dat1 - это поле для даты. Отображается при нажатии на "Редагувати" или "Доповнити" вместо списка dat ну, короче, это не важно. Пока dat1 несущесвовало, проблема тоже была. Первую проблему уже решил, но всеравно спасибо; вот теперь с этим проблема =( 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	18.05.2010, 22:47
	Yarson, оставь только dat и заново вложи файл. 0

@Yarson 0 / 0 / 0 Регистрация: 16.05.2010 Сообщений: 7
	18.05.2010, 23:49 [ТС]
	не помню, вроде все как надо, но может где встретится - переименовать dat 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	19.05.2010, 21:02
	Yarson, да, ты прав, здесь идёт пересечение событий. То, что я предложил - не работает. Попробую что-нибудь придумать. 0

@piloterist 4 / 4 / 0 Регистрация: 10.10.2009 Сообщений: 301
	30.05.2010, 20:01
	Извиняюсь что влезаю в вашу тему, но чтобы не плодить новых не могли бы подсказать,желательно кодом. Как в ComboBox добавить пункты из которых выбирать. И как сделать чтобы при выборе той или иной строки из ComboBox выполнялось некое действие, например в массив записывался номер выбранного пункта. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	30.05.2010, 20:10
	piloterist, новую тему создай - за это не банят. Просто твоя тема вообще никак не связана с этой темой. 0