مختار حسين محمود

الأخ الحبيب والغالى ياسر أُطمئنك على أخونا الأستاذ ياسر خليل هو بخير والحمد لله و يقضى أجازة صغيرة عند الأهل كل سنة وأنت طيب . أنت وكل الزملاء

كود يقوم بإخفاء كل اشرطة الأدوات وتكبير الشاشة Sub hide_toolbar() ActiveWindow.DisplayWorkbookTabs = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" End Sub كيف يمكن جعل ماكرو ما (معين) يشتغل بكل المصنفات ؟ ضع الكود فى ملف من قائمة view اختر كلمة hide وعلم على المربع واحفظ ليه بتعمل hide ؟ عشان ما تشوف الملف ده يفتح مع فتح أى ملف اكسل آخر خد الملف ده وضعه فى المجلد XLSTART اتبع المسار التالى : C:\Program Files\Microsoft Office\Office14\XLSTART Office14 عشان أنا الأفيس بتاعى 2010 شوف هيكون كام المهم الملف يكون فى المجلد XLSTART افتح أى ملف اكسل على الجهاز ثم الفيجوال بيزك هتلاقى اسم الملف وبه الكود تستعمله كيفما تشاء تحياتى

هل تقصد كتابة : " " بـــ shift + ط معا

أشكرك أخى العزيز عبدالعزيز المهم أخونا أبو نبأ عليه أن يطبق بنفسه الخطوات ويعلمنا بما وصل إليه . تحياتى لكمــــــا

كود اختيار أكثر من ملف للحذف دفعة واحدة Sub FilesChosentobedel() Dim strPath As String Dim FilesChosen As Integer, X As Integer FilesChosen = Application.FileDialog(msoFileDialogOpen).Show If FilesChosen <> 0 Then For X = 1 To Application.FileDialog(msoFileDialogOpen).SelectedItems.Count strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(X) Kill strPath Next X End If End Sub فى الصندوق الحوارى حدد الملفات المراد حذفها واضغط open ===================================== الملفات قيد التشغيل لا يمكن حذفها ولا يمكن اعادة تسميتها أو نقلها أما بخصوص الجزئية : "لانه كثيرا ما يعلق عندنا ملفات على الرغم اننا لا نستخدمها الا أن الويندوز يراها تحت التشغيل ولهذا لا يقبل حذفها او تعديل اسمها !!! " مش فاهم قصدك بالملفات العالقة ولكن يمكن أن أقول أن TASK MANAGER أو اعادة تشغيل الجهاز يكفى لغلق الملفات اذا كان الجهاز مريح أو مهنج تحياتى

الطريقة باختصار : يمكن عمل ذلك من خلال فتح الملف الذى به شاشة الدخول ثم فتح الفيجوال بيزك ومن قائمة file اعمل تصدير للفورم الذى به شاشة الدخول كيف ؟ حدده ومن Export file احفظه الى مكان تعرفه على جهازك ثم افتح الملف الجديد ثم فتح الفيجوال بيزك واعمل استيراد للفورم كيف؟ من قائمة file اختر Import file روح على نفس المكان الذى حفظت فيه الفورم واستورده بعد عمل ذلك ستجد الفورم بقى فى الملف الجديد . ولا تنسى نسخ كود استدعاء الفورم من حدث المصنف الذى به شاشة الدخول الى ملف البيانات.وتحفظ لو معرفتش أرفق الملفين تحياتى

الحمد لله أخى الكريم أنى وفقت لاجابة طلبك ملحوظة صغيرة :تعديل أخر عشان محدش يقول علينا حاجة حذف الاعلان Dim myDate As Date من الكود ليس له قيمة فأنا كنت مستعجل امبارح قبل الفجر وفى نفس الوقت أريد انهاء الكود . أرجو من الادارة حذف الاعلان من الكود تحياتى للجميع

أخى الكريم لم أجرب الكود كما ينبغى ولم أدقق فى النتائج معذرة Option Explicit Sub FilterDataCopyTo() Dim WS As Worksheet Dim myDate As Date Set WS = Sheets("ادخال بيانات") Application.ScreenUpdating = False Application.DisplayAlerts = False With WS .AutoFilterMode = False .Range("A7:S7").AutoFilter Field:=12, Criteria1:="=محول إلى المدرسة", Operator:=xlOr, Criteria2:="=" .UsedRange.Offset(8).SpecialCells(xlCellTypeVisible).Copy End With Sheets("السجل").Activate Range("A8").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Sheets("ادخال بيانات").Select Selection.AutoFilter Application.CutCopyMode = False Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox ("المهمة انتهت بنجاج") End Sub تحياتى

شكرا لك أبا يوسف الحمد لله أنى وفقت فى الحل تحياتى لك ولابن الملك

وتخبط رأسك ليه فى الحيط !!!!! قول هتتدبر ان شاء الله هتلاقى الكود فى جيبك Sub mokh_ChooseFilethendelete() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim FileChosen As Integer FileChosen = fd.Show If FileChosen <> -1 Then MsgBox "You chose cancel" Else Kill fd.SelectedItems(1) End If End Sub كل سنة وأنت طيب

