- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 102
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-5-3
              
|
本帖最後由 Hsieh 於 2011-2-17 17:39 編輯
回復 4# yujen16
我的做法只是用亂數代替抽籤
只要在Sheet1的A攔不要使用公式，直接輸入，那麼其他工作表就會自動得到答案
只是沒輸入到的籤號，會顯示#N/A的錯誤
若要自動列印那就必須靠這錯誤來計算是否填滿
然後利用分組工作表的重算事件來列印
分組工作表模組- Private Sub Worksheet_Calculate()
- Dim A As Range
- For i = 2 To 8 Step 2
- Set A = Range(Cells(3, i), Cells(8, i))
- n = 0
- For Each C In A
- If IsError(C.Value) Then n = n + 1
- Next
- If n = 0 Then Sheets("分組" & i / 2).PrintPreview '預覽用此法
- If n = 0 And Cells(2, i) <> "已列印" Then pn = MsgBox("是否列印", vbYesNo)
- If pn = 6 Then Sheets("分組" & i / 2).PrintOut: Cells(2, i) = "已列印" '列印用此法
- Next
- End Sub
 抽籤分組.rar (10.36 KB)
|
|
發表於 2011-2-16 22:17
| 
