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

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

أخى فى الله الأستاذ الحبيب // محمد ابو البراء أول من رحب بى بهذا المنتدى الكريم الزاخر بأعمال بأساتذته وبفيض عطائهم مما رزقهم الله اياه لجميع الأعضاء و بصراحه بعد كل ما قيل وما كتب لا أجد كلمات أسطرها ولكن سأذكر واقعة حدثت معى أمر يشهد عليه كل من يتصفح صفحات ومواقع الإنترنت وسأذكر الدليل على صحة كلماتى بكل بساطه أكتب فى محرك البحث اسمى وسيظهر لك صحه قولى وكل ما سأكتبه الأسم (( محمود زكى الشريف )) أو (( محمود الشريف )) أو إدخل على هذا الرابط http://demo.site-go.com/?action=search&search=176&gateway=articles&by=words&page=2 لى أكثر من 1500 مقاله وعمل وكتابات تم سرقتها بالكامل ولم يترك لى إلا القليل كنت أعمل بمجال الدعوة الى الله بعده مواقع إسلامية عديدة تم سرقة كل ما نشر ونسب لغيري فقط لكونهم من أصحاب وأهواء المنابر البراقة ومعظم أعمال الباور البوينت الإسلامية بمواقع الإنترنت فهى لى فى الأساس ومعظم التجميعات والأرشفة الخاصة بالفتاوى وكل ما يتعلق بديننا الحنيف للعبد الفقير الى الله بدء من آواخر عام 2005 وحتى آواخر عام 2008 عمل وجهد متواصل وسهر بالليل فى محاولة جاده ومجاهده مع النفس لنشر الدعوة الحقيقية بشكل مبسط ميسر يتقبله الجميع فوالله الذى نفسى بيده ما نسبت لنفسى شىء ليس من جهدى .. ولكن إحتسبت كل ما صنعته وقمت به عند رب العالمين الذى لا تضيع عنده الحقوق وهذا الأمر أحزننى كثيرا ومرضت فترة وتغيبت عن المنتدى ويمكن البعض لاحظ غيابى لفترة عن المنتدى أكثر من 60 يوم متواصل وقيلت لى جملة لن أنساها طوال حياتى من شيخى ومن معلمى الأستاذ // مدحت جمال الذى أكن له كل احترام وتقدير وفضل ____ بعد الله ورسوله محمد بن عبد الله شيخ الأمه ومعلمها الأول صلوات ربى وتسليمه عليه وعلى آل بيته الأطهار الجمله نصيا وحرفيا إعلم يا بنى أنه ما أصعب وأشد من أن تطيع الله فيمن عصى الله فيك وذكرنى بقصة أبو الأنبياء سيدنا ابراهيم عليه السلام .... أمره الله فى أن يكون برا بوالديه وأن لا يقول لهم أف ولا ينهرهما وقل لهم قولا لينا وصاحبهما فى الدنيا معروفا والكل يعلم هذه القصة فأصنع الخير أخى الكريم والجزاء عند من بيده الجزاء وأعتذر للإطاله أخى الكريم وأسأل الله عز وجل الهداية لما فيه الصواب لكم وتقبل منى وافر الإحترام والتقدير

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

