Office中国论坛/Access中国论坛

标题: 向各高手求救解决办法？ [打印本页]

作者: HENRYNG 时间: 2007-5-27 19:46
标题: 向各高手求救解决办法？
向各高手求救解决办法：

本人想在表一单元格H4中添加由表二B列最大值的数再+1而产生的数，如何写好？

例如表二B列最大值为“31212”再+1即“31213”填入表一单元格H4中。

请详解，多谢！！！[em14]

作者: fjzjyan 时间: 2007-5-28 06:14
在表一H4单元格输入：“=MAX(表二!B1:B6)+1”即可。

作者: HENRYNG 时间: 2007-5-28 07:07
这个函数我知道,但如何用VBA写呢?请指教.[em07]

作者: fjzjyan 时间: 2007-5-28 18:12
按ALT+F11进入VBE界面,插入一个模块编写如下代码:

Sub aa()
Dim ws As Worksheet
Dim rg As Range
Set ws = Sheets("表二")
Set rg = ws.Range(ws.Cells(1, 2), ws.Cells(65536, 2).End(xlUp))
Sheets("表一").[H4] = Application.WorksheetFunction.Max(rg) + 1
End Sub

在表一按ALT+F8执行即可（见案例）。[attach]24665[/attach]

[此贴子已经被作者于2007-5-28 10:12:37编辑过]

作者: HENRYNG 时间: 2007-5-30 08:56
多谢fjzjyan[em01]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)