Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  115 116 117 118 119 120 121 122 123   další » ... 140
Odstranění názvů - které nejsou vidět ve správci (2.9.2013 6:40)

Toto stačí spustit jedenkrát, poté už budou všechny názvy v sešitě viditelné

Klidně můžete vložit řádek
For Each n In ActiveWorkbook.Names:n.Visible = True:Next n
do Immediate Window ve VBE a stisknout Enter (nemusíte tedy vytvářet proceduru v souboru)

Odstranění názvů - které nejsou vidět ve správci (30.8.2013 14:08)

Skryté názvy zobrazíte např. takto

Dim n As Name
For Each n In ActiveWorkbook.Names
n.Visible = True
Next n
Set n = Nothing

Unikátní hodnoty - více podmínek (VBA či vzorec) (29.8.2013 9:56)

Jo. Fčil mi to došlo. Asi to tak určitě bude ;).
Nicméně je to malá škoda, ale přece jen škoda.

Skrytí řádků pomocí Tlačítka ne Checkboxu.. (29.8.2013 9:51)

bim.jim napsal/a:

Děkuji za odpověď, myslel jsem pouze název toho tlačítka - který tam zůstane pořád.. Např. Motorizace (kdyz jsem to chtel prepsat v Poli názvů tak to nefungovalo.. )


Název tlačítka se mění ve vlastnostech tlačítka (to je to okno co se vybere v editoru po stisku F4.
Je to vlastnost Name a poku ji změníte, nebude fungovat makro CommandButton1_Click. Musel byste ho přejmenovat na NovyNazev_Click

Skrytí řádků pomocí Tlačítka ne Checkboxu.. (29.8.2013 9:43)

bim.jim napsal/a:

Děkuji pánové. ještě příkaz pro změnu názvu tlačítka at tam nemam CommandButton1? už to tady 5min hledam a nenacházím. Díky.


Private Sub CommandButton1_Click()
with Rows("2:9")
.Hidden = not .Hidden
CommandButton1.Caption=IIf(.hidden,"Zobrazit", "Skrýt")
end with 'Rows("2:9")
End Sub

Skrytí řádků pomocí Tlačítka ne Checkboxu.. (29.8.2013 9:19)

bim.jim napsal/a:


If CommandButton1.Value = Click

Dejte to pryč, to je zbytečnost

Skrytí řádků pomocí Tlačítka ne Checkboxu.. (29.8.2013 9:12)

Private Sub CommandButton1_Click()
with Rows("2:9")
.Hidden = not .Hidden
end with 'Rows("2:9")
End Sub

Unikátní hodnoty - více podmínek (VBA či vzorec) (29.8.2013 7:18)

Opičák napsal/a:

Funkce A a NEBO nelze v maticových vzorcích použít přímo, protože tyto funkce vracejí jeden výsledek, buď PRAVDA nebo NEPRAVDA, a maticové funkce vyžadují matice výsledků


Ehmmm.... Toto není tak úplně pravda.
Výrazy
($B$3:$B$14=1), ($C$3:$C$14="OK")
dávají přece taky výsledek PRAVDA nebo NEPRAVDA (1 nebo 0)

Je pravda, že tyto funkce v mat. vzorcích nefungují, ale ten důvod bude jiný. Jaký, to nevím. Podle mně by měly normálně fungovat, protože dávají výsledek 1 nebo 0.

@rombil
Přiložil jsem soubor, který by vám měl pomoci pochopit ten vzorec a v podstatě i logiku maticových vzorců.

podmienka vo VBA (28.8.2013 13:29)

Mno jak bych to

když nechám bez komentáře tu diakritiku v názvu ovládacího prvku (čímž jsem nenechal ;) )

tak upravte následující makro

(asi to nebude úplně správně, protože z toho makra jsem 100% nevyčetl, jak má fungovat, ale nechte se inspirovat)

Sub Hd_spusť_Click()
Dim shNewSheet As Worksheet
On Error Resume Next
Set shNewSheet = ThisWorkbook.Sheets(Koeficient.Text)
On Error GoTo 0

If shNewSheet Is Nothing Then
Sheets("1_polrok").Copy After:=Sheets(2)
Set shNewSheet = ActiveSheet

With shNewSheet
.Name = Koeficient.Text
.Range(Sheets("Sablona").UsedRange.Address).Formula = Sheets("Sablona").UsedRange.Formula
.Range("F3:F76,I3:I76,L3:L76,N3:N76,Q3:Q76,S3:S76,V3:V76,X3:X76,AA3:AA76,AC3:AC76").Replace What:="1_polrok", Replacement:=Koeficient.Text

With .Columns("C:C")
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
End With '.Columns("C:C")

.Range("D3").Select
ActiveWindow.FreezePanes = True

ActiveWindow.Zoom = 70

Beep
If MsgBox(Koeficient.Text & " týždeň" & " bol vytvorený." & vbCrLf & " Chceš vytvoriť další ? ", vbYesNo + 256 + vbInformation, "Hlásim, že ") = vbNo Then
Unload Me
End If
End With 'shNewSheet
Else
MsgBox "List už existuje"
End If
Set shNewSheet = Nothing
End Sub

podmienka vo VBA (28.8.2013 11:44)

v příloze je soubor xlsx, takže bez maker

tisk (27.8.2013 21:15)

Proboha, 140 tlačítek !?!?

Proč si neuděláte jedno makro spouštěné klávesovou zkratkou a na aktivním listě se vám potom přičte 1, pokud ho spustíte na listu se seznamem, tak na všech

Použijte pro to událost
Workbook_BeforePrint

Náhodný výběr podle podmínky (27.8.2013 11:43)

Maticový
=INDEX($B$1:$B$15;POZVYHLEDAT(MIN($C$1:$C$15+($A$1:$A$15<>A19));$C$1:$C$15;0))

Stiskem F9 se přepočítá

Rozkopírování řádků do 7 následujících (26.8.2013 17:41)

Nejdříve pořádně pojmenujte vlákno a potom žádejte někoho o pomoc.

Format code , na . (26.8.2013 16:34)

Palooo napsal/a:

tak to poviem uplne presne robim template pre viac krajin :)) a v niektorych krajinach je zauzivane davat . alebo , tak to tam musi byt nastavene

ale template sa tlacia len u Fera Mrkvicky ale ten nechce to rucne prenastavovavat pre kazdy template apostrof na , alebo .

.... tak som si myslel ze musi existovat nejaky format nato .... ale neexistuje :) excel je stale vo vyvoji :)) hadam sa vyvinie kym neumrem


tak tady v tomto se určitě nevyvine
by to totiž byla úplně zbytečná věc

Format code , na . (26.8.2013 7:12)

Palooo napsal/a:

praveze ja potrebujem v grafoch nastavit cisla tak aby bol vidiet oddelovac raz ako ciarku a v inom dokumente ako bodku

tomuhle nerozumím
nicméně, když budete mít jeden sloupec s čárkou a ve druhém sloupci s tečkou (marjankajův vzorec), taxe jednou odkažte na jeden a podruhé na druhý sloupec

přes formát to nepůjde


Strana:  1 ... « předchozí  115 116 117 118 119 120 121 122 123   další » ... 140

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