عبدالله المجرب

اخي ريان هل تقصد ان تظهر لك فورم بها الاعمدة من A الى AQ ثم تختار الاعمدة التي تريد ترحيلها وما شكل لصق البيانات المرحلة (هل جنب بعض ام ماذا)

اختي أم عبدالله هذا التعديل يناسب ماطلبتي Function SplitNim(Cel As Range) As String Dim Tt As String, RR As String, i As Integer, MyNum As String For i = 1 To InStr(Cel, " ") - 1 Select Case Mid$(Cel, i, 1) Case Is = "ه" Tt = Tt & RR & Mid$(Cel, i, 1) & "ـ" RR = " " Case Else Tt = Tt & RR & Mid$(Cel, i, 1) RR = " " End Select Next MyNum = Mid$(Cel, InStr(Cel, " ") + 1, Len(Cel) - InStr(Cel, " ")) SplitNim = Tt & RR & MyNum End Function

السلام عليكم الاستاذ الفاضل عبدالله باقشير شكراً لمرورك وتشريفك وتشجيعك المتواصل

السلام عليكم في المرفق في الخان الحمراء اكتب اي رقم غير 1 - 2 - 3 ثم اكتب 1 او 2 او 3 ولاحظ النتيجة اشارة سالب.rar

شكراً لك اخي حمادة على التشجيع

جرب هذا الرابط http://www.officena.net/ib/index.php?showtopic=45187

جرب هذه الطريقة في محرر الاكواد من قائمة Tools ثم Option من تاب Editor Format ثم Font اختر نوع الخط هذا Courier New (Arabic)

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

شكراً لمرورك استاذ مجدي حياك الله اخي الكريم وارجو منك زيارة هذا الرابط http://www.officena.net/ib/index.php?showannouncement=21&f=89

بارك الله فيك استاذ بن عليه

السلام عليكم شاهد هذه الصورة من ملفك لاعداد اللغة جرب الاتي 1. اذهب الى Start ثم Settings 2 . اختر Control Panel 3. Regional And Language Options 4. من تبويب Advanced في خانة الاختيار اختر اللغة العربية 5. ثم OK

جربت الكود وهو يقوم بإنشاء شيت جديد اسمه (Master) ونسخ بيانات باقي الشيتات اليه (الاعمدة) والكود ينسخ القيم وليس المعادلات

السلام عليكم بداية نرجو الالتزام بقواعد المشاركة 1. العنوان غير مناسب 2. توجيه السوال لمجموعة محددة (يفهم منه التحدي وصعوبة السؤال) ============ هذه دالة معرفة لما تريد Function SplitNim(Cel As Range) As String Dim Tt As String, RR As String, i As Integer, MyNum As String For i = 1 To InStr(Cel, " ") - 1 Tt = Tt & RR & Mid$(Cel, i, 1) RR = " " Next MyNum = Mid$(Cel, InStr(Cel, " ") + 1, Len(Cel) - InStr(Cel, " ")) SplitNim = Tt & RR & String(4 - Len(MyNum), "0") & MyNum End Function شاهد المرفق (لابد من وجود مسافة بين الحروف والارقام) ارقام سيارات.rar

الحل في ضبط اللغة من اعدادات الويندوز

اخي احمد حالة الانذار تظهر للعضو فقط ويتم توضيح عدد الانذارات التي حصل عليها من المشرفين (في حال ارتكاب المخالفات)

احسنت أخي حمادة

السلام عليكم اخي لا يوجد انذار عليك وموضوعك هنا

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

السلام عليكم حالة الانذار هو شريط تدريجي من 10 درجات ويوضح عدد الانذارات التي حصل عليها العضو ولا تظهر الا للعضو نفسه فقط

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

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

بارك الله فيك استاذ محمود

الاضافة هي هذه الجزئية For i = 1 To 6 If Me.Controls("CheckBox" & i) Then Cells(LastRow, 4) = Cells(LastRow, 4) & T & Me.Controls("CheckBox" & i).Caption T = " + " End If Next السطر For i = 1 To 6 حلقة تكرارية تبداء من 1 الى 6 وهي عدد خانات الاختيار للالوان السطر If Me.Controls("CheckBox" & i) Then جملة شرطية اذا كانت قيمة خانة الاختيار ذات الرقم في الحلقة التكرارية صح (True) يتم تطبيق الشرط السطر Cells(LastRow, 4) = Cells(LastRow, 4) & T & Me.Controls("CheckBox" & i).Caption T = " + " تصبح قيمة الخلية التي في الصف الفاضي والعمود الرابع عبارة عن قيمة نفس الخلية بالاضافة الى العلامة + وعنوان خانة الاختيار السطر End If Next نهاية الشرط ونهاية حلقة التكرار ======== الحلقة الاخرى بنفس الفكرة بالضبط

شكراً لك اخي حمادة

وهذا إختصار للكود (تم تعديل تسلسل خانة الاختيار الخاصة بالاكسسوارات لتحمل الرقم 7 و 8 و 9) Private Sub CommandButton1_Click() LastRow = Cells(Rows.Count, "a").End(xlUp).Row + 1 Cells(LastRow, 1) = ComboBox1.Value Cells(LastRow, 2) = TextBox1.Value Cells(LastRow, 3) = TextBox2.Value For i = 1 To 9 If Me.Controls("CheckBox" & i) Then If i > 6 Then Cells(LastRow, 5) = Cells(LastRow, 5) & R & Me.Controls("CheckBox" & i).Caption R = " + " Else Cells(LastRow, 4) = Cells(LastRow, 4) & T & Me.Controls("CheckBox" & i).Caption T = " + " End If End If Next Unload Me End Sub New folder (3).zip