اضافة خاصية الطباعه وخاصية سكنر الماسح الضوئي

[rauf]

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

كل عام وانتم بخير

بعد اذنكم عندي ملف الصادر و الوارد للارشيف الالكتروني 

اتمني اضافة خاصية الطباعه وخاصية سكنر الماسح الضوئي اذا امكن \\تفعيل اكواد اليوزرفورم

مع امكانية عرض بيانات جدولين على نفس الليست بوكس

كلمة سر ARWA

جاري التعديل (1).xlsm

تم تعديل يونيو 29, 2023 بواسطه rauf

[محمد هشام.]

 

 

16 ساعات مضت, rauf said:

اتمني اضافة خاصية الطباعه وخاصية سكنر الماسح الضوئي اذا امكن

  لابد من تزويدنا بعينة من شكل الملفات المرغوب طباعتها    او جرب استخدام خاصية    Shell "wiaacmgr.exe", vbNormalFocus  يمكنك البحث عنها في النت 

في ظل غياب المعطيات الكافية

ساحاول الانتقال للطلب الثاني والثالث 

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

تفضل اخي 

Dim TB1, f, b, R, Z, Rng, WSData, WS, WS1, WS2() 
Private Sub UserForm_Initialize()  
  If WS = "" Then
    Me.ComboBox1.clear
    For s = 1 To Sheets.Count
       For Each n In Sheets(s).ListObjects
         Me.ComboBox1.AddItem n.Name
       Next n
    Next s
    Me.ComboBox1.ListIndex = 0
    If TB1 = "" Then TB1 = Me.ComboBox1 Else TB1 = WS
    WS2 = Array(1, 2, 3, 4, 5, 6)
    Z = Array(1, 2, 3, 4, 5, 6)
    R = UBound(WS2) + 1
    b = UBound(Z) + 1
    Me.ListBox1.ColumnCount = WSData + 1
  End If
  ST
End Sub
Private Sub ComboBox1_click()
  TB1 = Me.ComboBox1
  Select Case TB1
   Case Is = "الصادر"
     WS2 = Array(1, 2, 3, 4, 5, 6)
     Z = Array(1, 2, 3, 4, 5, 6)
   
  Case Is = "الوارد"
     WS2 = Array(1, 2, 3, 4, 5, 6)
     Z = Array(1, 2, 3, 4, 5, 6)
  
  End Select
  WS = Me.ComboBox1
  WSData = Range(TB1).Columns.Count
  R = UBound(WS2) + 1
  b = UBound(Z) + 1
  ST
End Sub
Sub ST()
   WSData = Range(TB1).Columns.Count
   Rng = Range(TB1).Resize(, WSData + 1).Value
   For i = 1 To UBound(Rng): Rng(i, WSData + 1) = i: Next i
   Tb_Text
   For i = WSData + 1 To 6: Me("textbox" & i).Visible = False: Next i
   For i = WSData + 1 To 6: Me("label" & i).Visible = False: Next i
  For i = LBound(Rng) To UBound(Rng): Rng(i, 3) = Format(Rng(i, 3), "dd/mm/yyyy"): Next i
   ReDim WS1(1 To UBound(Rng))
   col = UBound(Rng, 2)
   For i = LBound(Rng) To UBound(Rng)
     For Each K In WS2
       WS1(i) = WS1(i) & Rng(i, K) & "|"
     Next K
     WS1(i) = WS1(i) & Rng(i, col) & "|"
   Next i
    Dim TBL(): ReDim TBL(1 To UBound(Rng), 1 To WSData + 1)
   For i = 1 To UBound(Rng)
        For c = 1 To WSData: TBL(i, c) = Rng(i, c): Next c
        TBL(i, c) = Rng(i, WSData + 1)
   Next i
   Me.ListBox1.List = TBL
   Me.ListBox1.ListIndex = -1
   Empty_wsData_Click
   Me.Text_Rech.SetFocus
   End Sub

 

جاري التعديل (2).xlsm

تم تعديل يونيو 30, 2023 بواسطه محمد هشام.

[rauf]

للرفع