Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Şubat 2008 Pazar

Select WorkSheets Samples


'Module1

Sub Sayfaya_Git()
On Error Resume Next
Sheets("Örnek").Select
End Sub
Sub Sonraki_Sayfaya_Git()
On Error Resume Next
If ActiveSheet.Index = Worksheets.Count Then
Worksheets(1).Select
Else
Worksheets(ActiveSheet.Index + 1).Select
End If
End Sub
Sub Önceki_Sayfaya_Git()
On Error Resume Next
If ActiveSheet.Index = Worksheets.Count Then
Worksheets(-1).Select
Else
Worksheets(ActiveSheet.Index - 1).Select
End If
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul