اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ريان أحمد

05 عضو ذهبي
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1,439

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

 نوع المحتوي 

مشاركات المكتوبه بواسطه ريان أحمد

    فورمة بحث لشيت مرتبات

    في منتدى الاكسيل Excel

    قام بنشر

    قم بالتعديل على   اذهب الى مودال  وعدل في نطاق البيانات 

     

     

    Option Explicit
    '======================================================
    '======================================================
    '     ÇÓã äØÇÞ ÑÄæÓ ÇáÇÚãÏÉ
    '     Çæ ÚäæÇä ÇáäØÇÞ ãáÍæÞ ÈÇÓã ÇáæÑÞÉ
    Private Const MyTopColmnRng As String = "ÇáÈíÇäÇÊ!$B$3:$t$3"  قم بالتعديل هنا نطاق البيانت
    '======================================================

      

    Sub KH_FIND()
Dim ContRow As Long
Dim vRng As Range
'==========================
On Error GoTo 1
Set vRng = Range(MyTopColmnRng)
'==========================
With vRng
    ContRow = .Worksheet.Cells(Rows.Count, .Column).End(xlUp).Row - .Row
End With
'==========================
If ContRow = 0 Then
    MsgBox "áÇ ÊæÌÏ ÈíÇäÇÊ ÇÚÊãÇÏÇ Úáì ÂÎÑ ÕÝ Ýí ÇáÚãæÏ ÇáÇæá"
Else
    With UserFormSearch
        .kh_RngSet vRng, vRng.Offset(1, 0).Resize(ContRow)
        .Show
    End With
End If
1:
Set vRng = Nothing
End Sub
     

    خطأ في تنفيذ الفورم المرن

    في منتدى الاكسيل Excel

    قام بنشر

    التغيير تم في الجزء

     

     

    تم التخلي على الترتيب التلقائي المدخل في الكود  حيث انا الكود يعمل بآلية اول خلية فارغة بعد الترتيب التلقائي يدخل رقم واحد ثم يقوم بالترتيب تلقائيا

     .kh_SetAddrss "rayan", "A3:D3"

    حيث تم التخلي على الخلية التي تدخل اول رقم في السجلات

    • Like 1
×
×
  • اضف...

Important Information

  I accept