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

Страницы: 1 2 3 4 След.
Объеденить два макроса (ВПР2 и ВПР3) в один
 
Маленький вопрос: Его можно изменить, чтоб 2-е искомое значение он искал любое число в столбце (или при условии что ячейка не пуста)
=ВПР_М(A1:F100;H1&"_"&>0;"1_2";"3_4";1) ,т.е
A1:F100-таблица
H1- 1-е искомое
>0- любое число (у меня в формате время) или ячейка не пуста.
Если такое возможно, подскажите.
Изменено: Васёк - 20.04.2016 16:51:19
Объеденить два макроса (ВПР2 и ВПР3) в один
 
Разобрался, буду изучать!!!!!!!!
Спасибо!!!!!!!
Изменено: Васёк - 20.04.2016 08:50:21
Объеденить два макроса (ВПР2 и ВПР3) в один
 
Всем Добра!!!

Вот такой идея посетила меня на работе. Большинство кто работает с макросами известны эти ВПР-ки.
Вот теперь вопрос, возможно ли объеденить эти макросы, (допустим назвать ВПР4), что бы возможно было искать по двум неизвестным, да и еще добавить "номер_вхождения"
Что можно было вывести любую ячейку в этой строчке, где 2-а неизвестных значения (ВПР3) встречаются 2-й, 3-й и тд раз (ВПР2)
Если такая возможность есть, подскажите.

     P.S    Я дошел только, как можно искать по 3-м и 4-м неизвестным. (как затолкать туда "номер вхождения" от ВПР2 ни как не пойму)
Спасибо!!!
Ввод пароля макросом при обновлении связей, При обновлении ввести пароль откуда берутся макросы
 
Привет форумчане
Столкнулся с проблемой: При обновлении связей в книги вылетает окошко с предложением ввести пароль от книги из которой берутся данные.
Макрос по обновлению связей слил из инета, прилагаю. Пароль 159. Как его туда автоматом ввести?
Спасибо за помощь!!!
Если важно то книга общая (которая запаролина)
Обновляется только одна формула, могу приложить файлы.
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  On Error Resume Next
  Me.UpdateLink Me.LinkSources
End Sub
 
Изменено: Васёк - 27.01.2016 20:34:41
Изменение диапазона таблици от значения ячейки
 
Спасибо большое!!!
Последнее идеально подошло !!!!
СПС
Изменение диапазона таблици от значения ячейки
 
Здравствуйте!!!
Вопрос: можно ли в формуле допустим ВПР привязать изменяемый диапазон искомого значения.
Пример:  ВПР(AB3;A1:Y38000;25;0), красную цифру сделать зависимой от значения в другой ячейке (в место еденици сделать ссылку на ячейку)
в идеале планирую на формулу ПОИСКПОЗ(AA15;B:B;0).
Хотя бы знать всемогущий EXCEL поддерживает такие формулы.
Спасибо. А то всю голову изломал, да и над вопросом пришлось подумать.
Изменено: Васёк - 19.10.2015 13:49:42
Скрыть строки со значениями из другого диапазона
 
Спасибо за подсказки, да даже не за подсказки, а за макрос.
Супер
Скрыть строки со значениями из другого диапазона
 
Ищет в столбце "G" от активной ячейки (значений может быть больше 4) и через фильтр показывает их в "С"
Активную ячейку делаем "G1" макрос должен запомнить её значение (х1=9570)
Уже активная ячейка "G2" макрос проверяет, она больше 0 и если больше, то (х2=11621) итд, пока активная ячейка не пуста.
Все значения (х1, х2, итд), выводит через фильтр в столбце "B"
Проблема в том как сделать в повторном Do While, уже была х2.
см.пример
Изменено: Васёк - 19.05.2015 23:06:33
Скрыть строки со значениями из другого диапазона
 
Привет всем Гурам всемогущего XL
Есть макрос присваивающий А1 значение в активной ячейки.
Как сделать, если при следующем цикле в место А1 было А2, А3, А4 итд
Затем А1, А2, А3 итд, я использую дальше.
Спасибо.
Код
Sub A1
Do While ActiveCell > 0
A1 = Str(ActiveCell)
Selection.Offset(1, 0).Select
Loop
End Sub 
Изменено: Васёк - 19.05.2015 22:49:30
Привязать фильтр к значениям в ячейках, фильтровать по значениям в ячейках
 
Друзья спасибо. Буду пробовать к столбцу привязать.
Изменено: Васёк - 18.05.2015 19:40:55
Привязать фильтр к значениям в ячейках, фильтровать по значениям в ячейках
 
Привязать фильтр к значениям в ячейках, фильтровать по значениям в ячейках
 
