Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » LAD
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
Бесплатный сервер SQL для тренировок
 
#
19.07.2024 14:26:39
Стыдно? Чем перемещать тему в курилку есть более простой метод - не хамить
 
Перейти    
Бесплатный сервер SQL для тренировок
 
#
19.07.2024 06:19:01
   Опять модераторы шалят.
 
Перейти    
Бесплатный сервер SQL для тренировок
 
#
18.07.2024 23:06:08
Если хамство и высокомерие считается помощью, то БМВ и bigorg оказали неоценимую помощь. Postgre SQL и MIcrosoft SQL Server для начинающего будут тяжеловаты. На счет Postgre SQL ничего не могу сказать (нет опыта работы), а MIcrosoft SQL Server тяжеловат в плане администрирования. Я начинал с access, кстати он идет в пакете MSOFFICE с учебной базой. Кто-то из пользователей этого сайта пробовал связку Excel с Access и остался в восторге. Успехов
в хорошем начинании.
Изменено: LAD - 19.07.2024 06:16:56
 
Перейти    
Проверить есть ли результат автофильтра
 
#
02.07.2024 13:25:56

Sania, ВЫ требовали исключить из названия темы слова автофильтр, а сами его использовали.

Спасибо пользователю LAD – надо же хоть как-то поддеть.

Скорее  были бы уместны:

CurrentRegion – автофильтр прекрасно делает это сам.

Ввод критериев фильтрации можно сделать более удобным.

tbl.Offset(1, 0).Resize – ни лучшее применение примера от Microsoft, можно сделать проще.

Возможная ошибка SpecialCells – из разряда кто нам мешает, тот нам поможет.

Интересно узнать причину: Название темы изменено. Тема и Сообщения почищены от флуда, не относящегося к вопросу.

-          “великий уравнитель”

-          постановка в угол

-          пинок.
 
Перейти    
Доступ сотруднику к определенному листу.
 
#
29.06.2024 15:17:45

Облачные таблицы – иногда очень хорошая палочка выручалочка, но только иногда. На своем опыте убедился, что на много удобнее применять специализированный инструмент для хранения больших объёмов информации и её обработке специальные инструменты- СУБД. СУБД можно развернуть в облаке, в локальной сети, на локальном компьютере. Сразу исчезают проблемы с правами доступа, с хранением десятков тысяч строк, отбор, сортировка, группировка решаются на лету, вычисляемые поля и много других удобностей, кстати любой мало – мальски приличный веб-сервер работает в связке с СУБД. Главная проблема – психологический барьер. Упоминание TSQL вызывает панику. Это же испытывали многие начиная работать с EXCEL и VBA. Современные технологии надо осваивать. В интернет ни редко можно увидеть советы по применению связки Excel с СУБД. Храните и обрабатывайте данные в СУБД, а красивости наводите в Excel. При работе с облачными таблицами придется изучать их ”встроенный язык программирования”. В кавычках потому, что встроенность странная.

Многие сразу спросят, что же у тебя за опыт такой? Опыт организации системы сбора и обработки информации внутри области.

Коллеги ратовали за ВЕБ интерфейс, но я его не знаю, а интерфейс Excel более знаком и мне и пользователям (ниже психологический и временной барьеры).

Существенный момент – значительно упрощается анализ деятельности структурных подразделений и предприятия в целом.

В нормальных СУБД есть свои события (триггеры) и возможность хранения кода (хранимые процедуры).

Когда первый раз читал подобные советы, думал – советовать легко, а ты приди помоги. Оказалось, что действительно ни боги горшки обжигают.

Извините за некоторую эмоциональность.
 
Перейти    
Проверить есть ли результат автофильтра
 
#
27.06.2024 20:33:18
?
Код
Sub flt()
Dim r As Range
Set tbl = Sheets(1).Cells(1, 1).CurrentRegion
Dim ar(3) As String
ar(0) = "гдп"
ar(1) = "ГдД"
ar(2) = "ГИРГ"
ar(3) = "П614"

tbl.AutoFilter Field:=2, Criteria1:=ar, Operator:=xlFilterValues
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
 tbl.Columns.Count).Columns(1).SpecialCells(xlVisible).EntireRow.Delete
 ActiveSheet.Cells(2, 2).AutoFilter
 Set tbl = Nothing
End Sub
 
Перейти    
Проверить есть ли результат автофильтра
 
