Форум программистов, компьютерный форум, киберфорум
MS Office Excel
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 13.09.2019
Сообщений: 44
1

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

25.06.2020, 12:05. Просмотров 818. Ответов 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
4056 / 2178 / 922
Регистрация: 01.12.2010
Сообщений: 4,538
25.06.2020, 12:51 2
Лучший ответ Сообщение было отмечено 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...


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

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

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