返回列表 上一主題 發帖

[發問] 請教微調按鈕在VBA裡的寫法

悅風

帖子
5 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2007 
閱讀權限
10 
註冊時間
2015-8-20 
最後登錄
2017-9-22 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-10-14 11:46 | 顯示全部帖子

[發問] 請教微調按鈕在VBA裡的寫法

不知道是否可以寫一個VBA是在第三分頁的微調按鈕
每往上微調執行一次之後，會自動把第三分頁的H4~H10貼上值對應到第二分頁的B欄到H欄下方
隨資料變動跟著貼上值的迴圈，且對應到正確的編號後方儲存格

煩請前輩們教學，之後學起來希望可以同理應用在許多資料分析上

檔案.rar (29.71 KB)

收藏 分享

悅風

帖子
5 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2007 
閱讀權限
10 
註冊時間
2015-8-20 
最後登錄
2017-9-22 

論壇贊助勳章
2#
發表於 2015-10-15 02:06 | 顯示全部帖子
試跑了一下，VBA與儲存格公式，都能達到我要的需求
而且自己稍做修改都可以應用在其他資料分析上面
准提部林前輩，感謝你再次回答我的問題
雖然程式碼只能大概看得懂如何運行的，先抱著感恩的心收下了
稍做研究了一會程式碼，第二段程式碼有些不懂的地方，想多做了解
不知是否可以解釋一下這段程式的邏輯，好釐清與確定我自己的理解有沒有錯誤
With Sheets("Sheet3")
　　　X = .Cells(Rows.Count, 1).End(xlUp).Row - 3
　　　If X <= 0 Then Exit Sub
　　　For j = 1 To R
　　　　　.[A2] = j
　　　　　Set xR = xR(2)
　　　　　xR.Resize(1, X) = Application.Transpose(.[H4].Resize(X))

TOP

悅風

帖子
5 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2007 
閱讀權限
10 
註冊時間
2015-8-20 
最後登錄
2017-9-22 

論壇贊助勳章
3#
發表於 2015-10-17 07:55 | 顯示全部帖子
感謝前輩教導，看了邏輯解釋懂了許多，也學了許多
用法可以如此清晰與靈活，希望以後我也能做到，謝指教

TOP

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