扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
制图数据多边形区域符号自动填充算法实现
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口求一个网页自动填充用户名密码的java程序
[问题点数：40分，结帖人u]
求一个网页自动填充用户名密码的java程序
[问题点数：40分，结帖人u]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关推荐：
2013年10月 Java大版内专家分月排行榜第二2013年3月 Java大版内专家分月排行榜第二2013年2月 Java大版内专家分月排行榜第二
2013年7月 Java大版内专家分月排行榜第三2013年5月 Java大版内专家分月排行榜第三2013年4月 Java大版内专家分月排行榜第三
2013年10月 Java大版内专家分月排行榜第二2013年3月 Java大版内专家分月排行榜第二2013年2月 Java大版内专家分月排行榜第二
2013年7月 Java大版内专家分月排行榜第三2013年5月 Java大版内专家分月排行榜第三2013年4月 Java大版内专家分月排行榜第三
2010年8月 硬件使用大版内专家分月排行榜第二
2010年7月 Windows专区大版内专家分月排行榜第三2009年1月 Windows专区大版内专家分月排行榜第三2008年12月 Windows专区大版内专家分月排行榜第三2006年8月 扩充话题大版内专家分月排行榜第三
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。查看: 452|回复: 8
写了一段自动填充的程序，无限死循环ing……
阅读权限20
在线时间 小时
如附件中，功能是填充单价，例如60一种填充，到下一个数字，自动切换成那个数字，继续填充
10:23 上传
点击文件名下载附件
14.65 KB, 下载次数: 11
阅读权限50
在线时间 小时
Sub input1()
Dim i%, k%, j%, t%
& & k = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
For i = 7 To k
& & If Cells(i, &E&) = && Then Cells(i, &E&) = Cells(i - 1, &E&)
Next i
End Sub复制代码
阅读权限20
在线时间 小时
wdx223 发表于
其实我比较想知道为什么我的无限死循环。。
阅读权限50
在线时间 小时
Sub input1()
Dim i%, k%, j%, t%
& & k = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
i = 7
a:
If i & k Then Exit Sub
& & If Cells(i, 5) && && Then
& && &&&j = i + 1
& && && && &Do While Cells(j, 5) = && And j &= k
& && && && &j = j + 1
& && && && &Loop
& && &&&For t = i + 1 To j - 1
& && &&&Cells(t, 5).Value = Cells(i, 5).Value
& && &&&Next t
& & End If
i = j
GoTo a
End Sub
复制代码Do循环结束后得到的J，已经把下一个非空值包括进去了，然后，你再循环更新，肯定就把第一个100，即第12行更新成60。
那么，你接下来的语句，就会从第13行数据开始，而你的第13行数据为空，死循环在Do语句了。
另外，Do语句，只要为空就会循环，试问到了第45行以后，不死才怪。
阅读权限50
在线时间 小时
& & & & & & & &
呵呵，一条语句解决了问题，楼主的有点烦琐
阅读权限20
在线时间 小时
循环到11行的时候，一直是空，所以就一直判断，判断条件也得不到改变，死循环了。
原来的代码里有很多陷阱，我在你的思路基础上把陷阱都堵住了，虽然这不是最好的实现方法，不过我觉得能让你最快知道原来的代码错在哪里。Sub input1()
Dim i%, k%, j%, t%
&&k = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
&&i = 7
a:
&&If i & k Then Exit Sub
&&
&&If Cells(i, 5) && && Then
& & j = i + 1
& & If j & k Then
& && &Exit Sub
& & End If
& & Do While Cells(j, 5) = &&
& && &j = j + 1
& && &If j & k Then
& && &&&Exit Do
& && &End If
& & Loop
& &
& & For t = i + 1 To j - 1
& && &Cells(t, 5).Value = Cells(i, 5).Value
& & Next t
&&End If
&&
&&i = j
&&GoTo a
End Sub
阅读权限20
在线时间 小时
相对普通点的思路Sub input1()
&&Dim str As String
&&For Each Rng In Range(&E7:E& & Range(&E& & Rows.Count).End(xlUp).Row)
& & If Len(Rng) & 0 Then
& && &str = Rng
& & Else
& && &Rng.Value = str
& & End If
&&Next
End Sub复制代码
阅读权限100
在线时间 小时
思路要简洁：
非空时取值；
空时设置值
阅读权限20
在线时间 小时
谢谢大家了。。。。
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by查看: 2124|回复: 8
如何根据B例内容，在A列自动填充序号？
阅读权限20
在线时间 小时
请看附件要求
14:11 上传
点击文件名下载附件
2.05 KB, 下载次数: 59
阅读权限95
在线时间 小时
a2 =IF(B2&&&&,MOD(ROW()-2,10)+1,&&)
阅读权限20
在线时间 小时
dajiahaoxinku12 发表于
a2 =IF(B2&&,MOD(ROW()-2,10)+1,&&)
用VBA怎么写？
阅读权限95
在线时间 小时
录个宏把公式放进去，设个循环& &
阅读权限20
在线时间 小时
我要用VBA来做呢
阅读权限50
在线时间 小时
& & & & & & & &
本帖最后由 jbjbzjb 于
21:32 编辑
看似简单，其实很复杂。
& & 1.当改变表格行高时，必然影响到水平分页符，故若要确保每页编号正确，请刻意编辑下B列的某一单元格并确认该修改！
& & 2.若设置了打印区域，则每页重新起始编号的功能只对定义的打印区域有效！故若定义了打印区域，请先取消打印区域，
& & 然后刻意编辑下B列某一单元格并确认修改，由此，编号才能在每页重新起始编号
综上所述，若在实际应用中感觉不便，那就不要自动编号，改为单击宏按钮来编号。
附件更新：
考虑到实际工作场景，各行序号的存在与否不应该以该行对应的B列是否存在内容为依据，而是如实填写到B列存在内容的最后一个单元格终止。
21:32 上传
点击文件名下载附件
8.3 KB, 下载次数: 149
阅读权限20
在线时间 小时
本帖最后由
22:19 编辑
真高明，就是这样效果。但是有一点，只要该页B列有内容，那么A列序号填充满整页（即使B列只有一行，那么A列序号还是从1填充到10），打印时达到美观了。
阅读权限50
在线时间 小时
本帖最后由 jbjbzjb 于
17:15 编辑
<font color="#286685 发表于
真高明，就是这样效果。但是有一点，只要该页B列有内容，那么A列序号填充满整页（即使B列只有一行，那么A列 ...
“即使B列只有一行，那么A列序号还是从1填充到10，打印时达到美观。”
应上述要求，代码作了很大变动，更复杂了，故新增楼层。
17:15 上传
点击文件名下载附件
10.09 KB, 下载次数: 169
阅读权限20
在线时间 小时
jbjbzjb 发表于
“即使B列只有一行，那么A列序号还是从1填充到10，打印时达到美观。”
应上述要求，代码作了很大变动， ...
jbjbzjb老师太厉害，就是这样的！
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by}