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

Страницы: 1 2 3 4 5 6 7 8 9 След.
Макрос автоподбора ширины столбцов определенного диапазона
 
в дополнении к опубликованным ответам:
Код
[A:D].Columns.AutoFit
Помогите указать макросу конкретный "Лист" для исполнения., Прописать абсолютный путь.
 
В дополнении к перечисленным
Код
Sheets("ИмяЛиста").[A1].Value
Макрос найти-заменить, оптимизация кода
 
Цитата
MonsterBeer написал:
Макрос реализован в надстройке, а как мне закинуть данные справочника на этот лист, а потом еще и обратится к нему?
Создайте файл xlsx например (СправочникЗамен.xlsx), внесите в него список замен, сохраните его в формате хlam, добавьте надстройку, затем как в коде ниже.

Код
Sub test()
    Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary")
    Dim cl As Range
    Dic.CompareMode = vbTextCompare
    With Workbooks("СправочникЗамен.xlam").Sheets("Лист1")
        For Each cl In .[A1:A8]
            Dic.Add cl.Value, cl.Offset(, 1).Value
        Next cl
    End With
    For Each cl In Selection
        If Dic.exists(cl.Value) Then cl.Value = Dic(cl.Value)
    Next cl
    Set Dic = Nothing
End Sub

Изменено: Scripter - 21.05.2015 04:53:19
Макрос найти-заменить, оптимизация кода
 
вы имеете ввиду список замен?
если да то это не проблема, вынесите справочник замен в отдельный лист, пробегитесь по нему
Код
for each cl in [лист].[range]
     dic.add [что искать],[чем заменить]
next cl
наберете справочник замен, затем как в моем предыдущем сообщении пройдётесь по selection

будет достаточно быстро
Изменено: Scripter - 20.05.2015 17:34:57
Макрос найти-заменить, оптимизация кода
 
Цитата
MonsterBeer написал: Есть мысли как упростить код?
Код
Sub test()
    Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary")
    Dim cl As Range
    Dic.CompareMode = vbTextCompare
    Dic.Add "DAX", "ФИО1"
    Dic.Add "DAZ", "ФИО2"
    Dic.Add "DBI", "ФИО2"
    Dic.Add "DDB", "ФИО3"
    Dic.Add "DDC", "ФИО2"
    Dic.Add "DDF", "ФИО3"
    Dic.Add "DDG", "ФИО"
    Dic.Add "DDH", "ФИО3"
    
    For Each cl In Selection
        If Dic.exists(cl.Value) Then cl.Value = Dic(cl.Value)
    Next cl
    Set Dic = Nothing
End Sub
Изменено: Scripter - 20.05.2015 17:16:30
инвентаризационная ведомость: переносить остатки по дням
 
Цитата
poleontolog написал: чтоб при копировании таблицы на следующий день чтоб формула сама становилась
только прибегнув к помощи VBA
Excel и Access - обмен информации
 
Цитата
Medvedoc пишет:
Где можно найти подобные примеры?
если с английским дружите то поможет
http://www.java2s.com/Code/VBA-Excel-Access-Word/CatalogVBA-Excel-Access-Word.htm


сайт http://www.java2s.com/
Ищу сотрудника в СПБ, Компании требуется Аналитик / Специалист по обработке информации
 
Цитата
d_redkin пишет:
Профессиональное владение Excel
не большие требования для аналитика у вас)
VBA доступ к функции с нескольких рабочих книг
 
можно использовать надстройку (addins), сохранить файл в формате *.xla или *.xlam, в поисковике тоже предостаточно информации
Создание автоматизации учета заказов и товаров в Ексель, написание макросов и формул
 
отписал в личку
Поиск значения в текстовых строках в ячейках
 
Код
If Cells(x, 1) like "Прием*" then Cells(x, 1).interior.color = vbred

 
Некорректный результат при работе с базой данных
 
Цитата
Werty пишет: что я делал в своём запросе не так?
запрос ваш не так, с базами тоже работаю не первый год, но что вы хотели сделать так и не понял, пока вы не выложили нормальный запрос,
раз пошла такая пьянка ... вот вам еще решение
Код
 
Query = _
    " SELECT ПЕРВАЯ.ID, ПЕРВАЯ.NAME, ПЕРВАЯ.SITY, ПЕРВАЯ.OLD, ПЕРВАЯ.УК, " & _
    " (   SELECT COUNT(*) " & _
    "    FROM ВТОРАЯ " & _
    "    WHERE ВТОРАЯ.Name = ПЕРВАЯ.Name  " & _
    "        AND ВТОРАЯ.SITY = ПЕРВАЯ.SITY " & _
    "        AND ВТОРАЯ.ID = ПЕРВАЯ.ID " & _
    "        AND ВТОРАЯ.OLD = ПЕРВАЯ.OLD ) AS ПРОВЕРКА " & _
    " FROM ПЕРВАЯ " & _
    " WHERE ПЕРВАЯ.ID = 15000 "
    
Подсчет уникальных значений по заданному параметру
 
если правильно понял, то так
Суммирование с учетом месяца
 
так?
Изменено: Scripter - 24.06.2014 13:29:39
впр и поискпоз макросом, впр и поискпоз макросом
 
