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

بعد ابحث وجدت هذه الدورة المفصلة باسلوب سهل للمهتمين ارجو الفائدة لكم http://up.top4top.net/downloadf-top4top_3c73789be01-rar.html

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الغالي؟ لقيت نفسي نفسي (نفسي الأولى غير التانية ..) نفسي الأولى يعني أنا - وأعوذ بالله من كلمة أنا - ، ونفسي التانية يعني حاجة أتمنى أعملها .. المهم لقيت نفسي أعمل حاجة مختلفة .. بشكل مختلف .. بأسلوب مختلف يكون فيه عنصر التشويق والإثارة والبساطة مجتمعين في نفس الوقت. كتير مننا أول ما يسمع كلمة البرمجة والأكواد يتخض وكأن الموضوع مستحيل ...أبدا كل الحكاية إننا بنبدأ غلط مش بناخد الخطوات الصحيحة لتعلم البرمجة. لو عايز تتعلم البرمجة ونفسك بجد تبدأ تتمكن فيها خليك معايا ، هنقضيها رغي شوية وهزار شويتين ، وجد مش كتير ... ايه رأيكم؟ نبدأ على بركة الله .. أول حاجة بعد ما تنصب الأوفيس وتفتح الإكسيل تلاقي اللي انت عايزه مش موجود طيب نظهره إزاي ؟؟ ببساطة فيه زر أوفيس فوق شمال هتضغط عليه وتضغط Excel Options هتلاقي نافذة فيها خيار اسمه Show Developer tab in the Ribbon يعني إظهار التبويب ، وهتلاقي جنبه مربع تحط فيه علامة صح مبروك الخطوة الأولى واحد هيقولي عندك اقف أول خطوة فشلت فيها ..هقوله ربنا ما يحرمنا من الفشل لأن الفشل أول طريق النجاح .. هقولك لو ملقتش اللي بحكي عليه يبقا اصدار الأوفيس مختلف أنا شغال على 2007 ، وحضرتك على 2010 أو 2013 (بالنسبة ل 2003 والله ما أنا معبره كفاية عليه لحد كدا) ... بالنسبة لـ 2010 و 2013 بيكون من قائمة File ثم Options ثم من القايمة الشمال فيه Customize Ribbon وفي الناحية اليمين هتلاقي قائمة بالتبويبات وجنب كل تبويب علامة صح اللي يعجبك علم عليه صح واللي ميعجبكش ارميه في الزبالة... المهم هتلاقي التبويب اللي هيفتح لنا الباب لعالم البرمجة .. دا كان المفتاح للدخول نخش لتاني حاجة المفتاح عشان يفتح معاك لازم تحط عليه شوية زيت ، يعني لازم تضبط إعدادات الماكرو عشان الأكواد تشتغل معاك تمام من التبويب الجديد انقر على Macor Security هيفتح معاك نافذة بتختار منها آخر خيار Enable all macros وبتعلم علامة صح على الخيار اللي جنبه مربع Trust access to VBA الحمد لله خلصنا من النقطة الأولى والتانية ... ننتقل لنقطة جديدة : هيظهر التبويب في الآخر .. جمد قلبك واشرب ديو وافتح الباب لمحرر الأكواد اضغط على Visual Basic من التبويب المذكور أو لو بتحب تتعامل مع الكيبورد اضغط Alt + F11 كدا الباب الحمد لله فتح .. لو أول مرة تدخل على محرر الأكواد متتخضش واحدة واحدة هبندا نتعلم كل اللي موجود .. المهم محدش يستعجلني عشان أنا مستعجل النافذة دي اسمها نافذة المشروع Project window يعني الإكسيل بيتعامل مع المصنف إنه مشروع .. والمشروع مكون من 3 شيتات اللي بنسميهم أوراق العمل Sheet1 و Sheet2 و Sheet3 بس في 2013 الحمد لله بيكون الوضع الافتراضي شيت واحد بس (أصلي بتخنق من حتة 3 شيتات ع الفاضي بحس إن الملف كبير ع الفاضي وكل اللي يلزمني للعمل بشكل مبدئي هو شيت ولما أحب أضيف جديد مش هيكون أمر صعب) المهم مع أوراك العمل بنلاقي الكائن المسمى بالمصنف WorkBook ودا اللي بيحوي التعابين كلها أقصد الأكواد .. طيب محدش سألني ايه المنطقة الرمادي دي ومالها ضلمة ليه كدا؟ أنا أقولك عشان إنت تنورها .. اضغط دبل كليك على Sheet1 مثلا في نافذة المشروع هتلاقيها نورت والحمد لله استعداد لبداية الاحتفال بس فيه نقطة الأكواد لو اتكتبت هنا هتأثر على الورقة دي بس ... في الحتة اللي نورت الصق الكود اللي جاي ده وأفضل تكتبه بايدك عشان أنا شايف ايدك بتترعش وخايف .. قلت لك جمد قلبك الموضوع بسيط نبدأ بكود كدا سهل ولذيذ Sub Hello_Officena() MsgBox "Hello Officena!" End Sub أول كلمة Sub يعني ابدأ صب اللي عندك .. لا غلط .. معناها إجراء فرعي Subroutine يعني بينفذ مهمة محددة. وفي آخر الكود End Sub عشان القفلة (لو فاكرين شعبان عبد الرحيم بيقول ايه في الآخر بس خلاص دي القفلة بتاعته) هنا بقا دي القفلة بتاعت الإجراء الفرعي.. طيب ايه Hello_Officena دا اسم الإجراء ودا له قواعد أول حاجة مينفعش يبدأ برقم 77Hello_Officena ولا ينفع يكون فيه مسافة زي كدا Hello Officena بس ممكن لو حبينا بدل المسافة بحط Underscore اللي هي بتيجي بـ Shift + العلامة اللي على يمين الصفر اللي في الأرقام اللي فوق مش الأرقام اللي ف لوحة الأرقام .. وبردو فيه حاجات محرمة في اسم الإجراء زي علامة # أو $ أو % أو & أو % أو النقطة أو الفاصلة أو أو .. بقولكم ايه كفاية كلام عن اسم الإجراء .. لو كان فيه حاجة غلط في الاسم هيطلع لك رسالة خطأ تعرف إن فيه حاجة مش مظبوطة!! طيب السطر اللي في النص دا هو دا الكود .. الإجراء أو المهمة المراد تنفيذها .. بتبدأ بكلمة MsgBox ودي اختصار للكلمة Message Box أي صندوق الاسم ..... والله انا سرحت بس مش همسح اللي بكتبه خلي الكلام يكون تلقائي .. ودي بنكتب وراها الرسالة اللي عايزين نظهرها .. وطبعا فيه مسافة بعد الكلمة والكلام اللي هو الرسالة دا نص فنحطه بين أقواس تنصيص " " .. واحد برق لي عينه بيقولي بتتعمل إزاي دي قول لأقتلك .. هقوله حاضر يا باشا هقولك دي بتيجي إزاي .. اضغط على Shift وبعدين حرف الطاء بس خلاص .. طبعا أقواس التنصيص في أول النص وفي آخره مهو لازم القفلة. نجرب نشغل الكود إزاي .. فيه أكتر من طريقة يا إما تضغط على مثلث لونه أخضر فوق في شريط الأدوات الموجود في محرر الأكواد .. مش عاجبك شكل المثلث الأخضر خلاص روح لقائمة Run واضغط أول أمر .. لو انت تلميذ ذكي هتعرف الطريقة التالتة من التانية .. هسيبكم تقولوها إنتو ..مش عارفين !! طيب هقول أنا وخلاص اضغط على F5 من لوحة المفاتيح بس بشرط يكون مؤشر الماوس واقف في الكود.. لما نشغل الكود دا اللي هيظهر لي وبكدا أكون وصلتكم وفتحت لكم الباب .. لو عايزين نكمل قولوا كمل مش عايزين .. يبقا كفاية لحد كدا ويا كود ما يقربش منك حد .. ونعمل بالمثل الفلاحي اللي بيقول : ابعد عن الكود وادعي عليه! والسلام عليكم سبحانك اللهم وبحمدك .. نشهد أن لا إله إلا أنت ..نستغفرك ونتوب إليك كان معكم على الهواء مباشرة أخوكم أبو البراء من ملعب أوفيسنا .. إلى اللقاء مع مباراة جديدة وأهداف جديدة وشيقة دمتم بود ====================================== ====================================== السلام عليكم نرجوا وضع ردود الشكر والاعجاب على الرابط ادناه هنا ====================================== ======================================

الحمد لله رب العالمين وأصلي وأسلم على أشرف الأنبياء وإمام المرسلين نبينا وحبيبنا وقائدنا وقرة أعيننا محمد بن عبد الله عليه وعلى آله الطيبين الساده الزملاء الافاضل السلام عليكم ورحمته الله وبركاته يعانى الكثيرمن الساده الزملاء محررى إستمارات المرتبات بالتربية والتعليم وخاصة المدارس ذو الكثافة العاليه بالعاملين بها عناءا شديدا فى تسجيل صوافى مرتبات الساده العاملين صعودا وهبوطا بحثا عن كل إسم على حدى حتى يتمكن من تسجيل تلك الصوافى على الملف المعد لهذا الغرض لتسليمة لمسؤل وحدة الدفع والتحصيل الالكترونى للإدارة التابع لها حيث الاختلاف بين الترتيب الابجدى المطلوب وبين الترتيب الدفترى وتيسيرا على جميع الساده الزملاء على مستوى مدارس الجمهورية وخاصة ممن يتعاملون من خلال برامج للمرتبات أقدم هذة الاطلالة المتواضعه حيث يحتوى الملف المرفق على أبجدة الاسماء مستخدما معادلة أخى العزيزالآستاذ الفاضل // محمد الريفى الرابط http://www.officena.net/ib/index.php?showtopic=55800&hl= المشاركة رقمى 23 و 24 مع إدراك بيانات الساده العاملين الوظيفية والمالية أترككم مع المرفق داعيا المولى عزوجل أن أكون وفقت فى هذه المساهمة المتواضعه دعواتكم بصلاح الاحوال وجزاكم الله خيرا

السلام عليكم جرب هذا Private Sub UserForm_Activate() Dim Sh As Object Dim LastCol, i As Integer Set Sh = ThisWorkbook.Sheets(1) LastCol = Cells(2, Sh.Columns.Count).End(xlToLeft).Column MyTop = 10 For i = 1 To LastCol Set txt = Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) With txt .Text = Cells(2, i) .SpecialEffect = fmSpecialEffectSunken .TextAlign = fmTextAlignCenter .Top = MyTop .Left = 20 .Height = 24 .Width = 114 .BackColor = &HFFFFFF End With MyTop = MyTop + 30 Next Me.Frame1.ScrollHeight = MyTop End Sub

اخى الفاضل أ.مختار جزاك الله كل خير أخي الكريم وجعل عملك في ميزان حسناتك ... فكرة جميلة ورائعة تسلم ايدك ورحم الله والدك ووالدي وجميع موتانا وموتي المسلمين .. وبارك الله لك في أبنائك وجعلهم قرة عين لك ولكن ايه رايك نضيف اضافة بسيطة على الكود بحيث نجعل انه ليس من الضرورى الحفظ في ال D بل يتم الحفظ في نفس مسار ملف الاكسل كما يتم حفظ الصورة بالتاريخ والوقت الذي التقطت فيه حتى لا يتم استبدال الصورة الجديدة بالصورة الموجودة سابقا هذا الكود بعد الاضافة البسيطة Sub make_jpeg() Dim i As Integer Dim intCount As Integer Dim objPic As Shape Dim objChart As Chart Dim savedate savedate = Date Dim savetime savetime = Time Dim formattime As String formattime = Format(savetime, "hh.mm.ss") Dim formatdate As String formatdate = Format(savedate, "DD-MM-YYYY") 'نسخ المدى كصوره Call Sheet1.Range("A1:f13").CopyPicture(xlScreen, xlPicture) 'مسح أى أشكال من شيت 2 intCount = Sheet2.Shapes.Count For i = 1 To intCount Sheet2.Shapes.Item(1).Delete Next i 'عمل جدول فى شيت 2 Sheet2.Shapes.AddChart 'تنشيط شيت 2 Sheet2.Activate 'تحديد الجدول الذى يوجد فى شيت 2 Sheet2.Shapes.Item(1).Select Set objChart = ActiveChart 'لصق المدى اللى نسخناه فى هذا الجدول Sheet2.Shapes.Item(1).Width = Range("A1:f13").Width Sheet2.Shapes.Item(1).Height = Range("A1:f13").Height objChart.Paste 'حفظ الجدول كصورة فى المسار التالى objChart.Export Filename:=ThisWorkbook.Path & "\" & "Mokhtar" & formatdate & " " & formattime & ".jpg" End Sub ومرفق الملف للتوضيح تحياتي range 2 jpeg.rar

