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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 125 След.
Разделение текста по разделителю на строки
 
Максим, на работе часто приходится переносить текст из Word в Excel, и там наоборот перенос строки трактуется как новая строка.
Попробуйте сначала скопированное вставить в Word, а уже потом уже скопировать и перенести в Excel.
Подтянуть значение, если диапазон через ячейку или несколько и находится на другой строке, Замена ВПР но не знаю чем или как правильно
 
Для старого
Код
=ИНДЕКС(График!$A$3:$AF$54;ПОИСКПОЗ($A5;График!$A$3:$A$54;0)+3;СТОЛБЕЦ())
Данные из "БАЗЫ" в любую ячейку "РАСЧЕТА", Формирование таблици
 
Держите вариант.
В Module1 вставляете Public Cl As Variant, mySh As String
В модуль ЭтаКнига код ниже
Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
    If Not Sh.Name Like ("БАЗА") Then
        Sheets("БАЗА").Select
    Else
        Sheets(mySh).Range(Cl).Value = Target.Value
        Sheets(mySh).Select
    End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Sh.Name Like ("БАЗА") Then
        mySh = Sh.Name
        Cl = Target.Address
    End If
End Sub
Другой код в листах Расчет и База удаляете
Поиск через VBA по массиву со скрытием
 
Sanja, зато есть стимул разобраться.
Прикрутил к файлу решение  Alex_ST
Поиск через VBA по массиву со скрытием
 
Добрый день!
Попробуйте посмотреть здесь
'============================================================­===============================================
' Author       : Alex_ST
' Topic_HEADER : Удобный автофильтр
' Topic_URL    : http://www.planetaexcel.ru/forum.php?thread_id=11478
' Post_Author  : Alex_ST
' Post_URL     :
' Date_Time    : 20.02.11
' Purpose      : Программа фильтрации по критерию "содержит" в соответствии с изменениями содержимого текстбоксов
' Notes1       : если задать аргумент СТОЛБЕЦ% = 0, то столбец для фильтрации будет определяться автоматически по положению левого верхнего угла каждого текстбокса
' Notes2       : возможно автоматическое позиционирование текстбоксов относительно ячеек и подгонка их ширины-высоты
' Notes3       : возможна автоматическая замена при вводимых в текстбоксы пробелов на звёздочки
'============================================================­===============================================
Запрос на помощь по извлечению данных из файла .docx, Прошу помощи в извлечении и обработке данных из файла .docx, выделенных зеленым и желтым цветом. Требуется улучшение кода для извлечения дополнительной информации. Прилагаю файлы. Спасибо!
 
