[已解决]请教EXCEL自定义函数，有没有用来清除指定单元格内容的？-已解决问题区-AUTOIT CN

smooth 发表于 2013-5-5 16:01:21

[已解决]请教EXCEL自定义函数，有没有用来清除指定单元格内容的？

本帖最后由 smooth 于 2013-5-10 09:18 编辑

请教EXCEL自定义函数，有没有用来清除指定单元格内容的？帮助里那几个函数我看了，都没有。谢谢！

kevinch 发表于 2013-5-5 16:40:27

range("a1").clearcontents 清格单元格
range("a1").clear 清除全部（内容、格式、边框等）

smooth 发表于 2013-5-5 16:44:56

回复 2# kevinch

非常感谢，请问这些用法在哪里可以找到，帮助里好像没有。

kevinch 发表于 2013-5-5 16:48:44

能分清方法，事件，属性，集合之类的后，可以到帮助文件的方法里去找

smooth 发表于 2013-5-5 19:05:03

回复 4# kevinch

所言极是，谢谢！

kk_lee69 发表于 2013-5-6 10:50:11

回复 5# smooth

還有個方法...請用EXCEL 錄製巨集然後操作你想操作的，然後停止錄製巨集，再去編輯你剛剛錄製的巨集，就可以看到剛剛錄製的東西，然後再稍微轉換一下就可以用在AU3上了，絕大部分的基礎操作用這個方法就可以知道了

smooth 发表于 2013-5-18 11:52:38

回复 6# kk_lee69
不好意思，请问什么叫錄製巨集？是录制宏么？

kk_lee69 发表于 2013-5-18 13:12:23

回复 7# smooth

恩就是宏................台灣叫做巨集

smooth 发表于 2013-5-18 13:20:16

回复 8# kk_lee69
OK，感谢台湾的兄弟啦！有不懂再请教你。

smooth 发表于 2013-5-18 16:04:56

回复 8# kk_lee69

兄弟，如何将下面这段宏代码，写成AU3格式？没这么玩过。
Sub 宏1()
'
' 宏1 宏
'

'
Columns("A:A").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Rows("1:13").Select
Selection.RowHeight = 17
Range("C2:D4").Select
Selection.NumberFormatLocal = "#,##0.00_ "
Range("F2:G4").Select
Selection.NumberFormatLocal = "#,##0.00_ "
Range("C6:D8").Select
Selection.NumberFormatLocal = "#,##0.00_ "
Range("F6:G8").Select
Selection.NumberFormatLocal = "#,##0.00_ "
Range("C10:D10").Select
Selection.NumberFormatLocal = "#,##0.00_ "
Range("F10:G10").Select
Selection.NumberFormatLocal = "#,##0.00_ "
Range("C12:D13").Select
Selection.NumberFormatLocal = "#,##0.00_ "
Range("F12:G13").Select
Selection.NumberFormatLocal = "#,##0.00_ "
Range("C5:D5").Select
Selection.NumberFormatLocal = "0.00%"
Range("F5:G5").Select
Selection.NumberFormatLocal = "0.00%"
Range("C9:D9").Select
Selection.NumberFormatLocal = "0.00%"
Range("F9:G9").Select
Selection.NumberFormatLocal = "0.00%"
Range("C11:D11").Select
Selection.NumberFormatLocal = "0.00%"
Range("F11:G11").Select
Selection.NumberFormatLocal = "0.00%"
Range("E2:E13").Select
Selection.NumberFormatLocal = "0.00%"
Range("H2:H13").Select
Selection.NumberFormatLocal = "0.00%"
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("D8").Select

   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
Range("D5").Select

End Sub

kk_lee69 发表于 2013-5-18 16:13:37

你這是設定格式畫線.......
這些都屬於基礎操作有個文章可以先寄住
http://www.autoitx.com/forum.php?mod=viewthread&tid=16616&highlight=EXCEL

另外我要說的意思是譬如你剛剛上面錄下的其中
Range("C9:D9").Select
Selection.NumberFormatLocal = "0.00%"

其實轉換成 AU3語法就變成
$oexcel.Range("C9:D9").NumberFormatLocal = "0.00%"

變成這樣的一行

至於怎麼便多看多練習重點是至少有方向可以測試

页: [1]

AUTOIT CN's Archiver

[已解决]请教EXCEL自定义函数，有没有用来清除指定单元格内容的？