2016-12-28から1日間の記事一覧
'列番号を文字に変換するユーザー定義関数 Function ColNum2Txt(lngColNum As Long) As String On Error GoTo ErrHandler Dim strAddr As String strAddr = Cells(1, lngColNum).address(False, False) ColNum2Txt = Left(strAddr, Len(strAddr) - 1) Exit F…
'列番号を文字に変換するユーザー定義関数 Function ColNum2Txt(lngColNum As Long) As String On Error GoTo ErrHandler Dim strAddr As String strAddr = Cells(1, lngColNum).address(False, False) ColNum2Txt = Left(strAddr, Len(strAddr) - 1) Exit F…
