Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
Dasha_aprile
0 / 0 / 0
Регистрация: 04.06.2015
Сообщений: 4
#1

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

04.06.2015, 15:28. Просмотров 394. Ответов 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” (VBA):

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

Определить есть ли в тексте латинские буквы - C (СИ)
дана последовательность символов и количество символов в этой последовательности, определить есть ли в тексте латинские буквы #include...

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

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

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

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

1
Hugo121
5920 / 2083 / 335
Регистрация: 19.10.2012
Сообщений: 6,227
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
Привет! Вот еще темы с ответами:

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

Есть текст надо вывести буквы которых в тексте нет - Turbo Pascal
Есть текст надо вывести буквы которых в тексте нет. Никак не получается всю эту кучу букв сделать как в массиве, чтобы было примерно...

Определить самое длинное слово в тексте. Считать, что слова в тексте отделены друг от друга одним пробелом - C++
Определить самое длинное слово в тексте. Считать, что слова в тексте отделены друг от друга одним пробелом.

Ошибка Syntax error (missing operator) in query expression 'nodes= ''/times/nodes002wke0.asp'''. /times/nodes002wke0.asp, line 29 - C# ASP.NET
Я пoлучaю следуюшую oшибку Microsoft OLE DB Provider for ODBC Drivers error '80040e14' Syntax error (missing operator) in query...


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

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

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