VBNet - Форум - Выпадающий список

Вопрос: Выпадающий список Добавлено: 04.04.07 10:12

Автор вопроса: Farest | ICQ: 213550720

Вот такая задачка
Private Sub ComboBox2_Change()
Select Case Cells(2, 9).Value
Case "Нажимной гарнитур"
Rows(18).Hidden = True
Case "Скоба (Прямоугольная)"
Rows(18).Hidden = False
Case Else
Rows(18).Hidden = False
End Select
End Sub
Можно ли вписать сюда или дописать код
каторый меняет название ячеек.
Тоесть в одной ячейке меняется название а в другой ячейке пишется заменившееся название.
Если можно обращайтесь в аську 213550720.
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: SkyShark ICQ: 209750501 Вопросов: 0 Ответов: 13	Профиль \| \| #1	Добавлено: 04.04.07 10:41
	Можно попробывать что-то вроде этого... Private Sub Worksheet_Change(ByVal Target As Range) Cells(1, 1).Value = Target End Sub Ответить

Номер ответа: 2 Автор ответа: SkyShark ICQ: 209750501 Вопросов: 0 Ответов: 13	Профиль \| \| #2	Добавлено: 04.04.07 10:59
	Если быть точнее... Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cells(2, 1).Value = Target End Sub Private Sub Worksheet_Change(ByVal Target As Range) For i = 1 To 10 If Target.Address = Cells(1, i).Address And Cells(1, i).Value <> Cells(2, 1) Then Cells(1, 1).Value = Target End If Next i End Sub Это в том случае если ты сам меняешь название ячеек, если из кода то это не подойдет. Ответить

Номер ответа: 3 Автор ответа: Farest ICQ: 213550720 Вопросов: 1 Ответов: 2	Профиль \| \| #3	Добавлено: 04.04.07 11:03
	SkyShark у меня в ячейке В19 (должно изменятся)если Case Cells(2, 9)=Case "Нажимной гарнитур" А в ячейке Н18 содержимое для "Нажимной гарнитур" Ответить

Номер ответа: 4 Автор ответа: SkyShark ICQ: 209750501 Вопросов: 0 Ответов: 13	Профиль \| \| #4	Добавлено: 04.04.07 11:08
	Извини, не понял, все мысли в работе, если аська подымиться ))) пиши пообщаемся на эту тему. Ответить

Номер ответа: 5 Автор ответа: SkyShark ICQ: 209750501 Вопросов: 0 Ответов: 13	Профиль \| \| #5	Добавлено: 04.04.07 12:10
	Может приведешь часть кода и поточнее опишешь.... Ответить

Номер ответа: 6 Автор ответа: Farest ICQ: 213550720 Вопросов: 1 Ответов: 2	Профиль \| \| #6	Добавлено: 04.04.07 12:15
	Давай скинь мне пустышку на емаил я тебе скину файлик а ты посмотриш что нужно Farest-1@rambler.ru Ответить

Страница: 1 |