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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 241 След.
Как-то можно стандартными средствами или через VBA достать список всех некорректно написанных слов?, Рецензирование - Орфография показывает эти слова один-за-другим, а мне нужно сразу весь список
 
Ведмедь, ты крут! Тоже не знал.
VBA. Автофильтр по текущей дате.
 
Код
 ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:="=" & Date _
        , Operator:=xlAnd
Автоматическое обновление excel файла
 
Существует ли решение для холодильника, чтобы продукты обновлялись без обязательного открытия двери?
Перенос текста по строкам, Необходимо текст из объединенной ячейки перенести на строки с автоматическим переносом
 
Поиск "текст по строкам" = 8 страниц
Меню выбора данных в UserForm (без использования Multipage)
 
В #6.  :D
Найти последнее указанное значение в колонке и заполнить им N количество строк
 
Код
Sub qq()
    Dim i&
    i = Columns(1).Cells.Find(1, , , , xlByRows, xlPrevious).Row
    Cells(i, 1).Offset(1).Resize(10) = 1
End Sub
Меню выбора данных в UserForm (без использования Multipage)
 
Цитата
MikeVol написал:
Тут в вашей теме нет не одного примера с использованием MultiPage.
Положим, один есть.
Меню выбора данных в UserForm (без использования Multipage)
 
Застрели не понял, чем мультипейдж не устраивает? Вероятно, вы не умеете его готовить?
Удаление столбцов по условию
 
Код
Case "Название сделки", "WC total", "Бюджет", "Переводчик", "WC переводчика (факт)", "Ставка переводчика", "Сумма", "Редактор", "WC редактора (факт)", "CAT", "Ставка редактора", "", "Дедлайн", "Постобработка", "Верстальщик", "Объём вёрстки", "Стоимость вёрстки", "Примечания общие", "Примечание 1", "Примечание 2", "Примечание 3", "Примечание 4", "Примечание 5", "(До)внести стат. в SC", "Ссылка в CAT/TMS"
Case Else
            If Not r Is Nothing Then
Удаление столбцов по условию
 
Код
Sub qq()
    Dim i&, r As Range
    For i = 1 To 100
        Select Case Cells(1, i).Value
        Case "Название сделки", "WC total", "Бюджет", "Переводчик", "WC переводчика (факт)", "Ставка переводчика", "Сумма", "Редактор", "WC редактора (факт)", "CAT", "Ставка редактора", "", "Дедлайн", "Постобработка", "Верстальщик", "Объём вёрстки", "Стоимость вёрстки", "Примечания общие", "Примечание 1", "Примечание 2", "Примечание 3", "Примечание 4", "Примечание 5", "(До)внести стат. в SC", "Ссылка в CAT/TMS"
            If Not r Is Nothing Then
                Set r = Union(r, Columns(i))
            Else
                Set r = Columns(i)
            End If
        End Select
    Next
    r.Delete
End Sub
Число меняет значение после преобразования из текста
 
Цитата
move написал:
при попытке преобразовать меняется на 7,28144E+15
Если установлен формат "Общий", то даже вполне корректное число, с количеством знаков более 11, будет отображаться в экспоненциальном виде.
Вставка даты без времени
 
Код
Sub ww()
    x = Now
    MsgBox x
    x = Date
    MsgBox x
End Sub
Скрыть листы макросом, С помощью макроса скрыть определенные листы
 
Цитата
guest99 написал:
Их названия могут быть произвольными и разное количество.
Prosvetov,
Идея правильная, но с точностью до НАОБОРОТ
Код
Sub qq()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        sh.Visible = True
    Next
    For Each sh In ThisWorkbook.Worksheets
        Select Case sh.Name
        Case "Лист1", "Лист4"
        Case Else
            sh.Visible = False
        End Select
    Next
    Application.ScreenUpdating = True
End Sub
Изменено: RAN - 07.07.2023 15:10:24
Поиск данных в отфильтрованном диапазоне
 
Цитата
evg_glaz написал:
выделяет синим "AutoFilter"
Заинтриговало. Проверил. Сие приключается, если Sub Поиск_Яч(Optional t) за каким-то рожном вставить не в модуль листа, а в стандартный модуль. В этом случае, конечно, так работать не будет. Исходя из #1 я сделал вывод, что у вас оба макроса в модуле листа. Нужно так (будет работать и в модуле листа, и в стандартном модуле).
 
