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

　頭銜: 麻辣路人甲

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

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

1^# 跳轉到 »

發表於 2012-4-24 17:35 | 顯示全部帖子

回復 1# tku0216

活動廣告:幫助自己!也給答題者一個方便!
1.發問者請上傳EXCEL壓縮檔(小學生也可以)
2.配合EXCEL檔請把功能說明清楚

按鈕跟資訊都已設計好,為何不上傳?
要填入的資料在那些儲存格?不知道? 如何設計?

　頭銜: 麻辣路人甲

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

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

2^#

發表於 2012-4-24 18:17 | 顯示全部帖子

回復 1# tku0216

你是要一次填入一題? 太麻煩了吧

Sub aa()
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

複製代碼

　頭銜: 麻辣路人甲

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

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

3^#

發表於 2012-4-24 23:53 | 顯示全部帖子

回復 4# tku0216

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

　頭銜: 麻辣路人甲

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

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

4^#

發表於 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欄
以此類推...