菜鸟谈VBA最最基础入门《原创》

可乐可可

谢谢楼主分享。

可乐可可

谢谢楼主分享啊。

wangxl_9810

谢谢楼主分享，学习中！

其中

好资料，我正需要，谢谢

huguyue619

Private Sub TextBox2_Change()
Dim i As Long
Dim j As Long
For i = 2 To 100 Step 1
    For j = 2 To 100 Step 1
     If Cells(i, j).Value <> "" And Cells(i + 1, j).Value = "" Then
     Cells(i + 1, j).Value = Cells(i, j).Value
     End If
    Next j
Next i
     
     
End Sub
实现目标,将上一行非空的值赋给下一行空的值

jxdxtc

谢谢分享，收下慢慢学习

ggsmart

RANGE() 的形式我第一次见到,不大理解.--------------要表示A1：B10单元格用range形式是：range("a1:b10")，中间的参数是一个字符串。对它的理解我感觉有点像工作表函数里的indirect。

Range("B3:C" & row1)是不是说范围在从B3到C列,行数是从3到row1------row1在上文被定义为long变量，且已赋值，比如row1=100则："B3:C" & row1="B3:C100"，即：range("B3:B100")，表示B3:B100单元格区域。

如果是B3 到B列第row1行,是不是可以写成Range("B3" & row1), ----------比如row1=100,那B3到B列的第一百行常规的表示方法为：B3：B100，所以用range的形式也是这样，所以应该表示为：range("B3:B" & row1)

如果有几个区域,如B3:C4, E5:F6, 怎么样把它们表示在一个RANGE()里面 -------------感觉要用union，union(range("b3:c4"),range("e5;f6"))     424楼的朋友说的Range("B3:C4" ,"E5:F6")，就该表示的是range("b3:f6"),不是两个区域。

什么时候用&符号? --------------&是文本连接版本号，跟工作表里的一样，当你需要连接两个字符串为一个字符地就会用到它。

[ 本帖最后由 ggsmart 于 2009-9-10 13:40 编辑 ]

ggsmart

原帖由 SJTUBOB 于 2009-9-9 20:00 发表
这么改的理由是什么呢。。感觉和螳螂的代码是一个道理啊，为什么结果就不同啊。。纠结啊。。。

感觉好像螳螂兄的那个里面不是字符串的缘故吧，range的括号里是用字符串或字符串的变量。

[ 本帖最后由 ggsmart 于 2009-9-10 14:30 编辑 ]

ggsmart

原帖由 zznjcs 于 2009-9-9 21:51 发表
581410
终于完成了作业, 不容易呀.

不过我还有个问题: 楼主加上的计时器是如何工作的?

是的，是利用结束时间减开始时间计算出来的程序执行时间。用了timer函数。
关于它的具体意思，在代码窗口里将其抹黑，按F1即可查看相应的帮助。

[ 本帖最后由 ggsmart 于 2009-9-10 14:29 编辑 ]

ggsmart

原帖由 huguyue619 于 2009-9-10 09:54 发表
Private Sub TextBox2_Change()
Dim i As Long
Dim j As Long
For i = 2 To 100 Step 1
    For j = 2 To 100 Step 1
     If Cells(i, j).Value  "" And Cells(i + 1, j).Value = "" Then
     Cells(i + 1,  ...

貌似感觉没有什么问题。。。呵呵。。。。