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點還刪了我的回文
你他喵的 知識+ 到底是在幹洨
作者: QQ101 2014-06-07 00:11:00
例如A跟B同時回答 A開幾個分身去檢舉B B很快就掰了然後獲得幾個點數... 完全不知道可以幹嘛 = =不然就是分身投票投自己 = = 滿無聊的.....