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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 180 След.
Работа с "гиперссылкой на файл"
 
Возможно.
Как правильно использовать Range.Offset, если используемая ячейка объединена с другой?
 
В общем случае туды, сюды, обратно.  :D
Код
    With ActiveSheet.Range(baseAddress)
        val = .Offset(offRow, offCol).Offset(1 - .MergeArea.Rows.Count, 1 - .MergeArea.Columns.Count).Value
    End With
Дата последнего обновления в ячейке VBA
 
Цитата
Роман написал:
При чем случайное число
А чем формула случайного числа хуже любой другой?
Дата последнего обновления в ячейке VBA
 
Это с вашей точки зрения, при пересчете происходят какие либо изменения в ячейке.
А на самом деле - какая формула была, такая и осталась, как возвращала она какой-то результат, так и возвращает.
И для того, чтобы отследить изменения, нужно где-то запомнить значения до пересчета, и сравнить со значением после пересчета.
создание word-документов при помощи excel
 
Сильно сомневаюсь, что вам это нужно, но, что просите...
Прикрепление, извлечение файлов из книги Excel
Макрос для заливки выделенных ячеек
 
Цитата
NikaR написал:
Есть ли знатоки, которые помогут сделать простеньикй макрос на заливку, только не конкретного столба или ячейки, а выделенных курсором
Есть. Самый лучший - макрорекордер. Ибо в данном случае он запишет макрос, который, приктически, не нужно править.

PS Вить, вставь описание в наименование - будет самое оно.
Изменено: RAN - 18 Июл 2019 17:17:48
Ошибка 1004 при попытке выполнить ActiveWorkbook.SaveAs, если используется переменная папки.
 
Может Пунто шалит, может еще кто.
Несколько лет назад обсуждалось очень оживленно.
Критерий "больше, но меньше" в формуле суммесли
 
Цитата
БМВ написал:
"больше, но меньше"
явление распространенное. Удивляться нечему.
Критерий "больше, но меньше" в формуле суммесли
 
Господа формулисты, а кто ПРОЧИТАЛ?
Цитата
Евгений И. написал:
пишет "несогласующаяся формула":
:D
Изменение размера флажка ("checkbox")
 
Вы что к человеку с примером пристали?
Какой может быть пример того, что сделать нельзя?
Что значит сообщение Compile error: variable not defined при попытке выполнить макрос?
 
Вить, коды-то разные, причина одна.
И название ничем не хуже этого, или этого
Ввод уникального неповторяющегося номера строки по условию
 
Я, грешным делом, подумал, что единичку прибавить вы и самостоятельно можете. :D
Ввод уникального неповторяющегося номера строки по условию
 
Код
Sub t()
    x = Мяу
End Sub
Function Мяу&()
    Мяу = Application.Max((Sheets(1).Columns(1)), (Sheets(2).Columns(1)))
End Function
Run-time error 1004: Метод Paste из класса Worksheet завершен неверно., Ошибка. Метод Paste из класса Worksheet завершен неверно.
 
Цитата
extrafant написал:
то я забыл добавить вот этот участок кода:
Что значит "забыл"? И зачем в мой код вообще что-либо добавлять? Тем паче эдакое?
Run-time error 1004: Метод Paste из класса Worksheet завершен неверно., Ошибка. Метод Paste из класса Worksheet завершен неверно.
 
Цитата
extrafant написал:
Хотя я заменил содержимое макроса Private Sub openfile()
Если это реакция на мой ответ, то весь код, и текст одной процедуры - вещи разные.
Запускайте сразу openfile.
Run-time error 1004: Метод Paste из класса Worksheet завершен неверно., Ошибка. Метод Paste из класса Worksheet завершен неверно.
 
По ошибке. Строка
 
Код
 ActiveSheet.Cells.Clear

сбрасывает буфер, и вставлять нечего.
Run-time error 1004: Метод Paste из класса Worksheet завершен неверно., Ошибка. Метод Paste из класса Worksheet завершен неверно.
 
