[已解决]记录审核状态

shcp1128

求各位老师帮忙写段代码，要求是在弹出窗体输入序号，点击审核在相应的序号B列填充值已审核，谢谢

最佳答案

月排行榜 / 总排行榜

xdragon

2015-5-24 15:59

1. Private Sub CommandButton1_Click()
   
2.     Dim Cmb
   
3.     For i = 1 To 10
   
4.         Cmb = Controls("combobox" & i).Value
   
5.         If Val(Cmb) > 0 Then
   
6.             Sheets("Sheet1").Cells(Cmb + 1, 2) = "已审核"
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

FYI

跳转到最佳答案楼层

xdragon

1. Private Sub CommandButton1_Click()
   
2.     Dim Cmb
   
3.     For i = 1 To 10
   
4.         Cmb = Controls("combobox" & i).Value
   
5.         If Val(Cmb) > 0 Then
   
6.             Sheets("Sheet1").Cells(Cmb + 1, 2) = "已审核"
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

FYI

xdragon

如果订单号含有文本或者和行号不是一一对应，可是试试下面这个

1. Private Sub CommandButton1_Click()
   
2.     Dim Cmb, rng As Range, NotFindArr() As String
   
3.     ReDim NotFindArr(1 To 1)
   
4.     For i = 1 To 10
   
5.         Cmb = Controls("combobox" & i).Value
   
6.         Set rng = Sheets("Sheet1").Columns(1).Find(Cmb, , xlValues, xlWhole)
   
7.         If Not rng Is Nothing Then
   
8.             rng.Offset(, 1) = "已审核"
   
9.         Else
   
10.             NotFindArr(UBound(NotFindArr)) = Cmb
    
11.             ReDim Preserve NotFindArr(1 To UBound(NotFindArr) + 1)
    
12.         End If
    
13.     Next
    
14.     If Len(NotFindArr(1)) > 0 Then MsgBox "以下序号未在序号列表中找到:" & vbCr & Join(NotFindArr, ",")
    
15. End Sub

复制代码

shcp1128

谢谢，太感谢你了

shcp1128

xdragon 发表于 2015-5-24 15:59
FYI

谢谢，感谢