Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 14
Hodnota čísla v bunke (13.11.2014 6:20)

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

Komentář - odkaz na buňku (24.10.2014 7:42)

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

Chyba v kódu (11.9.2014 19:28)

To chce spíš přílohu.

otevření více souborů (11.9.2014 18:04)

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

Propojení Private Sub a Main Sub (11.9.2014 18:02)

Vlož do formuláře

Private Sub OptionButton1_Click()
A = 1
End Sub

CASOMIRA (11.9.2014 17:48)

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

CASOMIRA (11.9.2014 16:22)

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

import csv (2.9.2014 18:24)

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čí.

Zmazat prezentaciu pri zatvoreni (26.8.2014 21:08)

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 8

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

Uložení souboru dle obsahu buňky (12.8.2014 11:42)

jmeno = Range("Q1") +1

nahodny generator cisel (30.7.2014 6:45)

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

Podmíněné vložení (30.7.2014 6:39)

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

úprava čísla v buňce (24.7.2014 10:09)

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

Replace and copy (11.7.2014 20:10)

to je přece jasnéj ;

zarovnání jen některých sloupců (10.7.2014 5:49)

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.


Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 14

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