Function abc(X As Range) Dim XR As Integer, XC As Integer XR = X.Row XC = X.Column abc = Application.Average(Range(Cells(XR - 2, XC), Cells(XR, XC))) 我发现他不会自动重算！ 在活页F10输入abc(E10) 他会计算E8:E10的平均 可是更动E8或E9的数值 他不会自动重算！ 只有更改E10 或F10重新输入 才会自动重算 即使按 立即重算 也不会重算 修改资料 但公式不会重算…… 在这简单案例中 我知道直接拉公式比较快 但我的资料计算很复杂 公式会打一堆 一更动就很难维护 要怎麽做比较好呢？ --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.239.149.248 (台湾) ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1618317619.A.BC2.html 是说乖乖在储存格打公式吗？我是把公式拆成两格计算 这个就可以自动重算，但其他无关的变化，也会让这个公式重算？ 如果这个公式用太多，可能会很慢？ 在这例子，「事件」可能比 application.volatile 还要差？ 限定范围是在公式写 if 范围内有变动 就重算 吗？这个程式码应该怎麽写呢？ 另一种方法，我已经把excel公式拆成两格，那就写两个自订公式，公式搬进VBA就好 至少维护不用担心公式跑掉，也会自动重算 我想了一下，在我的情境，这样写法跟原本差不多＠＠现在卡在另一个 Function bcd(X As Range) XR = X.Row XC = X.Column y1 = X * 2 y2 = X * 3 bcd = y1 Cells(XR, XC + 2) = y2 是否无法这样写，只能sub然後 Set X = Application.InputBox(prompt:="输入X的储存格", Type:=8) 用sub似乎就没那麽多问题，可是好像只能一个一个做，大量资料就要用阵列？ Range.Formula类似「拉公式」？回圈我会好好想 这个方法确实可行，但我不太懂为何他只有一个range，而且是第一个的range 如果要保留3个range，是否要用阵列？ 因为我的资料满复杂的，而且格式也还没确定，自订函数好处是很好挪，用VBA写要先规 划好？我的阵列跟回圈要想很久，之前写两三个都是卡很久才成功运作＠＠ 我公式的x要输入4个，x1 x2 x3 x4，输出的y可以有5种，5种y的算式大多相同，少部份 是正负号相反，乘法变除法。之前写自订函数，真的就拆成5个公式，y1公式y2公式... 现在是用一个公式，然後多一个x5，x5输入y1y2...得到对应的y。 有时候5种y都要用到，等於很多运算都是重复的，这就应该写成sub？写到一半发现我只 是只是把function从活页搬进sub而已...计算还是一样大量重复，如果把原公式输入进 去，程式码就会变得很多行，看起来怪怪的，这反而是正常？ 这篇格子问题，其实就是不知道怎麽处理这个问题，function可以一次算5种y，可是只 能输出一个y，sub可以输出多个，但输入就不能用拉的，好像要用回圈？我还没想通， 放假要好好想想怎麽做。 这个问题是：输入E8到E10，为何VBA这边只会保留一个格子，而非三个，而且这个格子 是E8而不是E10或E9。之前我有问另一个很像的，一连串的格子，大於0的有很多个，要 找出最後一个大於0的数值，我弄出来都是第一个，而soyoso的解法，我觉得很讶异，到 现在还是觉得怪怪的，应该有别的方法。 简单的自订函数，我想还是可以啦，我看过一个老档案，他一个统计学的公式，写了一 大串，连Pi=3.14...居然要写成Const放在最前面。现在excel已经有内建这些公式了 资料最低阶的处理，我已经做出来了，用VBA算是节省效能和练习写程式吧 但是再高阶的应用，碍於我的数学程度，还没想清楚要怎麽弄出来，目前想到的做法，运 算量不小，但最搞笑的是，我不知道这样计算是否正确，也不知道如何验算答案... 目前的规划：从网路抓csv档，转置excel，输入vba并计算，输出excel，人工选取需要的 资料并存在excel。是否需要csv直通vba不经过excel呢？ 目前我卡在阵列： Option Base 1 Sub testar2() Dim i As Integer, j As Integer, ar(5, 4) As Integer For i = 1 To 5 For j = 1 To 4 ar(i, j) = i * j Next Next Range("A6").Resize(5, 4) = ar 二维阵列没问题 Sub testar() Dim i As Integer, ar(5) As Integer For i = 1 To 5 ar(i) = i ^ 2 Next Range("A6").Resize(5, 1) = ar End Sub 一维阵列这样只会得到5个1，好奇怪 Range("A6").Resize(1, 5) = ar 数值正常，但他是横的，要如何变成直的？ 另外我的阵列输入这样写对吗？输入B2:B11 For i = 1 To 10 ar(i) = Range("B" & i + 1) --- ar = Range("B2:B11") 我本来是这样写，但跑不出来...看网路范例都这样呀？ 用回圈跟不用，两者哪个比较好呢？不用回圈的，就会变成二维阵列？ 运算式本来写 ar(i)=ar(i)*2 变成 ar(i,1)=ar（i,1）*2 不能写ar=ar*2？ 如果输入100列2栏，输出3栏，我是把每1栏都写成1个一维，总共5个 是否写成输入阵列(100,2)，和输出阵列(100,3)，这样比较好？ 或是直接一个阵列(100,5)就好了？那这个的输出写法是 Range("C2").Resize(100,1) = ar(100,3) Range("D2").Resize(100,1) = ar(100,4) Range("E2").Resize(100,1) = ar(100,5) ？这三行写成一行有办法吗？或是分成输入输出阵列 Range("C2").Resize(100,3) = ar2 那个例子是这篇 #1WBA_rjh 。拉公式是我的理解 我只有简单测试。本来用一维写了几十列，改成二维有点麻烦，就没直接试。之前在图 书馆看书时，提到 Range("A1").Resize(i,j) = ar 优於 在回圈内 cells(i,j) 放入阵列值(i,j) （应该是吧？） 但在这问题，是两三个阵列好，还是一个好，似乎差不多？ application.index用法查网路看不太懂＠＠ 如果其他差不多，维度我觉得一栏一个一维打法比较简单，二维(i,1)跟(i,2)代表哪栏， 需要另外记名字，一维就有自己的名字。 如果是vba阵列，直觉是用UBound查最後一个 刚刚我试了後，发现卡在如何筛选不要的元素 囧 其实我也不知道怎麽测试，有的速度差异很明显，这种我想看不出来 刚刚想了一下，如果阵列用回圈输出到活页，比较没效率，那麽活页用回圈输入到阵列， 应该也不好。那麽一栏一个二维阵列，似乎比较好？因为只有二维阵列可以一次输入 居然这麽简单！！！如果要筛选特定元素应该怎麽写呢？ Option Base 1 Dim ar, br ar = Range("A1:A10")(数值1到10) For i = 1 To 10 If ar(i, 1) > 5 Then br = ar(i, 1) End If Next 比如说br应该有5个元素，上面那样写，br是10，而br(i,1)跑不出来，若写成 redim br(10,1) br(i, 1) = ar(i, 1) 则会有5个「空格」，要如何让这些空格消掉？使br只有5个元素 br(1,10)反过来写成br(10,1)就卡住，为什麽呀？变数的方法真的很酷 Dim ar, br, count As Integer ReDim br(10) count = 0 ar = Range("A1:A10") For i = 1 To 10 If ar(i, 1) > 5 Then count = count + 1 br(count) = ar(i, 1) End If Next ReDim Preserve br(count) 但如果删除第二行的redim，第一行改为dim br(10)，为什麽就会卡住呢？ 我觉得阵列这部份最难搞懂，搞不清楚他的规则，每次不知道为什麽卡住＠＠ 用Debug.Print IsArray(br)看，dim br()有括号是阵列，没括号就不是 但如果dim括号有数字，则无法用redim，是这样吗？这让我想到 Dim quantity As Integer = 10 这种写法，官网有这个范例，但我的vba跑不出来 只能 Dim quantity As Integer 然後 quantity =10 redim是这种关系，但用於阵列？ 刚刚我大概把(不含维度下标)想成别的东西 以後我会注意这种差异了＠＠ 何时会用redim更改阵列维度呢？感觉用两个阵列来处理比较简单吧？ 应该说redim preserve的删除只能是最後一维，这点有点讨厌，在上面的案例，在二维就 出现了＠＠ 没用过二维以上的，变慢是因为要从前面的维度一个一个进出，然後增减最 後一维度？有点像用回圈存取活页？ 1000列10个属性，用10个一维(1000)和1个二维(1000,10)，差异是什麽呢？不过在命名 上，我想10个比较好，因为(i,7)属性是什麽？还要去查一下。但是一维不能一次从活 页输入资料，所以变成二维(1000,1)。那麽10个二维(1000,1)和1个二维(1000,10)哪个 好？如果没差，我觉得10个比较好，至少名字很清楚。 redim preserve 我大概只用在前面删空格的问题，如果本质是旧阵列搬到新阵列，而 我只是输出到活页，那麽更简洁的写法，应该是不用删除空格，只输出前面的元素就好 -- 後来我想到，10个属性从活页搬进10个二维，那麽就要做10次，而1个二维只要1次，输 出也一样。如果真的很多，我想10个可能要减少成2~4个，1个我觉得除非都做好了，最 後再来修成这个版本吧，不适合边写边改。 并非座号这种，而是有名字的属性变成数字流水号 (1,2)=43 (1,3)=65 (1,4)=87 这三个属性有时间、高度、重量，你觉得哪个编号是哪个属性？对我来说，那样的程式 码真的不会想看第二次，最多只能都做好了，不会再改了，才能改成这样。 保留资料，删除没有资料的索引，比如ar5个索引(空,2,4,8,空)，我只想留(2,4,8) ReDim Preserve ar(1 To 4) 可以跑 ReDim Preserve ar(2 To 4) 不行 而 ReDim ar(2 To 4) 会变成3个索引的空阵列，索引没有0和1 我应该用不太到这种，而且感觉很难用＠＠应该只会用上面筛选那边的方法 ReDim br(10) ar = Range("A1:A10") For i = 1 To 10 If ar(i, 1) > 5 Then count = count + 1 br(count) = ar(i, 1) End If Next ReDim Preserve br(count) 不论是'注解，或萤幕旁边贴便条，我还是不太喜欢这种写法，也许是资料类型不同 用回圈一个一个输入，这写法不好，我觉得不需要活页列号跟阵列位置相同 我的资料没有这麽多，但是效能真的满有感的，我第一个sub真的很慢，超过十秒，现在 不到一秒。首先是数学上大量重复计算，再来程式写得不好。用手算就会知道哪边是重 复的，直接抄过来就好，电脑只会一直重复计算。会这样是因为程式比较好写又简洁， 写fuction只有一行，若要提昇效率，改成会记忆的变数，就好几十行。虽然说写程式之 前要规划，实际是边写边改，更何况新手我一直卡在奇怪的地方，不然就是不知道为什 麽跑出来是错的。总之我差不多写完一个简单实用的sub，虽然结构只是大的for回圈， 内部一个do回圈，好几个if。但这些不是一次写完，而是修修改改，图书馆翻书，来这 个板求救，这样子才成功搞定。当中我觉得，阵列跟for回圈结合，这个技巧真的是最重 要的。 set物件这种我倒没用过，试了一下马上就卡住＠＠ s.Cells(1, 1).Value = 123 不能这样写吗？我再翻书看看 三维我还没想通怎麽用，二维就一个活页的栏列，第三维就是不同活页？ encode 是 WorksheetFunction.EncodeUrl 这个吗？是处理网址用的？ 是 ASC() 这个吗？我还是不知道干嘛用的＠＠ 我的资料是有机会用到三维，但因为资料特性，我还无法写出简单的程式 再慢慢想啦，有机会再跟你请教～ a=97 y=121 所以编号a-y-3-67 阵列就是(97,121,3,67)？ 背公式如果能解决多数难题，那也不太坏，问题是好像没什麽书整理这些东西，无从背 起，不然就是看不懂范例是干嘛的？下次遇到还是不知道怎麽做。 我正在写另外一个sub，输入只有2栏，要做判断，输出一样是2栏，我一直都是用手工做 这些。写出来只是好几个if，但是推倒重写很多次，才成功跑出正确的东西。这次写的 技术不难，但人脑逻辑怎麽化成程式逻辑很重要，好几个if，谁在外面，谁在里面，或 是独立，跑出来的东西都不一样，而且常常跟我预期的不一样＠＠人脑算到一半，发现 怪怪的，可以退回重算，程式似乎很难这样写。 列举法，大概只能用在这种简单有限的情境 我的是要找出突出（异常）的数值，初步直觉是只有一个if，不就正常/异常两种？但是 我的资料要判断没这麽简单，这个隐含在内的逻辑至少要两个if，2^2=4种结果，若是三 个if，2^3=8种结果，要记录1种结果就要1个一维阵列。虽然部份结果是重复的，变数就 不用这麽多，但我还是只能把部份人脑逻辑写出来，剩下的再慢慢想怎麽弄。 我用巢状IF，有部份结果相同，有没有办法省略？ 1号IF结果：a运算/b运算/c运算 2号IF结果：d运算/e运算/c运算 c运算的部份能省略为 call sub.c运算 吗？ 但是应该要有资料放进去，这部份是放在阵列，我只用过call function() call sub 资料会放进去吗？我还没测试 但是两个sub之间，要怎麽交流变数？尤其是阵列的内容 select case是否只能用在有范围的数值，和有限的情境？ 射线法应该用不到，VBA感觉不好写 後来想到goto这个写法，有人说这个写法不好，你怎麽看呢？不过我目前只想用於重复 的段落而已，用fuction和sub还是卡在怎麽传阵列＠＠ 方法1感觉不太好，弄了老半天才跑起来，然後我发现他sub里面应该要有dim或redim， 这样才会归零，然後不知道为什麽这样就卡住了，而且我这还会执行别的sub，本来想说 是同名的缘故？结果改名字，关掉重开还是卡，後来写在空白活页才正常 方法2无法执行，是少了什麽吗？ Sub ccc() ar = [A1:B10].Value Call ddd(ar) [D1].Resize(count, 1) = Application.Transpose(br) End Sub Sub ddd() For i = 1 To 10 If ar(i, 2) > 0 Then count = count + 1 br(count) = ar(i, 1) End If Next End Sub 测试了後，外面有dim redim的，里面应该也要补，变数也要补，不然不会归零，难怪超 出阵列索引。我不太喜欢这种方法，也许等到程式很大再来用吧？小程式就先输出到活 页，再来做第二次的sub。 goto写法满方便的，但有人说不好，不知道好不好呢？我有个do回圈，判断式会用到do 後的结果，可是第一次需要先给这个结果，所以我把do回圈内算式复制到前面，看了有 点讨厌，因为两者只差两三行，其他都是一样的。如果用goto，就可以直接进do回圈的 中间。还有个gosub return的写法，这个写法比较符合我对程式的想像，也成功解决我 这个问题 ... GoSub line001 ... Exit Sub line001: ... Return line002: ... Return End Sub 传值、传参考，我之前搞不清楚，现在我这样理解： X=10:Y=20 X、Y叫变数，一个变数等於是一个篮子（记忆体的一个单位？），两个篮子的标签分别 是X和Y，内容物则分别是10和20。 VBA预设是传参考，等於说各个sub、function在计算的时候，是传递X、Y这种标签，找 到篮子後，再来读取里面的内容、计算、更改。 比如仓库红色篮子是3瓶果汁，黄色篮子是10瓶果汁，员工的任务是把2瓶果汁放进红色 篮子，那麽他应该是无中生有变出2瓶果汁，然後放进红色篮子。这过程并没有摸到黄色 篮子，2瓶果汁也不是从黄色篮子拿出来的。这样吗？ 传值不知哪边用得到？或者其实function本身就是传值？如果sub的参数都是传值，那麽 就跟function差不多了？但是要弄个变数去储存他的答案？ end sub，会消灭这个sub的篮子，除非sub外面有篮子，而且标签要一样，资料才会留下 来，但是传值就不会改动篮子内的东西了。 在前面我的问题中，两个sub是end了，但外面的篮子（阵列和变数）还在，里面资料也 还在，所以重新计算时，就会用到这些旧资料，而非原先预期的「空」，所以要补上dim 或redim把篮子清空。 ※ 编辑: j2708180 (36.239.159.74 台湾), 05/01/2021 12:00:53 总之传值不会改变原变数的值，传参考会，可是除了x=x+1这种，两个好像没差？ 那麽什麽情况会需要把ByVal打出来呢？ ※ 编辑: j2708180 (218.173.181.14 台湾), 05/02/2021 13:25:14