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

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

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

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

有没有办法把1，2，3等数字转成字母A，B，C？
能否用正则替换？请高手指教
Loca $Tmp=
$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=
$Tmp1=

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 ,$Tmp=

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

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 ,$Tmp=

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

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=20excel中应该这样用，用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等？【已解决】