السلام عليكم تفضل أخى مثال.rar

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اطلب المسامحة ممن راسلني ولم يجد رد مني هديتي لكم بعد هذه الغيبة Option Explicit '========================================================" ' بسم الله الرحمن الرحيم " '========================================================" ' (دالة تحويل الرقم الى نص باللغة العربية (تفقيط " ' kh_TextNum " '========================================================" 'Num الرقم " '========================================================" 'sex جنس العملة " 'FALSE ( فارغ او صفر مذكر ) " 'TRUE ( أو اي رقم غير الصفر مؤنث ) " '========================================================" 'sNameCurr اسم العملة الرئيسية مفرد " 'pNameCurr اسم العملة الرئيسية جمع " 'NameCurrDec اسم العملة الكسرية " 'Decimal_Count طول الكسر افتراضـياً : بدون اظهار الكسر " '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" ' ملاحظات ' (اولاً : العملة الرئيسية مثنى (يقوم بها الكود تلقائيا ' مع ملاحظة اذا اسم العملة ينتهي بالتاء المربوطة ' يجب ان يكتب كذلك وليس بالهاء ' ----------------------- ' ثانياً : اذا كانت العملة الرئيسية مفرد فارغاً تعتبر ' اسماء العملات (الجمع والكسري) فارغة تلقائيا ' ----------------------- 'ثالثاً : الكلمة الابتدائية بامكانك تغييرها او تجعلها فارغة Private Const MyBegTx As String = "فقط " ' "" ' ----------------------- ' MyTNum رابعا : يمكنك التغيير (اضافة,حذف,تحرير) في الثابت ' للفئات الصفرية للرقم ادناه Private Const MyTNum As String = "ألف-آلاف/مليون-ملايين/مليار-مليارات/بليون-بلايين/بليار-بليارات/ترليون-ترليونات/تريليار-تريليارات/كدرليون-كدرليونات" '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" Function kh_TextNum(Num As String, Optional sex As Boolean = False, Optional sNameCurr As String = "", Optional pNameCurr As String = "", Optional NameCurrDec As String = "", Optional Decimal_Count As Byte = 2) As String Dim Spp, zt Dim i%, ii%, pr% Dim MyMid$, nCurr$, Txt$, Txt1$, Txt2$ '====================================== If Not IsNumeric(Num) Then GoTo kh_Exit Spp = Split("/" & MyTNum, "/") ii = UBound(Spp) If Num < 0 Then Num = Abs(Num) '====================================== If Val(Num) > Val(String((ii + 1) * 3, "9") & ".999") Then GoTo kh_Exit '====================================== nCurr = sNameCurr & "-" & IIf(pNameCurr = "", sNameCurr, IIf(sNameCurr = "", "", pNameCurr)) '====================================== Txt1 = Format(Num, String((ii + 1) * 3, "0") & ".000") For i = 0 To ii MyMid = Mid(Txt1, (i * 3) + 1, 3) If MyMid Then zt = Mid(Txt1, (i * 3) + 4, Len(Txt1)) zt = IIf(ii - i, Int(zt), zt) Txt2 = IIf(ii - i, Trim(Spp(ii - i)), nCurr) pr = 1 + IIf(ii - i, 1, CInt(sex)) Txt = Txt & IIf(Len(Txt), " و", "") & kh_nText(MyMid, Txt2, pr, zt, CBool(sNameCurr <> "")) End If If i = ii Then If MyMid = 0 Then Txt = Txt & IIf(Len(Txt), " ", "صفر ") & sNameCurr Next '====================================== Txt = MyBegTx & Txt & kh_dText(Num, sNameCurr, NameCurrDec, Decimal_Count) '====================================== kh_Exit: kh_TextNum = Trim(Txt) End Function ' معالجة العدد من 1 الى 999 لكل فئات الرقم Private Function kh_nText(ByVal iNum As String, ByVal oMm As String, ByVal ibs As Integer, ByVal z As Boolean, ByVal tCu As Boolean) As String Dim Sp Dim Num1%, Num2%, Num3% Dim oM$, S$, S1$, nT$, nT0$, nT1$, nT2$ '====================================== Sp = Split("واحد,إحدى,اثنتان,ثلاث,أربع,خمس,ست,سبع,ثمان,تسع,عشر,إحدى ,اثنتا ", ",") '====================================== If ibs Then S = "ة": Sp(1) = Sp(0): Sp(2) = "اثنان": Sp(11) = "أحد ": Sp(12) = "اثنا " Else S1 = "ة" oM = Trim(Split(oMm, "-")(0)) '====================================== Num1 = Left(iNum, 1) Num2 = Right(iNum, 2) Select Case Num1 Case 1: nT0 = "مائة" Case 2: nT0 = "مائتا" & IIf(ibs = 2, IIf(Num2 < 3, "", "ن"), IIf(Num2 = 0 And oM <> "", "", "ن")) Case 3 To 9: nT0 = Sp(Num1) & "مائة" End Select '========================================= Num1 = Right(iNum, 2) Select Case Num1 Case 1, 2: If nT0 <> "" Then If ibs = 2 Then nT0 = nT0 & " " & oM Case 11 To 99: If oM <> "" Then If ibs Then If z Then oM = oM & "اً" End Select '----------------------------------------- Select Case Num1 Case 1 nT = IIf(oM = "", Sp(0) & S1, oM) oM = IIf(ibs <> 2 And oM <> "", Sp(0) & S1, "") Case 2 nT = IIf(oM = "", Sp(Num1), Replace(oM, "ة", "ت") & IIf(z = 0 And ibs = 2 And tCu, "ا", "ان")) oM = IIf(ibs <> 2 And oM <> "", Sp(Num1), "") Case 3 To 10 oM = Trim(Split(oMm, "-")(1)) nT = Sp(Num1) & S Case 11, 12 nT = Sp(Num1) & Sp(10) & S1 Case 13 To 19 nT = Sp(Num1 - 10) & S & " " & Sp(10) & S1 Case 20 To 99 Num2 = Right(Num1, 1) Num3 = Left(Num1, 1) If Num3 = 2 Then nT1 = "عشرون" Else nT1 = Sp(Num3) & "ون" nT2 = Sp(Num2) & IIf(Num2 > 2, S, "") & " و" & nT1 If Num2 = 0 Then nT2 = nT1 nT = nT2 End Select '====================================== S = IIf(nT = "" Or iNum < 100, "", " و") nT = Replace(nT, Sp(8) & "ة", Sp(8) & "ية") kh_nText = Trim(nT0 & S & nT & " " & oM) '====================================== End Function ' معالجة الكسر Private Function kh_dText(ByVal dNum As String, ByVal NCur As String, ByVal Ndec As String, ByVal co As Byte) As String Dim Td$, Td1$ On Error GoTo 1 If NCur = "" Then Ndec = "" Td = Format(Round(CCur(dNum - Int(dNum)), co), "0." & String(co, "0")) If Td = 0 Or Td = 1 Then Td1 = "": GoTo 1 If Len(Ndec) Then Ndec = " " & Ndec: Td1 = Td * CVar("1" & String(co, "0")) Else Ndec = " " & NCur: Td1 = Td Td1 = " و " & Chr(40) & Td1 & Chr(41) & Ndec 1: kh_dText = Td1 End Function دالة تحويل الرقم الى نص عربي.rar ================================================= الملف المعدل: هذا المرفق بامكانية تفقيط الكسر وامكانية ادخال كلمة نهاية النص دالة تحويل الرقم الى نص عربي.rar ================================================= رابط مباشر للملف

