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

Příspěvky uživatele

A musíte to tvořit v Excelu? Google formuláře nevyhovují?
(https://www.google.cz/intl/cs/forms/about/)
P.

Například nějak takto.
P.

Př.:
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A1") = 1 Then
Sheets("List2").Visible = False
Else
Sheets("List2").Visible = True
End If

End Sub

Jedna z možností s využitím "Select" a "On Error GoTo".
P.

Př.:
Sub Overeni_existence_TextBoxu()
Dim msg As Byte

On Error GoTo Neexistuje
Sheets(List1.Name).TextBox1.Select
msg = MsgBox("Existuje")
Exit Sub

Neexistuje:
msg = MsgBox("Neexistuje")
End Sub

Podle mě tedy nechceš zamknout sešit, ale chceš zamknout list (listy). To lze přes to tlačítko vedle: "Zamknout list". V nastavení pak můžeš zatržítky navolit, co přesně bude uživateli povoleno. V tvém případě tam navíc zaškrtni: "Použít automatický filtr".
P.

Na kartě Revize klikni na tlačítko "Zamknout sešit".
P.

V jaké verzi Excelu ti to nejde? Zkoušel jsem v 2010, a nemám problém.
P.

Například nějak takto.
P.

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1").RowHeight = Range("A1").Value
Range("A1").ColumnWidth = Range("A1").Value
End Sub

Automaticky (pro přesná čísla) jedině s VBA přes událost listu.
P.

Např. nějak takto.
P.

=NEPŘÍMÝ.ODKAZ("'T" & L1 & ". 2015'!M4";PRAVDA)

Já bych to řešil asi nějak takto, přes událost listu.
P.

Př.:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim posledni_obsazeny_radek As Long
Dim cesta_ke_slozce As String
Dim i As Long

posledni_obsazeny_radek = Sheets(List1.Name).Range("A100000").End(xlUp).Row

For i = 1 To posledni_obsazeny_radek
If Sheets(List1.Name).Range("A" & i).Value <> "" And Sheets(List1.Name).Range("B" & i).Value <> "" Then
cesta_ke_slozce = "C:\" & Sheets(List1.Name).Range("A" & i).Value & " - " & Sheets(List1.Name).Range("B" & i).Value
If Len(Dir(cesta_ke_slozce, vbDirectory)) = 0 Then
MkDir cesta_ke_slozce
End If
End If
Next i

End Sub

Využít můžeš zabudovanou funkci NEPŘÍMÝ.ODKAZ.
P.

Vlož Excelovou přílohu, kdo má čas si to sám vytvářet :-)...
P.

Jedno z omezení ověření dat v Excelu, zdroj Support Office: "Písmo nebo velikost písma položek v seznamu není možné změnit."
P.

Odkaz:
https://support.office.com/cs-cz/article/Pou%C5%BEit%C3%AD-ov%C4%9B%C5%99en%C3%AD-dat-u-bun%C4%9Bk-c743a24a-bc48-41f1-bd92-95b6aeeb73c9

Klasický filtr + pomocný sloupec s KDYŽ.
P.

Nějaká nápověda, třeba do osobní zprávy? ;-)
P.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje