指定列数据控制按钮开启闭合。谢谢老师！

ztd123

指定列数据控制按钮开启闭合。谢谢老师！ 指定列数据控制按钮的开启.rar (18.37 KB, 下载次数: 15)

2022-12-17 13:36 上传

点击文件名下载附件

feilanga

Private Sub UserForm_Initialize()
    arr = Sheet1.Range("H2").CurrentRegion.Columns(1).Offset(1)
    m = "正数"
    For i = 2 To UBound(arr)
        If arr(i, 1) < 0 Then
            m = "负数"
        End If
    Next
    If m = "正数" Then
        UserForm1.CommandButton45.Enabled = True
    Else
        UserForm1.CommandButton45.Enabled = False
    End If
End Sub

feilanga

判断。。。。。。。。

ztd123

feilanga 发表于 2022-12-17 14:01
判断。。。。。。。。

谢谢您！祝工作顺利！

ztd123

feilanga 发表于 2022-12-17 14:01
判断。。。。。。。。

正好反了，H列都是正数时，按动确定时，按钮1也不能开启，H列只要有负数，按动确定时，按钮1可开启，H列有可能有单元格空格。您受累再给看看，谢谢您！

feilanga

Private Sub UserForm_Initialize()
    arr = Sheet1.Range("H3:H" & Sheet1.Cells(Rows.Count, "H").End(xlUp).Row)
    m = "正数"
    For i = 1 To UBound(arr)
        If arr(i, 1) < 0 Then
            m = "负数"
        End If
    Next
    If m = "正数" Then
        UserForm1.CommandButton45.Enabled = False
    Else
        UserForm1.CommandButton45.Enabled = True
    End If
End Sub
这个。。。既然玩窗体，你得自己研究逻辑。。。

准提部林

Private Sub CommandButton44_Click()
Dim R&
R = Cells(Rows.Count, 8).End(xlUp).Row + 3
V = Not Range("h3:h" & R).Find("-", Lookat:=xlPart) Is Nothing
CommandButton45.Enabled = V
End Sub

ztd123

准提部林 发表于 2022-12-17 17:27
Private Sub CommandButton44_Click()
Dim R&
R = Cells(Rows.Count, 8).End(xlUp).Row + 3

感谢您，是这样的。

ztd123

feilanga 发表于 2022-12-17 16:50
Private Sub UserForm_Initialize()
    arr = Sheet1.Range("H3:H" & Sheet1.Cells(Rows.Count, "H").End ...

谢谢您,我再研究一下。