السلام عليكم اريد ان استخدم دالة الموجودة في الاكسل وهي vlookup اريد مثل استخدامها في الاكسس وبصراحة ماريده هو مريع نص تضع فيه رقم مثل اسم الطالب ستظهر معومات الطالب البقية مثل درجاته وغيابته في مربعات نص مقابلة له

السلام عليكم اعداد تقرير من نطاق معين اتوماتيكيا عن طريق فورم لاختيار رؤوس الاعمدة التي تريده في التقرير ما عليك سوى تغيير اسم الورقة والعمود الذي يعين آخر صف في النطاق والنطاق هنا: Private Sub kh_MyRngSet() Dim Last As Long '======================== ' تعيين النطاق ويشمل رؤوس الاعمدة With Sheets("قاعدة البيانات") Last = .Range("C" & .Rows.Count).End(xlUp).Row Set MyRng = .Range("A2:Z" & Last) End With '======================== Num = MyRng.Columns.Count End Sub وتعيين اول صف في ورقة التقرير هنا: '======================== ' اول صف للتقرير Const iRow As Integer = 3 '======================== خبور خير اعداد تقرير حسب اختيار الاعمدة اتوماتيكيا.rar

السلام عليكم استخراج الشهادات مع اضافة صور للطلبة ============================= الصور في فولدر photo في نفس فولدر ملف الاكسل وتسمى بحسب تسلسل الطلبة ويمكنك تعيين العمود الذي توضع فيه الصورة في الجزئية الجديدة التالية من الكود ' رقم عمود وضع صورة الطالب Const STPic As Integer = 15 ============================= ويمكنك تغيير اعدادات الكود بشكل عام من هنا '*********************************************** '*********************************************** ' اسم ورقة الشهادات Const ShName As String = "الشهادات" ' رقم اول صف للشهادة Const FirstRow As Integer = 12 ' عدد صفوف الشهادة Const CountRow As Integer = 12 'عدد اعمدة الشهادة التي تريد اظهارها في الطباعة Const CountColumn As Integer = 15 ' خلية موقع الطالب لمعادلات الشهادة Const Range_Index As String = "A12" ' رقم عمود وضع صورة الطالب Const STPic As Integer = 15 '===================================== ' اسم ورقة البيانات Const Sh As String = "بيانات اساسية" ' نطاق ناجح دور ثاني في ورقة البيانات Const MyND As String = "BK10:BK1000" ' نطاق الاسماء في ورقة البيانات Const MyNSearch As String = "B10:B1000" '===================================== ' خلية عدد كل المتقدمين Const CountAll As String = "C3" ' خلية عدد الناجحين Const CountNA As String = "C4" ' كلمة البحث عن الناجحين Const NA_G As String = "ناجح" ' خلية عدد دور ثاني Const CountDT As String = "C5" ' كلمة البحث عن دور ثاني Const DT_G As String = "دور تان" '************************************************ '************************************************ شهادات جديد مع اضافة صور للطلبة.rar

السادة / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته أهدى لكم ملف باور بوينت امتداد pps عن احكام الصيام بمناسبة قرب شهر رمضان المبارك أسأل الله لى ولكم أن يبلغنا رمضان وكل عام وأنتم بخير تقبلوا منى وافر الإحترام والتقدير 353.rar

