[已解决]VBA程序加一行確定

bear-ricky

請問在此程序執行之前加一行,"你是否確定" 按 Y =執行,按 N =返回,即不執行程式,請看附圖

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-7-8 08:11

bear-ricky 发表于 2016-7-7 23:07
Sub save()
With Sheets("紀錄")
        R = .Cells(65536, 1).End(xlUp).Row + 1

1. Sub save()
   
2.     If MsgBox("你是否確定", vbYesNo, "提示") = vbYes Then
   
3.     With Sheets("紀錄")
   
4.         R = .Cells(65536, 1).End(xlUp).Row + 1
   
5.         .Cells(R, 1) = [k7]
   
6.         .Cells(R, 2) = [k6]
   
7.         .Cells(R, 3) = [b3]
   
8.         .Cells(R, 4) = [C10]
   
9.         .Cells(R, 5) = [H10]
   
10.         .Cells(R, 6) = [I10]
    
11.         .Cells(R, 7) = [K23]
    
12.         Range("A3").Select
    
13.     Selection.ClearContents
    
14.     Range("C8:D8").Select
    
15.     Selection.ClearContents
    
16.     Range("A10:A22").Select
    
17.     Selection.ClearContents
    
18.     Range("H10:H22").Select
    
19.     Selection.ClearContents
    
20.     Range("L6").Value2 = Range("L6").Value2 + 1
    
21.     Range("A3").Select
    
22.     End With
    
23.     End If
    
24. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

If MsgBox("您是否确定？", vbYesNo, "提示") = vbYes Then
       这里加入你之前的with部分代码
End If

以后提问直接上附件，或者贴代码，请不要截图！

hyfire2008

Sub test()
  Dim res
  res = MsgBox("你是否确定", vbOKCancel)
  If res = 1 Then
    MsgBox "在这里输入你的代码" '在这里输入你要执行的代码
  Else
    Exit Sub
  End If
End Sub

bear-ricky

hyfire2008 发表于 2016-7-7 22:28
Sub test()
  Dim res
  res = MsgBox("你是否确定", vbOKCancel)

Sub save()
With Sheets("紀錄")
        R = .Cells(65536, 1).End(xlUp).Row + 1
        .Cells(R, 1) = [k7]
        .Cells(R, 2) = [k6]
        .Cells(R, 3) = [b3]
        .Cells(R, 4) = [C10]
        .Cells(R, 5) = [H10]
        .Cells(R, 6) = [I10]
        .Cells(R, 7) = [K23]
        Range("A3").Select
    Selection.ClearContents
    Range("C8:D8").Select
    Selection.ClearContents
    Range("A10:A22").Select
    Selection.ClearContents
    Range("H10:H22").Select
    Selection.ClearContents
    Range("L6").Value2 = Range("L6").Value2 + 1
    Range("A3").Select
    End With
   
End Sub

請問怎樣加,加在何處

老司机带带我

bear-ricky 发表于 2016-7-7 23:07
Sub save()
With Sheets("紀錄")
        R = .Cells(65536, 1).End(xlUp).Row + 1

1. Sub save()
   
2.     If MsgBox("你是否確定", vbYesNo, "提示") = vbYes Then
   
3.     With Sheets("紀錄")
   
4.         R = .Cells(65536, 1).End(xlUp).Row + 1
   
5.         .Cells(R, 1) = [k7]
   
6.         .Cells(R, 2) = [k6]
   
7.         .Cells(R, 3) = [b3]
   
8.         .Cells(R, 4) = [C10]
   
9.         .Cells(R, 5) = [H10]
   
10.         .Cells(R, 6) = [I10]
    
11.         .Cells(R, 7) = [K23]
    
12.         Range("A3").Select
    
13.     Selection.ClearContents
    
14.     Range("C8:D8").Select
    
15.     Selection.ClearContents
    
16.     Range("A10:A22").Select
    
17.     Selection.ClearContents
    
18.     Range("H10:H22").Select
    
19.     Selection.ClearContents
    
20.     Range("L6").Value2 = Range("L6").Value2 + 1
    
21.     Range("A3").Select
    
22.     End With
    
23.     End If
    
24. End Sub

复制代码

bear-ricky

老司机带带我 发表于 2016-7-8 08:11

已解決,多謝,是否按一下圖像下的最佳答案便可以