【求组】菜鸟求组

hang2114

今天打开老员工给我的表格，发现有VBA的代码，其中以下代码没看明白。

1. sub h00集合程序()
   
2. dim YM As Long, y As Long, m As String,sm  As String
   
3.     YM = InputBox("请输入年月：例如202109")
   
4.     y = Left(YM, 4)
   
5.     m = Right(YM, 2)
   
6.    
   
7.     If m = "01" Then
   
8.         sm = m
   
9.     Else
   
10.         sm = Right(YM - 1, 2)
    
11.     End If
    
12. 
    
13. end sub

复制代码

其中  If m = "01" Then  ，

我没有看明白，M="01"是什么意思？

mmwwdd

什么代码我看看

hang2114

mmwwdd 发表于 2023-4-12 19:53
什么代码我看看

抱歉，没编辑完就习惯性按Ctrl + 回车提交了
已附上代码

高个子

如果是1月则sm=m

hang2114

高个子 发表于 2023-4-12 20:35
如果是1月则sm=m

感谢回复，但是我还有一个不明白，如果是1月则SM=M，那么，如果我输入2月，这个代码会演变成什么样？

ykcbf1100

hang2114 发表于 2023-4-13 10:30
感谢回复，但是我还有一个不明白，如果是1月则SM=M，那么，如果我输入2月，这个代码会演变成什么样？

如果输入是除1月份以外的月份，则sm = Right(YM - 1, 2)

不过，感觉有点不太合理，没搞懂要做什么。

grf1973

如果1月，sm=1，否则sm为输入月份-1。
结果是sm不可能为0，也不可能为12.
不知道这代码有什么用。

hang2114

ykcbf1100 发表于 2023-4-13 10:45
如果输入是除1月份以外的月份，则sm = Right(YM - 1, 2)

不过，感觉有点不太合理，没搞懂要做什么。

感谢您的回复，我也有点没太懂。我还是一点点学习吧。

hang2114

grf1973 发表于 2023-4-13 10:50
如果1月，sm=1，否则sm为输入月份-1。
结果是sm不可能为0，也不可能为12.
不知道这代码有什么用。

感谢您的回复，说实话我从第一步就卡住，我还是按部就班学习一下吧

xunanming

hang2114 发表于 2023-4-13 10:30
感谢回复，但是我还有一个不明白，如果是1月则SM=M，那么，如果我输入2月，这个代码会演变成什么样？

按现有代码的意思是不是01,在YM上减1,再提取两位,就是比输入的月份小一个月,具体用途就看你的表格了.