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

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

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

Author24 — интернет-сервис помощи студентам
Можете отредактировать код так, чтобы в зависимости от содержания ячейки, например А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
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
05.03.2016, 23:23
Ответы с готовыми решениями:

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

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

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

1
 Аватар для Святой НякаЛайк
655 / 247 / 89
Регистрация: 28.10.2015
Сообщений: 526
06.03.2016, 01:28
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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.03.2016, 01:28
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Как использовать OAuth2 со Spring Security в Java
Javaican 14.05.2025
Протокол OAuth2 часто путают с механизмами аутентификации, хотя по сути это протокол авторизации. Представьте, что вместо передачи ключей от всего дома вашему другу, который пришёл полить цветы, вы. . .
Анализ текста на Python с NLTK и Spacy
AI_Generated 14.05.2025
NLTK, старожил в мире обработки естественного языка на Python, содержит богатейшую коллекцию алгоритмов и готовых моделей. Эта библиотека отлично подходит для образовательных целей и. . .
Реализация DI в PHP
Jason-Webb 13.05.2025
Когда я начинал писать свой первый крупный PHP-проект, моя архитектура напоминала запутаный клубок спагетти. Классы создавали другие классы внутри себя, зависимости жостко прописывались в коде, а о. . .
Обработка изображений в реальном времени на C# с OpenCV
stackOverflow 13.05.2025
Объединение библиотеки компьютерного зрения OpenCV с современным языком программирования C# создаёт симбиоз, который открывает доступ к впечатляющему набору возможностей. Ключевое преимущество этого. . .
POCO, ACE, Loki и другие продвинутые C++ библиотеки
NullReferenced 13.05.2025
В C++ разработки существует такое обилие библиотек, что порой кажется, будто ты заблудился в дремучем лесу. И среди этого многообразия POCO (Portable Components) – как маяк для тех, кто ищет. . .
Паттерны проектирования GoF на C#
UnmanagedCoder 13.05.2025
Вы наверняка сталкивались с ситуациями, когда код разрастается до неприличных размеров, а его поддержка становится настоящим испытанием. Именно в такие моменты на помощь приходят паттерны Gang of. . .
Создаем CLI приложение на Python с Prompt Toolkit
py-thonny 13.05.2025
Современные командные интерфейсы давно перестали быть черно-белыми текстовыми программами, которые многие помнят по старым операционным системам. CLI сегодня – это мощные, интуитивные и даже. . .
Конвейеры ETL с Apache Airflow и Python
AI_Generated 13.05.2025
ETL-конвейеры – это набор процессов, отвечающих за извлечение данных из различных источников (Extract), их преобразование в нужный формат (Transform) и загрузку в целевое хранилище (Load). . . .
Выполнение асинхронных задач в Python с asyncio
py-thonny 12.05.2025
Современный мир программирования похож на оживлённый мегаполис – тысячи процессов одновременно требуют внимания, ресурсов и времени. В этих джунглях операций возникают ситуации, когда программа. . .
Работа с gRPC сервисами на C#
UnmanagedCoder 12.05.2025
gRPC (Google Remote Procedure Call) — открытый высокопроизводительный RPC-фреймворк, изначально разработанный компанией Google. Он отличается от традиционых REST-сервисов как минимум тем, что. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru