yujen16

中學生 Rank: 2

帖子: 28
主題: 8
精華: 0
積分: 168
點名: 0
作業系統: window xp
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-8
最後登錄: 2024-7-17

2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-2-16 20:16 | 只看該作者

[發問] 請問該如何作

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

抽籤分組.rar (2.7 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-2-16 22:17 | 只看該作者

回復 1# yujen16
試試附件，按F9重算就等同抽籤

抽籤分組.rar (5.3 KB)

學海無涯_不恥下問

TOP

yujen16

中學生 Rank: 2

帖子: 28
主題: 8
精華: 0
積分: 168
點名: 0
作業系統: window xp
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-8
最後登錄: 2024-7-17

2011兔年全勤獎章

3^#

發表於 2011-2-17 11:22 | 只看該作者

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

TOP

ANGELA

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

4^#

發表於 2011-2-17 14:01 | 只看該作者

回復 4# yujen16

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

抽籤分組.zip (7.11 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2011-2-17 16:12 | 只看該作者

本帖最後由 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)

學海無涯_不恥下問

TOP

yujen16

中學生 Rank: 2

帖子: 28
主題: 8
精華: 0
積分: 168
點名: 0
作業系統: window xp
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-8
最後登錄: 2024-7-17

2011兔年全勤獎章

6^#

發表於 2011-2-17 20:31 | 只看該作者

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

TOP

yujen16

中學生 Rank: 2

帖子: 28
主題: 8
精華: 0
積分: 168
點名: 0
作業系統: window xp
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-8
最後登錄: 2024-7-17

2011兔年全勤獎章

7^#

發表於 2011-2-24 11:29 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2011-2-24 12:07 | 只看該作者

回復 8# yujen16

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

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

學海無涯_不恥下問

TOP