=MOD(H4;29) un vba karşılığı

[hsayar]

Arkadaşlar bu formulü vba da nasıl kullanırım

..........
  for syc = 1 to sonsat
     [B]  syc_a = mod(syc,29)[/B]   '?????
            cells(x,y).value = syc_a
  next syc
...........

 

[Korhan Ayhan]

Selamlar,

Sn. hsayar,

Bu tür operatörlerin kullanım örnekleri için VBA yardım menüsünden faydalanablirsiniz. Ben aşağıdaki yardıma ulaştım.

For Each rw In Worksheets("Sheet1").Rows
    If rw.[B]Row[/B] Mod 2 = 0 Then
        rw.RowHeight = 4
    End If
Next rw

 

[hsayar]

korhan bey teşekkür ederim hemen deneyeceğim.

Valla bende aşağıdaki gibi kullanıcı tanımlı kod yazdım

Function fMOD(sayi As Integer, bln As Integer)
1    If sayi <= bln Then snc = sayi
2    If sayi > bln Then snc = sayi - bln
3    If snc > bln Then sayi = snc: GoTo 1
4    fMOD = snc
End Function

Sub fTEST()
MsgBox fMOD(291, 29)
End Sub

 

[hsayar]

korhan bey ben sizin verdiğiniz kodları çözemedim.

bana 30 sayısının 29 moda göre sonucu 1 çıkmalıdır... bunu nasıl elde ederim?

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi ...

Sub Ornek()
Msgbox 30 Mod 29
End Sub

 

[Zeki Gürsoy]

Bölünen [B]Mod [/B]Bölen

olarak.

 

[hsayar]

teşekkürler arkadaşlar