Không phải Pro có giúp được bạn không?
Set Cl = .Find(Me.ListBox1.Value, LookIn:=xlValues)Set Cl = .Find(Me.ListBox1.Value, LookIn:=xlValues[B][COLOR=#ff0000],[/COLOR][/B] [B][COLOR=#ff0000]Lookat:=xlWhole[/COLOR][/B])Mình trả lời 2 thắc mắc của bạn
Set Cl = Sheet1.Columns("B").Find(what:=Me.LBData.Value)
Thí nghiệm:
Sub Test()
Dim rng As Range
Set rng = Range("A1:A10")
[COLOR=#ff0000]rng.Find("11").Select[/COLOR]
End SubSub Test()
Dim rng As Range
Set rng = Range("A1:A10")
r[COLOR=#ff0000]ng.Find("11", , xlValues, xlWhole).Select[/COLOR]
End SubSub Test()
Dim rng As Range
Set rng = Range("A1:A10")
[COLOR=#ff0000]rng.Find("11").Select[/COLOR]
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i
i = 11
Do
If Cells(i, 4) = "" And Cells(i, 5) = "" And Cells(i, 6) = "" And Cells(i, 7) = "" Then
Cells(i, 4).Select
frmData.Show
Exit Do
End If
i = i + 1
Loop
End SubSub PrintData()
Dim j As Integer, Sl As Long
For j = 0 To 3
ActiveCell.Offset(, j) = Me.LBData.Column(j)
Next
Do
Sl = Application.InputBox("Nhap So luong cua ma " & Me.LBData, "NHAP DL", , , , , , 1)
If Sl > 0 Then
ActiveCell.Offset(, 4) = Sl
Exit Do
End If
Loop
ActiveCell.Offset(1).Select
End Sub
[B]Private Sub CmdLuuHD_Click()[/B]
Dim Cl As Range, i, j
'Kiem tra truoc khi nhap
If Ktra() Then
'Xoa nhung chung tu trung so
i = Sheet4.Cells(Sheet4.Rows.Count, 1).End(3).Row
Do
If i < 2 Then Exit Do
If Sheet4.Cells(i, 1).Value = Sheet2.[D6].Value Then
Sheet4.Cells(i, 1).Resize(, 12).Delete Shift:=xlUp
End If
i = i - 1
Loop
'Nhap du lieu vao luu
Set Cl = Sheet4.Cells(Sheet4.Rows.Count, 1).End(3).Offset(1)
For i = 11 To 29
If Sheet2.Cells(i, 4) <> "" And Sheet2.Cells(i, 8) <> 0 Then
Cl.Value = Sheet2.[D6].Value
Cl.Offset(, 1).Value = Sheet2.[H6].Value
Cl.Offset(, 2).Value = Sheet2.[H8].Value
Cl.Offset(, 3).Value = Sheet2.[E8].Value
For j = 4 To 9
Cl.Offset(, j).Value = Sheet2.Cells(i, j).Value
Next
Cl.Offset(, 10).Value = Sheet2.[I30].Value
Cl.Offset(, 11).Value = Sheet2.[I31].Value
Cl.Offset(, 12).Value = Sheet2.[I32].Value
Cl.Offset(, 13).Value = Sheet2.[I33].Value
Set Cl = Cl.Offset(1)
End If
Next
CmdNhapMoi_Click
End If
[B]End Sub [/B] Private Sub CmdLuuHD_Click()
Dim Cl As Range, I As Long, J As Byte '<=|'
'Kiem Tra Truóc Khi Nhap:'
If Ktra() Then
'Xoa Nhung Chúng Tù Trùng Só:'
I = Sheet4.Cells(Sheet4.Rows.Count, 1).End(3).Row
Do
If I < 2 Then Exit Do
If Sheet4.Cells(I, 1).Value = Sheet2.[D6].Value Then
Sheet4.Cells(I, 1).Resize(, 12).Delete Shift:=xlUp
End If
I = I - 1
Loop
'Nhap Du Lieu Vào "Luu":'
Set Cl = Sheet4.Cells(Sheet4.Rows.Count, 1).End(3).Offset(1)
For I = 11 To 29
If Sheet2.Cells(I, 4) <> "" And Sheet2.Cells(I, 8) <> 0 Then
Cl.Value = Sheet2.[D6].Value
Cl.Offset(, 1).Value = Sheet2.[H6].Value
Cl.Offset(, 2).Value = Sheet2.[H8].Value
Cl.Offset(, 3).Value = Sheet2.[E8].Value
For J = 4 To 9
Cl.Offset(, J).Value = Sheet2.Cells(I, J).Value
Next '<=| Nen Là Next J'
Cl.Offset(, 10).Value = Sheet2.[I30].Value
Cl.Offset(, 11).Value = Sheet2.[I31].Value
Cl.Offset(, 12).Value = Sheet2.[I32].Value
Cl.Offset(, 13).Value = Sheet2.[I33].Value
Set Cl = Cl.Offset(1)
End If
Next '<=| Nen Là Next i'
CmdNhapMoi_Click
End If
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [H11:H29]) Is Nothing Then
Target.Offset(, 1).Value = Target.Offset(, -1).Value * Target.Value
[I30].Value = Evaluate("=sum(I11:I29)")
[I33].Value = [I30].Value - [I31].Value - [I32].Value
End If
If Not Intersect(Target, [G11:G29]) Is Nothing Then
Target.Offset(, 2).Value = Target.Offset(, 1).Value * Target.Value
[I30].Value = Evaluate("=sum(I11:I29)")
[I33].Value = [I30].Value - [I31].Value - [I32].Value
End If
If Not Intersect(Target, [I31:I32]) Is Nothing Then
[I30].Value = Evaluate("=sum(I11:I29)")
[I33].Value = [I30].Value - [I31].Value - [I32].Value
End If
End Sub
