PDA

Просмотр полной версии : Помогите переделать VBA макрос.



s707
31.10.2004, 20:01
Текст макроса:
-------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'***********************************************
' help urllink-doggie-yandex.ru
'***********************************************

On Error GoTo Err

iClm = Target.Column: iRow = Target.Row

iDate = Target.Value

If iClm = 1 And iRow >19 And iRow < 301 Then

Select Case iDate
Case "1"
iDate = "Рога и копыта"
Case "2"
iDate = "Кидалов и сыновья"
Case "3"
iDate = "ООО Торговый Дом Шелупонь"
Case "4"
Rem : И так далее ...
End Select

Application.EnableEvents = False

Application.Undo

Target.Value = iDate

Application.EnableEvents = True

End If

Err: End Sub
---------------------------------------------------------

ВОПРОС:

Можно сделать так чтобы в колонке A при вводе цифры 1 подставлялась одна информация,
в колонке B при вводе цифры 1 другая и т.д.

Чтобы получилось типа:
------------------------------------------------------
If iClm = 1 And iRow > 19 And iRow < 301 Then

Select Case iDate
Case "1"
iDate = Параметры.Cells(1,2)
Case "2"
iDate = "ООО Торговый Дом Шелупонь"
Case "3"
iDate = "ООО Торговый Дом Шелупонь"
Case "4"
Rem : И так далее ...
End Select

If iClm = 2 And iRow > 19 And iRow < 301 Then

Select Case iDate
Case "1"
iDate = Параметры.Cells(1,2)
Case "2"
iDate = "ООО Торговый Дом Шелупонь"
Case "3"
iDate = "ООО Торговый Дом Шелупонь"
Case "4"
Rem : И так далее ...
End Select
-----------------------------------------------------

Naeel Maqsudov
02.11.2004, 01:34
ВОПРОС:

Можно сделать так чтобы в колонке A при вводе цифры 1 подставлялась одна информация,
в колонке B при вводе цифры 1 другая и т.д.



Так сделать можно. Только зачем писать макросы там, где можно обойтись только формулами?!

PS.
Для оформления исходного кода используйте тег [ code ]

s707
02.11.2004, 10:03
Спасибо, уже все сделал, люди хорошие помогли.