作者kjes924308 (BinBin)
看板Office
標題[問題] VBA 輸入儲存格位置
時間Tue Aug 10 14:10:05 2021
(若是和其他不同軟體互動之問題 請記得一併填寫)
Excel2016
目前小弟剛學習VBA
主要需求是要做出散布圖
但因為每次資料撈出來的總數據是隨機的
目前想到可用inputbox 得到座標，進而作出圖
小弟想到方法是如下
Sub xx()
Dim x, data_rng As Range
x = InputBox("請輸入座標:")
data_eng = x
Range("A1:x").Select
End Sub
但這方法沒會出現偵錯，想請問要怎麼修正
另外
小弟希望可以從數列中找到最大值的儲存格位置
同時又可以放進RANGE裡面，因為功力完全不夠，完全沒有概念
希望有大大可以拯救
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.248.248.191 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1628575808.A.5FA.html
1F：→ soyoso: 這要看所謂的座標指的是什麼，儲存格位置字串的話 08/10 15:35
2F：→ soyoso: Set data_rng = Range(x) 08/10 15:35
3F：→ soyoso: 最大值，用工作表函數max，worksheetfunction，找到該儲存 08/10 15:35
4F：→ soyoso: 格位置range.find 08/10 15:35
感謝s大教學
找尋最大值的目的是為了要編輯散布圖的XValues 還有 Values
舉例來說:
ActiveChart.FullSeriesCollection(1).XValues = "=工作表2!$B$1:$B$80"
Values部分希望可以取代為 "=工作表2! A1:X"
x=搜尋出來的最大值
目前是卡在這裡
※ 編輯: kjes924308 (59.125.159.46 臺灣), 08/10/2021 15:46:00
5F：→ soyoso: 字串連接是以&，如x=inputbox(..)，輸入的是a1:b10，那就 08/10 15:49
6F：→ soyoso: 是"=工作表2!" & x，輸入的是b10，那就是"=工作表2!a1:" & 08/10 15:49
7F：→ soyoso: x 08/10 15:49
8F：→ soyoso: x如果是搜尋後的儲存格range的話，range.address可回傳儲 08/10 16:00
9F：→ soyoso: 存格字串，再&連接 08/10 16:00
s大，不好意思
小弟真的太菜了
搜尋部分
Dim rng as range
set rng = Sheets("工作表5").[A1:A10]
x=Application.Max(rng).address
請問這樣編寫是哪邊出嗎
※ 編輯: kjes924308 (59.125.159.46 臺灣), 08/10/2021 16:06:43
請問s大
如果我在excel的儲存格A1輸入"A160"
要怎麼讓"A160"變成可使用的變數呢?
舉例來說希望作圖可A2:A160
但這"A160"是由儲存格內的字串所得到的
※ 編輯: kjes924308 (59.125.159.46 臺灣), 08/10/2021 16:12:45
10F：→ soyoso: range.find來找max的值，所找到的是range，就可以range. 08/10 16:19
11F：→ soyoso: address來回傳位置字串 08/10 16:19
12F：→ soyoso: "a2:" & [a1]或range("a1")的方式 08/10 16:19
Range("A1") 這個方法有成功了!!
感謝大大
※ 編輯: kjes924308 (59.125.159.46 臺灣), 08/10/2021 16:39:34