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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 181 След.
Как скрыть от пользователя VBAProject после его разблокировки
 
Цитата
Borgov написал:
было бы обезопасить код при работе с ними,
запаролить
Цитата
Borgov написал:
или использования где либо еще
указать в коде явно имя книги
Макрос не переходит по условию. Условие - число в ячейке.
 
[A1]
Перейти на одну видимую ячейку вниз
 
Можно и без цикла
Код
Sub qq()
    On Error Resume Next
    Set r = ActiveSheet.AutoFilter.Range.SpecialCells(12).Areas(2)
    If Err Then
        Err.Clear
        MsgBox ActiveSheet.AutoFilter.Range.Cells(2, 1)
    Else
        MsgBox r(1)
    End If
End Sub


Накладочка. Для массива условий работает не правильно. Правильнее так
Код
Sub ert()
    Const i = 1&
    Set r = ActiveSheet.AutoFilter.Range.Columns(i).SpecialCells(12) 
    If r.Areas(1).Rows.Count > 1 Then
        MsgBox r.Areas(1).Cells(2)
    Else
        MsgBox r.Areas(2).Cells(1)
    End If
End Sub
Изменено: RAN - 17 Авг 2019 09:55:39
скрытие ячейки при выборе значения из списка
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$4" Then
        If Len(Target) Then
            Rows("7:8").Hidden = False
            Rows(7).Hidden = Target.Value = "yes"
            Rows(8).Hidden = Not (Target.Value = "yes")
        End If
    End If
End Sub
скрытие ячейки при выборе значения из списка
 
Для затравки
Отдельную ячейку на листе скрыть нельзя. Совсем нельзя. И даже если очень хочется, все равно нельзя.
Перенос строк из группы в группу без нарушения структуры данных на листе?
 
Вырезать-Вставить - да.
Вырезать-Вставить вырезанные ячейки - нет
Добавить условие в макрос, формирующий документ Ворд из Экселя
 
Отписал в ЛС.
Работа со сводной таблицей. Выделение строк цветом.
 
Цитата
БМВ написал:
если вы сами предполагаете сотни правил
Ведмедик, прикалываешься?
Если ТС предполагает сотни правил, то это совсем не означает, что ему нужно больше одного.  :)
Сбор данных с разных листов одной книги на итоговый лист с переименованием столбцов в имена листов гиперссылкой, VBA, для общего ознакомления
 
Нужно легонько мяукнуть  :)
Код
Sub Мяу()
    Dim ar, ar1
    Dim oDic As Object
    Dim i&, j&, n&, x
    n = (Sheets.Count - 1)
    Set oDic = CreateObject("Scripting.Dictionary")
    ReDim ar(n)
    For i = 2 To Sheets.Count
        ar(i - 1) = Sheets(i).Name
    Next
    oDic.Item("names") = ar
    For i = 2 To Sheets.Count
        ar1 = Sheets(i).Range("B1").CurrentRegion.Value
        For j = 2 To UBound(ar1)
            If oDic.exists(ar1(j, 1)) Then
                ar = oDic.Item(ar1(j, 1))
                ar(i - 1) = ar1(j, 3)
                oDic.Item(ar1(j, 1)) = ar
            Else
                ReDim ar(n)
                ar(0) = ar1(j, 1)
                ar(i - 1) = ar1(j, 3)
                oDic.Item(ar1(j, 1)) = ar
            End If
        Next
    Next
    x = oDic.Items
    [N15].Resize(oDic.Count, n + 1).Value = Application.Transpose(Application.Transpose(x))
End Sub
Как для заданного N получить в ячейке последовательность целых чисел, разделенных запятыми: 1,2,3, ...,N, Отображение натурального ряда чисел заданного диапазона
 
Цитата
Goba80 написал:
Мне это необходимо для дальнейшего подсчета одинаковых цифр в последовательностях с выведением результата в смежной ячейке.
И накой для этого цифири в ячейках?  8-0
Код
Function мяу(s&)
    Dim ar(9), x, i&, j&, k&
    For i = 0 To s
        x = CStr(i)
        For j = 1 To Len(x)
            For k = 0 To UBound(ar)
                If Val(Mid$(x, j, 1)) = k Then
                    ar(k) = ar(k) + 1
                End If
            Next
        Next
    Next
    мяу = ar
End Function
После сканирования макрос без нажатия ОК должен продолжать выполнять следующую строку
 
Цитата
Jenya1980 написал:
Что у меня не так?
А у вас CheckBox1 есть? Или прикупить забыли?
Он нужен для переключения возможности однократного/многократного сканирования.
На остновной функционал не влияет
После сканирования макрос без нажатия ОК должен продолжать выполнять следующую строку
 
