帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-9-19 17:00 | 只看該作者

如何在指定的定義名稱內指定範圍加總呢？

各位大大好：
在颱風期問，祝福大家都能平安順心。
小弟有一問題想請問在一工作表內指定了定義名稱為： mySum
其定義名稱範圍： range("a1:b8")
設有
a1:a8內容為：名稱,a,b,c,d,e,f,g
b1:b8內容為：數量,10,20,30,40,50,60,70

現要在指定的b9欄位加總b2:b8

請問其二種語法為何呢？

語法如下：

Sub aa()

Dim mSht As Worksheet
Dim mRng As Range
Dim mRng1 As Range
Dim mRng2 As Range

Set mSht = Worksheets(1)

With mSht
      Set mRng = .Range("b9")
      Set mRng1 = Range("mysum").Cells(2, 2)
      'MsgBox mRng1.Address

      Set mRng2 = Range("mysum").Cells(8, 2)
      'MsgBox mRng2.Address


      'mRng.Formula = "=sum(mrng1 &":"& mrng2)" '第一種語法
      'mRng.Formula= "sum(range("mysum").cells(2,2) &":"& range("mysum").cells(8,2))  '第二種語法
End With

End Sub

感謝各位大大。

樓主熱帖

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

11^#

發表於 2010-9-22 05:42 | 只看該作者

謝謝各位版主大大。

小弟真是受益良多。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2010-9-21 18:22 | 只看該作者

SUM函數會避開文字
[B9] = "=SUM(mysum)"

學海無涯_不恥下問

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

發表於 2010-9-21 17:44 | 只看該作者

一開始也想這樣簡單些，不過樓主兩個語法都是在儲存格寫入公式，才改成公式。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2010-9-21 17:36 | 只看該作者

再提供一個語法：
= "=Sum(" & Application.Index([MySum], , 2).Address & ")"
oobird 發表於 2010-9-20 15:30

樓主說過: 小弟有一問題想請問在一工作表內指定了定義名稱為： mySum
可直接用工作表公式 [b9] = [Sum(Index(MySum, , 2))]

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

7^#

發表於 2010-9-20 15:58 | 只看該作者

謝謝各位大大。

小弟會好好研究並加應用。
感恩各位大大！

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2010-9-20 15:30 | 只看該作者

再提供一個語法：
[b9] = "=Sum(" & Application.Index([MySum], , 2).Address & ")"

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2010-9-20 13:12 | 只看該作者

回復 3# dechiuan999

Sub Ex()
Dim MySum As String
MySum = "a1:b8"
With Range(MySum).Columns(2)
.Cells(.Rows.Count + 1) = Application.Sum(.Offset(1).Resize(.Rows.Count - 1))
End With
End Sub

複製代碼

TOP

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

4^#

發表於 2010-9-20 08:44 | 只看該作者

With Range("mySum").Columns(2)
[b9] = Application.Sum(.Value) - .Cells(1, 1)
End With
With Range("mySum").Columns(2)
[b10] = Application.Sum(.Cells(2, 1).Resize(.Rows.Count - 1, 1))
End With

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

3^#

發表於 2010-9-20 06:43 | 只看該作者

謝謝版主大大。

小弟引用大大的語法已達成須求。
目前尚在研究是否有其他語法可適用呢。

感恩版主大大！

TOP