½Ð°Ý§Ú¶×¤J¸ê®Æ®É

john711101

§Ú¶×¤J¸ê®Æ®É·Q­n¥ýÅý¥L¿z¿ï¤§«e¸ê®Æ¦³µL¶×¤J¹L,¨S¦³ªº¸Ü´N¶×¤J,¦³ªº¸Ü´N¸õ¥X´£¥Üµøµ¡,

¥H¤U§Úªº»yªk

Private Sub CB1_Click()
If [A1] = "" Then
   MsgBox ("±ø½X¨S¨ê!")
Else
  If [A2] = "" Then
     MsgBox ("±ø½X!§Ñ¤F¨ê?")
  Else
     If [A3] = "" Then
        MsgBox ("§A­þ¦ì?")
     Else
       If [B11] = "" Then
          MsgBox ("§A§Ñ¤F«ö!")
       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