一区二区三区日韩精品-日韩经典一区二区三区-五月激情综合丁香婷婷-欧美精品中文字幕专区

分享

VBA中使用名稱引用

 ForSheet 2021-01-22

如下表格區(qū)域,如果經(jīng)常需要對北京對應的區(qū)域進行求和求平均等。

我們可以選擇A2:A13,進行命名操作。

如下圖,選擇區(qū)域,名稱框中輸入"BJ",回車。

"

以后就可以直接=SUM(BJ),具體的操作以前也有詳細教程,可以在后臺回復關鍵詞:名稱引用。

今天介紹用VBA來定義名稱。

以下代碼可以實現(xiàn)為區(qū)域命名。

Private Sub CommandButton1_Click() Sheets("Sheet1").Names.Add Name:="BJ", RefersTo:=Range("A2:A13")End Sub

如果B列對應的區(qū)域想命名為 "BJ",也可以換另外一種方法。

Private Sub CommandButton1_Click() Sheets("Sheet1").Range("b2:b13").Name = "SH"End Sub

上面兩種方法均可以命名。

你可以在公式名稱管理器中進行查看。

名字均設置好了,可以看到如下效果。

已經(jīng)取好名字了,可以全部列舉出名字。

主要列舉三個,一個是編號,一個是名字,一個是對應的區(qū)域。

假設將相關內(nèi)容列舉到E列

使用以下代碼:

Private Sub CommandButton2_Click()Dim i As IntegerDim myobject As Objecti = 1For Each myobject In ActiveWorkbook.Names Cells(i, 5) = myobject.Index Cells(i, 6) = myobject.Name Cells(i, 7) = "'" & myobject.RefersTo i = i + 1NextEnd Sub

如果要刪除某個名字。

直接上以下代碼

Private Sub CommandButton3_Click() ActiveWorkbook.Names("SH").DeleteEnd Sub

子曰用之則行,不用則藏。

意思是說,如果你用我的這些建議,就馬上行動,知行合一,如果你不用,就趕緊收藏,以絕后患。

    轉藏 分享 獻花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多

    欧美尤物在线视频91| 欧美日韩最近中国黄片| 日韩精品在线观看完整版| 久热香蕉精品视频在线播放| 午夜直播免费福利平台| 自拍偷拍福利视频在线观看| 国产精品久久熟女吞精| 亚洲国产综合久久天堂| 一级片黄色一区二区三区| 制服丝袜美腿美女一区二区| 欧美熟妇一区二区在线| 成人午夜免费观看视频| 日韩人妻一区二区欧美| 久久综合九色综合欧美| 99福利一区二区视频| 国产亚洲欧美一区二区| 日韩成人中文字幕在线一区| 日韩日韩欧美国产精品| 男人的天堂的视频东京热| 激情综合网俺也狠狠地| 亚洲男人的天堂就去爱| 国内胖女人做爰视频有没有| 国产成人精品午夜福利av免费| 欧美午夜视频免费观看| 欧美加勒比一区二区三区| 91久久精品中文内射| 俄罗斯胖女人性生活视频| 日本一区二区三区黄色| 成人精品一区二区三区在线 | 欧美日本亚欧在线观看| 亚洲国产香蕉视频在线观看| 国产又大又硬又粗又黄| 亚洲一区二区三区一区| 亚洲国产性生活高潮免费视频| 日本精品理论在线观看| 日本在线高清精品人妻| 蜜桃av人妻精品一区二区三区| 国产一区二区不卡在线播放| 国产一区一一一区麻豆| 五月婷婷综合激情啪啪| 麻豆在线观看一区二区|