السادة / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته ،، إليكم معظم إختصارات الباور بوينت التنقل بين الأجزاء F6 التنقل بين أجزاء العرض العادي باتجاه حركة عقارب الساعة SHIFT+F6 التنقل بين أجزاء العرض العادي بعكس اتجاه حركة عقارب الساعة CTRL+SHIFT+TAB التبديل بين علامات التبويب الشرائح ومخطط تفصيلي لأجزاء المخطط التفصيلي والشرائح في العرض العادي إنشاء عروض تقديمية وتحريرها CTRL+N إنشاء عرض تقديمي جديد CTRL+M إدراج شريحة جديدة CTRL+D إجراء نسخة من الشريحة المحددة CTRL+O فتح عرض تقديمي CTRL+W إغلاق عرض تقديمي CTRL+P طباعة عرض تقديمي CTRL+S حفظ عرض تقديمي F5 تشغيل عرض تقديمي ALT+F4 إنهاء PowerPoint CTRL+F بحث عن نص CTRL+H استبدال نص CTRL+K إدراج ارتباط تشعبي F7 التدقيق الإملائي ESC إلغاء إجراء قائمة أو مربع الحوار CTRL+Z التراجع عن إجراء CTRL+Y إعادة أو تكرار إجراء العمل ضمن مخطط تفصيلي ALT+SHIFT+السهم إلى اليمين ترقية فقرة (فقرة: نص توجد في نهايته علامة رجوع إلى السطر التالي، مثل التي تظهر عند ضغط ENTER. ويعتبر كل عنصر في قائمة نقطية أو مرقّمة فقرة؛ ويعتبر العنوان أو العنوان الفرعي فقرة أيضاً. ) ALT+SHIFT+السهم إلى اليسار تخفيض فقرة ALT+SHIFT+السهم إلى الأعلى تحريك الفقرات المحددة إلى الأعلى ALT+SHIFT+السهم إلى الأسفل تحريك الفقرات المحددة إلى الأسفل ALT+SHIFT+1 إظهار المستوى 1 للعنوان ALT+SHIFT+المفتاح (+) توسيع النص في أسفل عنوان ALT+SHIFT+المفتاح (-) طي النص في أسفل عنوان ALT+SHIFT+A إظهار كافة النصوص والعناوين أو طيّها خط مائل (/) على لوحة المفاتيح الرقمية تشغيل تنسيق الأحرف أو إيقاف تشغيله العمل مع الأشكال والصور وWordArt إدراج شكل 1. اضغط ALT+U لاختيار شكل تلقائي على شريط الأدوات (شريط أدوات: شريط مع أزرار وخيارات تستخدمه لتنفيذ الأوامر. لعرض شريط أدوات، استخدم مربع الحوار تخصيص (أشر إلى أشرطة أدوات على القائمة عرض وانقر فوق تخصيص). لرؤية المزيد من الأزرار، انقر فوق خيارات شريط الأدوات عند نهايته.) رسم. 2. استخدم مفاتيح الأسهم للتنقل ضمن فئات الأشكال التلقائية (أشكال تلقائية: مجموعة من أشكال جاهزة تتضمن أشكالاً أساسية مثل المستطيلات والدوائر، إضافة إلى تشكيلة من الخطوط والروابط، والأسهم الممتلئة، ورموز المخططات الانسيابية، والنجوم والشعارات، ووسائل الشرح. )، وحدد الشكل التلقائي المطلوب. 3. اضغط CTRL+ENTER. ملاحظة لتحرير الشكل التلقائي، حدده ثم استخدم لوحة المفاتيح لاختيار شكل تلقائي في قائمة تنسيق. حدد الخيارات التي تريد في علامات التبويب المتوفرة. إدراج مربع نص 1. استخدم لوحة المفاتيح لاختيار مربع نص في قائمة إدراج. 2. اضغط CTRL+ENTER 3. اكتب النص المطلوب في مربع النص (مربع نص: حاوية نص أو رسومات قابلة لنقلها وتغيير حجمها. استخدم مربعات النص هذه لتعيين موضع كتل من النص على صفحة ما أو لإعطاء النص اتجاهاً مختلفاً عن نص آخر في المستند.). 4. إذا أردت أن تنتقل من جديد إلى تحرير النص في الشريحة، وذلك بعد أن تنتهي من الكتابة، اضغط SHIFT+F10، واختر إنهاء تحرير النص في القائمة المختصرة، ثم اضغط ESC. ملاحظة لتنسيق مربع نص (لتغيير لون التعبئة أو تغيير الشكل، مثلاً) حدد مربع النص، واختر مربع نص في قائمة تنسيق، ثم حدد الخيارات المطلوبة على علامات التبويب المتوفرة. إدراج WordArt 1. استخدم لوحة المفاتيح لاختيار WordArt في قائمة إدراج، القائمة الفرعية صورة. 2. استخدم مفاتيح الأسهم لتحديد نمط WordArt (‏WordArt: كائنات نصية تنشئها باستخدام تأثيرات جاهزة ويمكنك تطبيق خيارات تنسيق أخرى عليها.) المطلوب، ثم اضغط ENTER. 3. اكتب النص المطلوب، ثم استخدم المفتاح TAB لتحديد خيارات أخرى في مربع الحوار. 4. اضغط ENTER لإدراج كائن WordArt. ملاحظة لتحرير كائن WordArt، حدد الكائن، واختر WordArt في قائمة تنسيق، ثم حدد الخيارات المطلوبة على علامات التبويب المتوفرة. تحديد شكل ملاحظة إذا كانت نقطة الإدراج ضمن النص، فاضغط ESC. نفّذ أحد الإجراءين التاليين: • تحديد شكل واحد لتحديد شكل واحد، اضغط المفتاح TAB للانتقال إلى الأمام (أو SHIFT+TAB للانتقال إلى الوراء) عبر الكائنات حتى ظهور مقابض تغيير الحجم على الكائن الذي تريد تحديده. • تحديد أكثر من شكل واحد 1. أضف الزر تحديد كائنات متعددة إلى شريط الأدوات رسم إذا لم يكن موجوداً عليه. كيف؟ 1. اضغط ALT+F، ثم CTRL+TAB إلى أن يتم تحديد شريط الأدوات رسم. 2. اضغط مفتاح السهم إلى اليمين حتى تصل إلى السهم أزرار إضافية. 3. اضغط مفتاح السهم إلى الأسفل. فتظهر القائمة إضافة أو إزالة الأزرار. 4. اضغط مفتاح السهم إلى الأسفل، ومفتاح السهم إلى اليمين، ثم اضغط TAB حتى تصل إلى الزر تحديد كائنات متعددة، ثم اضغط ENTER. *. على شريط الأدوات رسم، انقر فوق تحديد كائنات متعددة . *. حدد خانة الاختيار بجانب الكائن أو الكائنات المطلوبة، ثم انتقل إلى موافق واضغط ENTER. تجميع أو فك تجميع كائنات الأشكال, والصور, وWordArt • لتجميع كائنات الأشكال التلقائية (أشكال تلقائية: مجموعة من أشكال جاهزة تتضمن أشكالاً أساسية مثل المستطيلات والدوائر، إضافة إلى تشكيلة من الخطوط والروابط، والأسهم الممتلئة، ورموز المخططات الانسيابية، والنجوم والشعارات، ووسائل الشرح. ), أو الصور (صورة: ملف (مثل ****file) يمكنك فك تجميعه ومعالجته ككائنين أو أكثر، أو هو ملف يبقى ككائن مفرد (مثل الصور النقطية).), أو WordArt (‏WordArt: كائنات نصية تنشأ باستخدام تأثيرات جاهزة مع إمكانية تطبيق خيارات تنسيق أخرى عليها.), حدد العناصر التي تريد تجميعها ثم اضغط على المفاتيح CTRL+SHIFT+G. • لفك تجميع مجموعة, حدد المجموعة, ثم اضغط على المفاتيح CTRL+SHIFT+H. إجراء استدارة لشكل، أو صورة، أو WordArt 1. حدد الشكل التلقائي (أشكال تلقائية: مجموعة من أشكال جاهزة تتضمن أشكالاً أساسية مثل المستطيلات والدوائر، إضافة إلى تشكيلة من الخطوط والروابط، والأسهم الممتلئة، ورموز المخططات الانسيابية، والنجوم والشعارات، ووسائل الشرح. )، أو الصورة (صورة: ملف (مثل ****file) يمكنك فك تجميعه ومعالجته ككائنين أو أكثر، أو هو ملف يبقى ككائن مفرد (مثل الصور النقطية).)، أو WordArt (‏WordArt: كائنات نصية تنشأ باستخدام تأثيرات جاهزة مع إمكانية تطبيق خيارات تنسيق أخرى عليها.) الذي تريد إجراء استدارة له. 2. في قائمة تنسيق، استخدم لوحة المفاتيح لاختيار الأمر المتعلق بنوع الكائن الذي حددته — مثلاً، شكل تلقائي أو مربع نص — ثم حدد علامة التبويب الحجم. 3. ضمن حجم واستدارة، استخدم المفتاح TAB لتحديد استدارة، ثم اكتب قدر الاستدارة المطلوبة. 4. لمعاينة الاستدارة، اختر معاينة. قد يترتّب عليك تحريك مربع الحوار لكي تتمكّن من المعاينة. إظهار الشبكة أو خطوط الإرشاد أو إخفاؤها SHIFT+F9 إظهار أو إخفاء الشبكة (شبكة: مجموعة من الخطوط المتقاطعة المستخدمة لمحاذاة الكائنات.) ALT+F9 إظهار أو إخفاء خطوط الإرشاد (خطوط الإرشاد: خطوط مستقيمة غير مطبوعة، وتكون عمودية وأفقية، تستخدم لمحاذاة الكائنات بطريقة مرئية.) CTRL+G تغيير إعدادات الشبكة أو خطوط الإرشاد تغيير موضع شكل، أو صورة، أو WordArt على شريحة 1. حدد الشكل التلقائي (أشكال تلقائية: مجموعة من أشكال جاهزة تتضمن أشكالاً أساسية مثل المستطيلات والدوائر، إضافة إلى تشكيلة من الخطوط والروابط، والأسهم الممتلئة، ورموز المخططات الانسيابية، والنجوم والشعارات، ووسائل الشرح. )، أو الصورة (صورة: ملف (مثل ****file) يمكنك فك تجميعه ومعالجته ككائنين أو أكثر، أو هو ملف يبقى ككائن مفرد (مثل الصور النقطية).) أو WordArt (‏WordArt: كائنات نصية تنشأ باستخدام تأثيرات جاهزة مع إمكانية تطبيق خيارات تنسيق أخرى عليها.) الذي تريد تغييره. 2. في قائمة تنسيق، استخدم لوحة المفاتيح لاختيار الأمر المتعلق بنوع الكائن الذي حددته — مثلاً، شكل تلقائي أو مربع نص — ثم حدد علامة التبويب موضع. 3. ضمن الموضع على الشريحة حدد الخيارات المطلوبة. 4. لمعاينة التغيير، اختر معاينة. قد يترتّب عليك تحريك مربع الحوار لكي تتمكّن من المعاينة. تغيير حجم شكل، أو صورة، أو WordArt 1. حدد الشكل التلقائي (أشكال تلقائية: مجموعة من أشكال جاهزة تتضمن أشكالاً أساسية مثل المستطيلات والدوائر، إضافة إلى تشكيلة من الخطوط والروابط، والأسهم الممتلئة، ورموز المخططات الانسيابية، والنجوم والشعارات، ووسائل الشرح. )، أو الصورة (صورة: ملف (مثل ****file) يمكنك فك تجميعه ومعالجته ككائنين أو أكثر، أو هو ملف يبقى ككائن مفرد (مثل الصور النقطية).)، أو WordArt (‏WordArt: كائنات نصية تنشأ باستخدام تأثيرات جاهزة مع إمكانية تطبيق خيارات تنسيق أخرى عليها.) الذي تريد تغييره. 2. في قائمة تنسيق، استخدم لوحة المفاتيح لاختيار الأمر المتعلق بنوع الكائن الذي حددته — مثلاً، شكل تلقائي أو مربع نص — ثم حدد علامة التبويب الحجم. 3. حدد الخيارات المطلوبة. 4. لمعاينة التغييرات، اختر معاينة. قد يترتّب عليك تحريك مربع الحوار لكي تتمكّن من معاينة الكائن الرسومي. نسخ سمات شكل 1. حدد الشكل التلقائي (أشكال تلقائية: مجموعة من أشكال جاهزة تتضمن أشكالاً أساسية مثل المستطيلات والدوائر، إضافة إلى تشكيلة من الخطوط والروابط، والأسهم الممتلئة، ورموز المخططات الانسيابية، والنجوم والشعارات، ووسائل الشرح. ) الذي تتوفر فيه السمات (سمة: ميزة كائن أو نص، مثل تعبئة خط الرسم أو لون النص، يمكنك التعامل معها باستخدام أدوات الرسم وأوامر القوائم.) التي تريد نسخها. إذا حددت شكلاً تلقائياً ذا نص مرفق، فأنت تنسخ مظهر النص ونمطه بالإضافة إلى سمات الشكل التلقائي. 2. اضغط CTRL+SHIFT+C لنسخ سمات الكائن. 3. اضغط المفتاح TAB أو SHIFT+TAB لتحديد الكائن الذي تريد نسخ السمات إليه. 4. اضغط CTRL+SHIFT+V. تحديد النصوص والكائنات SHIFT+السهم إلى اليمين حرف واحد إلى اليمين SHIFT+السهم إلى اليسار حرف واحد إلى اليسار CTRL+SHIFT+السهم إلى اليمين إلى بداية كلمة CTRL+SHIFT+السهم إلى اليسار إلى نهاية كلمة SHIFT+السهم إلى الأعلى سطر واحد إلى الأعلى SHIFT+السهم إلى الأسفل سطر واحد إلى الأسفل ESC كائن (مع نص محدد ضمن الكائن) TAB أو SHIFT+TAB إلى أن يتم تحديد الكائن المطلوب كائن (مع كائن محدد) ENTER نص ضمن كائن (مع كائن محدد) CTRL+A (في التبويب "الشرائح") كل الكائنات CTRL+A (في عرض فارز الشرائح) كل الشرائح CTRL+A (في التبويب مخطط تفصيلي) كامل النص حذف نصوص وكائنات أو نسخها BACKSPACE حذف حرف واحد إلى اليمين CTRL+BACKSPACE حذف كلمة واحدة إلى اليمين DELETE حذف حرف واحد إلى اليسار CTRL+DELETE حذف كلمة واحدة إلى اليسار CTRL+X قص الكائن المحدد CTRL+C نسخ الكائن المحدد CTRL+V لصق الكائن المقصوص أو المنسوخ CTRL+Z التراجع عن الإجراء الأخير التنقل ضمن نص السهم إلى اليسار حرف واحد إلى اليسار السهم إلى اليمين حرف واحد إلى اليمين السهم إلى الأعلى سطر واحد إلى الأعلى السهم إلى الأسفل سطر واحد إلى الأسفل Ctrl+السهم إلى اليسار كلمة واحدة إلى اليسار Ctrl+السهم إلى اليمين كلمة واحدة إلى اليمين End إلى نهاية السطر Home إلى بداية السطر Ctrl+السهم إلى الأعلى فقرة واحدة إلى الأعلى Ctrl+السهم إلى الأسفل فقرة واحدة إلى الأسفل Ctrl+end إلى نهاية المربع النصي (مربع نص: حاوية نص أو رسومات قابلة لنقلها وتغيير حجمها. استخدم مربعات النص هذه لتعيين موضع كتل من النص على صفحة ما أو لإعطاء النص اتجاهاً مختلفاً عن نص آخر في المستند.) Ctrl+home إلى بداية مربع نص Ctrl+enter إلى العنوان أو العنصر النائب (عناصر نائبة: المربعات ذات الحدود المنقّطة أو المظلّلة والتي تعتبر جزءاً من غالبية تخطيطات الشريحة. تتضمن هذه المربعات العنوان والنص الأساسي أو الكائنات مثل التخطيطات، والجداول، والصور.) للنص الأساسي التالي. إذا كان هذا هو العنصر النائب الأخير على الشريحة، فسيدرج شريحة جديدة باستخدام تخطيط الشريحة الأصلية نفسه. Shift+f4 لتكرار إجراء البحث الأخير التنقل ضمن الجداول والعمل فيها Tab الانتقال إلى الخلية التالية Shift+tab الانتقال إلى الخلية السابقة السهم إلى الأسفل الانتقال إلى الصف التالي السهم إلى الأعلى الانتقال إلى الصف السابق Ctrl+tab إدراج علامة جدولة في خلية Enter بدء فقرة (فقرة: نص توجد في نهايته علامة رجوع إلى السطر التالي، مثل التي تظهر عند ضغط Enter. ويعتبر كل عنصر في قائمة نقطية أو مرقّمة فقرة؛ ويعتبر العنوان أو العنوان الفرعي فقرة أيضاً. ) جديدة Tab عند نهاية الصف الأخير إضافة صف جديد في أسفل الجدول تنسيق الأحرف والفقرات ومحاذاتها تغيير الخط أو تغيير حجمه Ctrl+shift+f تغيير الخط Ctrl+shift+p تغيير حجم الخط Ctrl+shift+>‎ زيادة حجم الخط Ctrl+shift+

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