Всем привет.
Как привязать фильтр к ячейки, или еще лучше к столбцу.
Что я сделал не так?
Могу приложить файл.
Спасибо.
Код
Sub Макрос1()
A = Range("G1")    'так фильтрует только показывает пустые, хотя в G1 число 9517
A = "9517"         'Так все работает
ActiveSheet.Range("$C$6:$C$100000").AutoFilter Field:=3, Criteria1:=Array( _
        A), Operator:=xlFilterValues
End Sub
Редоктировать XLA, Как преобразовать файл
 
Спасибо, надо изучить.
Редоктировать XLA, Как преобразовать файл
 
Всем привет.
На просторах интернета нашелся файлик, вопрос на засыпку: Как его можно применить, сутки пытался узнать для чего он нужен.
Я понимаю, что это надстройка. Как узнать может она будет полезна. Или как посмотреть её содержимое?
Объединить два макроса в один, не повторяя код макроса "Пр" в получившемся коде
 
Спасибо, я затупил на такой мелочи. Сам в шоке. ( 2-й вариант)
Объединить два макроса в один, не повторяя код макроса "Пр" в получившемся коде
 
Вот так, но в коде повторяется 2 раза код от "Пр"
Если, что то я задумаю поменять, то придёться менять в двух местах.(А от этого я хочу уйти)
Но и в один Sub записать
Изменено: Vasyok - 16.05.2015 19:07:14
Объединить два макроса в один, не повторяя код макроса "Пр" в получившемся коде
 
В один SUB
Объединить два макроса в один, не повторяя код макроса "Пр" в получившемся коде
 
Щас пришлю объеденный, минутку
Объединить два макроса в один, не повторяя код макроса "Пр" в получившемся коде
 
Я запутался, так их можно объединить в один код: ДА или НЕТ
Объединить два макроса в один, не повторяя код макроса "Пр" в получившемся коде
 
Там все хорошо выполняется, как объединить "Пр" + "Пропуск" в один код. Один единый макрос.
Изменено: Vasyok - 16.05.2015 18:38:28
Объединить два макроса в один, не повторяя код макроса "Пр" в получившемся коде
 
Смысл не в том, что после ДА и НЕТ, одно и тоже действие,а как это действие записать в один код не повторяя.
Как объединить 2 макроса в один. не повторяя код макроса "Пр" в получившимся коде
Даже название темы получилось.
Изменено: Vasyok - 16.05.2015 18:27:19
Объединить два макроса в один, не повторяя код макроса "Пр" в получившемся коде
 
Если изменить Гриф2, то и Гриф измениться.
Как эти 2 макроса объединить в один, и не повторять код из Гриф2
Объединить два макроса в один, не повторяя код макроса "Пр" в получившемся коде
 
Как то так, но не разделяя макрос.  
Код
Sub Гриф()
    X = MsgBox("Введите номер волны?", vbYesNo, "Если надо!!!")
    If X = vbYes Then
        Z = InputBox("Введите номер волны", "8 цифр")
        Range("A1") = Z
        Гриф2
    Else
       Гриф2
  End Sub

Sub Гриф2()
For i = 1 To 9
            Range("A" & i) = i
        Next
End Sub

Изменено: Vasyok - 16.05.2015 18:05:11
Объединить два макроса в один, не повторяя код макроса "Пр" в получившемся коде
 
После ДА он предложит на какое число поменять значение в ячейке, а если НЕТ то значение в ячейке менять не надо. Но макрос должен продолжить работу
Изменено: Vasyok - 16.05.2015 16:59:04
Объединить два макроса в один, не повторяя код макроса "Пр" в получившемся коде
 
Это код 2 раза в макросе:
Код
 For i = 1 To 9
 Range("A" & i) = i
 Next 
Как сократить до одного. После выбора ДА и НЕТ один и тот же код.
Тут три строчки, а если их за сотню. И если я захочу изменить макрос то придётся в двух местах менять - как этого избежать
Изменено: Vasyok - 16.05.2015 16:02:24
Объединить два макроса в один, не повторяя код макроса "Пр" в получившемся коде
 
Всем привет!!!
Как объединить 2 макроса в один. не повторяя код 2-го макроса (В один Sub)


