返回列表 上一主題 發帖

請問如何設定一個按鈕

john711101

帖子
15 
主題
9 
精華
0 
積分
54 
點名
0  
作業系統
windows 7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2015-2-13 
最後登錄
2024-3-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-17 19:03 | 只看該作者

請問如何設定一個按鈕

把圖片中工作表ON 儲存格b6~12的值設個按鈕讓他匯入到另一個工作表AOA的C3~O3
下次匯入時會匯入到C4~O4



收藏 分享

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2015-4-17 20:13 | 只看該作者
  1. Private Sub CommandButton1_Click()
  2. AOAend = Sheets("AOA").Columns(3).Find("*", , , , , xlPrevious).Row
  3. Sheets("AOA").Cells(AOAend + 1, "C") = [b6]
  4. Sheets("AOA").Cells(AOAend + 1, "F") = [b7]
  5. Sheets("AOA").Cells(AOAend + 1, "G") = [b8]
  6. Sheets("AOA").Cells(AOAend + 1, "J") = [b9]
  7. Sheets("AOA").Cells(AOAend + 1, "M") = [b10]
  8. Sheets("AOA").Cells(AOAend + 1, "O") = [b12]
  9. End Sub
複製代碼
回復 1# john711101

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2015-4-17 21:38 | 只看該作者
回復 1# john711101


    你的資料有個問題,本身就沒有順序
上面大大幫你寫的程式碼會因為您原本就沒有按照順序設計表格,而導致數值放錯位置
請先更改您輸入介面的順序跟AOA的順序相同之後才可使用
PKKO

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
4#
發表於 2015-4-18 17:57 | 只看該作者
回復 6# john711101


    不用PO圖片了，我知道是什麼
那是因為你AOA工作表C1:E1有設定合並儲存格的關係，一般做為資料庫的工作表最好不要有合併儲存格，因為比較會產生錯誤，不然學"林大"的隱藏合併儲存格也可以解決這問題！

TOP

john711101

帖子
15 
主題
9 
精華
0 
積分
54 
點名
0  
作業系統
windows 7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2015-2-13 
最後登錄
2024-3-1 
5#
發表於 2015-4-20 09:18 | 只看該作者
謝謝各位先輩指導!

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題