Visual Basic-jak začít ?

[Guest StibTo]

Sorry, jsem lama, zapomnel jsem ten VBA projekt odheslovat. Heslo je Stella123

Diky clenovi Sloters za upozorneni..

[upravil dne 6/6/12 08:24 od Stibto]

[Guest StibTo]

A pokud by někdo potřeboval tady je pár vychytávek jak upravit vlastnosti/vzhled Excel souboru již při otevírání. Kód je třeba vložit do Microsoft Excel Objects -> ThisWorkbook :

Private Sub Workbook_Open()

\' zapnuti/vypnuti zobrazovani zmen v oknech (prepinani mezi tabs atd) pri behu maker

Application.ScreenUpdating = True

Application.ScreenUpdating = False

\' zapnuti/vypnuti \"error\" hlasek napr. prip repisu jiz existujiciho souboru

Application.DisplayAlerts = True

Application.DisplayAlerts = False

\' prepnuti celeho workbooku na ReadOnly/ReadWrite mod

ThisWorkbook.ChangeFileAccess xlReadOnly

ThisWorkbook.ChangeFileAccess xlReadWrite

\' velikost Excel okna na monitoru

Application.WindowState = xlMaximized

Application.WindowState = xlMinimized

Application.WindowState = xlNormal

\' cela obrazovka ON/OFF

Application.DisplayFullScreen = True

Application.DisplayFullScreen = False

\' zobrazovat/nezobrazovat radek vzorcu

Application.DisplayFormulaBar = True

Application.DisplayFormulaBar = False

\' zobrazovat/nezobrazovat Status Bar

Application.DisplayStatusBar = True

Application.DisplayStatusBar = False

\' zapnuti/vypnuti dotazu na update externich linku (Vlookup apod.)

Application.AskToUpdateLinks = True

Application.AskToUpdateLinks = False

\' zapnuti/vypnuti Nastrojove listy (zobrazit->panely nastroju)

