Snasui Excel Forum

Code: Select all

Private Sub BTsearch_Click()
On Error Resume Next
'Err.Clear
Dim nRow As String
nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
If Err.Number = 91 Then

    TextBox2.Value = " "
        MsgBox "ไม่มีข้อมูล"
    End If
    TextBox2.Value = Cells(nRow, 2)
End Sub

Code: Select all

Private Sub BTsearch_Click()
    Dim txt As String
    On Error Resume Next
    'Err.Clear
    Dim nRow As String
    nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
    If Err.Number = 91 Then
        TextBox1.RowSource = "txtsearch.Text"
          MsgBox "ไม่มีข้อมูล"
    End If
    txt = Cells(nRow, 1) & vbCrLf & Cells(nRow, 3) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
    TextBox1.Value = txt
End Sub

Code: Select all

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        TextBox1.Value = "ชุดหดและเก่าตามสภาพ"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
        TextBox1.Value = "ชุดเปื่อยขาดเนื่องจากการซัก"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox3_Click()
    If CheckBox3.Value = True Then
        TextBox1.Value = "ชุดขาดตารอยตะเข็บ"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox4_Click()
    If CheckBox4.Value = True Then
        TextBox1.Value = "เดินทางไปทำงานต่างจังหวัด/ต่างประเทศ"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox5_Click()
    If CheckBox5.Value = True Then
        TextBox1.Value = "อื่นๆ"
    Else
        TextBox1.Value = ""
    End If
End Sub

Code: Select all

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        TextBox1.Value = "ชุดหดและเก่าตามสภาพ"
    Else[attachment=2]ชื่อ1.png[/attachment][attachment=1]ชื่อ2.png[/attachment]
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
        TextBox1.Value = "ชุดเปื่อยขาดเนื่องจากการซัก"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox3_Click()
    If CheckBox3.Value = True Then
        TextBox1.Value = "ชุดขาดตารอยตะเข็บ"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox4_Click()
    If CheckBox4.Value = True Then
        TextBox1.Value = "เดินทางไปทำงานต่างจังหวัด/ต่างประเทศ"
    Else
        TextBox1.Value = ""
    End If
End Sub
Private Sub CheckBox5_Click()
    If CheckBox5.Value = True Then
        TextBox1.Value = "อื่นๆ"
    Else
        TextBox1.Value = ""
    End If
End Sub

Code: Select all

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "ชุดหดและเก่าตามสภาพ"
'    Else
'        TextBox1.Value = ""
    End If
End Sub

Code: Select all

Private Sub btok_Click()
    strTb1 = Me.TextBox1.Value
    Unload Me
    UserForm2.Show
End Sub

Code: Select all

Private Sub UserForm_Initialize()
    Me.TextBox2.Value = strTb1
    Sheet6.Activate
End Sub

Code: Select all

Private Sub CheckBox1_Click()
Dim nRow As String
    nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
    If CheckBox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "ชุดหดและเก่าตามสภาพ"
Else
     If CheckBox1.Value = False Then
      TextBox1.Value = Cells(nRow, 1) & vbCrLf & Cells(nRow, 2) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
      Else
    
      End If
    End If
End Sub

Code: Select all

Private Sub combobox1_Change()
 Dim nRow As String
  nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
 If Combobox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "combobox1.Value"
    Else
        If TextBox1.Value = False Then
        TextBox1.Value = Cells(nRow, 1) & vbCrLf & Cells(nRow, 2) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
    End If
    End If
End Sub

Code: Select all

Private Sub CheckBox1_Click()
    Dim nRow As String
    nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
    If CheckBox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "ชุดหดและเก่าตามสภาพ"
    Else
        TextBox1.Value = Replace(TextBox1.Value, vbCrLf & "ชุดหดและเก่าตามสภาพ", "")
    End If
End Sub

Code: Select all

Dim nRow As String
  nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
 If Combobox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "combobox1.Value"
    Else
        If TextBox1.Value = False Then
        TextBox1.Value = Cells(nRow, 1) & vbCrLf & Cells(nRow, 2) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
    End If
    End If
End Sub

Code: Select all

Private Sub combobox1_Change()
 Dim nRow As String
  nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
 If Combobox1.Value = True Then
        TextBox1.Value = TextBox1.Value & vbCrLf & "combobox1.Value"
    Else
        If TextBox1.Value = False Then
        TextBox1.Value = Cells(nRow, 1) & vbCrLf & Cells(nRow, 2) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
    End If
    End If
End Sub

Code: Select all

Dim nRow As Integer
nRow = Sheet6.Columns(1).Find(txtsearch.Text).Row
If Combobox1.Value <> "" Then
        TextBox1.Value = TextBox1.Value & vbCrLf & Combobox1.Value
Else
    If TextBox1.Value = False Then
        TextBox1.Value = Cells(nRow, 1) & vbCrLf & Cells(nRow, 2) & vbCrLf & Cells(nRow, 8) _
        & vbCrLf & Cells(nRow, 13)
    End If
End If