标签：VBA ab 函数 mm 30 Range xx Rem 返回值

Function pda(x)
a = x
If Len(a) = 1 Then
 ab = "00" & a
ElseIf Len(a) = 2 Then
  ab = "0" & a
ElseIf Len(a) = 3 Then
  ab = a
 
End If
 pda = ab
End Function

Sub pd()
n = Worksheets.Count

Rem ¼ÆË㵱ǰËùÓй¤×÷±íÊýÁ¿
Rem xxΪÿ¸ö¿¼³¡µÄÈËÊý
Rem yyΪµ±Ç°×¨Òµ±ê¼Ç
Rem mmΪµ±Ç°×¨Òµ¿¼ÉúÈËÊý
Rem shuΪµ±Ç°×¨Òµ¿¼ºÅÕÅÊý
Rem shuuΪµ±Ç°×¨Òµ¿¼³¡ÊýÁ¿
xx = 44
yy = 2001
mm = 999

If Int(mm / xx) = mm / xx Then
shuu = mm / xx
ElseIf Int(mm / xx) <> mm / xx Then
shuu = Int(mm / xx) + 1
End If
If Int(mm / 30) = mm / 30 Then
shu = mm / 30
ElseIf Int(mm / 30) <> mm / 30 Then
shu = Int(mm / 30) + 1
End If

bz = 0
For i = 1 To shuu
ab = pda((i - 1) * i)
ab1 = pda((i * xx))
  
Rows("1:1").RowHeight = 171.75
Rows("2:2").RowHeight = 123.75
Columns("A:A").ColumnWidth = 130.5
Range("A1:c10").Font.Name = "ËÎÌå"
Range("A1:c10").Font.Bold = True
Range("A1:A1").Font.Size = 90
Range("A2:A2").Font.Size = 60
Range("A1:a2").HorizontalAlignment = xlCenter
Range("a" & 1) = "¼ÆËã»ú¿¼³¡1"
abb = ab
Range("a" & 2) = "¿¼ºÅ£¨2003" & ab & "-2003" & (ab1) & ")"

Next
End Sub

标签：VBA,ab,函数,mm,30,Range,xx,Rem,返回值
来源： https://www.cnblogs.com/xkdn/p/14759617.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。