麻辣家族討論版版 - Powered by Discuz! Board

標題: [分享] 將cells的數字欄改為range的文字欄 [打印本頁]

作者: Min 時間: 2010-5-9 22:12 標題: 將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

作者: Hsieh 時間: 2010-5-9 22:47

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已不敷使用

Function ColumnName(Rng As Range)
ColumnName = Split(Rng.AddressLocal, "$")(1)
End Function

複製代碼

作者: mave 時間: 2016-4-11 17:22

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

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

作者: c_c_lai 時間: 2016-4-11 18:50

回復 3# mave

Function ColumnName(Rng As Range)
ColumnName = Split(Rng.AddressLocal, "$")(1)
' Rng.AddressLocal : "$AB$1" : String
' Split(Rng.AddressLocal, "$")(0) : "" : String
' Split(Rng.AddressLocal, "$")(1) : "AB" : String
' Split(Rng.AddressLocal, "$")(2) : "1" : String
' ColumnName : "AB" : Variant/String
End Function

複製代碼

作者: GBKEE 時間: 2016-4-12 05:42

回復 3# mave

Option Explicit
Sub Ex()
Dim Ar As Variant, I As Integer
Ar = Array("AA", "BB", "CC") '陣列
For I = 0 To UBound(Ar)
MsgBox Ar(I) '陣列的第幾個元素
Next
'********Split傳回陣列
Ar = "AA_BB_CC"
For I = 0 To 2
MsgBox Split(Ar, "_")(I) '陣列的第幾個元素
Next
End Sub

複製代碼

作者: mave 時間: 2016-4-12 08:01

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)