Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Артем
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
удалить белую ячейку вне таблицы, удалить белую ячейку вне таблицы
 
#
27.10.2021 20:42:41
Всем привет!
Ребят впервые столкнулся с такой проблемой - не получается удалить белую ячейку в в верхнем левом углу. Образовалась при скачивании с сайта.
Помогите пж)
 
Перейти    
Макросы для БОЛЬШИХ вычислений
 
#
24.12.2020 10:50:38
Приветствую!
Существует 2 файла - в двоичной системе кодировки по >200 мб каждый
Есть определённые однотипные операции, которые необходимо сделать с ними (про вприть например)
Проблема в том, что комп у меня не самый лучший - при нажатии F9 может считать только один столбец (если ставишь считать 2 столбца - эксель может вылететь)
Вопрос  такой - имеет ли смысл писать макрос для таких операций? Макрос будет терпеливо ждать, пока посчитается каждый столбец или просто вылетит?
У кого был опыт чего то подобного?
 
Перейти    
vba проблемы с автозаполнением
 
#
23.12.2020 15:28:36
Приветствую!
Иногда вылазит ошибка в коде (в данном примере - 9 строка) после автозаполнения
Вообще - данный вариант почти всегда работает, но бывает что выводит ошибку method range of object '_Global' failed

В каком месте я свернул не туда?)))

Буду признателен за совет

Код
 Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C2").Select
    Dim lngI As Long
    lngI = Cells(Rows.Count, 3).End(xlDown).Row
    Range("C2").FormulaR1C1 = _
         "=IF(OR(LEN(RC[1])=9,LEN(RC[1])=11),CONCATENATE(""`"",0,RC[1]),CONCATENATE(""`"",RC[1]))"
    Range("C2").AutoFill Destination:=Range("C2:C" & lngI)
    Range("C2:C").Select   'выходит ошибка
    Selection.Copy
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("C:C").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
Изменено: Артем - 24.12.2020 06:57:14 (замена темы: не работает код для автозаполнения формул)
 
Перейти    
При нажатии на крестик в правом верхнем углу закрывается только сама книга
 
#
23.12.2020 13:11:59
При нажатии на крестик в правом верхнем углу закрывается только сама книга excel
Как сделать так, чтобы при закрытии экселя закрывалась и книга и сама программа? (мог что-то сбить в настройках когда разбирался с макросами)
 
Перейти    
VBA удаление строк из созданной таблицы, ошибка 1004 при удалении выделенных строк.
 
#
23.12.2020 08:39:20
Приветствую!
Для того, чтобы удобнее пользоваться фильтрацией, преобразовал данные в таблицу (кол-во строк намеренно большое, чтобы при добавлении последних в отчёт макрос работал на весь диапазон данных)
Однако, после создания таблицы перестали работать стандартные операторы удаления
код следующий:
Код
 Sub ...
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$K$131200"), , xlYes).Name _        = "Таблица1"
    Range("Таблица1[#All]").Select
    ActiveSheet.ListObjects("Таблица1").Range.AutoFilter Field:=8, Criteria1:= _
        "=А", Operator:=xlOr, Criteria2:="=Б"
    Range("A1").Select
    SendKeys "{DOWN}"
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireRow.Delete   ' выдаёт ошибку 1004 метод delete из класса range завершен неверно
    ActiveSheet.ShowAllData
End Sub
Помогите решить проблему!
Изменено: Артем - 23.12.2020 08:41:43
 
Перейти    
Страницы: 1
Наверх