帖子: 132
主題: 25
精華: 0
積分: 199
點名: 0
作業系統: window XP
軟體版本: Excel 2010
閱讀權限: 20
性別: 男
來自: 台灣新竹
註冊時間: 2010-6-1
最後登錄: 2022-7-14

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-7-26 15:15 | 只看該作者

Range 內容指定的語法要如何撰寫。

問題
想要比對多張資料表，相同位置的內容是否相同，用 Range 要如何寫。
例如：要比對E6:E12，在「22」這張 Sheet 與「參考表格」，2者是否相同。

同張表格，不同 Range 可以解決
Set Range_Area1 = Range("E6:E12")
Set Range_Area2 = Range("H6:H12")
Range_Area1.FormulaArray = Range_Area2.FormulaArray

但不同 Sheet 的比對要如何寫
已嘗試過
'1.Range_X = Range_Area1
'2.Range_X.Value = Range_Area1.Value
'3.Range_X.FormulaArray = Range_Area1.FormulaArray
'4.Range_X = Sheets("參考表格").Range_Area1

[緣故]
因為現場的小姐不會用資料庫，把 Excel 當做是Word 在處理。
因為要整理成資料庫，想要用巨集寫，用以抓資料。
但要先行比對，輸入資料的「單位數」是否相同。
整個「報表格式」是否相同

Macro_Rng_Test.zip (12.11 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2010-7-26 15:34 | 只看該作者

回復 1# Baracuda

FormulaArray
傳回或設定範圍的陣列公式
如果指定範圍不包含陣列公式，本屬性傳回 Null
所以妳的做法是比對不出來的

Sub nn()
myaddress = "E6:E12"
mystr = Join(Application.Transpose(Sheets("22").Range(myaddress).Value))
mystr1 = Join(Application.Transpose(Sheets("參考表格").Range(myaddress).Value))
MsgBox IIf(mystr = mystr1, "相同", "不同")
End Sub

複製代碼

學海無涯_不恥下問

TOP

Baracuda

中學生 Rank: 2

帖子: 132
主題: 25
精華: 0
積分: 199
點名: 0
作業系統: window XP
軟體版本: Excel 2010
閱讀權限: 20
性別: 男
來自: 台灣新竹
註冊時間: 2010-6-1
最後登錄: 2022-7-14

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章

3^#

發表於 2010-7-26 22:10 | 只看該作者

謝謝你﹗超級版主。
語法大概可以猜出你寫的邏輯。
「指定範圍不包含陣列公式，本屬性傳回 Null」這一段，看不太懂。
1.因為同張 Sheet 時可以用(意思是包含陣列公式)。
2.不同張Sheet 時，就變成不包含陣列公式。
不過這個應該不影響整個VBA 的進度。先拿來做再說。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2010-7-26 22:26 | 只看該作者

回復 3# Baracuda

Null 關鍵字是一種 Variant 次型態。意指變數中未含正確的資料。
所以表示說若你指定範圍內沒有陣列公式存在時就會傳回沒有值

依照你檔案內容來看,儲存格內並未含有陣列公式傳回的當然都是NULL
注意的是不同工作表範圍寫法,只是指定清楚工作表名稱罷了

學海無涯_不恥下問

TOP