返回列表 上一主題 發帖

請教：自動排班EXCEL如何處理

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
1# 跳轉到 »
發表於 2016-3-26 01:20 | 顯示全部帖子
本帖最後由 luhpro 於 2016-3-26 01:22 編輯

回復 1# gaishutsusuru
這可用 Dictionary 函數先建立相關位置索引後會較容易做.

  1. Private Sub cbClr_Click()
  2.   Range([H2], [J11]).Clear
  3. End Sub

  5. Private Sub cbGet_Click()
  6.   Dim iCol%, iNo%
  7.   Dim lRow&
  8.   Dim dDate As Date
  9.   Dim vDd, vDp
  10.   
  11.   Set vDd = CreateObject("Scripting.Dictionary")
  12.   Set vDp = CreateObject("Scripting.Dictionary")
  13.   
  14.   lRow = 2
  15.   While Cells(lRow, 7) <> ""
  16.     vDd(CStr(Cells(lRow, 7))) = lRow
  17.     lRow = lRow + 1
  18.   Wend
  19.   
  20.   iCol = 8
  21.   While Cells(1, iCol) <> ""
  22.     vDp(CStr(Cells(1, iCol))) = iCol
  23.     iCol = iCol + 1
  24.   Wend
  25.   
  26.   lRow = 2
  27.   While Cells(lRow, 2) <> ""
  28.     dDate = Cells(lRow, 2)
  29.     iNo = Cells(lRow, 4)
  30.     While dDate <= Cells(lRow, 3)
  31.       Cells(vDd(CStr(dDate)), vDp(CStr(Cells(lRow, 5)))) = iNo
  32.       iNo = iNo + (iNo = 3) * 3 + 1
  33.       dDate = dDate + 1
  34.     Wend
  35.     lRow = lRow + 1
  36.   Wend
  37. End Sub
複製代碼
能實做.zip (28.82 KB)

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2016-3-27 23:35 | 顯示全部帖子
非常謝謝各位的意見想法，真的很有幫助。
ps. 因為個人權限不足(只是小學生)，所以不能下載「能實做.zip ( ...
gaishutsusuru 發表於 2016-3-26 22:06


能實做.zip (28.82 KB)

TOP

        靜思自在 : 知識要用心體會，才能變成自己的智慧。
返回列表 上一主題