Excel. Замена числа текстом в зависимости от этого числа

@Suleyman · Регистрация: 02.10.2011

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

В ячейке может быть три варианта чисел 1,2,3. Относительно этого к соседней ячейке должно быть - день, ночь, сумерки. Т.е. в зависимости от показания первой, вторая должна заполняться автоматически. Нашел макрос, но почему то если меняю ячейки, например не А1 и В1, а G40 и H40, то вместо ячейки H40 данные вставляются в ячейку N79 ??????

Visual Basic

Private Sub Workbook_Open()
Dim intI As Integer
 
For intI = 1 To 5
With Worksheets(intI).Range("G40")
Select Case .Value
Case 1
.Range("H40").Value = "День"
Case 2
.Range("H40").Value = "Ночь"
Case 3
.Range("H40").Value = "Сумерки"
End Select
End With
Next
End Sub

Почему? может в настройках Excel что то не так?

@Димит · 16.10.2011, 22:05

А не проще это сделать формулой:
=ВЫБОР(RC[-1]; "День";"Ночь";"Сумерки")

@Suleyman · 17.10.2011, 00:17 **[ТС]**

Да, наверное функцией Выбор будет полегче, спасибо за подсказку, просто пробовал все варианты

@Димит · 18.10.2011, 01:34

В макросе у тебя:

Visual Basic

1	Worksheets(intI).Range("G40").Range("H40").Value = "День"

Вот и получаешь N79
А надо:

Visual Basic

With Worksheets(intI)
Select Case Range("G40").Value
Case 1
.Range("H40").Value = "День"
Case 2
.Range("H40").Value = "Ночь"
Case 3
.Range("H40").Value = "Сумерки"
End Select
End With

@Димит · 18.10.2011, 01:35

пропустил точку: Select Case .Range("G40").Value

@Suleyman · 18.10.2011, 13:14 **[ТС]**

Спасибо, все работает!

@Димит 90 / 37 / 14 Регистрация: 03.11.2010 Сообщений: 429
	16.10.2011, 22:05	2
	А не проще это сделать формулой: =ВЫБОР(RC[-1]; "День";"Ночь";"Сумерки") 0

@Suleyman 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 39
	17.10.2011, 00:17 [ТС]	3
	Да, наверное функцией Выбор будет полегче, спасибо за подсказку, просто пробовал все варианты 0

@Димит 90 / 37 / 14 Регистрация: 03.11.2010 Сообщений: 429
	18.10.2011, 01:35	5
	пропустил точку: Select Case .Range("G40").Value 0

@Suleyman 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 39
	18.10.2011, 13:14 [ТС]	6
	Спасибо, все работает! 0