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點還刪了我的回文
你他喵的 知識+ 到底是在幹洨
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.249.56.240
※ 文章網址: http://www.ptt.cc/bbs/ask/M.1402070806.A.98C.html
→
06/07 00:09, , 1F
06/07 00:09, 1F
推
06/07 00:09, , 2F
06/07 00:09, 2F
→
06/07 00:11, , 3F
06/07 00:11, 3F
→
06/07 00:11, , 4F
06/07 00:11, 4F
→
06/07 00:11, , 5F
06/07 00:11, 5F
→
06/07 00:12, , 6F
06/07 00:12, 6F
→
06/07 00:15, , 7F
06/07 00:15, 7F
→
06/07 00:18, , 8F
06/07 00:18, 8F
→
06/07 02:28, , 9F
06/07 02:28, 9F
→
06/07 03:32, , 10F
06/07 03:32, 10F
→
06/07 15:24, , 11F
06/07 15:24, 11F