Kirjautuminen
Tehtävät
Kilpailu
Alkuerät ovat ohi.
Miten saadaan Excelin taulukkoa skrollattua VB:n avulla, tai siirrettyä näkymä aktiivisen solun kohdalle???
esim: Taul1.komento.param. jne.jne.
Kiitokset etukäteen
T:Pete
Moikka VeePee!
Jutska hoituu vaikkapa näin...
'Moduuliin Public osoite As String
'ThisWorkbook
Private Sub Workbook_Open()
UserForm1.Show(0)
WorkSheets(1).Activate
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'aktivoituva solu
osoite = Target.Address
osoite = Replace(osoite, "$", "")
osoite = osoite & ":" & osoite
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If UserForm1.Visible = False Then
UserForm1.Show(0)
End If
End Sub'Formille Private Sub CommandButton1_Click() '--- 'esim. taulun viimeinen solu 'ActiveSheet.Range(Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count), Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)).Select '--- ActiveSheet.Range(osoite).Show End Sub
Kiitokset, näin myöhässä. kesäkiireet painavat.
T:Pete
Aihe on jo aika vanha, joten et voi enää vastata siihen.