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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 175 След.
Подсветить ячейки с заглавной буквой
 
БМВ, Миш, https://translate.google.ru перевел  :)
= НЕ (EXACT (А2; НИЖНИЙ (А2))) или
= EXACT (А2; НИЖНИЙ (А2)) - 1
Макрос ошибочно умножает число на 1000
 
Текст, он только похож на число, но не число.
Код
Sub a()
For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
        Cells(i, 6) = Val(Cells(i, 4))
        If Val(Cells(i, 4)) >= 100 And Val(Cells(i, 4)) <= 5999.99 Then Cells(i, 6) = Val(Cells(i, 4)) * 1.5
    Next
End Sub
Опрос про использование MS Office и т.п.
 
;)
Опрос про использование MS Office и т.п.
 
Хотя мне оно нать как рыбе зонтик, но проверил - Ctrl-S в Word'e не работает.
Несколько задач по Макросам VBA, +25 в карму каждому, кто поможет
 
Цитата
andre.anan написал:
без файлов-примеров я могу гулять дальше мимо форума?)
А это, как вам нравится...
Можете мимо, можете по...
У меня, например, свои лишние файлы закончились.

PS И, любопытствую,
Цитата
kfc_good написал:
kfc_good
это дрянь за двести?
Переименование ярлыков листа, изменение нумерации в ярлыках листов
 
Код
Sub Кнопка1_Щелчок()
    Application.DisplayAlerts = False
    Dim sh As Worksheet
    Dim vp As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        sh.Name = Replace(sh.Name, Val(sh.Name), Val(sh.Name) + 31)
    Next
    For Each sh In ThisWorkbook.Worksheets
        sh.Name = Replace(sh.Name, Val(sh.Name), Val(sh.Name) - 30)
        If Val(sh.Name) = 12 Then
            If vp Is Nothing Then
                Set vp = Worksheets.Add(after:=Sheets(Sheets.Count))
                vp.Name = "Бяка"
            End If
            sh.Range("B2").CurrentRegion.Copy vp.Range("B" & Rows.Count).End(xlUp).Offset(1)
            Application.DisplayAlerts = False
            sh.Delete
            Application.DisplayAlerts = True
        End If
    Next
    Sheets("Меню").Select
    Range("A1").Select
End Sub
последняя заполненная ячейка в диапазоне, найти последнюю заполненную ячейку
 
Апостроф мёд очень странный предмет, вроде он есть, а его уже нет.  :D
последняя заполненная ячейка в диапазоне, найти последнюю заполненную ячейку
 
Если ты про лидирующий апостроф, то он его нет.
последняя заполненная ячейка в диапазоне, найти последнюю заполненную ячейку
 
Это по какому факту?
Переименование ярлыков листа, изменение нумерации в ярлыках листов
 
Миш, прозевал, что чел за всю школу разом отдувается.
Код
Sub Мяу()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        sh.Name = Replace(sh.Name, Val(sh.Name), Val(sh.Name) + 31)
    Next
    For Each sh In ThisWorkbook.Worksheets
        sh.Name = Replace(sh.Name, Val(sh.Name), Val(sh.Name) - 30)
      If Val(sh.Name) = 12 Then sh.Name = Replace(sh.Name, Val(sh.Name), "Брысь")
    Next
End Sub
Переименование ярлыков листа, изменение нумерации в ярлыках листов
 
Цитата
Sanja написал:
А из '11_А'
Чем тебе 12 не нравится?  :D
Код
Sub Мяу()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        sh.Name = Replace(sh.Name, Val(sh.Name), Val(sh.Name) + 1)
    Next
End Sub
Как сделать группировку или структуру на календарный год
 
Код
Sub Рыба()
    Dim k&, i&, n&
    n = 3
    ActiveSheet.Cells.ClearOutline
    For k = 2 To n * 254 - 2 Step 254
        For i = k + 2 To k + 250 Step 21
            Rows(i).Resize(20).Group
        Next
        Rows(k + 1).Resize(253).Group
    Next
