返回列表 上一主題 發帖

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

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題