Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
        ActiveSheet.Unprotect Password:="Che061"
        Sheets("Bill_WH").Select
        ActiveSheet.Unprotect Password:="Che061"
          Dim LastRow As Object

          Set LastRow = Sheet1.Range("C11").End(xlUp)

          LastRow.Offset(1, 0).Value = TextBox1.Text
          LastRow.Offset(1, 5).Value = TextBox2.Text
          LastRow.Offset(1, 6).Value = TextBox3.Text

          MsgBox "¤Ø³ä´é·ÓÃÒ¡ÒÃáÅéÇ"

          response = MsgBox("¤Ø³µéͧ¡Ò÷ÓÃÒ¡ÒõèÍä»?", _
              vbYesNo)

          If response = vbYes Then
              TextBox1.Text = ""
              TextBox2.Text = ""
              TextBox3.Text = ""

              TextBox1.SetFocus

          Else
              Unload Me
          End If
          ActiveSheet.Protect Password:="Che061", DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True

      End Sub

Code: Select all

Private Sub CommandButton1_Click()
        ActiveSheet.Unprotect Password:="Che061"
        Sheets("Bill_WH").Select
        ActiveSheet.Unprotect Password:="Che061"
          Application.ScreenUpdating = False
           
            Dim pasteSheet As Worksheet
            Set pasteSheet = Worksheets("Bill_WH")
            
            pasteSheet.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = TextBox1.Text
            pasteSheet.Cells(Rows.Count, 3).End(xlUp).Offset(0, 5) = TextBox2.Text
            pasteSheet.Cells(Rows.Count, 3).End(xlUp).Offset(0, 6) = TextBox3.Text
        Application.ScreenUpdating = True

          MsgBox "¤Ø³ä´é·ÓÃÒ¡ÒÃáÅéÇ"
          Set pasteSheet = Nothing

          response = MsgBox("¤Ø³µéͧ¡Ò÷ÓÃÒ¡ÒõèÍä»?", _
              vbYesNo)

          If response = vbYes Then
              TextBox1.Text = ""
              TextBox2.Text = ""
              TextBox3.Text = ""

              TextBox1.SetFocus

          Else
              Unload Me
          End If
        ActiveSheet.Protect Password:="Che061", DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True

      End Sub

Code: Select all

Private Sub CommandButton1_Click()
    
    Dim LastRow As Integer

    Sheets("Bill_WH").Unprotect Password:="Che061"
    
    With Sheets("Bill_WH")
        If Application.CountIf(.Range("c11:c15"), TextBox1.Text) > 0 Then
            LastRow = Application.Match(TextBox1.Text, .Range("c:c"), 0) - 1
        Else
            LastRow = .Range("c16").End(xlUp).Row
        End If
        .Cells(LastRow, "c").Offset(1, 0).Value = TextBox1.Text
        .Cells(LastRow, "c").Offset(1, 5).Value = TextBox2.Text
        .Cells(LastRow, "c").Offset(1, 6).Value = TextBox3.Text
    End With
    
    MsgBox "คุณได้ทำรายการแล้ว"
    
    response = MsgBox("คุณต้องการทำรายการต่อไป?", vbYesNo)
    
    If response = vbYes Then
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox1.SetFocus
    Else
        Unload Me
    End If
    
    ActiveSheet.Protect Password:="Che061", DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
    
End Sub

Code: Select all

If Application.CountIf(.Range("c11:c15"), TextBox1.Text) > 0 Then

Code: Select all

Private Sub TextBox1_Change()

End Sub

Private Sub Cancle_Click()
Unload Login1
End Sub

Private Sub Login_Click()
If Password.Text = "" And Uselogin.Text = "" Then
Application.Visible = True
Unload Login1
MsgBox "¢Íµé͹ÃѺà¢éÒÊÙéÃкº¤ÅѧÊÔ¹¤éҢͧWare House"
Else
MsgBox "ÃËÑʼèÒ¹äÁè¶Ù¡µéͧ", vbCritical, "¢éÍÁÙÅ¢éÒ§µé¹¨Ð¶Ù¡·ÓÅÒÂ"
End If
End Sub

Code: Select all

Private Sub ComboBox1_Change()
On Error Resume Next
MyImg = ComboBox1.List(ComboBox1.ListIndex, 1)
Me.Image1.Picture = LoadPicture(MyImg)
Me.Label1 = ComboBox1.List(ComboBox1.ListIndex, 2)
End Sub