有没有办法把1，2，3等数字转成字母A，B，C等？【已解决】

blue_dvd · 发表于 2013-1-3 15:05:58

本帖最后由 blue_dvd 于 2013-1-3 21:23 编辑

有没有办法把1，2，3等数字转成字母A，B，C？
能否用正则替换？请高手指教

Loca $Tmp[3]=[1,2,3]
$ZHuan=

annybaby · 发表于 2013-1-3 16:07:03

本帖最后由 annybaby 于 2013-1-3 16:09 编辑

回复 1# blue_dvd

用ASC表,对着照加上差值转换~~

guland · 发表于 2013-1-3 18:14:47

$Tmp[3]=[1,2,3]
$Tmp1[3]=[A,B,C]

annybaby · 发表于 2013-1-3 18:29:40

回复 3# guland

好方法,简单实用无花巧~~

netegg · 发表于 2013-1-3 18:43:02

本帖最后由 netegg 于 2013-1-3 18:45 编辑

chr($num+64)

blue_dvd · 发表于 2013-1-3 21:23:20

搞定了！
3楼版主太牛了！

Local $ZHuan[3] ,$Tmp[3]=[1,2,3]

For $i=0 To UBound($Tmp)-1
        $ZHuan[$i]=Chr(Asc( $Tmp[$i] )+16)
Next
MsgBox(0,"",$ZHuan[0]&$ZHuan[1]&$ZHuan[2])

blue_dvd · 发表于 2013-1-3 21:27:57

主要是想设置Excel中某列的列宽！需要把第几列转成字母的列，没有别的意思！

netegg · 发表于 2013-1-3 21:48:31

本帖最后由 netegg 于 2013-1-3 21:49 编辑

回复 6# blue_dvd
为什么要先用asc，不是数字吗，直接可以运算

    Local $ZHuan[3] ,$Tmp[3]=[1,2,3]

    For $i=0 To UBound($Tmp)-1
            $ZHuan[$i]=Chr($Tmp[$i]+64)
    Next
    MsgBox(0,"",$ZHuan[0]&$ZHuan[1]&$ZHuan[2])

blue_dvd · 发表于 2013-1-3 23:53:36

对哦，也可以这样！

kevinch · 发表于 2013-1-4 08:19:49

本帖最后由 kevinch 于 2013-1-4 08:21 编辑

$n=3
$wb.activesheet.cells(1,$n).entirecolumn.columnwidth=20

excel中应该这样用，用entirecolumn可以扩展到整列
或者对于单一列，直接用columns引用

$wb.activesheet.columns($n).columnwidth=20

blue_dvd · 发表于 2013-1-5 08:55:18

原来也可以用数字，晕死了！

loveauto · 发表于 2013-1-5 11:06:49

呵呵方法很多的，就看要的效果了

		自动登录	找回密码
密码			加入

[效率算法] 有没有办法把1，2，3等数字转成字母A，B，C等？【已解决】

相关帖子