0 / 0 / 0
Регистрация: 04.03.2016
Сообщений: 24
1

Макрос на запись в ячейке значения в зависимости от значения в другой

05.03.2016, 23:23. Показов 2106. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Можете отредактировать код так, чтобы в зависимости от содержания ячейки, например А1 в ячейке А2 записывался рендом (по аналогии В1 с В2, С1 и С2). Спасибо!
Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub CommandButton6_Click()
Dim w As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
For Each w In Worksheets
If IsNumeric(w.Name) And IsEmpty(w.Range("A1")) Then w.[A1] = Int(Rnd * 89 + 1)
Next
Application.DisplayAlerts = True
End Sub
Миниатюры
Макрос на запись в ячейке значения в зависимости от значения в другой  
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2016, 23:23
Ответы с готовыми решениями:

Подчеркивание всей строки в зависимости от значения в ячейке
Доброе утро. Имеется файлик в котором в определенном столбце есть значение 0 или 1. необходимо...

Вывод значения в ячейке в зависимости от введеного кода
Доброго времени суток! Возникла такого рода проблема: У меня в таблице есть столбец "Код объекта"...

Макрос для замены текстового значения в ячейке Excel
Добрый день. Необходимо написать макрос для замены в ячейки текстового значения "Заказ" на...

Выделение цветом строки в Excel в зависимости от значения в ячейке
Задача такая: На листе Ексель есть несколько строк со значениями. Если в 13 столбце какой-нибудь...

1
655 / 247 / 89
Регистрация: 28.10.2015
Сообщений: 524
06.03.2016, 01:28 2
Visual Basic
1
IsNumeric(w.Name)
- это не сработает! IsNumeric проверяет, является ли значение числом. В кач-ве значения принимается имя листа.
Это сработает только если лист называется [4] например, но не "Лист4".
И опять:
Visual Basic
1
2
3
4
5
6
7
8
Private Sub CommandButton6_Click()
    Dim w As Worksheet
    For Each w In Worksheets
        If IsNumeric(w.Name) And IsEmpty(w.Range("A1")) Then w.[A2] = Int(Rnd * 89 + 1)
        If IsNumeric(w.Name) And IsEmpty(w.Range("B1")) Then w.[B2] = Int(Rnd * 89 + 1)
        If IsNumeric(w.Name) And IsEmpty(w.Range("C1")) Then w.[C2] = Int(Rnd * 89 + 1)
    Next
End Sub
Вы прикалываетесь что-ли?
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2016, 01:28
Помогаю со студенческими работами здесь

Присвоение ячейке значения, в зависимости от того, в какой области будет находиться рисунок
Добрый день. В VBA стал разбираться недавно, пожалуйста помогите. При помощи данного кода: Sub...

Excel: как зафиксировать в определённой ячейке, какие-то меняющиеся значения из другой ячейки?
Имеются следующие условия: Файл Exсelа (2003) завязан с другой программой. Из этой программы идёт...

Макрос, распределяющий значения одной таблицы по столбцам другой
Доброе время суток, нужна ваша помощь, хотя бы что бы подсказали с чего начать). У меня стоит...

Задание значения ячейки в зависимости от значения других двух
Добрый день всем!! Спасите блондинку, сил нет делать это руками, а как автоматизировать сама не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru