GBKEE

回復 1# renzhi2020
有關Excel VBA 可到 Excel程式區 發問
試試看

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim KeyCells As Range, E As Range
   
4.     Set KeyCells = Range("A1:A5")
   
5.     If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
   
6.         For Each E In KeyCells
   
7.             If IsNumeric(E) Then   '是數值
   
8.                 Sheets("結果").Cells(E.Row, "B") = E * 5 '給計算後的值
   
9.                 '*****  給公式  ****"
   
10.                 ' Sheets("結果").Cells(E.Row, "B") = "=" & E.Address(, , , 1, 1) & "*5"
    
11.              Else
    
12.                 Sheets("結果").Cells(E.Row, "B") = ""
    
13.             End If
    
14.         Next
    
15.     End If
    
16. End Sub

複製代碼