Příspěvky uživatele

V editoru maker kliknout pravým tlačítkem někde na ploše Controls v okně Toolbox (to kde vybíráš TextBox, nebo tlačítko apod.), vybrat Additional Controls..., v novém okně nalistovat Microsoft Date and Time Picker Control, zaškrtnout a OK. V toolboxu ti pak mezi ovládacíma prvkama (na konci) přibude nový s názvem DTPicker, což je on.

M@

Ahoj,

ne že by to nešlo, ale asi bych se s tím netrápil :-) - ono by to bylo i dost nepřehledné mít combobox s 365 datumy a hledat v tom ten správný.
Na tohle existují 2 ovládací prvky:
1) Microsoft Date and Time Picker
2) Ovládací prvek Kalendář

Sám preferuju ten první viz. příloha.

Jinak pokud tam chceš mít aktuální datum tak při načtení formuláře zadáš vybranému prvku value = date.

S pozdravem
M@

Ahoj,

třeba takto:
Rows(radek).Delete

jinak je to v příloze.
S pozdravem
M@

Ahoj,
v čem je problém? :-)
řekl bych, že jde jen o nastavení formátu buňky viz. příloha - teda předpokládám, že dostáváš výsledek co tam mám ve sloupci C a chceš výsledek co je ve sloupci B.

Snad tato ukázka pomůže. Ono taky pak záleží jestli jde jen o zobrazení, nebo jestli s tím dál chceš počítat.

S pozdravem
M@

V příloze jsou dva návrhy.
1) nutno mít pojmenované oblasti Vstup a Vystup
2) asi rozumnější řešení za použití vlastní funkce

M@

Ahoj,

při drobné úpravě makra, které jsem dělal pro tento článek: http://wall.cz/index.php?m=topic&id=772 by se dalo aplikovat i zde. Akorát místo vybrané oblasti (selection) je nutno zadat konkrétní vstupní oblast, upravit si výstupní oblast a místo aktivace tlačítkem ten kód vložit do třeba Worksheet_Change, což by mohlo dělat neplechu pokud výsledek budem zapisovat na ten samý list - nutno zkusit.

M@

Ahoj,

ty intervaly tak jako tak musí být někde definovány, tak asi stačí funkce svyhledat - 2 příklady v příloze.

M@

Rádo se stalo :-)

Jinak jen tak cvičně přidávám kód který vypíše seznam panelů v excelu a informace o jejich stavu:

Public Sub nabidky()
Range("A1:E1") = Split("index,Název Excel,Místní název,Přístupný,Zobrazený", ",")
For i = 1 To Application.CommandBars.Count
Cells(i + 1, 1) = i
Cells(i + 1, 2) = Application.CommandBars(i).Name
Cells(i + 1, 3) = Application.CommandBars(i).NameLocal
Cells(i + 1, 4) = Application.CommandBars(i).Enabled
Cells(i + 1, 5) = Application.CommandBars(i).Visible
Next
Columns("A:E").AutoFit
Range("A1:E1").Interior.Color = vbYellow
Range("A1:E1").AutoFilter
End Sub
Třeba se může hodit :-)
M@

Zkuste přiložený soubor.
Jinak excel si pamatuje poslední nastavení, takže pokud ten panel zobrazíte, tak tam zůstane dokud ho neschováte, což asi nechcete :-).

Samotnýho mě zajímá jestli to pomůže.

M@

Zkusil bych to makrem:
Public Sub pokus()
Application.CommandBars("Drawing").Visible = True
Application.CommandBars("Drawing").Enabled = True
End Sub
M@

Tady ještě nějaké tipy z netu:
kostrbalý překlad od microsoftu (mohl by pomoci link v sekci Řešení)
http://support.microsoft.com/kb/247979
nebo komplet v AJ:
http://forums.techarena.in/server-scripting/402157.htm
M@

No ruku do ohně bych za to nedal, ale tento příkaz asi bude vyžadovat jistou systémovou knihovnu, kdy třeba já pro načítání z texťáku využívám "Microsoft Scripting Runtime", což se skrývá v System32\scrrun.dll a řekl bych že i tvůj příkaz ji bude využívat, tak ji zkus na tom daném pc najít a třeba ji přeplácnout kopií z jiného pc, ale ručit za to že to pomůže nemůžu.

Ahoj,
sám jsem nezkoušel, jen jsem googlil :-))
http://itknowledgeexchange.techtarget.com/vbscript-systems-administrator/using-the-windows-file-dialog-box-in-vbscript-to-provide-file-selections-and-populate-script-options/
M@

No jo, koukám, že to bere třeba i deset zpětných lomítek za sebou :-), tak nezbývá než to zkontrolovat :-)
Dim cesta As String
cesta = "C:\\Bowling.php"
If Dir(cesta) = "" Or InStr(1, cesta, "\\", vbTextCompare) <> 0 Then
MsgBox "NE"
Else
MsgBox "JO"
End If

To načítání bych řešil počtem znaků a odstraněním mezer - příklad v příloze.
Jinak kód tady:
Dim fso As New FileSystemObject
Dim fso2 As New FileSystemObject
Dim fil As File
Dim fil2 As File
Dim ts As TextStream
Dim ts2 As TextStream
Dim text As String
Dim sl3 As String
Dim sl4 As String

radek = 1

Set fil = fso.GetFile(ThisWorkbook.Path & "\soubor.txt")
Set fil2 = fso2.GetFile(ThisWorkbook.Path & "\soubor2.txt")
Set ts = fil.OpenAsTextStream(ForReading)
Set ts2 = fil2.OpenAsTextStream(ForWriting)

For i = 1 To 4
ts.SkipLine
Next

Do While ts.AtEndOfStream = False
text = ts.ReadLine
sl3 = Replace(Mid(text, 17, 10), " ", "")
sl4 = Replace(Mid(text, 27, 10), " ", "")
If sl3 <> "" Or sl4 <> "" Then
ts2.WriteLine sl3 & "," & sl4
End If
Loop

ts.Close
ts2.Close

S pozdravem
M@

Záleží co za hodnoty by na ose x měly být, jedná se o čas, pořadové číslo, nebo něco jiného? Asi by neškodil malý vzorek :-)

M@

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje