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

Страницы: 1
Проставить сумму в первую пустую ячейку, расположенную под диапазоном значений
 
#
04.12.2019 16:01:18
МатросНаЗебре Спасибо , Все Супер !
Перед Модератором извиняюсь. Что задачу описал не верно.  
 
Перейти    
Проставить сумму в первую пустую ячейку, расположенную под диапазоном значений
 
#
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 14:56:20
msi2102 Спасибо. + 100 в карму.
Тема закрыта  
 
Перейти    
Удалить все строки оставить Жирный шрифт
 
#
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 (Закрыть тему. )
 
Перейти    
Как очистить последнюю строку умной таблицы
 
#
26.11.2019 17:33:30
разобрался
Изменено: Мелко - 27.11.2019 00:23:41
 
Перейти    
Как очистить последнюю строку умной таблицы
 
#
24.11.2019 05:01:45
[CODE][/CODE]
Изменено: Мелко - 24.11.2019 05:27:47
 
Перейти    
Макрос сохранения отдельных листов в общем файле формата PDF, Работа с VBA
 
#
22.11.2019 22:32:14
Код
Sub SafeAsPdf()
   Dim arrSelSheets(), i As Long
   Application.ScreenUpdating = False

   ReDim arrSelSheets(1 To ActiveWindow.SelectedSheets.Count)
   For i = 1 To UBound(arrSelSheets)
       arrSelSheets(i) = ActiveWindow.SelectedSheets(i).Name
   Next
  
   Worksheets(Array("Лист")).Select
        
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       ThisWorkbook.Path & "\" & Range("A1") & Format(Now, "YYYYMMDD") & " " & Format(Now, "hhmm") & ".pdf", Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        
   Worksheets(arrSelSheets).Select

   Application.ScreenUpdating = True
   MsgBox "Урррааа!", vbInformation
End Sub
Спасибо!
Изменено: Мелко - 22.11.2019 22:32:28
 
Перейти    
Макрос сохранения отдельных листов в общем файле формата PDF, Работа с VBA
 
#
22.11.2019 22:12:06
Код
Sub SafeAsPdf()
   Dim arrSelSheets(), i As Long
   Application.ScreenUpdating = False

   ReDim arrSelSheets(1 To ActiveWindow.SelectedSheets.Count)
   For i = 1 To UBound(arrSelSheets)
       arrSelSheets(i) = ActiveWindow.SelectedSheets(i).Name
   Next
  
   Worksheets(Array("КП")).Select
        
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       ThisWorkbook.Path & "\" & "КП " & Format(Now, "YYYYMMDD") & " " & Format(Now, "hhmm") & ".pdf", Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        
   Worksheets(arrSelSheets).Select

   Application.ScreenUpdating = True
   MsgBox "Урррааа!", vbInformation
End Sub
может кто дописать код. Чтобы имя файла сохранялась согласно указаной ячейки в книги.  
Изменено: Мелко - 22.11.2019 22:20:12
 
Перейти    
Макрос для вставки формулы суммирования произвольного диапазона
 
#
11.11.2019 23:19:27
Цитата
Sub Macro25()
Dim x, y
 y = ActiveCell.Column
 For x = ActiveCell.Row - 1 To 1 Step -1
   If IsEmpty(Cells(x, y)) Or Not IsNumeric(Cells(x, y)) Then Exit For
 Next
 If x < ActiveCell.Row - 1 Then
   ActiveCell.FormulaR1C1 = "=SUM(R" & x + 1 & "C:R[-1]C)"
 Else
   MsgBox "Нечего складывать", vbExclamation
 End If
End Sub
Как добавить жирный шрифт, к применяемому макросу. Может кто дописать.

Возможно его виды изменить ? нужно при выделение только цифр. В пустые ячейки вносились промежуточные итоги.
1
2
3
=Sum
32
42
55
=Sum
78
=Sum
 
Перейти    
функция если или как быть ?, На большие не способен, выручайте
 
#
03.07.2019 00:51:41
а с подсказкой ? :)  
 
Перейти    
функция если или как быть ?, На большие не способен, выручайте
 
#
03.07.2019 00:19:39
Закрыть  
Изменено: Мелко - 03.07.2019 09:59:44
 
Перейти    
Добавить пустою строку с значением
 
#
05.06.2019 13:52:34
Да!!! спасибо. Тему можно закрыть.  
 
Перейти    
Добавить пустою строку с значением
 
#
05.06.2019 13:33:30
Столбец A  
6931790
6931798
8842255
9906071
9906490
9906491
9906496
9906670

Макрос работает вот так
6931790

6931798

8842255

9906071

9906490

9906491

9906496

9906670

Нужно дописать
что бы было
6931790
1
6931798
1
8842255
1
9906071
1
9906490
1
9906491
1
9906496
1
9906670
 
Перейти    
Добавить пустою строку с значением
 
#
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
Наверх