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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 81 След.
вечером, после трудного дня, можно же послушать качественную музыку?
 
Цитата
Alemox написал:
дома усилок, самодельный, сам паял. А колонки достались импортные с советских времён Hi-Fi. Звук лучше чем на всех покупных усилителях, так как сам делал для себя. Раньше ещё стоял эквалайзер
Всем доброго дня.
Обычно, вечером после трудного дня [во время трудного дня], я слушаю музыку через китайкий клон усилителя Quad 405 (с незначительными переделками) собранный своими руками.
Фронтальные Колонки Estonia 25АС-311 (1985 года рождения), переделанные в пассивные.
Центральный канал, панель открытого типа (два СЧ от авто T_Prado и один от телевизора).
Два сабвуфера с разными частотными диапазонами.
Эквалайзер хронически выключен.
Записи на телефон, со всеми потерями в пути от телефона до youtub'а включительно:
https://www.youtube.com/watch?v=c3223Zo5eCA
https://www.youtube.com/watch?v=wRyCTYaQOyU
О погоде
 
Якутск, днём +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
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 81 След.
Наверх