Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 81 След.
Сместить ячейки с записями влево в крайнее положение, если есть пустые ячейки слева., Макросом
 
Сократим тетриса.
Код
Sub Миша_с_возвращением_вскл_зн()
UsedRange.SpecialCells(4).Delete Shift:=xlToLeft
End Sub
О музыке.
 
13 июля.
День рождения:
Абдельгафур Мусин (Abdelghafour Mouhsine) [Vigon Bamy Jay]
https://www.youtube.com/watch?v=20TcnsWrLvI
Удалить значение с ячеек если напротив в таблице пустая ячейка., Сложность в том что сделать желательно макросом, т.к. таблица данных очень большая с сотнями колонок которые нужно редактировать.
 
Скопируйте данные в другую книгу.
Оба макроса рабочие.
О погоде
 
Ни одна кукуруза не пострадала. :)
Оригинал круче. Разрешение значительно ухудшил (<100 КБ). :(
Удалить значение с ячеек если напротив в таблице пустая ячейка., Сложность в том что сделать желательно макросом, т.к. таблица данных очень большая с сотнями колонок которые нужно редактировать.
 
Код
Sub www()
UsedRange.SpecialCells(4).Offset(, -1).ClearContents '.Select
End Sub
О погоде
 
Санкт-Петербург, за 10 мин до дождя.
О музыке.
 
07 июля.
День рождения:
Эрья Люютинен (Erja Lyytinen)
https://www.youtube.com/watch?v=w_LiQ9Z9CjA
Обращение к Workbooks.worksheets.range из другой книги
 
Для того чтобы в неактивной книге поменять шрифт, селект не нужен.
Обращение к Workbooks.worksheets.range из другой книги
 
Код
Sub Макрон_1_1()
With Workbooks("Пример.xlsm").Worksheets("Лист1")
.Range("A2:I2", .Cells.End(xlDown)).Clear
End With
End Sub

или одной строкой:
Код
Sub Макрон_1_3()
Workbooks("Пример.xlsm").Worksheets("Лист1").Range("A2:I2", Workbooks("Пример.xlsm").Worksheets("Лист1").Cells.End(xlDown)).Clear
End Sub
Изменено: k61 - 6 Июл 2020 19:01:46
О музыке.
 
05 июля.
День рождения:
Джон Галдберг (John Guldberg) [Laid Back]
http://www.youtube.com/watch?v=iB6KMOz4IUo
Быстрое выделение колонок с одинаковым названием
 
Цитата
Jack Famous написал:
приветствую, Карен!
Привет всем!
Цитата
БМВ написал:
Не люблю я портит то что пользователь сделал руками
Не понял мысль.
Быстрое выделение колонок с одинаковым названием
 
Цитата
БМВ написал:
Встать на любой столбец из тех что нужно удалить иииии
Код
Sub www()
With Rows(2)
.RowDifferences(.Find(ActiveCell.Value)).EntireColumn.Hidden = True
.SpecialCells(12).EntireColumn.Select 'delete
End With
Columns.Hidden = False
End Sub
О музыке.
 
30 июня.
День рождения:
Стэнли Кларк (Stanley Clarke)
https://www.youtube.com/watch?v=-M1yduU7HKk
О музыке.
 
26 июня.
День рождения:
Эдриан Куртис Гурвиц (Adrian Curtis Gurvitz) [Baker Gurvitz Army]
https://www.youtube.com/watch?v=VCVtkWEjEnw
Найти ближайшую заполненную ячейку в столбце
 
Код
Sub www()
'On Error Resume Next
Set r1 = Range(Cells(3, 1), Cells(UsedRange.Rows.Count, 1)).SpecialCells(4)
For i = 1 To r1.Areas.Count
  For j = 1 To UsedRange.Columns.Count - 1
  r1.Areas(i).Cells(1).Offset(-1, j) = r1.Offset(, j).SpecialCells(2).Areas(i).Cells(1)
  If j = 1 Then r1.Areas(i).Cells(1).Offset(-1, j).NumberFormat = "h:mm;@"
  Next j
Next i
r1.EntireRow.Delete
End Sub
О музыке.
 
24 июня.
День рождения:
Юрий Дмитриевич Каспарян [Кино]
https://www.youtube.com/watch?v=D_aA-udJH5o
О музыке.
 
23 июня.
День рождения:
Джейсон Томас Мраз (Jason Thomas Mraz)
https://www.youtube.com/watch?v=EkHTsc9PU2A
О музыке.
 
18 июня.
День рождения:
Ребекка Рене Олстед (Rebecca Renée Olstead)
https://www.youtube.com/watch?v=3uhuh2cRJAo
Преобразование сложения значений столбца в строку
 
выбор более чем одна ячейка в столбе:
Код
MsgBox Join(Application.Transpose(Selection), ", ")
Добавить "Текст по столбцам" в макрос.
 
... или так:
Код
Sub ToColumns_1()
Dim Arr
Arr = Split(Range("A1"), ";")
Range("A3").Resize(1, UBound(Arr) + 1).Value = Arr
End Sub
О музыке.
 
06 июня.
День рождения:
Маи́за Фигейра Монжардим (Maysa Figueira Monjardim)
https://www.youtube.com/watch?v=wqZ9ajWrhsU
VBA. Использование символа "умножить" (крестик по диагонали) в string
 
Код
Sub www()
MsgBox "Умножить сильно - " & Chr(213) & Chr(10) _
      & "Умножить слабо - " & Chr(245) & Chr(10) _
      & "Умножить по настоящму - " & Chr(149)
End Sub
О музыке.
 
10 мая.
День рождения:
Грэм Кит Гоулдман (Graham Keith Gouldman) [10cc]
https://www.youtube.com/watch?v=STugQ0X1NoI
О музыке.
 
07 мая.
День рождения:
Вильям Питер Уингфилд (William Peter Wingfield) [Jellybread]
https://www.youtube.com/watch?v=fs3phP7E4oc
Отображение информации в зависимости от указанного количества листов, ошибка вывода результата вычислений
 
Код
Sub Оглавление()
r = Cells(Rows.Count, 2).End(xlUp).Row
Range(Cells(21, 5), Cells(r, 5)).ClearContents
For i = r To 21 Step -1
  If Cells(i, 4) = 1 Then
  Cells(i, 5) = WorksheetFunction.Sum(Range(Cells(21, 4), Cells(i, 4)))
  Else
  Cells(i, 5) = "'" & WorksheetFunction.Sum(Range(Cells(21, 4), Cells(i, 4))) - Cells(i, 4) + 1 _
                & " - " & WorksheetFunction.Sum(Range(Cells(21, 4), Cells(i, 4)))
  End If
Next
End Sub
Изменено: k61 - 4 Май 2020 22:03:04
Отображение информации в зависимости от указанного количества листов, ошибка вывода результата вычислений
 
так попробуйте:
Код
Cells(str + np + 1, 5) = WorksheetFunction.Sum(Range(Cells(str, 4), Cells(str + np, 4))) + 3 _
             - WorksheetFunction.Sum(Range(Cells(str, 4), Cells(str + 1 + np, 4))) + 2
Выделить ячейки цветом в зависимости от заданного числа/подъездов (одна единица - одна ячейка)
 
Код
Sub avden1961_Тему_Переименуйте()
r = Cells(Rows.Count, 2).End(xlUp).Row
For i = 6 To r
Cells(i, 3).Resize(, Cells(i, 2)).Interior.ColorIndex = (i Mod 2) * 37 + 6
Next
End Sub
О музыке.
 
20 апреля.
День рождения:
Эрнесто Антонио Пуэнте-мл (Ernesto Antonio Puente, Jr.)
https://www.youtube.com/watch?v=zZQh4IL7unM
Удалить строки, в которых есть слова из списка
 
Код
Sub Тыц()
With CreateObject("WScript.Shell")
 .Run "https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=45586&TITLE_SEO=45586-pravila-foruma"
End With
End Sub
Залить несколько строк таблицы на основании выделенных ячеек
 
зачем на тип данных Boolean ("False") стринги мерить?
Код
Sub paint_red_3()
For Each x In Selection
Range("A:F").Rows(x.Row).Interior.ColorIndex = (Abs(Not (x.EntireRow.Hidden)) * 6)
Next x
'Rows.Hidden = 0
End Sub
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 81 След.
Наверх