自动填表[已上传附件】

yooha

自动填表.7z (23.12 KB, 下载次数: 16)

2018-9-5 21:09 上传

点击文件名下载附件

根据I列的工序名称在“工序设备表”C列找到对应的设备名称填入J列相应位置，同理M、P、S等列也是根据前一列名称来填，谢谢
Sub gj23w98()
     Set d = CreateObject("Scripting.Dictionary")
     arr = Sheet3.[b1].CurrentRegion
     For i = 2 To UBound(arr)
        d(arr(i, 1)) = arr(i, 2)
    Next
    brr = [a2].CurrentRegion
    For i = 2 To UBound(brr)
        For j = 9 To UBound(brr, 2) Step 3
            If d.exists(brr(i, j)) Then brr(i, j + 1) = d(brr(i, j))
        Next
    Next
    [a2].CurrentRegion = brr
End Sub

yooha

等等，我发的这个逻辑有问题。晚上我重发一个

lsc900707

yooha 发表于 2018-9-5 16:35
等等，我发的这个逻辑有问题。晚上我重发一个

关键是要提供附件。

yooha

lsc900707 发表于 2018-9-5 18:25
关键是要提供附件。

谢谢提醒已上传，我能找到的程序都是针对一行或一列进行的，这种阵列式的结构该怎么办呢？

lsc900707

yooha 发表于 2018-9-5 19:31
谢谢提醒已上传，我能找到的程序都是针对一行或一列进行的，这种阵列式的结构该怎么办呢？

字典的基本运用问题。只要填设备号吧，没有设备名称！

lsc900707

yooha 发表于 2018-9-5 19:31
谢谢提醒已上传，我能找到的程序都是针对一行或一列进行的，这种阵列式的结构该怎么办呢？

1. Sub gj23w98()
   
2.      Set d = CreateObject("Scripting.Dictionary")
   
3.      arr = Sheet3.[b1].CurrentRegion
   
4.      For i = 2 To UBound(arr)
   
5.         d(arr(i, 1)) = arr(i, 2)
   
6.     Next
   
7.     brr = [a2].CurrentRegion
   
8.     For i = 2 To UBound(brr)
   
9.         If d.exists(brr(i, 9)) Then brr(i, 9) = d(brr(i, 9))
   
10.     Next
    
11.     [a2].CurrentRegion = brr
    
12. End Sub

复制代码

yooha

lsc900707 发表于 2018-9-5 20:47

测试了一下，只是将I列的原工序名称替代为了设备号，其他列也没有变化

lsc900707

yooha 发表于 2018-9-5 21:13
测试了一下，只是将I列的原工序名称替代为了设备号，其他列也没有变化

Sub gj23w98()
     Set d = CreateObject("Scripting.Dictionary")
     arr = Sheet3.[b1].CurrentRegion
     For i = 2 To UBound(arr)
        d(arr(i, 1)) = arr(i, 2)
    Next
    brr = [a2].CurrentRegion
    For i = 2 To UBound(brr)
        If d.exists(brr(i, 9)) Then brr(i, 10) = d(brr(i, 9))
    Next
    [a2].CurrentRegion = brr
End Sub

lsc900707

yooha 发表于 2018-9-5 21:13
测试了一下，只是将I列的原工序名称替代为了设备号，其他列也没有变化

你自己说明里没有呀，只说i,j列嘛，自己加个循环就好了。

lsc900707

yooha 发表于 2018-9-5 21:13
测试了一下，只是将I列的原工序名称替代为了设备号，其他列也没有变化

1. Sub gj23w98()
   
2.      Set d = CreateObject("Scripting.Dictionary")
   
3.      arr = Sheet3.[b1].CurrentRegion
   
4.      For i = 2 To UBound(arr)
   
5.         d(arr(i, 1)) = arr(i, 2)
   
6.     Next
   
7.     brr = [a2].CurrentRegion
   
8.     For i = 2 To UBound(brr)
   
9.         For j = 9 To UBound(brr, 2) Step 3
   
10.             If d.exists(brr(i, j)) Then brr(i, j + 1) = d(brr(i, j))
    
11.         Next
    
12.     Next
    
13.     [a2].CurrentRegion = brr
    
14. End Sub

复制代码