Formül başvuruları

[piqueteros]

Merhaba hepninizin bildiği gibi iki tip formül başvuru stili var.

biri A1A2 şeklinde

Diğeri R1C1 ( korrdinat başvurusu şeklinde).

Ben bir kaç makro yazdım ve bu makroların hücre içerisine formülleri yerleştirirken r1c1 formatında yerleştirmesi daha kullanışlı. fakat Excel dosyasında aktif formül başvuru şeklinin A:A formatındfa olmasını istiyorum.

Örneğin

k = Selection.Count + 100
Range("$A$2:$A$" & k).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Sheet2!R2C1:R" & SutunSonu & "C1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Tabi program böyleyken istediğim şeyi sağlamıyor. Aktif başvuru stilini "A:A" ama makroda kullanırken r1C1 olmasını sağlamam için ne yapmam gerek?

 

[Ömer]

Merhaba,

Sorunuzu örnek dosya ekleyerek biraz daha açarmısınız. Örneğin A:A formatından kastınız nedir.

.

 

[Ergün Güler]

Ömer Hocam,
Arkadaş soruyu yarım bırakmış. Ben de şu şekil sorayım;

B1 hücresini aşağıdaki gibi birçok farklı şekilde görüntüleyebiliyoruz. RC stilinde nasıl görüntüleyebiliriz?
mesela Range("=R1C2") gibi birşey demek istedim.

Sub Makro2()
'MsgBox Range("B1")
'MsgBox [B1]
'MsgBox Cells(1, 2)
'MsgBox Cells(1, "B")
'MsgBox Range("=$B$1")

End Sub

 

[Necdet]

Ömer Hocam,

Sub Makro2()
'MsgBox Range("B1")
'MsgBox [B1]
'MsgBox Cells(1, 2)
'MsgBox Cells(1, "B")
'MsgBox Range("=$B$1")
 
End Sub

Bu kadar gösterim yetmiyor mu?

 

[Ömer]

Merhaba,

Kullanım amacı önemli tabi, fakat aşağıdaki yolla kullanırsanız bu ve benzeri yazımlarda istediğinizi yapabilirsiniz.

    Application.ReferenceStyle = xlR1C1
        MsgBox [R1C2]
    Application.ReferenceStyle = xlA1

.

 

[Korhan Ayhan]

Merhaba,

Bir başka alternatif;

Sub TEST()
    Application.ReferenceStyle = xlR1C1
    MsgBox Evaluate("R1C2")
    Application.ReferenceStyle = xlA1
End Sub