#
25.06.2024 15:31:37
Кто-то скажет, что надо меньше спать, но решение было выложено 02.03.2024 ночью, вроде бы хорошее поэтому повторю.
Код
Sub flt()
Dim r As Range
Set tbl = Sheets(1).Cells(1, 1).CurrentRegion
Dim ar(3) As String
ar(0) = "гдп"
ar(1) = "ГдД"
ar(2) = "ГИРГ"
ar(3) = "П614"

tbl.AutoFilter Field:=2, Criteria1:=ar, Operator:=xlFilterValues
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
 tbl.Columns.Count).Columns(1).SpecialCells(xlVisible).EntireRow.Delete
 ActiveSheet.Cells(2, 2).AutoFilter
 Set tbl = Nothing
End Sub
Для кого-то тема актуальна до сих пор.
 
Перейти    
Выгрузка даты и времени по действиям в таблице с помощью Apps Script
 
#
20.06.2024 20:17:59
БМВ привел шикарный пример хамства и самомнения. Для популярности сайта человеку ничего не жалко.  
 
Перейти    
Выгрузка даты и времени по действиям в таблице с помощью Apps Script
 
#
30.05.2024 19:08:19
Вариант для работы с любым листом (книгу) не могу прикрепить (модераторы запретили), спасибо им- в очередной раз

модуль "Эта книга"
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'отключаем обработку событий Excel

Application.EnableEvents = False
MsgBox ("работаем с листом " & Target.Worksheet.Index)

'если изменилось значение в одной ячейке первого столбца

If Target.Column = 1 And Target.Cells.Count = 1 Then
'в ячейку 5 столбца в текущуй строке записываем дату и время действия

     Cells(Target.Row, 5) = Now
  Else
'иначе выходим из процедуры
     Exit Sub
End If

'включаем обработку событий Excel
    
Application.EnableEvents = True
End Sub
 
Перейти    
Выгрузка даты и времени по действиям в таблице с помощью Apps Script
 
#
30.05.2024 17:35:37
Согласен - использовать VBA в Excel очень смешно. Если кому-то надо доработать, доработаю.
 
Перейти    
Выгрузка даты и времени по действиям в таблице с помощью Apps Script
 
#
30.05.2024 15:13:13
Исправлена ошибка
 
Перейти    
Выгрузка даты и времени по действиям в таблице с помощью Apps Script
 
#
30.05.2024 13:50:08
Вставьте в модуль первого листа

Private Sub Worksheet_Change(ByVal Target As Range)
'выключаем обработку событий рабочего листа Excel
Application.EnableEvents = False

'если изменилось значение в одной ячейке первого столбца

If Target.Column = 1 And Target.Cells.Count = 1 Then
'в ячейку 5 столбца в текущей строке записываем дату и время действия
    Cells(Target.Row, 5) = Now
 Else
'иначе выходим из процедуры

    Exit Sub
End If
'включаем обработку событий Excel
   
Application.EnableEvents = True

End Sub
Изменено: LAD - 30.05.2024 15:08:30
 
Перейти    
Выборка значений по вертикали и по горизонтали, нужно выбрать позицию по определенному артикулу по конкертному запросу в конкертную дату
 
#
28.05.2024 17:00:09
Да, уважение у нас на высшем уровне.
 
Перейти    
суммирование макросом, нужен быстрый алгоритм
 
#
28.05.2024 16:34:15
Естественно, кроме уважаемых оппонентов "в логику" не умеет ни кто, а от них ждут конкретной помощи или хотя бы совета дельного.
Изменено: LAD - 28.05.2024 16:50:32
 
Перейти    
суммирование макросом, нужен быстрый алгоритм
 
#
28.05.2024 11:14:58
Согласен - "логика покинула чат". Меня больше интересует мнение тех, кто просит совета.
 
Перейти    
суммирование макросом, нужен быстрый алгоритм
 
#
28.05.2024 10:33:25
Судя по тому, как на меня окрысились некоторые модераторы и некоторые пользователи в моих советах есть дельные предложения.
 
Перейти    
суммирование макросом, нужен быстрый алгоритм
 
#
28.05.2024 09:35:43
Для накопления/хранения/обработки данных предназначены СУБД, в простейшем случае excel, SQL можно применять и там и там, словари - специфическая вещь. Для начала попробуйте в excel PQ и ADO.

еще попробуйте отключать обновление экрана на время обработки:
Application.ScreenUpdating = False
Ваш код
Включаем обновление экрана:
Application.ScreenUpdating =True
Изменено: LAD - 28.05.2024 09:45:04
 
