Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Записи участника (krosav4ig) - Мир MS Excel

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2323]
Результаты поиска
krosav4ig Дата: Понедельник, 18.03.2019, 00:40 | Сообщение № 1961 | Тема: Сломались теги формул
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
чет надоело ждать, я себе сам написал

Upd.
Удалил лишние буковки в коде скрипта, в работе ничего не изменилось

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 18.03.2019, 02:19
 
Ответить
Сообщениечет надоело ждать, я себе сам написал

Upd.
Удалил лишние буковки в коде скрипта, в работе ничего не изменилось
Автор - krosav4ig
Дата добавления - 18.03.2019 в 00:40
krosav4ig Дата: Понедельник, 18.03.2019, 13:17 | Сообщение № 1962 | Тема: Сломались теги формул
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
sboy, нужно в браузер установить и включить расшение tampermonkey, и потом сходить по моей ссылке, предложит установить скрипт

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеsboy, нужно в браузер установить и включить расшение tampermonkey, и потом сходить по моей ссылке, предложит установить скрипт
Автор - krosav4ig
Дата добавления - 18.03.2019 в 13:17
krosav4ig Дата: Понедельник, 18.03.2019, 16:21 | Сообщение № 1963 | Тема: Объединение файлов в Excel + Power Query
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
APlayer, вам нужно получить это окно или все-таки собрать данные из файлов?
Кросс

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеAPlayer, вам нужно получить это окно или все-таки собрать данные из файлов?
Кросс
Автор - krosav4ig
Дата добавления - 18.03.2019 в 16:21
krosav4ig Дата: Понедельник, 18.03.2019, 17:33 | Сообщение № 1964 | Тема: Объединение файлов в Excel + Power Query
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а можно написать udf, которая соберет список уникальных имен столбцов из всех листов всех книг из папки

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа можно написать udf, которая соберет список уникальных имен столбцов из всех листов всех книг из папки
Автор - krosav4ig
Дата добавления - 18.03.2019 в 17:33
krosav4ig Дата: Вторник, 19.03.2019, 02:39 | Сообщение № 1965 | Тема: Показать координаты всех перемещений картинки в ЮзерФорме
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
       With ActiveSheet
            With .Cells(.Rows.Count, 1).End(xlUp)
                With .Offset(-Not IsEmpty(.Value))
                    .Value = Image1.Left
                    .Cells(1, 2) = Image1.Top
                End With
            End With
        End With
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 19.03.2019, 02:44
 
Ответить
Сообщение[vba]
Код
       With ActiveSheet
            With .Cells(.Rows.Count, 1).End(xlUp)
                With .Offset(-Not IsEmpty(.Value))
                    .Value = Image1.Left
                    .Cells(1, 2) = Image1.Top
                End With
            End With
        End With
[/vba]
Автор - krosav4ig
Дата добавления - 19.03.2019 в 02:39
krosav4ig Дата: Вторник, 19.03.2019, 13:40 | Сообщение № 1966 | Тема: Показать координаты всех перемещений картинки в ЮзерФорме
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
t330,все там указано, not IsEmpty() возвращает тип данных Boolean
Цитата Boolean Data Type (Visual Basic)When Visual Basic converts Boolean values to numeric types, False becomes 0 and True becomes -1.[/quote ()

т.е. на выходе получаем если ячейка пустая -0, если не пустая --1

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 19.03.2019, 13:41
 
Ответить
Сообщениеt330,все там указано, not IsEmpty() возвращает тип данных Boolean
Цитата Boolean Data Type (Visual Basic)When Visual Basic converts Boolean values to numeric types, False becomes 0 and True becomes -1.[/quote ()

т.е. на выходе получаем если ячейка пустая -0, если не пустая --1
Автор - krosav4ig
Дата добавления - 19.03.2019 в 13:40
krosav4ig Дата: Вторник, 19.03.2019, 16:10 | Сообщение № 1967 | Тема: Показать координаты всех перемещений картинки в ЮзерФорме
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[offtop] :) из меня объясняльщик не очень
чет свой предыдущий пост не могу отредактировать, возвращает 500 ошибку
нада после /url] дописать ]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[offtop] :) из меня объясняльщик не очень
чет свой предыдущий пост не могу отредактировать, возвращает 500 ошибку
нада после /url] дописать ]
Автор - krosav4ig
Дата добавления - 19.03.2019 в 16:10
krosav4ig Дата: Вторник, 19.03.2019, 18:49 | Сообщение № 1968 | Тема: Объединение файлов в Excel + Power Query
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[offtop]ну да, а если мышка перестанет работать, надо windows переустанавливать, надож мышкой по кнопкам в PQ тыкать

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[offtop]ну да, а если мышка перестанет работать, надо windows переустанавливать, надож мышкой по кнопкам в PQ тыкать
Автор - krosav4ig
Дата добавления - 19.03.2019 в 18:49
krosav4ig Дата: Среда, 20.03.2019, 01:10 | Сообщение № 1969 | Тема: Как очистить «пустые» ячейки?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
book, из Google sheets как публикуете? Может стоит поменять формат?
Сделайте тестовую google таблицу и покажите файл со своим запросом из нее.

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 20.03.2019, 01:22
 
