帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
註冊時間: 2016-5-21
最後登錄: 2024-1-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-5-21 12:35 | 只看該作者

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

請問各位前輩，小弟需要做一個資料統計的報表，作了以下函數
問題在於工作表的名稱，由於需要開10幾個工作表，且名稱都會再另外命名
造成效果都僅跑到品種名(1)這個工作表裡，
不知道如何能對應到工作表的名稱，讓我10幾個工作表單修改各自名稱，也都能順利執行...謝謝

Help統計報表.rar (17.3 KB)
感激不盡!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
RR = Target.Row
CC = Target.Column
If RR = 3 And CC <= 4 Then
LR = Range("B3").End(xlDown).Row
ActiveWorkbook.Worksheets("品種名(1)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("品種名(1)").Sort.SortFields.Add Key:=Target.Resize(LR, 1), _
      SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("品種名(1)").Sort
      .SetRange Range("A3:D" & LR)
            .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
End With
End If

End Sub

ML089

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2016-5-22 20:51 | 只看該作者

' 放在 ThisWorkbook，
' 其他工作表的 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 請關閉或刪除
'
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim xDat As Range, xKey As Range, LR
' Debug.Print Sh.Name
' Debug.Print Target.Address
'
If Application.Intersect([A3:D3], Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERR
Debug.Print "Sort ..." & Target.Address
For Each xSh In Sheets
' Debug.Print xSh.Name
With xSh
LR = .Range("B3").End(xlDown).Row
Set xDat = .Range("A3:D" & LR)
Set xKey = .Range(Target.Address).Resize(LR - 2)
xDat.Sort key1:=xKey, order1:=xlAscending, Header:=xlYes
End With
Next
GoTo 100
ERR: MsgBox "ERROR"
100: Application.EnableEvents = True
End Sub

複製代碼

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

TOP

4016

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
註冊時間: 2016-5-21
最後登錄: 2024-1-3

3^#

發表於 2016-5-22 23:24 | 只看該作者

回復 2# ML089

ML089大您好

請問一下關於你所指導的部分
Debug.Print "Sort ..." & Target.Address
這行在你最下面有說明是要
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

我去google是關於陣列公式的使用..
可是我真的不太明白要在哪個地方按 CTRL+SHIFT+ENTER 輸入
才能正常使用，能否在指點一下，謝謝...

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 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

4016

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
註冊時間: 2016-5-21
最後登錄: 2024-1-3

5^#

發表於 2016-5-23 21:59 | 只看該作者

回復 4016

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

這是指我寫公式時若是陣列公式時會以此 ...
ML089 發表於 2016-5-23 05:56

所以跟我這個問題沒關係的意思嗎??
因為我將ML089 大所修改後的文法
' 放在 ThisWorkbook，
' 其他工作表的 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 請關閉或刪除
貼上後，其原本排序的效果並無法執行..??
這問題是出在哪裡呢?
麻煩能再指點一下嗎
謝謝

TOP

ML089