- 帖子
- 463
- 主題
- 116
- 精華
- 0
- 積分
- 580
- 點名
- 0
- 作業系統
- Vista
- 軟體版本
- 2007
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-4
- 最後登錄
- 2017-11-13
 
|
複製公式
各位前輩你們好!!
假設A3=1,A4=2,A5=3
Sub Ex()
Dim Rng As Range, e As Range
If [A3] = "" Then
[AH1] = "=SUM(INDIRECT(""AH3:AH1200""))"
[AH2] = "=$A3&""筆"""
ElseIf [A3] <> "" Then
With Sheet3
Set Rng = .Range("AH1", .Range("ZZ1").End(xlToLeft))
Set e = Rng(1, Rng.Columns.Count + 1)
End With
Set Rng = Range("AH1:AH2")
Rng.Copy e
End If
End Sub
執行結果AI1與AH1公式都相同
AI2與AH2公式也相同
應該如下
當第一次按鈕
AH1=SUM(INDIRECT("AH3:AH1200"))
AH2=$A3&"筆"
第二次按鈕
AI1=SUM(INDIRECT("AI3:AI1200"))
AI2=$A4&"筆"
第三次按鈕
AJ1=SUM(INDIRECT("AJ3:AJ1200"))
AJ2=$A5&"筆"
以此類推請問程式如何修改?
請知道的前輩,不吝賜教謝謝再三!! |
|
發表於 2014-1-20 21:19
| 