Цитата
Hugo пишет: Я поискал данные для сентwwwябр
это да, отладку ошибки как то упустил сразу
на счёт скорости согласен, со словарём шустрее будет, но не заморачиваюсь с ним на небольших объёмах.
впр и поискпоз макросом, впр и поискпоз макросом
 
Цитата
Hugo пишет:
Sub test() Scripter'а врёт немного
где врёт не подскажете?

вроде тестировал, результат тот же что у формул, добавил проверку на ошибку на всяк случай (если не найдено значение, то ячейка empty)

Код
Sub test()
Dim n%, z%, oCell As Range
On Error Resume Next
For Each oCell In ActiveSheet.Range("B2:M6")
    n = Sheets("Лист1").Range("A1:M1").Find(Cells(1, oCell.Column)).Column
    z = Sheets("Лист1").Range("A1:A6").Find(Cells(oCell.Row, 1)).Row
    If Err.Number = 0 Then
        oCell.Value = Sheets("Лист1").Cells(z, n).Value
    Else
        Err.Clear: oCell.Value = Empty
    End If
Next
End Sub
 

как я понял, человеку просто нужен lookup, только вот с столбец заранее не известен, поэтому столбец, с которого нужно вернуть данные, определялся через match  
впр и поискпоз макросом, впр и поискпоз макросом
 
аналог того что вы делаете формулами
Код
Sub test()
Dim n%, z%, oCell As Range
On Error Resume Next
For Each oCell In ActiveSheet.Range("B2:M6")
    n = Sheets("Лист1").Range("A1:M1").Find(Cells(1, oCell.Column)).Column
    z = Sheets("Лист1").Range("A1:A6").Find(Cells(oCell.Row, 1)).Row
    oCell.Value = Sheets("Лист1").Cells(z, n).Value
Next
End Sub
 
другой вариант, использовать worksheetfunction.vlookup и WorksheetFunction.Match (соотвественно ВПР и  ПОИСКПОЗ)
Изменено: Scripter - 23.06.2014 15:59:47
Копирование вида ячейки с помощью формулы
 
Цитата
Egor пишет:
автоматически копировались (значения, цвет шрифта, цвет фона ячейки, примечание) из таблицы№1.
Желательно без использования макросов
хы
Цветовая заливка дублей в разных столбцах
 
vikttur, попробуйте так
Скрытый текст
Изменено: Scripter - 17.06.2014 16:11:44
автоматическая подстановка чисел
 
если не знаете как включить макрос, вот есть переключалка режима безопасности,написанная одним из участников этого форума.

http://www.excel-vba.ru/general/moi-programmy-dlya-raboty-s-excel/upravlenie-bezopasnostyu-makrosov/
автоматическая подстановка чисел
 
Думаю вам Владимир бы сразу написал, если б можно было, а чем вас смущает макрос?
автоматическая подстановка чисел
 
вот
Скрытый текст
только включите поддержку макросов
Изменение значений на положительное и отрицательное
 
либо макросом, либо только в дополнительном столбце
VBA. Динамический список переменных передать в SQL
 
Если данные однотипные, то можно через LIKE вытащить то что вам нужно
Код
 where u.locatn LIKE '1A-%'
в данном случае выборка будет всех значений, которые начинкаются с 1A-
Изменено: Scripter - 05.06.2014 04:18:00
VBA. Динамический список переменных передать в SQL
 
создать переменную типа string, циклом забрать в нее данные с диапазона и влупить в in

Код
Dim SQL$, oCell As Range
For Each oCell In Sheets("ëèñò1").Range("A1:A10")
    SQL = SQL & "'" & oCell.Value & "',"
Next
SQL = Left(SQL, Len(SQL) - 1)  
  
' чего то там
where u.locatn in (" & SQL & ");" 

а вообще не очень читаем код, можно проще чонить
помощь с формулой подсчета количества уникальных значений по 2 условиям, платно
 
Цитата
supergirl пишет:
Никаких макросов и формул массива
Галочка в объединненой ячейке
 
Замените
Код
 With Target
на
Код
With ActiveCell 
Нужен макрос
 
Цитата
lexey_fan пишет:
просто проконстатировал факты
поддержу заказчика, притензия явно есть с вашей стороны
Цитата
lexey_fan пишет:
по срокам было оговорен 1-3 дня, реализовано было в тот же день, больше на связь заказчикне вышел!
VBA посчитать кол-во заполненных строк или ячеек
 
Если нужно чтоб при открытии книги срабатывал код, то нужно поместить код в "Эта книга"



Если вам нужно посчитать ВСЕ заполненные (не найти последнюю строку) ячейки на листе:
Скрытый текст
В определенном столбце
Скрытый текст
или
Скрытый текст
Найти последнюю строку на листе, если последнее значение которое увеличивает диапазон может быть в любом столбце
Скрытый текст
Найти последнюю строку на листе по определенному полю
Скрытый текст
Изменено: Scripter - 16.05.2014 17:48:46
VBA посчитать кол-во заполненных строк или ячеек
 
так кол-во заполненных
Код
Msgbox "Кол-во заполненных ячеек в столбце А: " & Worksheetfunction.CountA(Columns(1)) 
так номер последней строки
Код
Msgbox "Номер последней заполненной строки: " & Cells(Rows.Count,1).end(xlup).row 
Изменено: Scripter - 16.05.2014 08:58:46
Страницы: 1 2 3 4 5 6 7 8 9 След.
Наверх