Ръководства за работа с Excel 2003

[naskobk]

Разгледай лист база и лист справки,

за базата - трябва така да се направи, пивотката

във лист справки може да си я настроиш както ти трябва,

аз съм е настороил да дава информация по шофиори.

от лист справки избираш шофьор и ти дава обща справка за него по пътни листове,

маршрути и изминати километри.

 

разгледай я ако има нещо което те притеснява питай.

                                                                                     поздрави

Primer_pyten_list_tablica.xls

[naskobk]

Макроса е готов сега, работи както трябва,

сложих ти и допълнителни бутони ако желаеш ги ползвай,

може да разгледаш и пивотката

 

 

 

Primer_pyten_list_working.zip

[milenk]

Макроса е готов сега, работи както трябва,

сложих ти и допълнителни бутони ако желаеш ги ползвай,

може да разгледаш и пивотката

Благодаря ще ми върши работа

[diyan]

Лекичко зациклих над една задачка: В таблица фактури си описвам всички платени фактури по дата, номер, стойност. Целта на задачката е в следващите листи от работната книга  да се получи групиране с междинни сборове (тях ги няма в примера).Книга1.xlsx

[ashko2]

Здравейте,

 

Имам нужда от помощ!

Каква формула трябва да се напише за да получа слединят резилтат:

1. Ако клетка C2= върнати , E2=каси то G2 да е равна на (-1)
2. Ако клетка C2= върнати , E2=палета то G2 да е равна на (-3)
3. Ако клетка C2= доставени , E2=палета то G2 да е равна на  3
4. Ако клетка C2= доставени , E2=каси то G2 да е равна на  1

PRIMER.xls

[k0st4din]

Здравейте AYSHE,

поставете тази формула в G2:

=IF(C2="върнати";-1;IF(C2="доставени";1;0))*IF(E2="каси";1;IF(E2="палета";3;0)) 

[klain]

Здравейте. Имам екселски файл, в който съм си направила за удобство 2 макроса (с Макро рекордер ) На бутон "Преглед" съответства изпълнението за премахване на открити нулеви стойности в колоната. Бутон "Печат" е ясно. Моля за помощ за съставяне на 2 бутона "Запазване" - като целта е след изпечатване на файла той да се запази, но да има запитване къде да се запази файла. Втория бутон, който не мога да направя е да отмени действието на бутон "Преглед", ако случайно съм пропуснала да въведа дадена стока преди да го натисна, т.е. искам връщане на цялата таблица. Много сложно го обясних май, дано ме разбрахте. 
Ще се попълват само зелените полета, другите ще бъдат заключени.

 

Благодаря на всички отзовали се. 

 

проба.xlsx

[klain]

Здравейте. Имам екселски файл, в който съм си направила за удобство 2 макроса (с Макро рекордер ) На бутон "Преглед" съответства изпълнението за премахване на открити нулеви стойности в колоната. Бутон "Печат" е ясно. Моля за помощ за съставяне на 2 бутона "Запазване" - като целта е след изпечатване на файла той да се запази, но да има запитване къде да се запази файла. Втория бутон, който не мога да направя е да отмени действието на бутон "Преглед", ако случайно съм пропуснала да въведа дадена стока преди да го натисна, т.е. искам връщане на цялата таблица. Много сложно го обясних май, дано ме разбрахте. 

Ще се попълват само зелените полета, другите ще бъдат заключени.

 

Благодаря на всички отзовали се. 

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

Ще го напиша за бутон "Преглед"

 

Sub Macro1()

'

' Macro1 Преглед

'

 

'

    Range("G18:G72").Select

    Selection.AutoFilter

    ActiveSheet.Range("$G$18:$G$72").AutoFilter Field:=1, Criteria1:="=0.00 лв" _

        , Operator:=xlAnd

    Selection.EntireRow.Delete

End Sub

[naskobk]

За да ти разреши файла да го прикачиш с макрос,

може да пробваш командата Save as: Excel 2003,

тогава разширението на файла ще е *.xls и ще може да го прикачиш

[klain]

Прикачвам файла. Благодаря на naskobk за указанието.

проба.xls

[k0st4din]

Здравейте klain,

що се отнася до това да принтирате и да запазите файлът, то използвайте този макрос:

Sub PrintmeandSaveme()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Save
End Sub

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

[klain]

Здравейте klain,

Що сe отнася до вторият макрос, то някакси не ми става ясно как машината(ексела) може да знае точно коя стока е пропусната или аз не го разбирам.

Здравейте k0st4din,

