Sign in or 
- EasyEdit
- Edit tags
-
(what's this?What are these tools?
People just like you can add or edit the content on this site. If you want to try editing, but aren't ready to add to this site, try our demo area.
Read more about editing pages at Wetpaint Central.
) - Report page
Share this
Get Excel Range Column
Private Function Column(ByVal vlngX As Long) As String
' Returns an Execl range column like "A".End Function
' EX: objSheet.Columns(Column(1) & ":" & Column(10)).Select
' 1 <= vlngX <= 676
' 1 <= vlngY
Dim strColumn As String
strColumn = Chr(Asc("A") + ((vlngX - 1) Mod 26))
If vlngX > 26 ThenstrColumn = Chr(Asc("A") + Fix(vlngX / 26) - 1) & strColumnEnd If
Column = strColumn
|
2buck |
Latest page update: made by 2buck
, Dec 1 2006, 11:49 PM EST
(about this update
About This Update
Edited by 2buck
view changes - complete history) |
|
More Info: links to this page
|
There are no threads for this page.
Be the first to start a new thread.
