Excel ile OKEK ve OBEB Hesaplama

Bu dosya, bir hücre aralığındaki sayıların OBEB (en büyük ortak bölen) ve OKEK (en küçük ortak kat) değerlerini hesaplamak için hazırlanmış makrolu bir örnektir. Hesaplama, VBA ile yazılmış iki kullanıcı tanımlı fonksiyonla yapılır; matematik işlemlerini Excel üzerinde denemek isteyenler için uygundur.

Dosyanın içeriği​

• Sayfa1: B2:H9 aralığında düzenlenmiş örnek alan bulunur. Sayfada formül yoktur; sayılar bu alana girilir ve fonksiyonlar bu hücrelere başvurularak çağrılır.
• Module1: VBA modülünde OBEB ve OKEK adlı iki fonksiyon yer alır (yaklaşık 70 satır).

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı gibi işlemler yoktur. Fonksiyonlar bir düğmeyle değil, hücreye formül olarak yazılarak çalıştırılır.

• OBEB: Seçilen aralıktaki sayıları bir diziye alır ve büyükten küçüğe sıralar. Ardından dizideki en küçük sayıdan başlayıp 2'ye kadar geriye doğru sayarak tüm sayıları kalansız bölen ilk değeri bulur ve sonuç olarak verir. Hiçbir sayı bulunamazsa sonuç 1 olur.
• OKEK: Sayıları aynı şekilde diziye alıp sıralar. 2'den en büyük sayıya kadar olan her böleni dener; dizideki sayılardan herhangi biri bölünüyorsa o sayıyı böler ve böleni çarpıma ekler. Bölme işlemi tamamlandığında çarpım OKEK değeri olarak döner.

Her iki fonksiyon da tek bir Range argümanı alır ve değerleri tam sayı (Integer) olarak işler; bu nedenle çok büyük sayılarda sınırlama olabilir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sayfa1 üzerinde bir boş hücre seçin ve sayıların bulunduğu aralığı argüman olarak vererek fonksiyonu yazın.
3. OBEB için aşağıdaki biçim kullanılır:
   
   Excel formülü

   =OBEB(B3:B5)

4. OKEK için aynı aralık şu şekilde verilir:
   
   Excel formülü

   =OKEK(B3:B5)

5. Aralıktaki sayıları değiştirdiğinizde sonuçlar otomatik olarak yeniden hesaplanır.
6. Kendi çalışmanıza almak için Module1 modülünü başka bir makrolu çalışma kitabına aktarabilirsiniz.