根据两个单元格数值的改变，分别给另外对应的两个单元格赋值

ianlh

如附件所示，目前对vba不是很懂，请教大神怎样将这两段代码合在一起，谢谢！

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 'Updateby Extendoffice 20160728
   
3.     Dim xrng As Range
   
4.     Set xrng = Range("AM2:AM5")
   
5.     If Not Application.Intersect(xrng, Range(Target.Address)) _
   
6.            Is Nothing Then
   
7.         Range("G23").Value = 1
   
8.         'Range("F2").Value = Range("B1").Value
   
9.     End If
   
10. End Sub
    
11. 
    
12. Private Sub Worksheet_Change1(ByVal Target As Range)
    
13. 'Updateby Extendoffice 20160728
    
14.     Dim xrng As Range
    
15.     Set xrng = Range("B1")
    
16.     If Not Application.Intersect(xrng, Range(Target.Address)) _
    
17.            Is Nothing Then
    
18.        ' Range("G23").Value = 1
    
19.         Range("F2").Value = Range("B1").Value
    
20.     End If
    
21. End Sub
    
22. 
    

复制代码

新建 Microsoft Excel 工作表.rar (11.81 KB, 下载次数: 3)

2022-11-17 20:32 上传

点击文件名下载附件

半百

ianlh

半百 发表于 2022-11-18 10:34

谢谢帮助，问题解决了