|
新手一名,刚刚学VBA,之前对它就一直很感冒,可又一直没学.今天好歹学了点单元格数值改变事件,也是帮同事完成EXCEL 表格功能,觉得很爽. <br/><br/>实现功能:双击A单元格,B单元格数值也随着变化.这小功能在结合网络、VBA帮助,了解大半天.最终玩了出来.<br/>rivate Sub Worksheet_Change(ByVal target As Range)<br/><br/>    If target.Row = 8 And target.Column = 3 Then<br/>        Sheet1.Cells(8, 4).Value = target.Value * Sheet1.Cells(8, 2).Value<br/>    End If<br/>    <br/>    If target.Row = 8 And target.Column = 4 Then<br/>        Sheet1.Cells(8, 3).Value = target.Value / Sheet1.Cells(8, 2).Value<br/>    End If<br/><br/>End Sub<br/><br/>或者<br/>rivate Sub Worksheet_Change(ByVal target As Range)<br/>    <br/>    If target.Address = "$D$8" Then<br/>    <br/>        Sheet1.Cells(8, 3).Value = target.Value / Sheet1.Cells(8, 2).Value<br/>      <br/>        <br/>    End If<br/>    <br/>    If target.Address = "$C$8" Then<br/>    <br/>        Sheet1.Cells(8, 4).Value = target.Value * Sheet1.Cells(8, 2).Value<br/>           <br/>        <br/>    End If<br/>End Sub<br/>
<br/> |
|