Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Умножение диапазона ячеек на число - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Умножение диапазона ячеек на число (Макросы/Sub)
Умножение диапазона ячеек на число
Xpert Дата: Четверг, 15.02.2018, 14:33 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 115
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем привет!
С помощью макрорекордера создал макрос для умножения числового диапазона ячеек на значение, вводимое в определённую ячейку. При вводе каждого следующего множителя, значения ячеек диапазона сначала возвращаются к начальным значениям, а потом уже умножаются на новый множитель.
Свои функции этот макрос, конечно выполняет, но во время его работы в глазах рябит от перескакивания с листа на лист. Можно ли его как-нибудь оптимизировать, чтобы функционировал покрасивше?
К сообщению приложен файл: xxxxxxxxx02.xlsm (20.5 Kb)
 
Ответить
СообщениеВсем привет!
С помощью макрорекордера создал макрос для умножения числового диапазона ячеек на значение, вводимое в определённую ячейку. При вводе каждого следующего множителя, значения ячеек диапазона сначала возвращаются к начальным значениям, а потом уже умножаются на новый множитель.
Свои функции этот макрос, конечно выполняет, но во время его работы в глазах рябит от перескакивания с листа на лист. Можно ли его как-нибудь оптимизировать, чтобы функционировал покрасивше?

Автор - Xpert
Дата добавления - 15.02.2018 в 14:33
and_evg Дата: Четверг, 15.02.2018, 14:38 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 452
Репутация: 78 ±
Замечаний: 0% ±

Excel 2007
Xpert, Добрый день.
В начале работы макроса:
[vba]
Код
Application.ScreenUpdating = False
[/vba]
в конец:
[vba]
Код
Application.ScreenUpdating = True
[/vba]

А ещё лучше избавится от "Селектов"


Сообщение отредактировал and_evg - Четверг, 15.02.2018, 14:39
 
Ответить
СообщениеXpert, Добрый день.
В начале работы макроса:
[vba]
Код
Application.ScreenUpdating = False
[/vba]
в конец:
[vba]
Код
Application.ScreenUpdating = True
[/vba]

А ещё лучше избавится от "Селектов"

Автор - and_evg
Дата добавления - 15.02.2018 в 14:38
китин Дата: Четверг, 15.02.2018, 14:39 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
вначале кода
[vba]
Код
Application.ScreenUpdating = False
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
[/vba]

в конце кода
[vba]
Код
Application.ScreenUpdating = True
    Application.CutCopyMode = True
    Application.DisplayAlerts = True
[/vba]


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениевначале кода
[vba]
Код
Application.ScreenUpdating = False
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
[/vba]

в конце кода
[vba]
Код
Application.ScreenUpdating = True
    Application.CutCopyMode = True
    Application.DisplayAlerts = True
[/vba]

Автор - китин
Дата добавления - 15.02.2018 в 14:39
Xpert Дата: Четверг, 15.02.2018, 14:42 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 115
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
and_evg, китин, спасибо!
Глаз радуется и отдыхает yes


Сообщение отредактировал Xpert - Четверг, 15.02.2018, 16:12
 
Ответить
Сообщениеand_evg, китин, спасибо!
Глаз радуется и отдыхает yes

Автор - Xpert
Дата добавления - 15.02.2018 в 14:42
Xpert Дата: Четверг, 15.02.2018, 15:13 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 115
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
А ещё лучше избавится от "Селектов"

Я только в начале пути изучения VBA, таких тонкостей не знаю.
 
Ответить
Сообщение
А ещё лучше избавится от "Селектов"

Я только в начале пути изучения VBA, таких тонкостей не знаю.

Автор - Xpert
Дата добавления - 15.02.2018 в 15:13
китин Дата: Четверг, 15.02.2018, 15:31 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Я только в начале пути изучения VBA

тогда почитайте тут
это почти первое, что я прочитал про VBA


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852


Сообщение отредактировал китин - Четверг, 15.02.2018, 15:32
 
Ответить
Сообщение
Я только в начале пути изучения VBA

тогда почитайте тут
это почти первое, что я прочитал про VBA