Application.CommandBars(\"Toolbar List\").Enabled = True

Application.CommandBars(\"Toolbar List\").Enabled = False

\' zpristupneni editace barev pozadi

Application.CommandBars(\"Fill Color\").Enabled = True

\' scrool bary vertikalni/horizontalni

ActiveWindow.DisplayHorizontalScrollBar = True

ActiveWindow.DisplayVerticalScrollBar = True

\' zobrazovat/nezobrazovat kody sloupcu/radku (A,B,C .. 1,2,3..)

ActiveWindow.DisplayHeadings = True

\' zobrazovat/nezobrazovat tabs - zalozky

ActiveWindow.DisplayWorkbookTabs = False

\' zobrazit mrizky ano/ne

ActiveWindow.DisplayGridlines = True

\' kalkulace manualni/automaticka/poloautomaticka

Application.Calculation = xlCalculationAutomatic

\' viditelnost Tabs - worksheetu

Sheets(1).Visible = True

Sheets(2).Visible = False

End Sub

[upravil dne 7/6/12 11:31 od Stibto]

[Guest StibTo]

Sloters : tady máš jeden příklad Loop cyklu

\' do jedne bunky vepisu kolikrat se cyklus ma opakovat,s druhou se to pak takto porovnava,az se cisla shoduji,cyklus se stopne

Do Until Range(\"K1\").Value = Range(\"J1\").Value

\'tvorba noveho prazdneho radku

Rows(\"2:2\").Insert Shift:=xlDown

Rows(\"2:2\").Clear

\'vlozeni nekolika formulek aby se pak nemusely pokazde zadavat manualne

Cells(2, 6).Formula = \"= TODAY() - $E2\"

Cells(2, 7).Formula = \"=IF(ISNA(VLOOKUP($A2,FBL5N!B:I,8,0)),\"\"2\"\",VLOOKUP($A2,FBL5N!B:I,8,0))\"

Cells(2, 8).Formula = \"=(IF(AND($G2=1,$F2<FBL5N!$F$1),\"\"not overdue\"\",IF(AND($G2=1,$F2>FBL5N!$F$1),\"\"overdue not paid\"\",\"\"paid\"\")))\"

\' okopirovani formatu z radku ktery byl puvodne radek 2

Rows(\"3:3\").Select

Selection.Copy

Range(\"A2\").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

\' protazeni vzorcu dolu radky 2->2000

Range(\"F2\").Select

Selection.AutoFill Destination:=Range(\"F2:F2000\"), Type:=xlFillDefault

Range(\"F2:F2000\").Select

Range(\"G2\").Select

Selection.AutoFill Destination:=Range(\"G2:G2000\"), Type:=xlFillDefault

Range(\"G2:G2000\").Select

Range(\"H2\").Select

Selection.AutoFill Destination:=Range(\"H2:H2000\"), Type:=xlFillDefault

Range(\"H2:H2000\").Select

\' na konci kazdeho cyklu se zapise zvyseni hodnoty o 1

Worksheets(\"factures\").Range(\"K1\").Value = Worksheets(\"factures\").Range(\"K1\").Value + 1

Loop

[upravil dne 7/6/12 11:29 od Stibto]

[Guest StibTo]

Tak co má sem smysl vůbec něco přidávat ?

[sloters]

Zatím ne,jsem zahlcen.Šéf mi přinesl knihu VBA EXcel výukový kurz od Martina Krále,tak se tím musím prokousat.

Většinu pasáží musím číst dvakrát :-)

Ted na VBA nemám moc čas,ale po dovolené musím pokračovat.

Pár programů jsem už vytvořil,ale je to opravdu běh na dlouhou trať.

[Guest StibTo]

Tak dej sem casem vedet jak pokracujes klidne i priklady nejakych kodu at se muzem vzajemne obohatit budu jen rad

[sloters]

Až pokročím tak určitě.Zatím jsem zkoušel cykly s podmínkou a udělal jsem si jednoduchý prográmek na spotřebu.

[Guest StibTo]

Jestli myslis cykly If .... ElseIf .. Else tak jsem ted zacal pouzivat neco co to cteni kodu vice zprehledni Jmenuje se to Select Case a zapis je nasledujici :

Sub SelectCaseTest()

Dim TestRange As String

TestRange = Sheet1.Cells(1, 1).Value

Select Case TestRange

Case Is = 1

MsgBox \"Case is number1\", vbInformation, \"\" \'Action 1 to happen

Case Is = 2

MsgBox \"Case is number 2\", vbInformation, \"\" \'Action 2 to happen

Case Else

MsgBox \"Case is other number\", vbInformation, \"\" \'Action 3 to happen

End Select

End Sub

[Guest StibTo]

Luxusní stránečka

http://www.techonthenet.com/excel/formulas/index.php

[Guest StibTo]

Tady to vlakno teda moc nezije Ja jsem zatim zase docela dost pokrocil, hodne jsem si zacal hrat s formulari (UserForm), obecne interakce Makro->Uzivatel a naopak a nejcerstvejsi vychytavkou kterou jsem si sehnal na netu a poupravil je makro ktere samo ulozi a zavre soubor po (napr.) 15 minutach necinnosti uzivatele

Tak kdyby nekdo chtel muzu zase dodat skriptiky

[Guest StibTo]

No sice si tady vetsinu casu pisu sam se sebou ale stejne ....

Tady jsem uploadoval peknou varku testovacich skriptiku na ruzne veci ve VBA. Snazil jsem se to aspon nekde okomentovat co to ma delat ale obavam se, ze vetsinou komentare chybi. Tak se kdyztak ozvete, kdyby to nekdo chtel pouzit, a nevedel, co s tim

Vetsina veci je stejne z netu tady je to jen dane pohromade

[Guest StibTo]

Tak co sleduje tadyto vubec nekdo ? punkac ?

Koncim v zamestnani = organizuju si sbirecku velmi uzitecnych skriptiku. Kdyby nekdo mel zajem muzu to sem hodit

[Hafity]

Zadal jsem do hledání \"velikost okna\" a vylezlo na mně tohle.... Hm, vidím, že to není to, co hledám....

[Guest StibTo]

To teda ne no