Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Вычисление sin^n (x) оформить в виде функции Вычисление sin^n (x) нужно оформить в виде функции. https://www.cyberforum.ru/ vba/ thread801074.html VBA (Word) - поиск постранично VBA
Добрый день, есть проблема. Существует большой файл подготовленных к печати документов (Word). Задача - открыть XLS файл и идти по каждой строке и искать совпадения с номерами в Word. С этим нет проблем. Проблема вот в чем. Алгоритм прост: Если находим в документе Word номер из колонки Excel, то начинаем искать в документе Word номер из другой колонки Excel. Если номера страниц первое...
VBA Посчитать значения функции и вывести в разные ячейки дана функция w= sqr(0.2*x*k), x < m/2 ; exp(-2)*x*k, x >= m/2. Значения переменных x=-7*10-3; k=3; m=4, 0, 5, 8. Нужно сделать с использование цикла for..next, чтобы каждое значение выводилось в отдельную ячейку, посчітать для каждого m с заданным условием вот мой код но он что то не работает) значения все время одинаковые выводит в 4 ячейки Private Sub CommandButton1_Click() Dim k As Single,... https://www.cyberforum.ru/ vba/ thread801034.html VBA Какая команда программы "Excel" аналогична параметру "DataOption1" "DataOption1" - это параметр метода "Sort Method" в VBA-Excel. Метод "Sort" применялся в Excel 2003, в Excel 2007 остался, я так понял, для совместимости. https://www.cyberforum.ru/ vba/ thread800986.html
Обеспечить работу макроса на любом листе VBA
у меня есть макрос. Sub test2() Dim wsh As Worksheet Dim i As Long Dim j As Long Dim m As Long Set wsh = ThisWorkbook.Worksheets("Лист1")
VBA Выпадающий список VBA https://www.cyberforum.ru/ vba/ thread800625.html
Люди добрые уже два дня мучаю свою головушку, перерыл кучу инфы, так и не получается у меня сделать выпадающий список в vba. Помогите кто сможет. Файл во вложении
VBA Как передать адрес строки в функцию https://www.cyberforum.ru/ vba/ thread800415.html
с1 - проверяемое значение Public Function ReadTable(c1 As Integer) With Sheets("Лист1") If c1 = 60 Then "как найти номер строки функции".Hidden = True End if End With End Function Мне нужно, чтобы функция проверяя значение ячейки, скрывала бы строку где она находится или отображала строку.
VBA Application-defined error при добавлении связного выпадающего списка
Всем привет! Создаю связный выпадающий список следующим образом: Application.ReferenceStyle = xlR1C1 vrng = "=OFFSET(Списки!R1C2,IFERROR(MATCH(RC,Списки!R1C2:R100C2,0),1)-1,2,1,IFERROR(VLOOKUP(RC,Списки!R1C2:R100C3,2,0),0)+2)" With rr.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
VBA Обеспечить работу макроса для всех листов Допустим я сделал макрос для листа под названием "январь", а как сделать для всех листов в книге с названиями месяцев, что бы вручную не вводить название каждого месяца в макросе? https://www.cyberforum.ru/ vba/ thread800388.html VBA Вывод делителей натурального числа https://www.cyberforum.ru/ vba/ thread800371.html
Sub Z4() A = InputBox("Введите натуральное число") If A <= 0 Then MsgBox ("Ошибка ввода данных") Exit Sub End If Count = 0 For i = 1 To A If A / i - Int(A / i) = 0 Then Count = Count + 1
Если количество символов в ячейке меньше чем нужно, выделить ее цветом VBA
Подскажите, как с помощью VBA-макроса (excel) выделить цветом ячейку, если количество символов в ней меньше, чем нужно? Для примера - имеем столбец A: 08:57-18:11 08:59-18:08 08:58-18:09 08:57-18:11 8:57
VBA Как получить название файла? Всем привет! Например, в папке X имеются файлы a,b и с. как мне полусить названия этих файлов?(т.е. всех файлов, которые находяться по какому то пути) Спасибо!!! https://www.cyberforum.ru/ vba/ thread800254.html
6922 / 2832 / 543
Регистрация: 19.10.2012
Сообщений: 8,645
05.03.2013, 15:02 0

Поиск меток - VBA - Ответ 4214343

05.03.2013, 15:02. Показов 2458. Ответов 27
Метки (Все метки)

Ответ

Ищет и скрывает. Правда чуть подправил Ваш код.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub trvi()
    Dim Poisk As Range
 
    With Worksheets(1)
        Set Poisk = .Range("A1:Z100").Find(What:="qw", LookIn:=xlValues, _
                                           LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                                           MatchCase:=False, SearchFormat:=False)
        If Not Poisk Is Nothing Then
            sa = Poisk.Address
            Do
                Set Poisk = .Range("A1:Z100").FindNext(After:=Poisk)
                MsgBox Poisk.Row
                .Rows(Poisk.Row).Hidden = True
            Loop While Not Poisk Is Nothing And Poisk.Address <> sa
        End If
    End With
End Sub


Вернуться к обсуждению:
Поиск меток VBA
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2013, 15:02
Готовые ответы и решения:

Замена меток в документе WORD данными из EXCEL
Доброго времени суток. Возникла необходимость на работе в создании данного макроса, а правильно...

Построить график тела, брошенного под углом к горизонту с автоподбором масштаба и меток
Доброго времени суток, котята. Есть приблизительный код Апостроффа, как его переделать только в...

Использование меток
Доброго времени суток. Есть, так сказать, legacy-код, если так можно сказать о PascalABC.NET)...

Массив меток
Возможен-ли массив меток, аналогичный массиву процедур?

27
05.03.2013, 15:02
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2013, 15:02
Помогаю со студенческими работами здесь

Создание меток
Как возвратить ход вычислений в начало, таким образом чтобы у пользователя был выбор - выход по...

Размеры меток
Доброго времени суток! Помогите пожалуйста! Есть прога парсинг центробанка. В результате ее работы...

оператор меток
Тут программа которую мне делать помогали, она не совсем правильная. Надо чтобы выводилось кол-во...

Избавление от меток
есть два куска кода полные меток, проблема в том, что не понимаю логики, вот первый: DO 430...

Передача меток
Всем привет! - Есть site1.ru на него приходит трафик с метками - Когда пользователь заходит на...

Перемещение меток по форме
Builder 6 C++ Необходимо чтобы 1 и 0 ВМЕСТЕ двигались. т.е. они двигаются, но надо сделать так,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru