Informatyka Jarek - Porady Informatyczne - IT Tips

Ustawienia obszaru wydruku w VBA

2023-04-13T17:18:00.004+02:00

Sub ustaw_druk()

Dim ostatni_wiersz As Long

Dim pArea As String

Dim i As Long

Const ILE = 64 ' ile wierszy ma zawierać jedna strona wydruku

ostatni_wiersz = ThisWorkbook.Worksheets(lista).Cells(Rows.Count, 1).End(xlUp).Row

pArea = "$A$1:$C$" & ostatni_wiersz

With ThisWorkbook.Worksheets(lista)

.ResetAllPageBreaks

For i = ILE + 1 To .Range(pArea).Rows.Count Step ILE

.HPageBreaks.Add Before:=.Range(pArea).Cells(i, 1)

With .PageSetup

.PrintArea = pArea

.Orientation = xlPortrait

.Zoom = 85 ' dopasowanie wielkości strony żeby się zmieściło wszystko

.LeftMargin = Application.InchesToPoints(0.2)

.RightMargin = Application.InchesToPoints(0.2)

.BottomMargin = Application.InchesToPoints(0.3)

.TopMargin = Application.InchesToPoints(0.3)

End With

.PageSetup.PrintArea = ""

End With

End Sub

Naprawa Paska Zadań Windows

2022-10-19T12:12:00.007+02:00

Uruchomić Windows PowerShell w trybie administratora.

Komenda do wykonania:

Get-AppXPackage -AllUsers | Foreach {Add-AppxPackage -DisableDevelopmentMode -Register "$($_.InstallLocation)\AppXManifest.xml"}

Dodanie kolejnej linii tekstu w MsgBox - Add a New Line in VBA MsgBox

2022-09-20T12:07:00.007+02:00

Żeby w VBA wymusić kolejna linie tekstu można zastosować następujące stałe lub kodów znaków

vbNewLine
vbCrLf
vbLf
Chr(10)
Chr(13)

Sub nextline()

MsgBox "Tekst1 zastosowano vbNewLine" & vbNewLine & "Tekst2"

MsgBox "Tekst1 zastosowano vbCrLf" & vbCrLf & "Tekst2"

MsgBox "Tekst1 zastosowano vbLf" & vbLf & "Tekst2"

MsgBox "Tekst1 zastosowano Chr(10)" & Chr(10) & "Tekst2"

MsgBox "Tekst1 zastosowano Chr(13)" & Chr(13) & "Tekst2"

End Sub

Sprawdzenie klucza Windows zaszytego w Bios laptopa, komputera

2022-09-14T11:27:00.002+02:00

Jeżeli chcemy sprawdzić klucz systemu Windows zapisanego w Bios komputera, laptopa w wiersz poleceń (cmd lub PowerShell) trzeba wpisac komendę:

wmic path softwarelicensingservice get OA3xOriginalProductKey

następnie wcisnąć Enter

Jeżeli chcemy uzyskać więcej informacji o Systemie Windows w wiersz poleceń (cmd lub PowerShell) trzeba wpisac komendę:

wmic path softwarelicensingservice get /all /format:list | findstr OA3

następnie wcisnąć Enter

Smartwatch Samsung Galaxy Watch 4 Włączanie powiadomień głosowych w czasie treningów

2022-01-08T13:57:00.004+01:00

Żeby w Smartwatchu Samsung Galaxy Watch 4 włączyć powiadomienia głosowe, które są wypowiadane w zegarku cyklicznie w czasie ćwiczeń (spalone kalorie, czas, prędkośc itd), należy wejść w

Ściągnąc tarcze w dół
Nacisnąć Ustawienia (kółko zębate)
Wejść w Ogólne
Wejść w Syntezator mowy
Wejść w Ustawienia Systemu TTS
Przewijać listę w dół, aż znajdzie się Język Polski - kobieta

Jeżeli nie jest w zainstalowanych jezykach to zainstalować, poczekać aż język się zainstauje

Wracamy do Syntezator mowy
Wejść w Ustawienia Systemu TTS
Wybrać Język Polski - kobieta z zainstalowanych języków
W polu jezyk pojawi się napis Język Polski - kobieta

W poszczególnych ćwiczeniach można ustawić częstotliwość komunikatów, aby to zrobić trzeba uruchomić dane ćwiczenie (np. chód) i wybrać częstotliwość komunikatów.

Spis zawartości folderów w konsoli lub pliku tekstowym

2021-01-20T12:00:00.007+01:00

Otwieramy folder, którego zawartość chcemy wylistować
W pasku adresu wpisujemy - cmd. Wciskamy - Enter.
W konsoli cmd wpisujemy

