mesela 1 den 100 kadar olan tam sayılar kümesini nasıl ifade ederiz

if (instr(arrayFromOneToHundred, 35)then

   result = true

end if

sayılar diyelim ki şöyle olsun
35,006
35,016
35,206
36,506
36,206
37,106
37,806
38,006
38,106
bunlarda döngüde if komutu içine gelince
35 grubunda bir kez
36 grubunda bir kez
37 grubunda bir kez
38 grubunda bir kez

fonksiyon çalışsın

1 ile 100 arası tüm sayılar tam sayıdır zaten ifadenizde sayıları küsürlü bir işleme tabi tutan bir işlem yok ki
ayrıca önceki konunuzda belirttiğim if int(d)=d doğru çalışıyor kontrol ettim

ayrıca 2. mesajınızda hiç biri tam sayı değil en fazla gelen ilk küsürlü sayı tamsayıya dönüştürülüp farklı diziye eklenir sıradaki gelince eğer aynı tamsayıdan dizide var ise atlanır.

şöyle yapabilirsiniz

dim TamSay as string

Tamsay=",1,2,3,4...…..,100,"

if instr(Tamsay, "," & int(sayınız) & ",")>0 then

fonksiyonu Çağı

replace(Tamsay, "," & int(sayınız) & ",",",")

end if

100 kadar manuel yazacakmıyız