Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
21.05.2024, 10:28:08

Войти
Название темы должно отражать её содержание.
Темы типа "ПОМОГИТЕ!!!", "Срочно!", "Не получается сделать", "Нужна помощь" и т.п. будут удаляться без объяснения причин
33 266 Сообщений в 5 461 Тем от 6 769 Пользователей
Последний пользователь: Fortuna
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
  Просмотр сообщений
Страниц: [1]
1  Основные форумы / PowerQuery, PowerPivot, PowerBI и запросы / подсчитывать количество столбцов с числом > 0 : 20.01.2023, 11:38:35
День добрый,
прошу о помоши в следушей задачи, так как сил болше нет искать решение  В замешательстве

Я загружаю таблицу через WEB и определяю столбцы.

Теперь мне нужна помощь в создании нового столбца, который будет подсчитывать количество 12 столбцов с числом > 0, независимо от их названия (названия динамические, но всегда находятся на своем месте по счету).

Например (наличие столбцов от 7 -18). Всего в таблице более 30 столбцов.

Очен признателен за совет или решение.
2  Основные форумы / PowerQuery, PowerPivot, PowerBI и запросы / Re:Excel СУММЕСЛИ в power query : 09.09.2020, 10:01:37
Дмитрий спасибо огромное.  Крутой

Буду теперь разбираться и пробовать засунуть все в мою модель. Веселый

Еще раз спасибо, разобрался. Улыбка
3  Основные форумы / PowerQuery, PowerPivot, PowerBI и запросы / Re:Excel СУММЕСЛИ в power query : 09.09.2020, 07:22:15
Дмитрий спасибо огромное.  Крутой

Буду теперь разбираться и пробовать засунуть все в мою модель. Веселый
4  Основные форумы / PowerQuery, PowerPivot, PowerBI и запросы / Excel СУММЕСЛИ в power query : 08.09.2020, 10:14:19
Ребята привет,
с прошлой недели начал осваивать power query и надкнулся на проблему В замешательстве.

Суть в том что мне нужно получить сумму деталей актуальной версии а так же к их предыдушим версиями.

Есть несколько пoдгрупп:

1.Таблица с субституцией: актуальный номер детали, предыдущий, и старый. (Список предыдуших и старых деталей  может превышать 15-ти версий)
2.Таблица с версией детали и количество

В результате к первой таблице должно бытъ подсчитанно количество деталей находяшихся в строке Таблица 1.

Загрузил таблицу с примерами.

Спасибо за совет или же за ссылку где есть подобный пример.


5  Основные форумы / Вопросы по Excel и VBA / Re:Как правильно сохранить Массивы? : 23.01.2014, 22:02:58
doober спасибо. ВСе идет и очень даже быстро 3-5 секунд. Теперь постораюсь разобраться с этим кодом. и ещё вопрос, я декларировал массив приватно т.е так:

Код: (vb)
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim toldm As Double
Dim spltz As Double
Dim verant1 As Integer
Dim Verant2 As Integer
Dim vland As String
Dim eland As String
Dim Vplz As String
Dim Eplz As String
Dim i As Long
Public n As Long
Dim s As Long
Public liste(1 To 500000, 1 To 33) As Variant

Dim Country As Long

Dim Zone As Byte
Dim WeightOffset As Long

Комментарий администратора Оформляйте коды тегами VB Code

и теперь у меня показывает ошибку по этому, что два раза один и тот же массив.

А можешь с второй частью помочь? Там правда немного все закрученно, так как я сделал для себя спомогательную таблицу, на которую я постоянно опираюсь.
6  Основные форумы / Вопросы по Excel и VBA / Как правильно сохранить Массивы? : 23.01.2014, 17:33:44
Привет всем,
прошу помочь разобраться с проблемой. Я совсем недавно работаю с VBA-Excel 2010 и ещё не на столько хорошо разбираюсь с некоторыми кодами.

Я очень много прочитал на форумах на тему массивы, но никак не могу найти ответ на свой ответ.

Моя проблема: я сделал массивы которые считывают только мне нужные столбцы с которыми я хочу в дальнейшем работать. Так как зачитывать в массивы длится около 30 секунд я хотел бы зачитать один раз, и при запуске программы их больше не зачитывать. Не знаю возможно ли это?

