返回列表 上一主題 發帖

[分享] 將cells的數字欄改為range的文字欄

[分享] 將cells的數字欄改為range的文字欄

Function Col(C%)
  Col = IIf(C < 27, "", Chr(Int((C - 1) / 26) + 64)) & IIf(C Mod 26 = 0, "Z", Chr(C Mod 26 + 64))
End Function

Function Col(C%)
  Col = IIf(C < 27, "", Chr(Int((C - 1) / 26) + 64)) & IIf(C Mod 26 = 0, "Z", Chr( ...
Min 發表於 2010-5-9 22:12



    2007已不敷使用
  1. Function ColumnName(Rng As Range)
  2. ColumnName = Split(Rng.AddressLocal, "$")(1)
  3. End Function
複製代碼
學海無涯_不恥下問

TOP

不好意思,路過想請教一下
第二排的程式碼 ColumnName = Split(Rng.AddressLocal, "$")(1)
後面的(1) 是啥意思?

小弟學淺,希望各位大大指教

TOP

回復 3# mave
  1. Function ColumnName(Rng As Range)
  2.     ColumnName = Split(Rng.AddressLocal, "$")(1)
  3.     '  Rng.AddressLocal : "$AB$1" : String
  4.     '  Split(Rng.AddressLocal, "$")(0) : ""   : String
  5.     '  Split(Rng.AddressLocal, "$")(1) : "AB" : String
  6.     '  Split(Rng.AddressLocal, "$")(2) : "1"  : String
  7.     '  ColumnName : "AB" : Variant/String
  8. End Function
複製代碼

TOP

回復 3# mave
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar As Variant, I As Integer
  4.     Ar = Array("AA", "BB", "CC")  '陣列
  5.     For I = 0 To UBound(Ar)
  6.         MsgBox Ar(I)    '陣列的第幾個元素
  7.     Next
  8.     '********Split傳回陣列
  9.     Ar = "AA_BB_CC"
  10.     For I = 0 To 2
  11.         MsgBox Split(Ar, "_")(I)   '陣列的第幾個元素
  12.     Next
  13. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

感謝樓上兩位大大的回答
十分感謝

TOP

        靜思自在 : 稻穗結得越飽滿,越會往下垂,一個人越有成就,就要越有謙沖的胸襟。
返回列表 上一主題