Форум программистов, компьютерный форум, киберфорум
MS Office Excel
Войти
Регистрация
Восстановить пароль
Другие темы раздела
MS Excel Копирование числа в ячейку с типом Дата https://www.cyberforum.ru/ ms-excel/ thread2673782.html
Всех приветствую! Вопрос следующий.. Есть книга, в ней таблица, в таблице есть колонка с датами, формат ячеек такой - Custom "dd-mm-yyyy" Туда по ошибке были скопированы числовые значения...
Доработка макроса по удалению строк содержащие минус слова MS Excel
Ребят, привет. Ниже приведенный макрос удаляет строки в "Лист1" в выбранном столбце, если присутствуют слова из "Лист2". Нужно исправить его таким образом, чтобы он не удалял строки, а...
Формула составления спроса на будущий год по итогам предыдущего MS Excel
Добрый день! Нужно составить прогноз спроса на товары на ближайший год по месяцам по результатам спроса за прошедший год (в таблице из 2 столбцов). Первый столбец месяц, второй - спрос. Нашел в...
MS Excel Задача на подсчет стандартных комбинаторных конфигураций А как с этим "зверем" совладать? Тема: Элементы комбинаторики. Дополнительные методы и приемы. Цель: изучение средств пакета MS Excel для реализации возможности вычислений по основным формулам... https://www.cyberforum.ru/ ms-excel/ thread2673441.html
MS Excel Задача на комбинаторику жизненных ситуаций https://www.cyberforum.ru/ ms-excel/ thread2673439.html
Как с этим "зверем" совладать? Тема: Элементы комбинаторики. Дополнительные методы и приемы. Цель: изучение средств пакета MS Excel для реализации возможности вычислений по основным формулам...
расширенный фильтр MS Excel
С помощью расширенного фильтра нужно сделать список сотрудников, у которых просрочена аттестация, т.е. дата следующей аттестации больше, чем сегодняшняя дата(ячейка A1). Как это сделать? У меня вся...
MS Excel Календарь с возможностью выделить (или отключить) некоторые даты
Здравствуйте Меня интересует возможность выделять некоторые даты в календаре (или отключать). То есть пользователь должен выбирать не из всех дат, а только из определённого перечня (таблица с...
MS Excel Как сделать вместо "#ЧИСЛО!" слово "нет" Как сделать чтобы вместо "#ЧИСЛО!" писалось слово "нет"? https://www.cyberforum.ru/ ms-excel/ thread2673299.html
MS Excel Почему макрос так медленно работает? Как ускорить? https://www.cyberforum.ru/ ms-excel/ thread2673214.html
6000 строк сделал примерно за 5 минут почему макрос так долго всё делает? как ускорить? Sub Copy2() Application.ScreenUpdating = False For j = 1 To Sheets("ÁÄ").Cells(Rows.Count,...
MS Excel Подсчитать суммы, начиная с определенных значений Дано: 1) 3 столбца с разными числовыми значениями. Значения заносятся ЕЖЕДНЕВНО. Количество значений разное. Так, в первый столбец может ежедневно заносится 1-2 значения, а в другие два по 6-7... https://www.cyberforum.ru/ ms-excel/ thread2672936.html
4105 / 2212 / 938
Регистрация: 01.12.2010
Сообщений: 4,625
25.06.2020, 12:51 0

что в макросе не так? как заставить работать?

25.06.2020, 12:51. Просмотров 840. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено GreenJoy как решение

Решение

Один из множества вариантов :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Test()
    Application.ScreenUpdating = False
    Dim c As Range
    For Each c In Worksheets("Лист1").Range("A1:B6")
        Select Case VarType(c.Value)
            Case 8
               c.Orientation = 0
               c.Font.Bold = True
            Case 5
               c.Orientation = 90
               c.Font.Bold = False
        End Select
    Next
    Application.ScreenUpdating = True
End Sub
P.S. Если в ячейке может быть только число или текст и ничего другого, то всё проще.

Вернуться к обсуждению:
что в макросе не так? как заставить работать?
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.06.2020, 12:51

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как заставить работать @media, или что такое (min-device-width)
сверстал небольшую адаптацию ... в надежде что она поможет адаптировать менюшку в мобилках и прочих...

Как заставить сайт написанный на 5.3 заставить работать на 5.6? Как принудительно включить register_globals?
Есть древний сайт. Работает на php 5.3. Как объяснил разработчик данного сайта - все дело в...

Как сделать так что бы при закрытии монитора, мой ноутбук не переставал работать?
У меня при закрытии крышки монитора ноутбук засыпает и все процессы останавливаются. Вот меня...

Как написать условия в макросе так, чтобы диаграмма не меняла своего типа
Друзья. Задача такая, у меня есть макрос: For i = 1 To 65000 If...

Как заставить работать do while
Печатает пока 100 строк не будут заполнены, нужно при вводе символа n закончить принятие данных и...

как заставить работать QT
Только установила QT. Пытаюсь скомпилировать консольную программу: #include <QTextStream> int...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.