Автор - китин
Дата добавления - 15.02.2018 в 15:31
Xpert Дата: Понедельник, 12.03.2018, 14:58 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 115
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте, дамы и господа.
Немного подкорректировал и оптимизировал свой макрос, но столкнулся с проблемой: при указании фиксированных диапазонов ячеек, всё работает нормально(см."Пример"), а если вводить именованный диапазон, выскакивает ошибка(см. "Пример(именован)").
Дело в том, что точно неизвестно, какой диапазон будет применим в тех или иных случаях, поэтому мне нужно, чтобы макрос ориентировался именно на динамический(изменяющийся) а не на фиксированный диапазон.
Подскажите, можно ли это как-то реализовать?
К сообщению приложен файл: 9749512.xlsm (21.1 Kb) · --.xlsm (20.8 Kb)
 
Ответить
СообщениеЗдравствуйте, дамы и господа.
Немного подкорректировал и оптимизировал свой макрос, но столкнулся с проблемой: при указании фиксированных диапазонов ячеек, всё работает нормально(см."Пример"), а если вводить именованный диапазон, выскакивает ошибка(см. "Пример(именован)").
Дело в том, что точно неизвестно, какой диапазон будет применим в тех или иных случаях, поэтому мне нужно, чтобы макрос ориентировался именно на динамический(изменяющийся) а не на фиксированный диапазон.
Подскажите, можно ли это как-то реализовать?

Автор - Xpert
Дата добавления - 12.03.2018 в 14:58
Manyasha Дата: Вторник, 13.03.2018, 11:56 | Сообщение № 8
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Xpert, здравствуйте.
Диапазон у Вас строится на листе1, а в макросе вы его ищете на листе2.
Еще нужно проверить, содержит ли диапазон ячейки, например так:
[vba]
Код
On Error Resume Next
Set x = Sheets("Лист1").Range("Диапазон")
Debug.Print IsEmpty(x)
[/vba]


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеXpert, здравствуйте.
Диапазон у Вас строится на листе1, а в макросе вы его ищете на листе2.
Еще нужно проверить, содержит ли диапазон ячейки, например так:
[vba]
Код
On Error Resume Next
Set x = Sheets("Лист1").Range("Диапазон")
Debug.Print IsEmpty(x)
[/vba]

Автор - Manyasha
Дата добавления - 13.03.2018 в 11:56
InExSu Дата: Вторник, 13.03.2018, 23:07 | Сообщение № 9
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Привет!
[vba]
Код
Sub Макрос()
'...
    arr1() = Sheets("Лист2").Range("Диапазон").Value
[/vba]
а на Лист2 нет Range("Диапазон")

а если Вы его там создадите, то в коде листа выдаст ошибку
Private Sub Worksheet_Change(ByVal Target As Range)
[vba]
Код
'...
  If Not Intersect(Target, Range("Диапазон")) Is Nothing Then Call copie
[/vba]


Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
СообщениеПривет!
[vba]
Код
Sub Макрос()
'...
    arr1() = Sheets("Лист2").Range("Диапазон").Value
[/vba]
а на Лист2 нет Range("Диапазон")

а если Вы его там создадите, то в коде листа выдаст ошибку
Private Sub Worksheet_Change(ByVal Target As Range)
[vba]
Код
'...
  If Not Intersect(Target, Range("Диапазон")) Is Nothing Then Call copie
[/vba]

Автор - InExSu
Дата добавления - 13.03.2018 в 23:07
Xpert Дата: Среда, 14.03.2018, 11:53 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 115
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Manyasha, InExSu, спасибо.
Сделал как вы сказали, ошибка исчезла...по отдельности каждый макрос(Макрос и Copie) работает, а вот с модуля листа не запускаются.
%)
В модуле листа код такой:

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    Dim rng As Range: Set rng = [C1]
    On Error Resume Next
Set x = Sheets("Лист1").Range("Диапазон")
Debug.Print IsEmpty(x)
  If Not Intersect(rng, Target) Is Nothing Then Макрос
  If Not Intersect(x, Target) Is Nothing Then Call copie
    Application.EnableEvents = True
End Sub
[/vba]

Макрос:

