شرح كود التنسيق التالي

[الجموعي]

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

اريد شرح للكود المرفق

وجزاكم الله كل الخير

أريد تنسيق تلقائي عن الكتابة في الخلية A15

 نوع التنسيقات ( حدود - نوع خط - حجم خط  )

كنت استمع هذا الكود النسخ واللصق للتنسيق

Sub T1()
 Set Ws = ActiveSheet
   Ws.Range("A15:H15").Select
    Selection.Copy
    Lastrow = Cells(Rows.Count, "A").End(xlUp).Row - 1

     Ws.Cells(Lastrow + 1, 1).Select

    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Ws.Range("A15").Select
End Sub

هذا الكود مطلوب شرحة والتعديل عليه ليفي بالغرض الذي طلبته

 

Sub Findandformat()
    Dim LastColumn As Integer
    Dim ColumnLetter As String
    Dim ws As Worksheet
    Dim lr As Long
    Set ws = ThisWorkbook.Sheets(1)
    
  Application.ScreenUpdating = False
    If WorksheetFunction.CountA(Cells) > 0 Then
        LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
        If LastColumn > 26 Then
            ColumnLetter = Chr(Int((LastColumn - 1) / 26) + 64) & _
            Chr(((LastColumn - 1) Mod 26) + 65)
        Else
            ColumnLetter = Chr(LastColumn + 64)
        End If
    
    End If
    lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
    With ws.Range(Range("A1"), Range(ColumnLetter & lr))
    .Borders.LineStyle = xlContinuous
    .Font.Name = "Simplified Arabic"
    .Font.Size = 14
    .VerticalAlignment = xlCenter
    .HorizontalAlignment = xlCenter
    End With
  Application.ScreenUpdating = True
End Sub

 

تم تعديل يوليو 1, 2016 بواسطه الجموعي

[سليم حاصبيا]

فقط اكتب هذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [a15]
 .Borders.LineStyle = 1
 .Font.Size = 14
  .Font.Bold = True
 .VerticalAlignment = -4108
 .HorizontalAlignment = -4108
End With
End Sub

 

[الجموعي]

20 ساعات مضت, سليم حاصبيا said:

فقط اكتب هذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [a15]
 .Borders.LineStyle = 1
 .Font.Size = 14
  .Font.Bold = True
 .VerticalAlignment = -4108
 .HorizontalAlignment = -4108
End With
End Sub

 

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

جزاك الله كل الخير

انا ايضا قمت بالتعديل على الكود الاول

ولاثراء الموضوع اليكم الكود +اضافة الاحتواء التلقائي للنص داخل الخلية

Sub format()
    Dim LastColumn As Integer
    Dim ws As Worksheet
    Dim Lastrow As Long
    Set ws = ThisWorkbook.Sheets(1)
Application.ScreenUpdating = False
    LastCol = ws.Cells(15, ws.Columns.Count).End(xlToLeft).Column
    Lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    With ws.Range(Range("A15"), Cells(Lastrow, LastCol))
    .Borders.LineStyle = xlContinuous
    .Font.Name = "Simplified Arabic"
    .Font.Size = 12
    .VerticalAlignment = xlCenter
    .HorizontalAlignment = xlCenter
    For i = 1 To LastCol
    Columns(i).AutoFit
    Next
    End With
Application.ScreenUpdating = True
End Sub