- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 198
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-8-13
               
|
回復 7# c_c_lai
利用Sheet1的事件程序- Private Sub Worksheet_Change(ByVal Target As Range)
- With Me
- If Intersect(Target, .[E3:E4]) Is Nothing Then Exit Sub
- a = .[E3]
- b = .[E4]
- With Sheet2
- c = .Range("B3").CurrentRegion.Find(a, lookat:=xlWhole).Column
- r = .Range("B3").CurrentRegion.Find(b, lookat:=xlWhole).Row
- MsgBox .Cells(r, c)
- End With
- End With
- End Sub
複製代碼 |
|