自動【判讀有標示指定底色的數字次數】&【次數加總】&【輸出檔案】之語法。
- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
本帖最後由 Airman 於 2019-5-6 15:23 編輯
回復 30# Scott090
還沒有跑(讀)到.UsedRange.Sort key1:=.[B1], Header:=xlNosort =>還是在 .Sort 卡停住=>同21樓的提示圖片~
找不到"分類資料"
小弟在猜也是版本問題。
不好意思，一再的叨擾您~小弟再自行研究看看或找2010版來試試看^^"
謝謝您的耐心協助和指導~感恩 |
|
|
|
|
|
|
|
- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-10-18
|
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
============= |
|
|
|
|
|
|
|
- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-10-18
|
33#
發表於 2019-5-6 15:36
| 只看該作者
回復 30# Scott090
SortFields 我這是無法執行的(2000版) |
|
|
|
|
|
|
|
- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
36#
發表於 2019-5-6 16:31
| 只看該作者
回復 32# 准提部林
准大:您好!
OK了~
謝謝您的耐心協助和指教!感恩 |
|
|
|
|
|
|
|
- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
37#
發表於 2019-5-6 16:35
| 只看該作者
回復 35# Scott090
Scott090大大:您好!
呵~呵~剛好被小弟矇中
OK了~
再次謝謝您的修正通知和參考資料 |
|
|
|
|
|
|
|
- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
38#
發表於 2019-5-7 17:56
| 只看該作者
回復 34# Scott090
測試檔︰
 今日總表(均值排序).rar (106.13 KB)
Scott090大大︰您好!
不好意思，能再幫小弟加一個將=某指定日期的開獎號碼標示底色~以利本題需求的完整嗎^^"
PS:有參考准大的語法，但編寫的語法差異太大~小弟能力不濟~比對和嘗試一天，還是無法取用或自行編寫^^"
說明︰
當統計檔案的日期=DATA的A欄日期時，
則將統計檔案內的"Sample"工作表之$B$1︰$AX$1有出現該A欄日期的D︰J的數字標示底色~
=D︰I的數字標示6號底色；=J的數字標示8號底色。
如該DATA的A欄日期的D︰J=""(即沒有出現數字)，則都不標示底色。
以上 敬請賜教!謝謝您^^ |
|
|
|
|
|
|
|
- 帖子
- 315
- 主題
- 51
- 精華
- 0
- 積分
- 367
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-29
- 最後登錄
- 2021-10-12
|
40#
發表於 2019-5-8 10:11
| 只看該作者
|
|
|
|
|
|
|
