请教数据问题

shenjianrong163

zjnbzjg 发表于 2020-2-20 20:05
下标越界解决了，就是1.能不能自动运行，2.在其他的数据表也可以用，我有好几张这样的表，数据库源文件是 ...

自动运行的方式有多种，比如打开工作薄、关闭工作薄、双击单元格、切换工作表等；如果有多个这样的工作薄或者工作表，可以用循环的方式处理。

zjnbzjg

shenjianrong163 发表于 2020-2-20 21:23
自动运行的方式有多种，比如打开工作薄、关闭工作薄、双击单元格、切换工作表等；如果有多个这样的工作薄 ...

当单元格数据有变化时，自动调用对应数值填入对应位置，多个工作表循环如何设置，谢谢！

zjnbzjg

zjnbzjg 发表于 2020-2-20 22:05
当单元格数据有变化时，自动调用对应数值填入对应位置，多个工作表循环如何设置，谢谢！

多个工作簿都可以用已经解决，当单元格数值变化后自动调用sheet3内数据无法解决，；楼上大侠的程序必须要点执行按钮才有效，请教，谢谢

zjnbzjg

zjnbzjg 发表于 2020-2-20 20:05
下标越界解决了，就是1.能不能自动运行，2.在其他的数据表也可以用，我有好几张这样的表，数据库源文件是 ...

如何让下面程序当C列单元格数值变化后自动运行，求解
Sub test()
    Dim i%, j%, r1%, r2%, arr, brr
    With Sheets("Sheet3")
        r1 = .Cells(.Rows.Count, 1).End(xlUp).Row
        arr = .Range("A2:B" & r1)
    End With
    With Sheets("Sheet1")
        r2 = .Cells(.Rows.Count, 3).End(xlUp).Row
        brr = .Range("C2:F" & r2)
        For i = 1 To UBound(brr)
            For j = 1 To UBound(arr)
                If brr(i, 1) = arr(j, 1) Then
                    brr(i, 4) = arr(j, 2)
                    Exit For
                End If
            Next
        Next
        .[C2].Resize(UBound(brr), 4) = brr
    End With
End Sub

shenjianrong163

zjnbzjg 发表于 2020-2-21 09:56
如何让下面程序当C列单元格数值变化后自动运行，求解
Sub test()
    Dim i%, j%, r1%, r2%, arr, brr
...

把下面的程序放到Sheet1中，这是单元格内容改变后触发的事件：

1. Sub Worksheet_Change(ByVal Target As Range)  '更改单元格的值触发的事件
   
2.         Dim i%, j%, r1%, r2%, arr, brr
   
3.     With Sheets("Sheet3")
   
4.         r1 = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         arr = .Range("A2:B" & r1)
   
6.     End With
   
7.     With Sheets("Sheet1")
   
8.         r2 = .Cells(.Rows.Count, 3).End(xlUp).Row
   
9.         brr = .Range("C2:F" & r2)
   
10.         For i = 1 To UBound(brr)
    
11.             For j = 1 To UBound(arr)
    
12.                 If brr(i, 1) = arr(j, 1) Then
    
13.                     brr(i, 4) = arr(j, 2)
    
14.                     Exit For
    
15.                 End If
    
16.             Next
    
17.         Next
    
18.         .[C2].Resize(UBound(brr), 4) = brr
    
19.     End With
    
20. End Sub

复制代码

zjnbzjg

shenjianrong163 发表于 2020-2-21 10:04
把下面的程序放到Sheet1中，这是单元格内容改变后触发的事件：

在使用过程中发现，C列数据变化调用数值写入F列时会对D列和E列有影响（我在D和E列有公式），能只对C列所点单元格和同一行对应F列单元格有效吗？请教，谢谢！

shenjianrong163

zjnbzjg 发表于 2020-2-21 15:20
在使用过程中发现，C列数据变化调用数值写入F列时会对D列和E列有影响（我在D和E列有公式），能只对C列所 ...

多用一个数组来处理：

1. Sub Worksheet_Change(ByVal Target As Range)  '更改单元格的值触发的事件
   
2.     Dim i%, j%,  r1%, r2%, arr, brr, crr()
   
3.     With Sheets("Sheet3")
   
4.         r1 = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         arr = .Range("A2:B" & r1)
   
6.     End With
   
7.     With Sheets("Sheet1")
   
8.         r2 = .Cells(.Rows.Count, 3).End(xlUp).Row
   
9.         brr = .Range("C2:C" & r2)
   
10.         ReDim crr(1 To r2 - 1)
    
11.         For i = 1 To UBound(brr)
    
12.             For j = 1 To UBound(arr)
    
13.                 If brr(i, 1) = arr(j, 1) Then
    
14.                     crr(i) = arr(j, 2)
    
15.                     Exit For
    
16.                 End If
    
17.             Next
    
18.         Next
    
19.         .[F2].Resize(UBound(crr), 1) = Application.Transpose(crr)
    
20.     End With
    
21. End Sub

复制代码

zjnbzjg

shenjianrong163 发表于 2020-2-21 15:49
多用一个数组来处理：

谢谢！此程序解决了单元格输入问题，如果要在多个工作薄中使用，可以把sheets（‘sheet1’’）改为ActiveSheet，现在出现了点击其他用户窗体时运行时出现‘方法range‘’作用于对象不对‘’worksheet时失败，是和问题？是不是要在单元格触发事件中对单元格进行指定？如何解决？谢谢

excel海

zjnbzjg 发表于 2020-2-21 18:22
谢谢！此程序解决了单元格输入问题，如果要在多个工作薄中使用，可以把sheets（‘sheet1’’）改为Active ...

没有这个名字的工作表呗,sheets("sheet1")改成你的实际工作表名

zjnbzjg

excel海 发表于 2020-2-21 18:28
没有这个名字的工作表呗,sheets("sheet1")改成你的实际工作表名

原来没加入这段程序的时候我用户窗体运行是正常的