標題: 想請教各位大大關於儲存格的問題 [打印本頁]

---

作者: tku0216    時間: 2011-11-16 13:36     標題: 想請教各位大大關於儲存格的問題

請問要如何在點選某一格儲存格時，會一併點選某些固定的儲存格？(意思是說這些儲存格的資料必需是連動的~~)

例如：我需要在點選A1時，A2和A3會一起被點選，(或是點選A2時，A1與A3會一起被點選)，我按下delete時，3格儲存的資料會一起被刪除。

---

作者: GBKEE    時間: 2011-11-16 13:59

回復 1# tku0216
工作表的程式碼

1. Dim Rng  As Range
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Set Rng = [B3:D3]
   
4.     Application.EnableEvents = False
   
5.     If Not Application.Intersect(Target(1), Rng) Is Nothing Then Rng.Select
   
6.     Application.EnableEvents = True
   
7. End Sub
   
8. Sub 刪除()
   
9.     Rng = ""   '清空內容
   
10.     '''''''''' 二選一  ''''''''''''''''''''
    
11.     If Not Rng Is Nothing Then Rng.Delete (xlToLeft)     '刪除
    
12.     '''' xlUp   下方儲存格上移
    
13.     '''' xlToleft   右方儲存格左移
    
14. End Sub

複製代碼

---

作者: tku0216    時間: 2011-11-16 14:00

真的..太快了，多謝指教，我先吸收一下。

---

作者: mark15jill    時間: 2011-11-16 14:05

SendKeys ("{delete}")
放在..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    SendKeys ("{delete}")
End Sub

---

作者: Hsieh    時間: 2011-11-16 16:11

回復 1# tku0216
[attach]8558[/attach]
[attach]8559[/attach]

---

作者: tku0216    時間: 2011-11-17 13:36

多謝各位的回覆，小弟受益匪淺。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)