Вторая часть состоит из решения которая работает медленно (Продолжительность около 1 минуты, до окончательной передачи Данных в строчки), но хотелось бы чтоб работало быстрее то есть мгновенно.

У меня получается матрица из 100 Строчек на 14 Столбцов.

Спасибо за помошь.!!


spoiler for Код:
Код: (vb)
Sub Tarif()
Sheets("Preismatrix Export").Select
 
        i = 5
        n = 1
        Do While Cells(i, 1) <> ""      
            liste(n, 1) = Cells(i, 1)
            liste(n, 2) = Cells(i, 11)
            liste(n, 3) = Cells(i, 12)
            liste(n, 4) = Cells(i, 18)
            liste(n, 5) = Cells(i, 19)
            liste(n, 6) = Cells(i, 20)
            liste(n, 7) = Cells(i, 21)
            liste(n, 8 ) = Cells(i, 22)
            liste(n, 9) = Cells(i, 23)
            liste(n, 10) = Cells(i, 24)
            liste(n, 11) = Cells(i, 25)
            liste(n, 12) = Cells(i, 26)
            liste(n, 13) = Cells(i, 27)
            liste(n, 14) = Cells(i, 28)
            liste(n, 15) = Cells(i, 29)
            liste(n, 16) = Cells(i, 30)
            liste(n, 17) = Cells(i, 31)
            
            liste(n, 18) = Cells(i, 32)
            liste(n, 19) = Cells(i, 33)
            liste(n, 20) = Cells(i, 39)
            liste(n, 21) = Cells(i, 40)
            liste(n, 22) = Cells(i, 41)
            liste(n, 23) = Cells(i, 42)
            liste(n, 24) = Cells(i, 43)
            liste(n, 25) = Cells(i, 44)
            liste(n, 26) = Cells(i, 45)
            liste(n, 27) = Cells(i, 46)
            liste(n, 28) = Cells(i, 47)
            liste(n, 29) = Cells(i, 48)
            liste(n, 30) = Cells(i, 49)
            liste(n, 31) = Cells(i, 50)
            liste(n, 32) = Cells(i, 52)
            
            i = i + 1
            n = n + 1        Loop

       End Sub

Вторая часть не полная, так как остальная работает безупречно.

If verant1 = 1 Then
        For Z = Z To spring
            i = 1
            m = m + 1
            LDM = 1                k = 1
            
             For k = k To 14
                Zeile = 4                
                If (liste(j, 3 + LDM) <= 0) And LDM <= 14 Then
                    Do While Sheets("Lademeterabstufung").Cells(Zeile, 1) <> 0
                        If Sheets("Lademeterabstufung").Cells(Zeile, 1) = kk Then
                            costldma = (Sheets("Lademeterabstufung").Cells(Zeile, 1 + LDM) / 100) * liste(j, 3)
                            Sheets("EK-Tarif").Cells(m + 13, i + 1) = costldma
                            LDM = LDM + 1
                            i = i + 1
                        Exit Do 'raus hier
                        End If
                        Zeile = Zeile + 1
                    Loop                      
                Else        
                    costldma1 = liste(j, 3 + LDM) / 100 * liste(j, 3)
                    Sheets("EK-Tarif").Cells(m + 13, i + 1) = costldma1
                    i = i + 1
                    LDM = LDM + 1
                End If
            Next k
          
            j = j + 1
            
            If Z = 75 Then
                Exit For
            End If
        Next Z
        
Else
             For i = 1 To 14
                            
                Zeile = 4
                LDM = 1 'laufender LDM
                If (liste(j, 18 + LDM) <= 0) Then
                    Do While Sheets("Lademeterabstufung").Cells(Zeile, 1) <> 0
                        If Sheets("Lademeterabstufung").Cells(Zeile, 1) = kk Then
                            costldma = (Sheets("Lademeterabstufung").Cells(Zeile, 1 + LDM) / 100) * liste(j, 18)
                                
                        Exit Do
                        End If
                        Zeile = Zeile + 1
                    Loop  
                Else        
                    costldma1 = liste(j, 18 + LDM) / 100 * liste(j, 18)
                End If
            Next i
            j = j + 1
End If
Страниц: [1]
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