Excel 各位老师这个表格用VBA可以解决吗
答案:3 悬赏:40 手机版
解决时间 2021-03-19 06:02
- 提问者网友：末路
- 2021-03-18 15:00
Excel 各位老师这个表格用VBA可以解决吗
最佳答案
- 五星知识达人网友：低音帝王
- 2021-03-18 15:37
试试下面的VBA代码，可以解决一个问题。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> Cells(1, "B").Column Then Exit Sub
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "T接杆|终端杆|断连杆|分支杆|起始杆"
If reg.test(Target.Cells(1)) Then
If Target.Offset(1, 5).Interior.Color = RGB(255, 255, 0) Or Target.Offset(-1, 5).Interior.Color = RGB(255, 255, 0) Then
Target.Offset(0, 21).NumberFormatLocal = ";;;"
End If
Else
Target.Offset(0, 21).NumberFormatLocal = "G/通用格式"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> Cells(1, "B").Column Then Exit Sub
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "T接杆|终端杆|断连杆|分支杆|起始杆"
If reg.test(Target.Cells(1)) Then
If Target.Offset(1, 5).Interior.Color = RGB(255, 255, 0) Or Target.Offset(-1, 5).Interior.Color = RGB(255, 255, 0) Then
Target.Offset(0, 21).NumberFormatLocal = ";;;"
End If
Else
Target.Offset(0, 21).NumberFormatLocal = "G/通用格式"
End If
End Sub
全部回答
- 1楼网友：低音帝王
- 2021-03-18 16:03
VBA都搞不定，那就没有希望了
- 2楼网友：几近狂妄
- 2021-03-18 15:51
什么样的表格呢，VBA应该可以解决的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