Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  43 44 45 46 47 48 49 50 51   další » ... 84

Ten vzorec jsem moc nezkoumal, jen me na prvni pohled napadlo, ze ve VBA nesmite pouzivat strednik pro oddeleni argumentu, ale carku...

Urcite to vytvorit lze, je to jen otazkou zadani vzorcu...smele do toho 4

takto:Sub kopiruj()
Dim BUNKA As String
Dim Radek As Long
BUNKA = "A1"
Worksheets.Add After:=Worksheets(Worksheets.Count)
For i = 1 To Worksheets.Count - 1
If Len(Worksheets(Worksheets.Count).Cells(1, 1).Value) = 0 Then
Radek = 1
Else
Radek = Worksheets(Worksheets.Count).Cells(65000, 1).End(xlUp).Row + 1
End If
Worksheets(Worksheets.Count).Cells(Radek, 1) = Worksheets(i).Range(BUNKA).Value
Next i
End Sub

slo by to takto.
Jen chci podotknout, ze ve scitanych sloupcich nemate spravna cisla, ktera maji zrejme vyjadrovat pocet odpracovanych hodin za konkretni dny...

Kopirovat nelze - jedine aktualizovat propojeni na zavreny sesit (pomoci vzorcu)

Vyberte prvni bunku se vzorcem (A1) a stisknete CTRL+C, posunte se posuvnikem nize (aby byla videt bunka A3000), stisknete s podrzenou klavesou SHIFT kliknete na bunku A3000 (provede se vyber A1:A3000) a stisknete CTRL+V

kontingencni tabulka...

je to problem urceni horni hranice cyklu (Cells(65000, 1).End(xlUp).Row).
Protoze pokud schovate vsechny radky, nebude horni hranici posledni bunka.
Resenim je dat na konec seznamu do prvniho sloupce nejakou hodnotu (cokoliv, napr. vzorec pro počet zobrazených záznamů). Pak by to melo být v pořádku...
Do sloupce A pod seznam napiště slovo 'Počet' a do slouce C (pod seznam) vložte vzorec =SUBTOTAL(103;C4:C12)

FileSystemObject je objekt, ktery je obsazen v knihovne Scrrun.dll, ktery umoznuje praci s adresari a soubory.
Aby bylo mozne ho ve VBA pouzit, musi se tento object nejprve 'vytvorit' (radek: Set FSO = CreateObject("Scripting.FileSystemObject")).
Potom uz muzete pouzivat veskere jeho vlastnosti a metody (viz napoveda nebo google ).
4

nejak takto:

K rozhodovani rad pouzivam Select case.
pouziva se takto:

Select Case Response
Case vbYES
'kod po stisknuti YES
Case vbNO
Cancel = true
End Select

treba takto:Private Sub CheckBox1_Click()
For i = 4 To 20
If CheckBox1.Value = True Then
If Cells(i, 3).Value = "Drama" Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
Else
Rows(i).Hidden = False
End If
Next i
End Sub

pro radek 10 pouzijte tento vzorec:
=SUMA(($D10:$AA10="x")*(1)*(10))+SUMA(($D10:$AA10="|")*(1)*(5))
(ostatni radky staci zkopirovat vzorec)
pro ukonceni vzorce pouzijte klavesy CTRL+SHIFT+ENTER

Jde o maticovy vzorec, kde je tento zpusob ukonceni nutny...

existenci souboru ve slozce lze overit takto:
Sub File_Exist()
Dim FSO
Dim File As String
Dim Path As String
Dim FullName As String
Path = "C:\Documents and Settings\pokorny9\Plocha\Download\"
File = "obrazek.jpg"
FullName = Path & File
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(FullName) Then
MsgBox File & " NENÍ umístěn v zadane složce", vbInformation, "Soubor nenalezen"
Else
MsgBox File & " je umístěn v zadane složce", vbInformation, "Soubor nalezen"
End If
End Sub

soubor mi nejde otevrit (RAR hlasi, ze je poskozeny).
Kazdopadne. Promennou lze nadeklarovat jako globalni takto:
Public PROMENNA as string (v horni casti modulu).

Jeji naplneni je vsak potreba udelat vzdy znovu (pokud nedojde k predani mezi procedurami)


Strana:  1 ... « předchozí  43 44 45 46 47 48 49 50 51   další » ... 84

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje