不同工作表內的資料比對與填入.

linshin1999

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

8^# 跳轉到 »

發表於 2011-1-9 23:47 | 只看該作者

回復 7# HUNGCHILIN

阿吉版主:不是考試,是真的不懂,經過你的解釋意思是這樣的嗎?

Dim a, b As Intger

1)a 和 b 的型別是不一樣的. (a 是 Variant <Excel 的預設型別> ), b 是Integer .
2)意思是 Dim 後面的",", 是一個一個變數的分隔, 每個變數都是獨立的.

希望這次真的搞懂了,寫 VBA 時常在這裡出錯.

V98

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

7^#

發表於 2011-1-9 23:10 | 只看該作者

這則好像有考試的感覺
一看到第1項就知道不一樣
舉個例子
Sub DimAs1()
Dim Mynum1, Mynum2 As Integer '這條 Mynum1 不會變Integer
Dim Total As Integer, MyString As String * 4 '字串長度為4

MyString = _
"撰寫小技巧": MsgBox MyString: MsgBox TypeName(MyString)

End Sub

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

6^#

發表於 2011-1-9 22:59 | 只看該作者

回復 4# GBKEE

請問  宣告式
      1).Dim E As Range , I 和 Dim  E, I  As Range 是一樣的意思嗎?

      2).For Each E In Sheet1.Range("A:A").SpecialCells(xlCellTypeConstants)
         中如果只這樣寫  Sheet1.range("A:A")  和  Sheet1.Range("A:A").SpecialCells(xlCellTypeConstants) 的差別在那裡? 不是都會掃描一遍嗎?

      3).I = Application.Match(E, Sheet2.Range("A:A"), 0)
         這樣一行這會在Sheet2.Range("A:A")掃描出相等的資嗎?

      4.)If IsNumeric(I) Then E.End(xlToRight).Offset(, 1) = Sheet2.Cells(I, "B")
         為什麼要作做  IsNumeric(I) 這個動作呢?

V98

TOP

MRSA