Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel. Замена числа текстом в зависимости от этого чила в двух ячейках / 6 сообщений из 6, страница 1 из 1
09.08.2005, 19:11:01
    #33207788
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Замена числа текстом в зависимости от этого чила в двух ячейках
Подскажите как сделать, что бы не только в В1 писалось относительно А1, но и в В3 относительно А3, там то же самое Дено, ночь, сумерки

Private Sub Workbook_Open()
Dim rng As Range

Set rng = Range("A1")

Select Case rng.Value
Case 1
Range("B1").Value = "День"
Case 2
Range("B1").Value = "Ночь"
Case 3
Range("B1").Value = "Сумерки"
End Select
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2005, 20:55:51
    #33207863
Smiler™
Smiler™
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Замена числа текстом в зависимости от этого чила в двух ячейках
Попробуй подпроцедурку типа:

Private Sub Workbook_Open()
Dim rng As Range
' где i = {1,2,3,...} - номер строки , ячейка "Ai"
WriteToDynamic(i)
End Sub

sub WriteToDynamic(id as integer)
Set rng = Range("A" & id)

Select Case rng.Value
Case 1
Range("B" & id).Value = "День"
Case 2
Range("B" & id).Value = "Ночь"
Case 3
Range("B" & id).Value = "Сумерки"
End Select

end sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.08.2005, 10:47:08
    #33207931
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Замена числа текстом в зависимости от этого чила в двух ячейках
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub Workbook_Open()
    Dim cel As Range
    Dim rng As Range
    
    Set rng = Range("A:A")
    
    For Each cel In rng
        Select Case cel.Value
            Case  1 
                cel.Offset( 0 ,  1 ).Value = "День"
            Case  2 
                cel.Offset( 0 ,  1 ).Value = "Ночь"
            Case  3 
                cel.Offset( 0 ,  1 ).Value = "Сумерки"
        End Select
    Next cel
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.08.2005, 22:39:40
    #33209329
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Замена числа текстом в зависимости от этого чила в двух ячейках
Прошу прощения, забыл сразу уточнить, нужно что бы макрос работал со второго по пятый лист в книге, а нужные ячейки - G40 и G42, а вставлять в ячейки H40 и H42.
Заранее спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2005, 09:54:32
    #33209662
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Замена числа текстом в зависимости от этого чила в двух ячейках
DimenПрошу прощения, забыл сразу уточнить, нужно что бы макрос работал со второго по пятый лист в книге, а нужные ячейки - G40 и G42, а вставлять в ячейки H40 и H42.
Заранее спасибо
Ну ты даешь.

Я же вроде кому-то здесь отвечал по этому поводу.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub Workbook_Open()
    Dim intI As Integer
    Dim rng As Range
    Dim cel As Range
    
    For intI =  2  To  5 
        With Worksheets(intI)
            Set rng = Worksheets(intI).Range("G40, G42")
            For Each cel In rng
                Select Case cel.Value
                    Case  1 
                        cel.Offset( 0 ,  1 ).Value = "День"
                    Case  2 
                        cel.Offset( 0 ,  1 ).Value = "Ночь"
                    Case  3 
                        cel.Offset( 0 ,  1 ).Value = "Сумерки"
                End Select
            Next cel
        End With
    Next intI
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2005, 14:35:09
    #33210565
Dimen
Dimen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Замена числа текстом в зависимости от этого чила в двух ячейках
Большое спасибо, все работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel. Замена числа текстом в зависимости от этого чила в двух ячейках / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 381ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2167374]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 38ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 267ms
total:  381ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]