MSGBOX确定和取消，决定数据的录入

枫丹白露

求：修改代码后，达到：


在MSGBOX确定时，才录入数据到表格，如果点取消，刚不录入数据，也不退出，仍停留在列表框

如图

tennicse

     MsgBox .List(0, 2) & "：" & .List(.ListIndex, 2) & vbCrLf _
            & .List(0, 3) & "：" & .List(.ListIndex, 3) & vbCrLf _
            & .List(0, 4) & "：" & .List(.ListIndex, 4) & vbCrLf _
            & .List(0, 5) & "：" & Format(.List(.ListIndex, 5), "#,###0.00") & vbCrLf _
            & .List(0, 6) & "：" & .List(.ListIndex, 6) & vbCrLf _
            & .List(0, 7) & "：" & .List(.ListIndex, 7), vbOKCancel, "工时要素"


msgbox本来就是关闭的时候就不会影响其他窗口的。

枫丹白露

tennicse 发表于 2022-12-6 15:23
MsgBox .List(0, 2) & "：" & .List(.ListIndex, 2) & vbCrLf _
            & .List(0, 3) & "：" & ...

不是的，关闭了还是录入了。应该要加一个if，但我试了加几个地方，都加不了

枫丹白露

    response = MsgBox("是否录入该工时?", vbExclamation + vbYesNo, "工时要素") _我在这里添加yesORno，但报错了
     .List(0, 2) & "：" & .List(.ListIndex, 2) & vbCrLf _
            & .List(0, 3) & "：" & .List(.ListIndex, 3) & vbCrLf _
            & .List(0, 4) & "：" & .List(.ListIndex, 4) & vbCrLf _
            & .List(0, 5) & "：" & Format(.List(.ListIndex, 5), "#,###0.00") & vbCrLf _
            & .List(0, 6) & "：" & .List(.ListIndex, 6) & vbCrLf _
            & .List(0, 7) & "：" & .List(.ListIndex, 7)

以下这两句，不知要加在哪里
逻辑没整明白
             If response = vbNo Then
             Else

tennicse

Sub msgTest()
    Dim response As VbMsgBoxResult

    response = MsgBox("是否录入该工时?", vbExclamation + vbYesNo, "工时要素")  ' _我在这里添加yesORno，但报错了
'     .List(0, 2) & "：" & .List(.ListIndex, 2) & vbCrLf _
'            & .List(0, 3) & "：" & .List(.ListIndex, 3) & vbCrLf _
'            & .List(0, 4) & "：" & .List(.ListIndex, 4) & vbCrLf _
'            & .List(0, 5) & "：" & Format(.List(.ListIndex, 5), "#,###0.00") & vbCrLf _
'            & .List(0, 6) & "：" & .List(.ListIndex, 6) & vbCrLf _
'            & .List(0, 7) & "：" & .List(.ListIndex, 7)
'
'以下这两句，不知要加在哪里
'逻辑没整明白
'             If response = vbNo Then
'             Else

    If response = vbYes Then
        MsgBox "You Click Yes"
    Else
        MsgBox "You Click No"
    End If

    '或者这个也可以。

    If MsgBox("是否录入该工时?", vbExclamation + vbYesNo, "工时要素") = vbYes Then
        MsgBox "You Click Yes"
    Else
        MsgBox "You Click No"
    End If



End Sub

枫丹白露

tennicse 发表于 2022-12-6 21:31
Sub msgTest()
    Dim response As VbMsgBoxResult

知道是这么个理，但不懂要放在哪一行，才能使数据录入和不录入

tennicse

If MsgBox("是否录入该工时?", vbExclamation + vbOkCancel, "工时要素") = vbCancel Then Exit Sub

枫丹白露

tennicse 发表于 2022-12-6 21:41
If MsgBox("是否录入该工时?", vbExclamation + vbOkCancel, "工时要素") = vbCancel Then Exit Sub

我不是单纯的只要yes or  no

我自己倒腾了下，但无论点是还是否，都不会录入数据了，应该是位置不对

代码：

Private Sub ListBox1_Click()
    Dim r, j
    With ListBox1
     MsgBox .List(0, 2) & "：" & .List(.ListIndex, 2) & vbCrLf _
            & .List(0, 3) & "：" & .List(.ListIndex, 3) & vbCrLf _
            & .List(0, 4) & "：" & .List(.ListIndex, 4) & vbCrLf _
            & .List(0, 5) & "：" & Format(.List(.ListIndex, 5), "#,###0.00") & vbCrLf _
            & .List(0, 6) & "：" & .List(.ListIndex, 6) & vbCrLf _
            & .List(0, 7) & "：" & .List(.ListIndex, 7) & vbCrLf _
            & vbCrLf _
            & vbCrLf _
            & "是否录入该工时?", vbExclamation + vbYesNo, "工时要素"
            
    End With

    If response = vbYes Then
            
    With ActiveSheet
        r = .Range("f" & Range("F:F").Find("合计").Row).End(xlUp).Row + 1
         
        For j = 1 To 4
            .Cells(r, j) = ListBox1.List(ListBox1.ListIndex, j - 1)
        Next
        For j = 6 To 7
            .Cells(r, j) = ListBox1.List(ListBox1.ListIndex, j - 2)
        Next
    End With
    Else
    response = vbNo
    End If

End Sub

tennicse

Private Sub ListBox1_Click()
    Dim r, j
    With ListBox1
     MsgBox ...., , "工时要素"
    End With
    With ActiveSheet
        balabala
    End With
    'Unload Me
End Sub

分析一下你最开始这个代码啊，你看看：
msgbox和 activesheet 修改前后是没有关联的，测试也是这样，msgbox显示不管按得什么按钮，甚至删掉这个msgbox，都不影响后续对ActiveSheet的修改
所以，要实现msgbox的选择有效性，就要把对ActiveSheet的修改放到对Msgbox结果的判断
就是：
if Msgb=vbYes Then
    修改工作表
end if

也就是你后来改的这一段：
    If response = vbYes Then            
    With ActiveSheet
        balalbala
    End With
    Else
        response = vbNo
    End If

但这一段中，Else是多余的，因为如果If判断了response <> vbYes，那么response一定就是vbNo，所以这个else再对response赋值，第一是多余的重复赋值，第二是赋值之后没有用到这个值。因此仅仅保留If Then Endif 就可以。

tennicse

Private Sub ListBox1_Click()
    Dim r, j
    With ListBox1
     MsgBox ...., , "工时要素"
    End With
    With ActiveSheet
        balabala
    End With
    'Unload Me
End Sub

分析一下你最开始这个代码啊，你看看：
msgbox和 activesheet 修改前后是没有关联的，测试也是这样，msgbox显示不管按得什么按钮，甚至删掉这个msgbox，都不影响后续对ActiveSheet的修改
所以，要实现msgbox的选择有效性，就要把对ActiveSheet的修改放到对Msgbox结果的判断
就是：
if Msgb=vbYes Then
    修改工作表
end if

也就是你后来改的这一段：
    If response = vbYes Then            
    With ActiveSheet
        balalbala
    End With
    Else
        response = vbNo
    End If

但这一段中，Else是多余的，因为如果If判断了response <> vbYes，那么response一定就是vbNo，所以这个else再对response赋值，第一是多余的重复赋值，第二是赋值之后没有用到这个值。因此仅仅保留If Then Endif 就可以。
然后你提问，说不管怎么折腾，都不会改动了，那是因为，你的response没有接受Msgbox的返回值啊亲！
   response=MsgBox （...., , "工时要素"）
要这样啊！
但是这样，就有个中间变量response，实际上是多余了。
所以，兜兜转转就是回到了我前面告诉你的：




Private Sub ListBox1_Click()
    Dim r, j
    With ListBox1
     if MsgBox( ...., , "工时要素")=vbYes Then
           ActiveSheet.balabala       '这里不能再用With了，因为已经嵌套进了With
      end if
    End With
    'Unload Me
End Sub