çalışma sayfasına makro ile değişken tanımlayabilirmi

[veyselemre]

a1=5 iken b1 e =a1*katsayi
yazarak herhangi bir ad tanımlamadan katsayi değişkenine makro ile değer aktarıp işlem yaptırabilirmiyiz

 

[VisualBasic]

Böyle birşeymi?

Private Sub Worksheet_Change(ByVal Target As Range)
  katsayi = 5
  If [A1] = 5 Then MsgBox [A1] * katsayi
End Sub

 

[Haluk]

Pardon, niye ad tanımlamak istemiyorsunuz ?

 

[veyselemre]

ad tanımlamak istemiyorum çünkü ada çalışma sayfası içinden müdahale edilebilir ayrıca böyle bir şeyin yapılıp yapılamayacağını öğrenmek istiyorum

sayın visualbasic o şekilde işlem yaptırmak için sormuyorum makro ile tanımladığımız katsayıyı çalışma sayfasında istediğim yerlerde formüle etmek için daha doğrusu değişik bir şifreleme işlemi yaptırmak için istiyorum

 

[Haluk]

ad tanımlamak istemiyorum çünkü ada çalışma sayfası içinden müdahale edilebilir ......

Peki .... birazcık konunun dışında gibi görülebilir ama, Ad Kutusu' nu VBA ile pasif hale getirsek, olur mu ?

 

[Levent Menteşoğlu]

katsayi değişkenini kullanıcı tanımlı fonksiyon olarak tanımlayıpta kullanmayı deneyin.

 

[veyselemre]

katsayi değişkenini kullanıcı tanımlı fonksiyon olarak tanımlayıpta kullanmayı deneyin.

olayı çözmek açısından iyi fikir

diğer şekilde mümkün olmayacak herhalde

ilgilenen arkadaşlara teşekkür ederim

 

[Levent Menteşoğlu]

Ã?rneğin aşağıdaki gibi bir fonksiyon tanımlarsanız, katsayı değeri her zaman sabit kalacaktır. Yeni bir katsayı için kod içinde değişiklik yapmanız yeterlidir.

[vb:1:0002b409ad]Function katsayi()
katsayi = 5
End Function[/vb:1:0002b409ad]

 

[Haluk]

.....
diğer şekilde mümkün olmayacak herhalde
....

Diğer şekil ??