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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 486 След.
Как указать номер строки через переменную
 
Код
iRow = 3
With Selection
    .Copy Sheets("Закрытые").Cells(iRow, 2)
    .EntireRow.Delete
End With
Изменено: Sanja - 18 Июл 2019 20:40:50
Согласие есть продукт при полном непротивлении сторон.
Макрос для обратной нумерации ячеек в столбце
 
Цитата
Gold_Barsik написал: начинать заново
И до каких пор это продолжать? 1 048 576 строк?  
Согласие есть продукт при полном непротивлении сторон.
Извлечь числовые значения из текстовой строки после определенных слов
 
Цитата
Serg Villain написал: Условие и ожидаемый результат во вложении.
Возможное решение по ссылке
Согласие есть продукт при полном непротивлении сторон.
VBA: при вводе формулы в таблицу нужна подсказка, подсказки для формулы
 
Цитата
amiraraya написал: а можно файл с примером
Так кто ж запрещает?! Конечно можно, прикладывайте. Заодно и мы посмотрим
Согласие есть продукт при полном непротивлении сторон.
Комплексное обновление (изменение содержания) всех модулей n-кол-ва книг в папке через VBA из другой (ОСНОВНОЙ) книги
 
Цитата
falmrom написал: В будущем переведу...
Ооооочень сомневаюсь. Вы изначально завязнете в своих неправильных путях.
Какая разница, раз Вы начинали с нуля, что начинать реализовывать?
Согласие есть продукт при полном непротивлении сторон.
Комплексное обновление (изменение содержания) всех модулей n-кол-ва книг в папке через VBA из другой (ОСНОВНОЙ) книги
 
Цитата
falmrom написал: Пробуйте его
8-0 Чур меня! Вдруг заразно?!
Цитата
falmrom написал: но уже начал реализацию именно через этот нелогичный, жесткий путь
Вам же в самом начале указали ПРАВИЛЬНЫЙ путь!
Согласие есть продукт при полном непротивлении сторон.
Нужна помощь в написании простого макроса, Написание макроса
 
Напишите более развернутое ТЗ. И файл-пример не помешает
Согласие есть продукт при полном непротивлении сторон.
VBA: при вводе формулы в таблицу нужна подсказка, подсказки для формулы
 
Подсказка для пользовательской функции,
Согласие есть продукт при полном непротивлении сторон.
Комплексное обновление (изменение содержания) всех модулей n-кол-ва книг в папке через VBA из другой (ОСНОВНОЙ) книги
 
Подолью масла в огонь, может Вас быстрее отпустит ;)
Скрытый текст

Еще
Скрытый текст
Согласие есть продукт при полном непротивлении сторон.
Комплексное обновление (изменение содержания) всех модулей n-кол-ва книг в папке через VBA из другой (ОСНОВНОЙ) книги
 
Цитата
Nordheim написал: Суть не в том, что жалко или не жалко памяти
Цитата
falmrom написал: В голову лезет только импорт\экспорт модулей.

Nordheim, человеку это фигня уже залезла в голову, он обречен   :cry:  
Согласие есть продукт при полном непротивлении сторон.
VBA. Перемещение строк между листами с использованием массивов, Помогите доработать макрос.
 
Все SRow в моем коде замените на I (английская И)
Код
kon(N, J) = ish(I, J) и т.п.
Согласие есть продукт при полном непротивлении сторон.
VBA. Перемещение строк между листами с использованием массивов, Помогите доработать макрос.
 
Цитата
fynt1l написал: Проблема быстродействия макроса. Как решить с помощью массивов. Тема.
Все давно предложено за Вас. См. сообщение #3
Согласие есть продукт при полном непротивлении сторон.
Комплексное обновление (изменение содержания) всех модулей n-кол-ва книг в папке через VBA из другой (ОСНОВНОЙ) книги
 
По теме

Осуществить экспорт всех модулей из текущей книги, в указанную папку, в виде соответствующих файлов, можно так : (VBProject не должен быть защищён)