End Sub
ВПР возвращает неверные значения
 
По умолчанию текст выравнивается по левому краю, числа - по правому.
При добавлении разрядности, разрядность чисел меняется, текста нет.
.......
Сцепить ячейки, игнорируя пустые.
 
Цитата
wowick написал:
Каждое "Слагаемое" в формуле завернуть
:D
Функция (UDF) "СКЛЕИТЬ"
ВПР возвращает неверные значения
 
Способов масса.Вы зеленый треугольник в ячейках видели?
Нажать на такую ячейку пытались?
ВПР возвращает неверные значения
 
Вы ищете текст в столбце с числами. А его там нет.
Особенности работы редактора Visual BaSic при создании пользовательской функции
 
Цитата
chesas написал:
когда ещё при вводе исходных данных
Пока ячейка в режиме редактирования (вводятся данные), макросы не работают.
Особенности работы редактора Visual BaSic при создании пользовательской функции
 
Редактор САМ по функциям не бегает. Если только на предмет проверить, не написали ли вы чего-нибудь такого, что точно писать нельзя.
И функция сама по себе не функционирует.
Так что это не редактор САМ, и автор кода САМ наваял нечто.
Поиск занчения в файле и запись в ячейку.
 
Предлагаю уточнить - Поход в Третьяковку для просмотра желтого квадрата.
Получить адрес пересчитываемой ячейки
 
Цитата
Oda412 написал:
Не все пересчитываются при изменении исходных данных.
Конечно, не все. Только те, которые должны пересчитываться.
Цитата
Oda412 написал:
ячейки пересчитываются не всегда, когда меняются исходные данные
Примерчик можно?
Опрос про использование MS Office и т.п.
 
Зачем они предлагают справку читать?
Ну, не знаю я, как вызвать SaveAs кнопками.
Но ведь я и знать не хочу!  :D
Как ускорить вывод данных из массива на лист
 
Цитата
Hugo написал:
2 ядра, AMD PhenomII X2 555 3.20 Ггц, виндовый индекс производительности 6,6
Ты крут, паря!  8)
Как ускорить вывод данных из массива на лист
 
Суслика видишь?
Цитата
БМВ написал:
не видим, но оно есть.
:)
Как ускорить вывод данных из массива на лист
 
Цитата
БМВ написал:
Изменил только формат ячеек на листе Sheet1, убрав Wrap Text.
И как это связано с временем выгрузки?
Можно еще и уф покруче для каждой ячейки добавить.
Как ускорить вывод данных из массива на лист
 
Может комп поменять?
Код
Sub qq()
    Dim ar(1 To 200000, 1 To 47), t!, i&, j&
    For i = 1 To 200000
        For j = 1 To 47
            ar(i, j) = Rnd
        Next
    Next
    t = Timer
    [a1].Resize(UBound(ar), UBound(ar, 2)).Value = ar
    Debug.Print Format(Timer - t, "0.0000")
End Sub

41 сек
Комп 2 ядра, 32 система
PS на момент выполнения занято 70% памяти
Изменено: RAN - 16 Апр 2019 20:06:43
VBA. Разность двух массивов
 
Цитата
ДенExcel111 написал: как пометить тему как решённую?
Так.
Цитата
ДенExcel111 написал: Спасибо вам огромное. Всё работает.
исправить/ переписать макрос обновления данных, имеющийся модуль перестал работать правильно. нужно сделать чтобы работал - исправить или написать с нуля.
 
Изучаю. Ответил в почте.
исправить/ переписать макрос обновления данных, имеющийся модуль перестал работать правильно. нужно сделать чтобы работал - исправить или написать с нуля.
 
Написал в ЛС
Удаление значений где все заглавные буквы
 
Код
Sub qq()
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        If UCase(cell.Value) = cell.Value Then cell.Clear
    Next
End Sub
Очистка листа по диапазону не "в лоб"
 
Код
ActiveSheet.UsedRange.Clear
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 175 След.
Наверх