Сообщений в теме: 914

[Dala]

Доброго дня ) ну или ДД

у меня вопросы по написанию макросов, и длинющих формул, типо "автоподтягивания", авто обновления существующих сводных таблиц, 

для контроля за материалом, сколько есть, сколько пришло, сколько ушло, сколько осталось

для решения этих задач облазила км форумов, правда в основном российских

худо бедно что то получилось

но

я готова платить, ну или заплатить человеку который объяснит мне откуда "дети берутся" 

откликнетесь пожалуйста кто нибудь из Астаны. 

В стат агентстве ребятки сидят, базами ворочают с макросами, любо дорого... 

[Nigrum cygnum]

В стат агентстве ребятки сидят, базами ворочают с макросами, любо дорого... 

 

Я конечно понимаю, что макросы вещь отличная и даже очень, но возможности экселя при работе с БД ограничены. А учитывая что это стат агентство, то есть данные со всей Республики, то и применять необходимо более совершенные технологии.

[Скарамуш]

Я конечно понимаю, что макросы вещь отличная и даже очень, но возможности экселя при работе с БД ограничены. А учитывая что это стат агентство, то есть данные со всей Республики, то и применять необходимо более совершенные технологии.

Вообще то там акцесс используют не екзелью. и даже уже не акцесс. Просто базы в dbf формате, который читается акцессом

И работают в основном используя запросы. Макросы пишут, вернее, писали отдельные товарищи

А екзель используется для текущей работы

 

А в целом - F1 никто не отменял

[punter]

такой вопрос: есть множество файлов (могут приходить в csv, htm, txt), в которых содержатся 1) наименование, 2) значение. Наименование остается всегда, меняются значения. Есть ли способ одним кликом поставить в ряд все эти значения (то есть импортировать данные со множества файлов), которые бы еще соответствовали наименованию? Спасибо заранее!

 

прикрепил файлы, в excel*е уже внес данные - именно так и должно все выглядеть после импорта данных

 

UPD: есть еще такой прикол, что в множестве файлов порядок наименований (соответственно и значения) идет по разному

Прикрепленные файлы

•  ex.rar   10,28К   Количество загрузок: 70

Сообщение отредактировал punter: 26.02.2014, 11:49:43

[killing me softly]

ДД, а какие курсы можно пройти для изучения Excel более углубленно для экономиста? и если знаете по Астане такие

High Tech for Human

http://www.hth.kz/

Сообщение отредактировал killing me softly: 26.02.2014, 11:11:01

[Daulet.tech]

только для импорта тХт файл, далее химичить надо

Прикрепленные файлы

•  Книга1.rar   9,67К   Количество загрузок: 61

[punter]

только для импорта тХт файл, далее химичить надо

спасибо, ваш файл закинул в папку в txt файлами, но жму макрос и ничего не делается.

 

Другой вопрос: как сместить ось дат в excele:

[Daulet.tech]

   У Вас разделители точно ";"?

Прикрепленные файлы

•  ex.rar   10,36К   Количество загрузок: 69

[punter]

   У Вас разделители точно ";"?

Сейчас работает. Точно, однако хотелось бы чтобы значения стояли в ряд с наименованиями, как если бы провели ВПР*ом.

[Скарамуш]

Другой вопрос: как сместить ось дат в excele:

по вертикальной оси - формат оси - пересечение с горизонтальной осью в -100%, т.е. нижний предел вертикальной оси

[Daulet.tech]

код, раскидывает по листам, и далее обычные функции: в помощь..., если время будет напишу код для того...

