[問題] VBA 輸入儲存格位置

[kjes924308 (BinBin)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
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://www.ptt.cc/bbs/Office/M.1628575808.A.5FA.html
→ soyoso: 這要看所謂的座標指的是什麼，儲存格位置字串的話
→ soyoso: Set data_rng = Range(x)
→ soyoso: 最大值，用工作表函數max，worksheetfunction，找到該儲存
→ soyoso: 格位置range.find
感謝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
→ soyoso: 字串連接是以&，如x=inputbox(..)，輸入的是a1:b10，那就
→ soyoso: 是"=工作表2!" & x，輸入的是b10，那就是"=工作表2!a1:" &
→ soyoso:  x
→ soyoso: x如果是搜尋後的儲存格range的話，range.address可回傳儲
→ soyoso: 存格字串，再&連接
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
→ soyoso: range.find來找max的值，所找到的是range，就可以range.
→ soyoso: address來回傳位置字串
→ soyoso: "a2:" & [a1]或range("a1")的方式
Range("A1") 這個方法有成功了!!
感謝大大

※ 編輯: kjes924308 (59.125.159.46 臺灣), 08/10/2021 16:39:34