VB代码缩进排版

win2009

代码缩进很难搞，需要多次判断
我需要代码缩进算法，大侠能否指点一下，谢谢

baomaboy

zyg365 发表于 2013-1-11 08:14
　          　

代码:

Private Function HMZHXJ(InNum) InNumXJ = 0 For i = 1 To Len(InNum) InNumXJ = InNumXJ + Int(Mid(InNum, i, 1)) Next If InNumXJ < 82 Then InNumXJ = InNumXJ ElseIf InNumXJ Mod 80 = 0 Then InNumXJ = 80 Else InNumXJ = InNumXJ Mod 80 End If HMZHXJ = InNumXJ End Function

代码:

Private Function HMZHXJ(InNum)     InNumXJ = 0     For i = 1 To Len(InNum)         InNumXJ = InNumXJ + Int(Mid(InNum, i, 1))     Next     If InNumXJ < 82 Then         InNumXJ = InNumXJ     ElseIf InNumXJ Mod 80 = 0 Then         InNumXJ = 80     Else         InNumXJ = InNumXJ Mod 80     End If     HMZHXJ = InNumXJ End Function

你为什么不用默认选择呢？出选择时直接回车就行了，你用了其他论坛的格式(以前在cn-dos时必须用那种，适用本论坛的在cn-dos反而会乱码)，你如果熟悉网络编程一定懂的，哪些标签过滤和不过滤全看网站怎么控制呢，所以在本论坛你用默认选项就是上面的效果了。

zyg365

baomaboy 发表于 2011-9-7 19:40
缩进排版前：

缩进排版后：

<br><font color=blue>Private</font>&nbsp;<font color=blue>Function</font>&nbsp;HMZHXJ(InNum)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;InNumXJ&nbsp;=&nbsp;0<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=blue>For</font>&nbsp;i&nbsp;=&nbsp;1&nbsp;<font color=blue>To</font>&nbsp;<font color=red>Len</font>(InNum)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;InNumXJ&nbsp;=&nbsp;InNumXJ&nbsp;+&nbsp;<font color=red>Int</font>(<font color=red>Mid</font>(InNum,&nbsp;i,&nbsp;1))<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=blue>Next</font><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=blue>If</font>&nbsp;InNumXJ&nbsp;&lt;&nbsp;82&nbsp;<font color=blue>Then</font><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;InNumXJ&nbsp;=&nbsp;InNumXJ<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=blue>ElseIf</font>&nbsp;InNumXJ&nbsp;<font color=blue>Mod</font>&nbsp;80&nbsp;=&nbsp;0&nbsp;<font color=blue>Then</font><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;InNumXJ&nbsp;=&nbsp;80<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=blue>Else</font><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;InNumXJ&nbsp;=&nbsp;InNumXJ&nbsp;<font color=blue>Mod</font>&nbsp;80<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=blue>End If</font><BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;HMZHXJ&nbsp;=&nbsp;InNumXJ<BR>
<font color=blue>End Function</font><BR>
<BR>

　          　

DDBB2008

学习了，都是干工程的

jiangdong110

好东西，用得着！

sunny_8848

去冗余代码功能不错，多谢楼主分享

kejiawen1025

通用扩展EXCEL工具集，EXCEL2010的按钮要在哪里找？2003的我知道

baomaboy

kejiawen1025 发表于 2013-12-18 16:53
通用扩展EXCEL工具集，EXCEL2010的按钮要在哪里找？2003的我知道

2003及以前是在菜单里，2003之后是在选项卡里。

龙蒙山

收藏学习了，谢谢！

swl111

怎么有关代码的选项在表格的里，没有在VBA编辑器里面啊