Hsieh

回復 10# jackdream


    我想樓主最主要的意思是想只要a欄變動
b欄以後公式就能代入a欄的值
我沒有dde的軟體
把代碼貼在該工作表模組內試試

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target <> "" And Target.Column = 1 Then
   
3. Application.EnableEvents = False
   
4. i = InStr(Target.Offset(, 1).Formula, "'")
   
5. k = InStr(Target.Offset(, 1).Formula, "`")
   
6. mystr = Mid(Target.Offset(, 1).Formula, i + 1, k - i - 1)
   
7. Range(Target.Offset(, 1), Target.Offset(, 1).End(xlToRight)).Replace mystr, Target, xlPart
   
8. Application.EnableEvents = True
   
9. End If
   
10. End Sub

複製代碼

Book.rar (10.18 KB)

下載次數: 2

2010-7-27 14:46

Hsieh

回復 15# cheng17875


    程序名稱module1改成Change(iI)