- dir /s - żeby wylistować zawartość w konsoli lub
- dir /s >lista.txt - aby dane pojawiły się w pliku tekstowym o wskazanej nazwie w folderze o który pytamy

Brak prawego klawisza alt na klawiaturze, jak uzyskać polskie litery (tzw litery z ogonkami). Brak prawego alt-a.

2021-01-03T22:51:00.005+01:00

Kiedy zdarzy Wam się pracować na klawiaturze, która nie posiada przycisku Alt po prawej stronie spacji (czasem jest to Alt Gr) i nie macie możliwości wpisać literek z ogonkami (ś, ć, ł, ą, ę itd) , a korzystacie z systemowej klawiatury "polski programisty" to można rozwiąząć ten problem naciskająć razem lewy Ctrl i Alt wraz z daną literką. Oczywiście Shift + Ctrl + Alt + literka da nam dużą literę

Przez naciśnięcie razem przycisku lewy Ctrl i Alt uzyskujemy ten sam efekt jak prawy Alt (tzw Alt Gr)

Przykłady

Shift + Ctrl + Alt + n = Ń

Ctrl + Alt + n = ń

Shift + Ctrl + Alt + x = Ź

Ctrl + Alt + x = ź

Czasami niestety skrót taki będzie kolidował z którymś ze skrótów z zainstalowanych programów na komputerze, wtedy trzeba taki skrót zmienić lub usunąć z programu w którym on występuje, żeby dało się pisać daną polską literę.

Może kiedyś komuś się przyda. Pozdawiam.

Resetowanie hasła Windows

2020-12-09T10:34:00.000+01:00

1. Wkładamy dysk instalacyjny Windows, może być na USB – uruchamiamy instalację

2. Kiedy pojawi się okno Windows z możliwością wyboru języka, formatu godziny i daty oraz klawiatury naciskamy Shift + F10 - uruchamia się okno komend

3. Szukamy dysku z systemem

a. Dir c: (lub d:, e: itd.) i po kolei szukamy Windowsa na dysku, w kolejnych krokach (pkt 4,5) c: zastępujemy ewentualnie inną literką dysku na której jest system

4. move c: \ windows \ system32 \ Utilman.exe c: \ windows \ system32 \ Utilman.exe.bak

5. copy c: \ windows \ system32 \ cmd.exe c: \ windows \ system32 \ Utilman.exe

6. "wpeutil reboot" - komenda wykonująca bezpieczny restart komputera.

7. Po restarcie na ekranie logowania szukamy ikonkę, która przypomina 3/4 okręgu, to zestaw narzędzi ułatwień dla użytkownika. Po naciśnięciu ikonki uruchomi nam się konsola z wierszem poleceń i tam możemy wpisac komendy wymienione poniżej

8. Komendy dodające użytkownika, zmieniające hasło i dodające go do grupy lokalnych administratorów:

a. net user nazwa_użytkownika /add

b. net user nazwa_użytkownika hasło_użytkownika

c. net localgroup administratorów nazwa_użytkownika /add

9. Aktywowanie konta lokalnego administratora:

a. net user administrator /active:yes

b. net user administrator hasło_administratora

10. Wymuszenie zmiany hasła przy pierwszym logowaniu:

a. net user nazwa_użytkownika /logonpasswordchg:yes

11. Zabronienie użytkownikowi zmiany hasła:

a. net user nazwa_użytkownika /passwordchg:no

12. Skasowanie restrykcji czasowych dla danego konta:

a. net user nazwa_konta /times:all

b. net user nazwa_użytkownika /expires:never

Otwarcie pliku wskazanego przez użytkownika. Zmiana scieżki domyslnej w Application.GetOpenFilename /Open a user-specified file. Change default directory for Application.GetOpenFilename VBA

2020-08-07T13:16:00.003+02:00

Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As String) As Long

'Private - dzieła w tym module Public w wielu modułach

'------------------------------------------------------------------------------------------------------------------

Sub otw_path()

Dim gdzie As String

gdzie = ThisWorkbook.Path & "\" ' przyklad dla wywołania lokalizacji tego pliku na którym pracujemy

'gdzie = "C:" ' przykład wywołania ścieżki dla lokalizacji z danego komputera

'gdzie = "\\costam1\costam2\costam3\" 'przykład dla lokalizacji sieciowej

SetUNCPath (gdzie) 'to narzedzie nam zmienia ustawienia systemu, których nie zmieni Ci ChDir :)

FileFilter = "Pliki Excel (*.xlsx;*.xlsm),*.xlsx;*.xlsm"

'Tutaj podajemy łańcuch określający kryterium filtrowania plików tu dwa rodzaje xlsx i xlsm

SciezkaPliku = Application.GetOpenFilename(FileFilter) 'Otwarcie okna dialogowego oraz pobranie 'ścieżki pliku do zmiennej

If SciezkaPliku = False Then

MsgBox "Nie wybrano żadnego pliku." ' komunikat gdy nic nie wybierzemy

Exit Sub

End If

Workbooks.Open SciezkaPliku 'otwarcie wskazanego pliku

nazwapliku = ActiveWorkbook.Name ' tu pozyskujemy nazwę pliku który zostal wskazany i 'otwartyprzez użytkownika

End Sub

'-------------------------------------------------------------------------------------------------------------------------

Sub SetUNCPath(sPath As String) 'to narzedzie nam zmienia ustawienia systemu, których nie zmieni ChDir :)

Dim lReturn As Long

lReturn = SetCurrentDirectoryA(sPath)

If lReturn = 0 Then MsgBox "Error setting path."

End Sub

Zamiana Litera kolumny na jej numer i Numeru kolumny na jej literę/Change letter column to number and number column to letter

2020-06-03T14:29:00.001+02:00

Poniżej kod vba do zamiany Litery Kolumny na Numer

Sub LiteraNaNumer() 'Change Column Letter To Number
Dim NumerKolumny As Long
Dim LiteraKolumny As String

LiteraKolumny = "P" 'Wprowadź Literę Kolumny / Input Column Letter
NumerKolumny = Range(LiteraKolumny & 1).Column
MsgBox "Kolumna " & LiteraKolumny & " = Kolumna " & NumerKolumny

End Sub

---------------------------------------------------------------------------------------------------
Poniżej kod vba do zamiany Numeru Kolumny na Literę

Sub NumerNaLitere() 'Change Column Number To Letter
Dim NumerKolumny As Long
Dim LiteraKolumny As String

NumerKolumny = 16 'Wprowadź Numer Kolumny / Input Column Number
LiteraKolumny = Split(Cells(1, NumerKolumny).Address, "$")(1)
MsgBox "Kolumna " & NumerKolumny & " = Kolumna " & LiteraKolumny

End Sub

UserForm TextBox automatyczne umieszczenie kursora w textboxie / UserForm automatically put text cursor in text box

2020-04-07T11:49:00.003+02:00

We właściwościach TextBox zmienic wartośc TabIndex na 0

Change TabIndex value to 0 in properties of Your TextBox

Sometimes Is posible to use this:

Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub

Jak znaleźć żródło łącza. Komunikat Ten skoroszyt zawiera łącza do innych żródeł danych

2020-03-27T07:42:00.003+01:00

Czasem zdarza się, że plik excel, który otwieramy zawiera łącza do innego pliku excel, a my nie pamietamy gdzie w naszym skoroszycie znajduje się taki odnośnik.

Żeby znaleźć takie łącza można wykonać nastepujace kroki:

W sekcji Dane Skoroszytu Excel sprawdzamy szczegóły dotyczacze łącza, w sekcji Edytuj Łącza.

Naciskamy CTRL F lub naciskamy Znajdź i Zaznacz w sekcji Narzędzia Główne

W okienku znajdź wpisujemy fragment tekstu z okienka edytowania łacza (wcześniejszy obrazek)

Możemy teraz wybrać znajdź nastepny - wtedy znjadziemy jedno, pierwsze łącze lub Znajdź wszystkie - wtedy znajdziemy wszystkie łącza z fragmentem tekstu który wpisaliśmy w okienku znajdź

Foldery, pliki nie odświeżają się po kopiuj, wytnij, wklej. Pulpit i zawartość folderów, odświeżanie / Folders, files do not refresh after copy, cut, paste. Desktop and folder contents, refresh

2020-02-07T08:43:00.002+01:00

Jeżeli po operacji kopiuj, wytnij, wklej zawartość folderów, pulpitu nie odświeżają się automatycznie to mozna spróbować następującego rozwiazania:

Uruchamiamy Eksplorator plików klikamy Plik => Zmień opcje folderów i wyszukiwania
Otworzy się karta - Opcje folderów tu klikamy zakładkę Widok i naciskamy przycisk Resetuj Foldery.

When after the copy, cut, paste operation, the contents of the folders, the desktop does not refresh automatically, you can try the following solution:

Run the File Explorer File => Change folders and search options
Next on the Folder Options card select bottom Reset Folders

Rozwijalna lista zakladek / akuszy skoroszytu Excel / Drop-down list of Excel workbook sheets VBA

2020-01-22T14:47:00.000+01:00

Jeżeli potrzebna jest lista rozwijalna wszystkich arkuszy, które zawiera skoroszyt to:

- jeżeli skoroszyt zawiera do 16 arkuszy można użyć:

Sub ListaArkuszyNormal() 'zwykła lista
Application.CommandBars("Workbook Tabs").ShowPopup
End Sub

- jeżeli skoroszyt zawiera więcej niż 16 arkuszy to można użyć:

Sub ListaArkuszyBig() 'jeżeli więcej niż 16 arkuszy
If ActiveWorkbook.Sheets.Count <= 16 Then
Application.CommandBars("Workbook Tabs").ShowPopup
Else
Application.CommandBars("Workbook Tabs").Controls(16).Execute
End If
End Sub

Można również ustawić sobie skrót klawiszowy wchodząc w opcje danego makra

Property VBA cells content / WłaściwośćCells VBA - zawartość

2020-01-21T11:24:00.002+01:00

Właściwość Cells to po prostu

Cells(wiersz, kolumna)
Cells(row,column)

Problem z włączeniem Windows Defendera po odinstalowaniu innego programu antywirusowego

2019-11-02T23:27:00.000+01:00

Po odinstalowani programu antywirusowego miałem zablokowanego Windows Defendera.
Przykładowy komunikat brzmiał:
"Ochroną przed wirusami i zagrożeniami zarządza twoja organizacja"
Niektórzy użytkownicy mają nieco inaczej brzmiące komunikaty

U mnie udało się to naprawić poprzec usunięcie wpisu w rejestrze systemu
Należy wejść w nasepujący wpis rejestru:
HKLM\Software\Policies\Microsoft\Windows Defender
Usuwamy wpis - DisableAntiSpyware
Po usunięciu Windows Defender można uruchomić ponownie komputer, a następnie włączyć ochronę.
Można również zrobić to w inny sposób. Uruchomić cmd.exe (wiersz polecenia) jako administrator
i wkleić wpis

REG DELETE "HKLM\SOFTWARE\Policies\Microsoft\Windows Defender" /v DisableAntiSpyware

VBA Excel WorkBooks.Open FileName whith IgnoreReadOnly

2019-06-07T11:27:00.004+02:00

Kiedy plik excel otwiera się w trybie do odczytu a potrzebujemy wprowadzić w nim zamiany i zapisać należy wywołać komendę WorkBooks.Open z dodatkowym parametrem IgnoreReadOnlyRecommended:=True

Przykład:

WorkBooks.Open FileName:="C:\Test.xlsx", IgnoreReadOnlyRecommended:=True

Add OEM Information and Logo System Windows / Dodanie Oem informacji i logo we właściwościach Windows

2018-10-26T11:38:00.001+02:00

1. Click Start,type run and press ENTER, type regedit.exe and press ENTER

Naciśnij Stary, wpisz uruchom naciśnij ENTER, wpisz regedit.exe i naciśnij ENTER (po prostu trzeba wejść w rejestr systemu)

2. Navigate to the following location

Przejdź do wpisu w rejestrze zgodnie z poniższą lokalizacją

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation

If the OEMInformation key is missing, you’ll need to create one manually.

Jeżeli nie ma takiego klucza należy go dodać ręcznie

3. Create string values (REG_SZ) and add matching data, as per the table below:

Możesz utworzyć poniższe wartości w kluczu

Value name	Data	Value type
Logo	*	REG_SZ
Manufacturer		REG_SZ
Model		REG_SZ
SupportHours		REG_SZ
SupportPhone		REG_SZ
SupportURL		REG_SZ

4. Exit Registry Editor.

Opuść rejestr systemu

* The logo should be a BMP file with the dimension of 120×120. Logos larger than 120×120 pixels are scaled to 120×120.

Logo musi być zapisane w formacie BMP (bitmap) w rozmiarze 120 na 120. Większe pliki będą skalowane do rozmiaru 120 na 120.

I'll find this information on

Informacje te znalazłem na blogu zgodnie z zamieszczonym linkiem

https://www.winhelponline.com/blog/add-oem-logo-information-system-information-windows/

Zmiana nazwy użytkownika i nazwy folderu użytkownika w Windows 10

2018-10-17T09:52:00.001+02:00

Aby zmienić nazwę użytkownika w systemie należy wejść do
Panel sterowania\Wszystkie elementy Panelu sterowania\Konta użytkowników -- Zmień nazwę

Aby zmienić nazwe folderu użytkownika trzeba:
1. Wejść w C:\Users, prawym przyciskiem i zmień nazwę
2. Dokonać zmiany w rejestrze systemu w lokalizacji
Komputer\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\
odnaleźć profil dla którego zmieniliśmy folder i zmienić wartość na zgodną ze zmianą

Aplikacja nie widzi dysków sieciowych

2018-06-12T11:14:00.002+02:00

W takiej sytuacji warto spróbować wyłączyć uruchamianie aplikacji jako administrator.
Należy wejść we właściwości skrótu do aplikacji i odznaczyć chackbox 'Uruchom jako administrator'

