返回列表 上一主題 發帖

小問題請高手幫忙看一下!!

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2016-1-8 07:55 | 顯示全部帖子
回復 1# samneng
[一]
Private Sub CommandButton1_Click()
{1}
'宣告 a = 表單的ITEM
Set myRange = Range("工作交接事項").Columns(1).Find(a, lookat:=xlWhole)
a = UserForm3.ITEM.Text
修改成
'宣告 a = 表單的ITEM
a = UserForm3.ITEM.Text
Set myRange = Range("工作交接事項").Columns(1).Find(a, lookat:=xlWhole)
{2}
If Cells(2, 1) > ITEM.Value Then
修改成
If Not Rng Is Nothing Then

[二]
{1}
Private Sub CommandButton1_Click()
        LotNo.Value = "" '更改LotNo為未選擇狀態
{2}
Private Sub CommandButton3_Click()
    ITEM.Value = "" '更改LotNo為未選擇狀態
將它們移除，因為
    If MsgBox("確認是否需修改", vbQuestion + vbYesNo, "詢問") = vbYes Then
         nrow = Worksheets("工作交接事項").Range("A2:A65536").Find(ITEM.Value, lookat:=xlWhole).Row
    Else
         nrow = Worksheets("工作交接事項").Columns(6).Find(LotNo.Value, lookat:=xlWhole).Row
    End If
有語病。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2016-1-8 09:16 | 顯示全部帖子
回復 4# samneng
先請教你一個疑問 (在不去思考你程式下)，為何有兩個修正選紐？

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2016-1-8 19:57 | 顯示全部帖子
本帖最後由 c_c_lai 於 2016-1-9 08:58 編輯

回復 6# samneng
我只幫你略微修改了 ITEM 以及 LOT 的搜尋處理，
程式規劃一定要明確，流程分明。附上程式碼：
  1. Private Sub CommandButton1_Click()     '  篩選條件
  2.     Dim a As String, myRange As Range  '  宣告變數

  4.     a = ITEM.Text                  '  UserForm3
  5.     If a = "" Then Exit Sub

  7.     With Sheets("工作交接事項")
  8.         '  宣告 a = 表單的 ITEM
  9.          Set myRange = .Columns(1).Find(a, lookat:=xlWhole)
  10.    
  11.         If Not myRange Is Nothing Then
  12.             '  顯示全部資料的多重篩選
  13.             .AutoFilterMode = False
  14.             '  設定ITEM為搜尋條件
  15.             If a <> "" Then .Range("A1").AutoFilter Field:=1, Criteria1:=a
  16.         
  17.             反應日期.Value = .Cells(myRange.Row, "B")      '  反應日期
  18.             反應人員.Value = .Cells(myRange.Row, "C")      '  反應人員
  19.             機台.Value = .Cells(myRange.Row, "D")          '  機台
  20.             Recipe.Value = .Cells(myRange.Row, "E")        '  Recipe
  21.             Lot.Value = .Cells(myRange.Row, "F")           '  Lot No.
  22.             異常簡碼.Value = .Cells(myRange.Row, "G")      '  異常簡碼
  23.             異常問題描述.Value = .Cells(myRange.Row, "H")  '  異常問題描述
  24.             處置狀況.Value = .Cells(myRange.Row, "I")      '  處置狀況
  25.         Else
  26.             MsgBox "無找到相符合 ITEM 條件的紀錄!", vbExclamation, "錯誤"
  27.         End If
  28.         
  29.         '  關閉前將控制項中內容刪除
  30.         Owner.Value = ""
  31.         回覆時間.Value = ""
  32.         回覆結果.Value = ""
  33.         回覆附件.Value = ""
  34.         備註.Value = ""
  35.     End With
  36. End Sub
