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

اخواني الكرام السلام عليكم و رحمة الله وبركاته الحقيقة انه كانت لدي هواية في التعامل مع الرجستري و في كل مرة ابحث عن كيفية تطويعه لخدمة برنامج الاكسل و كان اليوم هذا المثال في التعامل مع احدى اهم الدوال في التعامل مع الرجستري و هما الدالتان GetSetting SaveSetting الاولى للحصول على الاعدادات و الثانية لحفظها ... و يمكنكم ملاحظة هذا المثال و هو لاظهار رسالة لعد مرات فتح الملف و وقته و تاريخ فتحه اخر مرة counter times file.rar ستلاحظون انه اضاف مفاتيح جديدة و قيما في الرجستري في كل مرة نفتح فيها الملف ... و الصورة التالية تشرح ذلك

أخي العزيز / الجزيرة تقبل تحياتي وشكري .

السلام عليكم أسأل الله ان يوفقك دنيا واخرة طريقة تضليل الكود الغير مستخدم معلومة كنت اتمناها فأعتبرها إضافه من قبلك للإكسل لجهلي التام بها ولي استفسار اخر استاذ محمد صالح وهو هل اقدر احتفظ بأدواتي في محرر الفيجول ادواتي يعني المعادلات والمتغيرات التي استخدمها في صياغة الاكواد بإستمرار يعني عند كتابة كود اريد استخدم on error resume next وغيرها تكون الجمله موجوده اختارها من القائمة فتكتب في السطر الواقف عليه في الكود بارك الله فيك

السلام عليكم بعد اذن استاذي الحبيب يحيى حسين هذا الكود حطه في حدث الصفحة الرئيسية Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$J$5" Then Application.Run ("ALI"): Cancel = True: Exit Sub End Sub هذا للنقر مرتين لعملية الترحيل وهذا الكود حطه في ماكرو Public Sub ALI() On Error Resume Next Application.ScreenUpdating = False Dim ALI_Range, R1, R2 As Range Dim sh, s, ASC As Worksheet Q = æÑÞÉ1.Range("J7").Value P = æÑÞÉ1.Range("I7").Value Set sh = Sheets(Q) Set s = Sheets(P) Set ASC = Sheets(1) With sh T = .Cells(1000, 1).End(xlUp).Row + 1 Set R1 = ASC.Range(Cells(7, "B"), Cells(7, "C")) Set R2 = ASC.Cells(7, "F") Set ALI_Range = Union(R1, R2).Copy .Cells(T, 1).PasteSpecial xlPasteValues .Application.CutCopyMode = False End With With s T = .Cells(1000, 1).End(xlUp).Row + 1 ASC.Range(Cells(7, "E"), Cells(7, "F")).Copy .Cells(T, 1).PasteSpecial xlPasteValues .Application.CutCopyMode = False End With Application.ScreenUpdating = True End Sub ============================== هل يوجد طريقة للترحيل بطريقة استطيع فيها ترحيل اختياري بما معناه (b7,c7,f7)الى صفحة . ومرة اخرى (f7,e7) الى صفحة ثانية الرجاء دوما الترحيل الى السطر السابع " إقتباس" ============================== هذا هو عمل الكود والسلام عليكم وهذا المرفق ترحيل_ALI.rar

والآن مع الجزء الثاني من الفصل الثالث لدورة vba والذي يحتوي على: إنشاء ماكرو بدون معاملات (parameters) إنشاء ماكرو بمعاملات إنشاء دالة بدون معاملات (parameters) إنشاء دالة بمعاملات استدعاء ماكرو أو دالة من داخل ماكرو استعمال نافذة التصحيح debug ربط النصوص والمتغيرات ونتائج الدوال ببعض إضافة تعليق التحكم بالتعليقات بالقائمة المتخصرة ولا ينقصني سوى دعاؤكم لي بالخير والتوفيق في الدنيا والآخرة

تفضل أخي الكريم هذه فكرة بسيطة لعمل المطلوب mas_showform_1st_time_only.rar

السلام عليكم اخي فضل جرب المرفق ستقوم بتضليل العمود الذي تريد حت اخر رقم ثم اضغط الزر Sub Abu_Ahmed_Srt() On Error Resume Next x = Selection.Column Selection.Sort Key1:=Cells(2, x), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Cells(21, 2) = Cells(1, x) Cells(21, 3) = x - 1 End Sub عنوان العمود وترتيبه.rar

بسم الله الرحمن الرحيم وبه نستعين أخى ومعلمى الحبيب الغالى الاستاذ الفاضل / يحيى حسين شرف كبير لى هذة المباركة .... بارك الله فيكم ... وجزاكم الله خيرا مع قبول اعتذارى للنسيان والشكر موصول لجميع الساده الزملاء من أسرة أوفسينا وأتشرف بعرض موضوعى الاول على الرابط http://www.officena....showtopic=39693