warriorhaa.blogg.se

Range("C4:F4").Borders(xlEdgeBottom).LineStyle = xlDash

Range("C4:F4").Borders(xlEdgeBottom).LineStyle = xlContinuous Private Sub worksheet_change( ByVal target As Range) 'exectues when the user makes changes to the sheet The code used for this example can be seen below: For more information about creating drop down lists in Excel please see Excel VBA Drop Down Lists. The drop down list is created using data validation. Upon selecting a new value from the drop down lists, the border on the bottom edge of the cells C4:F4 is updated: In this example the user selects the line style and line weight using drop down lists in cells A2 and B2. Range("C11:E11").Borders(xlEdgeBottom).LineStyle = xlDouble Range("C9:E9").Borders(xlEdgeBottom).LineStyle = xlSlantDashDot Range("C7:E7").Borders(xlEdgeBottom).LineStyle = xlDash Range("C5:E5").Borders(xlEdgeBottom).LineStyle = xlDashDot Range("C1:E1").Borders(xlEdgeBottom).LineStyle = xlContinuous

The code above is equivalent to the code below: Range(Cells(i, 3), Cells(i, 5)).Borders(xlEdgeBottom).LineStyle _ The borders were created using the code below: Basically we’ve got 6 different border line styles: