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

إخوتي الاعزاء فكرة اليوم التحكم بالوقت ( الساعة ) Time Control كلمات استدلالية اضافة وقت - طرح وقت - On Timer - DateAdd - نموذج - كود التطبيق جزء من تصور شامل اقتطفت لكم اليوم فكرة التحكم و السيطرة على الوقت حيث يحتوي النموذج F2 ( من أعلى اليمين) حقل غير ممكن لليوم يظهر اسم اليوم حقل غير ممكن لليوم يظهر تاريخ اليوم حقل غير ممكن للساعة يظهر الساعة ( 12 ساعة AM . PM ) (مفعل مع On Timer) حقل غير ممكن للساعة يظهر الساعة مع الثواني (مفعل مع On Timer) – 1000 تساوي ثانية واحدة ثم مجموعة ازرار وحقل غير منضم ( في الوسط ) حقل غير منضم ممكن للساعة يظهر قيمة افتراضية للوقت (الساعة الثامنة صباحا) (ساعة بداية الدوام) ( يمين من الاعلى للأسفل +) زر لاضافة دقيقة واحدة على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة خمسة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة عشرة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة ستون دقيقة ( ساعة واحدة) على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي ( يسار من الاعلى للأسفل -) زر لطرح دقيقة واحدة على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح خمسة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح عشرة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح ستون دقيقة ( ساعة واحدة) على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي ( يمين أسفل الوسط) زر للعودة للوقت الافتراضي في حقل الوقت الافتراضي ( يسار أسفل الوسط) زر لتثبيت الوقت الحالي في حقل الوقت الافتراضي الاضافة و الطرح للوقت تتم باستخدام طريقة DateAdd حسب البنية التالية T1 = DateAdd("h", 1, T1) ولسان حال الكود يقول في الحقل T1 تعامل مع (n دقائق ) ( h ساعات) , (1 بالاضافة) (1- بالطرح) , من أصل قيمة الحقل T1 وكفى ... وفي التطبيق مزيد توضيح NA_TimeControl.rar

؟؟؟؟؟؟؟؟؟؟ هل تحب منتديات اوفسنا.rar الكود.rar

اليوم اقدم لكم أضخم كتاب عربي لتعلم برنامج EXCEL يحتوي على شرح مفصل لصيغ والدوال وكذالك مرفق مع الكتاب تطبيقات نموذجية . غلاف الكتاب المحتويات 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح 6.في النهاية الغير متوقعة شرح لغة VBA وطريقة كتابة الصيغ فيها لتحميل الكتاب اضغط هنا حجم الكتاب: 39.7 MB رابط اخر على 4shared أرجو الدعاء لي ولصاحب الكتاب وناشره جزاكم الله خيرا

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

