- 帖子
- 104
- 主題
- 32
- 精華
- 0
- 積分
- 144
- 點名
- 0
- 作業系統
- windowsXP
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-2-25
- 最後登錄
- 2022-9-2
|
2#
發表於 2013-6-21 11:08
| 只看該作者
本帖最後由 lifedidi 於 2013-6-21 11:10 編輯
回復 1# lifedidi
大大好！
小弟自己弄了一些程式碼，但是卡在無法設定找出當列最後一個值然後貼上，
請指教，
 耗材進出簿20130621.rar (734.33 KB)
這樣的寫法不知道可不可行，如果OK
在名為"新增資料"的userform裡
紅色為我設定在第五列將資料copy上，實際上應要為當列資料最後一筆offset1欄後copy上。
尋找條件為"爐號"以及"型號(規格)"，這兩筆資料為耗材裡獨一無二的資料，所以做為尋找依據，
Private Sub CommandButton1_Click()
'
略過
'
Set 爐號 = Cells.Find(What:=爐號1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
With Sheet1
If Not (爐號 Is Nothing) Then
If 爐號.Offset(-2, 0) = 規格1 Then
i = 5
爐號.Offset(-9, i) = 新增資料.專案編號
爐號.Offset(-8, i) = 新增資料.製造傳票編號
爐號.Offset(-7, i) = 新增資料.領料重1
爐號.Offset(-6, i) = 新增資料.領料時間1
爐號.Offset(-5, i) = 新增資料.TextBox1
爐號.Offset(-4, i) = 新增資料.退料重1
爐號.Offset(-3, i) = 新增資料.退料時間1
爐號.Offset(-2, i) = 新增資料.TextBox1
爐號.Offset(-1, i) = 新增資料.真實姓名
爐號.Offset(0, i) = 新增資料.真實編號
Else
MsgBox "僅爐號相同"
Exit Sub
End If
Else
MsgBox "無對應資料"
Exit Sub
End If
End With
'
略過
'
End Sub |
|
