VBA如何將不同資料的區域抓出分類?

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

2^#

發表於 2013-5-24 10:16 | 顯示全部帖子

深深的感謝版主，說真的我看到的時候昏了....
我腦中的想法怎麼寫出來這麼複雜
我的功力真的離這個階段好遠好遠...

可否請版主跟我解釋一下大致上的流程
您是怎麼構思又怎麼處理這些問題的先來後到的@@?

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

3^#

發表於 2013-5-24 11:11 | 顯示全部帖子

回復 4# GBKEE

再次拜謝!!

您真的是幫了很大的忙，拿到這份程式碼的時候，內心是又感動，又羞愧..

希望有朝一日早點完成我的東西可以幫忙更多人

感謝版主~

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

4^#

發表於 2013-6-5 11:20 | 顯示全部帖子

Dear  版大
我最近在拚命的統計資料阿我遇到難題了可不可以請問您(因為我還不夠權限發短訊)
您教導我的程式碼當中

Sub Main()
AR = Array("到期月份", "履約價", "買賣權", "成交量", "未沖銷契約量")我懂
With Sheets("選擇權總表")我懂
      .[L4:M4] = Array("成交量", "未沖銷契約量") 有點不懂，這句話的意思是把陣列變數中的這兩個變數賦值給 [L4:M4] ? 不是應該相反?? '"*成交量" ,"*未沖銷'資料庫欄"*" 進階篩選有會有錯誤
      Set Rng = .Range("B4

" & .[B4].End(xlDown).Row) '資料庫這個資料庫範圍定義我懂
      篩選程式 "分類一"  那這個  篩選程式以下這三個分類一賣權買權 ?? 這是什麼指令 call?呼叫? 我看他不是注解應該事會執行的程式吧?
      篩選程式 "賣權"
      篩選程式 "買權"

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

5^#

發表於 2013-6-6 09:40 | 顯示全部帖子

感謝GBKEE ~我懂了但是可否再提問一個問題

這個Array ("成交量", "未沖銷契約量") 跟一開始設定的那個AR = Array("到期月份", "履約價", "買賣權", "成交量", "未沖銷契約量") 有關聯嗎? 我想我是這個地方出問題依照您的想法，
.[L4] ="成交量"
.[M4]= "未沖銷契約量") 只是把Range("L4") 賦值變成文字檔而已
所以跟一開始陳述陣列變數那五個的名稱有關係嗎?

.[L4:M4] = Array("成交量", "未沖銷契約量")
等同
.[L4] ="成交量"
.[M4]= "未沖銷契約量")

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

6^#

發表於 2013-7-3 12:25 | 顯示全部帖子

回復 9# GBKEE

Dear GBKEE
感謝您之前給的程式碼，做出來的東西符合我要的東西，但是後續還可能要添加自動計算

我今天把整個程式分開看了一下，在自動篩選的地方我真的完全不了解，我今天去EXCEL 看了說明

在定義一個範圍名稱也好，選取一個範圍也好，在使用進階篩選的時候，給予準則並且複製到某個地方的時候..

他都只能在同一個工作表上面使用篩選後的準則條件複製並且貼上，不能跨工作表貼上阿@@"

可是我今天用了條列式偵錯跑程式，可是您一開始資料庫定義完之後，就可以把篩選過後的資料貼到"買權"或是"賣權" 的工作表裡面

然後再進行進一步的篩選，然後再貼上到新增加的名稱工作表上

這真的百思不得其解阿!! EXCEL不能進階篩選後貼到別的工作表，可是VBA可以?

PS:其實您幫我設計的程式 "買權"跟"賣權" 可以需要可以不要，"分類一"那個是當初解釋用其實不用那個工作表了，註記程式碼之後可以繼續運行，感謝^^