VBA Makro do wylistowania nazw folderów znajdujących się w danej ścieżce

2016-11-06T08:58:00.001+01:00

Sub lista_folderow()

Dim folder As String
Dim komorka As Range
folder = "C:\" 'tu wstawiamy ścieżkę z której nazwy folderów chcemy zczytać
Set komorka = Range("A1")

sDir = Dir$(folder, vbDirectory)

Do Until LenB(sDir) = 0

If sDir <> "." And sDir <> ".." Then
If (GetAttr(folder & sDir) And vbDirectory) = vbDirectory Then
komorka.Value = sDir
Set komorka = komorka.Offset(1, 0)
End If
End If

sDir = Dir$

Loop

End Sub

Zapytania sql w vba, arkusz jako tabela. Sql query in vba, worksheet as a table

2016-03-22T16:24:00.000+01:00

Często zdarza mi się korzystać z zapytań sql w vba, w niektórych wypadkach taka metoda jest dużo szybsza niż korzystanie z pętli. Przykładowy kod podaję poniżej i wyjaśniam.

Sub vSelect()
Dim cConStr As String
Dim oRst As ADODB.Recordset
Dim oCon As ADODB.Connection

ThisWorkbook.Worksheets("wynik").Cells.ClearContents
ThisWorkbook.Worksheets("wynik").Range("A1").Value = "Pracownik"
ThisWorkbook.Worksheets("wynik").Range("B1").Value = "Miasto"

cConStr = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & _
ThisWorkbook.FullName
Set oCon = New ADODB.Connection
Set oRst = New ADODB.Recordset
oCon.Open cConStr

If oCon.State = adStateOpen Then

oRst.Open "SELECT a.nazwa, b.nazwa FROM [miasta$] b inner join [pracownicy$] a on" & _
"(b.id = a.id_miasto and b.nazwa = 'Warszawa') order by a.id", oCon
ThisWorkbook.Worksheets("wynik").Cells(2, 1).CopyFromRecordset oRst
oRst.Close

oCon.Close

End If
Set oRst = Nothing
Set oCon = Nothing
End Sub

W pliku mamy trzy zakładki: pracownicy, miasta, wynik
Arkusz pracownicy wygląda tak:

id	nazwa	id_miasto
1	Pracownik1	1
2	Pracownik2	2
3	Pracownik3	4
4	Pracownik4	3
5	Pracownik5	2
6	Pracownik6	4
7	Pracownik7	3
8	Pracownik8	1
9	Pracownik9	1
10	Pracownik10	2
11	Pracownik11	3
12	Pracownik12	4
13	Pracownik13	2
14	Pracownik14	1

Arkusz miasta wygląda tak

id	nazwa
1	Warszawa
2	Kraków
3	Wrocław
4	Poznań

Wynikiem procedury będzie w Arkuszu wynik

Pracownik	Miasto
Pracownik1	Warszawa
Pracownik8	Warszawa
Pracownik9	Warszawa
Pracownik14	Warszawa

Czasem żeby zadziałało trzeba dodać referencje w Tools => References
https://msdn.microsoft.com/en-us/library/ms677497%28v=vs.85%29.aspx

Funkcje Excela tłumaczenie Polski-Angielski *** Excel function name translations Polish-English

2016-03-11T12:42:00.000+01:00

WYWOŁAJ = CALL

EUROCONVERT = EUROCONVERT

WEŹDANETABELI = GETPIVOTDATA

REJESTR.KOD = REGISTER.ID

SQL.REQUEST = SQL.REQUEST

ELEMENT.KPI.MODUŁU = CUBEKPIMEMBER

ELEMENT.MODUŁU = CUBEMEMBER

WŁAŚCIWOŚĆ.ELEMENTU.MODUŁU = CUBEMEMBERPROPERTY

USZEREGOWANY.ELEMENT.MODUŁU = CUBERANKEDMEMBER

ZESTAW.MODUŁÓW = CUBESET

LICZNIK.MODUŁÓW.ZESTAWU = CUBESETCOUNT

WARTOŚĆ.MODUŁU = CUBEVALUE

BD.ŚREDNIA = DAVERAGE

BD.ILE.REKORDÓW = DCOUNT

BD.ILE.REKORDÓW.A = DCOUNTA

BD.POLE = DGET

BD.MAX = DMAX

BD.MIN = DMIN

BD.ILOCZYN = DPRODUCT

BD.ODCH.STANDARD = DSTDEV

BD.ODCH.STANDARD.POPUL = DSTDEVP

BD.SUMA = DSUM

BD.WARIANCJA = DVAR

BD.WARIANCJA.POPUL = DVARP

DATA = DATE

DATA.WARTOŚĆ = DATEVALUE

DZIEŃ = DAY

DNI.360 = DAYS360

