Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » obratka
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
vlookup при помощи vba, Прошу помощи с кодом
 
#
17.01.2018 13:10:31
Всем спасибо, сработало!
 
Перейти    
vlookup при помощи vba, Прошу помощи с кодом
 
#
17.01.2018 09:05:27
Цитата
Казанский написал:
Используйте формулу в стиле R1C1, и менять ничего не придется.
Типа rc[-1]?
 
Перейти    
vlookup при помощи vba, Прошу помощи с кодом
 
#
17.01.2018 08:08:59
Коллеги, всем привет!

Помогите, пожалуйста с кодом для vlookup через vba, на данный момент использую следующее:
Код
With Range(Cells(massive2, 1).Offset(1, 0), Cells(massive2, 1).End(xlDown)).Offset(0, 1)
       .Formula = "=VLOOKUP(=b6324,Vlookup!b$5:c$14,2,0)"
       .Value = .Value
End With

Но проблем в том, что аргумент =b6324 всегда может меняться, а сейчас он стоит константой, ссылаясь на левую ячейку в строке 6234. Поэтому, если мне нужно будет сделать vlookup для значения в ячейке =c1000, формула все равно пойдет в =b6324.

Подскажите, пожалуйста, каким образом можно изменить код, чтобы сделать аргумент динамичным,

Заранее Спасибо!
 
Перейти    
заполнение ячеек при помощи VBA
 
#
14.07.2017 18:58:06
Alemox, Спасибо!
 
Перейти    
заполнение ячеек при помощи VBA
 
#
13.07.2017 19:52:16
Коллеги, добрый день.

Прошу подсказки в написании достаточно просто макроса, но к сожалению сам не знаю как должен выглядеть код для этой идеи.
Задача заключается в следующем, у меня есть массив данных, в котором есть пропуски, которые нужно заполнить данными вышестоящих ячеек. Эту операцию нужно делать часто и много, поэтому хочу ее оптимизировать, но не знаю как это сделать.

