اذهب الي المحتوي
أوفيسنا

محمد حسن المحمد

الخبراء
  • Posts

    2,216
  • تاريخ الانضمام

  • Days Won

    30

كل منشورات العضو محمد حسن المحمد

  1. هل تمت تجربته من قبلكم أخي الكريم لأني جربت كود شبيه به ولم يفلح
  2. وجزاكم بمثل مادعوتم أخي الكريم النظام لدي يستخدم نواة 32 بت أما عندك فهي 64 بت وهو بحاجة تحديث الديكلير كما ترى وأنا بصراحة استخدمت كوداً لأحد الأساتذة الكرام يقوم بالتحويل من 32 إلى 64 بت ولم يفلح للأسف ، كنت قد نصحني منذ مدة أحدهم بحذف ما هو مكتوب بالأحمر ولا أدري إن كانت ستنجح هذه الطريقة. بانتظار أحد الأساتذة الكرام الذين لهم باع طويل في الأكواد والـ VBA ... تقبل تحياتي العطرة.
  3. جزاكما الله خيراً أخويّ الكريمين علي محمد علي وأحمد يوسف على التفاعل البناء في المنتدى الكريم
  4. أرجو أن يكون هو المطلوب ، وبما أنك جديد في المنتدى - أخي الكريم - يرجى مراعاة القوانين التي سنها المنتدى لمنع تكرار الكثير من المشاركات دون فعالية تحويل الارقام لحروف عربي.xls
  5. وجزاكم بمثل ما ذكرتم أخي الكريم @Ali Mohamed Aliوأنا بدوري اعتبرتها أحسن إجابة كرماً منك إذا أنت أكرمت الكريم ملكته وإن أنت أكرمت اللئيم تمردا تقبل تحياتي العطرة.
  6. تم التعديل على البرنامج كونه تالف تقريباً برنامج المخازن.xlsm
  7. لا شكر على واجب ...حياكم الله ... لكن بهذه الحالة يفضل إرفاق ملف به بعض البيانات((الوهمية)) لتتم معالجتها على بينة وليس ما تخطط لعمله فحسب فما تدركه أو تتخيله لا ينطبق تماماً على ما يفكر به الآخرون.. تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته
  8. وجزاكم بمثل ما دعوتم أخي الكريم @Osama-2020 الحمد لله الذي بنعمته تتم الصالحات
  9. لكم شكري وتقديري إخوتي الكرام @Ali Mohamed Ali و @أحمد يوسف بارك الله فيكم
  10. أشكركم أخي الكريم @Ali Mohamed Ali حسن المتابعة تقبل تحياتي العطرة
  11. وبارك بكم أخي الغالي @إبراهيم ابوليله أرجو أن يكون ما قدمت جزءاً من الحل حيث وجدته من خلال البحث.. تقبل تحياتي العطرة.
  12. أخي الكريم تم فتح شيت جديد لفلترة البيانات ضمنه تم استخدام كود بسيط للفلترة والآخر لمسح البيانات المفلترة كما تم جمع تلقائي لكل عمود في أعلاه ليسهل عليك استخدام ورقة ثانية لتنظيم ما تريد أما التصفية حسب التاريخ تم توسيع نطاق دالة VLOOKUP لتشمل بدء و انتهاء كل فترة ليتم حسابها سواء بالشهر أو ربع أو نصف ...إلخ أرجو أن يكون بداية توجه لمعرفة النتائج التي تريدها.وسيسهل عليك معرفتها بإذن الله تعالى. ربط فلتر الشهر مع معادلة لحساب مبالغ.xlsm
  13. أشكرك أخي الكريم @أحمد يوسف على هذا التفاعل البناء كما أشكر أخي الحبيب أيضاً @Ali Mohamed Ali على مروره العطر والسلام عليكم
  14. السلام عليكم أرجو أن يكون هو المطلوب بناء تسلسل وظيفي بالجداول المحورية.xlsx
  15. وعليكم السلام ورحمة الله وبركاته أخي الكريم @إبراهيم ابوليله المحترم أما عن الطلب الأول فقد بحثت عنه وتحققت من أدائه أرجو أن تكون به الفائدة الأكواد منقولة من خلال البحث في النت للأمانة. أما عن الطلب الثاني فالإخوة الكرام أهل لذلك وزيادة (بكم البركة).... تقبل تحياتي العطرة. Option Explicit Dim Status As String Sub Main() Dim LastRow As Long, iRow As Long Dim FolderPath As String Dim wsApp As Worksheet Set wsApp = ThisWorkbook.Worksheets("App") With wsApp LastRow = .Cells(Rows.Count, "B").End(xlUp).Row FolderPath = .Range("FolderPath").Value If Dir(FolderPath, vbDirectory) = vbNullString Then MsgBox "Invalid Base Folder Provided.", vbExclamation Exit Sub End If If 6 > LastRow Then MsgBox "No item provided.", vbExclamation Exit Sub End If For iRow = 6 To LastRow If .Cells(iRow, "B").Value <> "" Then CreateFolder .Cells(iRow, "B").Value, FolderPath .Cells(iRow, "C").Value = Status End If Next iRow End With MsgBox "All folder created successfully.", vbInformation Set wsApp = Nothing End Sub Private Sub CreateFolder(ByVal SubFolder As String, ByVal BaseFolder As String) Dim strTemp As String Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Status = "" strTemp = CleanFolderName(SubFolder) If fso.FolderExists(BaseFolder & "\" & strTemp) Then Status = "Folder Exists Already" Else If Len(strTemp) > 0 Then MkDir BaseFolder & "\" & strTemp Status = "Success" End If End If Set fso = Nothing End Sub Public Function CleanFolderName(ByVal FolderName As String) As String Dim i As Long Dim strTemp As String For i = 1 To Len(FolderName) Select Case Mid(FolderName, i, 1) Case "/", "\", ":", "?", "<", ">", "|" strTemp = strTemp & "_" Case Else strTemp = strTemp & Mid(FolderName, i, 1) End Select Next i CleanFolderName = strTemp End Function إبراهيم أبو ليلة.xlsm
  16. أحسن الله إليك وجزاك بمثل مادعوت لي وزيادة آمين أخي الكريم @فوزى فوزى تقبل تحياتي العطرة
  17. أشكركم على تثبيت الموضوع أساتذتي الكرام مسؤولي منتدى أوفيسنا العريق بارك الله بكم وأحسن إليكم ....آمين
  18. أحسن الله إليك وجزاك بمثل مادعوت لي وزيادة آمين أخي الحبيب @Ali Mohamed Ali أشكر لكم مروركم العطر وكلا مكم الطيب تقبل تحياتي العطرة
  19. اعرض الملف حركة الصندوق السلام عليكم ورحمة الله وبركاته أقدم لحضراتكم عملاً متواضعاً عن حركة الصندوق لمتجر صغير يتضمن الوقت والتاريخ تلقائياً أثناء قبض أو صرف مبلغ ما حيث تتم كتابة الاسم والبيان وفي أحد حقلي الصرف أو القبض ليتم حساب حركة الرصيد تلقائياً للمقارنة مع الفئات النقدية وتسجيلها هناك زر تبديل في حالة القبض(وجه سعيد مبتسم) وفي حالة الصرف(وجه حزين) حيث نكتب أرقام كل فئة بجانبها ثم نضغط على زر + في حال الإضافة وعلى إشارة - في حال الصرف .... على أن يراعى سعر الصرف في حال كتابة حركة الصندوق بعملة محددة ودفع أو قبض بعملة ثانية للمقارنة بين رصيدي الفئات والمقبوضات هذا الملف مفتوح المصدر لإجراء أي تغييرات على نوع العملة ... أما حماية الشيت فهي تلقائية يمكنكم إيقافها في حال التعديل سائلاً الله تعالى أن يجعل به الفائدة لمن يرغب بتنزيله ...كما نسألكم الدعاء لي ولوالدي ولولدي الحبيب "علي" الذي وافته المنيّة منذ مدة وجيزة ولجميع موتى المسلمين بالرحمة والمغفرة والفوز بالجنة والنجاة من النار ....آمين والسلام عليكم ورحمة الله وبركاته. صاحب الملف محمد حسن المحمد تمت الاضافه 10 يون, 2020 الاقسام قسم الإكسيل
  20. أستاذنا الفاضل @محمد طاهرجزاكم الله خيراً على حرصكم على منتسبي منتداكم الكريم وعدم تعريض حواسيبهم وملفاتهم لفيروس الفدية أو ما سواها من خلال حذف الملف المرفق الذي قد يعرض من خلال تنزيله أياً منا لضياع ملفاته أو فرمتة الجهاز من جديد بارك الله بكم والسلام عليكم🙂
  21. ليس مفعلاً عندي ظننته تبويب لما دونه مثل تبويب المحتوى بنفس اللون غير مفعل أيضاً. لكن تحته /إعدادات الحساب يمكنكم الدخول والتغيير من خلاله. تقبلوا تحياتي العطرة والسلام عليكم ورحمة الله وبركاته.
×
×
  • اضف...

Important Information