Bu dosya, Excel'de hazır bir küpkök fonksiyonu bulunmadığı için VBA ile yazılmış kullanıcı tanımlı bir fonksiyonu (KTF) örnekler. CubeRoot fonksiyonu, hücreye girilen bir sayının küpkökünü döndürür ve diğer Excel fonksiyonları gibi formül içinde kullanılabilir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar etkinleştirilmezse CubeRoot fonksiyonu çalışmaz ve hücrelerde hata değeri görünür.
Küpkök hesabı çalışma sayfası formülüyle değil, aşağıdaki makro ile yapılır.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar etkinleştirilmezse CubeRoot fonksiyonu çalışmaz ve hücrelerde hata değeri görünür.
Dosyanın içeriği
- Tek sayfa vardır; sayfa adı exceldestek.com | exceldepo.com biçimindedir ve kullanılan alan A1:I10 aralığıdır.
- A1 hücresi sütun başlığını, A2:A10 aralığı ise 27 ile başlayıp 13'er artan dokuz örnek sayıyı (27, 40, 53 ... 131) içerir.
- Bu sayılar, fonksiyonu denemek için kullanılacak örnek girdilerdir.
Kullanılan formüller
Örnek sayılar, bir önceki hücreye 13 eklenerek üretilir. Formül A3 hücresinde başlar ve aşağı doğru devam eder:=A2+13
Makrolar
- CubeRoot (Module1 içinde): Verilen sayıyı 1/3 kuvvetine yükselterek küpkökünü hesaplar ve sonucu döndürür. Bir Function olduğu için düğmeyle ya da makro listesinden çalıştırılmaz; hücre formülünde adıyla çağrılır.
- Kod yalnızca hesaplama yapar; dosya silme veya dış bağlantı gibi bir işlem içermez.
Nasıl kullanılır
- Dosyayı açın ve güvenlik uyarısında İçeriği Etkinleştir seçeneğini kullanarak makroları etkinleştirin.
- Boş bir hücre seçin, örneğin B2.
- Hücreye fonksiyonu, yanındaki sayı hücresine başvurarak yazın:
=CubeRoot(A2) - Formülü aşağı kopyalayarak diğer sayıların küpkökünü bulun.
- Kendi sayılarınızı hesaplamak için A sütunundaki değerleri değiştirin.
- Fonksiyonu başka bir dosyada kullanmak için Module1 içindeki kodu o dosyanın VBA projesine ekleyin ve dosyayı makro içerikli (.xlsm) kaydedin.