Snasui Excel Forum

Code: Select all

Private Sub ComboBox1_Change()
    If Combobox1.Value = "àÊ×éÍᢹÊÑé¹(Short Shirt)" Then
        Combobox2.RowSource = "DATA!G2:G8"
        Else
        Combobox2.Value = ""
        TextBox4.Value = ""
    End If
    If Combobox1.Value = "àÊ×éÍᢹÂÒÇ(Long Shirt)" Then
        Combobox2.RowSource = "DATA!G2:G8"
        Else
        Combobox2.Value = ""
        TextBox4.Value = ""
    End If
    If Combobox1.Value = "¡Ò§à¡§(Trousere)" Then
        Combobox2.RowSource = "DATA!H2:H24"
    Else
        Combobox2.Value = ""
        TextBox4.Value = ""
    End If
    If Combobox1.Value <> "" Then
        myStr = TextBox3.Value & vbCrLf & "" & Combobox1.Value
        TextBox3.Value = myStr
    End If
End Sub

Private Sub ComboBox2_Change()
    If Combobox1.Text <> "" Then myStr = TextBox3.Value
    If Combobox2.Value <> "" Then myStr = myStr & vbCrLf & "ä«Êì " & Combobox2.Text
    If TextBox4.Text <> "" Then myStr = myStr
    TextBox3.Text = myStr
End Sub
Private Sub TextBox4_Change()
    If Combobox1.Text <> "" Then myStr = TextBox3.Value
    If Combobox2.Value <> "" Then myStr = TextBox3.Value
    If TextBox4.Text <> "" Then myStr = myStr & vbCrLf & "¨Ó¹Ç¹ " & TextBox4.Text
    TextBox3.Text = myStr
End Sub

Code: Select all

'Add
Private Sub CommandButton1_Click()
 If Combobox1.Value <> vbNullString And Combobox2.Value <> vbNullString And TextBox4.Value <> vbNullString Then
TextBox3.Text = Combobox1.Value & vbCrLf & "ไซส์ " & Combobox2.Value & vbCrLf & "จำนวน " & TextBox4.Text
    Else
        MsgBox ("กรุณาป้อนข้อมูลให้ครบ")
    End If
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    If Combobox1.Value <> vbNullString And Combobox2.Value <> vbNullString And TextBox4.Value <> vbNullString Then
        TextBox3.Text = IIf(TextBox3.Text = "", TextBox3.Text, TextBox3.Text & vbCrLf) & _
            Combobox1.Value & vbCrLf & "ไซส์ " & Combobox2.Value & vbCrLf & "จำนวน " & TextBox4.Text
    Else
        MsgBox ("กรุณาป้อนข้อมูลให้ครบ")
    End If
End Sub

Code: Select all

'Save
Private Sub btsave_Click()
On Error Resume Next
Dim emptyRow As Integer
Dim strTb1 As Variant
Dim strTb3 As Variant
emptyRow = WorksheetFunction.Count("A3:A10000") + 1
If emptyRow = 0 Then
    emptyRow = 2
Else
   emptyRow = emptyRow + 2
   Sheet9.Activate
   strTb1 = Split(TextBox1.Text, vbCrLf)
  strTb3 = Split(TextBox3.Text, vbCrLf)
  Cells(emptyRow, 1).Value = VBA.Mid(strTb1(0), InStr(strTb1(0), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 2).Value = VBA.Mid(strTb1(1), InStr(strTb1(1), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 3).Value = VBA.Mid(strTb1(2), InStr(strTb1(2), ":") + 1) 'TextBox1.Value
Cells(emptyRow, 4).Value = VBA.Mid(strTb1(3), InStr(strTb1(3), ":") + 1) 'TextBox1.Value
   Cells(emptyRow, 6).Value = strTb3(1) & "," & strTb3(2) & "," & strTb3(3) & vbCrLf & strTb3(4) & "," & strTb3(5) & "," & strTb3(6) 'TextBox3.Value
   Cells(emptyRow, 7).Value = VBA.Mid(strTb3(7), InStr(strTb3(7), ":") + 1) & "," & VBA.Mid(strTb3(8), InStr(strTb3(8), ":") + 1) 'TextBox1.Value
  Cells(emptyRow, 5).Value = comday.Value & "/" & commonth.Value & "/" & comyear.Value
   MsgBox "บันทึกข้อมูลสำเร็จ"
     Unload Me
     Sheet1.Activate
End If
End Sub