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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 213 След.
Автоматическое обновление значении без запроса
 
Цитата
Ибрагим Белхороев написал:
andylu, я вставлял этот код, он не помогает
Если свечи вставлять в рот, то тоже не поможет. Вставлять нужно в предназначенное для оного место.
Совместное использование формул и макросов значительно сложнее, чем использование того или иного по отдельности
Если соблюсти все условия, необходимые для правильной работы вашего кода (открытая Книга2), то он и работает корректно
Регулярные выражения. Метасимволы. Поиск наиболее полного руководства
 
https://www.script-coding.com/WSH/RegExp.html
Вставить нужный текст в ячейки через определенное количество строк.
 
Код
Sub m3()
    Dim ash As Worksheet, m3u As Worksheet
    Dim audio, i&, j&, lr&
    audio = Array("audio-1", "audio-2", "audio-3", "audio-4", "audio-5")
    Set ash = ActiveSheet
    Set m3u = Worksheets.Add(after:=Sheets(Sheets.Count))
    Application.ScreenUpdating = False
    ash.Cells(1, 1).Copy m3u.Cells(1, 1)
    For i = 2 To ash.Cells(Rows.Count, 1).End(xlUp).Row Step 15
        lr = m3u.Cells(Rows.Count, 1).End(xlUp).Row + 1
        lr = lr - (lr > 2)
        ash.Cells(i, 1).Resize(15).Copy m3u.Cells(lr, 1)
        lr = m3u.Cells(Rows.Count, 1).End(xlUp).Row + 2
        m3u.Cells(lr, 1) = "#EXTINF:0," & audio(j) & ".mp3"
        m3u.Cells(lr + 1, 1) = audio(j) & ".mp3"
        j = -(j + 1) * (j < UBound(audio))
    Next
    Application.ScreenUpdating = True
End Sub
Форматировать ячейку с формулой с помощью макроса
 
МатросНаЗебре, Я, правда, имел ввиду немного не так
С формулой возиться лень, поэтому Value
Код
Sub Макрос1()
    With Range("A19")
'        .FormulaR1C1 = "=""1.1. Обязательство Субагента перед Агентом по перечислению выручки," _
'                       & " полученной от реализации перевозок по договору №13 – САГ от « 28 » августа 20 20 года," _
'                       & " составляет""&"" ""&'[Реестр грузовых авианакладных копия1.xlsm]Итоговая декада'!R13C15&"" ""&'[Реестр грузовых авианакладных копия1.xlsm]Итоговая декада'!R14C15&"",""&"" без НДС."""
        .FormulaR1C1 = "1.1. Обязательство Субагента перед Агентом по перечислению выручки, полученной от реализации перевозок по договору" & _
        Chr(160) & "№13 – САГ" & Chr(160) & "от « 28 » августа 20" & Chr(160) & "20" & Chr(160) & "года, составляет" _
        & Chr(160) & "105 (сто пять рублей)" & ", без НДС."

        Dim s As String
        Dim v As Variant
        s = Replace(Replace(Replace(Replace(.Value, "(", Chr(160)), ")", Chr(160)), Chr(171), Chr(160)), Chr(187), Chr(160))
'        For Each v In Array("(", ")")
'            s = Replace(s, v, " ")
'        Next
        a = Split(s, Chr(160))
        b = 0
        For i = 0 To UBound(a)
            Select Case i
            Case 1, 3, 5, 7, 8
                With .Characters(b + 1, Len(a(i))).Font
                    .Italic = True
                    .Underline = True
                End With
            End Select
            b = b + Len(a(i)) + 1
        Next
    End With
End Sub
Изменено: RAN - 17.06.2021 14:34:15
Форматировать ячейку с формулой с помощью макроса
 
А я бы в нужных местах вставил chr(160), и далее
Код
a = Split(s, chr(160))

И количество блоков сократится, и фрагменты с пробелом, типа "№13 – САГ" можно будет форматировать одним блоком.
ListBox добавлене множественного выбора в каждую последующую ячейку строки, ListBox добавлене множественного выбора в каждую последующую ячейку
 
Код
       With List1
       .Cells(.ListObjects(1).Range.Row + .ListObjects(1).ListRows.Count + 1, 1) = mdk1
       End With
Форматировать ячейку с формулой с помощью макроса
 
И где тут 160?
Форматировать ячейку с формулой с помощью макроса
 
Ведмедик, привет. А где ты chr(160) сыскал?
Форматировать ячейку с формулой с помощью макроса
 
Цитата
Ибрагим Белхороев написал:
Но как почему то набор символов без пробела форматируется некорректно.
Если вы форматируете первое слово (индекс в массиве 0), то почему вы считаете, что должно отформатироваться 15 слово (индекс в массиве 14)?
Или у вас с арифметикой нелады, и других чисел вы не знаете?
БМВ все разжевал, на ложку положил, в рот вам засунул... Проглотите уже.
Форматировать ячейку с формулой с помощью макроса
 
