excel vba 当I列输入值为7，第P、W、AD列对应行出现反斜线（不是\,如下图）

发布网友发布时间：2022-05-29 17:15

共2个回答

热心网友时间：2023-10-27 18:20

你是要P、W、AD列对应行的单元格出现反斜线？如果是，可以试试下面的
Sub backslash()
Dim aline As Integer
aline = 1
Do Until Len(Range("i" & aline)) < 1
If Range("i" & aline) = 7 Then
Range("q" & aline & ",w" & aline & ",ad" & aline).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlContinuous
End If
aline = aline + 1
Loop
End Sub追问我试了并没有效果，你方便留个QQ吗？我给文件给你，帮我看看

追答Sub lineback()
Dim aline As Integer
For aline = 5 To ActiveSheet.UsedRange.Rows.Count
If Range("i" & aline) = 7 Then
Range("q" & aline & ",w" & aline & ",ad" & aline).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlContinuous
End If
Next
End Sub

这个用你的文件测试过，完全可以。

热心网友时间：2023-10-27 18:20

Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(50, 0, 128)
End With追问可以给个QQ什么吗？我没弄上

excel vba 当I列输入值为7，第P、W、AD列对应行出现反斜线（不是&#92;,如下图）

excel vba 当I列输入值为7，第P、W、AD列对应行出现反斜线（不是\,如下图）