用户窗体运行没有反应

FXZ2015

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("人员名册") ' 修改为你的工作表名称
   
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).row ' 找到F列的最后一行
   
    Dim i As Long
    For i = 4 To lastRow ' 假设第一行是标题行，?从第二行开始处理数据
        If ws.Cells(i, "G").Value >= Me.开始年龄.Value And ws.Cells(i, "G").Value <= Me.结束年龄.Value Then
            ws.Cells(i, "J").Value = Me.文化程度.Value
         End If
        Next i
        End Sub
        



当年龄列为0至5岁时，文体程度列设置成学龄前，当年龄列为6-11岁时，文化程度列设置成小学等批量设置学历。运行没有反应，请各位老师帮忙。

名册1.rar (195.08 KB, 下载次数: 5)

2024-8-13 14:52 上传

点击文件名下载附件

小凡、、、

用窗体判断输入的话，加两个--把文本框内容转数字

FXZ2015

小凡、、、 发表于 2024-8-13 15:28
用窗体判断输入的话，加两个--把文本框内容转数字

谢谢老师，问题已解决