Код
Sub Гриф()

    X = MsgBox("Введите номер волны?", vbYesNo, "Если надо!!!")
    If X = vbYes Then
    Z = InputBox("Введите номер волны", "8 Цифр")
         Range("A1").Select
         ActiveCell.FormulaR1C1 = "1"
         Range("A2").Select
         ActiveCell.FormulaR1C1 = "2"
         Range("A3").Select
         ActiveCell.FormulaR1C1 = "3"
         Range("A4").Select
         ActiveCell.FormulaR1C1 = "4"
         Range("A5").Select
         ActiveCell.FormulaR1C1 = "5"
         Range("A6").Select
         ActiveCell.FormulaR1C1 = "6"
         Range("A7").Select
         ActiveCell.FormulaR1C1 = "7"
         Range("A8").Select
         ActiveCell.FormulaR1C1 = "8"
         Range("A9").Select
         ActiveCell.FormulaR1C1 = "9"
         Range("A10").Select
    Else
         Range("A1").Select
         ActiveCell.FormulaR1C1 = "1"
         Range("A2").Select
         ActiveCell.FormulaR1C1 = "2"
         Range("A3").Select
         ActiveCell.FormulaR1C1 = "3"
         Range("A4").Select
         ActiveCell.FormulaR1C1 = "4"
         Range("A5").Select
         ActiveCell.FormulaR1C1 = "5"
         Range("A6").Select
         ActiveCell.FormulaR1C1 = "6"
         Range("A7").Select
         ActiveCell.FormulaR1C1 = "7"
         Range("A8").Select
         ActiveCell.FormulaR1C1 = "8"
         Range("A9").Select
         ActiveCell.FormulaR1C1 = "9"
         Range("A10").Select
  End If
End Sub

Изменено: Vasyok - 16.05.2015 19:36:15
Ввод пароля при открытии книги, Макросом подобрать несколько вариантов паролей
 
Как перейти к операции со следующей книгой?
22-я строчка
Код
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    'диалог запроса выбора папки с файлами
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    'отключаем обновление экрана, чтобы наши действия не мелькали
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls*")

   Do While sFiles <> ""
        'открываем книгу
    ' Workbooks.Open sFolder & sFiles
    Dim w As Object
     On Error Resume Next
     If w Is Nothing Then Set w = Workbooks.Open(sFolder & sFiles)
     If w Is Nothing Then Set w = Workbooks.Open(sFolder & sFiles, , , , "6214562145")
     If w Is Nothing Then Set w = Workbooks.Open(sFolder & sFiles, , , , "62145")
     If w Is Nothing Then Set w = Workbooks.Open(sFolder & sFiles, , , , "55555")
     If w Is Nothing Then ''''''''''''''''''''''''=========== что написать что бы макрос пропустил книгу и открывал следующую
     Dim oVBComponent As Object, lCountLines As Long
    'Проверяем, защищен проект или нет
    If ActiveWorkbook.VBProject.Protection = 1 Then
       Set objVBProject = ActiveWorkbook.VBProject
    'просматриваем все окна проекта в поисках окна снятия защиты
    For Each objWindow In objVBProject.VBE.Windows
        ' Type = 6 - это нужное нам окно
        If objWindow.Type = 6 Then
            objWindow.Visible = True
            objWindow.SetFocus: Exit For
        End If
    Next
    'вводим пароль и подтверждаем ввод
    SendKeys "~62145~", True: SendKeys "{ENTER}", True
   End If
 For Each oVBComponent In ActiveWorkbook.VBProject.VBComponents
        On Error Resume Next
        With oVBComponent
            Select Case .Type
            Case 1    'Модули
                .Collection.Remove oVBComponent
            Case 2    'Модули Класса
                .Collection.Remove oVBComponent
            Case 3    'Формы
                .Collection.Remove oVBComponent
            Case 100    'ЭтаКнига, Листы
                    lCountLines = .CodeModule.CountOfLines
                    .CodeModule.DeleteLines 1, lCountLines
            End Select
        End With
    Next
    Set oVBComponent = Nothing
   'Закрываем книгу с сохранением изменений
     ActiveWorkbook.Close True 'если поставить False - книга будет закрыта без сохранения
        sFiles = Dir
Loop
    'возвращаем ранее отключенное обновление экрана
    Application.ScreenUpdating = True
End Sub

Изменено: Vasyok - 08.05.2015 14:00:14
Ввод пароля при открытии книги, Макросом подобрать несколько вариантов паролей
 
Пока пробую, поздно просто написал.
Ввод пароля при открытии книги, Макросом подобрать несколько вариантов паролей
 
У меня полный макрос ищет файлы и стирает в них мои макросы. книги я запоролил, но пароли попадали к коллегам. Я решил стереть макросы в книгах.
С учетом, что 3 вида паролей и в некоторых VBA тоже под паролем.
Коллеги в макросах не шарют (только пользуются), я только изучаю.
Отдельно спасибо сайту.
Изменено: Vasyok - 08.05.2015 11:39:42
Ввод пароля при открытии книги, Макросом подобрать несколько вариантов паролей
 
Совершенно верно. 55555, 62145, 6214562145. Но бывает что файл открыт.
Страницы: 1 2 3 4 След.
Наверх