كيف يتم ترتيب السجلات فى استعلام توحيد من الاقدم الى الاحدات من حيث التاريخ مرفق ملف استعلام توحيد .rar

عفوا يبدو أنك فهمتني غلط أنا لم أقصد بسؤالي ماهو المطلوب لكي أصممه لك بل لكي تصممه أنت فابدأ بالاستعلامات واحدا تلو الآخر ثم ارفع ملفك بعد كل خطوة للمتابعة

اخى جزاك الله خيرا واشكر المنتدى تقريبا اكيد فى امثالي بيستفادوا من سؤالي مثل تمام انا باستفاد من اسئلة الاخرين

اخى تفضل ما تريده ----------- ولكن لك منى دعوه لتغير اسم الظهور الى اللغه العربيه التزاما بقواعد المنتدى تقبل تحياتى تفقيط.rar

هل يجوز اضافة جملة order by Ascending داخل استعلام التوحيد

ان شاء الله لن يطول اكثر من هذا كلامك صحيح و اشكرك جداً على اختبارك للحل و ملاحظاتك القيمة و بإذن الله الكود التالي سيحل جميع المشاكل السابقة On Error Resume Next Dim rs As Recordset Set rs = Me.Recordset With rs .MoveFirst If Me.ok = 0 Then .MoveNext DoCmd.OpenReport "report", acViewNormal, , "ok=yes" Else DoCmd.OpenReport "report", acViewNormal, , "ok=yes" .MoveNext End If End With Set rs = Nothing وهذا الملف بعد التعديل ارجو ان يكون هو المطلوب هذه المرة بالتوفيق اخي العزيز print4.rar

أخي الفاضل مربع القائمة يقرأ القاعدة بالكامل ولكنك لم تلاحظ ذلك فعندما كتبت الدالة هكذا.. =Count([Data 1]) ظهر لي مجموع السجلات في مربع القائمة 100020 سجل وللتأكيد قمت بإضافة سجل أخير Abo Habiba وجعلت النموذج بحث بالاسم وعند البحث عن Abo Habiba سيجلبه لك وهو آخر سجل جرب بنفسك تحياتي List Limited.rar

استاذى الحبيب والعزيز // سعيد بيرم اولا: اود اعبر لك عن فرحتى وسعادتى بهذا الموضوع الذى يجعلنى ان اطمئن انكم فى احسن حال ادام الله عليكم الصحه والعافيه والسعاده ثانيا: ذكركم لتلميذ مثلى وسط عظماء مثلك فى اوفيسنا . فهذا شرف وفخر لى . ولا يسعنى الا ان اقول لكم جزاكم الله خيرا عنى خير الجزاء . نقبل الله منكم صالح الاعمال وجزاكم الله الجنه تلميذكم واخيكم فى الله محمد الريفى

اخى الفاضل حل اخر لربما يروق لك تحياتي تنسيق تلقائي.rar

اذا اضف حقل رقم السيارة الى جدول الوقود اضف جدول السائقين اضف حقل رقم السائق الى جدول الوقود ثم ماهو التالي المطلوب في البرنامج ؟

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

اخى وليد تفضل Sub Date_Time() On Error Resume Next 1 DoEvents N = Now Range("a1") = Format(N, "[$-F400]h:mm:ss AM/PM") T = T + 1 For r = 1 To 10000000: Next r GoTo 1 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Date_Time End Sub تقبل تحياتى

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

أخى الفاضل / nessemyousef أخى الحبيب / ياسر خليل تم نقل المشاركة فى موضوع جديد مع خالص تحياتى

أخي الحبيب يرجى طرح موضوعك في موضوع مستقل حتى يتسنى للأخوة الأعضاء مساعدتك لأنه عادة لا يلتفت للطلبات داخل موضوع آخر تقبل تحياتي

جرب الكود : Sub ConvertAll() With Sheets("XYZ").Range("F4:F7") .Formula = "=SUMIF($B$4:$C$14,E4,$C$4:$C$14)" .Value = .Value End With With Sheets("XYZ").Range("G4:G7") .Formula = "=COUNTIF($B$4:$B$14,E4)" .Value = .Value End With With Sheets("XYZ").Range("I4:I7") .Formula = "=VLOOKUP(E4,$E$4:$H$7,4,0)" .Value = .Value End With End Sub

