[發問] 請問該如何作

yujen16

請問如何完成如文件所敘述問題?

Hsieh

回復 1# yujen16
試試附件，按F9重算就等同抽籤
抽籤分組.rar (5.3 KB)

下載次數: 17

2011-2-16 22:16

yujen16

謝謝Hsieh 真的又學到一招了
當初的原意是讓每一個人都有參與感,而來抽籤,然後再輸入其所抽籤的號碼.
輸入抽籤號碼後,一旦有哪一組先把六個組員抽齊,印表機就會去列印該組的工作表內容.
請問可以如此作嗎？

ANGELA

回復 4# yujen16


    試試是否可行,要印表機自動列印,那需要VBA幫助了.

Hsieh

回復 4# yujen16

我的做法只是用亂數代替抽籤
只要在Sheet1的A攔不要使用公式，直接輸入，那麼其他工作表就會自動得到答案
只是沒輸入到的籤號，會顯示#N/A的錯誤
若要自動列印那就必須靠這錯誤來計算是否填滿
然後利用分組工作表的重算事件來列印
分組工作表模組

1. Private Sub Worksheet_Calculate()
   
2. Dim A As Range
   
3. For i = 2 To 8 Step 2
   
4. Set A = Range(Cells(3, i), Cells(8, i))
   
5. n = 0
   
6.   For Each C In A
   
7.      If IsError(C.Value) Then n = n + 1
   
8.   Next
   
9.   If n = 0 Then Sheets("分組" & i / 2).PrintPreview '預覽用此法
   
10.   If n = 0 And Cells(2, i) <> "已列印" Then pn = MsgBox("是否列印", vbYesNo)
    
11.   If pn = 6 Then Sheets("分組" & i / 2).PrintOut: Cells(2, i) = "已列印" '列印用此法
    
12. Next
    
13. End Sub

複製代碼

抽籤分組.rar (10.36 KB)

下載次數: 4

2011-2-17 17:39

yujen16

真是太神奇了!謝謝Hsieh
雖然程度太淺不能理解公式的精髓,卻已解我燃眉之急.

yujen16

再請問,列印過的工作表如何不再列印?
舉例來說當第籤號13-18號被輸入後會去執行列印分組3工作表沒問題了
可是當籤號1-6好被輸入後去列印分組1工作表也沒問題,但如何不再列印分組3工作表呢?
另外籤號的輸入如何驗證是否重複輸入同一個號碼及超出1-24的範圍呢?

Hsieh

回復 8# yujen16

用預覽列印語法來執行，要印的才按列印，否則按關閉就會往下一頁

若要用程式直接判斷，那就要在列印後的工作表註記已列印作判斷