請教一個用EXCEL按鈕填表的問題

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

10^#

發表於 2012-4-27 11:21 | 只看該作者

Hsieh大大，不好意思，有點難懂，可否提供註解？
我只看得懂：
第五行：計算非零儲存格，k=0。
第六行：x=iif(1 mod 20=0, 20,1), 所以x=1。
第七行：y=Int((-1) / 20) + 1 + IIf(x = 1, 1, 0)??
之後就看不懂了...

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

9^#

發表於 2012-4-25 21:55 | 只看該作者

本帖最後由 Hsieh 於 2012-4-27 14:08 編輯

Private Sub CommandButton1_Click()
Dim Rng As Range, A As Range, C As Range
Dim k%, x%, y%, n%, s%, m$
Set Rng = Range("I3:I22,N3:N22,S3:S22,X3:X22,AC3:AC22,AH3:AH22") '填寫區域
k = Application.CountA(Rng) '計算填寫區域以填寫數量
x = IIf((k + 1) Mod 20 = 0, 20, (k + 1) Mod 20) '計算數量求其除以20的餘數，即為將被填寫的列號
y = Int((k - 1) / 20) + 1 + IIf(x = 1, 1, 0) '計算出第幾欄將被填寫
Set A = Rng.Areas(y).Cells(x) '將被填寫的儲存格
n = [B17:B21].Find(ComboBox1).Row '屬性
s = ScrollBar2.Value + 2 '難易度
For Each C In [C3:C6] '技能規範
If C <> "" Then m = IIf(m = "", C, m & "+" & C)
Next
Cells(n, s) = Cells(n, s) + 1 '寫入出題數量
A.Resize(, 2) = Array(m, ComboBox1) '填入表格
End Sub

複製代碼

學海無涯_不恥下問

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

8^#

發表於 2012-4-25 17:58 | 只看該作者

多謝大大分享，我完全瞭解程式了。
想再請教附帶的小問題：
1.Set Rng = [I22] '代表設定儲存格I22為基準，以利後續的欄位轉換。
換成“Set Rng = Range("i22")”的意義是否一樣？(試過程式一樣可以正確工作)

2.需要呼叫excel函式時，是否都是以Application開頭？

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

7^#

發表於 2012-4-25 17:06 | 只看該作者

回復 6# tku0216

Set Rng = [I22]
'計算 I22, N22, S22, X22, AC22, AH22這6格有幾格不為空白
C = Application.CountA([I22], [N22], [S22], [X22], [AC22], [AH22])
'以I22為基準,向右偏移0列(C * 5)欄,再往上找第一個非空白儲存格
With Rng.Offset(0, C * 5).End(xlUp)

1. I22=""
C=0
I22向右偏移0欄(I22),再往上找第一個非空白儲存格 => 填I欄
2. I22<>"" 且 N22=""
C=1
I22向右偏移5欄(N22),再往上找第一個非空白儲存格 => 填N欄
3. I22<>"" 且 N22<>"" 且 S22=""
C=2
I22向右偏移10欄(S22),再往上找第一個非空白儲存格 => 填S欄
以此類推...

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

6^#

發表於 2012-4-25 09:39 | 只看該作者

多謝register的指教，程式運作正常，因為昨天是在家裡試，不曉得出了甚麼問題。
還有想請教您的程式碼，這三行的意思，謝謝：
--------------------------------------------
Set Rng = [I22]
C = Application.CountA([I22], [N22], [S22], [X22], [AC22], [AH22])
With Rng.Offset(0, C * 5).End(xlUp)
--------------------------------------------

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

5^#

發表於 2012-4-24 23:53 | 只看該作者

回復 4# tku0216

沒問題的,再測試看看(你的檔案太大,無法上傳)

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

4^#

發表於 2012-4-24 23:32 | 只看該作者

感謝回覆，其實這是一個讓老師知道自己命題情形的表格，所以是一次只會填入一題沒錯。
本意是當老師選擇屬性、技能規範與難易度之後，按下按鈕會自動填入，減省手動填寫時間。
但目前此表只能依序往下填寫，您的程式碼我加進按鈕，發現無法運作，可以請教原因嗎？謝謝。
---------------------------------------------
Private Sub CommandButton1_Click()
Set Rng = [I22]
C = Application.CountA([I22], [N22], [S22], [X22], [AC22], [AH22])
With Rng.Offset(0, C * 5).End(xlUp)
.Offset(1, 0) = [G24]
.Offset(1, 1) = [F6]
End With
End Sub
--------------------------------------------