UPŁDNI = EDATE

EOMONTH = EOMONTH

GODZINA = HOUR

MINUTA = MINUTE

MIESIĄC = MONTH

NETWORKDAYS = NETWORKDAYS

TERAZ = NOW

SEKUNDA = SECOND

CZAS = TIME

CZAS.WARTOŚĆ = TIMEVALUE

DZIŚ = TODAY

DZIEŃ.TYG = WEEKDAY

WEEKNUM = WEEKNUM

WORKDAY = WORKDAY

ROK = YEAR

YEARFRAC = YEARFRAC

BESSELI = BESSELI

BESSELJ = BESSELJ

BESSELK = BESSELK

BESSELY = BESSELY

BIN2DEC = BIN2DEC

BIN2HEX = BIN2HEX

BIN2OCT = BIN2OCT

COMPLEX = COMPLEX

CONVERT = CONVERT

DEC2BIN = DEC2BIN

DEC2HEX = DEC2HEX

DEC2OCT = DEC2OCT

DELTA = DELTA

ERF = ERF

ERFC = ERFC

GESTEP = GESTEP

HEX2BIN = HEX2BIN

HEX2DEC = HEX2DEC

HEX2OCT = HEX2OCT

IMABS = IMABS

IMAGINARY = IMAGINARY

IMARGUMENT = IMARGUMENT

IMCONJUGATE = IMCONJUGATE

IMCOS = IMCOS

IMDIV = IMDIV

IMEXP = IMEXP

IMLN = IMLN

IMLOG10 = IMLOG10

IMLOG2 = IMLOG2

IMPOWER = IMPOWER

IMPRODUCT = IMPRODUCT

IMREAL = IMREAL

IMSIN = IMSIN

IMSQRT = IMSQRT

IMSUB = IMSUB

IMSUM = IMSUM

OCT2BIN = OCT2BIN

OCT2DEC = OCT2DEC

OCT2HEX = OCT2HEX

ACCRINT = ACCRINT

ACCRINTM = ACCRINTM

AMORDEGRC = AMORDEGRC

AMORLINC = AMORLINC

COUPDAYBS = COUPDAYBS

COUPDAYS = COUPDAYS

COUPDAYSNC = COUPDAYSNC

COUPNCD = COUPNCD

COUPNUM = COUPNUM

COUPPCD = COUPPCD

CUMIPMT = CUMIPMT

CUMPRINC = CUMPRINC

DB = DB

DDB = DDB

DISC = DISC

DOLLARDE = DOLLARDE

DOLLARFR = DOLLARFR

DURATION = DURATION

EFFECT = EFFECT

FV = FV

FVSCHEDULE = FVSCHEDULE

INTRATE = INTRATE

IPMT = IPMT

IRR = IRR

ISPMT = ISPMT

MDURATION = MDURATION

MIRR = MIRR

NOMINAL = NOMINAL

NPER = NPER

NPV = NPV

ODDFPRICE = ODDFPRICE

ODDFYIELD = ODDFYIELD

ODDLPRICE = ODDLPRICE

ODDLYIELD = ODDLYIELD

PMT = PMT

PPMT = PPMT

PRICE = PRICE

PRICEDISC = PRICEDISC

PRICEMAT = PRICEMAT

PV = PV

RATE = RATE

RECEIVED = RECEIVED

SLN = SLN

SYD = SYD

TBILLEQ = TBILLEQ

TBILLPRICE = TBILLPRICE

TBILLYIELD = TBILLYIELD

VDB = VDB

XIRR = XIRR

XNPV = XNPV

YIELD = YIELD

YIELDDISC = YIELDDISC

YIELDMAT = YIELDMAT

KOMÓRKA = CELL

NR.BŁĘDU = ERROR.TYPE

INFO = INFO

CZY.PUSTA = ISBLANK

CZY.BŁ = ISERR

CZY.BŁĄD = ISERROR

ISEVEN = ISEVEN

CZY.LOGICZNA = ISLOGICAL

CZY.BRAK = ISNA

CZY.NIE.TEKST = ISNONTEXT

CZY.LICZBA = ISNUMBER

ISODD = ISODD

CZY.ADR = ISREF

CZY.TEKST = ISTEXT

L = N

BRAK = NA

TYP = TYPE

ORAZ = AND

FAŁSZ = FALSE

JEŻELI = IF

JEŻELI.BŁĄD = IFERROR

NIE = NOT

LUB = OR

PRAWDA = TRUE

ADRES = ADDRESS

OBSZARY = AREAS

WYBIERZ = CHOOSE

NR.KOLUMNY = COLUMN

LICZBA.KOLUMN = COLUMNS

WYSZUKAJ.POZIOMO = HLOOKUP

