[已解决]求助帮忙修改及增加代码

jiangjian138 · 发表于 2016-2-21 22:44

本帖最后由 jiangjian138 于 2016-2-23 23:17 编辑

想实现的结果:
1.根据K列部门段，如果在代码表c列里面存在的理赔中心，科目段和预算段就会根据E-G列替换成理赔的科目段和预算段，如：导入表第一行部门段代码为“200102”在代码表C列中存在，就其对应的科目段：6601330200替换为6511052800，预算段1102替换为LP1013；
2.导入表生成的为原始数据，在完成第1步后，根据借方和贷方自动合并：如导入表中四个区域（四种不同颜色，但是实际生成是没有颜色的）根据J-U列相同的条件自动相加得到最终结果；
3.将A-U列/X-Y列变成文本格式
4.能否帮忙修改一下已经完成的代码使得生成的过程更加流畅，不会出现闪屏

最佳答案

月排行榜 / 总排行榜

雪舞子

2016-2-24 16:43

jiangjian138 发表于 2016-2-24 14:23
其实整个表只是有三步：
1.判断SHEET1的K列里面的部门代码在SHEET2的C列是否存在，如果存在继续第2步，如 ...

楼主测试一下：

Sub test()
Dim d As Object, arr, brr, i&, j&, s$, t
t = Timer
Set d = CreateObject("scripting.dictionary")
arr = Sheets("sheet2").Range("c1").CurrentRegion
For i = 2 To UBound(arr)
For j = 2 To UBound(arr)
If Len(arr(j, 1)) Then
s = arr(i, 3) & "|" & arr(j, 1)
d(s) = i
End If
Next
Next
With Sheets("sheet1")
brr = .Range("k1:s" & .[l65536].End(3).Row)
For i = 2 To UBound(arr)
s = brr(i, 2) & "|" & brr(i, 1)
If d.exists(s) Then
brr(i, 2) = arr(d(s), 4)
brr(i, 9) = arr(d(s), 5)
End If
Next
.[k1].Resize(i - 1, 9) = brr
End With
MsgBox Timer - t
End Sub

复制代码

运行时间
(, 下载次数: 32)

QCW911 · 发表于 2016-2-22 17:05

有偿编写，有意加QQ57726980

wanao2008 · 发表于 2016-2-23 19:57

不意思，我运行了一下宏“dffz”，没有出现闪屏现象。
主要还是我没理解你的意图，既然这样，那我问几个问题吧！
1、你一共有3个表，分别是“导入表”“分摊表”“代码表”，你想要做什么？
2、你表里的5个宏都能用吗？你想修改哪个宏？
如果没人解答的话，你可以扫我二维码加我QQ，便于交流。

jiangjian138 · 发表于 2016-2-23 21:55

wanao2008 发表于 2016-2-23 19:57
不意思，我运行了一下宏“dffz”，没有出现闪屏现象。
主要还是我没理解你的意图，既然这样，那我问几个问 ...

.其实我就是想导入表里面的K列部门段，如果在代码表c列里面存在的理赔中心，科目段和预算段就会根据代码表E-G列替换成理赔的科目段和预算段，如：导入表第一行部门段代码为“200102”在代码表C列中存在，就其对应的科目段：6601330200替换为6511052800，同时根据代码表的E-G列的对应关系也将预算段换成LP1013；分摊表其实可以不用管的，看能否帮忙完成这个代码编写

雪舞子 · 发表于 2016-2-24 10:51

1，源代码实现需求了吗？
运行源代码后，未见“6601330200替换为6511052800，预算段1102替换为LP1013”

2，“200102在代码表C列中存在，就其对应的科目段：6601330200替换为”，200102与6601330200是如何对应的

3，代码表中C列中有重复代码，以哪个为准？

jiangjian138 · 发表于 2016-2-24 11:42

本帖最后由 jiangjian138 于 2016-2-24 11:43 编辑

雪舞子发表于 2016-2-24 10:51
1，源代码实现需求了吗？
运行源代码后，未见“6601330200替换为6511052800，预算段1102替换为LP1013”

...

我源代码的是意思是：如果Sheet1的K列能在代码表C列里面的话，那么就会将之前的6601330200替换为6511052800，预算段1102替换为LP1013，你可以看看我上传的附件就知道了，Sheet1的K列不变，只是L和S列会变化而已

查找替换1.rar (14.18 KB, 下载次数: 2)

雪舞子 · 发表于 2016-2-24 12:19

还是未能如实回答问题
1，源代码实现需求了吗？
运行源代码后，未见“6601330200替换为6511052800，预算段1102替换为LP1013”

运行前

运行后

所以确实很难理解你的思维

不知你需要怎么改你的源代码
L及S到底要怎么变

雪舞子 · 发表于 2016-2-24 12:29

2，“200102在代码表C列中存在，就其对应的科目段：6601330200替换为”，200102与6601330200是如何对应的

这是一种什么对应关系，怎么对应的呢？

jiangjian138 · 发表于 2016-2-24 12:40

雪舞子发表于 2016-2-24 12:19
还是未能如实回答问题
1，源代码实现需求了吗？
运行源代码后，未见“6601330200替换为6511052800，预算段 ...

没实现需求，您划框的地方是因为它前面的部门段400156不在代码表C列里面，所以就算科目段是6601330200，也不会被替换成6511052800

jiangjian138 · 发表于 2016-2-24 12:44

雪舞子发表于 2016-2-24 12:29
2，“200102在代码表C列中存在，就其对应的科目段：6601330200替换为”，200102与6601330200是如何对应的
...

200102与6601330200是如何对应的，他们之间是没有对应关系的，我只要如果K列是在代码表里存在的作为判断是否需要将6601330200替换的条件，然后6601330200替换成6511052800后，在根据代码表6511052800中的对应关系，将S列换成代码表中6511052800中的对应的LP1013

		自动登录	找回密码
密码			注册

[已解决]求助帮忙修改及增加代码

相关帖子

评分