Soru vba ilk çalışmam

[yusufemci]

herkese merhaba,

ilk kez basit bir makro çalışması yapmak istiyorum. örnek olarak 2+2 yi toplasın.
bunu nasıl yaparım. yardımcı olabilir misiniz?

 

[YUSUF44]

En basit haliyle:

Sub topla()
'Sonucu A1 hücresine yazdırma
[A1] = 2 + 2

'Sonucu mesaj kutusu olarak gösterme

MsgBox "2+2=" & 2 + 2

End Sub

 

[yusufemci]

En basit haliyle:

Sub topla()
'Sonucu A1 hücresine yazdırma
[A1] = 2 + 2

'Sonucu mesaj kutusu olarak gösterme

MsgBox "2+2=" & 2 + 2

End Sub

teşekkür ederim. çok sağolun. bu bana giriş anlamında baya faydalı oldu. peki hücredeki (a1 ile a2) toplayı nasıl yaparız.

 

[YUSUF44]

Deneyiniz:

Sub topla()

'A1+A2'nin sonucunu A3 hücresine yazdırma
[A3] = [A1] + [A2]

'Sonucu mesaj kutusu olarak gösterme
MsgBox [A1] &"+"&[A2] &"=" & [A1]+[A2]

End Sub

 

[yusufemci]

Sub topla()
'A1+A2'nin sonucunu A3 hücresine yazdırma
[A3] = [A1] + [A2]

'Sonucu mesaj kutusu olarak gösterme

MsgBox [A1] &"+"&[A2] &"=" & [A1]+[A2]

End Sub

Allah razı olsun hocam.

 

[Trilenium]

Devam niteliğinde olsun ;

Range > Aralık demektir

Range ( > Parantezi açarak hangi aralıkta işlemler yapacağımızı belirteceğiz

Range("A1") > yazarak a1 hücresinde işlem yapacağımızı belirteceğiz ve parantezi kapatacağız

Range("A1") .value > Nokta (.) value değer demektir.

Range("A1").value = diyerek A1 hücresinin değerinin ne olacağına karar vermiş oluyoruz.


Şimdi ; A1 hücresine A2 ile A3 te yazan değerleri toplatalım

Sub topla ()

Range("A1").value = Range("A2").value + Range("A3").value

end sub

Bir de bunu bir mesaj kutusu ile gösterelim istersek önce sonucu yazsın sonra bir mesaj ile göstersin

Sub topla ()

Range("A1").value = Range("A2").value + Range("A3").value

Msgbox Range("A1").value

end sub

Kolay gelsin

 

[yusufemci]

Devam niteliğinde olsun ;

Range > Aralık demektir

Range ( > Parantezi açarak hangi aralıkta işlemler yapacağımızı belirteceğiz

Range("A1") > yazarak a1 hücresinde işlem yapacağımızı belirteceğiz ve parantezi kapatacağız

Range("A1") .value > Nokta (.) value değer demektir.

Range("A1").value = diyerek A1 hücresinin değerinin ne olacağına karar vermiş oluyoruz.


Şimdi ; A1 hücresine A2 ile A3 te yazan değerleri toplatalım

Sub topla ()

Range("A1").value = Range("A2").value + Range("A3").value

end sub

Bir de bunu bir mesaj kutusu ile gösterelim istersek önce sonucu yazsın sonra bir mesaj ile göstersin

Sub topla ()

Range("A1").value = Range("A2").value + Range("A3").value

Msgbox Range("A1").value

end sub

Kolay gelsin

hocam Allah razı olsun gerçekten. çok faydalı oldu. baya baya bir şeyleri öğreniyorum. teşekkür ederim.