複製代碼
以及
  1. Private Sub CommandButton3_Click()     '  篩選條件
  2.     Dim a As String, myRange As Range  '  宣告變數

  4.     a = LotNo.Text                 '  UserForm3
  5.     If a = "" Then Exit Sub

  7.     With Sheets("工作交接事項")
  8.         '  宣告 a = 表單的 LotNo

  10.         Set myRange = .Columns(6).Find(a, lookat:=xlWhole)
  11.    
  12.         If Not myRange Is Nothing Then
  13.             '  顯示全部資料的多重篩選
  14.             .AutoFilterMode = False
  15.             '  設定ITEM為搜尋條件
  16.             If a <> "" Then .Range("A1").AutoFilter Field:=6, Criteria1:=a
  17.         
  18.             ITEM.Value = .Cells(myRange.Row, "A")          '  ITEM No.
  19.             反應日期.Value = .Cells(myRange.Row, "B")      '  反應日期
  20.             反應人員.Value = .Cells(myRange.Row, "C")      '  反應人員
  21.             機台.Value = .Cells(myRange.Row, "D")          '  機台
  22.             Recipe.Value = .Cells(myRange.Row, "E")        '  Recipe
  23.             Lot.Value = .Cells(myRange.Row, "F")            '  Lot No.
  24.             異常簡碼.Value = .Cells(myRange.Row, "G")      '  異常簡碼
  25.             異常問題描述.Value = .Cells(myRange.Row, "H")  '  異常問題描述
  26.             處置狀況.Value = .Cells(myRange.Row, "I")      '  處置狀況
  27.         Else
  28.             MsgBox "無找到相符合 LOT 條件的紀錄!", vbExclamation, "錯誤"
  29.         End If
  30.         
  31.         '  關閉前將控制項中內容刪除
  32.         Owner.Value = ""
  33.         回覆時間.Value = ""
  34.         回覆結果.Value = ""
  35.         回覆附件.Value = ""
  36.         備註.Value = ""
  37.     End With
  38. End Sub
複製代碼
至於你所謂之新增，我實在不知你的企圖。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2016-1-9 10:13 | 顯示全部帖子
回復 6# samneng
將新增部分附上：
  1. Private Sub CommandButton2_Click()
  2.     Dim myRange As Range

  4.     '  判斷資訊是否輸入完整
  5.     If Owner.Value = "" Or 回覆時間.Value = "" Or 回覆結果.Value = "" Or 回覆附件.Value = "" Or 備註.Value = "" Then
  6.         MsgBox "資訊輸入不完整，請重新輸入!", vbExclamation, "錯誤提示"
  7.         Exit Sub       '  輸入不完整，退出執行程式
  8.     End If
  9.    
  10.     With Sheets("工作交接事項")
  11.         If MsgBox("確認是否需修改", vbQuestion + vbYesNo, "詢問") = vbYes Then
  12.             Set myRange = .Columns(6).Find(Lot.Value, lookat:=xlWhole)

  14.             If .Cells(myRange.Row, 16) = "已結案" Then
  15.                 MsgBox "該工作交接已結案" & vbCrLf & "無法再次新增紀錄"
  16.             Else
  17.                 .Cells(myRange.Row, 11) = Owner.Text
  18.                 .Cells(myRange.Row, 12) = 回覆時間.Text
  19.                 .Cells(myRange.Row, 13) = 回覆結果.Text
  20.                 .Cells(myRange.Row, 14) = 回覆附件.Text
  21.                 .Cells(myRange.Row, 15) = 備註.Text
  22.                 .Cells(myRange.Row, 16) = IIf(CheckBox1 = True, "已結案", "未結案")
  23.             End If
  24.             
  25.             '  將內容寫入工作表後，將控制項中內容刪除
  26.             Owner.Value = ""
  27.             回覆時間.Value = ""
  28.             回覆結果.Value = ""
  29.             回覆附件.Value = ""
  30.             備註.Value = ""
  31.             CheckBox1 = False
  32.         End If
  33.     End With
  34. End Sub
複製代碼
供你參考。

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題