powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получение результатов вычисления
25 сообщений из 25, страница 1 из 1
Получение результатов вычисления
    #37220371
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В таблице в поле D5 Лист 3

есть результат вычисления
как сделать чтобы при нажатию на кнопку или наведению курсора
появлялась информация подобная Примечанию
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37220502
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JA,

А может такой авриант будет удобнее

1 настраиваем контекстное меню

2 и при вызове его из колонки В переходим на лист 2 и устанавливаем фильтр по номеру клиента
3 при вызове из колонки D ствим фильтр на номер клиента и месяц Март
4 при вызове из колонки F ствим фильтр на номер клиента и месяц Апрель
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37220507
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JA,

и при формировании листа 2 добавить колонку с номером месяца, тогда формулы, определяющие больше или равно 1 и меньше или равно 31 становятся короче
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37220515
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Chumakov_JA, выкладывайте код SQL-запроса.
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37220516
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JA,

для числовых данных всегда обязательно отображайте их с двумя знаками росле запятой и разделитетел тысяч, вровненными по правому краю и тода вашему глазу и могзу не надо будет напрягаться переводя увиденное число в осмысленную информацию

03.03.2011 5555556.66
03.03.2011 55555666
03.03.2011 55556.66


одинаковая ли сумма платежей и какая из них больше
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37220580
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ThermikChumakov_JA,

для числовых данных всегда обязательно отображайте их с двумя знаками росле запятой и разделитетел тысяч, вровненными по правому краю и тода вашему глазу и могзу не надо будет напрягаться переводя увиденное число в осмысленную информацию

03.03.2011 5555556.66
03.03.2011 55555666
03.03.2011 55556.66


одинаковая ли сумма платежей и какая из них больше

Даты и суммы привел ради примера

Serge 007
Chumakov_JA, выкладывайте код SQL-запроса.



Все что можно было я и так там вытянул.

Thermik
А может такой авриант будет удобнее

1 настраиваем контекстное меню

2 и при вызове его из колонки В переходим на лист 2 и устанавливаем фильтр по номеру клиента
3 при вызове из колонки D ствим фильтр на номер клиента и месяц Март
4 при вызове из колонки F ствим фильтр на номер клиента и месяц Апрель

Да я вообще хочу Лист 2 скрыть с глаз долой.

Thermik
и при формировании листа 2 добавить колонку с номером месяца, тогда формулы, определяющие больше или равно 1 и меньше или равно 31 становятся короче


Колонки добовлять нельзя и вопрос принципиален
для анализа именно даты оплаты поэтому и просил
чтобы было в виде примечаний.
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37220615
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JA,

"Все что можно было я и так там вытянул."
вам предлагают поставить GROUP BY дата платежа. В сиквеле это одна строчка а VBA куча кода по сборке платежей.
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37220621
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ThermikChumakov_JA,

"Все что можно было я и так там вытянул."
вам предлагают поставить GROUP BY дата платежа. В сиквеле это одна строчка а VBA куча кода по сборке платежей.
А в сводной два клика мышкой ;)
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37220623
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Thermik...вам предлагают поставить GROUP BY дата платежа.
И я совсем не это предлагал ;)
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37220633
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SELECT base.INS_REG_NUM, base.KBK_ID, base.PAY_ENTER, base.PAY_SUM
FROM user.base base
WHERE (base.PAY_ENTER>=?)
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37221240
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а если второй вариант при двойном клике (например)
внизу появлялась диаграмма
где указанно месяц или за все месяца
и даты когда прошли суммы
по той строке где стоит курсор.
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37221296
NullUzer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JASELECT base.INS_REG_NUM, base.KBK_ID, base.PAY_ENTER, base.PAY_SUM
FROM user.base base
WHERE (base.PAY_ENTER>=?)

Код: plaintext
1.
2.
3.
4.
5.
Dim sql As String
sql = "SELECT PAY_ENTER, SUM(PAY_SUM) " & _
         "FROM [Лист2$] " & _
         "WHERE INS_REG_NUM = " & ActiveCell.Offset( 0 ,- 2 ) & _
         "GROUP BY (PAY_ENTER);"
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37222818
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
NullUzerChumakov_JASELECT base.INS_REG_NUM, base.KBK_ID, base.PAY_ENTER, base.PAY_SUM
FROM user.base base
WHERE (base.PAY_ENTER>=?)

