作者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/cn.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