RSS   



  可打印版本 | 推薦給朋友 | 訂閱主題 | 收藏主題 | 純文字版  


 


 
主題: [其他] [求助]關於EXCEL的VBA的位置參考   字型大小:||| 
ROACH
版主
等級: 30等級: 30等級: 30等級: 30等級: 30等級: 30等級: 30等級: 30
減肥中!請勿餵食

十週年紀念徽章(四級)  

 . 積分: 15118
 . 精華: 14
 . 文章: 11766
 . 收花: 140844 支
 . 送花: 6005 支
 . 比例: 0.04
 . 在線: 8869 小時
 . 瀏覽: 85616 頁
 . 註冊: 8005
 . 失蹤: 1
 . 鄉下地方
#1 : 2006-6-20 07:56 PM     只看本作者 引言回覆

我有個圖表需要事後去指定範圍跟相關的變數
我先這樣作

Sheets("圖表顯示").Select
ActiveSheet.ChartObjects("圖表 1038").Activate

ActiveChart.SeriesCollection(1).Select
 ActiveChart.SetSourceData Source:=Sheets("輸入數據").Range("B" & b1 & ":B" & b2), PlotBy _
    :=xlColumns

ActiveChart.SeriesCollection(1).XValues = Sheets("輸入數據").Range("A" & b1 & ":A" & b2)


  With ActiveChart
    .HasAxis(xlCategory, xlPrimary) = True
    .HasAxis(xlValue, xlPrimary) = True
  End With
  
  ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
  
  
那個b1跟b2是使用者填入儲存格的範圍
現在位址"A""B"也要要改成動態的
由使用者輸入fx後看是A還是A
我改成這樣以後


 ActiveChart.SetSourceData Source:=Sheets("輸入數據").Range(Cells(b1, fx), Cells(b2, fx)), PlotBy _
:=xlColumns

結果發生

直接階段錯誤'1004'
Cells方法('Global'物件)失敗



是否還有其他可以動態選擇範圍的方法呢??

還有想問一下喔!!
像那個圖表我每拉一個出來他就會用流水號自訂一個號碼
比如這次~~圖表 1038
然後另外一個就變成~~圖表 1038
這個是否可以改成自行定義的呢?



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  訪問主頁  發私人訊息  Blog  快速回覆 新增/修改 爬文標記
ROACH
版主
等級: 30等級: 30等級: 30等級: 30等級: 30等級: 30等級: 30等級: 30
減肥中!請勿餵食

十週年紀念徽章(四級)  

 . 積分: 15118
 . 精華: 14
 . 文章: 11766
 . 收花: 140844 支
 . 送花: 6005 支
 . 比例: 0.04
 . 在線: 8869 小時
 . 瀏覽: 85616 頁
 . 註冊: 8005
 . 失蹤: 1
 . 鄉下地方
#2 : 2006-6-21 07:27 AM     只看本作者 引言回覆

這個我解決的
改成這樣就可以了

ActiveChart.SetSourceData Source:=Sheets("輸入數據").Range(Sheets("輸入數據").Cells(b1, fx), Sheets("輸入數據").Cells(b2, fx)), PlotBy _
:=xlColumns



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  訪問主頁  發私人訊息  Blog  快速回覆 新增/修改 爬文標記
jocosn
白銀驢友
等級: 15等級: 15等級: 15等級: 15等級: 15


今日心情

 . 積分: 1386
 . 精華: 2
 . 文章: 2945
 . 收花: 9537 支
 . 送花: 3671 支
 . 比例: 0.38
 . 在線: 1295 小時
 . 瀏覽: 19041 頁
 . 註冊: 7247
 . 失蹤: 1249
#3 : 2006-7-7 02:15 AM     只看本作者 引言回覆

大大,你連 VBA 都要學啊!
真是佩服你了~



[如果你喜歡本文章,就按本文章之鮮花~送花給作者吧,你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  發私人訊息  Blog  快速回覆 新增/修改 爬文標記

   

快速回覆
表情符號

更多 Smilies

字型大小 : |||      [完成後可按 Ctrl+Enter 發佈]        

溫馨提示:本區開放遊客瀏覽。
選項:
關閉 URL 識別    關閉 表情符號    關閉 Discuz! 代碼    使用個人簽名    接收新回覆信件通知
發表時自動複製內容   [立即複製] (IE only)


 



所在時區為 GMT+8, 現在時間是 2024-4-30 08:42 PM
清除 Cookies - 連絡我們 - TWed2k © 2001-2046 - 純文字版 - 說明
Discuz! 0.1 | Processed in 0.023444 second(s), 7 queries , Qzip disabled