جرب الكود التالى وهو فى المرفق Option Explicit Sub FilterDataCopyTo() Dim WS As Worksheet Dim myDate As Date Set WS = Sheets("ادخال بيانات") Application.ScreenUpdating = False Application.DisplayAlerts = False With WS .AutoFilterMode = False .Range("A7:S7").AutoFilter Field:=12, Criteria1:="=محول إلى المدرسة", Operator:=xlOr, Criteria2:="=" .UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).Copy End With Sheets("السجل").Activate Range("B8").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Sheets("ادخال بيانات").Select Selection.AutoFilter Application.CutCopyMode = False Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox ("المهمة انتهت بنجاج") End Sub ترحيل ما عدا .rar

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

بارك الله فيك وجازاكم عنا وعن المسلمين خيرا

جازاكم الله خيرا على أعمالكم وجعلت فى ميزان حسناتكم . بانتظار المزيد من ابداعاتكم حيت نفتقد لإبداعات الأساتذة الكبار أمثالكم ( القافية عجبتنى والله ) تحياتى لك

بارك الله فيك أخى على على هذا المجهود موضوع جميل وكنت أحتاجه بشدة لفك تشفير الاضافات جارى التجربة بالنسبة للأخوة الباحثين عن NET Framework الأفضل تحميله من مركز تحميل مايكروسوفت أصحاب 7 و8 لهم الاصدارات 4 وما بعدها بالنسبة لأصحاب xp لهم آخر اصدار 3.5 https://www.microsoft.com/en-us/search/DownloadResults.aspx?FORM=DLC&ftapplicableproducts=^%22Developer+Tools%22&sortby=+weight&q تحياتى للجميع

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

نعم أنت تستطيع وبطل الكسل اللى فيك ده عايزين موضوع نقولك عليه يا محلاااااااااااااااااااااااااااااااااه

الكود بعد اضافة مسح النطاقات المحددة Sub TransferToSpecificSheet() Dim Cell As Range, T As String, LR As Long, LRT As Long Dim WS As Worksheet Set WS = Sheets("1") LR = WS.Cells(35, 3).End(xlUp).Row T = WS.Range("A3").Value Application.ScreenUpdating = False If Not IsEmpty(T) Then Range("B6:G" & LR).Copy With Sheets(T) LRT = .Cells(Rows.Count, 3).End(xlUp).Row + 1 .Cells(LRT, 2).PasteSpecial xlPasteValues End With End If Sheets("1").Range("A3,B6:B35,F6:G35").Select Selection.ClearContents Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

مشكور على مرورك أخى العزيز عبدالعزيز الحمد لله الذى وفقنى لهذا .تقبل تحياتى

اخوانى السلام عليكم الدالة ReverseCell احدى الدوال المدمجة فى الأفيس تؤدى هذا الغرض موجودة فى أوفيس 2010 فما فوق ولا أدرى أن كانت فى 2007 أو 2003 الكود الذى قدمه أخى علاء يعمل وهو لنفس الدالة ReverseCell ويعتبر هنا دالة من النوع UDF يستعملها اللى ما عندوش الدالة المدمجة كأصحاب أوفيس 2003 مثلا سؤال لأخى أحمد أبوزيزو : ازاى حولت ملف الــ PDF الى اكسل أبحث عن طريقة بكود وليس عن طريق منتديات التحويل أو البرامج ؟ ملحوظة صغيرة أرجو أن تتقبلوها بصدر رحب : كلمة محتوايات خطأ والصواب محتويات وأطلب من الإدارة المراجعة والتصحيح . هذا المرفق التالى تطبيق للدالة عكس محتويات الخليه.rar

الله عليك كده بدأت تجتهد يا أبا سليمان بس لولو عملت لنا تطبيق بأسلوبك يبقى روعة ( لو فقط ما بحبهاش ) تفضل تطبيقى المتواضع و تحياتى لك كيفية حساب عدد مرات تواجد رقم أو نص في نطاق .rar

أخى الفاضل ياسين مشكور على مرورك أخى وأستاذى العزبز والحبيب ياسر خليل بارك الله فيكم إن سبقتكم مرة فأنت السباق دائما و نتعلم منك الكثير الكود فى المشاركة الأولى هو نفس اللى فى السادسة الفارق : النطاقات المستثناة من الحذف - رقم آخر صف يحيط بالمدى المستثنى من الحذف المدى الذى يحيط بالمدى المستثنى من الحذف والموجود فى آخر عمود نوعية الحذف ( عادى للبيانات فقط أم حذف للبيانات مع الفورمات ) ClearContents للحذف العادى Clear للحذف بالفورمات أيضا أقول لك وللزملاء فكرة الموضوع ليست لمجرد الحذف وخلاص وانما استثناء نطاق من الحذف وهو ما يبدو جلياُ فى عنوان الموضوع أما تحديد النطاقات المستثناة من الحذف عليك بالتمعن فى الصورة التالية :

أخى سليمان شرفت بمروركم كتير كلنا أخى الحبيب تلاميذ نتعلم من بعض وأتمنى أن تكون تلميذا مجتهداً فى أى مجال بحياتك

شرفت بمروركم أستاذى الكريم

أنا شايف أستاذى العزيز ياسر وهو بيدينى الاعجاب أكيد بيجرب الملف وبيحاول يعمل زيه ما هوغلباوى لكن أنا سبقتك وعملت لك ملف بطريقة احترافية . تحياتى لأستاذى العزيز mokhtar for Y_K.rar