السلام عليكم ورحمة الله وبركاتة اخوتى واحبتى فى الله كل عام وأنتم بخير وصحة وسلامة أدامهم الله عليكم وعلينا جميعا اليوم ان شاء الله تم الانتهاء من كارت الصنف الاصدارة المعدلة لأن النسخة السابقة كانت بطيئة وتمت تجربتها من قبل احد الاخوة وتم اعلامى وغير معقول ان تكون زكية وهى بطيئة ............؟؟؟؟؟؟؟؟؟ واليكم الرابط لمن يريد تحميلة http://www.officena.net/ib/index.php?showtopic=49408&hl= الحمد لله تم تجربة النسخة المعدلة واثبتت الكفاءة والسرعة ان شاء الله ولكنى انتظر اختباركم لها واعلامى عنها وعن التقارير التى بها فهى تحتوى على 2 تقرير التقرير الاول لأجمالى حركات الصنف خلال العام بشيت TotRep التقرير الثانى لتفاصيل حركة الصنف خلال شهر بشيت MonRep تم بحمد الله تكملة ترحيل باقى البنود رقم الاذن رقم الفاتورة + المرتجع ,كود المورد واسمة كود المندوب واسمة + صنف براحتك مفتوح الاضافات ولكن على قد اكسيل مطلوب تقييم التقارير ومدى اهميتها وهل توجد تقارير افضل من ذلك ام لا وهل هى تفى بالغرض ام لا ؟؟؟؟؟؟؟؟؟ واخذت فى الاعتبار حين الانشاء ثلاث اوجة نظر وهى على الترتيب 1- محاسب او امين المخزن الذى سيعمل على الملف ( سهل وسريع وبسيط ) 2- المحاسب الذى سيتولى مراجعتة ( سهل وبسيط ودقيق ) 3- المراجع والتقارير التى يحتاج أليها حتى يتأكد من سلامة النظام والتأكد من الارصدة خلال فترات محددة ( سهل وبسيط ودقيق ويحتوى على عدة تقارير لمطابقة ارصدة الصنف ) بالنسبة للعجز والزيادة الهلك والفاقد المهدر والكسر لم يتم التعرض لها بهذة الاصدارة ويمكن معالجتها محاسبيا بعمل حساب لها سواء مورد للزيادة او مندوب للصرف واخذها فى الاعتبارعند الجرد وهذا للضرورة القصوى تم انشاء نسخة اخرى تحتوى على تقارير اكثر ولكنها فى النهاية تصب فى نفس الهدف وادت الى ثقل ( بطئ ) الملف + كبر حجمة فقمت بألغائها ولكنها كانت اشمل واوفر اسهل بمعنى كان هناك تقرير بأسم YeaRep التقرير السنوى يتم تحديثة تلقائيا من الداتا المدخلة ايضا تقرير بأسم ThroPeriodRep تقرير خلال فترة زمنية محددة يتم عملة بتحديد تاريخ بداية وتاريخ نهاية ........!!!!!!!!!!!! انهما تقريران فعلا رائعان جدا جدا جدا ولكن للأسف لم تحضر معى افكارالمعادلات والوقت اللذان يكفيان لتنفيذ هذان التقريران هما او واحد منهم يغنى عن باقى التقارير وان كنت افضل التقرير ( ThroPeriodRep تقرير خلال فترة زمنية محددة ) مع التقريرالأجمالى حركات الصنف خلال العام بشيت TotRep لذا ارجو تجربة المرفق المرفق الاول بة التقريران الاوائل واخبرونى عن سرعتة واداءة اما المرفق الثانى ثقيل وبطىء وكبير الحجم ولم يكتمل ارجو ايضا تجربتة ومحاولة اكمال التقرير الثالث YeaRep التقرير السنوى والتقرير الرابع ThroPeriodRep تقرير خلال فترة زمنية محددة وحينها يمكننا ان نختار من يبقى ومن يذهب حتى تعود السرعة للملف وياحبذا ان كان التقرير الاول الاجمالى مع الرابع خلال فترة زمنية محددة وكل عام وانتم بخير وصحة وسلامة ان شاء الله دائمين عليكم معذرة شكرا لجميع اعضاء هذا الصرح العظيم واخص منهم من تعملت منهم كثيرا وكانت ملفاتهم ملهمى لفهم معالات كثيرة ودسمة استاتذتى ومعلمى الكبار الذين اتشرف ان أتتلمذ على يدهم بهذا الصرح العلامة المهندس / طارق محمود والرائع دائما العلامة استاذى / بن علية حاجى وملك المعالات / جمال عبد السميع بارك الله فيكم وتقبلوا فائق تحياتى كارته مخزن 3 المعدلة تقريران.rar كارته مخزن 3 اربعة تقارير.rar

العب مع الفورم ... حركة لطيفة وخفيفة .. واظهر قوة ملاحظتك اقدم لكم حركة خفيفة ولطيفة بعض الشئ باستخدام الفورم ويمكن تطويعها لألعاب اخري .. كما تشاؤون او افكار جماليه في ملفاتكم مثل استخدامها هنا لألعاب قوة الملاحظة ... كل ما عليك هو العثور علي الكرة المختلفة بين الثلاثة للانتقال للمرحلة الثانية ... ثم اختيار الكرة المختلفة للدخول لملف الاكسيل ارجو ان تنال الفكرة اعجابكم مع تحياتي ( ابوسمـــا ) جزاكم الله خيرا حركة لطيفة وخفيفة- لعبة قوة الملاحظة.rar

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

