نجوم المشاركات

أولا نشكر الأخ وايلي على الملف و لكن فعلا في مشكلة في البرنامج بحثت في المنتدى ووجدت هذا الملف الرائع لمواقيت الصلاة لجميع دول العالم مواقيت الصلاة.xlsb

الأخوة أعضاء وزوار هذا الصرح العظيم السلام عليكم ورحمة الله وبركاته اقدم لكم ملف مواقيت الصلاة لعدد 9 مدن من مدن المملكة أتمني ينال إعجابكم مواقيت الصلاة.xlsm

السلام عليكم فعلا طريقة الملف غير مجدية لأنه اصبح ثقيلاا بفعل المعادلات أخي : الملف مليئ بالمعادلات وكونك الآن لا يمكن ان تحوله إلى الأكواد بسرعة (كونها اخف في الحجم) فقط عملت لك حلا سريعا أرجو أن يناسبك أشتغل على الملف كما كنت تعمل عليه من قبل ولكن الملف الآن لن يحسب لك المطلوب مباشرة فعندما تنهي عملك تماما قم بالحفظ وبعدها سيتم حساب الخلايا في الملف ما قمت به أنا باختصار هو : تحول الحساب التلفائي إلى يدوي ويعمل فقط عند حفظ الملف تفضل تسهيل رصد فورى 1.xlsm

السلام عليكم وأنا كذلك لم أستطيع تشغيل الملف , لوجود مشكلة في الخلية I7 في الشيت الاول حيث أنه لا بد أن يكون أكبر من الصفر ولكن الخلية تظهر خطأ أي لا يمكن قراءتها بالتالي الكود يظهر الخطأ تحياتي

تحديث واستكمال 1- يحول الملفات PDF للنوعين املون ,وابيض واسود (الى صور) 2-طبقا لحواف الصفحة 3- عرض مجموعات للملف المحول PDF To IMG 4- عند التنفيذ الاستخراج والتحويل عدم تمكين الازرار والحقول الى بعد الانتهاء ونسيت الزر نفسة بس المهم الي يمشي في السوق والطلب ولا يكون عليه شبه يمكن اجنبي يعمل Exe خارجي عند مسار Documents لتمرير واستخراج صور *************** المهم ======( استاذ\ @Foksh عندك كود ودالة ما تظهر رسالة حفظ كل ما تقدم شريط التقدم صح عدل المرفق وخلني اشوفه لو تناديني يا اميره اسلوب لطيف 😂🌹 تجميل المرفق https://www.mediafire.com/file/7xcv908w0d10bop/V_1_2_PDF_To_IMG_Trluoon.rar/file

أولا ، وعليكم السلام ورحمة الله وبركاته .. ثانياً صدقاً لم أفهم أي شيء من الكلام ، وسبق كثيراً أن تم تنبيهكم إلى ضرورة الإعتناء باللغة التي تكتبون فيها مشاركاتكم وردودكم أخي الكريم .. ثالثاً بعيداً عن النقطة السابقة ، بعد تحميل المرفق والسير على الخطوات ، أرفقت فيديو لتجربتي والنتيجة المبدئية لها .

قمت بنقله

كود لادراج اسماء أوراق العمل الموجودة بملف اكسل ( ادراجها مع عمل ارتباط تشعبي لها ) Option Explicit Sub ListAllSheets2() Dim sht As Worksheet Dim i As Integer i = 2 For Each sht In Worksheets i = i + 1 ActiveSheet.Hyperlinks.Add _ anchor:=Cells(i, 2), _ Address:="", _ SubAddress:=sht.Name & "!a1", _ TextToDisplay:=sht.Name Next sht End Sub ارتباط تشعبي.rar