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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 175 След.
Подсветить ячейки с заглавной буквой
 
#
23 Апр 2019 10:12:29
БМВ, Миш, https://translate.google.ru перевел  :)
= НЕ (EXACT (А2; НИЖНИЙ (А2))) или
= EXACT (А2; НИЖНИЙ (А2)) - 1
 
Перейти    
Макрос ошибочно умножает число на 1000
 
#
22 Апр 2019 19:52:59
Текст, он только похож на число, но не число.
Код
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 и т.п.
 
#
22 Апр 2019 11:17:54
;)
 
Перейти    
Опрос про использование MS Office и т.п.
 
#
22 Апр 2019 09:47:03
Хотя мне оно нать как рыбе зонтик, но проверил - Ctrl-S в Word'e не работает.
 
Перейти    
Несколько задач по Макросам VBA, +25 в карму каждому, кто поможет
 
#
21 Апр 2019 17:55:05
Цитата
andre.anan написал:
без файлов-примеров я могу гулять дальше мимо форума?)
А это, как вам нравится...
Можете мимо, можете по...
У меня, например, свои лишние файлы закончились.

PS И, любопытствую,
Цитата
kfc_good написал:
kfc_good
это дрянь за двести?
 
Перейти    
Переименование ярлыков листа, изменение нумерации в ярлыках листов
 
#
21 Апр 2019 10:26:42
Код
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
 
Перейти    
последняя заполненная ячейка в диапазоне, найти последнюю заполненную ячейку
 
#
20 Апр 2019 20:10:54
Апостроф мёд очень странный предмет, вроде он есть, а его уже нет.  :D
 
Перейти    
последняя заполненная ячейка в диапазоне, найти последнюю заполненную ячейку
 
#
20 Апр 2019 17:31:51
Если ты про лидирующий апостроф, то он его нет.
 
Перейти    
последняя заполненная ячейка в диапазоне, найти последнюю заполненную ячейку
 
#
20 Апр 2019 17:27:41
Это по какому факту?
 
Перейти    
Переименование ярлыков листа, изменение нумерации в ярлыках листов
 
#
20 Апр 2019 17:14:47
Миш, прозевал, что чел за всю школу разом отдувается.
Код
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
 
Перейти    
Переименование ярлыков листа, изменение нумерации в ярлыках листов
 
#
20 Апр 2019 13:48:15
Цитата
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
 
Перейти    
Как сделать группировку или структуру на календарный год
 
#
20 Апр 2019 09:26:43
Код
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
 
Перейти    
ВПР возвращает неверные значения
 
#
19 Апр 2019 19:47:21
По умолчанию текст выравнивается по левому краю, числа - по правому.
При добавлении разрядности, разрядность чисел меняется, текста нет.
.......
 
Перейти    
Сцепить ячейки, игнорируя пустые.
 
#
19 Апр 2019 19:41:45
Цитата
wowick написал:
Каждое "Слагаемое" в формуле завернуть
:D
Функция (UDF) "СКЛЕИТЬ"
 
Перейти    
ВПР возвращает неверные значения
 
#
19 Апр 2019 19:36:30
Способов масса.Вы зеленый треугольник в ячейках видели?
Нажать на такую ячейку пытались?
 
Перейти    
ВПР возвращает неверные значения
 
#
19 Апр 2019 19:27:01
Вы ищете текст в столбце с числами. А его там нет.
 
Перейти    
Особенности работы редактора Visual BaSic при создании пользовательской функции
 
#
18 Апр 2019 18:05:32
Цитата
chesas написал:
когда ещё при вводе исходных данных
Пока ячейка в режиме редактирования (вводятся данные), макросы не работают.
 
Перейти    
Особенности работы редактора Visual BaSic при создании пользовательской функции
 
#
18 Апр 2019 17:57:32
Редактор САМ по функциям не бегает. Если только на предмет проверить, не написали ли вы чего-нибудь такого, что точно писать нельзя.
И функция сама по себе не функционирует.
Так что это не редактор САМ, и автор кода САМ наваял нечто.
 
Перейти    
Поиск занчения в файле и запись в ячейку.
 
#
17 Апр 2019 23:16:10
Предлагаю уточнить - Поход в Третьяковку для просмотра желтого квадрата.
 
Перейти    
Получить адрес пересчитываемой ячейки
 
#
17 Апр 2019 21:30:14
Цитата
Oda412 написал:
Не все пересчитываются при изменении исходных данных.
Конечно, не все. Только те, которые должны пересчитываться.
Цитата
Oda412 написал:
ячейки пересчитываются не всегда, когда меняются исходные данные
Примерчик можно?
 
Перейти    
Опрос про использование MS Office и т.п.
 
#
17 Апр 2019 18:33:50
Зачем они предлагают справку читать?
Ну, не знаю я, как вызвать SaveAs кнопками.
Но ведь я и знать не хочу!  :D
 
Перейти    
Как ускорить вывод данных из массива на лист
 
#
16 Апр 2019 21:25:57
Цитата
Hugo написал:
2 ядра, AMD PhenomII X2 555 3.20 Ггц, виндовый индекс производительности 6,6
Ты крут, паря!  8)
 
Перейти    
Как ускорить вывод данных из массива на лист
 
#
16 Апр 2019 21:20:59
Суслика видишь?
Цитата
БМВ написал:
не видим, но оно есть.
:)
 
Перейти    
Как ускорить вывод данных из массива на лист
 
#
16 Апр 2019 20:54:07
Цитата
БМВ написал:
Изменил только формат ячеек на листе Sheet1, убрав Wrap Text.
И как это связано с временем выгрузки?
Можно еще и уф покруче для каждой ячейки добавить.
 
Перейти    
Как ускорить вывод данных из массива на лист
 
#
16 Апр 2019 20:05:04
Может комп поменять?
Код
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. Разность двух массивов
 
#
16 Апр 2019 18:44:17
Цитата
ДенExcel111 написал: как пометить тему как решённую?
Так.
Цитата
ДенExcel111 написал: Спасибо вам огромное. Всё работает.
 
Перейти    
исправить/ переписать макрос обновления данных, имеющийся модуль перестал работать правильно. нужно сделать чтобы работал - исправить или написать с нуля.
 
#
15 Апр 2019 19:37:06
Изучаю. Ответил в почте.
 
Перейти    
исправить/ переписать макрос обновления данных, имеющийся модуль перестал работать правильно. нужно сделать чтобы работал - исправить или написать с нуля.
 
#
15 Апр 2019 12:46:53
Написал в ЛС
 
Перейти    
Удаление значений где все заглавные буквы
 
#
12 Апр 2019 15:45:29
Код
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
 
Перейти    
Очистка листа по диапазону не "в лоб"
 
#
12 Апр 2019 14:14:46
Код
ActiveSheet.UsedRange.Clear
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 175 След.
Наверх