Ответить
Сообщениеbook, из Google sheets как публикуете? Может стоит поменять формат?
Сделайте тестовую google таблицу и покажите файл со своим запросом из нее.
Автор - krosav4ig
Дата добавления - 20.03.2019 в 01:10
krosav4ig Дата: Среда, 20.03.2019, 20:28 | Сообщение № 1970 | Тема: Как подтянуть цвет фона ячейки в другую ячейку?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата KIMVSR, 19.03.2019 в 23:38, в сообщении № 1 ()
Желательно без макросов, если возможно.

А чего так? УФ можно делать по UDF (если меня память не ошибает), получив намного больше возможностей, можно задать неограниченное количество критериев
единственное, может работать не очень стабильно

UPD
Вспомнил, как примерно делалось, посмотрел - постоянно отваливается, наверно не зря забыл

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 20.03.2019, 21:23
 
Ответить
Сообщение
Цитата KIMVSR, 19.03.2019 в 23:38, в сообщении № 1 ()
Желательно без макросов, если возможно.

А чего так? УФ можно делать по UDF (если меня память не ошибает), получив намного больше возможностей, можно задать неограниченное количество критериев
единственное, может работать не очень стабильно

UPD
Вспомнил, как примерно делалось, посмотрел - постоянно отваливается, наверно не зря забыл
Автор - krosav4ig
Дата добавления - 20.03.2019 в 20:28
krosav4ig Дата: Четверг, 21.03.2019, 01:03 | Сообщение № 1971 | Тема: Сообщение с иконкой
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Сергей13, [vba]
Код
application.speech.speak "Beep"
[/vba] :)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеСергей13, [vba]
Код
application.speech.speak "Beep"
[/vba] :)
Автор - krosav4ig
Дата добавления - 21.03.2019 в 01:03
krosav4ig Дата: Четверг, 21.03.2019, 05:16 | Сообщение № 1972 | Тема: Плавающая строка при добавлении и удалении строк
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте.
Включаем строку итогов, в модуль ЭтаКнига пишем [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]
Жмакаем двойным кликом по строке итогов
К сообщению приложен файл: 1-version_1-.xlsm (23.7 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 21.03.2019, 17:39
 
Ответить
СообщениеЗдравствуйте.
Включаем строку итогов, в модуль ЭтаКнига пишем [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
Дата добавления - 21.03.2019 в 05:16
krosav4ig Дата: Четверг, 21.03.2019, 05:22 | Сообщение № 1973 | Тема: Текст скрывется в своей ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
yyy, сделайте автоподбор высоты строки

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеyyy, сделайте автоподбор высоты строки
Автор - krosav4ig
Дата добавления - 21.03.2019 в 05:22
krosav4ig Дата: Четверг, 21.03.2019, 05:40 | Сообщение № 1974 | Тема: Текст скрывется в своей ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Выделяете диапазон, жмете Главная>группа Ячейки>Формат>Автоподбор высоты строки
или выделяете строки и двойным кликом жмете на границе заголовка любой выделенной строки

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 21.03.2019, 05:42
 
Ответить
СообщениеВыделяете диапазон, жмете Главная>группа Ячейки>Формат>Автоподбор высоты строки
или выделяете строки и двойным кликом жмете на границе заголовка любой выделенной строки
Автор - krosav4ig
Дата добавления - 21.03.2019 в 05:40
krosav4ig Дата: Четверг, 21.03.2019, 06:15 | Сообщение № 1975 | Тема: Плавающая строка при добавлении и удалении строк
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Дополнил в своем посте

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеДополнил в своем посте
Автор - krosav4ig
Дата добавления - 21.03.2019 в 06:15
krosav4ig Дата: Четверг, 21.03.2019, 06:20 | Сообщение № 1976 | Тема: Текст скрывется в своей ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Установить высоту строки Главная>группа Ячейки>Формат>Высота строки
или ПКМ по заголовку строки>Высота строки

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеУстановить высоту строки Главная>группа Ячейки>Формат>Высота строки
или ПКМ по заголовку строки>Высота строки
Автор - krosav4ig
Дата добавления - 21.03.2019 в 06:20
krosav4ig Дата: Четверг, 21.03.2019, 17:32 | Сообщение № 1977 | Тема: Плавающая строка при добавлении и удалении строк
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата zsm, 21.03.2019 в 07:20, в сообщении № 5 ()
выделяется массив С:С

гы. Мозг спит, а руки сами по клаве клацают, зачем-то select написал...
заменил файл

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата zsm, 21.03.2019 в 07:20, в сообщении № 5 ()
выделяется массив С:С

гы. Мозг спит, а руки сами по клаве клацают, зачем-то select написал...
заменил файл
Автор - krosav4ig
Дата добавления - 21.03.2019 в 17:32
krosav4ig Дата: Четверг, 21.03.2019, 17:56 | Сообщение № 1978 | Тема: Плавающая строка при добавлении и удалении строк
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата zsm, 21.03.2019 в 07:20, в сообщении № 5 ()
И можно ли сделать активацию ячейки С (для добавления строки) в строке итоги не двойным, а одинарным кликом?

в модуль ЭтаКнига [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]
К сообщению приложен файл: 0272046.xlsm (23.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата zsm, 21.03.2019 в 07:20, в сообщении № 5 ()
И можно ли сделать активацию ячейки С (для добавления строки) в строке итоги не двойным, а одинарным кликом?

в модуль ЭтаКнига [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]
Автор - krosav4ig
Дата добавления - 21.03.2019 в 17:56
krosav4ig Дата: Четверг, 21.03.2019, 23:48 | Сообщение № 1979 | Тема: Заливка и снятие заливки открытых строк умной таблицы.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
для работы с видимыми ячейками диапазона следует использовать SpecialCells(xlCellTypeVisible)
[vba]
Код
Sub Zalivka() 'Заливка
    Set ShSales = ThisWorkbook.Worksheets("log_book")       'Лист "log_book"

        ShSales.Range("tabl_logbook").SpecialCells(xlCellTypeVisible).Interior.Color = 15921906 'Заливка открытых строк
End Sub

Sub NoZalivka() 'Нет заливки
    Set ShSales = ThisWorkbook.Worksheets("log_book")       'Лист "log_book"

        ShSales.Range("tabl_logbook").SpecialCells(xlCellTypeVisible).Interior.Color = xlNone 'Снять заливку открытых строк
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениедля работы с видимыми ячейками диапазона следует использовать SpecialCells(xlCellTypeVisible)
[vba]
Код
Sub Zalivka() 'Заливка
    Set ShSales = ThisWorkbook.Worksheets("log_book")       'Лист "log_book"

        ShSales.Range("tabl_logbook").SpecialCells(xlCellTypeVisible).Interior.Color = 15921906 'Заливка открытых строк
End Sub

Sub NoZalivka() 'Нет заливки
    Set ShSales = ThisWorkbook.Worksheets("log_book")       'Лист "log_book"

        ShSales.Range("tabl_logbook").SpecialCells(xlCellTypeVisible).Interior.Color = xlNone 'Снять заливку открытых строк
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 21.03.2019 в 23:48
krosav4ig Дата: Пятница, 22.03.2019, 01:59 | Сообщение № 1980 | Тема: Заливка и снятие заливки открытых строк умной таблицы.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Сергей13, У вас к таблице применен стиль Светлый1, в нем нет границ между столбцами и строками. Для того, чтобы они были, примените стиль Светлый15 или создайте свой

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 22.03.2019, 02:00
 
Ответить
СообщениеСергей13, У вас к таблице применен стиль Светлый1, в нем нет границ между столбцами и строками. Для того, чтобы они были, примените стиль Светлый15 или создайте свой
Автор - krosav4ig
Дата добавления - 22.03.2019 в 01:59
Мир MS Excel » Записи участника » krosav4ig [2323]
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!