伊莉討論區

標題: excel 巨集有一行看不懂 [打印本頁]

---

作者: gift1314520    時間: 2016-10-5 12:04 AM     標題: excel 巨集有一行看不懂

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

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

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

---

作者: rr09192084    時間: 2016-10-8 02:00 PM

你這應該是有一個自訂的函數叫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了。

---

歡迎光臨 伊莉討論區 (http://a401.file-static.com/)

Powered by Discuz!