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

السلام عليكم ورحمة الله وبركاته الموضوع هذا بدأ بسؤال الرابط التالي: http://www.officena.net/ib/topic/65783-البحث-عن-اي-جزء-من-الكلمة-عنوان-معدل/ ولكن لأني غيرت الكود وجعلته يبحث في اي عدد من الحقول في السجل ، لذا رأيت ان اجعل له موضوعا مستقلا يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل او جزء منها ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها. الشئ المهم في الكود هو طريقة إضافة حقول جديدة للبحث فيها: هذا اول حقل يتم البحث فيه fld = "[كلمات ارشادية]" لما نريد ان نضيف حقول إضافية للبحث فيها ، يجب ان يكون الكود كالتالي fld = fld & " & ' ' & " & "[موضوع الخطاب]" fld = fld & " & ' ' & " & "[my other field]" وكل ما عليك الآن هو ان تطبع وترى نتيجة بحثك: . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_Multiple_Fields_jj.mdb.zip

أخي الكريم أبو حماده إليك الملف التالي عله يكون المطلوب أو مشابه للمطلوب يمكنك اختيار أوراق العمل لإخفائها أو لإظهارها Hide Unhide Sheet Manager.rar

=CONCATENATE(Table174[[#This Row];[نقد/ شيك]];" ";Table174[[#This Row];[المصرف]];" ";IF(Table174[[#This Row];[تاريخ الشيك]]<>"";"رقم";"");Table174[[#This Row];[رقم الشيك]];IF(Table174[[#This Row];[تاريخ الشيك]]<>"";"تاريخ";"");IF(Table174[[#This Row];[تاريخ الشيك]]<>"";TEXT(Table174[[#This Row];[تاريخ الشيك]];"yyyy/mm/dd");"")) أخي الكريم أبو البراء لقد أضفت شرطاً للمعادلة كي لا تكتب شيئاً عند استلام المبلغ نقداً باستخدام الدالة if وقد كان ناجحاً بفضل الله تعالى. لأنها دون كتابة تاريخ يكتب افتراضياً تاريخ 00-01-1900 عسى أن يستفيد الآخرون ممن يطلعون على المشاركة ..والسلام عليكم.

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

السلام عليكم ورحمة الله وبركاته للمهتمين بعلوم واسرار الاكسيل ( زكاة العلم نشره شارك معى الجميع) معظمنا سمع عن الدالة المخفية DATEDIF ولكن هل سمعت عن الدالة EVALUATE انها ايضا دالة مخفية او سرية موجوده فى الاصدار Excel v4.0 macro function الصادر عام 1994 . وهذا شرح مبسط لكيفية عمل هذا الدالة . EV.zip

تفضل أخي أحمد ، الكود بالشرح: Private Sub cmd_another_DB_Click() 'نشير الى المرجع الصحيح 'فعندنا مرجع 'ADO ومرجع DAO 'وهنا سنستخدم المرجع الاخير ، DAO Dim rst As dao.Recordset Dim db As dao.Database 'اختار قاعدة البيانات ، وفي حالتنا فهي خارجية Set db = OpenDatabase(Application.CurrentProject.Path & "\rr.mdb") 'الآن نربط الكود بقاعدة البيانات اعلاه ، بالجدول المحدد 'ونستطيع ان نعطي امر للتصفية وامر للفرز كذلك Set rst = db.OpenRecordset("Select * From emplyee") 'لكي يتم قراءة الجدول اعلاه بطريقة كاملة ، يجب ذهاب المؤشر الى آخر الجدول ثم الرجوع الى اوله rst.MoveLast: rst.MoveFirst 'عدد سجلات الجدول RC = rst.RecordCount 'إقرأ السجلات من اول سجل الى آخر سجل For i = 1 To RC 'اطبع قيمة السجلsatff_name MsgBox rst!satff_name 'انتقل الى السجل التالي rst.MoveNext 'واصل اللف حول السجلات Next i 'اغلق قاعدة لبيانات ، وازلها من الذاكرة rst.Close: Set rst = Nothing End Sub جعفر

أخي الكريم مهند جرب الكود التالي عله يفي بالغرض - مع العلم أنه تم تقديم نفس الكود تقريباً في موضوعك السابق على هذا الرابط من هنا Sub SortData() Dim WS As Worksheet Dim LR As Long Set WS = Sheets("Sheet1") With WS LR = .Range("B" & Rows.Count).End(xlUp).Row - 1 .Range("B1:D" & LR).Sort Key1:=.Range("C1:C" & LR), Order1:=xlAscending, Header:=xlYes End With End Sub Sorting.rar

تفضل يا أستاذ ... أعذرنى فلم أستطع فهم معنى اسم حضرتك الأجنبى -- طبعا لمستواى المتقدم باللغة وعموما لو ساعدتنا بتعريب مسمى حضرتك لتحسن منادتنا لك بما تحب لكنا من الشاكرين ... آسف كنت سأنسى : المرفق بعد التعدل لعله يكون المطلوب . hh.rar

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

السلام عليكم شكرا لك على هذه الملاحظة ، واللي كان لها الفضل في ايجاد حل سهل: . عليه تم اضافة 2000 الى السنوات ، وكان الله رؤوف رحيم . جعفر 310.N2.mdb.zip

السلام عليكم اخواني الكرام جداول اكسس تختلف عن جداول اكسل فالاساس في جدول اكسس هو السجل والحقل فرع منه .. لذا فالعمود لا ينفرد بخصيصة قد يعترض على هذا بحجة امكانية تصفية العمود .. نعم ولكن بالمقابل بقية بيانات السجل ستكون تابعة لهذه التصفية لو افترضنا تم تطبيق مطلب اخونا محمد عن طريق الكود فستكون القيم : 1 ، 4 ، 7 في سجل واحد السؤال الآن : ما الرابطة او العلاقة بين هذه القيم ، وبأي وسيلة نستطيع الرجوع الى احدى هذه القيم عند الحاجة نخرج من هذه المقدمة المقتضبة الى وجوب وجود معرف في كل جدول وتكون له علاقة داخل الجداول الاخرى السجل وحقوله في الجدول كالمنزل وساكنيه

ما احلى هذا الكلام الجميل ربنا يحفظكم ويحببكم فى بعض كمان وكمان .

وعليكم السلام أبا الحسن والحسين جزيت خيراً على تجربة الكود والملف .. بارك الله فيك ونفع بك إخوانك يرجى من الأخ مختار ذكر النسخة التي تعمل عليها .. وإذا كانت النسخة أوفيس 2007 فلتخبرنا ، فقد تكون المشكلة في النسخة لديك تقبلوا تحياتي

وهذه مشارك بسيطة من اخوكم تحياتي لكم تحديد لغة الادخال لمربع النص.rar تحديد لغة الادخال لمربع النص.rar

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

حبيبي ابو يوسف كِملت بيك يابو يوسف كلكو عليا ولا ايه طيب انا غلطان اني معملتش بالبرنامج تحكم عن بعد يعني من مكاني هنا اقدر اخلي البرنامج يعمل او لا يعمل والفكرة دي هتعجبكوا اوي بس لسه عليها شوية وبعدين انا هطلع كويس معاكو وخلي النسخ الاصلية هدية مني ليكم وربنا يقدرنا علي فعل الخير

السلام عليكم ورحمة الله وبركاته أقترح عليكم إعادة النسخة الأصلية للأخ ياسر بالبريد المضمون وهو يدفع أجرة الشحن بالباخرة.أو بالطيارة أسرع مع تكاليف النقل والجمرك.. ولكن سؤال وجيه :هل تستطيع الشمس استرداد ضوءها الذي نثرته منذ لحظة... الجواب عند علماء الإكسل الكرام. والسلام عليكم

أقدم لكم اليوم مشروع تغيير خصائص الأدوات والبرنامج فى أثناء التشغيل أتمنى أن ينال رضاكم ويستفاد منه الجميع ومرة أخرى عودا حميدا بأخى وحبيبى وصديقى الغالى أستاذى زمعلمى القدير / ياسر خليل أريد رأى حضرتك برده يهمنى جدا وأيضا رأى صاحب الموضوع الجميل الذى سيجعلنا مبرمجين أ / ياسر العربى تقبلوا جميعا خالص تحياتى وتقديرى تغيير خصائص الأدوات والبرنامج فى أثناء التشغيل 2.rar تغيير خصائص الأدوات والبرنامج فى أثناء التشغيل.rar

السلام عليكم المسألة كانت تحدي ، وقبلت التحدي انا غيرت اسماء النموذج الرئيسي والفرعي الى اسماء frm_Search و sfrm_Search. الآن يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها: . والكود: Option Compare Database Dim mySQL As String Dim mySQL1 As String Private Sub Form_Load() mySQL = "Select * From [المستندات]" Me.n2 = "" If Len(Me.n2 & "") = 0 Then Me.sfrm_Search.Form.RecordSource = mySQL End If End Sub Private Sub n2_Change() 'do the initial subform Record Source mySQL1 = "Select * From [المستندات]" mySQL = mySQL1 & " Where" 'now we want to split the search code into smaller bits, 'if seperate by / \ * or space, then change this seperator to | (a unique letter), 'this way we will have more than ONE word to search for Dim x() As String Dim A As String A = Me.n2.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") 'the words are split and ready x = Split(A, "|") If UBound(x) = 0 Then 'Still one word, search for it mySQL = mySQL & " [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'it is ONE word and a seperate by / \ * or space, 'so lets make a Where statement for each seperate word For i = LBound(x) To UBound(x) If i = 0 Then 'its a word and a seperator, the NEXT word is NOT added yet mySQL = mySQL & " [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'its multiple words, add the AND command between each word mySQL = mySQL & " AND [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If 'if the Search field is Empty, use the initial mySQL1 Me.n2.SetFocus If Len(Me.n2.Text & "") = 0 Then mySQL = mySQL1 End If 'Debug.Print mySQL Me.sfrm_Search.Form.RecordSource = mySQL End Sub . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_jj.mdb.zip 309.Search_as_you_Type_jj.mdb.zip

السلام عليكم ورحمة الله وبركاته .... الرجاء منكم المساعدة فى اضافة درجة الطالب فى ورقة الامتحان وليس الدرجة الكلية فى الشهادة للترم الأول وشهادة آخر العام فى برنامج الاستاذ رجب جاويش ... مع بيان الطريقة وشكرا لكم وهذا بعد إذن الأستاذ رجب صاحب البرنامج http://www.mediafire.com/download/fspem3k7qsiqqc9/كنترول_رجب_2015_أولى_ثانوى.rar

الله ينور عليك karrar sabry إضافة بسيطة جدا للكود الذي تفضلت به.. بعد الرسالة لكي لا يحتفظ بالتاريخ الغير مساوي للعام Me.ax = ""

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير " ياسر العربي " على تنويعك بطرح الحلول بشتى الأنواع جزاك الله خيرًا و زادك من علمه و فضله نوع آخر بعد إذنك ..من باب التّنويع بمختلف الطرق بهذا الموضوع .. عندما يجتاز التاريخ الحالي ..التّاريخ الموجود باليوزرفورم سيُطلب منّا كلمة المرور ..وبصفة عامّة فالملف ككل له تاريخ نهاية بصفة كلّية .. إنتهاء صلاحية الدخول و صلاحية الملف.rar

لا يمكن حذف البيانات من جميع الجداول باستعمال استعلام واحد ، لذا يجب عمل استعلام حذف مستقل بكل جدول ، وفي الكود تقوم بتشغيل الاستعلامات واحدة خلف الاخرى ، هكذا: لا تعرض رسالة حذف البيانات التحذيرية docmd.setwarnings false الآن نشغل جميع استعلامات الحذف docmd.openquery "qry_1" docmd.openquery "qry_2" docmd.openquery "qry_3" الآن اعرض جميع الرسائل التحذيرية docmd.setwarnings true . . انا اعطيتك الطريقة لعمل هذا الاستعلام للحقل تاريخ الميلاد ، فكل اللي عليك عمله هو تغيير الحقل الى "تاريخ تقديم المادة" مع الحفاظ على المعيار بين التاريخين. جعفر

أخي الكريم لا تنسى أن تغير اسم الظهور للغة العربي جرب التعديل التالي .. تم إضافة كود فرعي لعمل الطلب الجديد ألا وهو فرز البيانات بناءً على عمود الاسم ثم تم استدعاء الإجراء الفرعي داخل الكود الأساسي Sub GetData() Dim Col As Long Dim Data As Variant Dim Dict As Object Dim N As Long Dim Rng As Range Dim Row As Long Dim Table As Variant Dim Wks As Worksheet Dim Addr As String Set Dict = CreateObject("Scripting.Dictionary") Dict.CompareMode = vbTextCompare ReDim Table(1 To 6, 1 To 1) For Each Wks In ThisWorkbook.Worksheets If Wks.Name <> "تصفية حسب الأشهر" Then Set Rng = Wks.Range("A1").CurrentRegion.Columns(2) Set Rng = Intersect(Rng, Rng.Offset(1, 0)).Resize(ColumnSize:=2) Col = Col + 1 Data = Rng.Value Addr = Rng.Address For N = 1 To UBound(Data) If Not Dict.Exists(Data(N, 1)) Then Row = Row + 1 Dict.Add Data(N, 1), Row ReDim Preserve Table(1 To 6, 1 To Row) Table(Col, Row) = Data(N, 2) Else Table(Col, Dict(Data(N, 1))) = Data(N, 2) End If Next N End If Next Wks Table = Application.Transpose(Table) With Worksheets("تصفية حسب الأشهر") .Range("B2").Resize(Dict.Count, 1).Value = Application.Transpose(Dict.Keys) .Range("C2").Resize(UBound(Table, 1), UBound(Table, 2)).Value = Table End With Call SortData End Sub Sub SortData() Dim WS As Worksheet Dim LR As Long Set WS = Sheets("تصفية حسب الأشهر") With WS LR = .Range("A" & Rows.Count).End(xlUp).Row .Range("B1:H" & LR).Sort Key1:=.Range("B1:B" & LR), Order1:=xlAscending, Header:=xlYes End With End Sub تقبل تحياتي

الحمد لله الذي بنعمته تتم الصالحات الحمد لله أخي الحبيب مختار أن من الله علينا بحل المشكلة لا تنسانا بدعوة بظهر الغيب تقبل تحياتي

جرب الملف التالي SaveAsPDFandXPS.rar

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

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

السلام عليكم ورحمة الله وبركاته أخي الكريم عصام مسعد نرحب بكم في جامعتنا أوفيسنا على الرحب والسعة أسميته جامعة لأنه يجمع القلوب والعقول ليحدث تلك الطفرة الإيجابية في مجتمعنا العربي الفقير تقبل تحياتي العطرة

والسلام عليكم ورحمة الله وبركاته. آمين ...عندما نتعامل مع الطيب والعطر لا يمكننا أن نقول إلا ما قلنا جزاكم الله خيراً.. فأنتم جلساء الخير.وقد ذكر نبينا محمد صلى الله عليه وسلم: (( إِنَّمَا مَثَلُ الجليس الصالحُ والجليسُ السوءِ كحامِلِ المسك، ونافخِ الكِيْرِ فحاملُ المسك: إِما أن يُحْذِيَكَ، وإِما أن تبتاع منه، وإِمَّا أن تجِدَ منه ريحا طيِّبة، ونافخُ الكير: إِما أن يَحرقَ ثِيَابَكَ، وإِما أن تجد منه ريحا خبيثَة )) [أخرجه البخاري ومسلم عن أبي موسى الأشعري] والسلام عليكم ورحمة الله وبركاته.

وعليكم السلام أخي محمود في الواقع اذا كان قصد الاخ محمد سعيد ان يغير لغة الكمبيوتر ، ويحتفظ بهذا التغيير لكل البرنامج (وليس للنموذج الذي هو عليه الان فقط) ،فطريقتك هي الاسهل والافضل ، (مع مراعاة إضافة كود محاذاة الحقل لليمين او اليسار عند الكتابة) اما اذا كان القصد للنموذج الحالي فقط ، فكذلك طريقة الاخ محمود الافضل ، مع مراعاة تغيير اللغة عند الخروج من النموذج الحالي ، (مع مراعاة إضافة كود محاذاة الحقل لليمين او اليسار عند الكتابة) طريقتي لا تلعب/تغير إعدادات الكمبيوتر ، وانما تستغل الاعدادات الموجودة في نماذج/حقول الاكسس جعفر

وعليكم السلام أبي الحبيب أبو يوسف جزيت خير الجزاء على كلماتك الرقيقة في حقي على الدوام .. أدام الله المحبة والمودة بيننا الأروع دائماً هو اختيارك لكلمات الرد التي نعجز عن الرد عليها بمثلها تقبل تحياتي

ما هي نسخة الأوفيس التي تعمل عليها؟ إذا كانت أوفيس 2007 فأعتقد أنك ستحتاج لإضافة يتم تنصيبها فيما يخص تصدير ملفات PDF أما الإصدارات الأحدث فلا يوجد بها مشكلة والكود مجرب ويعمل جيداً

ربنا يحفظك ماقصرت هذا هو المطلوب

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

و عليكم السلام ... تفضل ... اذا لم يكن هذا قصدك ... فيرجى التوضيح ... New .rar

بعد إذن أخي وأستاذي جعفر جرب أخي هذا التعديل 111---.rar

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

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

وعليكم السلام ورحمة الله وبركاته أبي الحبيب أبو يوسف جزيت خيراً على ترحيبك الطيب .. وما غبت عنكم أبداً رغم عدم تواجدي فأنتم في القلب تقبل وافر حبي وتقديري

حياك الله اخينا الكريم ومع انه لم يتم ارفاق صورة للخطأ او نص رسالة الخطأ ولكن يتوقع ان تكون احد النقطنتين التالية : 1. تلاحظ وجود مسافة قبل اسم القاعدة وليصبح Source=D:\rr.mdb 2. التاكد من مسار القاعدة الصحيح وانه يوجد درايف باسم d بالتوفيق

وعليكم السلام اذا اردت ان تحذف البيانات بين تاريخين ، فيجب وضع معيار بين تاريخين ، في الاستعلام ، هكذا: . اما جدول المعلمين ، فلأنه غير مرتبط مع الجداول الاخرى ، فيمكن حذف بياناته كامله ، هكذا: DELETE * FROM المعلمين جعفر 302.delete.accdb.zip

حيا الله الاستاذ عفوا على الخطأ ، رجاء جرب هذا الملف ثم نتكلم عن الباقي جعفر 275.1.ImportDegrees.accdb.zip

السلام عيكم ورحمة الله بارك الله فيك دائما سباق بالخير

استاذ ياسر خليل كما قال ابو نصار انت جامعه شرح ممتاز بارك الله فيك وفقكم الله

أخي الحبيب سليم بارك الله فيك وجزاك الله كل خير لما لا تصبر قليلاً ريثما يضع السائل تصوره بدلاً من هدر الوقت والجهد ..مجرد تساؤل جميل أن نقدم المساعدة ولكن يجب أولاً التريث كي نفهم المطلوب بشكل أعمق .. المشاركة السابقة هي رقم 3 بالنسبة لك .. وربما لا يكون المطلوب أيضاً .. تقبل تحياتي

Private Sub Worksheet_Change(ByVal Target As Range) Dim X If Target.Address = "$A$1" Then Application.ScreenUpdating = False Application.EnableEvents = False X = [A1].Value If X <= 0 Or X = 1 Or Not IsNumeric(X) Then GoTo Skipper1 Range("A3:G3").AutoFill Destination:=Range("A3:G" & X + 2), Type:=xlFillDefault Range("A4:G" & X + 2) = Range("A4:G" & X + 2).Value Range("A" & X + 3).Resize(70000, 7) = "" Application.Goto Target End If GoTo Skipper2 Skipper1: Range("A" & 4).Resize(70000, 7) = "" Application.Goto Target Skipper2: Application.EnableEvents = True Application.ScreenUpdating = True End Sub أخي الحبيب أبو عيد بارك الله فيك وجزيت خيراً ..لما جعلت الكود في حدث تنشيط ورقة العمل وليس في حدث التغير في ورقة العمل جرب الكود بهذا الشكل عله يفي بالغرض Copy Formula In Row 3 Based On The Value In A1 Officena.rar

وعليكم السلام انا عملت مربع النص ، وطريقة جلب اسم الملف ، فقط لتسهيل العمل ، انا افهم من سؤالك بأنك تريد ان توضع اسم ومسار الملف في الكود مباشرة (وإلا كيف نعرف اي ملف نشتغل علي!!) هذا هو الكود للطباعة: Private Sub cmdPrintLandscape_Click() Dim objWord As Object Set objWord = CreateObject("Word.Application") objWord.Documents.Open ("C:\Temp\abc.doc") objWord.Visible = False 'True '<== ** Look at the code below objWord.PrintOut ' wait for the printout to finish, then close Word Do While objWord.BackgroundPrintingStatus > 0 'pause 5 seconds untill the document is printed PauseTime = 5 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Loop objWord.Documents.Close Save = False objWord.Quit Set objWord = Nothing End Sub وتشغيل برنامج exe Private Sub cmd_run_Click() On Error Resume Next Shell "C:\windows\Notepad.exe", 1 End Sub جعفر

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

السلام عليكم ورحمة الله وبركاته حمل المرفق ففيه شرح مصور بالبوربوينت لطريقة إنشاء شريط أدوات خاص لا تنسانا من دعاءك Presentation1.rar