在excel表格中使用vba引用單元格區(qū)域

發(fā)布時間：2016-09-04 14:05:35 作者：keoneo

今天小編為大家分享在excel表格中使用vba引用單元格區(qū)域方法，方法很簡單，對于有需要的朋友可以參考本文，一起來看看吧

今天為大家介紹在excel中使用vba來引用單元格區(qū)域方法，不會的朋友可以參考本文，來看看吧！

Excel2003綠色版 EXCEL2003精簡綠色版 (附excel2003綠色工具)

步驟

1、首先我們打開一個工作樣表作為例子。

excel中使用vba來引用單元格區(qū)域

2、使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：

Option Explicit

Sub Random()

Dim myRange As Range

Dim rng As Range

'設置對單元格區(qū)域的引用

Set myRange = Worksheets("Sheet1").Range("A1:D5")

Set rng = Worksheets("Sheet1").Range("e1:i5")

'對Range對象進行操作

myRange = "=rand()"

rng.Value = myRange.Value

myRange.Font.Bold = True

End Sub

excel中使用vba來引用單元格區(qū)域

3、這里我們設置了2個區(qū)域變量，直接聲明它們是range類型，這樣才能對其區(qū)域單元格進行引用。如果去掉類型聲明，那么過程將會報錯需要對象。這點大家要注意。

Dim myRange

Dim rng 會報錯。

excel中使用vba來引用單元格區(qū)域

4、我們先來設置以下區(qū)域單元格的范圍，這里myRange是在sheet1工作表中的a1到d5的矩形連續(xù)單元格范圍。而rng是同樣sheet1工作表中的e1到i5的矩形連續(xù)單元格。

excel中使用vba來引用單元格區(qū)域

5、因為聲明了range類型，所以我們這里直接可以對myRange變量進行賦值，使用=號直接賦值即可。由于我們賦值的是一個excel程序函數(shù)，所以要用雙引號括起來。

excel中使用vba來引用單元格區(qū)域

6、接著重點是，如果要對這個區(qū)域內(nèi)的單元格值進行引用，我們必須清楚寫清楚是引用的兩個區(qū)域的值value。寫法就要這樣

rng.Value = myRange.Value

excel中使用vba來引用單元格區(qū)域

7、最后我們可以得到正確的結(jié)果，在這兩個區(qū)域中myRange是隨機函數(shù)公式，而rng是固定的當次運行隨機函數(shù)后的值。這里兩個值不對應一致是因為在粘貼操作后rand（）函數(shù)重新計算了一次的結(jié)果。

excel中使用vba來引用單元格區(qū)域

以上就是在excel表格中使用vba引用單元格區(qū)域方法介紹，操作并不是很難，大家按照上面步驟進行操作即可，希望能對大家有所幫助！

最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线