Excel VBA игнорирует скрытую строку и массовое обновление из диапазона ячеек (обновление только для фильтрованной ячейки в Excel)

В принципе, на данный момент ниже кода можно массово обновлять мою базу данных (обновление SQL Statement в функции GetUpdateTextSQL) из данных в диапазоне A16 на моем листе и проверять до тех пор, пока не будет содержимого в ячейках, однако то, что я пытаюсь сделать, это обновить только данные из ячеек, которые выбраны, только если пользователи фильтруют с помощью excel (Alt + A + T) и игнорируют скрытые ячейки.

Я хочу, чтобы программа обновляла только те ячейки, которые были отфильтрованы пользователями, и игнорировали скрытые ячейки

Private Sub CommandSave_Click() If MsgBox("All records will be updated. Please make sure that all records all correct! " & _ "Continue Saving?", vbYesNo) = vbNo Then Exit Sub If WorksheetFunction.CountA(Range("B16:K5000")) = 0 Then MsgBox "No Records to be Saved" Else Dim cnt As New ADODB.Connection Dim CmdForSave As New ADODB.Command Dim r As Range Dim ConnectionString As String ConnectionString = "Provider=SQLNCLI11;Server=ID222222\SQLEXPRESS;Database=Demo;Trusted_Connection=yes;" 'Opens connection to the database cnt.ConnectionTimeout = 30 cnt.Open ConnectionString CmdForSave.ActiveConnection = cnt For Each r In Range("A16", Range("A16").End(xlDown)) CmdForSave.CommandText = _ GetUpdateTextSQL( _ r.Offset(0, 1).value, r.Offset(0, 2).value, _ r.Offset(0, 3).value, _ r.Offset(0, 4).value, r.Offset(0, 5).value, _ r.Offset(0, 6).value, _ r.Offset(0, 0).value) CmdForSave.Execute Next r MsgBox "Data Updated Successfully" cnt.Close Set cnt = Nothing End If End Sub 

Что-то вроде этого

 '.... For Each r In Range("A16", Range("A16").End(xlDown)) If Not r.EntireRow.Hidden Then CmdForSave.CommandText = _ GetUpdateTextSQL( _ r.Offset(0, 1).value, r.Offset(0, 2).value, _ r.Offset(0, 3).value, _ r.Offset(0, 4).value, r.Offset(0, 5).value, _ r.Offset(0, 6).value, _ r.Offset(0, 0).value) CmdForSave.Execute End If Next r '.... 
  • Отправлять данные из excel для доступа, запускать запросы, отправлять результаты запроса обратно в excel
  • Доступ к копиям VBA из объекта объекта набора номера метки -147417856
  • Добавить в Excel из Access с помощью VBA
  • Хотите использовать VBA для списка Встроенные функции
  • Как преобразовать запрос MS-Acess в лист в MS-Excel
  • Ошибка времени выполнения '3052'. Счет блокировки обмена файлами превышен. Увеличьте запись реестра MaxLocksPerFile
  • Формулы для списков / таблиц в Excel VBA
  • MS Access VBA Как мне подавить диалог «Вы хотите сохранить изменения» для удаления строк excel?
  • Как использовать объект excel для другой процедуры в vba
  • Получение значения из формы MS Access из Excel VBA
  • Excel / Access, как экспортировать содержимое запроса на ранее существующий лист без нарушения ссылок?
  • Давайте будем гением компьютера.