自動【判讀有標示指定底色的數字次數】&【次數加總】&【輸出檔案】之語法。
- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
回復 35# Scott090
Scott090大大:您好!
呵~呵~剛好被小弟矇中
OK了~
再次謝謝您的修正通知和參考資料 |
|
|
|
|
|
|
|
- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
36#
發表於 2019-5-6 16:31
| 只看該作者
回復 32# 准提部林
准大:您好!
OK了~
謝謝您的耐心協助和指教!感恩  |
|
|
|
|
|
|
|
- 帖子
- 2820
- 主題
- 10
- 精華
- 0
- 積分
- 2876
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-7-3
|
33#
發表於 2019-5-6 15:36
| 只看該作者
回復 30# Scott090
SortFields 我這是無法執行的(2000版) |
|
|
|
|
|
|
|
- 帖子
- 2820
- 主題
- 10
- 精華
- 0
- 積分
- 2876
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-7-3
|
32#
發表於 2019-5-6 15:35
| 只看該作者
回復 18# Airman
第2段改為:
If xD.Count = 0 Then Exit Sub
Application.DisplayAlerts = False
For Each V In xD.keys
F = "今日總表(均值排序)-" & V & "_統計.xls"
BK.Sheets("Sample").Copy
With ActiveWorkbook
.Sheets(1).[B2].Resize(7, 49).Value = xD(V & "")
d$ = Format(Mid(V, 2, 10), "yyyy/m/d")
Set xR = Nothing
Set xR = BK.Sheets("DATA").[A:A].Find(d, Lookat:=xlPart)
If Not xR Is Nothing Then
For i = 4 To 9
.Sheets(1).Cells(1, xR(1, i) + 1).Interior.ColorIndex = 6
Next i
Sheets(1).Cells(1, xR(1, 10) + 1).Interior.ColorIndex = 43
End If
.SaveAs Filename:=BK.Path & "\" & F, CreateBackup:=False
.Close 0
End With
Next
============= |
|
|
|
|
|
|
|
- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
31#
發表於 2019-5-6 15:13
| 只看該作者
本帖最後由 Airman 於 2019-5-6 15:23 編輯
回復 30# Scott090
還沒有跑(讀)到.UsedRange.Sort key1:=.[B1], Header:=xlNosort =>還是在 .Sort 卡停住=>同21樓的提示圖片~
找不到"分類資料"
小弟在猜也是版本問題。
不好意思，一再的叨擾您~小弟再自行研究看看或找2010版來試試看^^"
謝謝您的耐心協助和指導~感恩 |
|
|
|
|
|
|
|
- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
29#
發表於 2019-5-6 11:30
| 只看該作者
回復 28# Scott090
列115~列119有執行： 就會出現21樓的提示框。
您執行看看!謝謝您^^ |
|
|
|
|
|
|
|