[vba]
Код
Sub Макрос()
Dim arr1(), arrRes()
Dim i As Long
    arr1() = Sheets("Лист1").Range("Данные").Value
    ReDim arrRes(1 To UBound(arr1, 1), 1 To 1)
     For i = 1 To UBound(arr1, 1) Step 1
        arrRes(i, 1) = arr1(i, 1) * (1 + Range("C1").Value)
    Next i
    Sheets("Лист1").Range("A2").Resize(UBound(arrRes, 1)).Value = arrRes()
End Sub
[/vba]

и макрос Copie

[vba]
Код
Sub copie()
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    On Error Resume Next
    Set x = Sheets("Лист1").Range("Данные")
    Debug.Print IsEmpty(x)
    x.copy
    Sheets("Лист2").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       Sheets("Лист1").Select
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
End Sub
[/vba]

Голову сломал, но не получается.


Сообщение отредактировал Xpert - Среда, 14.03.2018, 11:54
 
Ответить
СообщениеManyasha, InExSu, спасибо.
Сделал как вы сказали, ошибка исчезла...по отдельности каждый макрос(Макрос и Copie) работает, а вот с модуля листа не запускаются.
%)
В модуле листа код такой:

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    Dim rng As Range: Set rng = [C1]
    On Error Resume Next
Set x = Sheets("Лист1").Range("Диапазон")
Debug.Print IsEmpty(x)
  If Not Intersect(rng, Target) Is Nothing Then Макрос
  If Not Intersect(x, Target) Is Nothing Then Call copie
    Application.EnableEvents = True
End Sub
[/vba]

Макрос:

[vba]
Код
Sub Макрос()
Dim arr1(), arrRes()
Dim i As Long
    arr1() = Sheets("Лист1").Range("Данные").Value
    ReDim arrRes(1 To UBound(arr1, 1), 1 To 1)
     For i = 1 To UBound(arr1, 1) Step 1
        arrRes(i, 1) = arr1(i, 1) * (1 + Range("C1").Value)
    Next i
    Sheets("Лист1").Range("A2").Resize(UBound(arrRes, 1)).Value = arrRes()
End Sub
[/vba]

и макрос Copie

[vba]
Код
Sub copie()
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    On Error Resume Next
    Set x = Sheets("Лист1").Range("Данные")
    Debug.Print IsEmpty(x)
    x.copy
    Sheets("Лист2").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       Sheets("Лист1").Select
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
End Sub
[/vba]

Голову сломал, но не получается.

Автор - Xpert
Дата добавления - 14.03.2018 в 11:53
InExSu Дата: Среда, 14.03.2018, 13:03 | Сообщение № 11
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
не получается

Пожалуйста, приложите новый файл


Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
Сообщение
не получается

Пожалуйста, приложите новый файл

Автор - InExSu
Дата добавления - 14.03.2018 в 13:03
Mikael Дата: Среда, 14.03.2018, 14:06 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация: 31 ±
Замечаний: 0% ±

Excel 2010
Всем доброго дня!
Xpert, а Вам обязательно использовать второй лист и именованный диапазон?
Попробуйте такой вариант:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, [c1]) Is Nothing Then
        Dim arr, li&, lmp#, rng As Range
        Set rng = Intersect([a1].EntireColumn, ActiveSheet.UsedRange)
        With Application
            .Calculation = xlCalculationManual
            .ScreenUpdating = False: .EnableEvents = False
            
            arr = rng.Value
            .Undo: lmp = [c1]: .Undo
            
            For li = 1 To UBound(arr)
                If Not IsEmpty(arr(li, 1)) Then arr(li, 1) = arr(li, 1) / (1 + lmp) * (1 + [c1])
            Next li
            
            rng.Value = arr
            
            .Calculation = xlCalculationAutomatic
            .ScreenUpdating = True: .EnableEvents = True
        End With
    End If
    
End Sub
[/vba]
К сообщению приложен файл: Xpert-Mika.xlsm (22.9 Kb)
 
Ответить
СообщениеВсем доброго дня!
Xpert, а Вам обязательно использовать второй лист и именованный диапазон?
Попробуйте такой вариант:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, [c1]) Is Nothing Then
        Dim arr, li&, lmp#, rng As Range
        Set rng = Intersect([a1].EntireColumn, ActiveSheet.UsedRange)
        With Application
            .Calculation = xlCalculationManual
            .ScreenUpdating = False: .EnableEvents = False
            
            arr = rng.Value
            .Undo: lmp = [c1]: .Undo
            
            For li = 1 To UBound(arr)
                If Not IsEmpty(arr(li, 1)) Then arr(li, 1) = arr(li, 1) / (1 + lmp) * (1 + [c1])
            Next li
            
            rng.Value = arr
            
            .Calculation = xlCalculationAutomatic
            .ScreenUpdating = True: .EnableEvents = True
        End With
    End If
    
