Private Sub worksheet_change(ByVal Target As Range)
If Intersect(Target, [H5,X4]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Address = "$H$5" Then
[X4] = [H5]
Else
[H5] = [X4]
End If
If Intersect(Target, [H7,y6]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Address = "$H$7" Then
[y6] = [H7]
Else
[H7] = [y6]
End If
Application.EnableEvents = True
End Sub
uj5u.com熱心網友回復：
這是VB呀，應該發到VB版uj5u.com熱心網友回復：
剛來初到，又是外行，謝謝指點。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/58102.html
標籤：數據庫及相關技術
上一篇：電腦存盤磁盤記錄