带你入门VBA，第二讲

风中筱竹

以前录制好宏后,总想加一个选择提示框,无奈不知如何入手，跟老师学了两天后终于可以写上这么一段简单的代码了，谢谢老师！[em17][em23][em24]

Sub 矩形5_单击() Dim ans As Integer ans = MsgBox("是否在C1中输入数字100？", 4 + 32, "请选择") If ans = 7 Then Exit Sub Range("C1") = 100 End Sub

yuwd3

以下是引用兰色幻想在2004-10-5 15:52:00的发言：

如选取Sheet1第一行有内容单元格区域（假设A1不为空）:

sheets("sheet1").range("a1",range("a1"）.end(xltoright)).select

看到在VBA中选择区域都用","表示，而在EXCEL中用“：”，请问如何在VBA中选择两个不连续的区域？

兰色幻想

以下是引用yuwd3在2004-10-17 6:43:00的发言： 看到在VBA中选择区域都用","表示，而在EXCEL中用“：”，请问如何在VBA中选择两个不连续的区域？

Range("A1:A9,C7:C17").Select

yuwd3

谢谢！再问个问题，如果有变量时如何选中不连续区域？如：

x=1，如何选中

Range(cells(x,1),cells(x+1,3))和Range(cells(x+3,5),cells(x+4,6))两个区域。

兰色幻想

以下是引用yuwd3在2004-10-18 6:56:00的发言：

谢谢！再问个问题，如果有变量时如何选中不连续区域？如：

x=1，如何选中

Range(cells(x,1),cells(x+1,3))和Range(cells(x+3,5),cells(x+4,6))两个区域。

这个有点复杂：

下面是选取A1：A10和C1：C10的区域

I = 1 J = 10 Range("A" & I & ":A" & J & ",C" & I & ":C" & J).Select

ZPX

请问“先锋 ”

你学得好快呀？

有啥好办法？

我第一讲还行。

第二讲学起来很困难。

[此贴子已经被作者于2004-10-18 18:35:13编辑过]

ZPX

给“兰色幻想 ”提个建议

对新内容应象第一讲那样拥逐句讲解，照顾一下没基础的人。不要讲得太快，否则就有违初终了，不会的人还是学不会。

比如：

Sub 矩形4_单击() For i = 1 To Range("B65536").End(xlUp).Row If Cells(i, 2) > 106 Then K = K + 1 End If Next MsgBox "大于106数值个数有" & K & "个", 1 + 64, "统计信息" End Sub

最好在每条语句后面注明。

[此贴子已经被作者于2004-10-18 18:36:51编辑过]

风中筱竹

Border	边框的颜色。
Borders	四条边框的颜色。如果四条边框使用的不是同一种颜色则返回 Null

border和borders有何区别?具体怎么用能举例说明吗?

兰色幻想

以下是引用风中筱竹在2004-10-19 21:32:00的发言：

Border	边框的颜色。
Borders	四条边框的颜色。如果四条边框使用的不是同一种颜色则返回 Null

border和borders有何区别?具体怎么用能举例说明吗?

Border指的边框是一个不可拆分的整体边框，如图形、图表边框只能设置全部，而Borders指的是可拆分的边框，如单元格四条边可分别设置不同的颜色。

hanetyb

太好了,学完了.