Nhờ xem hộ code về Pasword

[SA_DQ]

nhờ bạn giúp đở một số vấn ̣đề sau
thật sự mình một newbie trên diển đàn,. thứ hai mình mới chập chửng bước từng bước vào vba nên có nhiều điều thiếu sót mong bạn thông cảm.
sau ̣đây là một số vấn đề mình muốn nhờ bạn giúp

chủ đề của mình trong vba là Muốn thay đổi công thức sau
mình tiếng việt không rành cho lắm, mình đang ở USA xin lổi bạn nhé, phần nhiều mình tìm code trên internet. và code mình hơi dài dòng như mình không biết làm sao cho dể dàng.
sau đây là đoạn mình nhờ bạn xem dùm.
phần nay nằm trong giftcertificate

Private Sub CommandButton9_Click()
  Dim mypassword As String
  tryagain:
  mypassword = InputBox("PLEASE ENTER PASSWORD", "YOUR PASSWORD")
      If mypassword = "maitram" Then
           MsgBox ("PASSWORD CORRECT"), vbYes
      Else
            If MsgBox("PASSWORD INCORRECT, TRY AGAIN?", vbOKCancel, Title:="WRONG PASSWORD") = vbOK Then
                  GoTo tryagain
            End If
             MsgBox ("XIN LOI,BAN KHONG DU THAM QUYEN DE XEM PHAN NAY"), vbInformation, "SORRY, PLEASE TRY AGAIN"
            JOLIENAILSPA.TextBox8.Value = "SORRY"
            JOLIENAILSPA.TextBox5.Value = "SORRY"
            JOLIENAILSPA.TextBox4.Value = "SORRY"
            Exit Sub
End If
    If ComboBox2.Value = "MAI" Then
             ActiveCell.Offset(1, 0).Select
    ElseIf ComboBox2.Value = "CHANH" Then
             ActiveCell.Offset(1, 0).Select
    ElseIf ComboBox2.Value = "HOANG" Then
              ActiveCell.Offset(1, 0).Select
    ElseIf ComboBox2.Value = "HANH" Then
                  ActiveCell.Offset(1, 0).Select
    End If
    
    Dim CashValue, CheckValue, TotalValue
    TotalValue = 0
    Range("A1").Select
    Do Until ActiveCell.Value = Empty
        If ActiveCell.Value = "DATE" Then
                    ActiveCell.Offset(1, 0).Select
        
        ElseIf DateValue(ActiveCell.Value) = DateValue(JOLIENAILSPA.DTPicker5) Or _
           DateValue(ActiveCell.Value) > DateValue(JOLIENAILSPA.DTPicker5) Then
           If DateValue(ActiveCell.Value) = DateValue(JOLIENAILSPA.DTPicker6.Value) Or _
               DateValue(ActiveCell.Value) < DateValue(JOLIENAILSPA.DTPicker6.Value) Then
               TotalValue = TotalValue + ActiveCell.Offset(0, 3)
                               ActiveCell.Offset(1, 0).Select
                       Else
                               ActiveCell.Offset(1, 0).Select
                       End If
        Else
                   ActiveCell.Offset(1, 0).Select
       End If
    Loop

    Select Case TotalValue
        Case 0
                JOLIENAILSPA.TextBox3.Value = "$" & "0"
        Case Is > 0
                 JOLIENAILSPA.TextBox3.Value = "$" & TotalValue
    End Select
   End Sub

cám ơn bạn giúp đở

 

[yenbai]

mình thấy cũng ok rồi mà

 

[yenbai]

bạn đang cần giúp cái gì ???có thể nói cụ thể hơn không?

 

[sealand]

Mình cho là code bạn viết phần login là hay, nếu có thể thêm biến đếm sau 3 lần sai mật khẩu thì thoát .
Nhưng kết cấu thì không gọn gàng chút nào, nên tạo thành các đoạn code riêng biệt và lắp ráp.
Private Sub CommandButton9_Click()
Login
Formxxx.Show-->loadform (Code phần sau)
end sub

 

[cbtm]

mình đả thử nhiều lần như đều bị như sau

Dim TotalValue
        TotalValue = 0
    With Workbooks("JOLIE NAIL SPA INCOME.xls")
    Sheets("SALE").Select
    Range("A1").Select
   
     Do Until ActiveCell.Value = Empty
    If ActiveCell.Value = "DATE" Then
        ActiveCell.Offset(1, 0).Select
        
  [COLOR=Red]  ElseIf DateValue(ActiveCell.Value) = DateValue(GIFTCERTIFICATE.DTPicker5) Or _
        DateValue(ActiveCell.Value) > DateValue(GIFTCERTIFICATE.DTPicker5) Then[/COLOR]
           If DateValue(ActiveCell.Value) = DateValue(GIFTCERTIFICATE.DTPicker5.Value) Or _           DateValue(ActiveCell.Value) < DateValue(GIFTCERTIFICATE.DTPicker5.Value) Then                TotalValue = TotalValue + ActiveCell.Offset(0, 2)
                ActiveCell.Offset(1, 0).Select
            Else
                ActiveCell.Offset(1, 0).Select
           End If
       
          Else
        ActiveCell.Offset(1, 0).Select
    End If
    
    Loop
    Select Case TotalValue
        Case 0
            GIFTCERTIFICATE.TextBox8.Value = "$" & "0"
        Case Is > 0
            GIFTCERTIFICATE.TextBox8.Value = "$" & TotalValue
    End Select
    End With
   End Sub

Phần mình cho màu đỏ đều bi Type mismatch run time 13 error

 

[sealand]

Cái đoạn sau có liên quan tới Form và Worksheet, bạn cất nó đi thì GPE làm sao trả lời giúp bạn mấy đoạn xanh đỏ đây???

 

[hoa35ktxd]

Bạn kiển tra lại kiểu dữ liệu của ActiveCell.Value vì hàm DateValue nhận giá trị là 1 chuỗi được định dạng theo kiểu ngày tháng nếu không sẽ hiện thông báo như bạn nói:
Runtime error '13'
Type mismatch.
Vì vậy trước khi chạy hàm DateValue thì bạn hãy kiểm tra dữ liệu có phải là kiểu ngày tháng không bằng hàm Isdate.
ElseIf DateValue(ActiveCell.Value) = DateValue(GIFTCERTIFICATE.DTPicker5) Or _
DateValue(ActiveCell.Value) > DateValue(GIFTCERTIFICATE.DTPicker5) Then
nên sửa thành
ElseIf DateValue(ActiveCell.Value) => DateValue(GIFTCERTIFICATE.DTPicker5) Then