السلام عليكم حسب فهمي للموضوع انك تريد ان تستدعي حسب الشهر في الخلية b1 اذا كان كذلك يكفي هذا Sub saad2222() Dim cc As Worksheet, ccc As Worksheet Dim H As Long, G As Long Set ccc = Sheets("يومية") Set cc = Sheets("اليومية الامريكية") RR = ccc.Range("b" & Rows.COUNT).End(xlUp).Row Application.ScreenUpdating = False Application.Calculation = xlCalculationManual cleardata G = 6 For H = 4 To RR If ccc.Cells(H, 13).Value = cc.Range("b1").Value Then cc.Cells(G, 2) = ccc.Cells(H, 2) cc.Cells(G, 3) = ccc.Cells(H, 4) cc.Cells(G, 4) = ccc.Cells(H, 5) G = G + 1 End If Next '======================================== Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub تحياتي

السلام عليكم ورحمة الله وبركاته ترتيب العشرة الاوائل حسب المجموع والعمر ادخل معطياتك بداية الكود '================================================== ' من نطاق البيانات '================================================== '''''''' اسم النطاق او عنوانه مع اسم الورقة Private Const MyRng As String = "RangDate" '''''''' ارقام الاعمدة من نطاق البيانات '''''''' :حسب الترتيب التالي '''''''' رقم الجلوس,الاسم,تاريخ الميلاد,الفصل '''''''' SeatNum,Name,Bridate,MyClass Private Const MyColumn As String = "1,2,4,3" '================================================== ' من ورقة الاوائل '================================================== '''''''' اول خلية لوضع لست الاوائل Private Const MyRngPast As String = "D7" '''''''' نطاق اسماء الفصول Private Const MyClass As String = "P7:P13" '''''''' نطاق اسماء المواد ومواقعها Private Const MyTotal As String = "R7:T19" '''''''' تنسيق التاريخ Private Const DateFormat As String = "yyyy/mm/dd" '================================================== '================================================== المرفق اكسل2003 اكسل2007 ترتيب العشرة الاوائل حسب المجموع والعمر.rar ======================================================= تم التعديل حسب ملاحظة ايسم ابراهيم ادناه المرفق اكسل 2003/2007 ترتيب العشرة الاوائل حسب المجموع والعمر1.rar 61.97K 0 عدد مرات التحميل

