omrumtolga
Hectopat
Daha fazla
- Meslek
- Bilgisayar Programcısı
Merhaba arkadaşlar sizden excel deki vba hakkında yardım isteyecektim. Kodların bir yerinde bir hata var ve ben uzun süredir uğraşmama rağmen bulamadım. Eğer bulan arkadaş varsa ve söylerse çok sevinirim. Kodları aşağıya yazıcam. Kodları çalıştırdığımızda excel'in A sütununda bulunun 1. satırdan 9. satıra kadar olan sayıların arasından bana en küçük ve en büyük olanları D sütununun 1. ve 2. satırına eklemesi lazım. Hatayı bulan yazarsa sevinirim. Recep abi yine senden bekliyorum cevabı çünkü sen kendini baya geliştirmişsin bu konularda.
Kod:
Sub deneme4()
Dim n As Integer, i As Integer, y As Double
n = 9
ReDim a(n) As Double
For i = 1 To n
a(i - 1) = Cells(i, 1).Value
'MsgBox i & " " & a(i - 1)
Next i
y = ekb(n, a, "ek")
Range("D1").Value = y
y = ekb(n, a, "eb")
Range("D2").Value = y
End Sub
Function ekb(ByVal n As Integer, _
ByRef a() As Double, ByVal sekb As String) As Double
Dim x As Double, i As Integer
MsgBox sekb
If sekb = "ek" Then
x = 999
Else
x = -999
End If
For i = 1 To n
If sekb = "ek" Then
If x < a(i - 1) Then x = a(i - 1)
Else
If x > a(i - 1) Then x = a(i - 1)
End If
Next i
End Function
Son düzenleyen: Moderatör: