老师帮忙看看程序哪有问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师帮忙看看程序哪有问题

共有2662人关注过本帖树形打印复制链接主题：老师帮忙看看程序哪有问题

wh420

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

老师帮忙看看程序哪有问题 发帖心情

Post By：2016/9/29 16:29:00 [只看该作者]

软件功能是DICT.xls的字典中找到内容并填充到test20.xlsx文件中，程序可正常执行，但结果不对，填充后多了些重复的内容。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目35.rar

wh420

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2016/9/29 16:33:00 [只看该作者]

程序正确的结果应该是实现在对应的单元格内容后加分隔符”|“再加上外语内容，而不是在其他空白列填充内容。

wh420

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2016/9/29 16:34:00 [只看该作者]

正确结果如下图

此主题相关图片如下：qq截图20160929163335.jpg

sloyy

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2016/9/29 16:35:00 [只看该作者]

既然知道错误出在哪,就应该知道如何改正

wh420

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2016/9/29 16:39:00 [只看该作者]

至于错在哪还请指教，我还真是没有找到原因。

wh420

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2016/9/29 17:05:00 [只看该作者]

不知道什么原因会把符合条件的内容都填充到了空白A列，而不是填充到现有内容的单元格

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/9/29 17:46:00 [只看该作者]

ws.cells(i, j).Value = ary(i,j) & "|" & dic(ary(i,j).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), ""))

改为

rg(i, j).Value = ary(i,j) & "|" & dic(ary(i,j).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), ""))

wh420

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2016/11/2 11:41:00 [只看该作者]

rg(i,j+1).value = dic(ary(i,j).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), ""))

以上代码，如果是处理合并的单元格没有效果。

J+1是在其当前单元格右边一列，如何判断多个单元格合并后右边的那一列?(如：判断A列、B列、C列是合并的单元格，我希望到D列去赋值

wh420

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2016/11/2 12:09:00 [只看该作者]

老师帮忙给看看

有点色

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/11/2 12:48:00 [只看该作者]

判断合并单元格很简单

If rg(i, j).MergeCells Then

msgbox(rg(i, j).MergeArea.Columns.count)

End If

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：老师帮忙看看程序哪有问题