请教个单元格指定输入问题（在线等）

crisliu

大家好，我想请教个问题。看看下面的表格

这是一个1-49号码的表格。在其右下角有个单号输入，我想在单号输入右边的格子中输入数据，比如：在格子中输入05200，数据则会在与5号对应的B6单元格中输入200，其他的也一样，如输入261000，则会在与26号对应的E3单元格中输入1000，即前2位数是号码对应的单元格，后面是输入的金额。小弟不会代码，能帮下小弟吗？

crisliu

没人路过吗

ACMAIN_CHM

给你个思路 如下，在个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

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

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