Замените ВЕСЬ ваш код. Ему припарками не помочь.
Будет и открываться, как надо, и вставляться, и заменяться.
Код
Private Sub openfile()
    Dim filename$, cl As Range
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = ThisWorkbook.Path & "\"
        .AllowMultiSelect = True
        .Title = "Please select the folder containing the files you want to Import"

        If .Show = -1 Then
            filename = .SelectedItems(1)
        End If
    End With
    If filename = Empty Then End
    Application.ScreenUpdating = False
    With Workbooks.Open(filename)
        shData.UsedRange.Clear
        .Sheets(1).Range("A8").CurrentRegion.Copy shData.Cells(1)
        .Close savechanges:=False
    End With
    On Error Resume Next
    shData.Cells.WrapText = False
    shData.Columns(3).AutoFit
    For Each cl In Intersect(shData.UsedRange, shData.Columns(3))
        cl.Value = Left(cl.Value, InStrRev(cl.Value, " ") - 1)
    Next
    Application.ScreenUpdating = True
End Sub 
Разный результат при выборе файла
 
FolderNames = .SelectedItems(1) & "\"
Код
filename = .SelectedItems(1) 

filename = Dir(filename & "*.xl??")
Разный результат при выборе файла
 
В коде черным по белому написано - открыть первый попавшийся файл в выбранной папке.
С какой радости при повторном запуске этот первый попавшийся файл должен быть другим?
Передача списка ListBox в процедуру
 
Я представил, а макрос все равно не работает.
Копирование значения ячейки из гиперссылки, Нажимая на гиперссылку-значение гиперссылки копировалось
 
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Hyperlinks.Count Then Target.Copy Sheets(2).[a2]
End Sub
Изменено: RAN - 10 Июл 2019 10:07:12
Макрос: поменять местами первые два слова
 
Цитата
Veronikali написал:
Слова могут состоять из двух и более слов.
Конгениально!  :D
макрос закрытия всех файлов по событию открытия файла
 
Application.Quit в разных версиях Excel ведет себя по разному.
Сейчас точно не помню все тонкости, но код, работающий в 2010, в 2016 работать отказался, пришлось химичить.
Удаление китайского
 
В макросе все так, а вот в файле, думаю, нет.
Рост области числа, с ограничением препятствиями
 
Виталий, ну ты и садюга!
Рост области числа, с ограничением препятствиями
 
Цитата
КошкаСофи написал:
Хотя бы теоретически
Как теоретически не скажу, а практически - см сообщение #9.

Я вам задал вопросы, вы их проигнорировали. Переметнулись на другой форум.
Пила в руки, и удачи в допиливании!
Залить разные диапазоны в разные массивы (VBA).
 
Цитата
Vitaliy Ptashnik написал:
способ наполнения массива выборочными диапазонами по условию.
напрямую зависит от этих условий, и искать универсальное решение - только время терять.
Залить разные диапазоны в разные массивы (VBA).
 
Код
Sub Мяу()
    Dim ar0, ar1(), ar2()
    Dim i&, k&, n&, j&
    ar0 = [a1].CurrentRegion.Value
    ReDim ar1(1 To UBound(ar0) / 2, 1 To UBound(ar0, 2))
    ReDim ar2(1 To UBound(ar0) / 2, 1 To 3)
    For i = 1 To UBound(ar0)
        If i Mod 2 Then
            k = k + 1
            For j = 1 To UBound(ar1, 2)
                ar1(k, j) = ar0(i, j)
            Next
        Else
            n = n + 1
            For j = 1 To UBound(ar2, 2)
                ar2(n, j) = ar0(i, j + 2)
            Next
        End If
    Next
End Sub
Определенное действие по изменению любого из группы Textbox
 
Копируем с листа в модуль желтый столбец, и радуемся, что не пришлось мучать классы  :)
Изменено: RAN - 5 Июл 2019 19:24:53
Определенное действие по изменению любого из группы Textbox
 
Цитата
OlegO написал:
при изменению ЛЮБОГО
12 обработчиков с одним кодом
Код
Private Sub TextBox6_Change()
    For i = Val(Mid(ActiveControl.Name, 8)) + 1 To 12
        Me.Controls("TextBox" & i).Value = Me.Controls("TextBox" & i - 1).Value
    Next i
End Sub

Или классы.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 180 След.
Наверх