[發問] 增加將當期開獎號碼標示底色的語法。

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

10^#

發表於 2019-6-7 04:38 | 只看該作者

本帖最後由 ziv976688 於 2019-6-7 04:43 編輯

回復 8# 准提部林
准提版主 :
以7樓的範例修改列5~列7和列28~列38的問題已完全解決。
謝謝你的幫忙

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

9^#

發表於 2019-6-5 16:47 | 只看該作者

回復 8# 准提部林
准提版主 :
不好意思，原來資料夾的名稱要命名[CSV原檔]才可執行。
5樓的解答檔執行沒有問題了!謝謝您^^

如果可以的話，還是請你以7樓的範例修改列5~列7和列28~列38，使其能執行，
這樣萬一以後有什麼小變動，我也比較會自行修改。
因為如果以後有其它的小變動，以5樓的解答檔我既不會自己修改，也不好意思再說出口請您修改^^"
謝謝您!

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

8^#

發表於 2019-6-5 14:27 | 只看該作者

回復 7# ziv976688

1) 將CSV檔統一放在 [CSV原檔]資料夾內, 程式完成不會刪除原檔(可自行手動刪)

將舊的csv刪掉, 將新的csv放進來,
程式是自動轉成xls

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

7^#

發表於 2019-6-5 12:58 | 只看該作者

回復 5# 准提部林

2019-0605.rar (66.92 KB)
准提版主 :
不好意思，因為5樓的解答檔，csv檔轉xls檔要用手動(每期的csv檔有很多個)，有點不便利(如果我沒有誤解操作程序的話)，而且太高深的程式碼我自己不會改，
所以如果可以的話，希望你只要修改列5~列7和列28~列38 (已經點為註解不執行的程式碼)，讓它能執行標示底色的功能就可以了。
謝謝你!

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

6^#

發表於 2019-6-4 19:58 | 只看該作者

回復 5# 准提部林

准提版主 :
謝謝你的幫忙

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

5^#

發表於 2019-6-4 14:59 | 只看該作者

本帖最後由准提部林於 2019-6-4 15:02 編輯

1) 將CSV檔統一放在 [CSV原檔]資料夾內, 程式完成不會刪除原檔(可自行手動刪)
2) 做一個樣式表 Tmp(1), 所有需要的格式在這張表預先設定, csv檔就用這表表來複製格式
3) 所有要處理的流程, 用子程式呼叫, 免去冗長的程式碼, 較好閱讀, 也可讓其它需要的程式引用
4) 我只能幫到這裡, 眼睛太吃力了

2019-0531_v1.rar (91.77 KB)
=========================

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

4^#

發表於 2019-6-3 17:43 | 只看該作者

回復 3# 准提部林
准提版主 :
重新提供範例 :

2019-0603.rar (90.75 KB)
列5~列7和列28~列38 已經點為註解不執行。
誠請幫忙和指導!謝謝你!

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

3^#

發表於 2019-6-3 13:32 | 只看該作者

回復 2# ziv976688

程式包含其它功能, 沒辦法單獨去寫這個部份~~
_還要去解讀前面及後面的程式, 更沒辦法測試

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

2^#

發表於 2019-5-31 17:24 | 只看該作者

回復 1# ziv976688

主程式檔_Test.rar (60.08 KB)
有節錄准提版主的程式碼，並將其放置 :
在列6~列8插入
Dim T$, V%
Dim BK As Workbook, xB As Workbook, xS As Worksheet, xF As Range
Set BK = ThisWorkbook

在列29~列40插入
'-抓日期,號碼填黃色---------------------------------
      Set xF = Nothing
T = Format(Left(Right(A, 15), 10), "yyyy/m/d") & ChrW(160) '搜尋檔案日期
Set xF = BK.Sheets("DATA").Range("A:A").Find(T, Lookat:=xlPart) '搜尋=A欄日期
If Not xF Is Nothing Then
   For V = 4 To 10
      If xF(1, V) <> "" Then
         xS.[B1:AX1].Find(xF(1, V), Lookat:=xlWhole).Interior.ColorIndex = IIf(V = 10, 38, 6) '顯示=A欄日期+1列的號碼
         xB.Sheets(1).[B1:AX1].Find(xF(1, V), Lookat:=xlWhole).Interior.ColorIndex = IIf(V = 10, 38, 6)
      End If
   Next V
End If

但執行後產生偵錯，不知哪裡不對?
請各位大大指正!
謝謝各位的幫忙!