- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 5
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 10
- 註冊時間
- 2016-5-21
- 最後登錄
- 2024-1-3
|
請問各位前輩，小弟需要做一個資料統計的報表，作了以下函數
問題在於工作表的名稱，由於需要開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 |
|
發表於 2016-5-21 12:35
| 
