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

Příspěvky uživatele

Lze přes ověření dat.
Karta Data ... Ověření dat ... kriterium ... celé číslo (desetiné číslo) .. a nastavit potřebné porovnání

Trochu jsem upravil kod.
Nastav si heslo (zde "a") a pokud nebude vyhovovat šířka tak i s tím (zde 200)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim PASSWORD As String

PASSWORD = "a"
ActiveSheet.Unprotect PASSWORD

Dim Cmt As Range
Dim bigRange As Range
Dim lArea As Long

Set bigRange = Range("H2:H22")

If Not Intersect(Target, bigRange) Is Nothing Then

Set Cmt = Target
With Cmt.Offset(0, -5)
.ClearComments
If Not IsEmpty(Target) Then

.AddComment.Text Text:=Cmt.Value

With .Comment.Shape
.TextFrame.Characters.Font.Bold = False
.TextFrame.AutoSize = True

If .Width > 300 Then
lArea = .Width * .Height
.Width = 200
' An adjustment factor of 1.1 seems to work ok.
.Height = (lArea / 200) * 1.1
End If
End With 'Cmt.Shape
End If
End With 'Cmt.Offset
End If
ActiveSheet.Protect PASSWORD
End Sub

To chce spíš přílohu.

Bez makra,
karta Data...Načíst data...

Vlož do formuláře

Private Sub OptionButton1_Click()
A = 1
End Sub

Tak teď by to mělo být.
Jinak jak píše Al.

Trochu jsem popřesouval prvky nebo dej screen jak to na tom NTB vypadá.

Pokud se naformátují sloupce vlastním formátem hh:mm:ss dd/mm/rrrr před importem tak se to naimportuje tak jak je třeba. Sice je to krok navíc, ale pro začátek třeba postačí.

Do toho tvého eventu vlož tuto

With ActivePresentation

If .Path <> "" And .ReadOnly Then

SetAttr .FullName, vbNormal
'SetAttr .FullName, vbReadOnly
'.Save
'.Saved = True
Kill .FullName

End If
End With

Bohužel kdy toto funguje je pokud prezentaci otevřeš s atributem "jen pro čtení" které musíš nastavit sám

Nepodařilo se mi presentaci uložit / nebo přimět s atributem jen pro čtení.

jmeno = Range("Q1") +1

Lze upravit při zadávání
=ZAOKROUHLIT(NÁHČÍSLO()*0,1;2)
=ROUND(RAND()*0,1;2)

Pokud budou obrázky v sešitě tak lze.

Třeba pomocí fce pro buňku B7
=DOSADIT(B7;" - ";"")

to je přece jasnéj ;

To co poslal Opičák Ti musí jít ve všech modulech (list, modul, thisworkbook) pouze stačí před to vložit ještě Sheets("název") pokud by se to mělo zarovnávat na jiném než aktivním listu.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse