Příspěvky uživatele

Ještě jednou jsem se podíval do toho makra jenž jsem posílal a ono to tak funguje, jamile máš odpracováno Celkem = 0, tak se daný měsíc nevytiskne, takže pokud si v Únoru vynuluješ odpracované hodiny sloupec B, tak ho to nevytiskne.

Nebo to špatně chápu? :-)

M@

zkus mi to poslat na meil, jinak už nevím :-)

Na modul se úplně vykašli a do userformu vlož 3 procedury:

1) otevření při loadu
Private Sub UserForm_Initialize()
MSComm1.PortOpen = True
End Sub
2) zpracování přijdou-li data
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
MsgBox ("přijata data: " & MSComm1.Input)
End If
End Sub
3] zavření portu s userformem
Private Sub UserForm_Terminate()
MSComm1.PortOpen = False
End Sub

M@

pokud to máš v modulu, tak bych řekl, že tam musíš mít odkaz ještě na ten Userform, např.:
userform1.MSComm1.PortOpen = True
ty 3 řádky nad tím bych úplně vynechal, to nastavíš kliknutím na ten prvek s telefonem pravým tlačítkem a volbou properties.

Jinak modul bych klidně vynechal, spíš bych ten portopen strčil přímo do userformu, do loadu ...

Private Sub UserForm_Initialize()
MSComm1.PortOpen = True
End Sub

a pak ho teda i zavřít
Private Sub UserForm_Terminate()
MSComm1.PortOpen = False
End Sub

M@

Nechci se ptát hloupě :-), ale pro jistotu se zeptám, máš tam nějakou proceduru, která otevře u toho prvku port, třeba při inicializaci toho userformu?

Klidně přihoď příklad.

M@

Trochu jsem googlil :-).
Páni od MS myslí na naše bezpečí a některou z aktualizací nám to zakázali.
Čerpáno z ... http://windowssecrets.com/forums/showthread.php/121174-MScomm-Control-6.0
Jinými slovy v regeditu najít:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{648A5600-2C6E-101B-82B6-000000000014}
a položku Compatibility Flags změnit na 0.

Pak by MSComm měl jít použít.

M@

Já nevím ale v tom co jsem poslal tam byla čísla :-), že by se jiný Excel choval jinak :-), u mě 2003. Viz. obrázek s čísly.
2x kliknout na osu Y, záložka číslo a změnit z procent na číslo.

M@

Sám jsem si to zkusil, viz. obrázek, ale nepochodil :-(, prvek přidat jde, ale ne vložit na userform :-/, zkoušel jsem i jeho zaregistrování, ale ani to nepomohlo, no ale může to být i tím že zkouším na pc bez seriového portu :-).
Starší prográmek přímo ve VB po registarci fugoval a funguje, ale nebyl to excel.

Zkus a uvidíš jestli se u Tebe zachová jinak.

M@

To vypadá, že máš prvek jako součást listu, já předpokládál jeho umístění v Userformu, tudíž nevázáno na list.

M@

A kde je problém?
Teoreticky by tam mohl být formulář s MSComm prvkem, formulář musí být nastartován jako "non modal" UF.show(0), čímž lze dále běžně pracovat. No a prvek samotný má snad jen jedinou možnost a to
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
VSTUP = MSComm1.Input
'Udělej něco (což může klidně být v proceduře VSTUP_CHANGE)
End If
End Sub.
Ale jinak se přiznám že v excelu jsem to nikdy nepoužil, jenom ve VB6.
M@

Zkusil bych to přidáním další neviditelné řady, u které budou pouze popisky.

M@

Jeden takový rychlopokus v příloze.
Public Sub TISK()
Dim l As String
Dim rds As Single

For sex = 1 To 2
If sex = 1 Then l = "Muži"
If sex = 2 Then l = "Ženy"
For rd = 2 To Sheets(l).UsedRange.Rows.Count
If Sheets(l).Cells(rd, 1) = "Měsíc:" Then rds = rd - 1
If Sheets(l).Cells(rd, 1) = "Celkem" Then
If Sheets(l).Cells(rd, 2) > 0 Then
Sheets(l).Range("A" & rds & ":E" & rd + 2).PrintOut
End If
End If
Next rd
Next sex
End Sub
M@

@ AL, ano pomocnými vzorci lze řešit spousta věcí, ale není to moc elegantní a dokonce si troufnu tvrdit, že tvůj popis nebude fungovat, tak jak máš napsáno. Teda fungovat bude jen do chvíle, než se mezi těmi kladnými čísly krom mínusových neobjeví nějaká 0.

No a abych ani já jen tak "nekecal", tak jsem zkusil makro viz. příloha.

M@

ne že by se nehodila tabulka s příkladem co by mělo vyjít, protože tohle bude jedině na makro.

M@

když to nechce vypsat dotaz, tak asi bude něco špatně :-).

Zkus přílohu.
M@

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje