Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Neo1379
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Увеличить значения выделенного диапазона на 1
 
#
19.10.2021 16:46:46
Всем большое спасибо за ответы, то что нужно! :)
 
Перейти    
Увеличить значения выделенного диапазона на 1
 
#
19.10.2021 16:24:43
Добрый день! Не могу додуматься и собрать из того что есть на форумах макрос, который выполнял бы следующее:

Выделяем необходимый нам диапазон с значениями - нажимаем гор. клавишу макроса - получаем значения для выделенного диапазона увеличенных на 1.  
 
Перейти    
VBA. Макрос. Сортировка выделенного диапазона., Сортировка выделенного диапазона
 
#
22.12.2020 16:48:01
Добрый день! Все же не получилось заменить выделенный диапазон, из рекодера макросов, чтобы данный макрос работал на любой выделенный диапазон и сортировал в его пределах.
Для активного листа.

Код
Sub Сортировка()
'
' Сортировка Макрос
'
' Сочетание клавиш: Ctrl+в
'
    ActiveWorkbook.Worksheets("15").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("15").Sort.SortFields.Add Key:=Range("P482"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("15").Sort
        .SetRange Range("P482:P487")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
 
Перейти    
VBA. Макрос. Преобразовать в нужный формат, сцепить и вставить значения
 
#
08.10.2020 15:45:37
Михаил Витальевич С., большое спасибо! мотивируете изучать VBA.

А есть ли возможность для выделенных ячеек убрать потом справа один символ? (ту звездочку, которую добавляли?)
 
Перейти    
VBA. Макрос. Преобразовать в нужный формат, сцепить и вставить значения
 
#
06.10.2020 16:59:26
Михаил Витальевич С., прикрепил файл, но по сути, это тоже самое, что и описал выше, только в xls
 
Перейти    
VBA. Макрос. Преобразовать в нужный формат, сцепить и вставить значения
 
#
06.10.2020 16:25:49
Михаил Витальевич С., по сути вся задача сводится к тому, чтобы в выделенных ячейках в разных областях сработала формула
Код
=ОКРУГЛ(ТЕКСТ(XXX;"0,00");2)

где XXX сама ячейка со значениями

какой файл Вам может помочь/отправить?
 
Перейти    
VBA. Макрос. Преобразовать в нужный формат, сцепить и вставить значения
 
#
06.10.2020 16:08:47
Помогите доработать макрос

мне нужно, чтобы в таблице можно было выбрать различные ячейки формата
1,23
1,30
1,894

и чтобы при активации макроса стало так:
1,23*
1,30*
1,89*

по сути он округляет, а потом преобразует в текст выделенные диапазоны, но выглядит это слишком громоздко и хотелось, чтобы это распространялось не на диапазон, а на различные выделенные ячейки.
Код
Sub Диапазон_2()

'определяем координаты выделенного диапазона
lRow = Selection.Row 'номер первой строки
lLastRow = Selection.Row + Selection.Rows.Count - 1 'номер последней строки
lCol = Selection.Column 'номер первого столбца
lLastCol = Selection.Column + Selection.Columns.Count - 1 'номер последнего столбца

Dim a1, b1 As Integer
For a1 = lCol To lLastCol
 For b1 = lRow To lLastRow
Dim ravno, cont
'проверка на наличие формулы в ячейке, и обрезание содержимого на знак равно, в случае если формула есть
ravno = Left(Cells(b1, a1).Formula, 1)
If ravno Like "=" Then
 cont = Right(Cells(b1, a1).Formula, Len(Cells(b1, a1).Formula) - 1)
Else
 cont = Cells(b1, a1).Formula
End If

'проверка на наличие формулы округления в ячейке
If cont Like "*ROUND*" Or cont Like "*CEILING*" Or cont Like "*FLOOR*" Then
 MsgBox "Уже есть округление"
Else
 Cells(b1, a1).Formula = "=TEXT(ROUND(" & cont & ",2),""0,00"")&""*"""
End If
 Next b1
Next a1
 Dim smallrng As Range
    For Each smallrng In Selection.Areas
        smallrng.Value = smallrng.Value
    Next smallrng
End Sub
 
Перейти    
Страницы: 1
Наверх