book, из Google sheets как публикуете? Может стоит поменять формат? Сделайте тестовую google таблицу и покажите файл со своим запросом из нее.
book, из Google sheets как публикуете? Может стоит поменять формат? Сделайте тестовую google таблицу и покажите файл со своим запросом из нее.krosav4ig
А чего так? УФ можно делать по UDF (если меня память не ошибает), получив намного больше возможностей, можно задать неограниченное количество критериев единственное, может работать не очень стабильно
UPD Вспомнил, как примерно делалось, посмотрел - постоянно отваливается, наверно не зря забыл
А чего так? УФ можно делать по UDF (если меня память не ошибает), получив намного больше возможностей, можно задать неограниченное количество критериев единственное, может работать не очень стабильно
UPD Вспомнил, как примерно делалось, посмотрел - постоянно отваливается, наверно не зря забылkrosav4ig
Здравствуйте. Включаем строку итогов, в модуль ЭтаКнига пишем [vba]
Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) On Error Resume Next With Target.ListObject If Not Intersect(.TotalsRowRange, Target) Is Nothing Then Application.EnableEvents = 0 If Err = 0 Then .ListRows.Add: Cancel = True Application.EnableEvents = 1 End If End With End Sub
[/vba] в модуль Лист1 [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim r As Range If Intersect(Target, [Таблица3[название]]) Is Nothing Then Exit Sub With [Таблица3].ListObject With .ListColumns("название").DataBodyRange Set r = IIf(.Cells.Count = 1, .Resize(2), .Cells) End With Intersect(r.SpecialCells(4), .Range).Delete xlUp Set r = Nothing End With End Sub
[/vba] Жмакаем двойным кликом по строке итогов
Здравствуйте. Включаем строку итогов, в модуль ЭтаКнига пишем [vba]
Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) On Error Resume Next With Target.ListObject If Not Intersect(.TotalsRowRange, Target) Is Nothing Then Application.EnableEvents = 0 If Err = 0 Then .ListRows.Add: Cancel = True Application.EnableEvents = 1 End If End With End Sub
[/vba] в модуль Лист1 [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim r As Range If Intersect(Target, [Таблица3[название]]) Is Nothing Then Exit Sub With [Таблица3].ListObject With .ListColumns("название").DataBodyRange Set r = IIf(.Cells.Count = 1, .Resize(2), .Cells) End With Intersect(r.SpecialCells(4), .Range).Delete xlUp Set r = Nothing End With End Sub
[/vba] Жмакаем двойным кликом по строке итоговkrosav4ig
Выделяете диапазон, жмете Главная>группа Ячейки>Формат>Автоподбор высоты строки или выделяете строки и двойным кликом жмете на границе заголовка любой выделенной строки
Выделяете диапазон, жмете Главная>группа Ячейки>Формат>Автоподбор высоты строки или выделяете строки и двойным кликом жмете на границе заголовка любой выделенной строкиkrosav4ig
И можно ли сделать активацию ячейки С (для добавления строки) в строке итоги не двойным, а одинарным кликом?
в модуль ЭтаКнига [vba]
Код
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next With Target.ListObject If Not Intersect(.TotalsRowRange, Target) Is Nothing And Target.Count = 1 Then Application.EnableEvents = 0 If Err = 0 Then: .ListRows.Add: Target(0).Select Application.EnableEvents = 1 End If End With End Sub
И можно ли сделать активацию ячейки С (для добавления строки) в строке итоги не двойным, а одинарным кликом?
в модуль ЭтаКнига [vba]
Код
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next With Target.ListObject If Not Intersect(.TotalsRowRange, Target) Is Nothing And Target.Count = 1 Then Application.EnableEvents = 0 If Err = 0 Then: .ListRows.Add: Target(0).Select Application.EnableEvents = 1 End If End With End Sub
Сергей13, У вас к таблице применен стиль Светлый1, в нем нет границ между столбцами и строками. Для того, чтобы они были, примените стиль Светлый15 или создайте свой
Сергей13, У вас к таблице применен стиль Светлый1, в нем нет границ между столбцами и строками. Для того, чтобы они были, примените стиль Светлый15 или создайте свойkrosav4ig
как-то установить в коде диапазон заливки умной таблицы от столбца A1 до столбца К8
[vba]
Код
Sub Zalivka() 'Заливка Set ShSales = ThisWorkbook.Worksheets("log_book") 'Лист "log_book" With ShSales.Range("tabl_logbook") Intersect(.Columns("A:K"), .Cells).SpecialCells(12).Interior.Color = 15921906 'Заливка открытых строк End With End Sub
Sub NoZalivka() 'Нет заливки Set ShSales = ThisWorkbook.Worksheets("log_book") 'Лист "log_book" With ShSales.Range("tabl_logbook") Intersect(.Columns("A:K"), .Cells).SpecialCells(12).Interior.Color = xlNone 'Снять заливку открытых строк End With End Sub
как-то установить в коде диапазон заливки умной таблицы от столбца A1 до столбца К8
[vba]
Код
Sub Zalivka() 'Заливка Set ShSales = ThisWorkbook.Worksheets("log_book") 'Лист "log_book" With ShSales.Range("tabl_logbook") Intersect(.Columns("A:K"), .Cells).SpecialCells(12).Interior.Color = 15921906 'Заливка открытых строк End With End Sub
Sub NoZalivka() 'Нет заливки Set ShSales = ThisWorkbook.Worksheets("log_book") 'Лист "log_book" With ShSales.Range("tabl_logbook") Intersect(.Columns("A:K"), .Cells).SpecialCells(12).Interior.Color = xlNone 'Снять заливку открытых строк End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