السلام عليكم ورحمة الله وبركاته هذة اكواد تم اقتناؤها من هذا المنتدى القيم 1- اريد تعديلها لتشمل قائمة home حيث تقوم بمنع خاصية النسخ والقطع واللصق من خلال الماوس فقط (كليك يمين) 2-اريد كود لتفعيل الماكرو ليتم بصورة اوتماكية جزاكم الله خيرا وبارك فيكم Option Explicit Private Sub Workbook_Activate() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Deactivate() Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Open() Call ToggleCutCopyAndPaste(False) End Sub Option Explicit Sub ToggleCutCopyAndPaste(Allow As Boolean) 'Activate/deactivate cut, copy, paste and pastespecial menu items Call EnableMenuItem(21, Allow) ' cut Call EnableMenuItem(19, Allow) ' copy Call EnableMenuItem(22, Allow) ' paste Call EnableMenuItem(755, Allow) ' pastespecial 'Activate/deactivate drag and drop ability Application.CellDragAndDrop = Allow 'Activate/deactivate cut, copy, paste and pastespecial shortcut keys With Application Select Case Allow Case Is = False .OnKey "^c", "CutCopyPasteDisabled" .OnKey "^v", "CutCopyPasteDisabled" .OnKey "^x", "CutCopyPasteDisabled" .OnKey "+{DEL}", "CutCopyPasteDisabled" .OnKey "^{INSERT}", "CutCopyPasteDisabled" Case Is = True .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "^{INSERT}" End Select End With End Sub Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean) 'Activate/Deactivate specific menu item Dim cBar As CommandBar Dim cBarCtrl As CommandBarControl For Each cBar In Application.CommandBars If cBar.Name <> "Clipboard" Then Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True) If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled End If Next End Sub Sub CutCopyPasteDisabled() 'Inform user that the functions have been disabled MsgBox "Sorry! Cutting, copying and pasting have been disabled in this workbook!" End Sub

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

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

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

لسلام عليكم محمد خليل أنا عكس ما قال له لك صديقي أحمد زمان ( في ملفي وليس ملفه ) حذف الأعمدة يسبب لك دمج في الخلايا لماذ لأن عندما تنقل نسخة من برنامج الشركة فإن نطاق الخلايا لا يتغير يصبح نفسه السابق أي أن لأعمد التي في الوسط فارغ لا تمس حتى يبق النطاق برنامج الشركة نفسه سؤال الأول : العمودO لا فائدة منه يمكنك لإستغناء عنه ( في البداية كنت أريد إستعمال مصفوفة ثم بدل الطريقة و تركته ) السؤال الثاني أنا لم أحسب المسحوبات أن حسبت المرتجعة وأخيرا أنا عملت ملف كما طلبت ملاحظة : عندما يشترك العملاء في منتج واحد فإنك لا تسحب المعادلة للأسفل بل تراجها من بداية العميل تم الإشتراك مع العملاء حتى الإنتهاء إلى غاية المنتج الأخر والعميل الذي يقابله بهذه الطريقة تكون العملية صحيحة 100/100 وهو قابل 5000 واحد وأنظر الملف المرفق عند الإشتراك العملاء في منتج واحد في خانة المنتج لكي تفهماه وأعذرني إن كنت لم اوفق في الشرح تقبل تحياتي ata25.rar

السلام عليكم و رحمة الله وبركاته اخي محمد خليل الكلام الي قلته في آخر مشاركة اوحى الي بفكرة بما انه لايوجد بيانات متكررة لإسم العميل و المنتج معا في الورقة الأصلية اذا نحنة ممكن نسوي عملية تنظيف للورقة الأصلية فقط نضيف اسم المنتج امام اسم كل عميل نحذف بقية الصفوف كلها نحذف الأعمدة الزائدة ' Application.Calculation = xlManual Set FS = Sheets(ActiveSheet.Name) ER = FS.UsedRange.Rows.Count Range("I1") = "ÇáäæÚ" Range("J1") = " ÇÓã ÇáÚãíá" Range("K2").EntireColumn.Insert Range("K2:K" & ER).FormulaR1C1 = "=IF(RC9="""",R[-1]C11,RC9)" FS.Calculate For R = 2 To ER If Cells(R, 10) <> "" Then Cells(R, 9) = Cells(R, 11) Next R ' Range("K2").EntireColumn.Delete Range("K2:K" & ER).FormulaR1C1 = "=AND(LEN(RC10)>1,LEN(RC9)>1,RC10<>R1C10)" FS.Calculate For R = 2 To ER If Cells(R, 11) <> "" And Cells(R, 11) = False Then Cells(R, 11).EntireRow.Delete R = R - 1 End If Next R Range("K2").EntireColumn.Delete Range("B1:H2").EntireColumn.Delete ' With ActiveSheet.UsedRange .Font.Size = 11 .Font.Name = "Arial" .ColumnWidth = 99 .Columns.AutoFit .Rows.AutoFit .AutoFilter End With ThisWorkbook.Save Application.Calculation = xlAutomatic كما في المرفق Copy of Report3.rar