Hallo ihr drei , ich hätte auch noch'n Vorschlag
27.09.2003 15:40:01
udo
Hallo ihr drei,
Man kann den Spinnbutton auch folgendermaßen Zweckentfremden, dass er die gleiche Funktion erfüllt, als würde man die Pfeiltasten der Tastatur nutzen.
Das heisst, die Tabelle scrollt so lange man auf den Button klick, hoch , runter , rechts oder links, je nach Anweisung.
Das Zugehörige Makro muss zunächst mal ins worksheet, wo derjenige Spinnbutton verankert ist.
---------------------------------------------------------------------------------------
Option Explicit
Public OldValue
Private Sub SpinButton1_Change() ' hoch & runterscrollen
If SpinButton1.Value < OldValue Then
ActiveWindow.SmallScroll Down:=1
Else
ActiveWindow.SmallScroll up:=1
End If
OldValue = SpinButton1.Value
End Sub
Private Sub SpinButton2_Change() ' rechts & linksscrollen
If SpinButton2.Value < OldValue Then
ActiveWindow.SmallScroll toleft:=1
Else
ActiveWindow.SmallScroll toleft:=-1
End If
OldValue = SpinButton2.Value
End Sub
-------------------------------------------------------------------------------------
Was dann aber noch wichtig ist, damits dann auch funktioniert = Die Eigénschaftswerte der Spinnbuttons müssen noch entspr. eingestellt werden.
- Delay so ca. zwischen 10 und 50 ( 10 schnell scrollen / 50 langsam scrollen )
- Max mal auf 30 000 und Min auf - 30 000 stellen oder umgekehrt
( ändert dann nur die Richtung des Scrollens )
- Scrollt zunächst die Tabelle an die Nullstelle ( Ausgangspunkt ), und stellt an
dieser Stelle den Eigenschaftswert des Spinnb. ( " Value " noch auf Null = 0 ),
dann habt ihr von der position aus die Möglkt. 30 000 Zeilen runter zu scrollen, und
auch wieder 30 000 hoch, ...
Klar , noch was , der Spinnbutton sollte natürlich sich in einem fixierten Bildausschnitt eures Datenblattes befinden, damit er beim draufklicken nicht wegrollt , ...
Dazu eine Spalte mark. / Fenster / Fenster fixieren , usw...
Ist mal ne andere Variante den Spinnbutton zu nutzen, wenn ihr auch so ne
Idee hab , teilt sie mir bitte auch mit, bin auch immer sehr dankbar für dienliche Tipps , ...
Lieben Gruß udo