Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 185 След.
Обращение к ячейкам Access в цикле VBA
 
Ведмедь, чего пристал? Я сам всего третий или четвертый раз макрос для Recordset написал.  :)
Обращение к ячейкам Access в цикле VBA
 
Код
Sub qq()
    Set rs = Db.OpenRecordset("q_promoexcel", dbOpenDynaset)
    rs.MoveNext: rs.MoveNext: rs.MoveNext
    x = rs(1): xx = rs(2)
    rs.MoveNext
    Do While Not rs.EOF
        If rs(1) = x Then
            rs.Edit
            rs(3) = xx + rs(2)       
            rs.Update
        End If
        x = rs(1): xx = rs(2)
        rs.MoveNext
    Loop
        rs.Close
End Sub
Изменено: RAN - 16 Окт 2019 13:49:53
В смешанных ячейках (буквы и цифры) -в строке формул только цифры, При просмотре листа отображается полностью вся информация, но в строке формул содержится только цифры
 
Андрей, а это зачем?
Код
.Formula = .Value


этонияэтооносамо?
Изменено: RAN - 14 Окт 2019 09:10:22
Поместить все согласные буквы в одну ячейку
 
Цитата
Настя_Nastya написал:
просто немножко подумать...
Зачем думать? Проще трясти форум с воплями "вы же тут сидите, чтобы мне задачки решать".
Изменено: RAN - 13 Окт 2019 18:18:42
Макрос: Заливка ячеек при определенных параметрах
 
Код
 With Union(cell.Offset(0, 1), cell.Offset(0, 2)).Interior
Поместить все согласные буквы в одну ячейку
 
Я не согласная, вот Й - та да.  :D
формула в иксель, опять завсегдатаи резвятся )
 
Мелкий титьку потерял. Сердитый.  :D
формула в иксель, опять завсегдатаи резвятся )
 
Кот добрый, когда рыбину новую сцапает, мелкий - когда титьку найдет.  :D
Изменено: RAN - 11 Окт 2019 18:31:22
Менять заливку выходных дней, на каждый месяц
 
Цитата
Юрий М написал:
27 Мар 2016 12:15:27
Цитата
Студент написал:
23 Фев 2019 21:06:09
Цитата
Ігор Гончаренко написал:
11 Окт 2019 14:58:33
Парад долгодумов  :D
Необходимо в двух таблицах найти расхождение по данным
 
Вы плохо читаете.
Цитата
Пытливый написал:
от такую формулу массива:
Как с помощью VBA добавить в ячейку текст с сохранением существуещего форматирования текста внутри ячейки?
 
Почему нельзя?
Считываете из ячейки параметры каждого символа (Font, Bold, Italic и пр.), добавляете новый текст, затем к старому тексту применяете считанные ранее параметры символов.
Изменение данных в одной и той же ячейке, с разных листов книги
 
Логика  :)
С любого листа запускается макрос, изменяющий значение нужной ячейки на нужном листе.
Информация из ячейки на панель ribbon
 
Для самых ленивых
Изменение данных в одной и той же ячейке, с разных листов книги
 
Минусы любого из решений существенно перевесят плюсы от его применения.
Варианты - макрос, итеративные вычисления.
Набор функций ИНДЕКС перестали работать только на некоторых ячейках без видимых причин, Набор функций вида: =СУММ(ИНДЕКС($AR6:$AQT6;ПРОСМОТР(1;1/($AR6:$AQT6="тр");СТОЛБЕЦ($A$1:$AQT$1))+1):AQT6), перестали работать только на некоторых ячейках без видимых причин
 
Как же без видимых? Причины прекрасно видны в столбцах AFG-AGF
Нет ввода по двум параметрам, если включать макросы.
 
Птица "скрыть формулы" + защита листа.
Нет ввода по двум параметрам, если включать макросы.
 
Цитата
Юрий_Нд написал:
что там макросы делают?
Живут.  :D
Нет ввода по двум параметрам, если включать макросы.
 
Цитата
Юрий_Нд написал:
но ещё и считает значение, при отключенных макросах.
А с каких пор для работы формул стало необходимо включать макросы?
Нет ввода по двум параметрам, если включать макросы.
 
