求大神解决疑惑

mx31876

shiruiqiang 发表于 2023-6-30 21:40
楼上的各位老师问你标红的数据怎么来？否则很简单

标红的数据是固定不变的，其实就是一个凭证导入模板，40就是贷方 日期月份那些都是对应当月的

mx31876

shiruiqiang 发表于 2023-6-30 21:40
楼上的各位老师问你标红的数据怎么来？否则很简单

我的想法就是，如果我能手动填列明细表数据，工作表1能自动生成我想要的导入模板，比如第一行我填列合同号1-合同号4，那么工作表中就能自动生成借方4行 贷方对应1行数据 汇总金额即可，不知道大神能否理解

shiruiqiang

mx31876

shiruiqiang 发表于 2023-6-30 21:45

求大神整成附件，图片无法复制。

mx31876

shiruiqiang 发表于 2023-6-30 21:45

大神，我试了一下你这个代码，当填列到合同号4执行就不行了 最多只能三行？

shiruiqiang

mx31876 发表于 2023-6-30 22:10
大神，我试了一下你这个代码，当填列到合同号4执行就不行了 最多只能三行？

mx31876

shiruiqiang 发表于 2023-6-30 22:18

感谢大神，祝大神好人一生平安。

rocklyman

1. Sub test()
   
2. k = 1
   
3. 
   
4. For i = 2 To Sheets("Ã÷ϸ").Range("A1").End(xlDown).Row
   
5.     j = Range("D65535").End(xlUp).Row + 1
   
6.     Range("D" & j) = Sheets("Ã÷ϸ").Range("A" & i + m + n)
   
7.     Range("F" & j) = Sheets("Ã÷ϸ").Range("B" & i + m + n)
   
8.     Range("H" & j) = Sheets("Ã÷ϸ").Range("E" & i + m + n)
   
9.     Range("I" & j) = Sheets("Ã÷ϸ").Range("C" & i + m + n)
   
10.     Range("J" & j) = Sheets("Ã÷ϸ").Range("D" & i + m + n)
    
11.     Range("E" & j) = "11"
    
12.     Range("G" & j) = Sheets("Ã÷ϸ").Range("F" & i + m + n)
    
13.     Range("A" & j) = k
    
14.     If Sheets("&#195;÷&#207;&#184;").Range("G" & i) <> "" Then
    
15.         m = m + 1
    
16.         Range("D" & j + m) = Sheets("&#195;÷&#207;&#184;").Range("A" & i)
    
17.         Range("F" & j + m) = Sheets("&#195;÷&#207;&#184;").Range("B" & i)
    
18.         Range("H" & j + m) = Sheets("&#195;÷&#207;&#184;").Range("I" & i)
    
19.         Range("I" & j + m) = Sheets("&#195;÷&#207;&#184;").Range("G" & i)
    
20.         Range("J" & j + m) = Sheets("&#195;÷&#207;&#184;").Range("H" & i)
    
21.         Range("E" & j + m) = "11"
    
22.         Range("G" & j + m) = Sheets("&#195;÷&#207;&#184;").Range("J" & i)
    
23.         Range("A" & j + m) = k
    
24.     End If
    
25.     If Sheets("&#195;÷&#207;&#184;").Range("K" & i) <> "" Then
    
26.         n = n + 1
    
27.         Range("D" & j + m + n) = Sheets("&#195;÷&#207;&#184;").Range("A" & i)
    
28.         Range("F" & j + m + n) = Sheets("&#195;÷&#207;&#184;").Range("B" & i)
    
29.         Range("H" & j + m + n) = Sheets("&#195;÷&#207;&#184;").Range("M" & i)
    
30.         Range("I" & j + m + n) = Sheets("&#195;÷&#207;&#184;").Range("K" & i)
    
31.         Range("J" & j + m + n) = Sheets("&#195;÷&#207;&#184;").Range("L" & i)
    
32.         Range("E" & j + m + n) = "11"
    
33.         Range("G" & j + m + n) = Sheets("&#195;÷&#207;&#184;").Range("N" & i)
    
34.         Range("A" & j + m + n) = k
    
35.     End If
    
36.     Range("D" & j + m + n + 1) = Sheets("&#195;÷&#207;&#184;").Range("A" & i)
    
37.     Range("F" & j + m + n + 1) = "1121040000"
    
38.     Range("H" & j + m + n + 1) = "S000000"
    
39.     Range("I" & j + m + n + 1) = "999"
    
40.     Range("J" & j + m + n + 1) = "1000000000"
    
41.     Range("E" & j + m + n + 1) = "40"
    
42.     Range("G" & j + m + n + 1) = Application.Sum(Range("G" & j & ":G" & j + m + n))
    
43.     Range("A" & j + m + n + 1) = k
    
44.     m = 0
    
45.     n = 0
    
46.     k = k + 1
    
47. Next
    
48. End Sub
    

复制代码

XIHAUA

这个问题不复杂,接受付费吗?付费后5分钟解决.
可以私信我.

mx31876

rocklyman 发表于 2023-6-30 22:45

运行时错误9,下标越界？