تماما استاذنا الفاضل حيث انني جعلت مستخدم الاوفيس غير مستخدم الويندوز وبذلك عرفت انه يجلب مستخدم الاوفيس بارك الله فيكم

السلام عليكم أخى الفاضل هذه بعض التعديلات أرجو أن تعجبك Sub نسخ() Set ws = Sheets("Sheet2") ws.UsedRange.Clear x = 4 LR = Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False Range("b" & x & ":h" & LR).Copy With ws .Range("b" & x).PasteSpecial xlPasteValues .Range("b" & x & ":h" & LR).PasteSpecial xlPasteFormats End With Application.CutCopyMode = False Application.ScreenUpdating = True Set ws = Nothing End Sub

السلام عليكم /اخي محمد اليك المطلوب مع التوفيق Book555,1.rar

السلام عليكم ورحمة الله وبركاته الاخوة الافاضل لدي معادل تفقيط لاتعمل فارجو منكم اصلاحها ومعرفتي بسبب عدم عملها ولكم جزيل الشكر المعادلة في الصف 7 والثانية في الصف 33 في شيت ظهر الاستمارة مرتبات1.rar

الأستاذ الفاضل / سليم حاصبيا السلام عليكم ورحمة الله وبركاته جزاك الله خيراً عمل رائع وفكر فنان مبدع جعله الله في ميزان حسناتك

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

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

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

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

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

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

http://www.youtube.com/watch?v=iO3nHkzxTSE

مشكله من لا يخاف الله يعمل كل شي

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

أخى فى الله الأستاذ الكريم // حسام الدين بارك الله فيكم ومشكور أخى الكريم على كلماتكم الطيبة فى حق منتديات أوفيسنا وفى حق أعضائها وأساتذتها وتقبل منى وافر الإحترام والتقدير

أخى فى الله الأستاذ // وليد زقزوق بعد إذن أستاذى القدير // رجب جاويش قم بتعديل كود حدث الـ Workbook Private Sub Workbook_Open() Workbooks.Application.ShowStartupDialog = False Workbooks.Application.DisplayAlerts = False Workbooks.Application.Visible = False UFormChang.Show End Sub وتقبل منى وافر الاحترام والتقدير

أخى الكريم الأستاذ // احمد 8 وبعد اذن الاستاذ الكريم // ابو ايمان مرفق لكم نموذج أولى عن بيانات الموظفين لحين وضع تصور خاص بكم للعمل عليه واستمارة الموظف وادخال البيانات عن طريق الفورم وامكانيات اخرى للإطلاع على الفورم واستخدامها يرجى تخفيض مستوى امان الماكرو لكى تعمل الاكواد وتقبل منى وافر الاحترام والتقدير mzmhr11.rar

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

إليكم أخى الكريم ما طلبتم كود لمنع النسخ واللصق والحذف يجب عليك خفض مستوى الامان للماكرو لكى تعمل الاكواد وتقبل منى وافر الاحترام والتقدير منع النسخ واللصق والحذف.rar

السادة / أعضاء منتدانا الحبيب المحترمين السلام عليكم ورحمه الله وبركاته ،،، أقدم لكم اليوم طريقة سهلة و مجربة لتحويل ملفات الوورد الى اكسل دون الحاجة لبرامج تحويل الملفات 1- إفتح ملف الورد المراد تحويله لإكسيل word .doc 2- قم بحفظة على صورة ملف بصيغة اتش تي ام ال أو صفحة إنترنت باسم الملف المراد تحويلة file / save as / web page format 3 – قم بفتح ملف اكسيل جديد open new xls 4- اضغط على فتح في قائمة ملف open /brwos/ select file 5- إختار الملف بصيغة الاتش تي ام ال السابق تحويله file html. 6- قم بحفظ الملف ذاته بأختيار صيغة اكسيل ورقة عمل باختيار احد صيغ الأكسيل باصداراته المراد انشاؤها file/ save as/ xls 97/2033. وبذلك يكون تم تحويل الملف ويمكن بسهولة التعديل عليه وعمل كافة الصيغ والمعادلات المطلوبه . أسأل رب العالمين أن وفقت فى شرح الطريقة وتقبلوا منى وافر الإحترام والتقدير

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

