بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'تعامل مع هذه الأداة في تصدير البيانات بشكل منسق وديناميكي'.
تم العثور علي 1 نتيجه
-
السلام عليكم ,,,,, اليوم من خلال هذا التطبيق نتعرف على LISTVIEW أداة قليلة الاستعمال في القوائم والتي تعتبر مهمة في تطبيقات في تصدير البيانات بشكل منسق وديناميكي كما نستعمل ليست بوكس Dim Sh As Worksheet Dim J As Integer Dim Ligne As Integer Private Sub UserForm_Initialize() Set Sh = Worksheets("Students") With ListView1 .Gridlines = True ' .View = lvwReport .FullRowSelect = True .Font.Name = "Arial" .Font.Bold = True With .ColumnHeaders .Add , , Text:=Sh.Range("f1"), Width:=140, Alignment:=lvwColumnLeft .Add , , Text:=Sh.Range("e1"), Width:=80, Alignment:=lvwColumnCenter .Add , , Text:=Sh.Range("d1"), Width:=80, Alignment:=lvwColumnCenter .Add , , Text:=Sh.Range("c1"), Width:=120, Alignment:=lvwColumnCenter .Add , , Text:=Sh.Range("b1"), Width:=60, Alignment:=lvwColumnCenter .Add , , Text:=Sh.Range("a1"), Width:=85, Alignment:=lvwColumnCenter End With End With Call Data End Sub Sub Data() With Me.ListView1 .ListItems.Clear For J = 2 To Sh.Range("A" & Rows.Count).End(xlUp).Row .ListItems.Add , Sh.Range("A" & J).Address, Sh.Range("f" & J) Ligne = Ligne + 1 .ListItems(Ligne).ListSubItems.Add , , Sh.Range("e" & J) .ListItems(Ligne).ListSubItems.Add , , Sh.Range("d" & J) .ListItems(Ligne).ListSubItems.Add , , Sh.Range("c" & J) .ListItems(Ligne).ListSubItems.Add , , Sh.Range("b" & J) .ListItems(Ligne).ListSubItems.Add , , Sh.Range("a" & J) Next J End With End Sub قائمة - listView.rar
