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

السلام عليكم بعد اذن الاساتذه Sub newsheetcustomename() Dim sheetname As String sheetname = InputBox("من فضلك ادخل اسم الشيت") If kh_Test_MyChr(sheetname) Then Exit Sub Sheets.Add.Name = sheetname End Sub Function kh_Test_MyChr(khString As Variant) As Boolean Dim MySh As Worksheet Dim MyChArray, MyChr Dim S As Integer, R As Integer S = Len(Trim(khString)) If S > 31 Or S = 0 Then MsgBox "حروف الاسم قد تكون اصغر من 1 او اكبر من 31", 524288 + 1048576 + 16, "اسم مرفوض" kh_Test_MyChr = True Exit Function End If '------------------------------------ MyChArray = Array("/", "*", ":", "؟", "?", "[", "]") For Each MyChr In MyChArray If InStr(1, khString, MyChr, 1) <> 0 Then MsgBox "حروف الاسم تحتوي على الحرف " & Chr(10) & Chr(10) & Chr(9) & MyChr & Chr(10) & Chr(10) & "وهو من الاحرف الممنوعة " & "/ * : ؟ [ ]", 524288 + 1048576 + 16, "حرف ممنوع" kh_Test_MyChr = True Exit Function End If Next '------------------------------------ For Each MySh In ActiveWorkbook.Sheets If UCase(Trim(MySh.Name)) = UCase(Trim(khString)) Then MsgBox "الاسم مكرر ", 524288 + 1048576 + 16, "اسم مكرر" kh_Test_MyChr = True Exit Function End If Next End Function في امان الله

استاذ معاذ حدد العمود المراد تغير التاريخ ثم اعمل استبدال Ctrl + H يستبدل 2020 بـ 2013 ارجو ان اكون قدرت على توصيل المعلومة

السلام عليكم ورحمة الله وبركاته اولا احب اشكر الله انه رزقنى معرفة هذا المنتدى ثم كل القائمين على هذا المنتدى والذى استفدت منهم كثيرا لاننى فى البداية مبرمج ولكن بلغة الكوبول وبحب المجال دا جدا جدا فشكرا جزيلا لكم Private Sub Length_AfterUpdate() Dim strfilter As String strfilter = "[Length]='" & Me!Length & "' And [Type]=' & Me!Type&" Me!Name = DLookup("Name", "Type_Table", strfilter) Me!Cost_B = DLookup("Cost_B", "Type_Table", strfilter) Me!Cost_W = DLookup("Cost_W", "Type_Table", strfilter) Me!Selling_B = DLookup("Selling_B", "Type_Table", strfilter) Me!Selling_W = DLookup("Selling_W", "Type_Table", strfilter) End Sub

بسم الله الرحمن الرحيم اليوم اقدم لكم لعبة شيقة جدا من برمجتي بلغة برمجة المواقع أما هي فمعروفة كفكرة رياضية من زماان وأدعوكم للتفكير قليلا ومعرفة سر هذه اللعبة اللعبة عبارة عن ملف htm يتم فتحه بمستعرض الانترنت. باسوورد فك الضغط عن الملف mr-mas.com والآن مع اللعبة. وهذا رابط لمعاينة اللعبة قبل تحميلها. الرابط موجود في صفحتي في أوفيسنا. guess number.zip

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