Цель: в одно нажатие заполнить весь массив, на данный момент в одно нажатие не получается это сделать:(

Высылаю свои попытки заполения в файле

Заранее спасибо!
 
Перейти    
Макрос по убийству ссылок на сторонние excel файлы, Помогите оптимизировать код
 
#
28.02.2017 09:03:17
Коллеги, спасибо за ответы!

Попробую ваши советы!
 
Перейти    
Макрос по убийству ссылок на сторонние excel файлы, Помогите оптимизировать код
 
#
26.02.2017 07:40:38
Коллеги, добрый день.

Пишу вам с целью проконсультироваться в вопросе оптимизации кода макроса. В связи с необходимостью на работе в екселе очень часто нужно убивать ссылки на сторонние excel файлы для того, чтобы в последствии избегать ошибок, когда рабочий файл начнет ссылаться на отсутствующие файлы. Для этого я написал следующий макрос. Скорость работы данного макроса меня устраивает, когда дело касается обработки небольших файлов, но когда мне нужно убить ссылки в файлах +1000 строк Excel зависает и все ломается. Как его оптимизировать, если это можно сделать я сам не знаю, поэтому и обратится за помощью к вам.
Код макроса:
Код
Sub RefDelList()

Dim im As Range, m As Range

Set myrange = ActiveSheet.UsedRange

For Each cell In myrange
    Dim icell As Range
    Set icell = myrange.Find(What:="*xls*", _
    LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=True)
On Error Resume Next
    'icell.Style = "Normal"
    icell.Value = icell.Value
Next

End Sub

Заранее спасибо,

P.S. Прошу прощения за слишком частое использование слова файл
 
Перейти    
Выделить расширение файла из полного пути
 
#
07.12.2016 19:38:20
Коллеги, добрый день!
Необходима ваша помощь в решении следующей задачи, у меня имеется ячейка, в которой прописан путь к определенной папке на диске, для примера: C:\Users\Desktop\file1.xls. Меня интересует каким образом из данной строки можно вычленить окончание файла и показать его в соседней ячейке, т.е. в данном примере .xls.
Чувствую, что использовать здесь нужно =правсимв, но аргумент по количеству символов должен быть динамическим и грубо говоря осуществлять отсчет от самой правой точки в ячейке (как это осуществить я не знаю)

Заранее спасибо!
 
Перейти    
Поиск ячеек, содержащих в себе ссылки
 
#
15.11.2016 12:16:45
Пробовал, ничего не нашел. Спасибо за вариант, но вы предложили ссылку на решение проблемы hyperlink, ссылка на другие excel файлы в эту категорию не попадает(
 
Перейти    
Поиск ячеек, содержащих в себе ссылки
 
#
14.11.2016 16:08:38
Коллеги, подскажите пожалуйста.
У меня возник вопрос можем ли мы какими-то средствами VBA в файле Excel найти ячейки, которые содержат в себе только ссылки (гиперлинки) на другие файлы в Excel?

Суть в том, что по мере работы часто приходится сталкиваться с тем, что открываешь файл, а он ссылается на какой-то другой где-то непонятно где и таких файлов с множеством таких вкладок много. Хотелось бы верить, что можно оптимизировать процесс убийства ссылок до одной кнопки

Если такая возможность есть можно плз помочь с кодом решения данной проблемы
 
Перейти    
[ Закрыто] Код VBA, Сохранение документа Word по названию из ячейки
 
#
22.03.2016 13:04:00
Коллеги, Добрый день! На днях столкнулся с некоторой проблемой в excel/word и хочу спросить у участников форума существуют ли варианты выхода из сложившейся ситуации.
На работе периодически возникают абсолютно рутинные задания такие как создание и заполнение запросов контрагентам в ворде. Запросы строятся шаблонно, меняются только названия контрагентов и суммы. Для начала хочу попробовать автоматизировать хотя бы создание документов с наименованиями файлов как названиями контрагентов.
В данный момент остановился на следующем варианте: Документы в ворде создаются в определенной папке с названием идентичным значению ячейке в книге excel с vba кодом.
Можете подсказать с написанием кода, который будет создавать документ в ворде, соответствующий названию определенной ячейки в excel, а то отсутствие глубоких знаний vba самостоятельно не позволяют этого сделать
 
Перейти    
Цикл по строками диапазона, Условное форматирование при помощи VBA
 
#
15.11.2015 21:11:00
MBT и vikttur, спасибо за советы, конечный вариант сработал!
 
Перейти    
Цикл по строками диапазона, Условное форматирование при помощи VBA
 
#
15.11.2015 19:27:54
vikttur, попробовал сделать по предложенному Вами пути, но что-то пошло не так
Код
Sub uuu()
Dim ArrData
Dim i As Long
    ArrData = Range("D6:k12").Value 
     
    For i = 1 To UBound(ArrData)
        If ArrData(i, 1) > ArrData(i, 2) Then
            Cells(i, 1).Font.Color = -16776961
        Else
            Cells(i, 2).Font.Color = -11489280
        End If
    Next i
End Sub
 
Перейти    
Цикл по строками диапазона, Условное форматирование при помощи VBA
 
#
15.11.2015 18:47:11
MBT,
1. Я в нем особо не разбираюсь.
2. Хочется разобраться с циклами VBA, потому что потом думаю больше пригодится, чем условное форматирование
 
Перейти    
Цикл по строками диапазона, Условное форматирование при помощи VBA
 
#
15.11.2015 17:35:31
Коллеги, добрый день!
Может кто-нибудь подсказать мне в решении следующей ситуации. У меня емеется массив данных, состоящий из вдух строк rande("D:E"), где значения в строках различаются между друг другом и я хочу попробавать ввести макрос, который будет выделять зеленым цветом ячейки, которые больше и красным, которые меньше. Макрос для 2х ячеек в одной строке я написал, но знаний не хватает для написания цикла по строкам.

Код
If [d6] > [e6] Then
[e6].Font.Color = -16776961
[d6].Font.Color = -11489280
[d6].Font.Bold = True
Else
[d6].Font.Color = -16776961
[e6].Font.Color = -11489280
[e6].Font.Bold = True
End If
 
Перейти    
Сводные таблицы: фильтрация реестров по определенному признаку, с использованием VBA
 
#
08.11.2015 14:18:20
sv2013, Спасибо огромное. Буду ждать, а пока что попытаюсь понять Ваш код.
 
Перейти    
Сводные таблицы: фильтрация реестров по определенному признаку, с использованием VBA
 
#
08.11.2015 09:14:58
Коллеги, Доброго времени суток.

У меня возник следующий вопрос и без Вашей помощи вряд ли я смогу в нем разобраться. Ситуация у меня следующая:
На работе, при обработке отчетов возникает необходимость пивотить реестры по определенному признаку, а затем делать копии получившихся таблиц и уже дальше с ними работать. И вот мне вся эта рутинная и запутанная работа надоела и я хочу попросить у Вас помощи в решении этого вопроса.

Можно ле создать такой макрос, который будет из отчета делать сводную таблицу, потом ее фильтровать по нужным критериям и из каждого из них делать отдельную копию на другом листе?

Выкладываю простой пример в файле, в котором отображена моя работа в этом плане и хочется попробовать довести это все до автоматизма
 
Перейти    
Закрашивание листа по условию, При помощи VBA
 
#
25.10.2015 23:08:45
Спасибо огромное!
 
Перейти    
Закрашивание листа по условию, При помощи VBA
 
#
25.10.2015 20:11:13
Коллеги, доброго времени суток.
Помогите, пожалуйста, написать код, который будет закрашивать листы, соответствующие определенному аргументу. А именно, допустим все листы находящиеся до листа ">>>" закрашиваются одним цветом. Лист ">>>" закрашивается другим цветом, и листы, находящиеся после листа ">>>" закрашиваются третьим цветом.
 
Перейти    
Заданный стиль форматирования любой таблицы, при помощи VBA
 
#
16.10.2015 15:13:39
Товарищи, здравствуйте!
Кто-нибудь может помочь в написании макроса, который будет позволять редактировать любой выделенный диапазон в соответствии с заданными условиями. Условия самые простые, то есть допустим  установить границу у всей таблицы, закрасить шапку одним цветом, у шапки сделать отдельную границу, по центру выравнять шрифт. Остальные ячейки кроме шапки допустим просто выравнять по правому краю.

Сложность задачи состоит в том, что этот процесс в идеале должен работать с любым выделенным диапазоном, то есть формировать выделенный диапазон в таблицу.

Приложил на всякий случай приммер таблиц до и после, чтобы было понятнее о чем идет речь
 
Перейти    
Замена первой буквы на заглавную в ячейки, При помощи VBA
 
#
08.10.2015 20:52:43
Дело в том, что я в макросах очень слаб и как изменить эти условия не знаю.
Поэтому и обращаюсь на форум
 
Перейти    
Замена первой буквы на заглавную в ячейки, При помощи VBA
 
#
08.10.2015 10:27:41
Коллеги, всем привет. Прошу подсказки в написании кода, с помощью которого, первые буквы в содержащихся в определенном столбце ячейках будут заменяться на Заглавные. На форуме нашел пару веток по этому вопросу, но в предоставленные варианты не полностью подходят мне, а именно:
1. Меняются все ячейки на листе (а мне нужна определенная колонка)
2. Меняются вновь забитые слова, а те которые были введены До - не изменяются (нужно, чтобы все слова в колонке изменялись, которые были забиты до введения макроса и после)

Заранее Спасисбо!
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Count <> 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    If Len(Target) > 0 Then
        Application.EnableEvents = False
        If Len(Target) > 33 Then Target.Offset(0, 1) = Right(Target, Len(Target) - 33)
        Target = UCase(Left(Target, 1)) & Mid(Target, 2, 32)
        Application.EnableEvents = True
    End If
End Sub
 
Перейти    
Замена случ. буквы на знак "_", при помощи VBA
 
#
06.10.2015 07:55:14
Сергей, спасибо за пояснение!
 
Перейти    
Замена случ. буквы на знак "_", при помощи VBA
 
#
05.10.2015 15:10:16
Sanja, Спасибо за ответ. Но при получении данного кода у меня возник следующий вопрос, который я не описал заранее:
Как нужно изменить код, чтобы при его обновлении у меня не возникало новых знаков "_".
То есть мне нужно добиться следующих результатов: при обновлении кода просто заменяется другая буква в ячейке, а в данном случае при каждом обновлении добавляется новый знак "_"
 
Перейти    
Замена случ. буквы на знак "_", при помощи VBA
 
#
04.10.2015 23:09:51
Коллеги, здравствуйте. Можете подсказать в вопросе: можно ли с помощью VBA выполнить следующую процедуру: заменить любую случайную букву в слове, находящемся в определенной ячейке, на знак "_"?
 
Перейти    
Из ВПР в Ссылку на ячейку, При помощи VBA
 
#
26.09.2015 16:46:22
Sanja, Спасибо огромное!
 
Перейти    
Из ВПР в Ссылку на ячейку, При помощи VBA
 
#
26.09.2015 10:30:35
Попытка хорошая, но нет.
1. Не должно быть гиперссылки.
2. Финальная формула в ячейке должна  быть просто "=a2" (пример)
 
Перейти    
Из ВПР в Ссылку на ячейку, При помощи VBA
 
#
26.09.2015 09:24:58
Всем доброго времени суток. Коллеги, опять-таки нужна ваша помощь.
Ситуация у меня следующая: На работе изменились требования по предоставлению отчетов в Excel. Раньше нужные ячейки на разных листах (черновых и отчетных) достаточно было связывать при помощи ВПР, сейчас же ячейки на отчетных листах должны соединяться с черновыми только посредством прямых ссылок и чтобы сократить в разы время, затраченное на эту операцию у меня возник следующий вопрос?
Можно ли создать макрос, который будет изменять значение ячейки (которое было найдено при помощи ВПР) в ссылку на исходную ячейку.

Прикладываю пример ниже.
 
Перейти    
Заполнение ячеек при помощи CheckBox
 
#
24.09.2015 13:23:52
Юрий М, на основе вашего совета я просто использовал событие AfterUpdate и все заработало как нужно. По крайней мере пока что)
 
Перейти    
Заполнение ячеек при помощи CheckBox
 
#
24.09.2015 10:56:16
Юрий, можно еще вопрос. ТекстБоксы не поддаются редактированию, то есть когда я начинаю изменять значение Текстбокса, ексель мне выдает следующую ошибку:
  • Run-time error '13': Type mismatch

Подскажите, как от этой ошибки можно избавиться, точнее как настроить ТекстБокс, чтобы его можно было редактировать?
 
Перейти    
Страницы: 1 2 След.
Наверх