Beiträge von Espyre

Die zweite Variante wäre klasse

Getestet -> feine Sache, man kann super einfach Variablen und Array's an andere Scripte weitergeben.

Frage:
Könnte man die UDF auch zum "SQLite-Manager" erweitern?
Client sendet Anfrage an Server -> Server kommuniziert mit SQLite -> Server gibt Ergebnis an Client zurück
Selbst wenn mehrere User gleichzeitig Anfragen stellen, werden diese in SQLite der Reihe nach bearbeitet.
So zumindest die Theorie

BugFix : Absolut Spitze was du bisher umgesetzt hast.

Ich bin mittlerweile auch vom ISN Studio auf Sublime gewechselt. So lässt es sich viel angenehmer arbeiten

Frage1: Wäre es möglich noch die Funktion Au3Check (Syntax Check), die es im ISN Studio gibt, mit einzubauen?

Frage2: Gibt es die Möglichkeit ein Script mit Startparameter zu testen?

Danke & Gruß
Espyre

Hallo Techmix,

ich kämpfe auch seit ein paar Tagen mit dem selben Problem. Mittlerweile habe ich eine für mich ganz pasable Lösung aus mehreren Beispielen hier im Forum gebastelt. Mein Ziel war es, auf einem Tab die linke Hälfte scrollbar zu machen. Das Mausrad wird ebenfalls mit unterstützt.

[autoit]

#include <array.au3>
#include <WindowsConstants.au3>
#include <GuiTab.au3>
#include <GuiScroll.au3>

[/autoit][autoit][/autoit][autoit]

Dim $idButton[100]
Global $xTab = 10, $yTab = 10
GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUIRegisterMsg($WM_MOUSEWHEEL, "_Mausrad")

[/autoit][autoit][/autoit][autoit]

$hMain = GUICreate('Test', 420, 400)
$cTab = GUICtrlCreateTab($xTab, $yTab, 400, 300)
$hTab = GUICtrlGetHandle($cTab)
$cTabItem1 = GUICtrlCreateTabItem('Item_1')
$cTabItem2 = GUICtrlCreateTabItem('Item_2')
$aTabDisp = _GUICtrlTab_GetDisplayRect($hTab)
$hChild = GUICreate("",170,$aTabDisp[3]-$aTabDisp[1],$aTabDisp[0]+$xTab,$aTabDisp[1]+$yTab,BitOR($WS_POPUP, $WS_GROUP, $WS_VSCROLL, $WS_CLIPSIBLINGS),$WS_EX_MDICHILD,$hMain)
for $i = 0 to 99
$idButton[$i] = GUICtrlCreateButton("Radio " & $i, 5, $i*25, 50, 20)
Next
GUISetState(@SW_SHOW, $hMain)

[/autoit][autoit][/autoit][autoit]

Scrollbar_Create($hChild, $SB_VERT, $i*25)
Scrollbar_Step(20, $hChild, $SB_VERT)

[/autoit][autoit][/autoit][autoit]

While 1
Switch GUIGetMsg()
Case -3
Exit
Case $cTab
If GUICtrlRead($cTab) = 1 Then
GUISetState(@SW_SHOWNA, $hChild)
Else
GUISetState(@SW_HIDE, $hChild)
EndIf
EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit]

Func _Mausrad($hWnd, $Msg, $wParam)
#forceref $Msg, $wParam
If $wParam == "0x00780000" Then _Bild_rauf()
If $wParam == "0xFF880000" Then _Bild_runter()

EndFunc

Func _Bild_runter()
for $i = 0 To 4 Step 1
WM_VSCROLL($hChild, 0x0, 0x00000001, 0) ;1 mal kurz nach oben Scrollen - selber Effekt wie auf den Pfeil klicken
Next
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _Bild_rauf()
for $i = 0 To 4 Step 1
WM_VSCROLL($hChild, 0x0, 0x00000000, 0) ;1 mal kurz nach unten Scrollen - selber Effekt wie auf den Pfeil klicken
Next
EndFunc

[/autoit]

Ich hoffe das hilft dir.

Viele Grüße
Espyre

Hallo zusammen,

ich benötige eure Hilfe bei meinem kleinen Script.
Das Script soll eine vorhandene Excel-Tabelle mit ca. 30.000 Zeilen formatieren (Rahmen setzen, sortieren etc.).

Bei dem Befehl "AutoFill" von VBA komme ich jedoch nicht weiter.
Das Script soll in Zelle B2 und B3 einen SVerweis eintragen und diesen bis zum Ende füllen.

[autoit]

$FormelUebersetzung1 = '=WENNFEHLER(SVERWEIS(A2;Tabelle2!A:B;2;FALSCH);"")'
$FormelUebersetzung2 = '=WENNFEHLER(SVERWEIS(A3;Tabelle2!A:B;2;FALSCH);"")'
$AnzahlZeilen = $oExcel.Worksheets("Tabelle1").Usedrange.Rows.Count
$Range = '"B2:B' & $AnzahlZeilen & '"'

[/autoit][autoit][/autoit][autoit]

With $oExcel.Worksheets("Tabelle1")
.Cells(2,2).Formula = $FormelUebersetzung1
.Cells(3,2).Formula = $FormelUebersetzung2
EndWith

[/autoit][autoit][/autoit][autoit]

$oExcel.Worksheets("Tabelle1").Range("B2:B3").Autofill($Range)

[/autoit][autoit][/autoit][autoit]

; oder

[/autoit][autoit][/autoit][autoit]

With $oExcel.Worksheets("Tabelle1")
.Range("B2:B3").Select
.Selection.AutoFill($Range)
.Range($Range).Select
EndWith

[/autoit]

Die Formeln in B2+B3 werden eintragen, aber bei dem Befehl AutoFill bringt er einen Error (==> The requested action with this object has failed.:)

Der originale Code von Excel VBA:
Range("B2:B3").Select
Selection.AutoFill Destination:=Range("B2:B25741")
Range("B2:B25741").Select

Im voraus vielen Dank für eure Bemühungen.

Gruß
Espyre