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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 81 След.
О погоде
 
Якутск, днём +14. Музей мифических лошадей:
Спам.
 
Ахтунг!
О музыке.
 
21 августа.
День рождения:
Мэтт Скофилд (Matt Schofield)
https://www.youtube.com/watch?v=Antb7fQQr4s
О музыке.
 
19 августа.
День рождения:
Джон Лестер Нэш (John Lester Nash)
https://www.youtube.com/watch?v=hFiRp4MTnzU
О музыке.
 
12 августа.
День рождения:
Марк Фройдер Нопфлер (Mark Freuder Knopfler)
https://www.youtube.com/watch?v=8mnhRv6ES_c
Номер строки с максимальным значением из диапазона, VBA
 
Код
Sub www()
With Range("K24:K29")
MsgBox .Find(WorksheetFunction.Max(.Cells)).Row
End With
End Sub
О музыке.
 
17 июля.
День рождения:
Абрахам Лабориэль Лопез (Abraham Laboriel Lopez)
https://www.youtube.com/watch?v=8KU5keZlQ6k
Объединить команды внутри одной процедуры "Worksheet_Change"
 
"a" и "b" сидели на трубе....
Где "b" инициализировали?
Сместить ячейки с записями влево в крайнее положение, если есть пустые ячейки слева., Макросом
 
Сократим тетриса.
Код
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
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 81 След.
Наверх