標題: 請問我匯入資料時 [打印本頁]

---

作者: john711101    時間: 2015-4-20 09:26     標題: 請問我匯入資料時

我匯入資料時想要先讓他篩選之前資料有無匯入過,沒有的話就匯入,有的話就跳出提示視窗,

以下我的語法

Private Sub CB1_Click()
If [A1] = "" Then
   MsgBox ("條碼沒刷!")
Else
  If [A2] = "" Then
     MsgBox ("條碼!忘了刷?")
  Else
     If [A3] = "" Then
        MsgBox ("你哪位?")
     Else
       If [B11] = "" Then
          MsgBox ("你忘了按!")
       Else
         
    Dim iRow As Long
    iRow = ActiveSheet.Range("c65536").End(xlUp).Row

Dim AOAend As Integer
AOAend = Sheets("AOA").Columns(iRow).Find("*", , , , , xlPrevious).Row
Sheets("AOA").Cells(AOAend + 1, "c") = [b6]
Sheets("AOA").Cells(AOAend + 1, "F") = [b7]
Sheets("AOA").Cells(AOAend + 1, "e") = [b8]
Sheets("AOA").Cells(AOAend + 1, "I") = [b9]
Sheets("AOA").Cells(AOAend + 1, "K") = [b10]
Sheets("AOA").Cells(AOAend + 1, "j") = [B11]
Sheets("AOA").Cells(AOAend + 1, "A") = AOAend - 1

[A1] = ""
[A2] = ""
[A3] = ""
[B11] = ""

Com002_1.BackColor = &H8000000F
Com002_2.BackColor = &H8000000F
Com002_3.BackColor = &H8000000F
Com002_4.BackColor = &H8000000F
Com002_1.ForeColor = &H80000012
Com002_2.ForeColor = &H80000012
Com002_3.ForeColor = &H80000012
Com002_4.ForeColor = &H80000012


End If
End If
End If
End If
        End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)