12
返回列表 上一主題 發帖

[發問] Userform將資料分類後key入工作簿裡各位置

lifedidi

帖子
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

TOP

        靜思自在 : 不要隨心所欲，要隨心教育自己。
12
返回列表 上一主題