台灣最大程式設計社群網站
線上人數
1243
 
會員總數:244807
討論主題:188842
歡迎您免費加入會員
討論區列表 >> 其他語言 >> Excel VBA 選擇不同行數
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
Excel VBA 選擇不同行數
價值 : 50 QP  點閱數:247 回應數:8

樓主

阿俊
門外漢
0 3
52 8
發送站內信

Dear 版上的大大

最近無聊開始學寫程式,想要股票的資料做成折線圖時遇到了問題,用錄製的方法照著縮短更改。但還是不行,google 下
好像也沒相關的文章,只好上來請教下。 問題如圖,從網站下載資料存檔後要製作線圖,但我只想要 A,E,J三行,不過這三行
不一定只到 18列,列數是變數,我照著把變數帶進會變成引數的個數錯誤!!!!

請問有方法可以達成嗎??? 謝謝
只需要這三行,不過列是變數
https://imagizer.imageshack.com/img922/5461/g07nvy.jpg


製作成雙軸折線圖
https://imagizer.imageshack.com/img921/5732/K6fUkm.jpg


錄製的巨集
https://imagizer.imageshack.com/img921/5397/E1SWog.jpg


將列的變數帶入,會變成有異常
https://imagizer.imageshack.com/img921/2348/TBH2q7.jpg

搜尋相關Tags的文章: [ VBA 選不相鄰的行 ] ,
本篇文章發表於2019-03-23 22:37
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

roar
檢舉此回應
檔案可以post讓大家看看嗎?
本篇文章回覆於2019-03-24 11:22
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

阿俊
檢舉此回應
Dear R大 :

https://drive.google.com/open?id=1qK5JBYSekl7QhorAwaDWs41g6xbQtMFI

檔案放在 google driver,csv 檔解壓縮後的完整路徑要在 C:\stock\data

然後執行另一個 excel 檔即可。
本篇文章回覆於2019-03-26 16:38
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

roar
檢舉此回應
csv使用7z及winrar在我的電腦解壓縮跑不出來
https://drive.google.com/open?id=1f_JvvSpRWZnvoiWJCgXp4AbtJsHe1axj
本篇文章回覆於2019-03-27 09:28
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
作者回應

阿俊
檢舉此回應
R 大:
可能版本不一樣造成的,我的 7zip 之前有玩 手機的 rom 所以有下可以壓成,ext4 格式的特別版。

我已經再放沒壓縮的 csv 檔上去了。再麻煩你看下,謝謝。
本篇文章回覆於2019-03-27 13:50
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
最有價值解答

roar
檢舉此回應
修改成 Range("A1:A" & a2 - 1 & "," & "E1:E" & a2 - 1 & "," & "J1:J" & a2 - 1).Select
本篇文章回覆於2019-03-30 20:45
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
作者回應

阿俊
檢舉此回應
Dear R大:
可以了也,感恩,不過跟我之前的寫法,差在 "," ?? 這個不是本來就視為分割符號嗎??
我 Range("A1:A" & a2 - 1, "E1:E" & a2 - 1, "J1:J" & a2 - 1).Select
您 Range("A1:A" & a2 - 1 & "," & "E1:E" & a2 - 1 & "," & "J1:J" & a2 - 1).Select
本篇文章回覆於2019-03-31 22:19
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
作者回應

阿俊
檢舉此回應
R大,再請教一個問題,我要在 x 軸座標將標題改為 90 度,可是用了下面幾句都不行,可以順便開示下嗎??

ActiveChart.Axes(xlValue).AxisTitle.Select
1. ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Orientation = 90
2. ActiveChart.Axes(xlValue, xlPrimary).TickLabels.Orientation = 90
3. ActiveChart.Axes(xlValue).TickLabels.Orientation = 90
本篇文章回覆於2019-03-31 23:19
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
8樓
作者回應

阿俊
檢舉此回應
Dear R大,搞定了

原來跟設Y軸的方式不一樣,不能設成數值....
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Orientation = xlVertical
本篇文章回覆於2019-04-01 00:05
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.