VBNet - Форум - Наименование товара

Вопрос: Наименование товара _ зависимость от кода Добавлено: 19.02.09 19:02

Автор вопроса: Григорий

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count < 10 Then
Cells(Target.Row, 2).Value = "Канцтовары"
Else
If Target.Cells.Count > 10 Then
Cells(Target.Row, 2).Value = "Музыка"

End If
End If
End Sub

Помогите пожалуйста исправить код -
при введении значения < 10 должно получаться "Канцтовары"
> "Музыка" вроде все правильно составил - а не работает
правильно код
Ответить

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

Номер ответа: 1 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #1	Добавлено: 19.02.09 20:05
	Нет логики, т.к. Target.Cells.Count - это по ходу количество выделенных ячеек, а тебе надо брать значение (.Value) какой-то ячейки. Какой - тебе видней. Наверное, надо так: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then If Cells(Target.Row, Target.Column).Value < 10 Then Cells(Target.Row, 2).Value = "Êàíöòîâàðû" ElseIf Cells(Target.Row, Target.Column).Value > 10 Then Cells(Target.Row, 2).Value = "Ìóçûêà" End If End If End Sub Ответить

Номер ответа: 2 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #2	Добавлено: 19.02.09 20:07
	Поправлюсь: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then If Cells(Target.Row, Target.Column).Value < 10 Then Cells(Target.Row, 2).Value = "Канцтовары" ElseIf Cells(Target.Row, Target.Column).Value > 10 Then Cells(Target.Row, 2).Value = "Музыка" End If End If End Sub Ответить

Номер ответа: 3 Автор ответа: Григорий Вопросов: 21 Ответов: 35	Профиль \| \| #3	Добавлено: 19.02.09 20:16
	Больше спасибо, mc-black Успехов во всем !!!!!!!!!!!!!! Ответить

Страница: 1 |