返回列表 上一主題 發帖

[發問] 請問如何對應工作表的名稱

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
1# 跳轉到 »
發表於 2016-5-22 20:51 | 顯示全部帖子
  1. ' 放在 ThisWorkbook，
  2. ' 其他工作表的 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 請關閉或刪除
  3. '
  4. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  5.     Dim xDat As Range, xKey As Range, LR
  6.    
  7.     '    Debug.Print Sh.Name
  8.     '    Debug.Print Target.Address
  9.     '
  10.     If Application.Intersect([A3:D3], Target) Is Nothing Then Exit Sub
  11.     Application.EnableEvents = False
  12.     On Error GoTo ERR
  13.     Debug.Print "Sort ..." & Target.Address
  14.     For Each xSh In Sheets
  15.         ' Debug.Print xSh.Name
  16.         With xSh
  17.             LR = .Range("B3").End(xlDown).Row
  18.             Set xDat = .Range("A3:D" & LR)
  19.             Set xKey = .Range(Target.Address).Resize(LR - 2)
  20.             xDat.Sort key1:=xKey, order1:=xlAscending, Header:=xlYes

  22.         End With
  23.     Next
  24.     GoTo 100
  25. ERR: MsgBox "ERROR"
  26. 100:     Application.EnableEvents = True
  27. End Sub
複製代碼
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
2#
發表於 2016-5-23 05:56 | 顯示全部帖子
本帖最後由 ML089 於 2016-5-23 05:57 編輯

回復 3# 4016

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

這是指我寫公式時若是陣列公式時會以此分為一般公式或陣列公式的說明
列如
{=SUM(IF(a4:a43<10,a4:a43*2))}
表示此公式為陣列公式
1. 將公式輸入(或複製貼上)編輯列，=SUM(IF(a4:a43<10,a4:a43*2))
2. 不用enter輸入，要改用CTRL+SHIFT+ENTER 三鍵輸入公式，輸入成功後公式外就會增加 {...}
3. CTRL+SHIFT+ENTER 三鍵輸入公式技巧是先按住CTRL+SHIFT不放在按 ENTER就能三鍵輸入公式
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
3#
發表於 2016-5-23 22:29 | 顯示全部帖子
回復 5# 4016

只能點選 A3:D3這4儲存格才能有作用
你可以修改下列中的 [A3:D3]作為點選執行的位置

If Application.Intersect([A3:D3], Target) Is Nothing Then Exit Sub
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題