(已解决)关于 [a65536].End(3).Row

huanghui-hunter · 发表于 2011-3-29 14:27

我是超级菜的菜鸟，询问下：For i = 1 To [a65536].End(3).Row 意思是单列的所有行号，那么如果只对10到100行进行定位编辑，代码如何写啊？

最终以分表解决

[ 本帖最后由 huanghui-hunter 于 2011-4-7 11:36 编辑 ]

dsmch · 发表于 2011-3-29 14:30

问题不清，理解不明。

huanghui-hunter · 发表于 2011-3-29 14:32

就是不需要对整个表的所有行号调用，只队部分行号调用

yaozong · 发表于 2011-3-29 14:36

For i = 10 To 100

dsmch · 发表于 2011-3-29 14:49

原帖由 huanghui-hunter 于 2011-3-29 14:32 发表
就是不需要对整个表的所有行号调用，只队部分行号调用

楼主的理解错误
[a65536].End(3).Row 指的是从a65536往上第一个非空单元格的行号。

huanghui-hunter · 发表于 2011-3-29 15:01

以下是原代码：
Private Sub cmdSave_Click()
On Error Resume Next
   Dim k As Byte
For k = 1 To 4
   Set Control = Controls(Split("ComboBox1.Text,ComboBox1,ComboBox2,ComboBox3,ComboBox4,", ",")(k - 1))
If Control.Value = "" Then
MsgBox Split("单位,,单据号,结算方式", ",")(k - 1) & "为空,请重新输入!", 48, "提示"
Control.SetFocus
Exit Sub
End If
Next
Set rg = Worksheets("收支表").Range("C:C").Find(ComboBox2.Text)
If Not rg Is Nothing Then
MsgBox "这个单据号已经存在！"
Exit Sub
End If

Worksheets("收支表").Activate
Myr = [a65536].End(xlUp).Row
n = Myr + 1
Cells(n, 1).Value =  ComboBox1.Text
Cells(n, 2).Value = ComboBox2.Text
Cells(n, 3).Value = ComboBox3.Text
Cells(n, 4).Value = ComboBox4.Text
      n = n + 1
  Call 清除控件
Application.ScreenUpdating = True
MsgBox "已录入!!", 64, "提示"
End Sub

我想询问的是 Myr = [a65536].End(xlUp).Row 这条代码，能限定为10-100行之间么？
代码怎么写呢。
因为是菜鸟，所以比较罗嗦，勤学好问，别介意啊

如果用4楼的代码，NEXT该放哪？

dsmch · 发表于 2011-3-29 15:03

理解一下含义，相信自己就能解决
msgbox [a65536].End(xlUp).Row

huanghui-hunter · 发表于 2011-3-29 15:11

菜鸟嘛，只明白是调用行号，我的表格是分段的，10~100，102~200。。。。。，每部分的行均有个分部表头，为了不覆盖，该怎么调用呢？

huanghui-hunter · 发表于 2011-3-29 15:29

表的基本格式是这样子的（附件），谁给帮个忙嘛。。。。

以下部分怎么改嘛。。。不想破坏表的基本格式，多建个表很麻烦滴
Worksheets("sheet1").Activate
Myr = [a65536].End(xlUp).Row
n = Myr + 1
Cells(n, 1).Value = ComboBox1.Text
Cells(n, 2).Value = ComboBox2.Text
Cells(n, 3).Value = ComboBox3.Text
Cells(n, 4).Value = ComboBox4.Text
n = n + 1

huanghui-hunter · 发表于 2011-3-29 16:10

有帮忙解决的没啊

		自动登录	找回密码
密码			免费注册

(已解决)关于 [a65536].End(3).Row

评分