excel 巨集有一行看不懂

gift1314520

請問高手們有一行我看不懂，上網直接搜尋也找不出來
只好來這請教專家幫忙小弟我解惑一下，謝謝

shtM.Range(GetCol(13 + (A * 4)) & 4 + 0)
會直接抓到M4欄位值出來

請問神人們可否幫小弟講解一下丫

rr09192084

你這應該是有一個自訂的函數叫GetCol，可以根據Column來取得欄位的字母代號，根據你說的會取出M4位址的值，所以：我假設有一個副程式和一個函數，他們分別是：

1. Sub Test()
   
2.   Dim shtM As Worksheet
   
3.   Set shtM = ThisWorkbook.Sheets(1)
   
4.   MsgBox shtM.Range(GetCol(13 + (A * 4)) & 4 + 0)
   
5. End Sub
   
6. 
   
7. Function GetCol(lngCol As Long) As String
   
8.     Dim vArr As Variant
   
9.     vArr = Split(Cells(1, lngCol).Address(True, False), "$")
   
10.     GetCol = vArr(0)
    
11. End Function

複製代碼

其中A值應該是零，那麼13+(0*4)仍然是13，第13個欄位就是M，後面的4 + 0還是4，所以就是M4了。...

瀏覽完整內容，請先 註冊 或 登入會員