http://goo.gl/JH19vs
这是知识+里的一个问题
下列星号分隔线中的是我回答的内容 原文无增删
**************************************************************************
http://cht.tw/h/5ld0o
↑ 范例档案下载
应该就是你要的功能
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
If KeyCode = 13 Then
Set Barcode = Cells.Find(What:=TextBox1.Text, After:=ActiveCell,
LookAt:=xlWhole)
If Barcode Is Nothing Then
MsgBox "无此资料"
Exit Sub
End If
Barcode.Activate
ActiveCell.Offset(0, 1) = TextBox1.Text
TextBox1.Text = ""
End If
End Sub
***************************************************************************
这样的回答有何不妥
结果知识+ 扣了我50点还删了我的回文
你他喵的 知识+ 到底是在干洨

八卦是你跟姿势佳管理猿认真干嘛 = =

放弃吧 那里根本没得申诉

例如A跟B同时回答 A开几个分身去检举B B很快就掰了然后获得几个点数... 完全不知道可以干嘛 = =不然就是分身投票投自己 = = 满无聊的.....

知识+不就一堆智缺自high的地方?

里面一堆中二问感情问题 笑一笑不错

这是我第一次回答问题结果却是被秒删扣点 gy到不行

出现网址的话很容易被误杀，老问题了

奇摩拒绝浏览，你还在认真什么

奇摩自己也早就放弃知识+了~点数可以换现金吗?(茶)