25 satır ve 10 sütunluk bir excel tablosu oluşturmak

[mehmet006a]

Arkadaşlar lütfen yardım delirecez tüm sınıf olarak.
25 satır ve 10 sütunluk bir excel tablosu oluşturmak istiyor
1-2-3-4-5-...
11-12-13-14-..
..
..
240-241...

Bir arkadaş lütfen yardımcı olabilirmi.

 

[ExcelF1]

Deneyin

Sub dene()
For a = 1 To 25
For b = 1 To 10
c = c + 1
Cells(a, b) = c
Next b
Next a
End Sub

 

[mehmet006a]

Hocam teşekkür ederim oldu. Kenarlıkları nasıl sildirebilirim eklemiştim ama sildiremiyorum

 

[ExcelF1]

Sorunuz eksik. İstediğiniz şeyi daha net ifade etmelisiniz.

Örneğin; kenarlık eklemişsiniz ama hangi hücre veya aralıkta, hangi kenarlığı sildirmek istiyorsunuz, hücrenin sağ tarafı mı, sol tarafı mı, üst tarafı mı gibi...

Foruma yönelteceğiniz sorularda genelde örnek bir dosya ekleyiniz ve sorularınızı o dosya üzerinden sorunuz.

Aşağıdaki kod, o sayfada var olan tüm kenarlıkları siler.

    Sub Makro1()
    Cells.Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A1").Select
End Sub

Not = Üstte verilen kod, "Makro Kaydet" yöntemi ile elde edilmiştir.

 

[mehmet006a]

Teşekkür ederim sorunum çözüldü.
Bir sorum daha olacaktı. ekranda 3 tane top var.ben bu topları sırasıyla oynatmak istiyorum. ama oynatamıyorum mesela şöyle biri 4 sütun aşşağıya gitsin gelsin. Gelince direği sağa gitsin gelsin. onun gibi. Lütfen bu konudada yardımcı olurmusunuz?

 

[ExcelF1]

Ekli örneği inceleyiniz.

Ekstradan, fikir vermesi için daha önceleri yapmış olduğum başka bir uygulamayı da buraya ekliyorum. Yalnız bu uygulama 2007 versiyonunda yersiz zıplamalar yapıyor. 2003 versiyonunda problemsiz çalışmakta Yine de fikir vermesi için inceleyebilirsiniz.

 

[mehmet006a]

Teşekkür ediyorum.Size kendimi borçlu hissettim birden )

 

[ExcelF1]

Estağfirullah. Yardımcı olabildiysem ne mutlu. Kolay gelsin...

 

[mehmet006a]

//aşşağıya doğru
Sub animation()
Dim a As Shape
If ActiveSheet.Shapes.Count > 0 Then
For Each a In ActiveSheet.Shapes
a.Left = 1.75
a.Top = 0.8
Next a

Do While True
For Each a In ActiveSheet.Shapes
For i = 1 To 1000
a.Top = a.Top - 0.22
DoEvents
Next i
For i = 1 To 1000
a.Top = a.Top + 0.22
DoEvents
Next i
Next a
Loop
End If
End Sub


//Çapraz olan

Sub animation()
Dim a As Shape
If ActiveSheet.Shapes.Count > 0 Then
For Each a In ActiveSheet.Shapes
a.Left = 1.75
a.Top = 0.8
Next a


Do While True
For Each a In ActiveSheet.Shapes
For i = 1 To 1000
a.Left = a.Left - 0.22
a.Top = a.Top - 0.22
DoEvents
Next i
For i = 1 To 1000
a.Left = a.Left + 0.22
a.Top = a.Top + 0.22
DoEvents
Next i
Next a
Loop
End If
End Sub


//Yana olan

Sub animation()
Dim a As Shape
If ActiveSheet.Shapes.Count > 0 Then
For Each a In ActiveSheet.Shapes
a.Left = 1.75
a.Top = 0.8
Next a


Do While True
For Each a In ActiveSheet.Shapes
For i = 1 To 1000
a.Left = a.Left - 0.22
DoEvents
Next i
For i = 1 To 1000
a.Left = a.Left + 0.22
DoEvents
Next i
Next a
Loop
End If
End Sub

ben bu kodları yazdım ama tek tek yazınca hepsi çalışıyor. sırasıyla yaptırtamadım

 

[ExcelF1]

Hepsi ayrı bir modül olmuş. Tek tek çalışıp, arka arkaya çalışmaması normaldir. 1.modülden sonra 2.sini tetiklemeniz gerekir. Şöyle ki; 1.modülünüzün ismini animation1 olarak değiştirin. diğerlerini de animation2 ve animation3 olarak değiştirin. 1.modülde son satırdaki End Sub üzerine şu kodu ekleyin. Böylece 1.animasyon tamamlandıktan sonra 2. animasyon çağırılacaktır. 3. sünü kendiniz ayarlarsınız sanırım.

//aşşağıya doğru
Sub animation1()
Dim a As Shape
If ActiveSheet.Shapes.Count > 0 Then
For Each a In ActiveSheet.Shapes
a.Left = 1.75
a.Top = 0.8
Next a

Do While True
For Each a In ActiveSheet.Shapes
For i = 1 To 1000
a.Top = a.Top - 0.22
DoEvents
Next i
For i = 1 To 1000
a.Top = a.Top + 0.22
DoEvents
Next i
Next a
Loop
End If
animation2
End Sub

 

[mehmet006a]

Teşekkür ederim halledebildim sayende.