Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Мелко
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Проставить сумму в первую пустую ячейку, расположенную под диапазоном значений
 
#
04.12.2019 15:23:45
Добрый день.  Помогите с макросом. При выделение массива столбцов на листе, в пустые ячейки считать subtotal с форматом Жирный текст.


1                    2
2                    4
3                    3
subtotal        subtotal
4                    3
5                    2
6                    1
subtotal        subtotal
1                    32
2                    11
subtotal        subtotal


 
Изменено: Мелко - 04.12.2019 16:29:18
 
Перейти    
Удалить все строки оставить Жирный шрифт
 
#
04.12.2019 12:51:18
Добрый день. помогите переписать макрос в обратную сторону . Нужно что бы удалил все строки и оставил формат Жирный

Код
Sub DeleteBold ()
  Dim a, rng As Range, x As Range
  For Each x In ActiveSheet.UsedRange.Rows
    a = x.Font.Bold
    If IsNull(a) Or a = True Then
      If rng Is Nothing Then Set rng = x.EntireRow Else Set rng = Union(rng, x.EntireRow)
    End If
  Next
  If Not rng Is Nothing Then rng.Delete
End Sub
 
Перейти    
Автовыравнивание строк в защищеном листе
 
#
28.11.2019 00:12:41
Можно закрыть тему.  
Изменено: Мелко - 28.11.2019 14:03:44 (Закрыть тему. )
 
Перейти    
функция если или как быть ?, На большие не способен, выручайте
 
#
03.07.2019 00:19:39
Закрыть  
Изменено: Мелко - 03.07.2019 09:59:44
 
Перейти    
Добавить пустою строку с значением
 
#
05.06.2019 13:23:05
добрый день. Помогите дописать макрос под задачу
Макрос который добавляет пустую строчку под каждый ячейкой

 Sub Vadim()  
Dim i As Long  
Application.ScreenUpdating = False  
For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1  
Rows(i).Insert  
Next  
Application.ScreenUpdating = True  
End Sub

Хотел бы,  что бы в добавленную строчку пустою которою он создает , вписывалось значение например 1
 
Перейти    
Страницы: 1
Наверх