• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

No aby to bolo presne podľa zadania, tak by som to trochu upravil

Public Sub radky2()
Application.ScreenUpdating = False 'zakázat vykreslování v průběhu makra - zvýší rychlost
Dim radek As Single
radek = 1
Do While Cells(radek, 1) <> "" 'maximum řádků na listu, ale lze nastavit vlastní a nižší šíslo - makro pak bude rychlejší protože bude ověřovat jen třeba 2000 řádků
Rows(radek+1).EntireRow.Insert ' Cells(radek + 1, 1).EntireRow.Insert
radek = radek + 2
Loop
Application.ScreenUpdating = True 'povolit vykreslování
End Sub

=CHOOSE(MOD(B$86+CHOOSE(LEFT($A88;1);6;0;2;4);8)+1;"D";"D";"N";"N";"";"";"";"")

Teraz neviem či ide to overovanie aj z iných listov v starších verziách.
Skús tie oblasti pomenovať a odkazovať sa na názov.

A nie je to iba tá oklieštená verzia? Bez makier a aj bez iných funkcií? Karta "UDAJE"?

http://www.hpobchod.sk/document.asp?dc=office10

http://office.microsoft.com/sk-sk/starter-help/dostupne-funkcie-v-programe-excel-starter-HA010374501.aspx?CTT=5&origin=HA010380218

Treba si zakúpiť plnohodnotnú verziu. Napríklad pre študentov a domácnosti.

Aký je to systém.
Aká verzia excelu?

takto?

=MID(A1;1;LEN(A1)-4)&"/"&LEFT(RIGHT(A1;2);1)

Neviem prečo to takto funguje, ale funguje.
Overenie údajov.

Ale ide to tam skopírovať. Potom už pomôže iba makro.

Veď tabulka má 1048576 riadkov (excel 2010)

Alebo môžeš použiť funkciu SUBTOTAL

Vyfiltruj si potrebnú položku a spočíta ti iba zobrazené.

Nemusíš to takto robiť
stačí do bunky H10 dať vzorec.
=SUMIF(A:A;F10;C:C)
A spočíta ti to.
Samozrejme Jeza.m to chcel vylepšiť, aby bol lepší prehľad. Ale funguje to aj s tými duplicitami.

Ak kopíruješ iba jeden stlpec (A), tak asi takto.

Sub hyperlink()
Application.ScreenUpdating = False
'kód
Application.ScreenUpdating = true
End Sub

Alebo skús toto
Sub hyperlink()
a = 61
r = 4
Set ws1 = Worksheets("objednávky")
Set ws2 = Worksheets("objednávky s materiálem")

' tady to muséme přepnout na druhý list, aby se vložil odkaz, jináč mi to zatím nejde :)
ws2.Activate

Do While ws1.Cells(r, 2) <> ""
Do While ws2.Cells(a, 10) <> ""
If ws1.Cells(r, 2) = ws2.Cells(a, 1) Then
ws1.Hyperlinks.Add Anchor:=Cells(r, 22), Address:="", SubAddress:= _
"'objednávky s materiálem'!B" & a, TextToDisplay:=ws1.Cells(r, 2).Text

ws2.Hyperlinks.Add Anchor:=Cells(a, 2), Address:="", SubAddress:="'objednávky'!V" & r, TextToDisplay:=ws1.Cells(r, 2).Text

Exit Do
End If
a = a + 1
Loop
a = 61
r = r + 1
Loop
' a zase zpět na původní list
ws1.Activate
End Sub

A ako by si to riešil matematicky?
Daj postup a v exceli ti to podľa toho urobím.

V nápovede som našiel toto:

Zmena oddeľovača vo všetkých textových súboroch .csv
1.V systéme Microsoft Windows kliknite na tlačidlo Štart a potom kliknite na položku Ovládací panel.
2.Otvorte dialógové okno na zmenu miestnych a jazykových nastavení.
3.Do poľa Oddeľovač zoznamu zadajte nový oddeľovač.
4.Kliknite dvakrát na tlačidlo OK.
Poznámka Po zmene znaku oddeľovača zoznamu pre daný počítač budú všetky programy používať nový znak ako oddeľovač zoznamu. Nastavenie znaku môžete rovnakým postupom vrátiť na predvolený znak.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje