Маленький вопрос: Его можно изменить, чтоб 2-е искомое значение он искал любое число в столбце (или при условии что ячейка не пуста) =ВПР_М(A1:F100;H1&"_"&>0;"1_2";"3_4";1) ,т.е A1:F100-таблица H1- 1-е искомое >0- любое число (у меня в формате время) или ячейка не пуста. Если такое возможно, подскажите.
Вот такой идея посетила меня на работе. Большинство кто работает с макросами известны эти ВПР-ки. Вот теперь вопрос, возможно ли объеденить эти макросы, (допустим назвать ВПР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
Здравствуйте!!! Вопрос: можно ли в формуле допустим ВПР привязать изменяемый диапазон искомого значения. Пример: ВПР(AB3;A1:Y38000;25;0), красную цифру сделать зависимой от значения в другой ячейке (в место еденици сделать ссылку на ячейку) в идеале планирую на формулу ПОИСКПОЗ(AA15;B:B;0). Хотя бы знать всемогущий EXCEL поддерживает такие формулы. Спасибо. А то всю голову изломал, да и над вопросом пришлось подумать.
Ищет в столбце "G" от активной ячейки (значений может быть больше 4) и через фильтр показывает их в "С" Активную ячейку делаем "G1" макрос должен запомнить её значение (х1=9570) Уже активная ячейка "G2" макрос проверяет, она больше 0 и если больше, то (х2=11621) итд, пока активная ячейка не пуста. Все значения (х1, х2, итд), выводит через фильтр в столбце "B" Проблема в том как сделать в повторном Do While, уже была х2. см.пример
Привет всем Гурам всемогущего 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
Всем привет. Как привязать фильтр к ячейки, или еще лучше к столбцу. Что я сделал не так? Могу приложить файл. Спасибо.
Код
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
Всем привет. На просторах интернета нашелся файлик, вопрос на засыпку: Как его можно применить, сутки пытался узнать для чего он нужен. Я понимаю, что это надстройка. Как узнать может она будет полезна. Или как посмотреть её содержимое?
Вот так, но в коде повторяется 2 раза код от "Пр" Если, что то я задумаю поменять, то придёться менять в двух местах.(А от этого я хочу уйти) Но и в один Sub записать
Смысл не в том, что после ДА и НЕТ, одно и тоже действие,а как это действие записать в один код не повторяя. Как объединить 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
Как сократить до одного. После выбора ДА и НЕТ один и тот же код. Тут три строчки, а если их за сотню. И если я захочу изменить макрос то придётся в двух местах менять - как этого избежать
Как перейти к операции со следующей книгой? 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
У меня полный макрос ищет файлы и стирает в них мои макросы. книги я запоролил, но пароли попадали к коллегам. Я решил стереть макросы в книгах. С учетом, что 3 вида паролей и в некоторых VBA тоже под паролем. Коллеги в макросах не шарют (только пользуются), я только изучаю. Отдельно спасибо сайту.