Текстбокс на форме
Код
'---------------------------------------------------------------------------------------
' Module    : frmScanner
' DateTime  : 16.04.2017
' Author    : RAN (ran.xls@ya.ru)
' Purpose   :
'---------------------------------------------------------------------------------------
Option Explicit
Const TimePause As Single = 0.2

Private Sub TextBox1_Change()
    Dim Starts!
    If Len(TextBox1) = 0 Then Exit Sub
    Starts = Timer
    Do While Timer < Starts + TimePause
        DoEvents
    Loop
    PartN1
End Sub
Sub PartN1()
    If Me.CheckBox1 Then
        TextBox1 = ""
        Me.Caption = "Отсканируйте партномер 1"
    Else
        Unload Me
    End If
End Sub
Что такое в коде := двоеточие и равно
 
А ежели-бы добавили строку Option Explicit, тогда бы предупредил
Код
Option Explicit

Sub qq()
Cells.AutoFilter
Field = 1
Criteria1 = "*Москва*"
End Sub
Что такое в коде := двоеточие и равно
 
Цитата
suricat555 написал:
А если я хочу не указывать двоеточия
А если макрос не хочет работать без двоеточий?
Кто кого?  :D
Сохранение файла из Excel 2010 в Excel 2007
 
И нам расскажите, что это за хитрый формат.
Ошибка при копировании листов в новый файл
 
Что есть общий файл? Это файл, которым пользуются все, или файл с общим доступом?
Если второе, то на 90% общий доступ и не дает работать с умными таблицами.
Сохранение файла из Excel 2010 в Excel 2007
 
Проблема в том, что вы создаете себе проблему там, где ее нет, ибо формат файлов xlsx - это формат всех версий Excel, начиная с 2007.
VBA цикл, перебор значений
 
Да, другой. Называется "клавиатура". А внизу страницы есть поле для ввода текста.
Работа с "гиперссылкой на файл"
 
Возможно.
Как правильно использовать Range.Offset, если используемая ячейка объединена с другой?
 
В общем случае туды, сюды, обратно.  :D
Код
    With ActiveSheet.Range(baseAddress)
        val = .Offset(offRow, offCol).Offset(1 - .MergeArea.Rows.Count, 1 - .MergeArea.Columns.Count).Value
    End With
Дата последнего обновления в ячейке VBA
 
Цитата
Роман написал:
При чем случайное число
А чем формула случайного числа хуже любой другой?
Дата последнего обновления в ячейке VBA
 
Это с вашей точки зрения, при пересчете происходят какие либо изменения в ячейке.
А на самом деле - какая формула была, такая и осталась, как возвращала она какой-то результат, так и возвращает.
И для того, чтобы отследить изменения, нужно где-то запомнить значения до пересчета, и сравнить со значением после пересчета.
создание word-документов при помощи excel
 
Сильно сомневаюсь, что вам это нужно, но, что просите...
Прикрепление, извлечение файлов из книги Excel
Макрос для заливки выделенных ячеек
 
Цитата
NikaR написал:
Есть ли знатоки, которые помогут сделать простеньикй макрос на заливку, только не конкретного столба или ячейки, а выделенных курсором
Есть. Самый лучший - макрорекордер. Ибо в данном случае он запишет макрос, который, приктически, не нужно править.

PS Вить, вставь описание в наименование - будет самое оно.
Изменено: RAN - 18 Июл 2019 17:17:48
Ошибка 1004 при попытке выполнить ActiveWorkbook.SaveAs, если используется переменная папки.
 
Может Пунто шалит, может еще кто.
Несколько лет назад обсуждалось очень оживленно.
Критерий "больше, но меньше" в формуле суммесли
 
Цитата
БМВ написал:
"больше, но меньше"
явление распространенное. Удивляться нечему.
Критерий "больше, но меньше" в формуле суммесли
 
Господа формулисты, а кто ПРОЧИТАЛ?
Цитата
Евгений И. написал:
пишет "несогласующаяся формула":
:D
Изменение размера флажка ("checkbox")
 
Вы что к человеку с примером пристали?
Какой может быть пример того, что сделать нельзя?
Что значит сообщение Compile error: variable not defined при попытке выполнить макрос?
 
Вить, коды-то разные, причина одна.
И название ничем не хуже этого, или этого
Ввод уникального неповторяющегося номера строки по условию
 
Я, грешным делом, подумал, что единичку прибавить вы и самостоятельно можете. :D
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 181 След.
Наверх