Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вставка значений в выделенные ячейки
 
#1
04.09.2018 14:55:45
Добрый день!

Очень долго пытался добить хотелку сам, благодаря данному форуму и экспертам, но я бревно.

Дорогие форумчане! Выручайте дерево! :cry:
Предполагалось так, я выделяю определенный диапазон ячеек, нажимаю правой кнопкой мыши, нажимаю кнопку в контекстном меню, вношу общее количество в вышедшее сообщение и макрос согласно формуле вставит значения в ячейки.
Но как я говорил выше, до конца я этого сделать не смог.
 
 
 
#2
04.09.2018 14:56:20
Код
Sub raspred()
    Dim B As Range, X As Double, Y As Double, Y1 As Double, X1 As Double, X2 As Double
    Set B = Application.InputBox("", "выбери мышкой диапазон для деления!", , , , , , 8)
    Dx = B.Value
    X = InputBox("Введите общее количество упаковок", Title)
    Y = Dx(UBound(Dx), 1)
    For n = 1 To UBound(Dx) - 2
        Y1 = Dx(n, 1)
        X1 = Int(Y1 / Y * X)
        B.Cells(1, 1).Offset(n - 1, 1) = X1
 
    Next
End Sub
Изменено: evgeniygeo - 04.09.2018 15:12:55
 
 
 
#3
04.09.2018 15:00:07
evgeniygeo, копируйте код при русской раскладке клавиатуры - не будет проблем с кириллицей.
Поменяйте в #2.
 
 
 
#4
04.09.2018 15:13:50
Юрий М,
спасибо, не знал!
 
 
 
#5
04.09.2018 15:52:37
evgeniygeo, так?
Код
Sub raspred()
    Dim Dx(), X As Long, Y As Double
    If Selection.Columns.Count <> 2 Then
      MsgBox "Должно быть выделено 2 столбца", vbExclamation
      Exit Sub
    Else
      X = InputBox("Введите общее количество упаковок", Title)
      Dx = Selection.Columns(1).Value
      Y = X / WorksheetFunction.Sum(Dx)
      For n = 1 To UBound(Dx)
        Dx(n, 1) = Int(Dx(n, 1) * Y)
        X = X - Dx(n, 1)
      Next
      Dx(n - 1, 1) = Dx(n - 1, 1) + X 'коррекция последнего значения
      Selection.Columns(2).Value = Dx
    End If
End Sub
В данном примере нужно выделять E4:F10 и E14:F16
Изменено: Казанский - 04.09.2018 15:58:52
 
 
 
#6
05.09.2018 08:04:50
Казанский,
именно так!
Огромное спасибо Вам!
 
 
 
Страницы: 1
Наверх