VB Kod ile birleşik hücreye değer atama....

[VisuaL.NET]

B2 = A1 + A2 + A3 + A4
Sayfa1.Cells(2, 2).Value = Sayfa1.Cells(1, 1).Value + Sayfa1.Cells(1, 2).Value + Sayfa1.Cells(1, 3).Value + Sayfa1.Cells(1, 4).Value

olmakta fakat Sayfa1'de B2 ve C2 hücreleri birleştirilmiştir. Bu birleştirilmiş hücreye
A1 + A2 + A3 + A4 hücrelerindeki sayısal değerlerin toplamını veren VB kodu nasıl yazabilirim.

Þimdiden teşekkür ederim.

 

[Tarkan VURAL]

BÝRLEÞTÝRÝLMÝÞ HÜCREDE TOPLAM ALMAK

Birleştirilmiş hücrenin ilk birleşen hücre adresini referans gösterirseniz ( örneğin b2 ve c2 birleştirilmiş o halde b2 referans hücre olacak) istediğiniz işlemi yaptırabilirsiniz.

Sub topla1()
Sayfa1.Cells(2, 2).Value = Val(Sayfa1.Cells(1, 1).Value) + Val(Sayfa1.Cells(2, 1).Value) + _
Val(Sayfa1.Cells(3, 1).Value) + Val(Sayfa1.Cells(4, 1).Value)
End Sub

Sub topla2()
Sayfa1.Cells(2, 2).Formula = "=SUM(R[-1]C[-1]:R[2]C[-1])"
End Sub

Sub topla3()
Sayfa1.Cells(2, 2).Formula = "=SUM(A1:A4)"
End Sub

Dipnot;
cells(3,1) = hücre(3.satır,1.sütun) = hücre(C1)

Saygılar;

 

[VisuaL.NET]

Tarkan Bey,

Benim istediğim Birleştirilmiş hücreydi... Bu konuyu çömüş bulunmaktayım.
Birleştirilmiş hücrenin içindeki verileri nasıl silebiliriz....


For a = 7 To 61

Sayfa1.Cells(a, 37).ClearContents
Sayfa1.Cells(a, 31).ClearContents
Sayfa1.Cells(a, 32).ClearContents
Sayfa1.Cells(a, 33).ClearContents
Sayfa1.Cells(a, 42).ClearContents
Sayfa1.Cells(a, 43).ClearContents

Next a


yukarıdaki kod ile 7'den 61 kadar olan TEK hücreleri silmektedir.
Peki Birleştirilmiş hücreyi nasıl silmektedir.

A2 ve A3
B2 ve B3
C2 ve C3

hücreleri birleştirilmiş hücre olsun. Bunları temizlemek için nasıl bir yöntem kullanabiliriz.