恳请大师们帮忙看下这个指定条件查询的难题

qiongmei6

我想在附件中求得一个代码，当n列为“聘用工”的时候，如果x列出现数据，则弹出一个方框，注明“聘用工没有社保，数据有错  xx单位xx人 ”的提示，例如此附件中第6行不符合要求，执行代码的时候弹出方框“聘用工没有社保   北京张6”，谢谢各位大神的帮忙

ykcbf1100

工作表事件。

如果N列是聘用工，且X列有数据，则出现提示。

wanao2008

这位朋友，你是纯纯的拿来主义啊！就算知道VBA有用，就是一点不学啊！！！
唉！头疼！！！！
这么简单的问题，以你注册10年的经历，太小菜了。

ykcbf1100

参与一下。。。

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2.     If T.Column = 24 And T.Row > 2 Then
   
3.         r = Me.Cells(Rows.Count, 2).End(3).Row
   
4.         For i = 3 To r
   
5.             If Me.Cells(i, "n") = "聘用工" Then
   
6.                 If Me.Cells(i, "x") Then
   
7.                     MsgBox "聘用工没有社保，数据有错  " & Me.Cells(i, 2).Value & Cells(i, 4).Value
   
8.                 End If
   
9.             End If
   
10.         Next
    
11.     End If
    
12. End Sub
    
13. 
    
14. 
    

复制代码

taller

一程老鸽

wanao2008 发表于 2024-5-5 08:50
这位朋友，你是纯纯的拿来主义啊！就算知道VBA有用，就是一点不学啊！！！
唉！头疼！！！！
这么简单的 ...

赞，是这样子

kvv57465729

wanao2008 发表于 2024-5-5 08:50
这位朋友，你是纯纯的拿来主义啊！就算知道VBA有用，就是一点不学啊！！！
唉！头疼！！！！
这么简单的 ...

大佬，我在知乎看过你视频，很专业和耐心，大佬能解答下我的小问题吗？业余时间学习vba，我这小白头能力不太行，谢谢大佬
https://club.excelhome.net/thread-1691960-1-1.html