HIPERŁĄCZE = HYPERLINK

INDEKS = INDEX

ADR.POŚR = INDIRECT

WYSZUKAJ = LOOKUP

PODAJ.POZYCJĘ = MATCH

PRZESUNIĘCIE = OFFSET

WIERSZ = ROW

ILE.WIERSZY = ROWS

RTD = RTD

TRANSPONUJ = TRANSPOSE

WYSZUKAJ.PIONOWO = VLOOKUP

MODUŁ.LICZBY = ABS

ACOS = ACOS

ACOSH = ACOSH

ASIN = ASIN

ASINH = ASINH

ATAN = ATAN

ATAN2 = ATAN2

ATANH = ATANH

ZAOKR.W.GÓRĘ = CEILING

KOMBINACJE = COMBIN

COS = COS

COSH = COSH

STOPNIE = DEGREES

ZAOKR.DO.PARZ = EVEN

EXP = EXP

SILNIA = FACT

FACTDOUBLE = FACTDOUBLE

ZAOKR.W.DÓŁ = FLOOR

GCD = GCD

ZAOKR.DO.CAŁK = INT

LCM = LCM

LN = LN

LOG = LOG

LOG10 = LOG10

WYZNACZNIK.MACIERZY = MDETERM

MACIERZ.ODW = MINVERSE

MACIERZ.ILOCZYN = MMULT

MOD = MOD

MROUND = MROUND

MULTINOMIAL = MULTINOMIAL

ZAOKR.DO.NPARZ = ODD

PI = PI

POTĘGA = POWER

ILOCZYN = PRODUCT

QUOTIENT = QUOTIENT

RADIANY = RADIANS

LOS = RAND

RANDBETWEEN = RANDBETWEEN

RZYMSKIE = ROMAN

ZAOKR = ROUND

ZAOKR.DÓŁ = ROUNDDOWN

ZAOKR.GÓRA = ROUNDUP

SERIESSUM = SERIESSUM

ZNAK.LICZBY = SIGN

SIN = SIN

SINH = SINH

PIERWIASTEK = SQRT

SQRTPI = SQRTPI

SUMY.POŚREDNIE = SUBTOTAL

SUMA = SUM

SUMA.JEŻELI = SUMIF

SUMA.WARUNKÓW = SUMIFS

SUMA.ILOCZYNÓW = SUMPRODUCT

SUMA.KWADRATÓW = SUMSQ

SUMA.X2.M.Y2 = SUMX2MY2

SUMA.X2.P.Y2 = SUMX2PY2

SUMA.XMY.2 = SUMXMY2

TAN = TAN

TANH = TANH

LICZBA.CAŁK = TRUNC

ODCH.ŚREDNIE = AVEDEV

ŚREDNIA = AVERAGE

ŚREDNIA.A = AVERAGEA

ŚREDNIA.JEŻELI = AVERAGEIF

ŚREDNIA.WARUNKÓW = AVERAGEIFS

ROZKŁAD.BETA = BETADIST

ROZKŁAD.BETA.ODW = BETAINV

ROZKŁAD.DWUM = BINOMDIST

ROZKŁAD.CHI = CHIDIST

ROZKŁAD.CHI.ODW = CHIINV

TEST.CHI = CHITEST

UFNOŚĆ = CONFIDENCE

WSP.KORELACJI = CORREL

ILE.LICZB = COUNT

ILE.NIEPUSTYCH = COUNTA

LICZ.PUSTE = COUNTBLANK

LICZ.JEŻELI = COUNTIF

LICZ.WARUNKI = COUNTIFS

KOWARIANCJA = COVAR

PRÓG.ROZKŁAD.DWUM = CRITBINOM

ODCH.KWADRATOWE = DEVSQ

ROZKŁAD.EXP = EXPONDIST

ROZKŁAD.F = FDIST

ROZKŁAD.F.ODW = FINV

ROZKŁAD.FISHER = FISHER

ROZKŁAD.FISHER.ODW = FISHERINV

REGLINX = FORECAST

CZĘSTOŚĆ = FREQUENCY

TEST.F = FTEST

ROZKŁAD.GAMMA = GAMMADIST

ROZKŁAD.GAMMA.ODW = GAMMAINV

ROZKŁAD.LIN.GAMMA = GAMMALN

ŚREDNIA.GEOMETRYCZNA = GEOMEAN

REGEXPW = GROWTH

ŚREDNIA.HARMONICZNA = HARMEAN

ROZKŁAD.HIPERGEOM = HYPGEOMDIST

ODCIĘTA = INTERCEPT

KURTOZA = KURT

MAX.K = LARGE

REGLINP = LINEST

REGEXPP = LOGEST

ROZKŁAD.LOG.ODW = LOGINV

ROZKŁAD.LOG = LOGNORMDIST

MAX = MAX

MAX.A = MAXA

MEDIANA = MEDIAN

MIN = MIN

MIN.A = MINA

WYST.NAJCZĘŚCIEJ = MODE

ROZKŁAD.DWUM.PRZEC = NEGBINOMDIST

ROZKŁAD.NORMALNY = NORMDIST

ROZKŁAD.NORMALNY.ODW = NORMINV

ROZKŁAD.NORMALNY.S = NORMSDIST

ROZKŁAD.NORMALNY.S.ODW = NORMSINV

PEARSON = PEARSON

PERCENTYL = PERCENTILE

PROCENT.POZYCJA = PERCENTRANK

PERMUTACJE = PERMUT

ROZKŁAD.POISSON = POISSON

PRAWDPD = PROB

KWARTYL = QUARTILE

POZYCJA = RANK

R.KWADRAT = RSQ

SKOŚNOŚĆ = SKEW

NACHYLENIE = SLOPE

MIN.K = SMALL

NORMALIZUJ = STANDARDIZE

ODCH.STANDARDOWE = STDEV

ODCH.STANDARDOWE.A = STDEVA

ODCH.STANDARD.POPUL = STDEVP

ODCH.STANDARD.POPUL.A = STDEVPA

REGBŁSTD = STEYX

ROZKŁAD.T = TDIST

ROZKŁAD.T.ODW = TINV

REGLINW = TREND

ŚREDNIA.WEWN = TRIMMEAN

TEST.T = TTEST

WARIANCJA = VAR

WARIANCJA.A = VARA

WARIANCJA.POPUL = VARP

WARIANCJA.POPUL.A = VARPA

ROZKŁAD.WEIBULL = WEIBULL

TEST.Z = ZTEST

ASC = ASC

BAHTTEXT = BAHTTEXT

ZNAK = CHAR

OCZYŚĆ = CLEAN

KOD = CODE

ZŁĄCZ.TEKSTY = CONCATENATE

KWOTA = DOLLAR

PORÓWNAJ = EXACT

ZNAJDŹ, ZNAJDŹB = FIND, FINDB

ZAOKR.DO.TEKST = FIXED

JIS = JIS

LEWY, LEWYB = LEFT, LEFTB

DŁ, DŁ.B = LEN, LENB

LITERY.MAŁE = LOWER

FRAGMENT.TEKSTU, FRAGMENT.TEKSTU.B = MID, MIDB

PHONETIC = PHONETIC

Z.WIELKIEJ.LITERY = PROPER

ZASTĄP, ZASTĄP.B = REPLACE, REPLACEB

POWT = REPT

PRAWY, PRAWYB = RIGHT, RIGHTB

SZUKAJ.TEKST, SZUKAJ.TEKST.B = SEARCH, SEARCHB

PODSTAW = SUBSTITUTE

T = T

TEKST = TEXT

USUŃ.ZBĘDNE.ODSTĘPY = TRIM

LITERY.WIELKIE = UPPER

WARTOŚĆ = VALUE

Różnica między datami. Ile dni, miesięcy, lat minęło.The difference between dates, days, months, years.

2016-01-01T19:27:00.000+01:00

Policzenie ile dni, miesięcy czy lat minęło ułatwia ukryta funkcja Excela =DATA.RÓŻNICA
DATA.RÓŻNICA(data_początkowa;data_końcowa;jednostka)
Argument jednostka określa rodzaj różnicy między datami. „y” oznacza lata, „m” – miesiące, „d” – dni. Możliwe jest również określenie jednostki jako „ym” – różnica miesięcy (lata ignorowane), „yd” – różnica dni (lata ignorowane) i „md” – różnica dni (lata i miesiące ignorowane). Pamiętajmy, że argument jednostka podajemy zawsze w cudzysłowie.
Przykłady zastosowania widok funkcji:

Widok wyników:

The calculation how many days, months or years have passed enables the hidden function Excel =DATEDIF
DATEDIF(start_date;end_date;unit)

W tym poście skorzystałem z porad w tym linku

Sony Z3 Blokada ekranu - brak możliwości wybrania (wyszarzone opcje) przesunięcia palcem lub brak

2015-12-03T15:50:00.001+01:00

Czasem niestety taki problem się pojawia rozwiązaniem są następujące kroki
1. Wejść w Ustawienia ->Zabezpieczenia -> administratorzy urządzenia
Dezaktywować wszystkie (usunąć wszystkie znaczki z checkbox-ów) i potwierdzić dezaktywację
2. Wejść w Ustawienia ->Zabezpieczenia
Wejść w Wyczyść dane o certyfikatach
Powinno to uaktywnić dotychczas wyszarzone opcje blokady ekranu
Pozdrawiam