End Sub
[/vba]

Автор - Mikael
Дата добавления - 14.03.2018 в 14:06
Xpert Дата: Среда, 14.03.2018, 20:32 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 115
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Mikael, нет, необязательно.
Ваш вариант почти то, что надо.
Спасибо!


Сообщение отредактировал Xpert - Среда, 14.03.2018, 20:53
 
Ответить
СообщениеMikael, нет, необязательно.
Ваш вариант почти то, что надо.
Спасибо!

Автор - Xpert
Дата добавления - 14.03.2018 в 20:32
Mikael Дата: Среда, 14.03.2018, 22:15 | Сообщение № 14
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация: 31 ±
Замечаний: 0% ±

Excel 2010
почти то, что надо

Мне остается только догадываться, что значит "почти", но судя по Вашему коду, мне пришла в голову такая идея.
Upg:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    
    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False: .EnableEvents = False
        
        Dim arr, li&, lmp#, rng As Range
        Set rng = Intersect([a1].EntireColumn, ActiveSheet.UsedRange)
        
        If Not Intersect(Target, [c1]) Is Nothing And Target.Count = 1 Then
            .Undo: lmp = [c1]: .Undo
            arr = rng.Value
            For li = 1 To UBound(arr)
                If Not IsEmpty(arr(li, 1)) And IsNumeric(arr(li, 1)) Then arr(li, 1) = arr(li, 1) / (1 + lmp) * (1 + [c1])
            Next li
            rng.Value = arr
        End If
        
        If Not Intersect(Target, rng) Is Nothing Then
            If Not IsEmpty(Target) Then Target.Value = Evaluate(Target.Address & "*" & Replace(CStr(1 + [c1]), ",", "."))
        End If
        
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True: .EnableEvents = True
    End With
    
End Sub
[/vba]

Голову сломал, но не получается

Приложите свой файл
К сообщению приложен файл: Xpert-Mika2.xlsm (22.0 Kb)
 
Ответить
Сообщение
почти то, что надо

Мне остается только догадываться, что значит "почти", но судя по Вашему коду, мне пришла в голову такая идея.
Upg:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    
    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False: .EnableEvents = False
        
        Dim arr, li&, lmp#, rng As Range
        Set rng = Intersect([a1].EntireColumn, ActiveSheet.UsedRange)
        
        If Not Intersect(Target, [c1]) Is Nothing And Target.Count = 1 Then
            .Undo: lmp = [c1]: .Undo
            arr = rng.Value
            For li = 1 To UBound(arr)
                If Not IsEmpty(arr(li, 1)) And IsNumeric(arr(li, 1)) Then arr(li, 1) = arr(li, 1) / (1 + lmp) * (1 + [c1])
            Next li
            rng.Value = arr
        End If
        
        If Not Intersect(Target, rng) Is Nothing Then
            If Not IsEmpty(Target) Then Target.Value = Evaluate(Target.Address & "*" & Replace(CStr(1 + [c1]), ",", "."))
        End If
        
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True: .EnableEvents = True
    End With
    
End Sub
[/vba]

Голову сломал, но не получается

Приложите свой файл

Автор - Mikael
Дата добавления - 14.03.2018 в 22:15
Xpert Дата: Четверг, 15.03.2018, 06:43 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 115
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Господа!
Прилагаю свой файл.
Ещё загвоздка в том, что при выставлении 0% в ячейке C1, значения в столбце А на листе 1 не возвращаются к первоначальным.
К сообщению приложен файл: 10.xlsm (22.8 Kb)
 
Ответить
СообщениеГоспода!
Прилагаю свой файл.
Ещё загвоздка в том, что при выставлении 0% в ячейке C1, значения в столбце А на листе 1 не возвращаются к первоначальным.