Попытался... На тестовом файле подогнал...
не смог написать условие для Суммы в RegExp и не смог в итоговой таблице границы закрасить:( Где-то надо явно указывать что это Excel, но не смог...
Скрытый текст
Может кто подскажет как регулярным выражением вытащить сумму - 113411,67, а не извращаться со строкой.
Тестовый файл не прикреплял, он выше.
VBA создание подключения к источнику данных, Использование документов слияния
 
БМВ,  Спасибо, не досмотрел что это просто строка :(  Надо или очки покупать или ноут менять на большой экран.
А вот эта часть  User ID=Admin? это не отсылка к правам пользователя? Пример делал с домашнего, а вот что пишет на работе не посмотрел:( Да и что можно из записи выкинуть без последствий?
VBA создание подключения к источнику данных, Использование документов слияния
 
Создаю письма в Ворд, данные для письма в файле Excel. Периодически теряется подключение к источнику данных. Могу пройти путь в ручную, но вот бесит... Попробовал написать макрос. Задача открыть единственный файл Excel в папке с бланком письма не зависимо от расширения.
Но вот в строке подключения выданной макрорекодером вызывают сомнения части строки User ID=Admin и хотелось бы иметь возможность указывать имя листа откуда берем данные FROM `01Osn$`" в переменной.
Забыл, проба макроса в Ворде.
Код
Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=sConn;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mode=0;Jet OLE" _
        , SQLStatement:="SELECT * FROM `01Osn$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
Изменено: Igor67 - 25.11.2023 12:53:59 (расположение макроса)
Разделитель строки., Получить данные с двухстрочной ячейки построчно.
 
Код
=ПСТР($A4;1;ПОИСК(СИМВОЛ(10);$A4;1)-1)
=ПСТР($A4;ПОИСК(СИМВОЛ(10);$A4;1)+1;10)
Каксвязать столбцы с одинаковыми названиями но находящиеся на разных листах, Привязка изменяющегося каждый день столбца "Дата" на одном листе к столбцу с соответствующей датой на другом листе
 
 Так там по дате и ищется столбец. Еще вариант перебором дат.
ПС в примере все работает, а что у вас в рабочем файле - не знаю.
Каксвязать столбцы с одинаковыми названиями но находящиеся на разных листах, Привязка изменяющегося каждый день столбца "Дата" на одном листе к столбцу с соответствующей датой на другом листе
 
Добрый день!
Формулы не позволят зафиксировать значения. Поэтому макрос. Обратите внимание таблицу Октябрь в примере обозвал МесяцТек и изменил формат отображения даты в шапке. Есть в ВБА проблемы при поиске даты с разными форматами и я не разбираюсь в этом. Как искать по вашему формату не знаю.
Жмите на кнопку. Макрос ищет столбец даты, вставляет формулу ВПР() и потом преобразует формулы в значение.
Формула: понедельник+номер месяца+# в ячейку
 
день+месяц
Код
=ТЕКСТ(СЕГОДНЯ()-ДЕНЬНЕД(СЕГОДНЯ();3);"ДДММ\#")
год+месяц
Код
=ТЕКСТ(СЕГОДНЯ();"ГГММ\#")
автоскрытие строк в таблице при условии заданной 1ой пустой колонке, Вопрос по автоскрытию строк.
 
Цитата
написал:
обращался к диапазону TABLE1, TABLE2 например к колонке A
Обращаемся к диапазону - Range("TABLE1").Select
Обращаемся к заданному столбцу в диапазоне - Range("TABLE2").Columns(1).Select
Как выбрать значение по условию?, Запутался с синтаксисом при составлении формулы СУММ
 
FAV123, у вас задача скорее выбора значения по условию.
Юрий М, это можно и названием темы сделать
Если вынести формулы в сторону (не запихивать в 1 ячейку), то можно использовать ВПР(B$7-B$6;{0;0:8,01;0,5:10;1};2;1) для выбора значения по перерыву.
смотрите вариант в файле.
Можно создать пользовательскую функцию, но это уже макрос и соответствующие ограничения.
Макрос для автоматического подсчета итогов по условию без учета промежуточных итогов
 
Вставьте перед Next проверку на достижение последней строки таблицы и вставку формулы.
Код
         If yy = UBound(arr, 1) Then
         .Cells(yy, 2).Resize(1, 11).FormulaR1C1 = "=SUBTOTAL(9,R[-" & yy - 5 & "]C:R[-1]C)"
         End If
Макрос для автоматического подсчета итогов по условию без учета промежуточных итогов
 
Цитата
написал:
не вводится формула в строку общего итога
А у Вас итоговая формула макросом  и не вставлялась :)
Макрос для автоматического подсчета итогов по условию без учета промежуточных итогов
 
Попробуйте заменить СУММ() на ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;B5:B20).
Код
.Cells(yy, 2).Resize(1, 11).FormulaR1C1 = "=SUBTOTAL(9,R[-" & nn & "]C:R[-1]C)"
И еще у Вас в итого Расходы 6 считались и промежуточные значения расходов 2-5 без строки ИТОГО

Последняя заполненная строка в диапазоне.
 
А что Вы хотели? Строка определяется. Для проверки добавьте     Rows(LastRow).Select
Условное форматирование значений
 
Условным форматированием будете дольше условия расписывать. В этом году (3 месяца) кажется подобную задачу решали и макрос делали. Поищите.  
Задача - при вводе числа в ячейку отнять предыдущие показания в строке и вывести результат.
 
Если Вы сделаете 2 строки в одной вносите данные, а во второй простая формула типа =C1-СУММ($B$2:B2)
Если в одной ячейке ввод и вычисление - макрос.
Создание формулы на ячейку повторяющуюся через определенное количество строк
 
Вариант через ИНДЕКС(), а шаг через 1+29*(СТРОКА(A1)-1)
код на удаление поле со списком (элементы управления формы)
 
Вы бы показали более менее приближенный пример. А то у вас... У меня на ОФ2007 не хотел копировать листы с умной таблицей. Сам макрос создал 2 книги с лист1 и лист2 с учетом отключения обработки ссылок.
Код
    Dim fp$, s As Worksheet, nm As Name, wb As Workbooks
    Dim loTemp As ListObject

    fp = ThisWorkbook.Path & Application.PathSeparator
    For Each s In ActiveWindow.SelectedSheets
        If s.ListObjects.Count > 0 Then
            'судаляем таблицы
            For Each loTemp In s.ListObjects
                loTemp.Unlist
            Next loTemp

            For Each nm In s.Names    'обработка имен в копируемых листах
                If nm.Visible Then
                    If Not nm.Name Like "*!Print_Area" Then  ' имена областей печати лучше оставить
                        nm.Delete
                    End If
                    '      Else
                    '         If Not nm.Name Like "*!_FilterDatabase" Then nm.Delete   ' удалить все скрытые имена диапазонов кроме фильтров
                End If
            Next nm
            s.Copy    ' копируете выделенные листы

            ' ______________________________________________________________________
            '        Set wb = ActiveWorkbook
            '        WorkbookLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)
            '        If IsArray(WorkbookLinks) Then
            '            For i = LBound(WorkbookLinks) To UBound(WorkbookLinks)
            '                wb.BreakLink Name:=WorkbookLinks(i), Type:=xlLinkTypeExcelLinks
            '            Next i
            '        End If
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs fp & "_" & s.Name & [CHAR(95)&TEXT(NOW(),"DDMMYYHHSS")], FileFormat:=51
            ActiveWorkbook.Close False
        Next
    End Sub
код на удаление поле со списком (элементы управления формы)
 
Посмотрите вариант решения ТУТ
Удалить строки значения в которых не соответствуют маске, Удалить строки значения в которых не соответствуют маске
 
Вариант. Код ОКТМО преобразовывает в число. Если необходимо текстовое значение в строке необходимо 1 заменить на 2
Код
Range("A13").Resize(ifMask, 1).NumberFormat = "@"
Ячейка с накоплением (нарастающим итогом) - Ошибка 449, Запуск макроса из старой темы выдает ошибку, но в оригинальном примере работает
 
Budapest, а у Вас точно эксель от микрософта, и Вы уверены что в Либре должен работать ВБА?  
Изменено: Igor67 - 04.04.2023 21:53:07
Объединение данных из разных файлов excel в одну таблицу
 
А можно вариант на форуме поискать. Похожее решение с 2008 года лежит:)
http://www.planetaexcel.ru/forum.php?thread_id=3878
Поиск повтора по условному форматированию или значению в диапозоне, Необходимо найти повторяющиеся данные программным кодом
 
