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

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

2^#

發表於 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
--------------------------------------------

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

3^#

發表於 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)
--------------------------------------------

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

4^#

發表於 2012-4-25 17:58 | 顯示全部帖子

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

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

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

5^#

發表於 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)??
之後就看不懂了...