Автор - Xpert
Дата добавления - 15.03.2018 в 06:43
Xpert Дата: Четверг, 15.03.2018, 06:47 | Сообщение № 16
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 115
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Мне остается только догадываться, что значит "почти", но судя по Вашему коду, мне пришла в голову такая идея.

Mikael, прошу прощения, сразу не пояснил: при удалении значений из диапазона ячеек в столбце А, вылазит ошибка, которой хотелось бы избежать.
 
Ответить
Сообщение
Мне остается только догадываться, что значит "почти", но судя по Вашему коду, мне пришла в голову такая идея.

Mikael, прошу прощения, сразу не пояснил: при удалении значений из диапазона ячеек в столбце А, вылазит ошибка, которой хотелось бы избежать.

Автор - Xpert
Дата добавления - 15.03.2018 в 06:47
Mikael Дата: Четверг, 15.03.2018, 11:05 | Сообщение № 17
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация: 31 ±
Замечаний: 0% ±

Excel 2010
Утречка всем!!! :)
не возвращаются к первоначальным.

Потому что Макрос() берет первоначальные данные на листе1, а у Вас эти данные на листе2
Поправьте на лист2 и line2:
[vba]
Код
    '1. Копирование данных из экселя в массивы.
    arr1() = Sheets("Лист2").Range("Line2").Value
[/vba]

вылазит ошибка

Попробуйте. Если ошибка осталась, опишите подробнее Ваши действия, сделайте скрин ошибки.
К сообщению приложен файл: Xpert-Mika2-1-.xlsm (20.8 Kb)
 
Ответить
СообщениеУтречка всем!!! :)
не возвращаются к первоначальным.

Потому что Макрос() берет первоначальные данные на листе1, а у Вас эти данные на листе2
Поправьте на лист2 и line2:
[vba]
Код
    '1. Копирование данных из экселя в массивы.
    arr1() = Sheets("Лист2").Range("Line2").Value
[/vba]

вылазит ошибка

Попробуйте. Если ошибка осталась, опишите подробнее Ваши действия, сделайте скрин ошибки.

Автор - Mikael
Дата добавления - 15.03.2018 в 11:05
Xpert Дата: Четверг, 15.03.2018, 20:28 | Сообщение № 18
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 115
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Mikael, гениально!
Всё работает как часы.
Огромное спасибо за участие!
 
Ответить
СообщениеMikael, гениально!
Всё работает как часы.
Огромное спасибо за участие!

Автор - Xpert
Дата добавления - 15.03.2018 в 20:28
Xpert Дата: Понедельник, 01.04.2019, 11:34 | Сообщение № 19
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 115
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Приветствую всех участников!
Подправил данный макрос для использования в рамках "умной таблицы". Вроде всё работает, но есть одно НО.
При вставке строк получается такая картина


формулы в Столбце 5 не копируются в новые строки. Появляются нули за пределами границ таблицы...

При удалении - такая:

Опять нули.

Помогите это исправить.

ПРимер прилагаю.
К сообщению приложен файл: 9125860.xlsm (63.8 Kb)


Сообщение отредактировал Xpert - Понедельник, 01.04.2019, 11:35
 
Ответить
СообщениеПриветствую всех участников!
Подправил данный макрос для использования в рамках "умной таблицы". Вроде всё работает, но есть одно НО.
При вставке строк получается такая картина


формулы в Столбце 5 не копируются в новые строки. Появляются нули за пределами границ таблицы...

При удалении - такая:

Опять нули.

Помогите это исправить.

ПРимер прилагаю.

Автор - Xpert
Дата добавления - 01.04.2019 в 11:34
_Boroda_ Дата: Понедельник, 01.04.2019, 11:45 | Сообщение № 20
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
- Прочитайте Правила форума
- Создайте новую тему согласно п.5q Правил форума. Причем здесь умножение ячеек на число?
картинки не на Радикал нужно класть, а сюда, также, как и Excel файлы


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение- Прочитайте Правила форума
- Создайте новую тему согласно п.5q Правил форума. Причем здесь умножение ячеек на число?
картинки не на Радикал нужно класть, а сюда, также, как и Excel файлы

Автор - _Boroda_
Дата добавления - 01.04.2019 в 11:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Умножение диапазона ячеек на число (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!