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

chen7806

以下是引用[I]chen7806[/I]在2006-6-8 13:01:06的发言：

我的一个问题,如何复制过去的数字不带格式.比如:

Private Sub CommandButton1_Click()
h = Sheets("sheet2").Range("A65536").End(xlUp).Row + 1
Range("d1:f2").Copy Worksheets("sheet2").Range("A" & h)
End Sub

d1:f2我设有公式,但复到2表以后,公式也一同过去了,我不想公式复制过去,应该使用什么样的属性.

..........................以下为解释............................................ Range("d1:f2").Copy Worksheets("sheet2").Range("A" & h) 可以改为 Worksheets("sheet2").Range("A" & h)=Range("d1:f2").VALUE 用等号赋值的方法也可以达到复制的效果

老师好, 我按照你的做法,公式确实没有了,但复制过去的只是第一个单元格,其他的单元格不会过去. *****************说明*********************** 如果是一个区域复制，要求两个区域大小相等才能全部复制，所以Worksheets("sheet2").Range("A" & h)须要修改为一个和Range("d1:f2")同样大小的区域

[此贴子已经被兰色幻想于2006-6-9 12:15:17编辑过]

mmsz_luwei

感谢。。。楼主

yuhongpu

CSTR()是什么意思 以下引自帮肋文件: CStr 返回值 如果 expression 是CStr 返回 Boolean 含有 True或 False 的字符串 Date 含有系统中短日期格式日期的字符串 Null 一个运行时错误 Empty 一个零长度字符串 ("") Error 包含单词 Error 以及错误号的字符串 其他数值 含有数值的字符串

[此贴子已经被兰色幻想于2006-6-9 18:06:22编辑过]

yuhongpu

If UBound(Split(UCase(fileopen), UCase(ThisWorkbook.Path) & "\POTO\")) = 1

是什么意思

UBound和ucase是什么意思

在VBE窗体，鼠标定位在相关词汇中，按F1键吧。

[此贴子已经被plxmm于2006-6-10 11:14:28编辑过]

andysky

请问红色文字是什么意思？ Private Sub UserForm_Activate() Dim rng As Range Dim i As Integer With ListView1 .Gridlines = True '显示表格线 LabelEdit = lvwManual 'LabelEdit的值确定是否可以编辑在 ListView 控件中的 ListItem 对象的标签。当为lvwManual 时手动的。BeforeLabelEdit 事件只发生在调用 StartLabelEdit 方法时。 .FullRowSelect = True '可以整行选取 .GetFirstVisible 'ListView 控件可包含的 ListItem 对象数目比在其内部区域中可视的 ListItem 对象数目多。可以使用由 GetFirstVisible 方法返回的引用决定在列表或在报表视图中的第一个可视的 ListItem 对象。 .FlatScrollBar = True '设置滚动条的外观 .FullRowSelect = True .View = lvwReport '样式为报表格式 With .ColumnHeaders .Add Text:="编号", Width:=ListView1.Width / 4 .Add Text:="名称", Width:=ListView1.Width / 4 .Add Text:="规格", Width:=ListView1.Width / 4 .Add Text:="颜色", Width:=ListView1.Width / 4 End With Set rng = Range("A2:D12") For i = 1 To rng.Rows.Count With .ListItems.Add(Text:=rng.Cells(i, 1) '在ListView控件中添加新的记录,标签(第1列标题)为rng.Cells(i, 1) 的值 .SubItems(1) = rng.Cells(i, 2) '设置ListView控件第2列内容 .SubItems(2) = rng.Cells(i, 3) '设置ListView控件第3列内容 .SubItems(3) = rng.Cells(i, 4) '设置ListView控件第4列内容 End With Next Set rng = Nothing End With End Sub

[此贴子已经被兰色幻想于2006-6-10 12:58:52编辑过]

Amas

[求助] 这是给当前活动单元格着色的代码，烦请楼主帮助注释 Private Sub Worksheet_SelectionChange(ByVal Target As Range) With ActiveCell r = .Row '取得活动单元格的所在行数 If .Column > 2 And .Column < 9 And .Row > 5 And .Row < 12 And .Interior.ColorIndex = xlNone Then '限定活动单元格在第3～8列，且所在行为：6～11，单元格无底色 Application.EnableEvents = False '关闭对象启用事件 Sheet3.Unprotect (2103136) '对Sheet3工作表解除保护 Range("IN_记录").Interior.ColorIndex = xlNone '名称为IN_记录的单元格范围，无底色 Range(Cells(r, 3), Cells(r, 8)).Interior.ColorIndex = 19 '被选中的所在行设置的第3～8列单元格底色为19号色 End If End With End Sub 这是效果图：http://club.excelhome.net/showimg.asp?BoardID=5&filename=2005-3/2005318105617138.jpg 谢谢 plmm 的帮助～！

[此贴子已经被作者于2006-6-10 17:55:00编辑过]

djmzjz

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%
If Not Target.Address Like "$[CEFGHI]$*" Then Exit Sub
i = Target.Row
If Application.CountA(Cells(i, 1), Range(Cells(i, 3), Cells(i, 7))) <> 0 Then
Cells(i, 5).FormulaR1C1 = "=单价"
Cells(i, 5) = Cells(i, 5).Value
Cells(i, 7).FormulaR1C1 = "=收入"
Cells(i, 7) = Cells(i, 7).Value
Cells(i, 9).FormulaR1C1 = "=油料"
Cells(i, 9) = Cells(i, 9).Value
Cells(i, 12).FormulaR1C1 = "=工资"
Cells(i, 12) = Cells(i, 12).Value
Cells(i, 14).FormulaR1C1 = "=营业税"
Cells(i, 14) = Cells(i, 14).Value
Cells(i, 16).FormulaR1C1 = "=成本合计"
Cells(i, 16) = Cells(i, 16).Value
Cells(i, 17).FormulaR1C1 = "=利润"
Cells(i, 17) = Cells(i, 17).Value
End If
End Sub

兰老师,上面的代码是过去别上帮我写的,但过去只是在一列里求数,现在我在过去的基础上增加了很多列,在运行的时候,CPU总是100%,根本无法得到结果,最后只好结束任务,请帮助改一下代码,使其运行快点,另外红色部份我不知道是什么意思,请帮助解释一下.谢谢!

楼主能否传个附件上来，我总感觉代码太麻烦了。

[此贴子已经被兰色幻想于2006-6-10 12:42:43编辑过]

qee用

38楼少了禁再次触发事件句,应当是CPU100%的原因.

shewoyu

Sub Auto_Open()

Worksheets("查询").Range("h1").Value = Time

Application.OnTime Time + TimeSerial(0, 0, 1), "Auto_Open"

End Sub

这是一个时间自动刷新的代码，但这个代码套上去以后，出现关闭后又会自动打开，然后再关闭就行了。不知里面错在哪里？请大师帮忙看一下！谢谢！

兰色幻想： 在我这里没有出现你说的情况

[此贴子已经被兰色幻想于2006-6-10 16:34:27编辑过]

qee用

40楼:加一个过程抵消:
Sub Auto_Close()
On Error Resume Next
Application.OnTime Time + TimeSerial(0, 0, 1), "Auto_Open", , False
End Sub