- Katılım
- 11 Ağustos 2023
- Mesajlar
- 101
- Excel Vers. ve Dili
- Microsoft 365 Tr 64 Bit
- Altın Üyelik Bitiş Tarihi
- 29-11-2024
Değerli form arkadaşlarım bir makro var elimde toparlayamadım, 2 bilgiye göre sonucu getiriyor. Formül fonksiyonunda çalışıyor.
Function VolkanThickness(inch As String, sch As String) As String
Dim boruTablosu As Variant
Dim i As Integer
Dim found As Boolean
' Boru tablosunu dizi olarak tanımla
boruTablosu = Array (_ Array("v", "a","Bir örnek"), _)
' Eşleşmeleri kontrol et
found = False
For i = 0 To UBound(boruTablosu)
If boruTablosu(i)(0) = inch And boruTablosu(i)(1) = sch Then
VolkanThickness = boruTablosu(i)(2) ' Kalınlık değerini döndür
found = True
Exit Function
End If
Next i
' Eğer eşleşme bulunmazsa "Bulunamadı" döndür
If Not found Then
VolkanThickness = "Bulunamadı"
End If
End Function
Döndürülen diziye aşağıda bulunan veriyi eklemek istiyorum.
Function VolkanThickness(inch As String, sch As String) As String
Dim boruTablosu As Variant
Dim i As Integer
Dim found As Boolean
' Boru tablosunu dizi olarak tanımla
boruTablosu = Array (_ Array("v", "a","Bir örnek"), _)
' Eşleşmeleri kontrol et
found = False
For i = 0 To UBound(boruTablosu)
If boruTablosu(i)(0) = inch And boruTablosu(i)(1) = sch Then
VolkanThickness = boruTablosu(i)(2) ' Kalınlık değerini döndür
found = True
Exit Function
End If
Next i
' Eğer eşleşme bulunmazsa "Bulunamadı" döndür
If Not found Then
VolkanThickness = "Bulunamadı"
End If
End Function
Döndürülen diziye aşağıda bulunan veriyi eklemek istiyorum.