Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 82 След.
Вытащить значения из текста
 
Функция:
Код
Function motoart_1(t)
motoart_1 = Split(Split(t, "N")(1), " ")(0) * -1
End Function
Удалить строки, в которых содержится значение, Удалить строки, в которых встречается значение {DEL}
 
Код
Sub Всем_Привет()
With Cells
.Replace "{DEL}", "=del/0", 1, 1
.SpecialCells(-4123, 16).EntireRow.Select 'Delete
End With
Beep
End Sub
Выделить ячейку в одном столбце на основании выделенного цвета в другом, Выделить ячейку в одном столбце на основании выделенного цвета в другом
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 1).Select
End Sub
О музыке.
 
11 июля.
День рождения:
Сюзан Надин Вега (Suzanne Nadine Vega)
https://www.youtube.com/watch?v=Ez47TXdeYPI
Песня использовалась для улучшения формата кодирования mp3 (wiki).
О музыке.
 
08 июля.
День рождения:
Джонни Клайд Джонсон (Johnnie Clyde Johnson)
https://www.youtube.com/watch?v=zHCuaVGfRV0
Поднять значения в столбцах вверх для вертикального заполнения пустых ячеек
 
Цитата
Olga H. написал:
1)выделила диапазон A1:B7,
Это действие не имеет смысла.
Разблокировка ячеек при выполнении определённых условий.
 
Нет там выпадающего списка, в нашем понимании.
В код единственного листа:
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = 0
If Not Intersect(Target, Columns(2)) Is Nothing Then
 If Target.Row > UsedRange.Rows.Count Then Target.Offset(, -1).Select
End If
Application.EnableEvents = 1
End Sub
Поднять значения в столбцах вверх для вертикального заполнения пустых ячеек
 
Да.
Поднять значения в столбцах вверх для вертикального заполнения пустых ячеек
 
Код
Sub ttt() 'в код листа
With Intersect(Columns("A:B"), UsedRange)
.SpecialCells(4).Delete -4162
End With
End Sub
О музыке.
 
21 июня.
День рождения:
Нора Джин Брузо (Nora Jean Bruso)
https://www.youtube.com/watch?v=XUuSRhx-v3k
Гиперссылки из выпадающего списка
 
Цитата
Михаил Синицкий написал:
Крушу исправлю!
Тогда так:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
Sheets(Target.Value).Select
End Sub
Изменено: k61 - 19.06.2022 19:55:42
Гиперссылки из выпадающего списка
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
If Target = "Груша" Then
Sheets("круша").Select
Else
Sheets(Target.Value).Select
End If
End Sub

крушу исправьте.
О музыке.
 
19 июня.
День рождения:
Яо Си Тин (Yao Si Ting)
https://www.youtube.com/watch?v=LK_orgK6AJk&list=PLhaAESHj8BuUa3bqwsQtgYslKVZTghZkY&index=3
Всплывающее окно при наведении на ячейку, Отобразить всплывающее окно с информацией из неактивной таблицы при наведении на ячейку
 
Бюджетный вариант:
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Sheets(1)
If Not Intersect(Target, Range("a6:a8")) Is Nothing Then
del
With Sheets(2).Columns(1)
Set f = .Find(What:=Target, LookIn:=xlValues, LookAt:=xlWhole)
  If Not f Is Nothing Then
  Target.AddComment Text:="ID: " & f & Chr(10) & "Name: " & .Cells(f.Row, 2) & _
    Chr(10) & "Age: " & .Cells(f.Row, 3) & Chr(10) & _
    "Passport: " & .Cells(f.Row, 3)
  Else
  Target.AddComment Text:="Не найдено."
  End If
End With
Else
  del
End If
End Sub

Sub del()
If ActiveSheet.Comments.Count > 0 Then
  For Each x In ActiveSheet.Comments
  x.Delete
  Next
End If
End Sub
Как сделать URL ссылку в Excel активной для перехода по ней?
 
В код листа, и выполнить:
Код
Sub www()
With [a1:a10]
For Each x In .Cells
  If x Like "https://*" Then Hyperlinks.Add x, x
Next
End With
Beep
End Sub

.... а затем "нажимайте" на ячейку.
Очистка ячейки если имя листа равно значению
 
Код
Sub Посвящается_kuklp_Сегодня_День_Сварщика()
she = Array("Титул", "ВО1", "ВО", "МК1", "МК", "КН1", "КН", "ОК1", "ОК")
rng = Array("DA31:DF31", "AY243:BA243", "AZ254:BA254", "DA46:DF46", "DA47:DF47", "DA52:DF52", "DA53:DF53", "DA44:DF44", "CZ47:DF47")
i = 0
For Each sh In she
Sheets(sh).Range(rng(i)).ClearContents
i = i + 1
Next sh
End Sub

В массиве sh() пропишите корректные названия листов.
О музыке.
 
05 мая.
День рождения:
Крейг Эшли Дэвид (Craig Ashley David)
https://www.youtube.com/watch?v=pU2ukeS2JTE&list=RDEMhmPd7yk26ZBoMKAxqZTogg&index=3
Вернуть скрытые столбцы при установленном фильтре
 
Код
Sub jmqw()
With [D:M]
.Columns.Hidden = Not .Columns.Hidden
End With
End Sub
О музыке.
 
21 апреля.
Лэчи Доули (Lachlan R "Lachy" Doley) Lachy Doley
https://www.youtube.com/watch?v=IUDUCTsXPiE
вечером, после трудного дня, можно же послушать качественную музыку?
 
Цитата
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
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 82 След.
Наверх