Ardışık Devam Eden Sayılarda Eksiği Bulma isimli içerikte, bir sayı kümesinde yer almayan sayısal değerlerin kolayca bulunması ele alınmaktadır.
Ardışık sayılarımız, görsel olarak kolay görünmesi için yan yana yazdırılmıştır. Toplam 10 ayrı yöntem ile ardışık sayılar içinde olmayan sayıların nasıl bulunabileceğini öğrenebilirsiniz.
Meraklılarına ve ihtiyacı olanlara fayda sağlaması temennisiyle.
Ardışık sayılarımız, görsel olarak kolay görünmesi için yan yana yazdırılmıştır. Toplam 10 ayrı yöntem ile ardışık sayılar içinde olmayan sayıların nasıl bulunabileceğini öğrenebilirsiniz.
Meraklılarına ve ihtiyacı olanlara fayda sağlaması temennisiyle.
Kod:
=FİLTRE(SIRALI(100);EĞERSAY(Sayfa1!$B$3:$J$13;SIRALI(100))=0)
Kod:
=SÜTUNA(SIRALI(100)/(EĞERSAY(Sayfa1!$B$3:$J$13;SIRALI(100))=0);3)
Kod:
=BENZERSİZ(DÜŞEYYIĞ(SIRALI(100);SAYIYAÇEVİR(SÜTUNA(Sayfa1!$B$3:$J$13;3)));0;1)
Kod:
=EĞERHATA(KÜÇÜK(EĞER(EĞERSAY($B$3:$J$13; SATIR($1:$100))=0; SATIR($1:$100); ""); SATIRSAY(O3:$O$3));"")
Kod:
=FİLTRE(SIRALI(100);EYOKSA(KAÇINCI(SIRALI(100);SAYIYAÇEVİR(SÜTUNA(B3:J13));)))
Kod:
=SÜTUNA(EĞER(EYOKSA(KAÇINCI(SIRALI(100);SAYIYAÇEVİR(SÜTUNA(B3:J13));));SIRALI(100);1/0);3)
Kod:
import numpy as np
liste = [i for i in range(1,101)]
dz=np.array([xl("B3:J13")])
olmayan=[]
for n in liste:
if n not in dz:
olmayan.append(n)
olmayan
Kod:
=LET(a;İŞGÜNÜ.ULUSL(0;SATIR(1:100);"0000000";B3:J13);FİLTRE(a;a<101))
Kod:
=EĞER(İŞGÜNÜ.ULUSL(0;SATIR(1:1);"0000000";$B$3:$J$13)<=100;İŞGÜNÜ.ULUSL(0;SATIR(1:1);"0000000";$B$3:$J$13);"")
Kod:
Sub EksikBul_hy()
t1 = Timer
Dim Syf As Worksheet
Set Syf = ThisWorkbook.Worksheets("Sayfa1")
Set r = Range("B3:J13")
dz = r.Value2
Dim xMin As Long: xMin = Application.WorksheetFunction.Min(r)
Dim xMax As Long: xMax = Application.WorksheetFunction.Max(r)
Dim dzSq As Variant
ReDim dzSq(1 To xMax - xMin + 1, 0)
y = 0
For x = xMin To xMax
For Each itm In dz
If itm = x Then GoTo 10
Next itm
y = y + 1
dzSq(y, 0) = x
10
Next x
If y > 0 Then Syf.Range("AD3").Resize(y, 1) = dzSq
T2 = Timer
Debug.Print "EksikBul_hy", T2 - t1
End Sub