透过按钮，执行资料复制

lkk0063 · 发表于 2019-11-27 09:47

爱疯发表于 2019-11-27 09:21
注释了你原来的代码，让按钮去执行我的代码了。

谢谢版主,
我来测试看看是否有问题

lkk0063 · 发表于 2019-11-27 15:05

爱疯发表于 2019-11-27 09:21
注释了你原来的代码，让按钮去执行我的代码了。

版主你好,
不好意思, 问题有点多, 确认程式后, 我有寻找到以下几个问题想询问
1.批号重覆问题?

2.批号-后面改成-FQC

ex : 19032821-2320 ==>19032821-FQC
3.若想跳过 "E" 栏位数值，需修改什么程式码

4.若想跳过 "E" 栏位与"G" 栏位数值，需修改什么程式码

5.若想最后两个栏位数值只抓取前两个数值，其余抓取五笔资料，需修改什么程式码

6.若想 "E" 栏位与"M" 栏位数值只抓取前两个数值，其余抓取五笔资料，需修改什么程式码

爱疯 · 发表于 2019-11-27 15:15

我应该是搞错原题了吧

1楼的图1（Test-FQC里的截图），只有第6行有数据，接下来的
第7行
第8行
...

都和第6行一样吗？

lkk0063 · 发表于 2019-11-27 15:33

本帖最后由 lkk0063 于 2019-11-27 15:34 编辑

爱疯发表于 2019-11-27 15:15
我应该是搞错原题了吧

1楼的图1（Test-FQC里的截图），只有第6行有数据，接下来的

版主你好,
因版面有限, 所以有些我没撷取画面, 與第六行一樣
数据A1 资料复制到 Test-FQC A1资料
数据A2 资料复制到 Test-FQC A2资料
数据B资料复制到 Test-FQC B资料
直到数值 M为止

爱疯 · 发表于 2019-11-27 15:48

lkk0063 发表于 2019-11-27 15:33
版主你好,
因版面有限, 所以有些我没撷取画面, 與第六行一樣
数据A1 资料复制到 Test-FQC A1资料

数据A2 资料复制到 Test-FQC A2资料
数据B资料复制到 Test-FQC B资料

既然“與第六行一樣”，那这2句的结果是怎样的？

lkk0063 · 发表于 2019-11-27 16:41

本帖最后由 lkk0063 于 2019-11-27 16:47 编辑

爱疯发表于 2019-11-27 15:48
数据A2 资料复制到 Test-FQC A2资料
数据B资料复制到 Test-FQC B资料

版主你好,Test-IPQC & Test-FQC 对应关系如下图所示

Test-IPQC A1

Test-FQC A1

************************************************
Test-IPQC A2

Test-FQC A2

************************************************
Test-IPQC B

Test-FQC B

************************************************
Test-IPQC C

Test-FQC C

************************************************
Test-IPQC D

Test-FQC D

************************************************
Test-IPQC E

Test-FQC E

************************************************
Test-IPQC F

Test-FQC F

************************************************
Test-IPQC G

Test-FQC G

************************************************
Test-IPQC H

Test-FQC H

************************************************
Test-IPQC J

Test-FQC J

************************************************
Test-IPQC M

Test-FQC M

爱疯 · 发表于 2019-11-27 17:42

d.rar (34.31 KB, 下载次数: 4)

lkk0063 · 发表于 2019-11-28 08:36

爱疯发表于 2019-11-27 17:42
修改了Test-IPQC.xls
1）f3:j13的值，只是测试值，不是真正数据。
2）K列是辅助列 ...

版主你好,
好, 我把问题分开问好了,, 我有发现 "E栏位" 4 & 5 开始，数值好像就开始出错，可以帮忙确任吗?
备注 : 另外注解我的会变成乱码看不出来

爱疯 · 发表于 2019-11-28 08:53

e.rar (36.64 KB, 下载次数: 3)

lkk0063 · 发表于 2019-11-28 09:41

本帖最后由 lkk0063 于 2019-11-28 09:42 编辑

爱疯发表于 2019-11-28 08:53

版主你好,
测试后，可以了, 没注意原来 "K" 栏位可以控制想要显示数值
我有两句程式码弄不清(红字部分)，可否注解
(1)

For i = 3 To UBound(A)
      For j = 1 To 5
         k = k + 1
         B(1, k) = IIf(j > A(i, 11), "", A(i, j + 5))

*********************************************************
原程式码 :
Sub step1()
Dim i, j, k
ThisWorkbook.Activate
A = Range("a1").CurrentRegion

B(1, 1) = [G1]
B(1, 2) = [C1]
B(1, 3) = [E1]
k = 3
For i = 3 To UBound(A)
      For j = 1 To 5
         k = k + 1
         B(1, k) = IIf(j > A(i, 11), "", A(i, j + 5))
      Next j
Next i
End Sub
*********************************************************
(2)

Cells(6, 1).Resize(1, UBound(B, 2)) = B

*********************************************************
原程式码 :
'To Test-FQC
Sub step2()
Dim p, f
p = ThisWorkbook.Path & "\"
f = "Test-FQC.xls"

Call step3(f)
With Workbooks.Open(p & f)
      Cells(6, 1).Resize(1, UBound(B, 2)) = B
      .Close True
End With
End Sub
*********************************************************

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