<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. 將數值轉換為表示A -Z的類似EXCEL的字母串-Victor Duane
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> Access數據庫-模塊/函數/VBA


      將數值轉換為表示A -Z的類似EXCEL的字母串

      發表時間:2015/10/6 11:47:34 評論(0) 瀏覽(2794)  評論 | 加入收藏 | 復制
         
      摘 要:可以用A-Z,AZ,BZ,AB,這類字母串來表示從1開始的整數數值
      正 文:
      '將數值轉換為表示A -Z的類似EXCEL的字母串
      Function NumToAlphabet(Number As Integer) As String
          Dim dblNum As Long
          Dim digit As Long
          Const conStrList As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
          
          dblNum = Number
          Do Until dblNum = 0
              digit = dblNum Mod 26
              If digit = 0 Then digit = 26
              NumToAlphabet = NumToAlphabet & Mid(conStrList, digit, 1)
              Debug.Print NumToAlphabet, digit
              If digit = 26 Then
                  dblNum = (dblNum \ 26) - 1
              Else
                  dblNum = dblNum \ 26
              End If
              Debug.Print dblNum
          Loop
          NumToAlphabet = StrReverse(NumToAlphabet)
      End Function

      Access軟件網交流QQ群(群號:198465573)
       
       相關文章
      遞增A-Z  【UMVSOFT整理  2007/11/10】
      a-z自動編號  【victorduane  2007/11/20】
      [access查詢]關于按“甲、乙、丙、丁”順序排序問題,按甲乙丙...  【江羽  2009/8/26】
      [access查詢]如何自定義排序規則?以上午/下午/晚上三個字段...  【何必見戴  2011/12/29】
      關于按“甲、乙、丙、丁”順序排序問題  【在水一方  2014/8/22】
       
       訪客評論
      總記錄:0篇  頁次:0/0 9 1 :
       
       發表評論
      評論內容 (必填)

      常見問答
      技術分類
      相關資源
      文章搜索
      關于作者

      Victor Duane

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5