Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 158 След.
Удалить столбец в Эксель, Удалить столбец в Эксель
 
Добрый день.
Попробуйте таким:
Код
Sub Del_Clients_count()
    Dim ToFind$, Finded$, rngC As Range, addrC$, my_range As Range
    Set my_range = Range("a1").CurrentRegion
    ToFind = InputBox("Введите наименование столбца для удаления")
    If Not my_range.Find(ToFind) Is Nothing Then
        Set rngC = my_range.Find(ToFind)
        addrC = rngC.Address
        Finded = Mid(addrC, 2, 1) & ":" & Mid(addrC, 2, 1)
        Do
            Set rngC = my_range.FindNext(rngC)
            Finded = Finded & ", " & Mid(rngC.Address, 2, 1) & ":" & Mid(rngC.Address, 2, 1)
        Loop While rngC.Address <> addrC
        If Len(Finded) > 5 Then Finded = Left(Finded, Len(Finded) - 5)
    End If
    Range(Finded).Delete Shift:=xlToLeft
End Sub
Кому решение нужно - тот пример и рисует.
Макрос разложить строки по столбцам, Нужно строки раскидать по строкам
 
Здрасьте.
Попробуйте привязаться к свойству текущей строки "уровень группировки", а не к шрифту. Выделите в вашем примере на листе TDSheet первую группу (где 04.01.2024 и далее вниз строк на 5) и запустите такой простенький макрос:
Код
Sub t()
Dim oCell As Range
    For Each oCell In Selection
        Debug.Print oCell.EntireRow.OutlineLevel
    Next
End Sub
при его выполнении будет видно, какой уровень группировки у даты, какой у контрагента и т.д. Используя эти данные (умело используя!) можно будет раскидать данные в итоговую таблицу.
Кому решение нужно - тот пример и рисует.
Скрытие столбцов через макрос
 
Код
For Each cell In ActiveSheet.UsedRange.ROWS(2).Cells
If cell.Value = "Х" Then cell.EntireCOLUMN.Hidden = True
Кому решение нужно - тот пример и рисует.
Прогноз продаж по трем сценариям
 
когда забанили в гугле, можно попробовать яндекс.
Кому решение нужно - тот пример и рисует.
Скрытие столбцов через макрос
 
Код
Then cell.EntireColumn.Hidden = True
Кому решение нужно - тот пример и рисует.
Прогноз продаж по трем сценариям
 
Добрый день. Диспетчер сценариев? закладка ДАННЫЕ, п. "Анализ что-если?"
Кому решение нужно - тот пример и рисует.
Mail merge
 
Добрый день. Если под слиянием информации имеется в виду инструмент Word "слияние", то отображение переданной информации (с разрядами, без разрядов, и т.д.), насколько я помню, задается форматированием поля в Word. Ткните на поле в Word'е правой клавишей и посмотрите в контекстном меню "коды полей" как-то так, кажется.
Кому решение нужно - тот пример и рисует.
Добавить строки в умную таблицу
 
Ну, первое, что приходит в голову, вставлять количество строк на лист ПОСЛЕ определенной умной таблицы, а потом уже размножать строки непосредственно в ней.
Кому решение нужно - тот пример и рисует.
Оформление документа с переносом строк на новую и подчеркиванием, Оформление документа с автопереносом строк на новую и подчеркиванием до конца листа
 
zenija2007, если пойдете по этому пути, используйте моноширинный шрифт, сильно облегчит задачу.
Кому решение нужно - тот пример и рисует.
Оформление документа с переносом строк на новую и подчеркиванием, Оформление документа с автопереносом строк на новую и подчеркиванием до конца листа
 
zenija2007, можно шрифт менять на подчеркнутый, заниматься разбиением строки и добиванием пробелов до заданной ширины ячейки и объединением с переносами, но ей-тнбогу, Word для этого куда как симпатичнее.
Кому решение нужно - тот пример и рисует.
Помогите сделать автоматический запуск макросов в Excel
 
Посмотрите тут, или тут

Вкратце - можно засунуть в личную книгу макросов, тогда при запуске на вашей машине, под вашей учетке будет доступно для всех файлов. То же самое по первой ссылке - но через собственную надстройку. Как создать, подключить и т.д.
Кому решение нужно - тот пример и рисует.
Помогите дописать макрос, Макрос для открытия списка листов в Экселе
 
макрос на сочетание не вешается?
Кому решение нужно - тот пример и рисует.
Увеличение размера умной таблицы
 
Посмотрите на адресацию, в смысле, с какого листа запускаетесь, какой лист активный, где находится обрабатываемая таблица. Если она не на активном листе, надо полный путь прописывать каждый раз, когда обращаетесь к ней. Или запихивать в переменную сначала и дальше уже с ней работать. Или через конструкции With - End with
Кому решение нужно - тот пример и рисует.
Увеличение размера умной таблицы
 
Посмотрите я выше сообщение дополнил.
У меня при пошаговом в вашем файле отработало, единственное, что смутило, почему весь код запихнут в раздел код формы UserForm1?
Кому решение нужно - тот пример и рисует.
Увеличение размера умной таблицы
 
Здравствуйте. Может, в боевом файле объект ListObject того, отсутствует. В тестовом все отрабатывает.

Еще вставить строку можно так (применительно к примеру):
Код
ActiveSheet.ListObjects("Таблица5").ListRows.Add alwaysinsert:=True

Циклом повторить нужное количество раз.
либо, через Resize (для приведенного примера, опять же) увеличиваем на 2 строки:
Код
Sub TT()
    Dim my_table As ListObject, my_range As Range
    Set my_table = ActiveSheet.ListObjects("Таблица5")
    Set my_range = Range(my_table.Name & "[#All]").Resize(my_table.Range.Rows.Count + 2, my_table.Range.Columns.Count)
    my_table.Resize my_range
