+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Uzun Formülü Makroya Çevirmek (/konu-uzun-formulu-makroya-cevirmek.html)
Uzun Formülü Makroya Çevirmek - The_Analyzer - 26/09/2014
İyi geceler arkadaşlar. Excel’de bir problemim ile ilgili yardım isteyecektim. Müşterim çalıştığı işyerinde fiyatlandırma yaparken ondalık kısmını 10-15-20 gibi 5 katları şeklinde girebilmektedir. Ancak Excel dosyası olarak gelen liste her zaman buna uygun değil. Örnek vermek gerekirse 15,21 i 15,20 ye çevirirken 15,25 gelirse aynen kalacak, 15,26 gelirse 15,30 yapacak. Gelen fiyat bilgisinin tam kısmının veya ondalık kısmının basamak sayısı sabit değil. Ben ekteki formülle çözdüm ancak çok uzun bir formül çıktı. Bunu daha kısa nasıl yapabiliriz.
NOT: Yuvarla, yukarı yuvarla, aşağı yuvarla müşterinin istediğini yapmıyor.
Cvp: Uzun Formülü Makroya Çevirmek - atoz112 - 08/10/2014
sayın The_Analyzer,
EK'te,talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
uygulamanızda kullandığınız uzun formül için alternatif oluşturması açısından,
Kod:
=EĞER(YADA(SAYIYAÇEVİR(SAĞDAN(TAMSAYI(A2*100);2))=2;SAYIYAÇEVİR(SAĞDAN(TAMSAYI(A2*100);2))=98);YUVARLA(A2;0);SAYIYAÇEVİR(TAMSAYI(A2)&","&SAYIYAÇEVİR(SAĞDAN(TAMSAYI(A2*100);2))+DÜŞEYARA(SAYIYAÇEVİR(SAĞDAN(TAMSAYI(A2*100);1));$F$2:$H$6;3;0)))ÖNEMLİ UYARI:
eklenen örnekte F2:F6 hücre aralığını lütfen silmeyiniz ve olduğu gibi bırakınız.çünkü,işleyiş bu aralık kullanılarak geçerli olmaktadır.ilgili aralık,uzak bir hücreye taşınmak sureti ile göz önünden kaldırılmıştır.
ayrıca,pencere bölme ve dondurma işlemleri de uygulanmak sureti ile,bu aralığın yerinin ve içeriğinin tarafınızdna görülmesi ve bilinmesi amacı düşünülerek,böyle bir halde kaydedilmiştir.siz,talebiniz doğrultusunda;pencere bölme ve dondurma işlemlerini iptal ederek,uygulamanın normal hale dönüşmesini sağlayabilirsiniz.bilgilerinize.
iyi çalışmalar,
saygılar.