Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Mart 2006 Pazartesi

Coordinate Basis Cell Identification

'Module1

Option Explicit

Sub GöreceliHücreTanımı() '[Coordinate Basis Cell Identification]
On Error GoTo Hata
Sheets("Sayfa1").Select
[B2].Select: Application.Goto "R[0]C[0]" '[B2]
[B2].Select: Application.Goto "R[0]C[-1]" '[A2]
[B2].Select: Application.Goto "R[0]C[1]" '[C2]

[B2].Select: Application.Goto "R[-1]C[0]" '[B1]
[B2].Select: Application.Goto "R[1]C[0]" '[B3]

[B2].Select: Application.Goto "R[-1]C[-1]" '[A1]
[B2].Select: Application.Goto "R[-1]C[1]" '[C1]
[B2].Select: Application.Goto "R[1]C[-1]" '[A3]

[B2].Select: Application.Goto "R[1]C[1]" '[C3]
'Daha önce [B2] seçildiğinden bu durum Sayfa2 de de aynı olacaktır.
Application.Goto "Sayfa2!R[0]C[0]" '[B2]

Application.Goto "Sayfa2!R[0]C[-1]" '[A2]
Application.Goto "Sayfa2!R[0]C[1]" '[C2]
Application.Goto "Sayfa2!R[-1]C[0]" '[B1]

Application.Goto "Sayfa2!R[1]C[0]" '[B3]
Application.Goto "Sayfa2!R[-1]C[-1]" '[A1]

Application.Goto "Sayfa2!R[-1]C[1]" '[C1]
Application.Goto "Sayfa2!R[1]C[-1]" '[A3]
Application.Goto "Sayfa2!R[1]C[1]" '[C3]
Exit Sub
Hata:
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