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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 493 След.
VBA. Вставка имени "умной таблицы" в код макроса
 
Цитата
Александр Иванов написал: Как их предоставить?)
Приложить файл-пример. Как есть - Как надо.
И измените свое стартовое сообщение - код оформите в соответствии с Правилами форума (как в моем сообщении выше). На панели инструментов значок <...>
Изменено: Sanja - 22 Авг 2019 17:38:22
Согласие есть продукт при полном непротивлении сторон.
VBA. Сравнение двух версий одного файла
 
Так если нужен, кто мешает его написать? В чем проблема то?
Согласие есть продукт при полном непротивлении сторон.
VBA. Вставка имени "умной таблицы" в код макроса
 
Код
Dim myTbl As ListObject
  Set myTbl = Sheets("Sheet2").ListObjects("Таблица1")  'умная таблица
  arrAll_Data = myTbl.DataBodyRange 'получаем массив ВСЕХ данных области данных умной таблицы
  arrClm_3 = myTbl.ListColumns(3).DataBodyRange 'массив данных третьего столбца области данных
The VBA Guide To ListObject Excel Tables
Изменено: Sanja - 22 Авг 2019 17:44:51
Согласие есть продукт при полном непротивлении сторон.
VBA В чем причина неработоспособности кода умножения диапазона значений за счет «.value = .value * 100 »
 
Нельзя изменить сразу ВСЕ значения массива. Вам поможет цикл или специальная вставка с операциями деления, а затем умножения
Согласие есть продукт при полном непротивлении сторон.
ячейки с зада :), и такое бывает
 
О как!
Согласие есть продукт при полном непротивлении сторон.
Суммирование площадей объектов, расположенных по одному адресу
 
Сводная таблица
Согласие есть продукт при полном непротивлении сторон.
Снять галочки с чекбоксов
 
Цитата
НСС написал: при большом количестве чекбоксов
Можно вообще отказаться и от флажков и от чекбоксов.
См. в файле вариант с Псевдочекбоксами
Согласие есть продукт при полном непротивлении сторон.
Перейти на одну видимую ячейку вниз
 
Цитата
Jack Famous написал: Если у ТС проблема именно с циклом, то можно через Find, вроде
Думаю, что внутри Find зашит такой же цикл
Согласие есть продукт при полном непротивлении сторон.
VBA - удаление определенных ячеек
 
Цитата
ff48 написал: И подскажите что написать вместо With Sheets("Test 1")
Вместо этого нужно делать цикл по листам
Скрытый текст
Изменено: Sanja - 17 Авг 2019 08:11:25
Согласие есть продукт при полном непротивлении сторон.
VBA - удаление определенных ячеек
 
В файле, ячейки, которые должны быть очищены, выделены цветом. Желтым и голубым соответственно. Для наглядности
Код
Sub RedPink()
Dim iPink As Range, iRed As Range
Dim iAdr$
arrRange = Array("B3:I52", "B55:I104", "J3:Q52", "J55:Q104")
For I = LBound(arrRange) To UBound(arrRange)
    With Range(arrRange(I))
    Set iPink = .Find("Розовый")
    If Not iPink Is Nothing Then
      iAdr = iPink.Address
      Do
        iPink.Offset(, -2).Resize(, 2).ClearContents
        Set iPink = .FindNext(iPink)
      Loop While Not iPink Is Nothing And iPink.Address <> iAdr
    End If
    iAdr = ""
    Set iRed = .Find("Красный")
    If Not iRed Is Nothing Then
      iAdr = iRed.Address
      Do
        iRed.Offset(1).Resize(.Rows.Count - iRed.Row + .Row - 1).ClearContents
        Set iRed = .FindNext(iRed)
      Loop While Not iRed Is Nothing And iRed.Address <> iAdr
    End If
    End With
Next
End Sub
Согласие есть продукт при полном непротивлении сторон.
Как задать формулу "ДЛСТР" если больше = ошибка
 
Цитата
Михаил Иванченков написал:
вывести значение - суммы символов если больше заданного?
А чем Вас так условное форматирование отпугивает?
Код
=ЕСЛИ(ДЛСТР(A13)>30;ДЛСТР(A13);"")
Изменено: Sanja - 16 Авг 2019 19:29:20
Согласие есть продукт при полном непротивлении сторон.
Перейти на одну видимую ячейку вниз
 
На одну ячейку ниже ЧЕГО?
Цикл показан как пример перехода на одну ячейку ниже предыдущей видимой.
Вам что надо?
Согласие есть продукт при полном непротивлении сторон.
Как задать формулу "ДЛСТР" если больше = ошибка
 
Формула в ячейке может вернуть или значение или ошибку. Формат ячейки формулой не изменить
Согласие есть продукт при полном непротивлении сторон.
Перейти на одну видимую ячейку вниз
 
Код
Sub VisibleValue()
Dim iCl As Range
For Each iCl In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells
  MsgBox "Ячейка: " & iCl.Address(0, 0) & ", значение: " & iCl.Value, vbOKCancel
Next
End Sub
Изменено: Sanja - 16 Авг 2019 18:24:22
Согласие есть продукт при полном непротивлении сторон.
Как задать формулу "ДЛСТР" если больше = ошибка
 
Цитата
Михаил Иванченков написал: перелистал кучу информации
Не в той куче листали
Код
=ЕСЛИ(ДЛСТР(A13)>30;"Любая надпись";"")
Согласие есть продукт при полном непротивлении сторон.
Динамическое значение при поиске решения в VBA
 
J лишняя
Код
For I = 58 To 63
  SolverOk SetCell:="$J$65", MaxMinVal:=3, ValueOf:=Range("J53").Value, _
    ByChange:="$J$58:$J$63", Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$J$" & I, Relation:=1, FormulaText:="$O$" & I - 14
    SolverAdd CellRef:="$J$" & I, Relation:=3, FormulaText:="$N$" & I - 14
