Excel. Замена числа текстом в зависимости от этого чила в двух ячейках / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel. Замена числа текстом в зависимости от этого чила в двух ячейках

6 сообщений из 6, страница 1 из 1

Excel. Замена числа текстом в зависимости от этого чила в двух ячейках

#33207788

Dimen

Гость

Подскажите как сделать, что бы не только в В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, 19:11:01

| Ответить | Цитировать | Написать

Excel. Замена числа текстом в зависимости от этого чила в двух ячейках

#33207863

Smiler™

Участник

Откуда: Украина, Полтава

Сообщения: 131

Рейтинг: 0 / 0

Попробуй подпроцедурку типа:

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

09.08.2005, 20:55:51

| Ответить | Цитировать | Написать

Excel. Замена числа текстом в зависимости от этого чила в двух ячейках

#33207931

Пользователь2

Гость

Код: 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, 10:47:08

| Ответить | Цитировать | Написать

Excel. Замена числа текстом в зависимости от этого чила в двух ячейках

#33209329

Dimen

Гость

Прошу прощения, забыл сразу уточнить, нужно что бы макрос работал со второго по пятый лист в книге, а нужные ячейки - G40 и G42, а вставлять в ячейки H40 и H42.
Заранее спасибо

...

Рейтинг:

0 / 0

10.08.2005, 22:39:40

| Ответить | Цитировать | Написать

Excel. Замена числа текстом в зависимости от этого чила в двух ячейках

#33209662

Пользователь2

Гость

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, 09:54:32

| Ответить | Цитировать | Написать

Excel. Замена числа текстом в зависимости от этого чила в двух ячейках

#33210565

Dimen

Гость

Большое спасибо, все работает

...

Рейтинг:

0 / 0

11.08.2005, 14:35:09

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=33209329&tid=2167374]:	0ms
get settings:	7ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	60ms
get topic data:	10ms
get forum data:	3ms
get page messages:	45ms
get tp. blocked users:	2ms
others:	243ms

total:	390ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы