عرض الاكواد داخل المدونة داخل اطار بطريقة منظمة

بسم الله الرحمن الرحيم

اقدم لكم اليوم برنامج صغير وبسيط يخدم كل اصحاب المواقع والمدونات عند ادراج الاكواد داخل المواضيع او الصفحات

ويعمل على الاكواد بشكل عام لاى لغة برمجة 

يتم ادراج الكود داخل البرنامج وتحويله ومن ثم نسخه ووضعه داخل الصفحة في وضع HTML

صورة البرنامج

احد الاكواد بعد التنسيق

 Private Sub TextBox1_Change()  
   Dim myArray, lr, X, targt, targtN  
   Dim DATA As Worksheet  
   Set DATA = Worksheets("Sheet2")     
   lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row    
   ListBox1.Clear   
   targt = TextBox1.Text   
   targtN = ComboBox1.ListIndex + 1    
   myArray = DATA.Range("A2:J" & lr)     
   ReDim y(1 To UBound(myArray, 1), 1 To UBound(myArray, 2))  
   For X = LBound(myArray) To UBound(myArray)  
     If targt = "" Then Exit Sub  
     If myArray(X, targtN) Like targt & "*" Then  
       rw = rw + 1  
       For yy = 1 To 10  
         y(rw, yy) = myArray(X, yy)  
       Next yy  
     End If  
   Next X  
   If rw > 0 Then  
     ListBox1.AddItem  
     ListBox1.List = y()  
   End If  
 End Sub  

لتحميل البرنامج اضغط هنا


اعداد / ياسر العربي

شارك المقال

شاركه على فيسبوكشاركه على جوجل+