VBA中公式轉變出錯問題

pcwh3

有一些在VBA中的程式寫法出錯問題如附件，希望各位可以幫忙指點一下需如何更改。
謝謝。 test20160903.zip (8.39 KB)

下載次數: 22

2016-9-3 11:24

c_c_lai

回復 1# pcwh3
是這樣麼？

1. Sub test20160903()
   
2.     Dim lc As Integer
   
3. 
   
4.     lc = [bz1].End(xlToLeft).Column
   
5.     '  MsgBox lc
   
6. 
   
7.     [a1] = "=sum(" & ExChg(1, lc - 10) & ", " & ExChg(1, lc - 1) & ")"
   
8.     [a2] = "=sum(b2:" & ExChg(2, lc - 1) & ")"
   
9. End Sub
   
10. 
    
11. Function ExChg(r As Integer, c As Integer) As String
    
12.     ExChg = Chr(64 + c) & CStr(r)
    
13. End Function

複製代碼

c_c_lai

回復 1# pcwh3

下載 (33.36 KB)

2016-9-3 14:35

pcwh3

下載 (7.31 KB)

2016-9-3 15:19

回復 2# c_c_lai

剛試過。但如果我將LC位置更改到BA(例如)，運行MACRO之後的結果是錯的。
這是甚麼原因。
在A2中應為=sum(b2:az2)才是正確。

c_c_lai

回復 4# pcwh3
你是說將 lc = [bz1].End(xlToLeft).Column
改成 lc = [ba1].End(xlToLeft).Column ?
其結果是一樣的。

c_c_lai

回復 4# pcwh3
你的 [A2] 公式為：
[a2] = "=sum(b2: cells(2,lc-1))"
怎可能 [a2] = =sum(b2:az2)才是正確???

准提部林

[a1] = "=sum(" & Range(Cells(1, lc - 11), Cells(1, lc - 1)).Address & ")"
[a2] = "=sum(b2:" & Cells(2, lc - 1).Address(0, 0) & ")"

c_c_lai

回復 7# 准提部林
謝謝版大的指導，又瞭解了另一種的表示方式，
真多謝！

下載 (54.7 KB)

2016-9-3 17:32

pcwh3

回復 7# 准提部林

多謝幫忙。實證代入我真實運作的macro 中，整個運行暢順快捷。
但對你所提的address. (0,0) 不甚明瞭原理。
可以的話可否講解一下，或提供參考路徑。
謝謝。

准提部林

回復 9# pcwh3

看一下
MsgBox Range("A1:F5").Address
MsgBox Range("A1:F5").Address(0, 0)
MsgBox Range("A1:F5").Address(1, 0)
MsgBox Range("A1:F5").Address(0, 1)