1. 程式人生 > >Excel VBA 列名列標轉換函式

Excel VBA 列名列標轉換函式

Function CI(c) 'Cells.Address.Information
    If IsNumeric(c) Then
        On Error GoTo NumErr
        CI = Replace(Cells(, c).Address(0, 0), 1, "")
    Else
        On Error GoTo TxtErr
        CI = Range(c & 1).Column
    End If
    Exit Function
NumErr:
    CI = "Not 1-" & Cells(Cells.Count).Column & " !": Exit Function
TxtErr:
    CI = Cells(Cells.Count).Address(1, 0)
    CI = "Not A-" & Left(CI, InStr(CI, "$") - 1) & " !": Exit Function
End Function

轉自ExcelHome 香川群子



相關推薦

Excel VBA 名列轉換函式

Function CI(c) 'Cells.Address.Information If IsNumeric(c) Then On Error GoTo NumErr CI = Replace(Cells(, c).Address(0

一道面試題,把excel的名稱轉換為數字

這是一道某公司的上機面試題: microsoft excel 中欄目是用 A,B,C...Z;AA,AB,...ZZ ... ZZZZ ....這樣表示序列的它對應是這樣 0,1,2,...25;26,27...701 ...475253 請寫出這個對應關係。 輸入是多行輸

vba中資料型別轉換函式

轉換函式 CBool(expression) 轉換為Boolean型 CByte(expression) 轉換為Byte型 CCur(expression) 轉換為Curr

excel中兩張表同名列匹配另一(關於VLOOKUP函式

如圖: a表和b表variety是對應的,要將A表欄目填上對應B表的b列內容,可以通過vlookup函式, 如圖,在A表的c2空格中輸入=vlookup()有四個引數,第一個是A表的variety列所有選中,第二個引數是B表的所有兩列引數選中,第三個引數,第四個引數分別

Excel VBA 型別轉換函式

CBool函式 描述 返回表示式,此表示式已轉換為 Boolean(布林型別/是否型別) 子型別的 Variant(變數)。 語法 CBool(expression) expression 是任意有效的表示式。 說明 如果 expression 是零,則返回 False;否則

VBA 轉換英文字母

VBA 列號轉換成列英文字母 Replace(Cells(1, 1).address(False, False), "1", "") Step1. 獲取Cell所在的列(英文字母)和行Cells(1, 1).address(False, False) ->

Python 3 實現數字轉換Excel列名(10進位制到26進位制的轉換函式

背景:   最近在看一些Python爬蟲的相關知識,講爬取的一些資料寫入到Excel表中,當時當列的數目不確定的情況下,如何通過遍歷的方式講爬取的資料寫入到Excel中。 開發環境: Python 3   openpyxl  解決方案:Excel列名其實就是一個26進位制的

Excel大小寫轉換函式

Excel中的大小寫轉換函式 (1)、轉換為全部小寫字母:lower函式 (2)、轉換為全部大寫字母:upper函式 (3)、轉換為首字母大寫,其餘小寫字母:proper函式 三種函式的使用方式,如下圖所示: 流程操作,如下圖所示: 小知識,簡而記之。

vba 數字變為excel對應的字母

Public Function GetColName(ByVal y As Integer) As String       Dim z     As Integer   &nbs

PYTHON 呼叫EXCEL VBA 函式:使用win32com模組

import win32com.client def excel_VBA(): xls=win32com.client.Dispatch('Excel.Application') xls.Workbooks.Open(r'E:/mypython

學以致用——VBA實現十進位制數字轉換為字母(二十六進位制)(Convert a number to letters (Excel Column number to name) with VBA

Excel列標與列名轉換問題,本質上是一個十進位制數和二十六進位制數的轉換問題。記得以前學C、C#、JAVA等程式語言時,已經做過一些相關練習了。但是,老實說,在用公式法解決這個十進位制轉二十六進位制的問題時還真是難到我了,花了好幾個小時也沒有解決。於是,求助網路,在一篇文章

數字轉換excel列名(10進位制到Excel的26進位制的轉換函式

真悲劇!自己寫了3個小時 這個東西居然沒寫出來!汗死!!!! 不過找到了答案,在網上找了好久好多有意思的演算法,但是遇到以Z 結尾的列名時計算錯誤 共享出來大家一起用吧!         /// <summary>         /// 將 Excle 列索

和式的下轉換與莫比烏斯函式

和式的下標轉換 == 式子裡面有個數論符號 x|d 表示d是x的倍數, 專業術語叫x整除d ,比如x=2,n=7就是f(2)+f(4)+f(6) 變化一下,列舉x的倍數i,因為d=x*i的.變成右邊式子   再來一個多重和式,這裡對於i*j而言,i,j列舉範圍互不影

[Excel] Excel VBA函式定義 之 合併所有工作簿

目錄 Excel VBA函式定義 合併所有工作簿 REFRENCES 微信公眾號 Excel VBA函式定義 合併所有工作簿 直接合並 Sub 合併當前目錄下所有工作簿的全部工作表(

VBA研究】用VBA取得EXCEL任意有效行數

作者:iamlaosong 用VBA對Excel檔案進行處理的時候,關鍵欄位的列號程式設計時往往是不知道的,需要通過引數設定才能知道,因此,我們程式設計的時候,就不能用這樣的語句取有效行數:    

c# excel中字元和數字轉換

/// <summary>         /// 將excel中字元列轉換為數字         /// </summary>         /// <param na

JS 數字轉換EXCEL字母

/** * Convert from numeric position to letter for column names in Excel * @param {int} n Column number * @return {string} Column le

EXCEL VBA小白第二課:查詢空白單元格並上顏色

本文首發於我的知乎和公眾號info_star,轉載請註明出處。 眾所周知EXCEL是辦公利器,特別是在報表處理工作較多的辦公環境下,一個簡單的EXCEL VBA的小技能就可以剩下你大量的時間。 這不是重點,最最重點的是,這個小小的效率提升會減少工作裡重複勞動的煩躁感

Excel vba中使用vlookup函式

    1. 在excel vba程式設計中使用vlookup()時,vlookup不能直接寫成excel公式中的樣式[ =VLOOKUP(123,A1:C100,3,FALSE) ],會出現“子過程或函式未定義”的錯誤,應該寫成application.VLOOKUP(12

excel VBA中呼叫VB6寫的DLL中的窗體和過程函式

   我用VB6企業版封裝了一個DLL,其中有4個VB窗體——form1,form2,form3,form4,在excel 2003的VBE中用VBA程式碼呼叫DLL中的類模組、標準模組均成功,但是就是呼叫和顯示不了VB窗體!!!應該怎麼呼叫?才能顯示???      呼叫