Sub Old()
    Dim FSO As Object, iFolder As Object, iFile As Object
    Dim MyPath As String, ts, arrstr
    Dim ss&, ii&, i&, y, x
    
    With Application
        .ScreenUpdating = False
        .Calculation = xlManual
        .ShowWindowsInTaskbar = False
    End With
    Cells.Clear
    Set FSO = CreateObject("Scripting.FileSystemObject")
    MyPath = ThisWorkbook.Path
    Set iFolder = FSO.GetFolder(MyPath)
    
    For Each iFile In iFolder.Files
        If FSO.GetExtensionName(iFile) Like "txt" Then
            Set ts = FSO.OpenTextFile(MyPath & "\" & iFile.Name, 1)
            arrstr = Split(ts.ReadAll, vbCrLf)
            ts.Close
            ii = 0
            Sheets.Add(After:=Sheets(Sheets.Count)).Name = iFile.Name
            Cells.Clear
            For i = 0 To UBound(arrstr)
                If Len(arrstr(i)) Then
                    x = 0
                    ss = Cells(Rows.Count, 1).End(xlUp).Row + 1
                    For Each y In Split(arrstr(i), ";")
                        Cells(ss, x + 1) = Split(arrstr(i), ";")(x)
                        x = x + 1
                    Next
                End If
            Next
        End If
    Next
    With Application
        .ShowWindowsInTaskbar = True
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
End Sub

[punter]

 

код, раскидывает по листам, и далее обычные функции: в помощь..., если время будет напишу код для того...

Sub Old()
    Dim FSO As Object, iFolder As Object, iFile As Object
    Dim MyPath As String, ts, arrstr
    Dim ss&, ii&, i&, y, x
    
    With Application
        .ScreenUpdating = False
        .Calculation = xlManual
        .S...

Спасибо ОГРОМНОЕ, Даулет! Работает отлично и быстро! Далее можете себя не утруждать

[Заинтересованная]

High Tech for Human

http://www.hth.kz/

16 часов по этому курсу, видимо бегло. Хотлеось бы углубленно 

Лучше взять хорошую книжку.

Открыть Excel и пройтись по примерам.

а какие можете порекомендовать, был Жаров "фин моделирование", немного полезных советов, некотор инфа уже устарела.

[Nigrum cygnum]

Ситуация- 

 

Веду учет личных финансов на Office Mobile - но он не понимает ни макросы, ни формулы массива (суммпроизв тоже относится).

 

Решение - стал использовать вместо {(=сумм)} и суммпроизв формулу суммесли, НО для одной диаграммы нужно следующее.

 

Проблема - имеются даты, имеются категории

 

Дата              Категория             Сумма

01-01-13        Еда                       500                        

 

 

=суммесли(А2:А10;"Еда";С2:С10)  - данная формула выдаст всю еду, аналогично, если суммесли по дате(выдаст за число).

 

Голову сломал... помогите, а

 

 пример-безмассива.rar   7,18К   Количество загрузок: 61

Сообщение отредактировал Nigrum cygnum: 01.03.2014, 00:20:26

[Daulet.tech]

  У меня нет Office Mobile, так что не могу гарантию

Если есть функция =СУММЕСЛИМН()

Прикрепленные файлы

•  пример-безмассива.rar   5,91К   Количество загрузок: 77

Сообщение отредактировал DauletAhamanov: 01.03.2014, 00:43:05

[Nigrum cygnum]

  У меня нет Office Mobile, так что не могу гарантию

Если есть функция =СУММЕСЛИМН()

 

Спасибо, ДБСУММ не работает, суммесли и суммеслимн работают, только как-то странно. 

В общем экспериментирую, уже создал файлов 20, пока только голые данные и сбор данных работает. Уже хорошо. Скоро как-нибудь аналитику затащу

Всё же Office Mobile намного лучше и удобнее сторонних приложении.

[punter]

всем доброго дня! не подскажите как написать формулу типа: если сегодня месяц X, то вычислить последний рабочий день (то есть не суббота и не воскресенье) месяца X.

Спасибус!

[Daulet.tech]

=КОНМЕСЯЦА(A1;0)-(ДЕНЬНЕД(КОНМЕСЯЦА(A1;0);2)-5)*НЕ(ДЕНЬНЕД(КОНМЕСЯЦА(A1;0);2)<6)

Сообщение отредактировал DauletAhamanov: 04.03.2014, 16:42:07

[Заинтересованная]

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

[Demka_DV]

снимите защиту с листа или данных