[حامد محمد]

(23-01-19, 07:06 PM)elgokr كتب :

وعليكم السلام ورحمة الله وبركاته

مرحباً اخى حامد محمد

تعال كده مع بعض نتخيل ان القيمة اللى بتتكلم عليها على هذا الشكل كمثال

كود :

Private Sub Command1_Click()
       Dim ss As String
       ss = "R3244444"

طيب لما ان القيمة ثابتة من حيث ان حرف R دائماً فى القيمة اى كانت الارقام التى تتاليها

وكل ما انت بحاجة اليه هو عرض الارقام بدون الحرف فكل ما عليك فعله هو اختيار احد الحلول التالية

كود :

       ' 1
       MsgBox (Mid(ss, 2, Len(ss)))
       ' 2
       MsgBox (Replace(ss, "R", ""))
       ' 3
       MsgBox (Split(ss, "R")(1))
       ' 4
       MsgBox (Right$(ss, Len(ss) - 1))

قم باختيار ما يناسبك من احد الاسطر المذكورة بالاعلى

حيث سيكون الناتج بالنهاية هو 3244444

تحياتى لك

وتمنياتى لك التوفيق

---

نفس الكود لو مافيش حرف R  \ كيف اضيفه بنفس الكود