Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Работа с массивом, кроме определенных ячеек. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с массивом, кроме определенных ячеек. (Макросы/Sub)
Работа с массивом, кроме определенных ячеек.
den45444 Дата: Пятница, 25.09.2015, 20:30 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Есть таблица A1:J200
Берем столбец А и убираем жирность (Font.Bold = False), но есть но...
Есть ячейки, которым нужно оставить жирность.

Вот эти слова:

"Этап №1, этап №2, этап №3 и т.п.)
"Итого (этап №1), Итого (этап №2) и т.п.)
"Итого на работу"
"Итого на материал"

Прошу помощи.
Если нужен пример, то могу создать.
 
Ответить
СообщениеЕсть таблица A1:J200
Берем столбец А и убираем жирность (Font.Bold = False), но есть но...
Есть ячейки, которым нужно оставить жирность.

Вот эти слова:

"Этап №1, этап №2, этап №3 и т.п.)
"Итого (этап №1), Итого (этап №2) и т.п.)
"Итого на работу"
"Итого на материал"

Прошу помощи.
Если нужен пример, то могу создать.
Автор - den45444
Дата добавления - 25.09.2015 в 20:30
RAN Дата: Пятница, 25.09.2015, 20:49 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Ководство :D
1. Изучаем операторы If..Theh и Select Case
2. Определяем критерии жирности
3. Складываем и применяем

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеКоводство :D
1. Изучаем операторы If..Theh и Select Case
2. Определяем критерии жирности
3. Складываем и применяем
Автор - RAN
Дата добавления - 25.09.2015 в 20:49
Karataev Дата: Суббота, 26.09.2015, 11:10 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1342
Репутация: 535 ±
Замечаний: 0% ±

Excel
den45444, создайте пример. Если задача несложная и будет свободное время, то посмотрю задание.
 
Ответить
Сообщениеden45444, создайте пример. Если задача несложная и будет свободное время, то посмотрю задание.
Автор - Karataev
Дата добавления - 26.09.2015 в 11:10
den45444 Дата: Понедельник, 28.09.2015, 19:55 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Karataev, Вот вам пример.
Общий смысл - это привести смету в порядок для распечатки. Соот-но, удаляем лишние пустые строки (только в диапазоне таблицы), убираем жирность ячеек, кроме нужных ячеек и убираем цвета.
У меня макрос выглядит вот так, может можно как-то короче все устроить:[vba]
Код
Sub Подготовка_сметы()

Set wb1 = ActiveWorkbook

lSt = wb1.Sheets(smetaName).Cells.Find(What:="Итого на материал:").Row

