Excel VBA Format a Range Borders to Crossed diagonal lines
Solved/Closed
mathewmunna
Posts
27
Registration date
Tuesday November 18, 2014
Status
Member
Last seen
May 21, 2015
-
May 13, 2015 at 08:12 AM
MaxStart Posts 339 Registration date Tuesday March 3, 2015 Status Moderator Last seen July 3, 2015 - May 17, 2015 at 10:35 AM
MaxStart Posts 339 Registration date Tuesday March 3, 2015 Status Moderator Last seen July 3, 2015 - May 17, 2015 at 10:35 AM
Related:
- Borders vba
- Vba case like - Guide
- Number to words in excel without vba - Guide
- Enable vba in excel - Guide
- Vba check if value is in array - Guide
- Vba calculator code - Guide
3 responses
MaxStart
Posts
339
Registration date
Tuesday March 3, 2015
Status
Moderator
Last seen
July 3, 2015
69
May 15, 2015 at 01:56 PM
May 15, 2015 at 01:56 PM
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlMedium
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlMedium
End With
Je ne parle pas français, mais je l'aime.
je ne pas change.
MaxStart
Posts
339
Registration date
Tuesday March 3, 2015
Status
Moderator
Last seen
July 3, 2015
69
May 17, 2015 at 10:35 AM
May 17, 2015 at 10:35 AM
This will work on range A1-C10
Je ne parle pas français, mais je l'aime.
je ne pas change.
Sub Max()
Dim I As Integer, j As Integer
i = 1
j = 1
Do Until I = 11
For j = 1 To 3
If Cells(i, j).Value = "c" Then
Cells(i, j).Select
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlMedium
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlMedium
End With
End If
Next j
i = I + 1
Loop
End Sub
Je ne parle pas français, mais je l'aime.
je ne pas change.
mathewmunna
Posts
27
Registration date
Tuesday November 18, 2014
Status
Member
Last seen
May 21, 2015
May 17, 2015 at 06:36 AM
May 17, 2015 at 06:36 AM
I have another code but something is wrong in this code too
Private Sub format()
Dim R As Range, C As Range
Set R = Range("B5:G20")
Application.ScreenUpdating = False
For Each C In R
If Len(C.Text) = C Then
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlMedium
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlMedium
End With
Else
End If
Next C
Application.ScreenUpdating = True
End Sub
Private Sub format()
Dim R As Range, C As Range
Set R = Range("B5:G20")
Application.ScreenUpdating = False
For Each C In R
If Len(C.Text) = C Then
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlMedium
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlMedium
End With
Else
End If
Next C
Application.ScreenUpdating = True
End Sub
May 17, 2015 at 06:09 AM
i am very new to vba tried with bellow one but got some errors.. kindly help me to fix this issue..
Sub Xmark()
For Each cell In Range("A10:G26")
If Sheets("Sheet1").Range("C") Then
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlMedium
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlMedium
End With
End Sub