Цитата
Ибрагим Белхороев написал:
видимо этим кодом не удастся форматировать то, что мне нужно?
Видимо нет.
Цитата
Ибрагим Белхороев написал:
Может причина в том, что они относятся к одному событию?
Ни в коем разе. В том, что они относятся к одному юзеру.
Прошу помощи по макросу "Обновление связей", Несколько книг со связями
 
Цитата
boberchik написал:
каждые 2 секунды
это так
Код
tn_ = Now + TimeValue("00:00:02")

а то, что у вас ждет дату "30.12.1899 15:02:47"
Как привязаться к ячейкам с текстовым идентификатором, чтобы макрос действовал в определенном диапазоне?
 
Как вариант, используйте метод Find для поиска нужных ячеек.
VBA. Разное форматирование слов в тексте
 
Тут нет формулы даты, здесь есть вычисление значения макросом
VBA. Разное форматирование слов в тексте
 
Цитата
Ибрагим Белхороев написал:
можете глянуть и подсказать, что не так у меня?
см. №16
VBA. Разное форматирование слов в тексте
 
К ячейке код форматирование применяет, но вы то пытаетесь применить его к формуле.
Скопировать содержимое ячейки, убрать определенную часть и записать в другую ячеку макросом
 
Макросом
Код
Function sLeft$(txt$)
    sLeft = Left$(txt, InStrRev(txt, "-") - 1)
End Function
Вывод из одной таблицы информации по районам на отдельные листы
 
Код
Sub qq()
    Application.ScreenUpdating = False
    Dim sh As Worksheet
    Dim ar, i&
    Set sh = ActiveSheet
    ar = Array("101", "103", "104", Array("108", "123"), Array("110", "124"), Array("164", "168"), Array("165", "166", "167"), Array("138", "181", "186", "187"))
    For i = LBound(ar) To UBound(ar)
        On Error Resume Next
        sh.ShowAllData
        On Error GoTo 0
        sh.AutoFilter.Range.AutoFilter Field:=1, Criteria1:=ar(i), Operator:=xlFilterValues
        Worksheets.Add after:=Sheets(Sheets.Count)
        On Error Resume Next
        ActiveSheet.Name = ar(i)
        ActiveSheet.Name = Join(ar(i), "_")
        On Error GoTo 0
        sh.AutoFilter.Range.Copy ActiveSheet.Range("A1")
    Next
    sh.ShowAllData
    Application.ScreenUpdating = True
End Sub
копирование из редактора VBA русского текста в буфер обмена, попытка использовать sentKey для решения задачи, неудачно
 
Кодовая страница Windows 1252 - ЗЛО! Подмените на Windows 1251.
PS В Win10 не пробовал, лениво, а в Win 7 работало сливочно. И таких крокозябр тоже не было.
Не работает Гиперссылка при ссылке на другой лист
 
=ГИПЕРССЫЛКА("#Лист2!B2";Лист2!B2)
Макрос по очистке форматирования таблицы работает в Excel 2019 и не работает в Excel 2010
 
Код
Add2
в 2010 не работает
замените на
Код
Add
Английские слова с русской транскрипцией, Помошник чтения английских слов
 
Народ, пятница, вроде, только завтра?  :)
Как применить интервальный поиск для расчета KPI
 
И чего набросились на человека? И вложенность то небольшая, вполне и ЕСЛИ справится
=ЕСЛИ(E6>=1,2;0,7;ЕСЛИ(E6>=1;0,5;ЕСЛИ(E6>=0,8;0,3;0)))
Выпадающий список, который проставляет всю строку значений определенный образом
 
Цитата
МатросНаЗебре написал:
Это в стандартный модуль.
Цитата
МатросНаЗебре написал:
Это в модуль листа
Вроде все буковки русские.
Цвет текста в Label зависит зависимости от CheckBox в UserForm.
 
Код
Private Sub CheckBox1_Click()
    Label1.ForeColor = -2147483630 + (8 * CheckBox1.Value)
End Sub
Как вставить =СЕГОДНЯ() в текст?
 
Владимир, спасибо.
Как вставить =СЕГОДНЯ() в текст?
 
Люди, а что за хитрый формат в формуле из #3? Кто нибудь разжует?
Число прописью с прописью тысячных долей
 
Цитата
edkudin написал:
что-то оно же должно давать
Ничего - это тоже что-то.
Код
Function ЧислоПрописью(число As Double) As String

массив вернуть не может в принципе, но если ее ввести как ФМ, назло врагам работать будет.
Стереть содержимое активного TextBox кнопкой
 
Цитата
ivan2013 написал:
На форме 10 шт ТextBox - кнопкой CommandButton1 нужно стереть содержимое активного TextBox (там где находится курсор).
Это же так просто...

V стереть содержимое активного TextBox кнопкой
Изменено: RAN - 30.05.2021 12:01:53
Превращение текста в ячейке в формулу макросом
 
Вить, собака не тут порылась.
aesp, Formula и FormulaLocal - это разные вещи. Вы пытаетесь вставить FormulaLocal.
Изменено: RAN - 29.05.2021 13:45:16
Увеличить размер шрифта в списке Listbox или Combobox?
 
????
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 213 След.
Наверх