With Worksheets(1)
If Range("A4") = "" Then
Range("A1:A" & lSt + 3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
If Range("A" & lSt - 2) = "" Then
Range("A1:A" & lSt + 3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
If Range("A" & lSt + 1) = "" Then
Range("A1:A" & lSt + 3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If

Range("A1:A" & lSt).Font.Color = vbBlack 'Меняем цвет ячеек на черный цвет
Range("A4:A200").Font.Bold = False ' убираем жирность ячеек
End With

Dim rng As Range
Dim n
With Worksheets(1)
Set rng = .Range("A4:A200")

For Each n In rng
Select Case n
Case "Этап №1"
n.Font.Bold = True 'Добавляем к определенным ячейкам жирность шрифта
Case "Этап №2"
n.Font.Bold = True
Case "Этап №3"
n.Font.Bold = True
Case "Этап №4"
n.Font.Bold = True
Case "Этап №5"
n.Font.Bold = True
Case "Этап №6"
n.Font.Bold = True
Case "Этап №7"
n.Font.Bold = True
Case "Этап №8"
n.Font.Bold = True
Case "Этап №8"
n.Font.Bold = True
Case "Этап №9"
n.Font.Bold = True
Case "Этап №10"
n.Font.Bold = True

Case "Итого (этап №1):"
n.Font.Bold = True
Case "Итого (этап №2):"
n.Font.Bold = True
Case "Итого (этап №3):"
n.Font.Bold = True
Case "Итого (этап №4):"
n.Font.Bold = True
Case "Итого (этап №5):"
n.Font.Bold = True
Case "Итого (этап №6):"
n.Font.Bold = True
Case "Итого (этап №7):"
n.Font.Bold = True
Case "Итого (этап №8):"
n.Font.Bold = True
Case "Итого (этап №9):"
n.Font.Bold = True
Case "Итого (этап №10):"
n.Font.Bold = True

Case "Итого на работу:"
n.Font.Bold = True
Case "Итого на материал:"
n.Font.Bold = True
End Select
Next n
End With

End Sub
[/vba]
К сообщению приложен файл: ____.xlsm (24.5 Kb)


Сообщение отредактировал den45444 - Понедельник, 28.09.2015, 19:56
 
Ответить
СообщениеKarataev, Вот вам пример.
Общий смысл - это привести смету в порядок для распечатки. Соот-но, удаляем лишние пустые строки (только в диапазоне таблицы), убираем жирность ячеек, кроме нужных ячеек и убираем цвета.
У меня макрос выглядит вот так, может можно как-то короче все устроить:[vba]
Код
Sub Подготовка_сметы()

Set wb1 = ActiveWorkbook

lSt = wb1.Sheets(smetaName).Cells.Find(What:="Итого на материал:").Row

With Worksheets(1)
If Range("A4") = "" Then
Range("A1:A" & lSt + 3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
If Range("A" & lSt - 2) = "" Then
Range("A1:A" & lSt + 3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
If Range("A" & lSt + 1) = "" Then
Range("A1:A" & lSt + 3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If

Range("A1:A" & lSt).Font.Color = vbBlack 'Меняем цвет ячеек на черный цвет
Range("A4:A200").Font.Bold = False ' убираем жирность ячеек
End With

Dim rng As Range
Dim n
With Worksheets(1)
Set rng = .Range("A4:A200")

For Each n In rng
Select Case n
Case "Этап №1"
n.Font.Bold = True 'Добавляем к определенным ячейкам жирность шрифта
Case "Этап №2"
n.Font.Bold = True
Case "Этап №3"
n.Font.Bold = True
Case "Этап №4"
n.Font.Bold = True
Case "Этап №5"
n.Font.Bold = True
Case "Этап №6"
n.Font.Bold = True
Case "Этап №7"
n.Font.Bold = True
Case "Этап №8"
n.Font.Bold = True
Case "Этап №8"
n.Font.Bold = True
Case "Этап №9"
n.Font.Bold = True
Case "Этап №10"
n.Font.Bold = True

Case "Итого (этап №1):"
n.Font.Bold = True
Case "Итого (этап №2):"
n.Font.Bold = True
Case "Итого (этап №3):"
n.Font.Bold = True
Case "Итого (этап №4):"
n.Font.Bold = True
Case "Итого (этап №5):"
n.Font.Bold = True
Case "Итого (этап №6):"
n.Font.Bold = True
Case "Итого (этап №7):"
n.Font.Bold = True
Case "Итого (этап №8):"
n.Font.Bold = True
Case "Итого (этап №9):"
n.Font.Bold = True
Case "Итого (этап №10):"
n.Font.Bold = True

Case "Итого на работу:"
n.Font.Bold = True
Case "Итого на материал:"
n.Font.Bold = True
End Select
Next n
End With

End Sub
[/vba]
Автор - den45444
Дата добавления - 28.09.2015 в 19:55
RAN Дата: Понедельник, 28.09.2015, 22:36 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата RAN, 25.09.2015 в 20:49, в сообщении № 2
2. Определяем критерии жирности

не означает тупое переписывание всех существующих значений
[vba]
Код
For Each n In rng
Select Case True
Case Lcase(n) like "*этап*",  Lcase(n) like "*итого*"
n.Font.Bold = True
end select
next
[/vba]
писано на коленке, без проверки

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата RAN, 25.09.2015 в 20:49, в сообщении № 2
2. Определяем критерии жирности

не означает тупое переписывание всех существующих значений
[vba]
Код
For Each n In rng
Select Case True
Case Lcase(n) like "*этап*",  Lcase(n) like "*итого*"
n.Font.Bold = True
end select
next
[/vba]
писано на коленке, без проверки
Автор - RAN
Дата добавления - 28.09.2015 в 22:36
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с массивом, кроме определенных ячеек. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!