请教各位如何将EXCEL宏代码写成AU3？

smooth · 发表于 2013-5-24 21:23:45

经过一个星期的仔细琢磨，无法将下面代码写成AU3格式，请教各位谢谢！

Range("C2:H13").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("C1:H1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    Range("A1:H13").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

smooth · 发表于 2013-5-25 07:23:26

$oExcel.Range("C2:H13").Select
    With $oExcel.Selection
        .HorizontalAlignment = "xlRight"
        .VerticalAlignment = "xlCenter"
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = "xlContext"
        .MergeCells = False
    EndWith

这样写没有报错，但功能不起作用。

xlj310 · 发表于 2013-5-25 08:04:04

沙发让你自己占了，哈哈！至少你那些字符串Au3是不认识的！不如将常量赋值到Au3里，会好些！

smooth · 发表于 2013-5-25 10:47:07

回复 3# xlj310

不如将常量赋值到Au3里

请问怎么弄呢？谢谢！

xlj310 · 发表于 2013-5-25 10:51:31

selection貌似不能直接用在Au3里，最近我也在操作excel
用到selection的地方，还是用Range代替吧！

smooth · 发表于 2013-5-25 12:45:15

本帖最后由 smooth 于 2013-5-25 12:46 编辑

selection貌似不能直接用在Au3里，最近我也在操作excel
用到selection的地方，还是用Range代替吧！
xlj310 发表于 2013-5-25 10:51

你不是说那几个字符AU3不能识别吗？我用Range（）替代selection，也是一样不行的。

xlj310 · 发表于 2013-5-25 15:31:31

xlRight=-4152
xlCenter=-4108
xlContext=-5002
你把上面这几个字符串用上面的数字代替试一下。
另外我前面说错了一句，Selection在Au3里面是可以用的，我今天自己也在做一个Excel宏转换成Au3的脚本，现在进展还算顺利，有很多问题都在网上找到了答案！
你不妨把你的问题说清楚一点，我有时间帮你转换一下!

smooth · 发表于 2013-5-26 17:57:17

回复 7# xlj310

好的，多谢指点！我有时间测试一下。

smooth · 发表于 2013-5-27 20:45:47

我知道问题的所在了，xlRight，xlCenter，xlContext……，这些属于宏常量，在宏里可以运行，但是到了AU3是无法识别的，包括放入VB也是无法识别的，唯一的办法将它们代表的常量数值找出来。如xlRight=-4152，xlCenter=-4108，xlContext=-5002。那怎么知道这些常量代表的数值呢？方法是：新建一段宏，写入形如：Range("C1").Value = xlContinuous，这样将在C1单元格，显示1，表示常量xlContinuous代表的数值为1，其他常量就以此类推了。

kk_lee69 · 发表于 2013-5-27 20:51:43

正解.........寫久了就知道問題在哪

hzxymkb · 发表于 2013-5-28 00:00:57

真不知道宏的使用！

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

[AU3基础] 请教各位如何将EXCEL宏代码写成AU3？

相关帖子