Код
Private Sub ExportAllVBComponents() 
    iTempPath$ = Environ("Temp") & "\" 'укажите свою папку 
    For Each iVBComponent In ThisWorkbook.VBProject.VBComponents 
        Select Case iVBComponent.Type 
            Case 1: iType$ = ".bas" 
            Case 3: iType$ = ".frm" 
            Case 2, 100: iType$ = ".cls" 
        End Select 
        iVBComponent.Export _ 
        FileName:=iTempPath$ & iVBComponent.Name & iType$ 
    Next 
End Sub
Для того, чтобы программно импортировать текстовый файл .bas или .txt, который уже содержит некий программный код (макрос), можно использовать несколько вариантов :

Вариант I.
Код
ThisWorkbook.VBProject.VBComponents.Import "C:\Модуль1.bas"

Примечание : Если в текущей книге уже находится модуль с именем, которое совпадает с именем, которое, как правило, находится в самой первой 
строке текстового файла и выглядит так, Attribute VB_Name = "Модуль1", то импорт пройдёт успешно. 
Только имя нового модуля будет немного отличаться. Например, если мы импортируем модуль с именем "Модуль1", а такой уже есть, 
то появится "Модуль11". Если и такое имя уже занято, то "Модуль12" и т.д. 

Комментарий : Обратите внимание на то, что этот способ позволяет импортировать не только стандартный модуль, но и модуль класса .cls, а также формы .frm 
Вариант II.
Код
ThisWorkbook.VBProject.VBComponents.Add(1).CodeModule.AddFromFile "C:\Модуль1.bas"

Примечание : При таком способе, сначала будет создан стандартный модуль. 
Затем, имя нового модуля будет изменено на указанное в файле, после чего, в новый модуль будет вставлено содержимое указанного файла. 
Если, на момент "импорта", в текущей книге уже находится модуль с таким именем, то возникнет ошибка 32813
Вариант III.
Код
ThisWorkbook.Modules.Add.InsertFile "C:\Модуль1.bas"

Примечание : Этот вариант аналогичен предыдущему, только позволяет создать модуль, даже при отсутствии доверенного доступа к VBProject. 
Но, если есть плюсы, значит есть и минусы. Во первых, так как мы создаём модуль листа, то структура книги не должна быть защищена, 
иначе возникнет ошибка 1004  А во вторых, если текстовый файл, текст которого мы "импортируем", 
содержит информацию о имени модуля, типа Attribute VB_Name = "Модуль1", то такого имени не должно быть не только среди модулей, 
но и среди листов (семейство Sheets)
Согласие есть продукт при полном непротивлении сторон.
Комплексное обновление (изменение содержания) всех модулей n-кол-ва книг в папке через VBA из другой (ОСНОВНОЙ) книги
 
Цитата
falmrom написал: В голову лезет только импорт\экспорт модулей. Как это возможно реализовать через VBA ?
Не пускайте это в свою голову!
Это делается так:
Шаблон отчета, вместе с кодом его формирования, хранится в одной книге. Насколько я понял у Вас так и сделано. При необходимости составления отчета по каким либо данным, в этот файл-шаблон подтягиваются данные из нужной книги, формируется отчет, печатается (или сохраняется по своим именем). Файл-шаблон закрывается без сохранения изменений
Схематично как-то так
Согласие есть продукт при полном непротивлении сторон.
Возможно ли автоматическое формирование таблиц?
 
Да, такое вполне возможно. Только для начала Ваши исходные данные для анализа нужно привести (и вести далее) к виду 'плоской таблицы', а уже по ней можно строить практические любые отчеты с помощью Сводных таблиц
Согласие есть продукт при полном непротивлении сторон.
VBA. Перемещение строк между листами с использованием массивов, Помогите доработать макрос.
 
Тема: VBA. Перемещение строк между листами с использованием массивов
Без файлов как-то так (не проверял)
Скрытый текст


Согласие есть продукт при полном непротивлении сторон.
Как получить изменненый диапозон с помощью формулы
 
Цитата
Alex D написал: А можно ли сделать вот так?
Нет, нельзя
Согласие есть продукт при полном непротивлении сторон.
Макрос расширенного фильтра из события листа на кнопку
 
Цитата
Sinet написал: Переделать для использования после нажатия на кнопку?
Переделано?
Остальное не по теме
Согласие есть продукт при полном непротивлении сторон.
Макрос расширенного фильтра из события листа на кнопку
 