Next
Согласие есть продукт при полном непротивлении сторон.
Вызов процедуры книги из надстройки
 
Код
Application.Run ("ИмяКниги.xlsm!ИмяМодуля.ИмяМакроса")
'Если в имени файла есть пробелы
Application.Run ("'ИмяКниги.xlsm'!ИмяМодуля.ИмяМакроса")
Книга должна быть открыта
Изменено: Sanja - 16 Авг 2019 11:19:02
Согласие есть продукт при полном непротивлении сторон.
Почему фильтр работает только на часть таблицы?
 
Потому что есть разрыв в таблице. Используйте Умную таблицу
Согласие есть продукт при полном непротивлении сторон.
Динамическое значение при поиске решения в VBA
 
Может как-то так
Код
For I = 58 To 63
  SolverOk SetCell:="$J$65", MaxMinVal:=3, ValueOf:="$J$53", ByChange:="$J$58:$J$63", Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$J$" & I, Relation:=1, FormulaText:="$O$" & I + 14
    SolverAdd CellRef:="$J$" & I, Relation:=3, FormulaText:="$N$" & I + 14
Next
Согласие есть продукт при полном непротивлении сторон.
Формула для отображения текста из нескольких ячеек в одной
 
Цитата
Contact_me написал: Подскажите, пожалуйста, из-за чего это происходит?
Из-за этого.
Вы переменной присваиваете некое действие (Select в Вашем случае) и если оно выполнено, то значит переменная равна True
Код
Str = Range(Cells(i + 1, 2), Cells(j - 1, 2)).Select
Согласие есть продукт при полном непротивлении сторон.
Язык запросов 1С в VBA
 
А стандартный экспорт из 1С в Excel существует? Я, просто, не в курсе
Согласие есть продукт при полном непротивлении сторон.
Язык запросов 1С в VBA
 
Как вариант выгружать на лист, загружать с него в массив и обрабатывать стандартными методами.
А можно увидеть в каком виде
Цитата
P.lankton написал: в VBA поступает результат выполнения запроса - объект таблицы значений
Согласие есть продукт при полном непротивлении сторон.
Наименование валюты прописью
 
По просьбе Олег, выкладываю полную версию функции (сумма прописью)
ЧИСЛИТ
Согласие есть продукт при полном непротивлении сторон.
Наименование валюты прописью
 
Переделал из своей 'суммы прописью'. 4-ре вида валюты (RUB, USD, EUR, AMD)
Согласие есть продукт при полном непротивлении сторон.
Наименование валюты прописью
 
Цитата
Олег написал: Поиском нахожу только сумму прописью
А какая разница?
Согласие есть продукт при полном непротивлении сторон.
Вставка строки ниже через макрос
 
Цитата
mart55 написал: на одном листе несколько таблиц
В Вашем примере таблица (если ее вообще можно так назвать) одна. Приведите пример, более соответствующий реальным данным
Согласие есть продукт при полном непротивлении сторон.
Перейти в ячейку в столбце А, номером строки которой будет является значение в другой ячейке, Макросом перейти в ячейку в столбце А, номером строки которой является значение в D1
 
И формула в D1 не нужна
Код
Range("A" & Cells(Rows.Count, "A").End(xlUp).Row).Select
П.С. Скорее всего и .Select не нужен. Для того, что бы что-то сделать с ячейкой, выделять ее совсем не обязательно
Изменено: Sanja - 14 Авг 2019 05:53:41
Согласие есть продукт при полном непротивлении сторон.
[ Закрыто] При выборе товара цену вставлять автоматически.
 
Проверка данных и ВПР
Согласие есть продукт при полном непротивлении сторон.
Редактирование ячейки, создание из одной формы списка другую форму
 
ОФФ. Вы принципиально неверно подходите к решению проблемы. Ваши исходные данные и так малопригодны для прямой обработки, а Вы продолжаете лепить все в одну ячейку. Грамотнее будет исходные данные разбить на три отдельных столбца (Тип, Серийный номер, Инвентарный номер) и уже из них склеивать нужные тексты.
Например таким макросом
Код
Option Explicit

Sub MySplit()
Dim lRow&, I&, J&, N&, M&
Dim arr(), arrNew()
Dim iTxt, iStr
lRow = Cells(Rows.Count, "A").End(xlUp).Row
If lRow = 1 Then
    ReDim arr(1, 1)
    arr(1, 1) = Range("A1").Value
Else
    arr = Range("A1:A" & lRow).Value
End If
ReDim arrNew(1 To UBound(arr) * 3, 1 To 3)
For I = LBound(arr) To UBound(arr)
    iTxt = Split(arr(I, 1), Chr(10))
    For J = LBound(iTxt) To UBound(iTxt)
        iStr = Split(iTxt(J), ":")
        Select Case True
            Case iStr(0) Like "*Тип оборудования*": N = 1: M = M + 1
            Case iStr(0) Like "*Серийный*": N = 2
            Case iStr(0) Like "*Инвентарный*": N = 3
        End Select
        If N <> 0 Then
            arrNew(M, N) = Trim(iStr(1))
        End If
        N = 0
    Next
Next
Range("A" & lRow + 2).Resize(M, 3) = arrNew
End Sub
Изменено: Sanja - 13 Авг 2019 08:16:56
Согласие есть продукт при полном непротивлении сторон.
скрытие ячейки при выборе значения из списка
 
Ячейку скрыть нельзя. Можно скрыть или строку или столбец целиком
В Вашем случае можно с помощью УФ управлять цветом текста в ячейках B7 и B8
Изменено: Sanja - 12 Авг 2019 21:58:17
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 493 След.
Наверх