Как вы лодку назовете, так она и поплывет.
Как макрос написан, так он и работает.
А разбираться в этой куче, как оно должно быть - дело не благодарное.
Ищем специалиста на постоянную удаленную работу, Ищем специалиста на постоянную удаленную работу
 
.
Изменено: RAN - 8 Окт 2019 16:36:17
Excel вылетает при выполнении макроса, когда экран заблокирован, но не вылетает при разблокированном экране
 
Пару лет назад или здесь, или на excelworld обсуждался код, препятствующий включению блокировки. Поищите.
Программно снять пароль с VBAProject
 
Цитата
Kontugenyi написал:
но проект остается открытым до тех пор, пока книга не будет открыта заново
Не так давно, кто-то сильно проедал плешь именно с этим вопросом. Длинная была тема.
Перевод тысяч в единицы
 
Ну, при желании, можно и так рассматривать
-- Сколько будет 2 + 2 ?
-- А мы покупаем, или продаем?
Перевод тысяч в единицы
 
И что вы тут копья ломаете?
Если все сделано правильно, то достаточно сменить формат ячеек.
Если нет - то кто из вас видел мертвяка, которому припарки помогли?
Как убрать замыкание ломаной линии
 
SkyGreen, я бы порекомендовал внимательнее ознакомиться с темой по ссылке из #2, согласиться с тем, что это именно то, что нужно, и сделать макрос на основе предложенных там алгоритмов.
Система безопасности отключает макросы, При запуске книги эксель с проддержкой макросов(.xlsm) Система безопасности отключает макросы
 
Как вариант
Файл скачан с интернета, и заблокирован ОС. (см. свойства файла)
Как убрать замыкание ломаной линии
 
Код
Sub PolylineСontour(ByVal shp As Shape, ByVal d As Double, ByVal leftHand As Boolean)
    Dim polyPoints() As GeomPoint, polyPoints2() As Single
    Dim ls() As GeomLine, l As GeomLine
    Dim i As Long, n As Long
    GetPolylinePoints shp, n, polyPoints
    ReDim ls(1 To n)
    For i = 1 To n
        GetLine polyPoints(i), polyPoints(i Mod n + 1), l
        GetParallelLine2 l, d, leftHand, ls(i)
    Next
    '     ReDim polyPoints2(1 To n + 1, 1 To 2) As Single
    ReDim polyPoints2(0 To n, 1 To 2) As Single
    For i = 1 To n
        GetIntersectionPoint ls(i), ls(i Mod n + 1), polyPoints(i)
        polyPoints2(i, 1) = polyPoints(i).x
        polyPoints2(i, 2) = polyPoints(i).y
    Next
    polyPoints2(0, 1) = polyPoints2(UBound(polyPoints2), 1)
    polyPoints2(0, 2) = polyPoints2(UBound(polyPoints2), 2)
    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, polyPoints2(0, 1), polyPoints2(0, 2))
        For i = 0 To UBound(polyPoints2) - 1
            .AddNodes msoSegmentLine, msoEditingAuto, polyPoints2(i, 1), polyPoints2(i, 2)
        Next
        .ConvertToShape.Select
    End With
    '
    '    Set shp = shp.Parent.Shapes.AddPolyline(polyPoints2)
    '    Dim nds
    '    Set nds = shp.Nodes
    '    n = nds.Count
    '    shp.Fill.Visible = msoFalse
    '    shp.Line.ForeColor.RGB = 0
    '    shp.Line.DashStyle = msoLineDash
End Sub
Как убрать замыкание ломаной линии
 
Тезка, привет!
ТС явно нужно смещение векторов, однако
Цитата
SkyGreen написал:
это вообще не по моей теме.

Зачем думать? Трясти надо! :D
Очистка содержимого ячейки Листа2 по условию ячейки Листа1 МАКРОС.
 
Цитата
Jack Famous написал:
Быстрее?
Больше.
Определение крайней ячейки и вставка скопированных значений
 
Код
Sub Мяу()
    With ActiveSheet.ListObjects(1)
        '.ListRows.Add это если нужно добавлять строки
        .DataBodyRange.Formula = .DataBodyRange.Formula
        .DataBodyRange.Offset(1).Resize(.ListRows.Count - 1).Value = .DataBodyRange.Offset(1).Resize(.ListRows.Count - 1).Value
    End With
End Sub
Изменено: RAN - 28 Сен 2019 13:02:58
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 185 След.
Наверх