أخى فى الله وبعد إذن إخوانى فى الله أساتذتى الكرام الأستاذ القدير // ياسر خليل الأستاذ القدير ومن جعلنى أعشق الفورم // شوقى ربيع الأمر ليس معقدا وليس سهلا هل عندما تعلمنا اللغة العربية تعلمنا فى البداية استخدام الفواصل أو متى توضع علامه الاستفهام أو الفاصله أو النقطه بل تعلمنا شكل الحرف ومن ثم تجميع الحروف ومن ثم قراءة الكلمه ومن ثم قراءة جمله صغيرة ومن ثم قراءة فقرة وفى كل مرحله نكتبها عده مرات لكى نحفظها ونتعرف على شكلها وكيف نستخدمها ومن ثم تعرفنا على الفواصل والنقط .... الخ فالأمر لا يؤخذ من النهاية الى البداية فبكل بساطه عند قرائتك للكود البرمجى فى عالم الفيجوال بيسك بمختلف استخداماته تجد كلمات ذات لون أزرق غامق وكلمات ذات لون أسود فالكامات ذات اللون الأزرق هى كلمات خاصه للكود البرمجى أى تم تخصيصها لا تستطيع أن تستخدمها فى أى شىء آخر غير الهدف منها فقط مثل كلمه DIM وهى الإعلان عن متغير ويكتب فى سطر مستقل وقد نكتب عده متغيرات فى سطر واحد نستخدم هنا الفاصله (( , )) التى بين الأقواس لكى نفهم البرنامج أن هناك عده متغيرات لكى يقوم الجهاز بتخزينها أيضا نريد تحديد مدى معين أى عده خلايا نضعها بين القوسين ( ) والقوسين تجدها دائما تستخدم فى اول سطر فى الكود العادى فعند كتابة كلمه SUB ثم اسم للكود تنتهى تلك الجمله بالقوسين ( ) أطرح على نفسى سؤال هام جدا هل أنا بتلك الإجابه السابقة فهمت ماذا تعنيه تلك العلامات ؟ لو أنا لست قارىء أو مستخدم جديد لتلك الأكواد وصريح مع نفسى ستكون الإجابه بالقطع لا لأنه بكل بساطه عندما تريد بناء بيت هل تبدأ بالديكورات أم بالأساسات أولا ؟ نبدأ بالأساسات أى القواعد ومن ثم الأعمده ومن ثم السقف ومن ثم الطوب الى أن تقوم بالتشطيب النهائى للبيت فالنصيحة أخى الكريم إبدأ بتبسيط الأمر على نفسك ولا تستعجل الأمور وهذا ما طلبه منى من تعلمت على ايديهم وإن لم يكن هذا الطلب مباشرا وموجها لى ولكن ما دام كتب ونشر على صفحات المنتدى فهو موجه للجميع وأدعو الله عز وجل لهم جميعا ولكل من تعلمت منه شيئا ولو يسيرا أن يحفظه بسر حفظه لكتابه الحكيم من شرور خلقه أجمعين وباب تحصيل العلم هو السؤال عن الذى لا أعرفه بشرط أن أكون صبورا ولا أستعجل الأمر حتى لا أستصعب الأمر فيما بعد وأترك الأمر كله وأعتذر للجميع على الإطاله وتقبلوا منى جميعا وافر الإحترام والتقدير

اخي العزيز بارك الله فيك عندي ملف اسمهk1 وملف اسمه k3 المشكلة عدم تغير القيمه في ملف k1 مثال عندما اكتب =[k3.xlsx]ورقة3!A32 يعطيني 23قيمة الخليه في ملفk3 عندما اغيرقيمة الخليه في k3من23 الى25 تبقى القيمه 23 في ملف k1 لاتتغير هذه هي المشكله ولك الشكر على سرعة الرد والتجاوب

أجمل وأرق تحية لأخى الحبيب محمود على تفانيه فى مساعدة الغير بدون كلل أو ملل قضى الله حاجتك فى الدنيا والآخرة كما ساهمت فى قضاء حوائج إخوانك