Excel Macro İle Girdiğimiz Sayıdan Küçük En Büyük Asal Sayıyı Bulma

Merhabalar,
bu yazımda size Excel VBA ile girdiğimiz input değerinden küçük en büyük asal sayıyı bulan macroyu açıklayacağım.



Sub asal()
Dim say As Integer
git:
'input ile klavyeden sayı alıyoruz
say = InputBox("sayı giriniz")
'girdiğimiz değerin sayı olup olmadığının kontrolünü yapıyoruz
If (IsNumeric(say) = True) Then
'girdiğimiz değerden küçük dediği için öncelikle 1 azaltırız
say = say - 1
' For-Next döngüsü ile sayıyı azalta azalta ilerleriz
For i = say To 1 Step -1
 Dim sonuc As Boolean
    'sayımızı asal sayı kontrolü yapan functionımıza gönderiyoruz ve gelen boolean sonuca göre işlem yapıyoruz
    sonuc = asalmi(say)
 If (sonuc = True) Then
'eğer sayı asalsa msgBox üzerinde sonucu gösteriyoruz ve for-next döngüsünden çıkıyoruz
    MsgBox "girdiğiniz değerden en küçük asal sayı=" & say
    Exit For
     End If
 'sayı asal değilse bir azaltılıp tekrar döngüye girer
     say = say - 1
Next i
Else:
'inputbox a girdiğimiz değer asal değilse tekrar giriş yapması için goto döngüsünü kullanıyoruz
MsgBox "girdiğiniz değer sayı değildir lütfen kontol ediniz", vbInformation
GoTo git
End If

End Sub
' asal sayı kontrolü yapan Function
Function asalmi(sayi As Integer) As Boolean
   
        Dim sayac As Integer
        sayac = 0
        For k = 1 To sayi
          If (sayi Mod k = 0) Then
               sayac = sayac + 1
       End If
       Next k
     
        If (sayac <= 2) Then
       
            asalmi = True
         
        Else
         'Eğer sayaç 2den büyükse kendisi ve 1 dışındaki sayılara bölünebilmiş demektir yani asal değildir.
            asalmi = False
        End If
     
End Function

Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

Excel VBA ile Farklı Excel Dosyalarını Bir Excelde Birleştirmek

Resim
Merhabalar, bu yazımda sizlere farklı excel workbooklarını bir excel içerisinde otomatik olarak birleştirmek için yazmamız gereken kodu paylaşacağım. Öncelikle birleştireceğimiz workbookları aynı dosya içerisine atıyoruz. Yukarıdaki gibi dosyalarımızı aynı konumda birleştirdikten sonra aşağıdaki kodu yazıyoruz. Sub macro1() Dim Filename As String 'aşağıdaki yolu kendi dosyalarınızı bulunduğu yol ile değiştirin Path = "C:\Users\zülal\Desktop\Çalışma Dosyası\Çalışma Dosyası\MAKRO BİRLEŞTİR\" Filename = Dir(Path & "*.xlsx")   Do While Filename <> ""   Workbooks.Open Filename:=Path & Filename, ReadOnly:=True      For Each Sheet In ActiveWorkbook.Sheets      Sheet.Copy After:=ThisWorkbook.Sheets(1)      ' sayfa adı ile dosya adı aynı olması için yazdığımız kod      Dim LArray() As String      LArray = Split(Filename, ".")      Sheets(2).Name = LArray(0) ...
Devamı

SQL ROW_NUMBER() ile Tekrarlı Satırları Silmek

Resim
Merhabalar, Bugün sizlerle SQL Server'da ROW NUMBER ifadesini kullanarak tekrar eden verileri silip her bir verinin unique olmasını sağlayan SQL kodumuzu yazacağız. Özellikle veri tabanımızı oluştururken ID değerimizi identity(otomatik arttırma) özelliğimizi etkinleştirmediysek tekrar eden ID değerlerini silerken işimizi çok kolaylaştıracak bir yöntem. Aşağıdaki fotoğrafta tablomuz ve verilerimiz bulunuyor bizim istediğimiz verilerimizin tutarlılığı açısından her bir satırımızın tekrar etmeyen şekilde veri tabanımızda bulunması. SELECT *, ROW_NUMBER()OVER(PARTITION BY ID ORDER BY ID) AS RowNumber    FROM Calisan Yukarıdaki kodumuzu yazdığımızda ID'ye göre numaralandırılan yeni bir kolon oluşturuluyor. Sorgumuzu çalıştırdığımızda dönen sonuç bu şekilde oluyor. yani RowNumber değeri 1 dışında olanları silersek her tüm verilerimiz tekrarsız olacak. Yukarıda yazdığımız sorgumuzu Common Table Expression kullanarak silme işlemi gerçekleştireceğiz. Common...
Devamı

T-SQL Trigger(tetikleyici) Örnekleri

Merhabalar , Bu yazımda trigger örnekleriyle SQL Serverda trigger yapısını anlatmaya çalışacağım. Öncelikle Triggerın ne olduğu ile başlayalım. Triggerlar tabloya bağlı olarak yazılan ve o tabloya yapılan herhangi bir işlemden sonra yapılmasını istediğimiz işlemleri yazdığımız saklı yordamlardır. Aşağıdaki örnekler ile birlikte  kafanızda netleşeceğini umuyorum. Örneklerde Northwind veri tabanını kullanacağım. --sipariş edilen ürün kadar stoktan düşüren eğer stokta yeteri kadar ürün yoksa işlemi geri alıp yeteri kadar ürün yoktur uyarısı veren trigger. CREATE trigger [dbo].[trg_stokDusur] on [dbo].[Order Details] after insert as begin begin tran declare  @adet  int, @productID  int, @stok  int select  @adet =i.Quantity, @productID =i.ProductID from inserted i select  @stok =p.UnitsInStock from Products p where p.ProductID= @productID if( @adet <= @stok  and  @stok >0) begin update Products set UnitsInStock=UnitsInStock- @ad...
Devamı