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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 420 След.
исключение #Н/Д c помощью цикла в VBA
 
Пройдите по коду пошагово и посмотрите что у вас в переменной i
Согласие есть продукт при полном непротивлении сторон.
Подсчет слов в таблице, Подсчет слов в таблице
 
Код
=СЧЁТЕСЛИ(A2:A8;"*сл*")
Согласие есть продукт при полном непротивлении сторон.
Извлечь все подстроки с помощью регулярных выражений
 
Цитата
Михаил написал: А хотелось вот так:
А почему ' ups ' не попал в результаты?
Согласие есть продукт при полном непротивлении сторон.
Табличка с уникальными значениями
 
Данные - Работа с данными - Удалить дубликаты
Согласие есть продукт при полном непротивлении сторон.
Адрес ячейки из RefEdit
 
В моем файле не ругается
Согласие есть продукт при полном непротивлении сторон.
Адрес ячейки из RefEdit
 
Цитата
Владимир Л написал: Хочу так
Так и кто мешает?
Код
Range(Me.RefEdit1.Value).Value = "Какие-то данные"
Согласие есть продукт при полном непротивлении сторон.
Адрес ячейки из RefEdit
 
Что значит 'получаю'? Где-то (в переменной) Вы его, наверное, сохраняете? Файл-пример в студию. Как есть - Как надо
Согласие есть продукт при полном непротивлении сторон.
Макрос сохранение файла
 
Код
'Переменными в коде
iFolder = "C:\Users\User\Desktop\SLA\"
iFile = "Адская Сатана.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
iFolder & iFile, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
'Значениями из ячеек. A1 - путь к папке, A2 - имя файла
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("A1") & Application.PathSeparator & Range("A2"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Согласие есть продукт при полном непротивлении сторон.
Как пройтись по всем не скрытым листам?
 
Цитата
RAN написал: Никак
Андрей, не так категорично. Если знать заранее имена не скрытых листов, и если очень хочется, то можно  :)  
Изменено: Sanja - 7 Авг 2018 19:41:58
Согласие есть продукт при полном непротивлении сторон.
Сохранение и/или изменения цвета элемента массива, Сохранение и/или изменения цвета элемента массива
 
1. Нет
2. См. п.1
Согласие есть продукт при полном непротивлении сторон.
Удаление Лист2 из нескольких книг, VBA
 
ПРОСМОТРЕТЬ ВСЕ ФАЙЛЫ В ПАПКЕ
Согласие есть продукт при полном непротивлении сторон.
VBA отмена запущенного макроса
 
Цитата
MR.TONY написал: Как прописать в самом макросе, чтобы это было возможно сделать ?
Непонятно что Вам нужно. Прописывайте в макросе выполнение/не выполнение нужных действий при определенных условиях
Согласие есть продукт при полном непротивлении сторон.
VBA отмена запущенного макроса
 
Код
Application.Undo
отмена последнего действия
Согласие есть продукт при полном непротивлении сторон.
Разность двух массивов с помощью коллекции
 
Сообщение #5 видели?
Согласие есть продукт при полном непротивлении сторон.
Разность двух массивов с помощью коллекции
 
Код
Function DiffArrays(a, b)
Dim I&, J&, N&, c()
On Error Resume Next
With CreateObject("Scripting.Dictionary")
    For I = LBound(a) To UBound(a)
        For J = LBound(a, 2) To UBound(a, 2)
            iTemp = .item(a(I, J))
        Next
    Next
    For I = LBound(b) To UBound(b)
        For J = LBound(b, 2) To UBound(b, 2)
            If Not .Exists(b(I, J)) Then
                ReDim Preserve c(N)
                c(N) = b(I, J)
                N = N + 1
            End If
        Next
    Next
End With
DiffArrays = Application.Transpose(c)
End Function

Sub TestArrayDifference()
  Dim array1, array2 As Variant
  Dim result1, result2 As Variant
  Dim arr, arrSec
   
  With Workbooks("test.xlsm").Worksheets("Лист1")
array1 = .Range("B1", .Cells(.Rows.count, "A").End(xlUp)).Value
End With
  With Workbooks("test.xlsm").Worksheets("Лист2")
array2 = .Range("B1", .Cells(.Rows.count, "A").End(xlUp)).Value
End With
  
  result1 = DiffArrays(array1, array2)
   