السلام عليكم ورحمة الله وبركاته برنامج الجدول المدرسي الاصدار الثاني مقدمة عامة عن عمل البرنامج: يصلح لجميع المدارس ايا كان نوعها في اي قطر من الاقطار العربية وذلك للميزات والامكانيات التالية: مميزات البرنامج 1 - عدد الحصص اليومية 12 حصة يتمدد وينكمش من 6 حصص الى 12 حصة. 2 - عدد ايام الاسبوع 7 ايام يتمدد وينكمش من 5 ايام الى 7 ايام. 3 - عمل قوائم للفصول لكل مدرس وامكانية التبديل بينها وبين قائمة كل الفصول. 4 - يتسع 120 معلم و120 فصل و120 مادة. 5 - التحكم في عرض اوراق المصنف يمينا او يساراً ========================= امكانيات البرنامج 1 - استخراج جداول الفصول (الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 2 - استخراج جداول المعلمين (الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 3 - استخراج جداول المواد(الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 4 - استخراج جداول اجمالي الفصول 5 - استخراج جداول اجمالي المعلمين الاعدادات الاولية في بداية العمل على البرنامج في الرئيسية 1 - غير العام وبداية العمل بالجدول في الخلايا D2:D3 2 - غير العناوين للمحافظة والادارة والمدرسة في الخلايا B6:B8 3 - اضغط زر حذف جميع البيانات لحذف جميع البيانات في المصنف 4 - ادخال اسماء الايام في جدول الاسبوع خمسة ايام افتراضية 5 - تحديث قائمة الحصص باختيار عدد الحصص التي تريدها في الرئيسية انشاء قوائم للفصول لكل مدرس في الصف المقابل للمدرس في الاعمدة F:O حول البرنامج برنامج مجاني الاصدار الثاني برمجة / خبور خير باستشارة الاستاذ / محمدي عبد السميع الذي سيقوم بالردعلى استفساراتكم خبور خير برنامج الجدول المدرسي الاصدار الثاني.rar

السلام عليكم ورحمة الله وبركاته صباح الخير موضوعي اليوم متشعب قليلا ولا ادري ما هو البرنامج المناسب ليخدمني في العمل، هل (الاكسل او الاكسس) سوف اطرح عليكم موضوعي بإختصار قدر المستطاع بداية : انا موظف في جهة حكومية ، وظيفتي مراقب ومتابعة السيارات من حيث : 1. دخولها وخروجها من موقع العمل. 2. متابعة صرفية الوقود (درهم / باللتر)+ حساب المسافة المقطوعة بالكيلومتر. 3. متابعة سير حركة المركبة من موقع العمل الى الجهة المقصودة. 4. متابعة الوقت المستغرق من وقت انتهاء مهمة السيارة الى وقت عودتها الى مقرها. سوف اتطرق الى شرح كل نقطة على حدى. بالاضافة الى استخراج تقارير شهرية عن كل سيارة من حيث (الادارة او القسم المستفيد). في المشاركة التالية سوف ارفق النموذج الذي استخدمه حاليا في برنامج الورد موضحا عليه بعض الامور لتوصيل الفكرة. هل يوجد لديكم برنامج جاهز لنفس الفكرة المطروحة ؟

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

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

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

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

السلام عليكم خبراء المنتدى ممكن فورم حفظ الملفات الورد أو pdf في قاعدة البيانات أكسس أو أكسيل .. كذلك لو امكن كيف أستعرض ملف الورد أو الpdf داخل الفورم حيث يمكن قراءة محتواه وطباعته .. ياريت مساعدة الله يخليكم ..

السلام عليكم الاخ العزيز / ريان أحمد بارك الله فيك بعد اذن اخي الحبيب / احمد عبد الناصر ... جزاه الله خيرا يمكنك وضع الباسورد الذي تريده في الكود في السطر التالي .... والرقم السري هو هنا 1 ويمكنك تغييره كما تريد بين الاقواس s.Unprotect "1" وكذلك في السطر s.Protect "1" ليكون بذلك الشكل النهائي للكود كما يلي Sub Dahmour() For Each s In ActiveWorkbook.Sheets s.Unprotect "1" s.Cells.Locked = False s.Cells.FormulaHidden = False On Error Resume Next s.Cells.SpecialCells(xlCellTypeFormulas).Locked = True s.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True s.Protect "1" Next End Sub جزاك الله خيرا

السلام عليكم الخطأ يظهر عند وجود صفحات لا يوجد فيها معدلات . استبدله بهذا Sub Dahmour() For Each s In ActiveWorkbook.Sheets s.Unprotect s.Cells.Locked = False s.Cells.FormulaHidden = False On Error Resume Next s.Cells.SpecialCells(xlCellTypeFormulas).Locked = True s.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True s.Protect Next End Sub تحياتي

السلام عليكم الاخ الحبيب / إسلام الشيمي بارك الله فيك الكود المرسل من الاخ الحبيب / احمد عبد الناصر .... جزاه الله خيرا يعمل بكفاءة ودقه عاليه ... وبعد اذنه لكن عليك بعد لصق الكود في المودل ... ان تقوم بتغيير الحروف الغير مفهومة بين الاقواس في اسطر الرسائل الاسطر التاليه ... مثلا في الكود الثاني sheetname = InputBox("ãä ÝÖáß ÇÏÎá ÇÓã ÇáÔíÊ") وكذلك MsgBox ("ÇäÊ áã ÊÏÎá ÇáÇÓã Çæ ÇÓã ÇáÔíÊ ÇßÈÑ ãä 31 ÍÑÝ") قم بتغيير الاقواس لكلمات بالعربية او الانجليزيه تكن مفهومة ... وسيعمل معك الكود كما تريد تماما ( ان شاء الله ) جزاك الله خيرا

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

السلام عليكم جرب هذا Sub newsheetcustomename() Dim sheetname As String sheetname = InputBox("ãä ÝÖáß ÇÏÎá ÇÓã ÇáÔíÊ") If sheetname = "" Or Len(sheetname) > 31 Then MsgBox ("ÇäÊ áã ÊÏÎá ÇáÇÓã Çæ ÇÓã ÇáÔíÊ ÇßÈÑ ãä 31 ÍÑÝ") Exit Sub End If For Each s In ActiveWorkbook.Sheets If s.Name = sheetname Then Sheets.Add Exit Sub End If Next Sheets.Add.Name = sheetname End Sub او هذا Sub newsheetcustomename() Dim sheetname As String sheetname = InputBox("ãä ÝÖáß ÇÏÎá ÇÓã ÇáÔíÊ") If sheetname = "" Or Len(sheetname) > 31 Then MsgBox ("ÇäÊ áã ÊÏÎá ÇáÇÓã Çæ ÇÓã ÇáÔíÊ ÇßÈÑ ãä 31 ÍÑÝ") Exit Sub End If On Error Resume Next Sheets.Add.Name = sheetname End Sub تحياتي

السلام عليكم تحياتي للجميع , اسعد الله صباحكم جرب هذه Sub Dahmour() For Each s In ActiveWorkbook.Sheets s.Unprotect s.Cells.Locked = False s.Cells.FormulaHidden = False s.Cells.SpecialCells(xlCellTypeFormulas).Locked = True s.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True s.Protect Next End Sub

السلام عليكم جرب هذه =DATE(2013;MONTH(H2);DAY(H2)) تحياتي jop_2011+.rar

أخي الكريم // أبوعلام وبعد اذن اخي الحبيب / حمادة عمر الكود بعد التعديل في حالة عدم وجود باس ورد للشيت Sub Rectangle1_Click() '' في حالة عدم وجود باس ورد activesheet.unprotect Rows("17:23").Select Selection.RowHeight = 0 activesheet. protect End Sub Sub Rectangle2_Click() activesheet.unprotect Rows("17:23").Select Selection.RowHeight = 25.5 activesheet. protect End Sub لكن لو في باس ورد اضفها للسطرين activesheet.unprotect activesheet. protect كما شرح لك اخي الاستاذ / حمادة عمر وعن تساؤلك عن الحماية سوف تتم الغاء الحماية مؤقتا حتي تنفيذ الكود وترجع مرة اخري في نهاية الكود قبل السطر End Sub

السلام عليكم الاخ الكريم / ابو علام بارك الله فيك وبعد اذن اخي / عزيز عرابي ... جزاه الله خيرا ولتوضيح الحل الخاص به ... ولاثراء الموضوع ستقوم بوضع السطر التالي في بداية الكود ... ليتم ازاله الحمايه من علي الشيت ويمكن ان تكتب باسورد او لا ... حسب رغبتك .... وفي السطر التالي الباسورد 1 ... وكما سبق ذكره يمكنك الغاؤه ليكون السطر كما ذكر الاخ / عزيز وبذلك تكون قد قمت بالغاء الحمايه من علي الصفحة ليعمل الكود كما تريد ActiveSheet.Unprotect "1" ثم في نهاية الكود ضع السطر التالي ... لاعادة الحمايه علي الشيت مرة اخري بنفس الباسورد ActiveSheet.Protect "1" وبذلك يعمل معك الكود كما تريد تماما ... وتصبح الصفحة محميه كما تريد جزاك الله خيرا

أخي الكريم ممكن تضيف سطر لفك حماية الورقة ضمن الكود نفسه ليتم السماح باجراء الاوامر الموجودة ضمن الكود و هذا السطر هو activesheet.unprotect و إن احبب زودنا بالكود لاضافة هذا السطر مع التوفيق

اولا اخي لك دعوة طيبة منا هنا http://www.officena.net/ib/index.php?showtopic=41520 واما سؤالك فالجواب ان كلا الطريقتين ممكنة انظر المثال المرفق : عداد تنازلي ويمكنك جعله تصاعديا بتغيير العلامة + إلى - عداد تنازلي.rar

طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة (((( تابع / الدرس الاول )))) مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) جزاكم الله خيرا طريقة عمل فاتورة ووضع اكوادها1اكسيل .rar

اخي الكريم / شوقي ربيــع موضوع في غاية الروعة تسلم ايديك وجزاك الله خيرا والشكر موصول للاستاذ / عبدالله المجرب واخي الاستاذ/ حمادة عمر علي الشروحات الرائعة

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

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

السلام عليكم استاذ شوقي تسلم ايدك فكرة جميلة جدا . الفيديوهات لم تعمل معي اظن السبب مشكلة عندي , لكن فكرة جميلة فعلا . تقبل تحياتي

جزاك الله خيرا على هذا المجهود ولزيادة الخير يوجد جدول العرف 7 لمن يريد ان يبحث عنه في النت عملي جدا

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

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