Разбирам, че това няма как да се знае от Excel. Точно затова искам да бъде възстановена цялата таблица от ред 17 до края на таблицата, за да не се налага да отварям наново файла, тъй като след изпълнението на макроса нямам Undo. Всъщност искам да се възстанови състоянието на таблицата от преди изпълнението на макроса. Дано съм обяснила по-точно сега.  

Благодаря за помощта.

[k0st4din]

Здравейте klain,

 

във вашият макрос ми направи впечатление, че вие сте поставила "delete", което от своя страна изтрива нулите.

Затова предлагам следният макрос с който да се скриват стоките със стойност =0 и ако има пропуски да можете да си възстановите таблицата.

За целта си правите един бутон от тук:

 

и не пишете нищо вътре в него, т.е това "Преглед" - не го пишете.

След което си поставете в нов Module този макрос:

Sub HideprobUnhideRows()
    Dim myBTN As Button, cll As Range
     
    With ActiveSheet
        Set myBTN = .Buttons(Application.Caller)
        If Trim(UCase(myBTN.Caption)) = "ПРЕГЛЕД" Then 
        Application.ScreenUpdating = False
             
            For Each cll In .Range("G17:G72").Cells
                cll.EntireRow.Hidden = cll.Value = 0
            Next cll
             
            myBTN.Caption = "Върни"
            Application.ScreenUpdating = False
             
        Else
            .Range("G17:G72").EntireRow.Hidden = False
             
            myBTN.Caption = "Преглед"
            Application.ScreenUpdating = False
        End If
        On Error Resume Next
        .UsedRange.Cells.SpecialCells(xlCellTypeVisible).EntireRow.AutoFit
        On Error GoTo 0
    End With
End Sub

и го прикрепете към вече направеният бутон.

Поздрави

[klain]

Здравейте klain,

 

във вашият макрос ми направи впечатление, че вие сте поставила "delete", което от своя страна изтрива нулите.

Затова предлагам следният макрос с който да се скриват стоките със стойност =0 и ако има пропуски да можете да си възстановите таблицата.

За целта си правите един бутон от тук:

 

http://forums.softvisia.com/public/style_images/master_custom/attachicon.gifScreen_304 Sep. 05.jpg

и не пишете нищо вътре в него, т.е това "Преглед" - не го пишете.

След което си поставете в нов Module този макрос:

Sub HideprobUnhideRows()
    Dim myBTN As Button, cll As Range
     
    With ActiveSheet
        Set myBTN = .Buttons(Application.Caller)
        If Trim(UCase(myBTN.Caption)) = "ПРЕГЛЕД" Then 
        Application.ScreenUpdating = False
             
            For Each cll In .Range("G17:G72").Cells
                cll.EntireRow.Hidden = cll.Value = 0
            Next cll
             
            myBTN.Caption = "Върни"
            Application.ScreenUpdating = False
             
        Else
            .Range("G17:G72").EntireRow.Hidden = False
             
            myBTN.Caption = "Преглед"
            Application.ScreenUpdating = False
        End If
        On Error Resume Next
        .UsedRange.Cells.SpecialCells(xlCellTypeVisible).EntireRow.AutoFit
        On Error GoTo 0
    End With
End Sub

и го прикрепете към вече направеният бутон.

Поздрави

 

Изключително съм Ви благодарна за този макрос. Върши прекрасна работа.

Ще Ви помоля само да направите така, че при запис на файла да ме пита за това, къде да бъде записан файла и как да се казва. Благодаря отново.

[naskobk]

Здравей klain,

Изпращам ти макроса който ти трябва:

 

Sub Zapishi()
 Dim ActSheet As Worksheet
    Dim ActBook As Workbook
    Dim CurrentFile As String
    Dim NewFileType As String
    Dim NewFile As String
 
    Application.ScreenUpdating = False    ' Prevents screen refreshing.

    CurrentFile = ThisWorkbook.FullName
 
    NewFileType = "Excel Files 1997-2003 (*.xls), *.xls," & _
               "Excel Files 2007 (*.xlsx), *.xlsx," & _
               "All files (*.*), *.*"
 
    NewFile = Application.GetSaveAsFilename( _
        InitialFileName:=NewFile, _
        fileFilter:=NewFileType)
 
    If NewFile <> "" And NewFile <> "False" Then
        ActiveWorkbook.SaveAs Filename:=NewFile, _
            FileFormat:=xlNormal, _
            Password:="", _
            WriteResPassword:="", _
            ReadOnlyRecommended:=False, _
            CreateBackup:=False
 
        Set ActBook = ActiveWorkbook
        Workbooks.Open CurrentFile
        ActBook.Close
    End If
 
    Application.ScreenUpdating = True
End Sub
 

Надявам се, че това е макроса който ти е нужен.

New_document.xls