Příspěvky uživatele

Mám na mysli Userform. Je možné uložit vlastnosti jednotlivých prvků formuláře a po otevření je opět přiřadit. Technicky to není problém, ale při rozsáhlejším formuláři je to poměrně pracné. Chtěl jsem se zeptat jestli to nelze provést jednodušším způsobem.

Dobrý den,

lze uložit stav formuláře tak, bych ho měl při příštím otevření excelu ve stavu jako při posledním uložení?

To vypadá nadějně, vyzkouším

Díky, ale to není ono. Nepotřebuji zpomalit program, ale aby 1 x za sekundu provedl určité činosti.

Tak jsem zkusil nahrát stejné makro v excelu a v Ooo, výsledek můžeš vidět

Sub Macro1()
'
' Macro1 Macro
'

'
Range("B1").Select
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
Selection.Copy
Range("D4").Select
ActiveSheet.Paste
End Sub

sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$B$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "1"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$B$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$D$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

end sub

Dobrý den,

používám proceduru OnTime následujícím způsobem. uvedený kód nastartuje nekonečný cyklus,který provádí určité činnosti. To funguje výborně, akorát se to občas z nepochopitelných důvodů zastaví. Mám podezření, že operační systém provádí nějaké mnohem důležitější činnosti a moji OnTime proceduru vypustí.

Nevíte někdo co s tím

používám win XP a Office 2007 en

Sub Button1_Click()
Application.OnTime Now() + TimeValue("00:00:01"), "casovani"
End Sub

Sub casovani()
Application.OnTime Now() + TimeValue("00:00:01"), "casovani"
End Sub

Existuje Oxygen office a Open office nowel edition, které mají podporu excel VBA, ale funguje to zatím dost bídně.

=DNES

nevloží datum do buňky, ale funkci, která zobrazuje aktuální datum a čas. Při otevření bude ukazovat aktuální datum, nikoliv datum posledního uložení.

navrhuji následující

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("List1").Range("A1")
.Value = Now()
.NumberFormat = "d/m/yy"
End With
End Sub

Díky perfektní

Dobrý den,

V excelu lze nastavit ve formátu buňky, přizpůsobit obsahu a zalomit text.

To perfektně funguje, pokud do buňky zapisujeme. Je-li obsahem bunky výsledek funkce, toto nefunguje.

Ví někdo, co s tím

Jasně, že jsem to zkoušel, nakonec jsem vygooglil tohle a to pomohlo.

Sub Enable_All_Right_Click_Menus()
'This will enable all BuiltIn Command bars
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next
End Sub

Pomóc přestalo fungovat pravétlačítko myši pouze v excelu.

Díky perfekt

Dobrý den,

potřeboval bych chránit textbox proti zápisu.
Když dám TExtbox1.Enabled=False nedá se sice to textboxu zapisovat, ale nejde se v něm pohybovat. když rozsah textu přeteče viditelnou oblast.

Dík za odpověď,

sice jsem to nerozchodil, ale inspirovalo mě to, dopadlo to takhle a funguje to

Sub append_file(text As String)
Dim A(1001) As String
Open "D:\Text.txt" For Input As #1
For i = 2 To 1001
Input #1, A(i)
If EOF(1) Then
A(i + 1) = "HGFN*/))(*&^%"
Exit For
End If
Next i
Close #1
Open "D:\Text.txt" For Output As #1
A(1) = text
For i = 1 To 1001
If A(i) = "HGFN*/))(*&^%" Then Exit For
Print #1, A(i)
Next i
Close #1
End Sub

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje