اذهب الي المحتوي
أوفيسنا

سؤال حول MultiPage في الفورم


الردود الموصى بها

السلام عليكم


Private Sub CommandButton1_Click()

Dim x As Long

On Error GoTo 1:

If Cells(1, 1) = 2 Then Cells(1, 1) = -1

Cells(1, 1) = Cells(1, 1) + 1

x = Cells(1, 1).Value

Me.MultiPage1.Value = x

1 End Sub

Private Sub UserForm_Initialize()

Cells(1, 1) = 0

End Sub


MltiPages.rar

تم تعديل بواسطه ابو اسامة العينبوسي
رابط هذا التعليق
شارك

السلام عليكم ..

لك مني جزيل الشكر أستاذي وأخي العزيز أبو أسامة

إلا أنه لدي طلب آخر لو تكرمت كيف يمكنني إظهار نفس النص المكتوب في مربع النص

في إحدى الصفحات ليظهر في مربع النص في صفحة أخرى وذلك عند التنقل بين الصفحات

سواء كان التنقل عن طريق الزر أو عن طريق التنقل بالماوس

تقبل تحياتي ..

MltiPages.rar

تم تعديل بواسطه abuzzouz
  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information