|
|
15-10-2025 14:17 |
|
Володимир - Вітаю, прошу поради. Стала дуже довго обраховувати програма авк. Може щось потрібно почистити або ін ? Ольга - Доброго дня. В табличці Ф175-0 (Перелік варіантів ціни ресурсу, що застосовується в позиціях ЛК будови) незручно здійснювати пошук варіанта матері...
|
|
Завантажено за 0.14 сек. 246,895,615 унікальних відвідувачів | UbuntuHHTheme by: kot2007 Powered by PHP-Fusion copyright © 2002 - 2025 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3. |
в прилоенном файле Запис матеріалів в НДІ користувача
в блоке
Function Reset() As String
Dim LastRow, Row_N As Integer
Row_N = 6
ActiveSheet.ShowAllData (ругается на этом месте)
'MsgBox LastRow
LastRow = Cells(Rows.Count, 5).End(xlUp).Row 'Пошук останььої строки
If LastRow <= 5 Then LastRow = 10
Range(Cells(Row_N, 1), Cells(LastRow, 14)).Clear
Reset = "Очищено"
выдает ошибку,
в нете посмотрел и предложили такой вариант
вместо ActiveSheet.ShowAllData поставить If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Function Reset() As String
Dim LastRow, Row_N As Integer
Row_N = 6
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
'MsgBox LastRow
LastRow = Cells(Rows.Count, 5).End(xlUp).Row 'Пошук останььої строки
If LastRow <= 5 Then LastRow = 10
Range(Cells(Row_N, 1), Cells(LastRow, 14)).Clear
Reset = "Очищено"
так ошибку не выдает и все работает, во всяком случае нси загружает
Дякую Сергію, в майбутніх версіях виправлю.
Пропоную всім хто має бажання та вміння виправити самостійно.
Код макросів залишав відкритим.