Xem giúp đoạn macro sai chổ nào?

[nguyenduong]

Sub Macro7()
''
' Macro7 Macro'
' Macro recorded 11/30/2007 by Duong
'
    SolverOk SetCell:="$F$58", MaxMinVal:=1, ValueOf:="0", ByChange:= _
        "$F$35,$F$51,$F$52"
    SolverAdd CellRef:="$F$35", Relation:=2, FormulaText:="$G$35"
    SolverAdd CellRef:="$F$51", Relation:=2, FormulaText:="$G$51"
    SolverAdd CellRef:="$F$52", Relation:=2, FormulaText:="$G$52"
    SolverOk SetCell:="$F$58", MaxMinVal:=1, ValueOf:="0", ByChange:= _
        "$F$35,$F$51,$F$52"
    SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear _
        :=True, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
        IntTolerance:=0, Scaling:=True, Convergence:=0.0001, AssumeNonNeg:=False
    SolverOk SetCell:="$F$58", MaxMinVal:=1, ValueOf:="0", ByChange:= _
        "$F$35,$F$51,$F$52"
    SolverSolve
End Sub

 

[SA_DQ]

Thua hết rồi!

Sub Macro7()
'' SolverSolve
End Sub

Bạn à, ai cũng chịu thua rồi! Bạn giải đi là vừa!

 

[anhtuan1066]

Cái này chắc dc thực hiện từ việc Record macro khi làm Solver đây... nhưng mà nhìn vào thì bó bột thôi...
Nếu có file đính kèm thì còn biết nó mang ý nghĩa gì...

 

[thachnq]

Nhìn vào thấy rối thiệt đó

Bạn nói nhu cầu của bạn cần làm gì ra cho mọi người cùng góp ý

 

[phanngochiep]

Tạo form đăng nhập nhưng không được?

Em có một form đăng nhập vào excel nhưng em viết macro nhiều lần mà không được:
1. Code trong frmlogin của em như sau:
Const sMatKhau = "123456"
Private Sub cmdCancel_Click()
MsgBox "Rat tiec vi ban khong chung minh duoc minh co quyen mo workbook nay!"
ActiveWorkbook.Close
End Sub
Private Sub CmdOK_Click()
With TextBox1
If .Text = sMatKhau Then
ActiveWorkbook.Sheets("Du Lieu").Activate
Unload Me
Exit Sub
End If
MsgBox "Mat khau khong dung!"
.SetFocus
End With
End Sub
Private Sub UserForm_Initialize()
ActiveWorkbook.Sheets("Login").Activate
With TextBox1
.Text = ""
.PasswordChar = "*"
End With
End Sub

2. Code trong module là:
Public Sub Auto_open()
frmlogin.Show
If frmlogin.TextBox1 = "123456" Then 'Sua mat khau dang nhap o day
Exit Sub
Else
MsgBox "Ban da nhap sai mat khau. Xin vui long thu lai!", vbInformation, "Mat khau dang nhap"
Auto_open
End If
End Sub

- Nó cứ báo lỗi tại chỗ em tô màu khác nhiều lần!
- Em muốn khi người ta không nhập đúng password và close form thì sẽ không vào được dữ liệu bên trong.
- Em muốn chạy macro mà không cần chỉnh security được không các anh chị?

Có anh chị nào chỉ giúp em?
Thanks các anh chị nhiều?

 

[MinhNguyệt]

1/ Sub OK : Sửa lại như sau

Private Sub CmdOK_Click()
     With TextBox1
         If .Text = sMatKhau Then
             Sheets("Du Lieu").Activate
             Unload Me
         Else
             MsgBox "Mat khau khong dung!"
             .Text =""
             .SetFocus
         End If
     End With
End Sub

2/ Sub Form : Sửa lại như sau

Private Sub UserForm_Initialize()
     With TextBox1
         .Text = ""
         .PasswordChar = "*"
     End With
End Sub

3/ Trong module : Sửa lại như sau

Sub Auto_open()
    Sheets("Login").Activate
    frmlogin.Show
End Sub