Attribute VB_Name = "Module1" Public Sub IkkunanJakoPaalle() ActiveWindow.Split = True End Sub Public Sub IkkunanJakoPois() ActiveWindow.Split = False End Sub Public Sub IkkunanJako3Sar3Riv() Range("A1").Select ActiveWindow.SplitColumn = 3 ActiveWindow.SplitRow = 3 IkkunanJakoPaalle End Sub Public Sub IkkunanJako6Riville() 'Aliohjelma IkkunanJako6Riville jakaa ikkunan kahteen osaan. 'Ylemmässä ikkunassa on näkyvillä rivit 1-6, 'ja alemmassa ikkunassa rivit seitsemästä eteenpäin. Range("A1").Select ActiveWindow.SplitRow = 6 IkkunanJakoPaalle End Sub Public Sub IkkunanJako3Sarakkeelle() 'Aliohjelma IkkunanJako3Sarakkeelle asettaa vasemmanpuoleiseen ikkunaan sarakkeet A-C 'ja oikeanpuoleiseen ikkunaan sarakkeet D-sarakkeesta alkaen. Range("A1").Select ActiveWindow.SplitColumn = 3 IkkunanJakoPaalle End Sub Sub RangeDemo() Dim SoluAlue As String Dim Lev As Double Dim Kor As Double SoluAlue = "A1:D7" Lev = Range(SoluAlue).Width Kor = Range(SoluAlue).Height MsgBox "Leveys = " & Lev & Chr(10) & "Korkeus= " & Kor End Sub Public Sub PystyJako() ActiveWindow.SplitHorizontal = 140 End Sub Public Sub VaakaJako() ActiveWindow.SplitVertical = 140 End Sub Public Sub PystyJako2() ActiveWindow.SplitHorizontal = Range("A1:D1").Width End Sub Public Sub VaakaJako2() ActiveWindow.SplitVertical = Range("A1:A5").Height End Sub Sub SiirtoDemo() Range("A1").Select ActiveWindow.SplitColumn = 3 ActiveWindow.SplitRow = 3 IkkunanJakoPaalle ActiveWindow.SplitColumn = 5 ActiveWindow.SplitRow = 5 End Sub Public Sub NaytaJakopaikka() MsgBox ActiveWindow.SplitColumn & ", " & ActiveWindow.SplitRow End Sub Public Sub NaytaIkkunaMaara() MsgBox ActiveWindow.Panes.Count End Sub Public Sub SiirryIkkunaan(ByVal IkkunaNo As Long) If ActiveWindow.Panes.Count >= IkkunaNo Then ActiveWindow.Panes(IkkunaNo).Activate End If End Sub Public Sub SiirtyminenAlkuun() SiirryIkkunaan (1) End Sub Public Sub OtsikotJaihin() Range("A1").Select ActiveWindow.SplitRow = 3 ActiveWindow.FreezePanes = True End Sub