Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Dasha_aprile
0 / 0 / 0
Регистрация: 04.06.2015
Сообщений: 4
#1

Определить, что в тексте есть буквы шрифта не “Times New Roman”

04.06.2015, 15:28. Просмотров 993. Ответов 1
Метки нет (Все метки)

Ребят, кто-нибудь, пожалуйста, помогите с макросом для Excel ! Вообще не понимаю, как это сделать, а скоро нужно сдавать Вот инструкция к заданию:

1. Написать два макроса (допустим, MColorFChess и MTextClear), При этом:
a. MColorFChess должен окрашивать фон выделенной области в “шахматном” порядке в цвет ColorF.
b. MTextClear должен удалять текст всех ячеек выделенной области, если он удовлетворяет Условию (зависящему от варианта).
2. На одном из листов документа разместить две кнопки с соответствующими надписями. Первый макрос MColorFChess должен вызываться щелчком мыши по первой кнопке. Второй макрос должен вызываться щелчком мыши по второй кнопке.
Фон должен быть Светло-голубой, а УСЛОВИЕ: " В тексте есть буквы шрифта не “Times New Roman”

Буду очень благодарна, если поможете!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.06.2015, 15:28
Ответы с готовыми решениями:

Нет установленного шрифта Times New Roman в списке шрифтов Libre Office
Устанавливал пакет виндовых шрифтов в систему - шрифты не появились, хотя...

Неправильно отображается шрифт Times New Roman.
После переустановки MS Office 2007 вместа шрифта Times New Roman отображается...

Определить есть ли в тексте латинские буквы
дана последовательность символов и количество символов в этой...

Определить, есть ли в тексте слова, начинающиеся и заканчивающиеся с буквы "А"
Дан текст, состоящий не менее чем из пяти слов. Определить, есть ли в нем...

Определить, есть ли в тексте слова, начинающиеся и заканчивающиеся с буквы "А", и их количество
Дан текст, состоящий не менее чем из пяти слов. Определить, есть ли в нем...

1
Hugo121
6276 / 2379 / 401
Регистрация: 19.10.2012
Сообщений: 7,029
04.06.2015, 16:00 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Заинтересовало
Цитата Сообщение от Dasha_aprile Посмотреть сообщение
В тексте есть буквы шрифта не “Times New Roman”
Думаю можно делать примерно так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub tt()
 
    Dim r As Range
    Set r = Selection
    If Len(r.Value) Then
        If Not IsNumeric(r.Value) Then
            Select Case True
            Case IsNull(r.Font.Name): MsgBox "Bingo!"
            Case r.Font.Name <> "Times New Roman": MsgBox "Bingo!"
            End Select
        End If
    End If
 
End Sub
Добавлено через 2 минуты
Есть правда одно упущение - с пробелами недоработал... Или пробел - это тоже буква?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2015, 16:00

Определить, есть ли в строке(string) хотя бы одно число и определить есть ли в тексте хотя бы два числа.
Помогите пожалуйста с заданиями. Определить, есть ли в строке(string) хотя бы...

Определить, верно ли, что среди введенных символов есть все буквы, входящие в слово "школа"
С клавиатуры вводятся символы, пока не нажата клавиша Enter. Определить, верно...

Начать буквы малого шрифта от верха предыдущей большого шрифта
Есть текст большого шрифта, после которого идёт текст маленького шрифта, но...


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

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

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