Держите вариант, играйтесь:)
Копирование нескольких строк расположенных в разных таблицах на одном листе, Перенести данные из одной таблицы в другую по дате, при условии, что данные расположены в нескольких таблицах друг под другом на одном листе
 
А хто ж его знает что там у Вас. На вашем напримере все работает, проверяйте. Может у вас не дата в исходнике или еще что. Но это не ко мне. На слух и по фотографиям диагноз не ставлю.
Копирование нескольких строк расположенных в разных таблицах на одном листе, Перенести данные из одной таблицы в другую по дате, при условии, что данные расположены в нескольких таблицах друг под другом на одном листе
 
Пробуйте. Поместите файл в папку с Вашими данными и проверяйте. Предварительно скопируйте их в отдельную резервную папку. Делал с жесткой привязкой по образцу со всеми пустыми строками. Закрытие, сохранение файлов прописывайте сами.
Если структура данных изменится :(
С девятого по двадцать пятый столбец вставить пустой столбец после каждой колонки, Vba
 
Макрос
Код
Sub pasteCol()
    Dim lCol As Long
    Application.ScreenUpdating = False
    For lCol = 25 To 10 Step -1
        Columns(lCol).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Next lCol
    Application.ScreenUpdating = True
End Sub
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 125 След.
Наверх