توزيع الشفتات

[حسام محمد احمد حمدان]

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

اما بعد

اخواني اريد طريقة لتغيير الشفت من A الى B وبالعكس بطريقة الفيجوال بيسك مع الشكر والتقدير

[ياسر خليل أبو البراء]

وعليكم السلام

أهلاً بك أخي الكريم حسام في المنتدى ونورت بين إخوانك

جرب الكود التالي بفرض أن القيم موجودة في النطاق A1:D10 على سبيل المثال

Sub Test()
    Dim Cel As Range
    For Each Cel In Range("A1:D10")
        If Cel.Value = "A" Then
            Cel.Value = "B"
        ElseIf Cel.Value = "B" Then
            Cel.Value = "A"
        End If
    Next Cel
End Sub

تقبل تحياتي

[حسام محمد احمد حمدان]

استاذى الفاضل خالص الشكر والعرفان لجهودك وسرعة استجابتك وتم تفعيل الكود والسلام عليكم

 

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير

والحمد لله الذي بنعمته تتم الصالحات

تقبل تحياتي أخي الفاضل حسام وأهلاً بك في المنتدى مرة أخرى ولا تحرمنا من موضوعاتك