|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.12.2019, 08:27 | #1 |
Пользователь
Регистрация: 06.12.2010
Сообщений: 15
|
Помощь в коде
Есть код он меняет чёрные буквы и первые цифры на красные, помогите мне нужно сделать на оборот!!! Файл в Екселе прилагаю пример.
Public Sub CharToRed(curSheetName As String, curCol As String, startRow As Integer) Dim i As Integer Dim j As Integer Dim colIter As Integer Dim str As String Dim findSpace As Boolean colIter = startRow Do While Worksheets(curSheetName).Range(curC ol & colIter).Value <> "" Worksheets(curSheetName).Range(curC ol & colIter).Value = Worksheets(curSheetName).Range(curC ol & colIter).Value str = Worksheets(curSheetName).Range(curC ol & colIter).Value findSpace = True For i = 1 To Len(str) If findSpace Then findSpace = False For j = 1 To 4 Worksheets(curSheetName).Range(curC ol & colIter).Characters(i, 1).Font.Color = RGB(234, 112, 13) i = i + 1 If Mid(str, i, 1) = " " Then Exit For End If Next j End If If Mid(str, i, 1) = " " Then findSpace = True End If Next i colIter = colIter + 1 Loop Range("F9:F14").Select Selection.Font.Bold = True End Sub Public Sub CharToRed1(curSheetName As String, curCol As String, startRow As Integer) Dim i As Integer Dim j As Integer Dim colIter As Integer Dim str As String Dim findSpace As Boolean colIter = startRow Do While Worksheets(curSheetName).Range(curC ol & colIter).Value <> "" Worksheets(curSheetName).Range(curC ol & colIter).Value = Worksheets(curSheetName).Range(curC ol & colIter).Value str = Worksheets(curSheetName).Range(curC ol & colIter).Value findSpace = True For i = 1 To Len(str) If findSpace Then findSpace = False For j = 1 To 4 Worksheets(curSheetName).Range(curC ol & colIter).Characters(i, 1).Font.Color = RGB(234, 112, 13) i = i + 1 If Mid(str, i, 1) = " " Then Exit For End If Next j End If If Mid(str, i, 1) = " " Then findSpace = True End If Next i colIter = colIter + 1 Loop Range("F9:F14").Select Selection.Font.Bold = True End Sub |
02.12.2019, 09:41 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
отметьте нужный диапазон
выполните 1 раз этот макрос Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
03.12.2019, 01:39 | #3 |
Пользователь
Регистрация: 06.12.2010
Сообщений: 15
|
Спасибо Большое!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь в коде sql | Николай_S | SQL, базы данных | 0 | 09.10.2019 22:18 |
Нужна помощь в коде Javascript | Oleg634 | JavaScript, Ajax | 1 | 22.02.2019 10:13 |
Помощь в коде С++, mid player | Dima-91 | Помощь студентам | 0 | 17.11.2015 21:11 |
Помощь в коде С++, часы | Dima-91 | Помощь студентам | 2 | 03.09.2015 18:58 |
Помощь в коде ассемблера+pascal | X-Vlad | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 02.12.2014 22:36 |