Public Function colName(col As Integer) As String colName = Mid(Cell(1, col).address, 2, InStr(2, Cells(1, col).address, "$") - 2) End Function Public Function colNum(name As String) As Integer colNum = Range(name & 1).Column End Function |
投稿 >