判断区间数字的问题

中国阿尔法

Private Sub CommandButton1_Click()
If TextBox11.Value > "0" And TextBox11.Value < "8" Then
  TextBox10.Text = TextBox1.Text
    TextBox10.Text = Format((TextBox10.Text), "yyyy-m月第一周")

    ElseIf TextBox11.Value > "7" And TextBox11.Value < "15" Then
    TextBox10.Text = TextBox1.Text
    TextBox10.Text = Format((TextBox10.Text), "yyyy-m月第二周")

    ElseIf TextBox11.Value > "14" And TextBox11.Value < "22" Then
    TextBox10.Text = TextBox1.Text
    TextBox10.Text = Format((TextBox10.Text), "yyyy-m月第三周")
    End If
    End Sub
  请老师帮忙看看这段代码，为什么只能判断出来第一周，第二周跟第三周条件满足以后也不能判断，也不提示错误。

扑腾

建议：
1、求助最好用附件表明需求，你的代码估计没人有兴趣看；
2、就你所列的问题，IF条件设置就有问题，当数据所有的IF条件，满足IF。。then，，代码就不会跳转到elseIF，，then，，

中国阿尔法

扑腾 发表于 2019-4-6 13:47
建议：
1、求助最好用附件表明需求，你的代码估计没人有兴趣看；
2、就你所列的问题，IF条件设置就有问题 ...

谢谢老师，后来我改用For to 就可以了

phsu

Private Sub CommandButton1_Click()
    Select Case True
        Case TextBox11.Value > "0" And TextBox11.Value < "8"
            TextBox10.Text = TextBox1.Text
            TextBox10.Text = Format((TextBox10.Text), "yyyy-m月第一周")
        Case TextBox11.Value > "7" And TextBox11.Value < "15"
            TextBox10.Text = TextBox1.Text
            TextBox10.Text = Format((TextBox10.Text), "yyyy-m月第二周")
        Case TextBox11.Value > "14" And TextBox11.Value < "22"
            TextBox10.Text = TextBox1.Text
            TextBox10.Text = Format((TextBox10.Text), "yyyy-m月第三周")
    End Select
End Sub

中国阿尔法

phsu 发表于 2019-4-7 14:47
Private Sub CommandButton1_Click()
    Select Case True
        Case TextBox11.Value > "0" And Tex ...

谢谢老师的帮助，问题解决了。