maxstreets

up

up

up

ارجوا الرد للأهمية اخواني

السلام عليكم .. هل بالأمكان معرف الطريقة لفتح ملف اكسل عن طريقة صفحة ويب تصممها بنفسك بأي برنامج تصميم صفحات ويب أو كود html حاولت وبحت لكن دون جدوى ومن خلال فهمي أن لغات تصميم الويب لاتدعم فتح ملفات أوفيس فقط تقوم بتنزيلها في اسفل صفحة الويب حيث أن المتصفحات مثل كروم وفايرفوكس لاتدعم فتح مثل هذه الملفات .. عند تطيق الطريقة عند ربط عن مثل زر داخل الصفحة يأتي خيار التنزيل وليس فتح ملف الاكسل مع العلم أنني استخدم برنامجWYSIWYG Web Builder 14 لتصميم الصفحة ارجوا من لديه الحل ان يوافينا به ..

مجهود جبار نحن معك وإلى الامام .. الله يوفقك أخي

الموضوع مهم أخواني ولم أجد الحل المنطقي لذلك ...ز.

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

اشكرك أخي علي على مرورك الكريم ...

بفضل من الله وجدت الحل المطلوب بعد عناء الطريقة ربط الحدث بماكرو معين ارفقت لكم مثال لكي تصل لكم الفكرة ... عند فتح الملف المرفق أنتظر 20 ثانية وسوف يعمل الماكرو يجب تفعيل حماية الماكرو للملف المرفق لكي يعمل ضع هذا الكود في حدث الملف In Workbook events: Private Sub Workbook_Open() RunEveryTwoMinutes End Sub قم بعمل ماكرو وضع فيه هذا الكود القيمة الموجودة في المثال أي التوقيت 2 دقيتقين بامكانك تغيير القيمة للوقت الذي ترغب ان يعمل به الماكرو In a module: Sub RunEveryTwoMinutes() //ضع هنا اي كود تريده بدل هذه الجملة في مثالي وضعت كود تكبير الشاشة Add code here for whatever you want to happen Application.OnTime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes" End Sub في ملفي المرفق وضعت كود تكبير الشاششة وغيرت قيمة التوقيت إلى 20 ثانية ليعمل الماكرو بتدون تدخل منك ارجوا ان اكون وفقت في الشرح والحمدلله على كل حال Auto macro_01.xlsm

الرفففع للضرورة ......

للرررررفع اخواني ....

للرررررفع اخواني ....

أخي الكريم الكود يعمل معي لايوجد به مشكلة المطلوب التعديل بحيث يعمل الكود تلقائيا عند الرجوع للوضع الطبيعي

اشكرك اخي الكريم على سرعة الرد لقد ذكرت ان الكود ليس به اي اشكالية لكن طلبي اخي الكريم عند الرجوع للوضع الطبيعي بعد ضغط esc من الكيبورد ان يعيد الماكرو تشغيل نفسه بعد فترة معينة أو عند التاششير على اي مكان في صفحة الاكسل ان يعمل الماكرو بدون ضغط على اي زر كلا الطريقتين مهمة لي شاكر لك تعاونك

جرب هذا اخي الكريم ايضا .. Search++.xlsm

السلام عليكم اخواني واساتذتي الكرام مطلوب تعديل على هذا الكود عند فتح الملف يعمل الكود بششكل طبيعي وليس به خطاء Private Sub Workbook_Open() Application.DisplayFullScreen = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False Sheets("home").Select For Each ws In ThisWorkbook.Sheets ws.ScrollArea = "$A$1:$v$42" Next ws Range("A1").Select End Sub المشكلة : عند وضع تكبير الشاشة تعود الشاشة للوضع الطبييعي بعد فتح اي ملف عادي آخر المطلوب : عند عمل الماكرو وعودة الشاشة للجم الاصلي وبعد مرور فترة معينة من الوقت مثلا دقيقة يعمل الماكرو تلقائيا بحيث تعود الشاشة لوضع الفول سكرين بعد انقضاء الدقيقة. أو التعديل بحيث عند تمرير الماوس على إي جزء من شاشة البرنامج يعمل الكود تلقائيا بدون تدخل وبدون زر فقط عند التاشير ارجوا ان اكون قد اوصلت للكم المعلومة لحاجتي لهذا التعديل ؟؟؟

السلام عليكم ورحمة الله وبركاته سيقوم هذا الماكرو بتصدير كل ورقة عمل مرئية في مصنف جديد وحفظ المصنف باسم الورقة الأصلية في مجلد تم إنشاؤه حديثًا في نفس المسار مثل المصنف النشط. يرجى القيام كخطوات التالية: الخطوة 1: اضغط باستمرار على المفاتيح ALT + F11 ، ويقوم بفتح Microsoft Visual Basic . الخطوة 2: انقر فوق إدراج> الوحدة النمطية ، ثم قم بلصق الماكرو التالي في "إطار الوحدة النمطية": Sub SplitWorkbook() 'Updateby20140612 Dim FileExtStr As String Dim FileFormatNum As Long Dim xWs As Worksheet Dim xWb As Workbook Dim FolderName As String Application.ScreenUpdating = False Set xWb = Application.ThisWorkbook DateString = Format(Now, "yyyy-mm-dd hh-mm-ss") FolderName = xWb.Path & "\" & xWb.Name & " " & DateString MkDir FolderName For Each xWs In xWb.Worksheets xWs.Copy If Val(Application.Version) < 12 Then FileExtStr = ".xls": FileFormatNum = -4143 Else Select Case xWb.FileFormat Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 Case 52: If Application.ActiveWorkbook.HasVBProject Then FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Case 56: FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If xFile = FolderName & "\" & Application.ActiveWorkbook.Sheets(1).Name & FileExtStr Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum Application.ActiveWorkbook.Close False Next MsgBox "You can find the files in " & FolderName Application.ScreenUpdating = True End Sub الخطوة 3: اضغط المفتاح F5 لتشغيل هذا الرمز (تجربة ) . وسيظهر مربع مطالبة لإخبارك بموقع المصنفات الجديدة التي تم تصديرها ، حيث تم تصدير كافة أوراق العمل الخاصة بالمصنف الأصلي إلى بعض المصنفات المنفصلة الجديدة التي تسمى أوراقًا أصلية في مجلد محدد جديد. الخطوة 4 : أربط الماكرو بأي زر في أي صفحة . والسلام عليكم رحمة الله وبركاته.

رائع أستاذي سليم ملف مفيد جداً للذين ليدهم بيانات أحصائية ...

ما شاء الله اخي عبدالسلام اخيرا وصلت للمطلوب جزاك الله كل خيررررررر فعلا هذا هو المقصود استاذي رفعت الملف من جديد ليستفيد منه الأخوة كل التقدير لك أخي مثال القيمة الصفرية بعد التعديل.xlsx الشكر موصول لأخي عماد على جهوده الطيبة

أخي عماد أنا فهمت الطريقة التي تقصدها .. لكن أنا استخدم برنامج في حسابات بنكية على يسار رقم الحساب بمعنى اذا كان عندي رقم حساب به ستة ارقام هكذا 045123 وانا وضعت في المعادلة 8 أصفار سيظهر هكذا 00045123 وانا استخدم البرنامج لكثير من الحسابات تختلف منها 10 ارقام ومنها 8 ومنها 12 اشكرك على اهتمامك وارجوا ان تكون الصورة قد وصلت

جربت المعادلة هذي اخي الكريم لم تعمل يظهر خطاء ارجوا ان تعدل في المرفق واشكرك على الاهتمام

رائع اخي الكريم

المطلوب اخي عماد الحل عن طريقة معادلة text