With Workbooks("test.xlsm").Worksheets("разность")
     .Cells(1, 1).Resize(UBound(result1), 1) = result1
End With
End Sub
Согласие есть продукт при полном непротивлении сторон.
Правило или макрос, чтобы ячейка с ошибкой #ДЕЛ/0! не была заметна
 
Цитата
Ігор Гончаренко написал: и не будет ошибки #ДЕЛ/0!
:D
Цитата
ikares написал: Не совсем Вы правы
Согласие есть продукт при полном непротивлении сторон.
Правило или макрос, чтобы ячейка с ошибкой #ДЕЛ/0! не была заметна
 
Цитата
ikares написал:
чтобы ячейка с ошибкой не была заметна
надо ошибки не 'замазывать', а не допускать. Если будет файл-пример можно будет сказать более конкретно
Согласие есть продукт при полном непротивлении сторон.
Зафиксировать книги из которых макрос собирает листы, Собираю листы из разных книг в одную общую
 
Без проверки на корректность имени листа
Код
................................
While x <= UBound(FilesToOpen)
    Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
    Sheets(3).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = importWB.Name
    importWB.Close savechanges:=False
    x = x + 1
Wend
.................................
Согласие есть продукт при полном непротивлении сторон.
выполнить все условия одной строкой
 
Код
If Range("AE" & i) = 1 And Range("AE" & i - 1) = 0 And (Range("AE" & i + 1) = 1 Or Range("AE" & i + 1) = 0) Then...
Согласие есть продукт при полном непротивлении сторон.
Ошибки Plex 2017.2
 
Цитата
lukscha написал: сравниваю д1 и д2
Это что такое? Адреса ячеек? Так в них ничего нет, зачем их сравнивать?
Цитата
lukscha написал: не находит не совпадающие
В Вашем файле, в ячейках A1 и B1 одинаковый текст. Что Вы хотите найти? Какие НЕ совпадающие? Каким инструментом пытаетесь это сделать? Причем тут PLEX?
Согласие есть продукт при полном непротивлении сторон.
как удалить примечания(comments) в VBA
 
Код
Dim iCmt As Comment
With Workbooks("Книга1").Sheets("Лист1")
    For Each iCmt In .Comments
        'если примечание НЕ в ячейке A1 или A2, то удаляем
        If Intersect(.Range("A1:A2"), iCmt.Parent) Is Nothing Then iCmt.Delete
    Next
End With
Согласие есть продукт при полном непротивлении сторон.
VBA инициировать нажатие сочетания клавиш
 
Оператор SendKeys
Согласие есть продукт при полном непротивлении сторон.
Как посчитать количество лет формулой
 
А зачем Вам EVALUTE? Используйте DateDiff напрямую
Согласие есть продукт при полном непротивлении сторон.
значение из ячейки в виде названия листа книги в формуле
 
Для ФИО
Код
=ВПР(B1;ДВССЫЛ(B2&"!$B$2:$D$13");1;0)
остальные по аналогии
Согласие есть продукт при полном непротивлении сторон.
[ Закрыто] VBA: Распределение работ. Формирование списка по критерию
 
Цитата
ejik-v-2mane написал: Я заполнила столбец ТМ текущий
А какова логика такого заполнения?
Согласие есть продукт при полном непротивлении сторон.
Вставить название листа в таблицу
 
Цитата
EVaGuseva написал: Задача
Кому? Задачи ставят в ЭТОМ разделе
Согласие есть продукт при полном непротивлении сторон.
[ Закрыто] как быть?
 
Код
=ВЫБОР(A1+1;"ноль";"единица";"двойка")
Согласие есть продукт при полном непротивлении сторон.
Как присвоить переменной адрес несмежного диапазона
 
Цитата
Giltis написал: Тогда буду искать обходные пути
Один из них - забирать ЗНАЧЕНИЯ из нужного диапазона в массив и уже его вставлять в нужное место. Но это уже совсем другая история...
Согласие есть продукт при полном непротивлении сторон.
Как присвоить переменной адрес несмежного диапазона
 
Этот вопрос выходит за рамки названия Темы.
Для начала попробуйте в принципе скопировать несмежный диапазон. Просто, руками, без VBA
Согласие есть продукт при полном непротивлении сторон.
[ Закрыто] как быть?
 
Цитата
ракВэкселе написал: как быть?
Прочитать Правила форума, для начала. Про название Темы, про описание задачи и прочее
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 420 След.