[已解决]vba求助

qq111431

麻烦写一个change事件，但是没有思路，所以麻烦大神指点下
1.如果F，M 两列不为空，并且M列为无效时，则执行

2.F列我已经设置了数据有效性，就是五个老师的名字。

我的要求就是如果F列的老师把M列的状态标注为无效，那么就随机转给G列的数据有效性（其实和F列一样的）里的老师，现在一个难点就是随机的话，有可能又转给自己。、

麻烦大家了

最佳答案

月排行榜 / 总排行榜

grf1973

2015-6-5 14:17

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 6 And Target.Column <> 13 Then Exit Sub
   
3.     r = Target.Row
   
4.     If r = 1 Then Exit Sub
   
5.     If Cells(r, 6) <> "" And Cells(r, 13) = "无效" Then
   
6.         arr = Array("贺老师", "苏老师", "刘老师", "小敏老师", "丘老师")
   
7. aa:        p = Int(Rnd * 5)
   
8.         x = arr(p)
   
9.         If Cells(r, 6) = x Then GoTo aa
   
10.         Cells(r, 7) = x
    
11.     End If
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column <> 6 And Target.Column <> 13 Then Exit Sub
   
3.     r = Target.Row
   
4.     If r = 1 Then Exit Sub
   
5.     If Cells(r, 6) <> "" And Cells(r, 13) = "无效" Then
   
6.         arr = Array("贺老师", "苏老师", "刘老师", "小敏老师", "丘老师")
   
7. aa:        p = Int(Rnd * 5)
   
8.         x = arr(p)
   
9.         If Cells(r, 6) = x Then GoTo aa
   
10.         Cells(r, 7) = x
    
11.     End If
    
12. End Sub
    

复制代码