last_post, $topic[ align= Последние сообщения
Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?
20.10.2020, 02:35:18

Войти
На форуме добавлена возможность подписки на RSS-ленты любого раздела форума. Подписаться можно, нажав на иконку RSS , расположенную левее наименования раздела.
31 491 Сообщений в 5 054 Тем от 10 328 Пользователей
Последний пользователь: NevazhnoVladimir
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Последние сообщения
Страниц: [1] 2 3 ... 10

 1 
 : 19.10.2020, 23:49:49 
Автор GabrielGray - Последний ответ от vikttur
Кросс с ответом

 2 
 : 19.10.2020, 22:58:22 
Автор GabrielGray - Последний ответ от boa
Здравствуйте, GabrielGray,
в Ваших макросах столько ошибок..., что даже не хочется разбираться ((
Дублирование объявления переменных, не правильно объявленные переменные, ошибки в аргументах для зарегистрированных функций...
это не макросы, а солянка...
начните с "Option Explicit"
Правильно поставленный вопрос - это половина ответа

 3 
 : 19.10.2020, 17:00:06 
Автор GabrielGray - Последний ответ от Дмитрий Щербаков(The_Prist)
Добрый день.
Выдержка из правил форума(Вы с ними соглашались при регистрации:
Цитировать
Название темы должно быть максимально информативным, таким, чтобы уже из названия темы другим пользователям была приблизительно понятна Ваша проблемап.п. 4.2. и 4.14. Правил форума
Поэтому придумайте название, отражающее суть проблемы - я или модераторы изменят.

 4 
 : 19.10.2020, 16:30:39 
Автор Lelikas123 - Последний ответ от Lelikas123
Необходима Ваша помощь как специалистов Google таблиц и диаграммы Ганта. Для примера есть гугл таблица с информацией о проектах, необходимо построить на основе данных, диаграмму Ганта либо другой график, чтобы было наглядно видно на графике план выполнения и задержку исполнения от плановой даты. Это возможно вообще сделать теоретически или я задумала что-то не выполнимое т.к. проекты долгосрочные, то необходимо разделить периоды на 1 и 2 половину месяца, без конкретики в датах. Но проблема в том что начало работ/конец работ указано в конкретной дате, а вот на графике необходимо отразить по другому(просто 1 или 2 половина месяца), во многих примерах диаграмм не видно как отразить отклонение/ задержку по сроку

 5 
 : 19.10.2020, 16:07:43 
Автор GabrielGray - Последний ответ от GabrielGray
Добрый день.

Люди добрые, подскажите пожалуйста.

Есть макрос (во вложении) для подсчета суммы чисел в зависимости от определенных критериев.

Функция номер 1 для расчета суммы в зависимости от столбиков (толщина и ширина)

Код: (vb)
Function KList(i, P1_1a As Variant, P1_2a As Variant, P2_1a As Variant, P2_2a As Variant) As Double
'Функция обработки Толщина/Ширина
    KList = 0
    Dim P1_1, P1_2, P2_1, P2_2 As Double
    P1_1 = CDbl(Val(P1_1a))
    P1_2 = CDbl(Val(P1_2a))
    P2_1 = CDbl(Val(P2_1a))
    P2_2 = CDbl(Val(P2_2a))
    
    With ActiveSheet
        AD = CDbl(Val(.Cells(i, "AD").Text))
        AE = CDbl(Val(.Cells(i, "AE").Text))
                    If (AD >= P1_1) And (AD <= P1_2) Then
                        If (AE >= P2_1) And (AE <= P2_2) Then
                            'KList = CDbl(Val(.Cells(i, "AG").Text))
                            KList = CDbl(.Cells(i, "AG").Value)
                        End If
                    End If
    End With
End Function




Функция номер 2 для расчета суммы чисел в зависимости от веса и ширины.


Код: (vb)
Function TList(i, P1_1a As Variant, P1_2a As Variant, P2_1a As Variant, P2_2a As Variant) As Double
'Функция обработки "Вес рулона Макс"/Ширина
    TList = 0
    Dim P1_1, P1_2, P2_1, P2_2 As Double
    P1_1 = CDbl(Val(P1_1a))
    P1_2 = CDbl(Val(P1_2a))
    P2_1 = CDbl(Val(P2_1a))
    P2_2 = CDbl(Val(P2_2a))
    
    With ActiveSheet
        CU = CDbl(Val(.Cells(i, "CU").Text))
        AE = CDbl(Val(.Cells(i, "AE").Text))
                    If (CU >= P1_1) And (CU <= P1_2) Then
                        If (AE >= P2_1) And (AE <= P2_2) Then
                            TList = CDbl(.Cells(i, "AG").Value)
                        End If
                    End If
    End With
End Function



Я как чайник  в этом деле пытался самостояетельно по аналогии  переделать функцию номер 2 и создать из неё функцию номер 3 так скажем. Чтобы она считала мне сумму в зависимости от веса, ширины и ТОЛЩИНЫ.



Вот что получилось.

Код: (vb)
Function TList(i, P1_1a As Variant, P1_2a As Variant, P2_1a As Variant, P2_2a As Variant, P3_1a As Variant, P3_2a As Variant) As Double
'Функция обработки "Вес рулона Макс"/Ширина/Толщина
    TList = 0
    Dim P1_1, P1_2, P2_1, P2_2, P2_1, P2_2, P3_1, P3_2 As Double    
    P1_1 = CDbl(Val(P1_1a))
    P1_2 = CDbl(Val(P1_2a))
    P2_1 = CDbl(Val(P2_1a))
    P2_2 = CDbl(Val(P2_2a))
    P3_1 = CDbl(Val(P3_1a))
    P3_2 = CDbl(Val(P3_2a))
 
    
    With ActiveSheet
        CU = CDbl(Val(.Cells(i, "CU").Text))
        AE = CDbl(Val(.Cells(i, "AE").Text))
        AD = CDbl(Val(.Cells(i, "AD").Text))
 
                    If (CU >= P1_1) And (CU <= P1_2) Then
                        If (AE >= P2_1) And (AE <= P2_2) Then
                        If (AD >= P3_1) And (AD <= P3_2) Then
                            TList = CDbl(.Cells(i, "AG").Value)
                        End If
                    End If
                 End If
 
    End With
End Function


Но по итогу не хочет работать макрос  в таком виде. Пишет сообщение Compile Error. Argument not Optional.

 6 
 : 14.10.2020, 22:10:19 
Автор Roman Compass - Последний ответ от vikttur
С чего начать как это все сделать представления не имею .
Да ну?
кросс

 7 
 : 14.10.2020, 17:56:24 
Автор Roman Compass - Последний ответ от Roman Compass
Привет всем кто читает данную тему!
Работаю в аренде авто, компания маленькая все пишем на бумаге.
Нужна помощь! Я новичок в эксель.
Я тут в интернете нашел на английском два видео того что мне нужно . Я по английский понимаю и говорю ,самоучка поэтому не настолько хорошо ,тем более здесь свой термин .
https://www.youtube.com/watch?... PCLearning
https://www.youtube.com/watch?... reelancers

Примерно такая таблица

Хочу сделать чтобы календарь бронирования имел такие возможности
- График (диаграмма ) где видна бронь на даты С и ДО , плюс если на одну и ту же машину накладывается бронь в один и тот же день ,чтобы выделалось другим цветом
- Информация по бронированию (если можно при нажатие на одну из дат брони ,чтобы легко было найти всю инфу по бронированию )
- Данные клиента ( чтобы можно было легко найти номер телефона или еще что-то)

С чего начать как это все сделать представления не имею . Но очень хочу сам для себя научится .
Если можете подсказать ,так сказать направить - объяснить примерно как это сделать буду признателен .

 8 
 : 12.10.2020, 08:06:29 
Автор Megavolt - Последний ответ от Дмитрий Щербаков(The_Prist)
Да, забыл: если классы не подходят, то для каждой кнопки надо дублировать процедуру. Тогда все очевидно - проверяете в цикле имена контролов и сверяете с текущим(нажатие которого обрабатываете):
Код: (vb)
If ot.Name <> "ToggleButton3" Then

 9 
 : 11.10.2020, 15:53:43 
Автор Cratosart - Последний ответ от Cratosart
Спасибо

 10 
 : 10.10.2020, 18:31:02 
Автор Megavolt - Последний ответ от Дмитрий Щербаков(The_Prist)
Добро пожаловать в мир классов: Работа с модулями классов

Страниц: [1] 2 3 ... 10
Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru