Работа с фильтром

@MiraPurr · Регистрация: 30.05.2017

Студворк — интернет-сервис помощи студентам

Вылетает ошибка 1004 "ошибка приложения или объекта"
совсем недавно столкнулась с этим языком программирования
Мне надо сложить два столбца из таблицы (CX и CV)(именно все ячейки одновременно) и применить к их сумме фильтр. Но пока не получается. Я пыталась создать новый столбец и вписать туда значение, но не получилось. И вот сейчас хотела в переменную записать значение и к ней применить фильтр.
Подскажите пожалуйста, как это все можно сделать ?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub TestP()
    Dim fso As Object, file As Object, f$: f$ = "F:\ца"
    Dim wb As Workbook, ws, sa As Worksheet
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(f) Then _
    MsgBox "папка отсутствует", vbCritical: Exit Sub
 
    For Each file In fso.GetFolder(f).Files
        If LCase(file.Name) Like "*.xls*" Then
           Set wb = Workbooks.Open(file.Path, 0, False)
           Set ws = wb.Worksheets(1)
       Set sa = wb.Worksheets(1)
       sa = ws.Range("CV").Value + ws.Range("CX").Value
       
       ws.Range("CV:CX").AutoFilter Field:=sa, Criteria1:="<>0"
        
 
        
           wb.Close True
        End If
    Next
 
End Sub

@Alex77755 · 19.05.2019, 23:21

f пустая
ца - папка?

Добавлено через 4 минуты
лучше файл бы приложила

@MiraPurr · 19.05.2019, 23:21 **[ТС]**

Не совсем поняла, вы имеете ввиду, что папка в которой хранится файл пустая?
Если да, то я это проверяла, файл с которым нужно работать там лежит

@Burk · 20.05.2019, 06:32

MiraPurr, а вы не боитесь, что ВБА на таких конструкциях просто развалится?
sa = ws.Range("CV").Value + ws.Range("CX").Value
в переводе эта фраза значит - присвоить объекту ЛИСТ (неизвестного столбца) сумму не понять чего. если Range, то нужен бы номер строки, если Columns, то подобные конструкции ВБА неизвестны.
Поэтому, если без фокусов, в другой столбец занести сумму элементов первых двух (либо формулой), включить рекодер и поставить фильтр вручную, потом Остановить запись и получить макрос для фильтра.

Добавлено через 13 минут
можно, конечно, для указания столбца использовать и range, но всё-равно такая конструкция не проходит.

@MiraPurr · 20.05.2019, 06:37 **[ТС]**

Моя проблема в том, что у меня не получается занести в другой столбец сумму нужных двух. Я уже который день ищу как это сделать, но никак понять не могу, как это сделать
Поэтому пришлось пробовать тот вариант
Вы не могли бы показать, как это можно сделать?

@pashulka · 20.05.2019, 07:06

Сообщение от MiraPurr

Моя проблема в том, что у меня не получается занести в другой столбец сумму нужных двух

В Вашей прошлой теме есть решение этой проблемы.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	19.05.2019, 23:21
	f пустая ца - папка? Добавлено через 4 минуты лучше файл бы приложила 0

@MiraPurr 0 / 0 / 0 Регистрация: 30.05.2017 Сообщений: 74
	19.05.2019, 23:21 [ТС]
	Не совсем поняла, вы имеете ввиду, что папка в которой хранится файл пустая? Если да, то я это проверяла, файл с которым нужно работать там лежит 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	20.05.2019, 06:32
	MiraPurr, а вы не боитесь, что ВБА на таких конструкциях просто развалится? sa = ws.Range("CV").Value + ws.Range("CX").Value в переводе эта фраза значит - присвоить объекту ЛИСТ (неизвестного столбца) сумму не понять чего. если Range, то нужен бы номер строки, если Columns, то подобные конструкции ВБА неизвестны. Поэтому, если без фокусов, в другой столбец занести сумму элементов первых двух (либо формулой), включить рекодер и поставить фильтр вручную, потом Остановить запись и получить макрос для фильтра. Добавлено через 13 минут можно, конечно, для указания столбца использовать и range, но всё-равно такая конструкция не проходит. 0

@MiraPurr 0 / 0 / 0 Регистрация: 30.05.2017 Сообщений: 74
	20.05.2019, 06:37 [ТС]
	Моя проблема в том, что у меня не получается занести в другой столбец сумму нужных двух. Я уже который день ищу как это сделать, но никак понять не могу, как это сделать Поэтому пришлось пробовать тот вариант Вы не могли бы показать, как это можно сделать? 0