Код
Sub MyButton()
On Error Resume Next
With ActiveSheet
    .ShowAllData
    .Range("A7").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("A1").CurrentRegion
End With
End Sub
Согласие есть продукт при полном непротивлении сторон.
Ошибка 1004 при попытке выполнить ActiveWorkbook.SaveAs, если используется переменная папки.
 
Макрос 1
Сотрите, что у Вас в переменной vFile в момент ошибки.
Может быть что-то типа задвоенного слэша или другие, недопустимые для пути данные
Макрос 2
Что-то с кодировкаой
Согласие есть продукт при полном непротивлении сторон.
Звпуск по таймеру только для определенного листа
 
Все в файле
Теория ТУТ
Согласие есть продукт при полном непротивлении сторон.
Rак определить, что ячейка входит в определенный диапазон?
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("C1")) Is Nothing Then '(подсвечивается эта строка при ошибке)
       If Target.Value <> "" Then
           If Len(Target.Value) < 30 Then
               Target.Parent.Name = Target.Value
           End If
       End If
   End If
End Sub

Private Sub CommandButton1_Click()
    Range("B11:E110, L11:O110, V11:Y110").ClearContents
End Sub
Согласие есть продукт при полном непротивлении сторон.
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Fsociety_ написал: Sanja , прошу прощения
Да без проблем. Просто то, что Вы хотите, гораздо проще и эффективнее решается встроенными командами VBA, а Ваш подход мало чем отличается от обычного ввода формулы в ячейку и растягивания ее на нужный диапазон.
Согласие есть продукт при полном непротивлении сторон.
Перебор файлов в папках
 
ПРОСМОТРЕТЬ ВСЕ ФАЙЛЫ В ПАПКЕ
По ссылке есть код, с возможность выбора параметра - смотреть во вложенных папках или нет
Согласие есть продукт при полном непротивлении сторон.
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Андрей VG написал: Хотя, можно как-то где-то так, пусть и не быстро
Цитата
Fsociety_ написал: Второй вариант вроде то что нужно
Неужели, то что предложил Андрей VG, во втором варианте, для Вас проще, чем предложенный мной вариант в сообщении #8?
Снимаю шляпу....
Согласие есть продукт при полном непротивлении сторон.
Применение функции SumByColor (суммирование по цвету) в качестве счетчика непустых ячеек
 
Я так понимаю под смещением вы имеете ввиду эту строку?

Sum = Sum + cell(1, 3).Value

Как по Вашему на какую ячейку будет смещение? Какой у нее будет адрес?
Думаете на HZ7 относительно D7?
Если Вы скрыли столбцы, то это не значит, что они исчезли
       
Согласие есть продукт при полном непротивлении сторон.
Применение функции SumByColor (суммирование по цвету) в качестве счетчика непустых ячеек
 
Цитата
Евгений И. написал: Уточнение: в функции заложено смещение по столбцам и строкам, прошу его не менять.
Вот это зря. Лучше введите еще один аргумент
Код
Public Function CountByColor(DataRange As Range, ColorSample As Range, TextRange As Range) As Double
     Dim iCount As Double
     Application.Volatile True
     For Each cell In DataRange
         If cell.Interior.Color = ColorSample.Interior.Color Then
            If Application.IsText(Cells(cell.Row, TextRange.Column)) = True Then
                iCount = iCount + 1
            End If
        End If
     Next cell
     CountByColor = iCount
 End Function
Согласие есть продукт при полном непротивлении сторон.
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Fsociety_ написал: Второй вариант вроде то что нужно, но возможно ли его как то ускорить?
Цитата
Fsociety_ написал: что бы я мог любую формулу подставить в код
А если в формуле больше одного аргумента - ссылки?
Согласие есть продукт при полном непротивлении сторон.
Закрасить ячейку при вхождении в текст слова из диапазона
 
В файле
Согласие есть продукт при полном непротивлении сторон.
Работа формулы внутри макроса в выделенном диапазоне
 
Скажу одно - в ячейке, одновременно, не может быть И формула И значение, даже вычисленное этой формулой. Даже с помощью VBA этого не сделать
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 486 След.
Наверх