Код: plaintext
1.
2.
3.
4.
5.
Dim sql As String
sql = "SELECT PAY_ENTER, SUM(PAY_SUM) " & _
         "FROM [Лист2$] " & _
         "WHERE INS_REG_NUM = " & ActiveCell.Offset( 0 ,- 2 ) & _
         "GROUP BY (PAY_ENTER);"


А можно это както в мой файлик всунуть
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37223172
NullUzer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JA,

Короче, я сделал так. Выделяешь мышкой нужное тебе число, и вываливается MsgBox, в котором выписаны все даты и ВСЕГО по каждой дате. Если у тебя на листе Лист2 будет не один год, то на листе Лист3 можно в какой-нибудь ячейке прописать год и сослаться на него. :)
А пока запрос думает, что даты принадлежат одному и тому же году.
Если год будет один, то оставь как есть. Удачи!
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37223195
NullUzer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JA,

Да, уточняю, что при выделении ячейки идёт проверка на то, что выделение было столбцах, пересекающихся с месяцами (столбцы D:O). Если ячейка вне этих столбцов, то ничего считаться не будет. :) Форматирование цифр сделано банально с помощью Format.
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37223199
NullUzer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ThermikChumakov_JA,

"Все что можно было я и так там вытянул."
вам предлагают поставить GROUP BY дата платежа. В сиквеле это одна строчка а VBA куча кода по сборке платежей.

То есть запрос в VBA
Код: plaintext
1.
2.
3.
4.
5.
6.
sCriteria = "'%." & sMonth2 & ".%'"
sSQL = "SELECT PAY_ENTER, SUM(PAY_SUM) " & _
       "FROM [Лист2$] " & _
       "WHERE INS_REG_NUM = " & id & _
       " AND PAY_ENTER LIKE " & sCriteria & _
       " GROUP BY (PAY_ENTER);"
это "куча кода"?
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37223522
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
NullUzer,

сделай тоже самое без SQL и GROUP :)
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37223624
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
NullUzerChumakov_JA,

Короче, я сделал так. Выделяешь мышкой нужное тебе число, и вываливается MsgBox, в котором выписаны все даты и ВСЕГО по каждой дате. Если у тебя на листе Лист2 будет не один год, то на листе Лист3 можно в какой-нибудь ячейке прописать год и сослаться на него. :)
А пока запрос думает, что даты принадлежат одному и тому же году.
Если год будет один, то оставь как есть. Удачи!

Прям то что нужно было точно в точку

Теперь вот адаптирую под себя
и вот оказия

sMonth1 = Cells(1, iCol).End(xlDown)
id = Cells(iRow, "A")

номер у меня состоит из 11 знаков
а в примере стояло 6 где
поменять
Cells(iRow, "A") = 11111000003
а вот id =0
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37223811
NullUzer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JA,

А причём тут id = Cells(iRow, "A") ? В столбце "A" у тебя нет id - он в солбце B . Скажи поконкретней, что тебе нужно. :)
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37223826
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
NullUzerChumakov_JA,

А причём тут id = Cells(iRow, "A") ? В столбце "A" у тебя нет id - он в солбце B . Скажи поконкретней, что тебе нужно. :)

В начале темы выкладывал пример таблицы

а теперь подгоняю по реальную
столбец с В на А
понятно поменял, а вот размер номера при создании примера не учел
и вот ту оказия

авторsMonth1 = Cells(1, iCol).End(xlDown)
id = Cells(iRow, "A")

номер у меня состоит из 11 знаков
а в примере стояло 6 где
поменять
Cells(iRow, "A") = 11111000003
а вот id =0
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37223832
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот более приближенный пример
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37223837
NullUzer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JA,

Другими словами, все id находятся в столбце A и длина этого id - 11 знаков? Тогда поменяй в коде "B" на "A":
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    If Not Intersect(rng.Cells( 1 ), Columns("D:O")) Is Nothing Or IsEmpty(Cells(rng.Row, "A")) Then
    
        If IsEmpty(rng.Cells( 1 )) Then Exit Sub
        
        iRow = rng.Row: iCol = rng.Column
        sMonth1 = Cells( 1 , iCol).End(xlDown)
        id = Cells(iRow, "A")
...
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37223844
NullUzer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JAВот более приближенный пример
Объявил id как String. :) Плюс подправил формат, чтобы тысячные отделялись для миллионов. :)
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37223862
NullUzer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JA,
...
Рейтинг: 0 / 0
Получение результатов вычисления
    #37225538
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А вопрос
как можно переместить
окно а то всплывает прям посредине экрана.
...
Рейтинг: 0 / 0
25 сообщений из 25, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получение результатов вычисления
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]