带你入门VBA系列之：不懂的代码快点贴过来

opiona

QUOTE:

以下是引用pyglz在2006-6-25 12:11:42的发言：

如何编制打印区域VBA代码.请指教,谢谢!

自己录制一个宏，自然就明白啦！！

chenyj

如何用VBA将A1:A20中的文本格式转换为F1:F20的格式

请教兰老师

[em20] yO6GYZkK.rar (1.66 KB, 下载次数: 11)

2006-6-27 17:09 上传

点击文件名下载附件

[此贴子已经被作者于2006-6-27 17:09:19编辑过]

excelHelper

麻烦老师解释一下这条语句好吗？谢谢c.Add arr2(i, 2), "x" & arr2(i, 1)

顺便问一下，既然定义了数组arr1,arr2,为什么不这样表示arr1(),arr2()，这种方法哪种表示好一点

Sub Macro1()
Dim arr1, arr2, c As New Collection, i As Long

   arr1 = Sheets("Sheet1").UsedRange
   arr2 = Sheets("Sheet2").UsedRange
   For i = 1 To UBound(arr2, 1)
   c.Add arr2(i, 2), "x" & arr2(i, 1)
   Next
   On Error Resume Next
      For i = 1 To UBound(arr1, 1)
      If Not IsNull(c("x" & arr1(i, 1))) Then arr1(i, 1) = c("x" & arr1(i, 1))
      'If IsNumeric(arr1(i, 1)) Then arr1(i, 1) = ""
   Next
   Sheets("Sheet3").Select
   Range("a1").Resize(UBound(arr1, 1), UBound(arr1, 2)) = arr1
   MsgBox "ok"
End Sub

烟雨任平生

老师有时间帮我解决一下我的问题吗?

[此贴子已经被作者于2006-6-28 12:59:58编辑过]

malking

workbooks("xxx").close savechange:=False

产生的作用等同于

workbooks("xxx").close savechange=True ？？

请问“：＝”同“＝”的区别，谢谢！

详见:http://club.excelhome.net/viewthread.php?tid=174477&px=0

[此贴子已经被清风_ll于2006-6-29 9:54:03编辑过]

Go-ahead

 Application.ScreenUpdating = False

这个什么意思?

Go-ahead

Application.ScreenUpdating=False '关闭屏幕刷新
   Application.ScreenUpdating=True '打开屏幕刷新

nawong

QUOTE:

以下是引用chenyj在2006-6-27 17:07:58的发言：

如何用VBA将A1:A20中的文本格式转换为F1:F20的格式

请教兰老师

[em20]

Sub nawong()
Range("A:A").NumberFormatLocal =  "G/通用格式"
Range("A:A").Value = Range("A:A").Value
End Sub

liyigui

$B$1,我經常看到EXCEL裡有這樣的東西，但如果用函數怎麼也弄不出來，是怎麼回事啊？

這又代表什麼意思啊？

請老師指教，msn白天8小時在線待等！

liyigui1982@hotmail.com