Příspěvky uživatele
< návrat zpět
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)
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
Jo. Fčil mi to došlo. Asi to tak určitě bude ;).
Nicméně je to malá škoda, ale přece jen škoda.
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
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
bim.jim napsal/a:
If CommandButton1.Value = Click
Dejte to pryč, to je zbytečnost
Private Sub CommandButton1_Click()
with Rows("2:9")
.Hidden = not .Hidden
end with 'Rows("2:9")
End Sub
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ů.
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
v příloze je soubor xlsx, takže bez maker
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
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á
Nejdříve pořádně pojmenujte vlákno a potom žádejte někoho o pomoc.
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
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
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články