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

أبو قاسم

04 عضو فضي
  • Posts

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

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

  • Days Won

    1

مشاركات المكتوبه بواسطه أبو قاسم

  1. حفظ بينات الست بوكس الى  pdf

    مثلا ان ان ابحث في الفورم عن بيانات شخص بين تايخين وبعد البحث ارسال النتيجة حفظ pdf 

    Private Sub ButtonSaveFil_Click()
    Dim iC As Integer
    iC = Me.ListFind.ListCount
    If iC = 0 Then GoTo 1
    '------------------------
    Application.ScreenUpdating = False
    With Workbooks.Add(xlWBATWorksheet)
        With .Sheets(1)
            .Range("A1").Resize(1, ContColmn).Value = sRng.Value
            .Range("A2").Resize(iC, ContColmn).Value = Me.ListFind.List
            .UsedRange.Columns.AutoFit
        End With
    End With
    Application.ScreenUpdating = True
    Unload Me
    1
    End Sub

    التعديل على الكود لجعلة يحفظ البيانات pdf

  2. 1 ساعه مضت, ali mohamed ali said:

    السلام عليكم أحبائى وأساتذتى
    أقدم لكم اليوم -موضوع عن البحث بمجرد كتابة اول حرف فى التكست بوكس لإظهار بيانات البحث فى الليست بوكس والإختيار منها

    بارك الله فيكم جميعا

    https://www.youtube.com/watch?v=CmkhFzH95ss

     

    البحث بمجرد كتابه اول حرف من خلال ليست بوكس .xlsm

    بارك الله فيك

     

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

Important Information