بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
2,216 -
تاريخ الانضمام
-
Days Won
30
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو محمد حسن المحمد
-
هل تمت تجربته من قبلكم أخي الكريم لأني جربت كود شبيه به ولم يفلح
-
وجزاكم بمثل مادعوتم أخي الكريم النظام لدي يستخدم نواة 32 بت أما عندك فهي 64 بت وهو بحاجة تحديث الديكلير كما ترى وأنا بصراحة استخدمت كوداً لأحد الأساتذة الكرام يقوم بالتحويل من 32 إلى 64 بت ولم يفلح للأسف ، كنت قد نصحني منذ مدة أحدهم بحذف ما هو مكتوب بالأحمر ولا أدري إن كانت ستنجح هذه الطريقة. بانتظار أحد الأساتذة الكرام الذين لهم باع طويل في الأكواد والـ VBA ... تقبل تحياتي العطرة.
-
جزاكم الله خيراً
-
جزاكما الله خيراً أخويّ الكريمين علي محمد علي وأحمد يوسف على التفاعل البناء في المنتدى الكريم
-
أرجو أن يكون هو المطلوب ، وبما أنك جديد في المنتدى - أخي الكريم - يرجى مراعاة القوانين التي سنها المنتدى لمنع تكرار الكثير من المشاركات دون فعالية تحويل الارقام لحروف عربي.xls
-
وجزاكم بمثل ما ذكرتم أخي الكريم @Ali Mohamed Aliوأنا بدوري اعتبرتها أحسن إجابة كرماً منك إذا أنت أكرمت الكريم ملكته وإن أنت أكرمت اللئيم تمردا تقبل تحياتي العطرة.
-
تم التعديل على البرنامج كونه تالف تقريباً برنامج المخازن.xlsm
-
لا شكر على واجب ...حياكم الله ... لكن بهذه الحالة يفضل إرفاق ملف به بعض البيانات((الوهمية)) لتتم معالجتها على بينة وليس ما تخطط لعمله فحسب فما تدركه أو تتخيله لا ينطبق تماماً على ما يفكر به الآخرون.. تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته
-
ربط فلتر الشهر مع معادلة لحساب مبالغ
محمد حسن المحمد replied to Osama-2020's topic in منتدى الاكسيل Excel
وجزاكم بمثل ما دعوتم أخي الكريم @Osama-2020 الحمد لله الذي بنعمته تتم الصالحات -
ربط فلتر الشهر مع معادلة لحساب مبالغ
محمد حسن المحمد replied to Osama-2020's topic in منتدى الاكسيل Excel
لكم شكري وتقديري إخوتي الكرام @Ali Mohamed Ali و @أحمد يوسف بارك الله فيكم -
ربط فلتر الشهر مع معادلة لحساب مبالغ
محمد حسن المحمد replied to Osama-2020's topic in منتدى الاكسيل Excel
أشكركم أخي الكريم @Ali Mohamed Ali حسن المتابعة تقبل تحياتي العطرة -
اريد كود يقوم بانشاء فولدر جديد
محمد حسن المحمد replied to إبراهيم ابوليله's topic in منتدى الاكسيل Excel
وبارك بكم أخي الغالي @إبراهيم ابوليله أرجو أن يكون ما قدمت جزءاً من الحل حيث وجدته من خلال البحث.. تقبل تحياتي العطرة. -
ربط فلتر الشهر مع معادلة لحساب مبالغ
محمد حسن المحمد replied to Osama-2020's topic in منتدى الاكسيل Excel
أخي الكريم تم فتح شيت جديد لفلترة البيانات ضمنه تم استخدام كود بسيط للفلترة والآخر لمسح البيانات المفلترة كما تم جمع تلقائي لكل عمود في أعلاه ليسهل عليك استخدام ورقة ثانية لتنظيم ما تريد أما التصفية حسب التاريخ تم توسيع نطاق دالة VLOOKUP لتشمل بدء و انتهاء كل فترة ليتم حسابها سواء بالشهر أو ربع أو نصف ...إلخ أرجو أن يكون بداية توجه لمعرفة النتائج التي تريدها.وسيسهل عليك معرفتها بإذن الله تعالى. ربط فلتر الشهر مع معادلة لحساب مبالغ.xlsm -
أشكرك أخي الكريم @أحمد يوسف على هذا التفاعل البناء كما أشكر أخي الحبيب أيضاً @Ali Mohamed Ali على مروره العطر والسلام عليكم
-
-
اريد كود يقوم بانشاء فولدر جديد
محمد حسن المحمد replied to إبراهيم ابوليله's topic in منتدى الاكسيل Excel
لا شكر على واجب أخي الكريم @abouelhassan -
اريد كود يقوم بانشاء فولدر جديد
محمد حسن المحمد replied to إبراهيم ابوليله's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته أخي الكريم @إبراهيم ابوليله المحترم أما عن الطلب الأول فقد بحثت عنه وتحققت من أدائه أرجو أن تكون به الفائدة الأكواد منقولة من خلال البحث في النت للأمانة. أما عن الطلب الثاني فالإخوة الكرام أهل لذلك وزيادة (بكم البركة).... تقبل تحياتي العطرة. 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 -
مكتبة الموقع - حركة الصندوق
محمد حسن المحمد replied to محمد حسن المحمد's topic in منتدى الاكسيل Excel
بارك الله بكم أخي الكريم -
مكتبة الموقع - حركة الصندوق
محمد حسن المحمد replied to محمد حسن المحمد's topic in منتدى الاكسيل Excel
أحسن الله إليك وجزاك بمثل مادعوت لي وزيادة آمين أخي الكريم @فوزى فوزى تقبل تحياتي العطرة -
مكتبة الموقع - حركة الصندوق
محمد حسن المحمد replied to محمد حسن المحمد's topic in منتدى الاكسيل Excel
شكراً على مروركم العطر أخي الكريم -
مكتبة الموقع - حركة الصندوق
محمد حسن المحمد replied to محمد حسن المحمد's topic in منتدى الاكسيل Excel
أشكركم على تثبيت الموضوع أساتذتي الكرام مسؤولي منتدى أوفيسنا العريق بارك الله بكم وأحسن إليكم ....آمين -
مكتبة الموقع - حركة الصندوق
محمد حسن المحمد replied to محمد حسن المحمد's topic in منتدى الاكسيل Excel
أحسن الله إليك وجزاك بمثل مادعوت لي وزيادة آمين أخي الحبيب @Ali Mohamed Ali أشكر لكم مروركم العطر وكلا مكم الطيب تقبل تحياتي العطرة -
اعرض الملف حركة الصندوق السلام عليكم ورحمة الله وبركاته أقدم لحضراتكم عملاً متواضعاً عن حركة الصندوق لمتجر صغير يتضمن الوقت والتاريخ تلقائياً أثناء قبض أو صرف مبلغ ما حيث تتم كتابة الاسم والبيان وفي أحد حقلي الصرف أو القبض ليتم حساب حركة الرصيد تلقائياً للمقارنة مع الفئات النقدية وتسجيلها هناك زر تبديل في حالة القبض(وجه سعيد مبتسم) وفي حالة الصرف(وجه حزين) حيث نكتب أرقام كل فئة بجانبها ثم نضغط على زر + في حال الإضافة وعلى إشارة - في حال الصرف .... على أن يراعى سعر الصرف في حال كتابة حركة الصندوق بعملة محددة ودفع أو قبض بعملة ثانية للمقارنة بين رصيدي الفئات والمقبوضات هذا الملف مفتوح المصدر لإجراء أي تغييرات على نوع العملة ... أما حماية الشيت فهي تلقائية يمكنكم إيقافها في حال التعديل سائلاً الله تعالى أن يجعل به الفائدة لمن يرغب بتنزيله ...كما نسألكم الدعاء لي ولوالدي ولولدي الحبيب "علي" الذي وافته المنيّة منذ مدة وجيزة ولجميع موتى المسلمين بالرحمة والمغفرة والفوز بالجنة والنجاة من النار ....آمين والسلام عليكم ورحمة الله وبركاته. صاحب الملف محمد حسن المحمد تمت الاضافه 10 يون, 2020 الاقسام قسم الإكسيل
-
أستاذنا الفاضل @محمد طاهرجزاكم الله خيراً على حرصكم على منتسبي منتداكم الكريم وعدم تعريض حواسيبهم وملفاتهم لفيروس الفدية أو ما سواها من خلال حذف الملف المرفق الذي قد يعرض من خلال تنزيله أياً منا لضياع ملفاته أو فرمتة الجهاز من جديد بارك الله بكم والسلام عليكم🙂