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

Вход

Регистрация

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

 

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

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

Excel 2007,2010,2013
sboy, просто не понравились лишние пробелы в исходных данных :)

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

Excel 2007,2010,2013
Цитата Snegovik, 01.04.2019 в 18:47, в сообщении № 1 ()
убрать зависимость от регистра ?

Код
=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(СТРОЧН(ЛЕВБ(ПСТР(D$3;ПОИСК(C5;D$3);9);ПОИСК("-";ПСТР(D$3;ПОИСК(C5;D$3);9))-1));СТРОЧН(C5&0);ЛЕВБ(1/2;2));C5;)

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

Сообщение отредактировал krosav4ig - Понедельник, 01.04.2019, 20:16
 
Ответить
Сообщение
Цитата Snegovik, 01.04.2019 в 18:47, в сообщении № 1 ()
убрать зависимость от регистра ?

Код
=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(СТРОЧН(ЛЕВБ(ПСТР(D$3;ПОИСК(C5;D$3);9);ПОИСК("-";ПСТР(D$3;ПОИСК(C5;D$3);9))-1));СТРОЧН(C5&0);ЛЕВБ(1/2;2));C5;)
Автор - krosav4ig
Дата добавления - 01.04.2019 в 20:15
krosav4ig Дата: Воскресенье, 31.03.2019, 18:06 | Сообщение № 343 | Тема: разобраться!!!
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Арикхик, 31.03.2019 в 12:45, в сообщении № 1 ()
Как это сделать подскажите???????
Нет!!!1111
Цитата Арикхик, 31.03.2019 в 12:45, в сообщении № 1 ()
разобраться!!!

Мало того, что в приказном тоне, еще и кричит. Ага, все бегом прям выполнять побежали.

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Арикхик, 31.03.2019 в 12:45, в сообщении № 1 ()
Как это сделать подскажите???????
Нет!!!1111
Цитата Арикхик, 31.03.2019 в 12:45, в сообщении № 1 ()
разобраться!!!

Мало того, что в приказном тоне, еще и кричит. Ага, все бегом прям выполнять побежали.
Автор - krosav4ig
Дата добавления - 31.03.2019 в 18:06
krosav4ig Дата: Четверг, 28.03.2019, 17:44 | Сообщение № 344 | Тема: Красивые числа на сайте
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Дратути!
У мну тут тоже красявое число нарисовалось :)
К сообщению приложен файл: 6124358.png (73.7 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеДратути!
У мну тут тоже красявое число нарисовалось :)
Автор - krosav4ig
Дата добавления - 28.03.2019 в 17:44
krosav4ig Дата: Среда, 27.03.2019, 18:12 | Сообщение № 345 | Тема: Чего вам не хватает на форуме?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Никанор, можно через гугл искать, например www.google.com/search?q=2175758_1.xlsb+site:excelworld.ru

[p.s.]upd.
Исправил ссылку

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

Сообщение отредактировал krosav4ig - Четверг, 28.03.2019, 17:35
 
Ответить
СообщениеНиканор, можно через гугл искать, например www.google.com/search?q=2175758_1.xlsb+site:excelworld.ru

[p.s.]upd.
Исправил ссылку
Автор - krosav4ig
Дата добавления - 27.03.2019 в 18:12
krosav4ig Дата: Среда, 27.03.2019, 07:48 | Сообщение № 346 | Тема: суммирование с указанием цвета в EXCEL
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата ace_porter, 26.03.2019 в 22:48, в сообщении № 3 ()
320423!

Этож аж [vba]
Код
5.1358359214422811520745838439255742289090748041335×10[sup]1625005[/sup]
[/vba]

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

Сообщение отредактировал krosav4ig - Среда, 27.03.2019, 07:48
 
Ответить
Сообщение
Цитата ace_porter, 26.03.2019 в 22:48, в сообщении № 3 ()
320423!

Этож аж [vba]
Код
5.1358359214422811520745838439255742289090748041335×10[sup]1625005[/sup]
[/vba]
Автор - krosav4ig
Дата добавления - 27.03.2019 в 07:48
krosav4ig Дата: Суббота, 23.03.2019, 21:04 | Сообщение № 347 | Тема: Сломались теги формул
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
bmv98rus, а попробуйте вот это

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеbmv98rus, а попробуйте вот это
Автор - krosav4ig
Дата добавления - 23.03.2019 в 21:04
krosav4ig Дата: Суббота, 23.03.2019, 19:45 | Сообщение № 348 | Тема: Подсчет количества уникальных значений в диапазоне дат
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
сводная не устроит?
К сообщению приложен файл: 1849573.xlsx (17.3 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениесводная не устроит?
Автор - krosav4ig
Дата добавления - 23.03.2019 в 19:45
krosav4ig Дата: Пятница, 22.03.2019, 21:54 | Сообщение № 349 | Тема: Сломались теги формул
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Nic70y, шоб красяво было

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

Excel 2007,2010,2013
Здравствуйте.
чето не понятно чего надо
[vba]
Код
For i = 1 to 10
    Range("Табл").Columns(i).Select
    stop
next
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте.
чето не понятно чего надо
[vba]
Код
For i = 1 to 10
    Range("Табл").Columns(i).Select
    stop
next
[/vba]
Автор - krosav4ig
Дата добавления - 22.03.2019 в 20:51
krosav4ig Дата: Пятница, 22.03.2019, 20:48 | Сообщение № 351 | Тема: Заливка и снятие заливки открытых строк умной таблицы.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Сергей13, 22.03.2019 в 03:13, в сообщении № 10 ()
как-то установить в коде диапазон заливки умной таблицы от столбца 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
[/vba]
12 - это константа xlCellTypeVisible
Цитата Сергей13, 22.03.2019 в 03:13, в сообщении № 10 ()
В итоге после снятия заливки кодом, пропадают вертикальные границы строк во время ввода.
Можете в файле показать?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Сергей13, 22.03.2019 в 03:13, в сообщении № 10 ()
как-то установить в коде диапазон заливки умной таблицы от столбца 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
[/vba]
12 - это константа xlCellTypeVisible
Цитата Сергей13, 22.03.2019 в 03:13, в сообщении № 10 ()
В итоге после снятия заливки кодом, пропадают вертикальные границы строк во время ввода.
Можете в файле показать?
Автор - krosav4ig
Дата добавления - 22.03.2019 в 20:48
krosav4ig Дата: Пятница, 22.03.2019, 01:59 | Сообщение № 352 | Тема: Заливка и снятие заливки открытых строк умной таблицы.
Группа: Друзья
Ранг: Старожил
Сообщений: 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
krosav4ig Дата: Четверг, 21.03.2019, 23:48 | Сообщение № 353 | Тема: Заливка и снятие заливки открытых строк умной таблицы.
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Четверг, 21.03.2019, 17:56 | Сообщение № 354 | Тема: Плавающая строка при добавлении и удалении строк
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 17:32 | Сообщение № 355 | Тема: Плавающая строка при добавлении и удалении строк
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 06:20 | Сообщение № 356 | Тема: Текст скрывется в своей ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 06:15 | Сообщение № 357 | Тема: Плавающая строка при добавлении и удалении строк
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 05:40 | Сообщение № 358 | Тема: Текст скрывется в своей ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 05:22 | Сообщение № 359 | Тема: Текст скрывется в своей ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 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:16 | Сообщение № 360 | Тема: Плавающая строка при добавлении и удалении строк
Группа: Друзья
Ранг: Старожил
Сообщений: 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
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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