إخوانى فى الله السادة / أعضاء منتدانا الحبيب المحترمين ارسل لى هذا الكتاب الرائع عبر الإيميل ووجدته مفيدا جدا ( pdf ) وأضعه بين ايديكم نسأل الله عز وجل أن يستفيد منه أعضاء المنتدى وتقبلوا منى وافر الإحترام والتقدير برمجة اكسيل - تطبيقات متقدمة.rar

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

جزاك الله خيرا

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

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

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

السلام عليكم فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به اذا اردنا لون معين نقوم بالبحث العشوائي عن هذا اللون اوما يقاربه ثم نقوم بالتغيير عليه من الارقام الخاصة RGB حتى نوصل الى ما نريده تماما الناتج: كود RGB كود HEX كود MSA ويمكنك الاحتفاظ بهذه المعلومات في الشيت من زر اضافة معمول بالاكسل وبالفيجول بيسك الاكسل 2003-2010 فورم تكوين الوان مع المعلومات.rar بالفيجوال بيسك: RGB TO HEX.rar في امان الله

السلام عليكم ورحمة الله وبركاته الاخ الغالى / حماده عمر (ابو سما) بارك الله فيك ، سير على بركة الله أسأل الله أن يجعل أعملك كلها فى ميزان حسناتك أعمالك كلها تدل على سعة علمك ،وقدرتك على العطاء أسأل الله أن يسكنك جنة عندن

تفضل أخى استدعاء البيانات من عدة شيتات pc sales.rar

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

السلام عليكم Option Explicit ' بسم الله الرحمن الرحيم " ' ********************* " ' دالة استخراج النص او الارقام " '==============================================" ' False = مهمل او Kh_Number اذا كان " ' تقوم باستخراج النص " ' True = Kh_Number اذا كان " ' تقوم باستخراج الارقام " '==============================================" '----------------------------------------------------------------- Function Kh_Replace_Text(ByVal Kh_Sub As String, Optional Kh_Number As Boolean) Dim Num As Byte, C As Integer Dim Sn As String, Re As String, Md As String Sn = Trim(Kh_Sub) For Num = 0 To 9 Sn = Replace(Sn, Num, "") Next Num If Kh_Number Then Re = Trim(Kh_Sub) Do While C < Len(Trim(Sn)) C = C + 1 Md = Mid(Sn, C, 1) Re = Replace(Re, Md, "") Loop Kh_Replace_Text = CDbl(Re) Else Kh_Replace_Text = Trim(Sn) End If End Function دالة استخراج النص او الارقام.rar

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

السلام عليكم الاخ الفاضل / مصطفى الفيومي------ حفظه الله الاخ الحبيب/ محمدي عبد السميع------ حفظه الله جزاكما الله خيرا تقبلا تحياتي وشكري ==================================================== الاخ الحبيب/ طارق ------ حفظه الله جرب الدالة ادناه: اذا اردت الرقم العشري عين Kh_Point تساوي True او اي رقم غير الصفر مثلا: =Kh_Replace_Text($A4;1;1) منتظر ردك ==================================================== Option Explicit ' بسم الله الرحمن الرحيم " ' ********************* " ' دالة استخراج النص او الارقام " '==============================================" ' False = مهمل او Kh_Number اذا كان " ' تقوم باستخراج النص " ' True = Kh_Number اذا كان " ' تقوم باستخراج الارقام " ' ---------- " ' True = Kh_Point اذا كان " ' تقوم باستخراج الرقم العشري الاول " '==============================================" '----------------------------------------------------------------- Function Kh_Replace_Text(ByVal Kh_Sub As String, Optional Kh_Number As Boolean, Optional Kh_Point As Boolean) Dim Num As Byte, C As Integer Dim Sn As String, Re As String, Md As String Sn = Trim(Kh_Sub) For Num = 0 To 9 Sn = Replace(Sn, Num, "") Next Num If Kh_Number Then Re = Trim(Kh_Sub) Do While C < Len(Trim(Sn)) C = C + 1 Md = Mid(Sn, C, 1) If Kh_Point Then If Md = "." Then GoTo 1 Re = Replace(Re, Md, "") 1 Loop Kh_Replace_Text = Val(Re) Else Kh_Replace_Text = Trim(Sn) End If End Function ======================================================== دالة استخراج النص او الارقام1.rar

السلام عليكم دالة تفقيط الترتيب بدلا من 1 - 2 - 3 الى الاول - الثانى - الثالث ....... المائة الأولى - الثانية - الثالثة ....... المائة وهى تعمل للمذكر والمؤنث OrdinalNum_20060917.rar

إخواني الأعزاء هذا الملف به كود لفرز أوراق العمل حسب لون شريط العنوان للأوراق و فرز آخر حسب أسماء الأوراق هجائياً تصاعدياً وتنازلياً . تقبلوا تحياتي . GROUP_SHEETS_BY_COLOR_AND_SORT_SHEETS.rar