[已解决]求助：如何判断流水号的月份不等于此月份，实现下图中的要求

n520

如图：                                                   

最佳答案

月排行榜 / 总排行榜

mxg825

2012-8-23 15:14

Sub aa()
Dim rg As Range, Mydaet As String
Set rg = Sheets("Sheet1").Range("A1")
If MsgBox("单号是否加1？", 32 + vbYesNo, "更新单号") = vbNo Then Exit Sub
Mydaet = Format(Date, "YYYYMM")
    If Left(rg.Value, 6) <> Mydaet Then
       rg.Value = Mydaet & "001"
    Else
       rg.Value = rg.Value + 1
    End If
End Sub

跳转到最佳答案楼层

happym8888

Else
   If a = Right(Left(rg.value, 6), 2))<>Month(Date) then rg.value=Format......

n520

happym8888 发表于 2012-8-23 13:57
Else
   If a = Right(Left(rg.value, 6), 2))Month(Date) then rg.value=Format......

楼主首先谢谢你的回答，但还是没有达到效果，麻烦你在给我看看

mxg825

Sub aa()
Dim rg As Range, Mydaet As String
Set rg = Sheets("Sheet1").Range("A1")
If MsgBox("单号是否加1？", 32 + vbYesNo, "更新单号") = vbNo Then Exit Sub
Mydaet = Format(Date, "YYYYMM")
    If Left(rg.Value, 6) <> Mydaet Then
       rg.Value = Mydaet & "001"
    Else
       rg.Value = rg.Value + 1
    End If
End Sub

从从容容

Book1.zip (10.04 KB, 下载次数: 11)

2012-8-23 15:17 上传

点击文件名下载附件

mxg825

前面有个字母S 的话！

1. Sub aa()
   
2. Dim rg As Range, Mydaet As String
   
3. Set rg = Sheets("Sheet1").Range("A1")
   
4. If MsgBox("单号是否加1？", 32 + vbYesNo, "更新单号") = vbNo Then Exit Sub
   
5. Mydaet = Format(Date, "YYYYMM")
   
6.     If Mid(rg.Value, 2, 6) <> Mydaet Then
   
7.        rg.Value = "S" & Mydaet & "001"
   
8.     Else
   
9.        rg.Value = "S" & Mydaet & Format(Val(Right(rg.Value, 3)) + 1, "000")
   
10.     End If
    
11. End Sub
    

复制代码

mxg825

1. Sub aa()
   
2. Dim rg As Range, Mydaet As String
   
3. Set rg = Sheets("Sheet1").Range("A1")
   
4. If MsgBox("单号是否加1？", 32 + vbYesNo, "更新单号") = vbNo Then Exit Sub
   
5. Mydaet = Format(Date, "YYYYMM")
   
6.     If Left(rg.Value, 6) <> Mydaet Then
   
7.        rg.Value = Mydaet & "001"
   
8.     Else
   
9.        rg.Value = rg.Value + 1
   
10.     End If
    
11. rg.NumberFormatLocal = """S""0"
    
12. End Sub
    
13. 或试试这个 设置单元格格式！

复制代码