返回列表 上一主題 發帖

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

tku0216

帖子
209 
主題
43 
精華
0 
積分
262 
點名
0  
作業系統
win 7 
軟體版本
office 20** 
閱讀權限
20 
性別
男 
註冊時間
2011-11-3 
最後登錄
2017-4-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-24 17:20 | 只看該作者

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

本帖最後由 tku0216 於 2012-4-24 17:56 編輯

各位大大好，請教一個用EXCEL按鈕填表的問題：
如附圖所示，我要按鈕之後，將某些資訊填入EXCEL表格(按鈕跟資訊都已設計好)，
每按一下鈕，資料就會依序填入表格，但問題是，題號2-20題以後的程式該怎麼寫呢？

補上檔案連結，請參考，謝謝。
-----------------------------
http://db.tt/ipPHXMVM
--------------------------------
程式為 ：
With Range("i23").End(xlUp)     '從i23開始往上判斷
    .Offset(1, 0) = Range("g24") '將g24的資料填入i23
    .Offset(1, 1) = Range("f6")     '將f6的資料填入j3
    End With

繪圖1.jpg (141.62 KB)

繪圖1.jpg

收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-4-24 17:35 | 只看該作者
回復 1# tku0216

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

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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
3#
發表於 2012-4-24 18:17 | 只看該作者
回復 1# tku0216

你是要一次填入一題? 太麻煩了吧
  1. Sub aa()
  2. Set Rng = [I22]
  3. C = Application.CountA([I22], [N22], [S22], [X22], [AC22], [AH22])
  4. With Rng.Offset(0, C * 5).End(xlUp)
  5.   .Offset(1, 0) = [G24]
  6.   .Offset(1, 1) = [F6]
  7. End With
  8. End Sub
複製代碼

TOP

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
--------------------------------------------

TOP

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

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

1.gif

TOP

tku0216

帖子
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)
--------------------------------------------

TOP

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

TOP

tku0216

帖子
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開頭？

TOP

Hsieh

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

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 編輯
  1. Private Sub CommandButton1_Click()
  2. Dim Rng As Range, A As Range, C As Range
  3. Dim k%, x%, y%, n%, s%, m$
  4. Set Rng = Range("I3:I22,N3:N22,S3:S22,X3:X22,AC3:AC22,AH3:AH22")  '填寫區域
  5. k = Application.CountA(Rng) '計算填寫區域以填寫數量
  6. x = IIf((k + 1) Mod 20 = 0, 20, (k + 1) Mod 20)  '計算數量求其除以20的餘數，即為將被填寫的列號
  7. y = Int((k - 1) / 20) + 1 + IIf(x = 1, 1, 0)  '計算出第幾欄將被填寫
  8. Set A = Rng.Areas(y).Cells(x)  '將被填寫的儲存格
  9. n = [B17:B21].Find(ComboBox1).Row  '屬性
  10. s = ScrollBar2.Value + 2 '難易度
  11. For Each C In [C3:C6] '技能規範
  12.   If C <> "" Then m = IIf(m = "", C, m & "+" & C)
  13. Next
  14. Cells(n, s) = Cells(n, s) + 1  '寫入出題數量
  15. A.Resize(, 2) = Array(m, ComboBox1)  '填入表格
  16. End Sub
複製代碼
學海無涯_不恥下問

TOP

tku0216

帖子
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)??
之後就看不懂了...

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題