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

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 .