Код
  Set rLastFound = ActiveSheet.AutoFilter.Range.Find(What:=t, LookIn:=xlValues, LookAt:= _
Поиск данных в отфильтрованном диапазоне
 
evg_glaz, небольшое изменение, и все ищет
Код
Sub Поиск_Яч(Optional t) 'поиск по листу
Static rLastFound As Range
  If IsMissing(t) Then 'вызов по горячей клавише
    If Not rLastFound Is Nothing Then Set rLastFound = Cells.FindNext(rLastFound)
  Else
'    Set rLastFound = Cells.Find(What:=t, LookIn:=xlValues, LookAt:=
    Set rLastFound = AutoFilter.Range.Find(What:=t, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
              'MsgBox "Не найдено!", vbExclamation, "ВНИМАНИЕ!!!"
            'Exit Sub
  End If
  If Not rLastFound Is Nothing Then rLastFound.Offset(0, 1).Activate
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address(0, 0) = "E1" Then
           Поиск_Яч Target 'поиск в ячейке E1
        End If
End Sub
Добавить 0 в ячейках где количество символов меньше 7, VBA макрос, по добавлению нуля в начало значения в ячейке
 
.
Изменено: RAN - 27.06.2023 17:31:58
Power Query - Обновление через макрос
 
Цитата
Александр Lurs написал:
Ведь код я повторил буква-в-букву
Сомнительно
Код
Dim rng_Refresh As Range
 
Set rng_refrsh = Range("Обновить_запросы[Обновить_запросы]")
Преобразовать текст в число >15 знаков
 
Цитата
Марина Русалева написал:
Кто что подскажет....
Цитата
Марина Русалева написал:
Например 1/7 дает нам бесконечный , но повторяющийся ряд чисел
И ежели вы желаете увидеть последнюю цифру этого ряда, то это в принципе недостижимо. Что уж говорить об Excel.
При помощи Worksheet_SelectionChange скопировать диапазон, выделенный мышью
 
Rows(ActiveCell.Row).Resize([J1]).Select
При помощи Worksheet_SelectionChange скопировать диапазон, выделенный мышью
 
Код
Rows(ActiveCell.Row).Resize(6).Select
Отличие информации в ячейке и в строке формул
 
Бахтиёр, бывает такое у 1С. Вместо значения вваливает формат. Плавали, знаем.
Отличие информации в ячейке и в строке формул
 
Код
Sub Лечилка()
    For Each cl In Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
        If cl.Text <> cl.Value Then
            cl.Value = cl.Text
        End If
    Next
End Sub


PS у вас 153 шт. кривых ячеек
Изменено: RAN - 23.06.2023 15:14:38
Отличие информации в ячейке и в строке формул
 
У вас там полна ж... огурцов (таких форматов)
Формат чисел в TextBox
 
Код
TextBox2 = Format(TextBox2, "# ##0.00")
Копирование данных на другой лист с гиперссылкой
 
Так копируйте. Хоть вручную, хоть макросом. Вообще проблем с гиперссылкой нет.
Эффект нажатия кнопки изменением цвета (мигание)
 
Цитата
evg_glaz написал:
По подробнее бы....
Ежели бы вы удосужились прочитать правила форума, вполне вероятно, что было бы поподробнее. А сейчас как есть.
Копирование данных на другой лист с гиперссылкой
 
=ГИПЕРССЫЛКА(Матер_сертиф!C2;"Тыц")
VBA .Copy - копирование не видимых ячеек(автофильтром), Как подружить .Copy и автофильтр?
 
Код
Sub test_Value()
    Range("A2:C5").Value = Range("A2:C5").Value
End Sub
Эффект нажатия кнопки изменением цвета (мигание)
 
Курите Application.Caller
экспорт данные из нескольких листов эгзеля на ворд, экспорт данные из нескольких листов эгзеля на ворд
 
Цитата
neo2323 написал:
Здр-те не понял там вирус чтоли есть ?
Это антивирус сайта перебдел. Не парьтесь, приключается часто.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 241 След.
Наверх