{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Arkusz1"],"not_rendered":{"charts":0,"images":1,"macros":1,"external_links":0,"defined_names":1,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Arkusz1","index":0,"n_rows":76,"n_cols":12,"rows_kept":76,"cut":false,"hidden":false,"merged":[[75,0,75,8],[72,0,72,11],[26,0,26,3],[30,0,30,5],[63,0,63,6],[66,0,66,11],[69,0,69,10],[69,11,69,16],[46,4,47,7],[52,0,52,7],[50,0,50,7],[53,0,53,7]]}
[{"$f":"CELL(\"filename\",A1)","v":"W:\\W_LOGISTYKI\\RO_GOSPODARCZEJ\\RADEK\\Excel\\[CiekaweFormulyExcel.xlsm]Arkusz1"},null,null,null,null,null,null,null,"Nazwa aktywnego arkusza z nazwą pliku i ścieżką dostępu, bez względu na to, w którym arkuszu wunkacja jest wywoływana."]
[{"$f":"CELL(\"filename\")","v":"W:\\W_LOGISTYKI\\RO_GOSPODARCZEJ\\RADEK\\Excel\\[CiekaweFormulyExcel.xlsm]Arkusz1"},null,null,null,null,null,null,null,"Nazwa arkusza, z nazwą pliku i ze ścieżką w którym umieszczona jest ta formuła."]
[{"$f":"MID(CELL(\"filename\",A1),SEARCH(\"]\",CELL(\"filename\",A1))+1,\nLEN(CELL(\"filename\",A1))-SEARCH(\"]\",CELL(\"filename\",A1)))","v":"Arkusz1"},null,null,null,null,null,null,null,"Nazwa arkusza."]
[{"$f":"MID(CELL(\"filename\"),1,SEARCH(\"[\",CELL(\"filename\"))-1)","v":"W:\\W_LOGISTYKI\\RO_GOSPODARCZEJ\\RADEK\\Excel\\"},null,null,null,null,null,null,null,"Ścieżka dostępu do pliku."]
[{"$f":"MID(CELL(\"nazwa_pliku\"),FIND(\"[\",CELL(\"nazwa_pliku\"))+1,FIND(\"]\",CELL(\"nazwa_pliku\"))-FIND(\"[\",CELL(\"nazwa_pliku\"))-1)","v":"CiekaweFormulyExcel.xlsm"},null,null,null,null,null,null,null,"Nazwa pliku."]
[]
[null,null,null,"2018-05-21T13:53:52",null,"2018-05-21T13:55:18",null,null,"Wstawianie daty w aktywnej komórce (w której jest kursor)."]
[null,null,null,"2018-05-21T14:01:31",null,null,null,null,null,"Aby wyedytować nazwę przycisku należy:"]
[null,null,null,"2018-05-21T14:03:31",null,null,null,null,null,null,"- W Development nacisnąć \"Tryb projektowania\"."]
[null,null,null,null,null,null,null,null,null,null,"- Nacisnąć prawy klawisz myszki wskazując na przycisk."]
[null,null,null,null,null,null,null,null,null,null,"- Wybrać pozycję Objekt CommandButton, a z niej \"Edit\"."]
[null,null,null,null,null,null,null,null,null,"Aby zmodyfikować makro wpisane w przycisk należy:"]
[null,null,null,null,null,null,null,null,null,null,"- Nacisnąć prawy klawisz myszki wskazująć na przycisk."]
[null,null,null,null,null,null,null,null,null,null,"- Wybrać z menu \"Edytuj kod\"."]
[null,null,null,null,null,null,null,null,null,"W zależności od ustawienia formatu komórki wyświetlana będzie tylko data, albo data z godziną, minutami i sekundami."]
[1,null,null,null,null,null,null,null,"Nazwy"]
[2]
[3]
[4]
[5]
[{"$f":"SUM(A16:A20)","v":15},"Suma po zakresie.",null,null,null,null,null,null,null,"SUMA liczona tradycyjnie, tj. formułą SUMA(ZAKRES)."]
[{"$f":"SUM(Zakres1)","v":15},"Suma po nazwie zakresu.",null,null,null,null,null,null,null,"SUMA liczona po nazwie zakresu. Ale zakresowi można nadać nazwę, np. Zakres1 i sumować po nazwie: SUMA(Zakres1)."]
[null,null,null,null,null,null,null,null,null,"Używanie nazw np. zakresów znacząco upraszcza widok formuł. Aby nadać nazwę należy zaznaczyć zakres i nadać nazwę w lewym górnym rogu (okieneczko po lewej stronie od okna wprowadzania formuł)."]
[null,null,null,null,null,null,null,null,null,"Zby zmienić zakres nazwy należy w FORMUŁY/\"Menedżer nazw\" wybrać właściwą nazwę i zmienić jej definicję."]
[]
[]
["ActiveWorkbook.Close False\nApplication.Quit",null,null,null,null,null,null,null,null,"Zamykanie arkusza poprzez makro"]
[null,null,null,null,null,null,null,null,null,"wraz z zamykaniem Excela. Użycie pierwszej linii powoduje wyłącznie zamknięcie arkusza."]
[]
[]
["Liczba porządkowa - pojawia się, gdy w kolumnie \"B\" coś wstawisz.\nDodatkowo w kolumnie \"Kol 4\", jeżeli w celi tej kolumny pojawi się słowo \"UŚMIECH\" to kolumna wyświetli napis w kolrze białym na niebieskim tle. Żeby zobaczyć, ja to się robi, zajrzyj do \"Formatowanie warunkowe\", \"Zarządzenie regułami\"."]
["L.p.","Nazwa","Kol 3","Kol 4","Kol 5","Kol 6"]
[{"$f":"IF(B33=\"\",\"\",ROW()-32&\".\")","v":""}]
[{"$f":"IF(B34=\"\",\"\",ROW()-32&\".\")","v":""}]
[""]
[""]
[""]
[]
[{"$f":"MAX(($A$3:$A$97<>\"\")*ROW($A$3:$A$97))","v":{"$error":"#VALUE!"}},null,null,null,null,null,null,null,null,"Wskazuje pierwszy pusty wiersz z zakresu wierszy A3:A100; funkcja tablicowa, więc akceptować ją Ctrl+Shift+Enter"]
[]
["Makro wskazujące literę kolumny:"]
["Function ColumnLetter(ColumnNumber As Integer) As String"]
["        ColumnLetter = Split(Columns(ColumnNumber).Address(False, False), \":\")(0)"]
["End Function"]
[]
["Podświetlanie linii, fragmenu linii:"]
["=NR.KOLUMNY(G8)=AktywnaKolumna",null,null,null,"Definiowania formatowania warunkowego."]
["=WIERSZ(8)=AktywnyWiersz"]
["Option Explicit"]
["W zakładce zdefiniować makro:"]
["Sub Worksheet_SelectionChange(ByVal Target As Range)\n  ActiveWorkbook.Names(\"AktywnyWiersz\").RefersTo = \"=\" & ActiveCell.Row\nEnd Sub"]
[]
["Zdefiniować nazwę (Formuły/Definiuj nazwę) \"AktywnyWiersz\" z odniesieniem do komórki okreslającej górny róg obszaru."]
["-----------------------------------------------------------------------------------------------------------------------------"]
[]
["& vbcrlf ","w VBA znak łamania linii."]
[]
["Kowersja nr kolumny na literę"]
["Function ColumnLetter(ColumnNumber As Integer) As String"]
["        ColumnLetter = Split(Columns(ColumnNumber).Address(False, False), \":\")(0)"]
["End Function"]
[]
["Makro, które uruchamia makro poprzez naciśnięcie na hiperłącze."]
["Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)\n    'Check if the Target Address is same as you have given\n    'In the above example i have taken A4 Cell, so I am\n    'Comparing this with $A$4; $A$4 zastyąpiono ActiveCell.Address\n\n    If Target.Range.Address = ActiveCell.Address Then\n        'Write your all VBA Code, which you want to execute\n        'Or Call the function or Macro which you have\n        'written or recorded.\n        MsgBox \"Write your Code here to be executed\"\n    End If\nEnd Sub"]
[]
["Makro, czy komórka jest w zakresie - jeszcze nie działa"]
["Function IsCellInRange(LeftCorner As Range, RightCorner As Range, Cell As Range) As Boolean\n    If Cell.Value = \"\" Then\n        Cell.Value = ActiveCell.Value\n    End If\n    If Range(Cell).Column >= Range(LeftCorner).Column And Range(Cell).Row >= Range(CornerRight).Row And Range(Cell).Column <= Range(RightCorner).Column And Range(Cell).Row <= Range(RightCorner).Row Then\n        IsCellInRange = True\n    Else\n        IsCellInRange = False\n    End If\nEnd Function"]
[]
["Makro - funkcja - wyświetlanie okienka informacyjnego:",null,null,null,null,"Przykład:",{"$f":"InfoWindow(\"Ala i As\",\"Poszli w las\")","v":0}]
["Function InfoWindow(Tresc As String, Naglowek As String)\n    MsgBox TrescWLinii1 & vbcrlf & TrescWLinii2, vbOKOnly, Naglowek\nEnd Function",null,null,null,null,null,null,null,null,null,null,"Komunikat jest złamany do dwóch linii."]
[]
["Makro, które w zakładce \"ListaZakładek\" buduje listę zakładek."]
["Sub OdswiezListeArkuszyA2()\n  Dim aktywnaZakladka As String\n  aktywnaZakladka = ActiveSheet.Name\n  Const Spis = \"ListaZakladek\"\n  Dim sh As Worksheet\n  Dim w As Integer\n  'przejscie do arkusza ze spisem i ewentualne jego utworzenie\n  On Error Resume Next\n  Worksheets(Spis).Select\n  If Err > 0 Then\n    Worksheets.Add Before:=Sheets(1)\n    ActiveSheet.Name = Spis\n  End If\n  On Error GoTo 0\n  'wpisanie listy arkuszy\n  Cells.Clear\n  w = 0\n  For Each sh In Worksheets\n    w = w + 1\n    Cells(w, 1) = sh.Name\n  Next sh\n   Worksheets(aktywnaZakladka).Select\nEnd Sub\n"]
[]
["Makro, które uruchamia wybrane makro po zmienie wartości w liście wyboru (z poprawności danych)."]
["Private Sub Worksheet_Change(ByVal Target As Range)\n    If Not Intersect(Target, Range(\"E1\")) Is Nothing Then\n        Select Case Range(\"E1\")\n            Case \"Insert Blank rows\": Macro1\n            Case \"Hide All Sheets\": Macro2\n            Case \"Convert to Date\": Macro3\n        End Select\n    End If\n    End Sub"]