End Sub
Изменено: Пытливый - 15.12.2023 12:12:33
Кому решение нужно - тот пример и рисует.
Помогите дописать макрос, Макрос для открытия списка листов в Экселе
 
Добрый день.
Посмотрите это:
Код
Sub Select_Sheet()
If ActiveWorkbook.Sheets.Count <= 16 Then
Application.CommandBars("Workbook Tabs").ShowPopup 500, 225
Else
Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute
End If
End Sub

Взято отсюда
Кому решение нужно - тот пример и рисует.
Подсчет по условию в диапазоне между определенных ячеек, Подсчет по условию в диапазоне между определенных ячеек
 
Добрый. Можно в ячейку F3 примера вставить нечто такое:

Код
=ЕСЛИ(B3="+";F2+1;ЕСЛИ(B3="#";0;F2))


И растянуть вниз.
Кому решение нужно - тот пример и рисует.
Скачать много файлов по списку ссылок
 
Добрый день. Это можно сделать при помощи написания спец.процедур (макроса). Могут помочь в разделе РАБОТА, ибо бесплатно такое писать - ну как-то нет. :)
Кому решение нужно - тот пример и рисует.
Подсчет одинаковых значений в столбце, не учитывая определенное значение
 
Попробуйте формулу массива:
Код
=МАКС(СЧЁТЕСЛИ($A$3:$A$17;A3:A17)*($A$3:$A$17<>A17))


З.Ы. Ввод формулы массива заканчивается сочетанием Ctrl+Shift+Enter
Кому решение нужно - тот пример и рисует.
Форматирование числа в ячейке выравниванием по правому или левому краю, Форматирование выравниванием числа в ячейке диапазона отсортированных значений при помощи кода
 
Здравствуйте. Получить 0 или 1 можно при помощи определения остатка от деления числа на 2. У четных это будет 0, у нечетных - 1.
Выравнивание тоже вроде несложно - идем циклом по строкам, как значение изменилось - меняем выравнивание. Если значение не меняется - применяем выравнивание как у предшествующего значения.
Кому решение нужно - тот пример и рисует.
Копирование таблицы из другого файла
 
Добрый день. Попробуйте через метод
Код
Range.Find

Метод возвращает Nothing, если не нашел, и диапазон, если нашел. Подробнее синтаксис можно по F1 посмотреть.
Кому решение нужно - тот пример и рисует.
Удаление нулей в функции СМЕЩ
 
Александр Ли, я через СМЕЩ так не сумею. По идее, надо как-то показать формуле, что вот встретился 0 в строке с нужным наименованием - добавляй в смещение 1. Еще 0 встретили - еще 1 добавляй. На мой мозг лучше считать 0 (не попадающие в условия строки) в массиве и через Наименьший выводить первый ненулевой наименьший, второй и т.д., опираясь на функцию Строка.
Кому решение нужно - тот пример и рисует.
Изменить форму
 
naum_c, что у вас конкретно не получается? Если ничего не получается, то тут есть раздел "Работа".
Кому решение нужно - тот пример и рисует.
Удаление нулей в функции СМЕЩ
 
Александр Ли, З.Ы. Ввод формулы массива надо заканчивать сочетанием Ctrl+Shift+Enter

Перечитайте эти простые, но в тоже время великие слова.
Введите как надо формулу в F2  и растяните ее вниз.
Кому решение нужно - тот пример и рисует.
Удаление нулей в функции СМЕЩ
 
Добрый.
Если я правильно понял, в F2 в примере надо вставить такую массивную формулу:
Код
=ЕСЛИОШИБКА(НАИМЕНЬШИЙ(($A$2:$A$9=$E$2)*($B$2:$B$9);СТРОКА(A1)+СУММ(--(($A$2:$A$9=$E$2)*($B$2:$B$9)=0)));"")

И потом растянуть вниз.

З.Ы. Ввод формулы массива надо заканчивать сочетанием Ctrl+Shift+Enter
Кому решение нужно - тот пример и рисует.
2 таблицы на листе с независимым редактированием каждой, Как применить группирование ячеек (строк) только к одной таблице на листе?
 
Добрый. Можно разделить экран вертикально, расположить в файле таблицы одну ПОД другой, а на экране отобразить слева верхнюю, справа - нижнюю.
Кому решение нужно - тот пример и рисует.
Не удается открыть файл, так как формат или расширение этого файла являются недопустимыми, Не могу открыть файл Эксель
 
В зависимости от версии программы попробуйте восстановить несохраненную книгу.
Кому решение нужно - тот пример и рисует.
Код для преобразования текстовых значений в числовые
 
Приветствую. Проще всего это сделать руками:
1. где-нибудь в свободной ячейке вбить 1.
2. Скопировать эту ячейку
3. Выделить диапазон с "неправильными текстовыми числами"
4. ПКМ, спец.вставка, умножить.

З.Ы. Это при условии, что вам это НА САМОМ ДЕЛЕ нужно. Номера накладных зачем вам в число переводить? Складывать? Медиану считать?
Изменено: Пытливый - 30.06.2023 08:56:29
Кому решение нужно - тот пример и рисует.
Фильтр цвета, Фильтрация столбца по 2м и более цветам
 
Добрый.
Код
x.DisplayFormat.Interior.ColorIndex

Но лучше при фильтрации использовать условия из УФ, а не цвет.
Кому решение нужно - тот пример и рисует.
при вводе определённой фамилии вставить в другую ячейку адрес
 
В зависимости от расположения исходных данных это можно организовать при помощи функции ВПР
Кому решение нужно - тот пример и рисует.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 158 След.
Наверх