Форум программистов, компьютерный форум, киберфорум
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
0 / 0 / 0
Регистрация: 13.09.2019
Сообщений: 47
0

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

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

Хотел сделать макрос который бы менял ориентацию и жирность текста в зависимости от того буква в ячейке или число

Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub вертихвостка()
 For Each c In Worksheets("Лист1").Range("A1:B6").Cells
 If c.IsText Then
 c.Orientation = 0
 c.Font.Bold = True
 End If
 If IsNumeric(c) Then
 c.Orientation = 90
 c.Font.Bold = False
 End If
 Next
End Sub


Вернуться к обсуждению:
что в макросе не так? как заставить работать?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.06.2020, 12:05
Готовые ответы и решения:

Как javascript-ий unescape заставить работать так же как и perl ?
есть страничка со следующим фрагментом: <SCRIPT LANGUAGE='JavaScript'> var content =...

Оцените, будьте так любезны! Как заставить игры работать чуточку быстрее на таком компьютере?
---------------------------------- 01 - Операционная система ---------------------------------- ...

Что не так в макросе?
На листе "Список по группам" при нажатии кнопки "Сформировать группы" участники с листа "Список"...

Подскажите что в макросе не так?
С нелегким вопросом обращаюсь за помощью, не пойму где засела ошибка : If InStr(b(m, 3),...

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