Office中国论坛/Access中国论坛

标题: 请教个单元格指定输入问题（在线等） [打印本页]

作者: crisliu 时间: 2009-2-20 17:10
标题: 请教个单元格指定输入问题（在线等）
大家好，我想请教个问题。看看下面的表格
[attach]35495[/attach]
这是一个1-49号码的表格。在其右下角有个单号输入，我想在单号输入右边的格子中输入数据，比如：在格子中输入05200，数据则会在与5号对应的B6单元格中输入200，其他的也一样，如输入261000，则会在与26号对应的E3单元格中输入1000，即前2位数是号码对应的单元格，后面是输入的金额。小弟不会代码，能帮下小弟吗？

[attach]35496[/attach]

作者: crisliu 时间: 2009-2-20 18:53
没人路过吗

作者: ACMAIN_CHM 时间: 2009-2-20 20:40
给你个思路如下，在个SHEET的CHANGE事件中响应，
先对target的地址判断一下是不是你的 "格子中输入05200"的格子。
然后利用left(),得到序号 05 ,再对这个数计算出对应行和列。>=25后列号，行号。
再用MID得到值赋给对应CELL
具体解释和说明例子请在EXCEL的帮助中查找。如仍有问题，请参见ACMAIN - Access论坛回贴准则（个人）.

Private Sub Worksheet_Change(ByVal Target as Range)
if target.address="$D$10" then
ActiveSheet.cells(left(target.cells(1,1).value,2),2).value = mid("05200",3,2)
end if

End Sub

******************
* 一切皆有可能 *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: crisliu 时间: 2009-2-21 19:21

给你个思路如下，在个SHEET的CHANGE事件中响应，
先对target的地址判断一下是不是你的 "格子中输入05200"的格子。
然后利用left(),得到序号 05 ,再对这个数计算出对应行和列。>=25后列号，行号。
再用MID得到值赋 ...
ACMAIN_CHM 发表于 2009-2-20 20:40

谢谢你的帮忙，但是有个问题就是小弟我一点都不会代码怎么办呀，能帮小弟解决下吗

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