Перейти    
суммирование макросом, нужен быстрый алгоритм
 
#
27.05.2024 22:56:00
Сумма массива: WorksheetFunction.Sum(arr).
Вместо resize укажите адрес массива ячеек.
 
Перейти    
суммирование макросом, нужен быстрый алгоритм
 
#
27.05.2024 20:20:06
Попробуйте отключить события

перед обработкой данных отключаем обработку событий Эксел
Application.EnableEvents = False
    выполняем свои макросы
потом включаем обработку событий Эксел
Application.EnableEvents = True
Изменено: LAD - 27.05.2024 23:29:23
 
Перейти    
Быстрая очистка диапазона с данными (макрос), Оптимизация удаления (очистки) данных (макрос)
 
#
28.04.2024 15:04:05
Есть смысл перейти на использование специализированного программного обеспечения по сбору и обработке данных (1С и т.п.).  
 
Перейти    
Быстрая очистка диапазона с данными (макрос), Оптимизация удаления (очистки) данных (макрос)
 
#
25.04.2024 17:02:46
Назвать можно как угодно. В первую очередь надо провести анализ деятельности предприятия, фирмы и т. д, а уже потом браться за автоматизацию,
 
Перейти    
Очистка данных, Очистка данных
 
#
25.04.2024 14:17:44
Вместо чехарды с очисткой попробуйте шаблон рабочей книги (расширение - xlt).
 
Перейти    
Быстрая очистка диапазона с данными (макрос), Оптимизация удаления (очистки) данных (макрос)
 
#
25.04.2024 14:11:11
Попробуйте использовать шаблон рабочей книги - в Вашем случае очень хороший вариант.
 
Перейти    
Использование значения переменных в фильтрах в коде vba, Как использовать переменные если необходимо написать код vba с применением фильтра
 
#
20.03.2024 14:46:17
Согласен -полный del, а может даже полный ban.
А вответ тишина.  
Изменено: LAD - 21.03.2024 06:30:34
 
Перейти    
Использование значения переменных в фильтрах в коде vba, Как использовать переменные если необходимо написать код vba с применением фильтра
 
#
20.03.2024 03:35:47
Ругаться не стал, но работает

Sub tester()
Dim ar(4) As String
   g1 = ThisWorkbook.Worksheets("Титул").Range("A1").Value
   ar(0) = (g1)
   ar(1) = (g1 + 1)
   ar(2) = (g1 + 2)
   ar(3) = (g1 + 3)
   ar(4) = (g1 + 4)
   Sheets(2).Cells(2, 1).AutoFilter Field:=2, Criteria1:=ar, _
                                Operator:=xlFilterValues
End Sub
 
Перейти    
Проверить есть ли результат автофильтра
 
#
02.03.2024 00:06:16
получить ссылку на таблицу можно проще
tbl = Cells("a1").CurrentRegion
iLastRow и iLastColumn вычислять не надо.

ActiveSheet.Range(Cells(1, 1), Cells(iLastRow, iLastColumn)).AutoFilter Field:=2, Criteria1:=Array("ГДП", "ГДД", "ГИРГ", "П614"), Operator:=xlFilterValues
можно заменить на:
ActiveSheetCells1,1).CurrentRegion.AutoFilter Field:=2, Criteria1:=Array("ГДП", "ГДД", "ГИРГ", "П614"), Operator:=xlFilterValues
 
Перейти    
VBA. Как сохранить книгу без макросов в формате .xls
 
#
08.10.2017 14:57:17
Не думал, что можно так сильно извратить.
 
Перейти    
VBA. Как сохранить книгу без макросов в формате .xls
 
#
07.10.2017 04:56:28

Вы копируете лист со всеми потрохами. Копируйте только то, что Вам нужно. Сделайте новый лист и на него скопируйте диапазон ячеек.

Изменено: LAD - 07.10.2017 04:58:21
 
Перейти    
Более красивая запись, If comboBox = "несколько значений"
 
#
02.09.2017 15:26:54
Kuklp, пожалуйста  внимательно прочитайте #8, что бы зря не спорить.
 
Перейти    
Более красивая запись, If comboBox = "несколько значений"
 
#
02.09.2017 13:34:11

kuklp, если в ComboBox не запрещен ввод новых значений, то «ненужные мигания» будут с любым кодом.

Sanja, хотел показать, что иногда возможны несколько вариантов. Кстати самый короткий код не всегда оптимален
 
Перейти    
Страницы: 1 2 След.
Наверх