Code chuyển hàng bất kỳ lên hàng thứ 3 (1 người xem)

  • Thread starter Thread starter khamha
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
khamha

khamha

Không có việc gì khó...
Tham gia
4/6/10
Bài viết
662
Được thích
846
Nghề nghiệp
CNVC Laos
Nhờ các bạn giúp,Như chủ đề mình đã nêu ở trên,Ý của mình là:
khi ta chọn số TT từ hàng thứ tư trở xuống tại ô B1 thì tất cả dữ liệu có trong hàng đó sẽ được
chuyển lên hàng thứ 3,Các bạn xem File đính kèm.Cảm ơn
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
khamha đã viết:
Nhờ các bạn giúp,Như chủ đề mình đã nêu ở trên,Ý của mình là:
khi ta chọn số TT từ hàng thứ tư trở xuống tại ô B1 thì tất cả dữ liệu có trong hàng đó sẽ được
chuyển lên hàng thứ 3,Các bạn xem File đính kèm.Cảm ơn
Nhấp chuột vào đây để mở rộng...
Record Macro xem thử có dùng được không nhé.
 

File đính kèm

Upvote 0
Cái này không cần đến VBA
 

File đính kèm

Upvote 0
ptm0412 đã viết:
Cái này không cần đến VBA
Nhấp chuột vào đây để mở rộng...
Tôi lại hiểu là tác giả muốn "chuyển" nghĩa là "dời vị trí" lên trên, dữ liệu ở dòng cũ không còn nên làm như thế.
Không biết tác giả muốn sao, nếu làm như PTM... tôi nghĩ là tác giả sẽ tự làm được.
khamha đã viết:
Nhờ các bạn giúp,Như chủ đề mình đã nêu ở trên,Ý của mình là:
khi ta chọn số TT từ hàng thứ tư trở xuống tại ô B1 thì tất cả dữ liệu có trong hàng đó sẽ được
chuyển lên hàng thứ 3,Các bạn xem File đính kèm.Cảm ơn
Nhấp chuột vào đây để mở rộng...
 
Upvote 0
khamha đã viết:
Nhờ các bạn giúp,Như chủ đề mình đã nêu ở trên,Ý của mình là:
khi ta chọn số TT từ hàng thứ tư trở xuống tại ô B1 thì tất cả dữ liệu có trong hàng đó sẽ được
chuyển lên hàng thứ 3,Các bạn xem File đính kèm.Cảm ơn
Nhấp chuột vào đây để mở rộng...
Mình cũng có cách làm theo đúng ý bạn nhưng ko dùng VBA mà dùng hàm VLOOKUP.
Bạn thử xem có được ko nhé.
 

File đính kèm

Upvote 0
Ba Tê đã viết:
Tôi lại hiểu là tác giả muốn "chuyển" nghĩa là "dời vị trí" lên trên, dữ liệu ở dòng cũ không còn nên làm như thế.
Không biết tác giả muốn sao, nếu làm như PTM... tôi nghĩ là tác giả sẽ tự làm được.
Nhấp chuột vào đây để mở rộng...
Mình đang tìm cách sửa dữ liệu đã nhập theo kiểu củ chuối,tức là khi muốn sửa hàng nào thì sẽ đưa hàng đó nên hàng thứ 3,sau đó sẽ liên kết với TextBox trong UserForm để sửa,nếu dùng Filter hoặc công thức thì không thể sửa dữ liệu gốc được.
 
Upvote 0
Còn một việc nữa nhờ các bạn sửa giúp,Là Sort lại dữ liệu,Mình đã Record Macro rồi,Nhưng vì nó dài quá.
Các bạn xem Code:

PHP: 
Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A3").Select
    ActiveWorkbook.Worksheets("ChuyenDong").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ChuyenDong").Sort.SortFields.Add Key:=Range("A3") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ChuyenDong").Sort
        .SetRange Range("A3:D17")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Các bạn giúp mình nhé,Cảm ơn
 
Upvote 0
khamha đã viết:
Mình đang tìm cách sửa dữ liệu đã nhập theo kiểu củ chuối,tức là khi muốn sửa hàng nào thì sẽ đưa hàng đó nên hàng thứ 3,sau đó sẽ liên kết với TextBox trong UserForm để sửa,nếu dùng Filter hoặc công thức thì không thể sửa dữ liệu gốc được.
Nhấp chuột vào đây để mở rộng...
"Chời ơi"! Mục đích sao không nói rõ từ đầu, nếu thế thì chỉ cần làm như PTM... và một nút bấm (Có một code nhỏ) nữa là xong mà, đâu cần text box - user form.
Chọn B1, chỉnh sửa dòng 3, ấn nút 1 cái, xong, ngủ!
(Vụ này ptm0412 và các cao thủ GPE làm 10 giây. (Mình làm cái này có thể được nhưng phải nửa tiếng và chưa chắc ổn)
Hic! (Bắt chước concogia). Hic!
----------
Những gì mình hiểu mà giải thích cho người khác hiểu được gần giống giống như mình còn gọi là "Sư phạm". Hic nữa!
 
Upvote 0
khamha đã viết:
Còn một việc nữa nhờ các bạn sửa giúp,Là Sort lại dữ liệu,Mình đã Record Macro rồi,Nhưng vì nó dài quá.
Các bạn xem Code:

PHP: 
Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A3").Select
    ActiveWorkbook.Worksheets("ChuyenDong").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ChuyenDong").Sort.SortFields.Add Key:=Range("A3") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ChuyenDong").Sort
        .SetRange Range("A3:D17")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Các bạn giúp mình nhé,Cảm ơn
Nhấp chuột vào đây để mở rộng...
Mã: 
  ActiveWorkbook.Worksheets("ChuyenDong").Sort Range("A3"), xlAscending, , , , , , xlNo
Đâu anh thay thế thử code này xem sao
 
Upvote 0
khamha đã viết:
Mình đang tìm cách sửa dữ liệu đã nhập theo kiểu củ chuối,tức là khi muốn sửa hàng nào thì sẽ đưa hàng đó nên hàng thứ 3,sau đó sẽ liên kết với TextBox trong UserForm để sửa,nếu dùng Filter hoặc công thức thì không thể sửa dữ liệu gốc được.
Nhấp chuột vào đây để mở rộng...
Bạn nói rằng sẽ liên kết với TextBox trong UserForm để sửa vậy cần quái gì di chuyển, dời tới dời lui cho lằng nhằng ---> Thích sửa thì cứ sửa thôi
 
Upvote 0
ndu96081631 đã viết:
Bạn nói rằng sẽ liên kết với TextBox trong UserForm để sửa vậy cần quái gì di chuyển, dời tới dời lui cho lằng nhằng ---> Thích sửa thì cứ sửa thôi
Nhấp chuột vào đây để mở rộng...
Nếu sử dụng một mình thì nói làm gì,nhưng khi đưa cái Code trên vào sử dụng thì không khả thi lắm vì:nếu dữ liệu nhiều,thì nó chạy rất lâu. bạn ndu có cách khác không?
 
Lần chỉnh sửa cuối:
Upvote 0
khamha đã viết:
Nếu sử dụng một mình thì nói làm gì,nhưng khi đưa cái Code trên vào sử dụng thì không khả thi lắm vì:nếu dữ liệu nhiều,thì nó chạy rất lâu. bạn ndu có các khác không?
Nhấp chuột vào đây để mở rộng...

Làm gì mà lâu chứ! Cứ Find Method là chớp mắt thôi bạn ơi! Bạn gửi File lên đi! Thử gửi File có nhiều hàng đó!
 
Upvote 0
Tôi làm thử một bài cho Khamha tham khảo nhé!

Với 1 Userform, 1 listbox, 2 nút lệnh (một nhập mới, một nhập chỉnh sửa) và các textbox, tôi viết các thủ tục dưới đây:

Mã: 
Dim MyRange As Range, MyMsgbox As Integer, i As Long

Private Sub UserForm_Initialize()
    ListBox1.List = Range(Sheet1.[A2], Sheet1.[E65536].End(xlUp)).Value
End Sub


Private Sub CommandButton1_Click()
    MyMsgbox = MsgBox("Ban co chac luu lai chinh sua thong tin cua ID: " & TextBox1, vbYesNo + vbQuestion, "Thông Báo")
    If MyMsgbox = vbYes Then
        Set MyRange = Range(Sheet1.[A1], Sheet1.[A65536].End(xlUp)).Find(Label6.Caption, LookIn:=xlValues, LookAt:=xlWhole)
            If Not MyRange Is Nothing Then
                For i = 0 To 4
                    MyRange.Offset(, i) = Controls("TextBox" & i + 1)
                Next
            End If
    End If
    CommandButton1.Enabled = False
    CommandButton2.Enabled = True
End Sub


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MyMsgbox = MsgBox("Ban co chac chinh sua thong tin cua ID: " & ListBox1.Value, vbYesNo + vbQuestion, "Thông Báo")
    If MyMsgbox = vbYes Then
        For i = 0 To 4
            Controls("TextBox" & i + 1) = ListBox1.Column(i)
        Next
        Label6.Caption = ListBox1.Value
        CommandButton1.Enabled = True
        CommandButton2.Enabled = False
        ListBox1.List = Range(Sheet1.[A2], Sheet1.[E65536].End(xlUp)).Value
    End If
End Sub


Private Sub CommandButton2_Click()
    Set MyRange = Sheet1.[A65536].End(xlUp).Offset(1)
    For i = 0 To 4
        MyRange.Offset(, i) = Controls("TextBox" & i + 1)
    Next
    ListBox1.List = Range(Sheet1.[A2], Sheet1.[E65536].End(xlUp)).Value
End Sub

Bạn xem file nhé!
 

File đính kèm

Upvote 0
Đúng là tìm bằng find như anh Ptm hay dùng Goto thì cũng rẹt 1 cái là tìm được ID.
Nhưng chủ Topic muốn vậy. Mình tham gia cách tạo Form, không dùng thì xoá.Vị trí là dòng 2.
Nếu F1>0 và cell liên quan có giá trị thì tạo form.
Nếu F1>0 và cell liên quan =0 thì xoá form xoá giá trị F1
Xoá F1 cũng xoá form
Bạn tham khảo file. Mình dùng lại file của Minh Thien nha.
 

File đính kèm

Upvote 0
Nếu dùng VBA thì tôi làm vầy:
Tại ô nào đó, dùng validation chọn ID hoặc STT cần sửa.
Dùng sự kiện worksheet change, nhảy tót xuống dòng đó và sửa.

PHP: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
On Error Resume Next
    Application.EnableEvents = False
    Set abc = Range("A2:A500").Find(Target.Value)
    abc.Select
    Application.EnableEvents = True
End If
End Sub

Nếu cần thì freeze pane dòng 1 (ẹc ẹc)

Nếu dùng form thì cũng y vậy.
 
Upvote 0
minhthien321 đã viết:
Tôi làm thử một bài cho Khamha tham khảo nhé!

Với 1 Userform, 1 listbox, 2 nút lệnh (một nhập mới, một nhập chỉnh sửa) và các textbox, tôi viết các thủ tục dưới đây:

Mã: 
Dim MyRange As Range, MyMsgbox As Integer, i As Long

Private Sub UserForm_Initialize()
    ListBox1.List = Range(Sheet1.[A2], Sheet1.[E65536].End(xlUp)).Value
End Sub


Private Sub CommandButton1_Click()
    MyMsgbox = MsgBox("Ban co chac luu lai chinh sua thong tin cua ID: " & TextBox1, vbYesNo + vbQuestion, "Thông Báo")
    If MyMsgbox = vbYes Then
        Set MyRange = Range(Sheet1.[A1], Sheet1.[A65536].End(xlUp)).Find(Label6.Caption, LookIn:=xlValues, LookAt:=xlWhole)
            If Not MyRange Is Nothing Then
                For i = 0 To 4
                    MyRange.Offset(, i) = Controls("TextBox" & i + 1)
                Next
            End If
    End If
    CommandButton1.Enabled = False
    CommandButton2.Enabled = True
End Sub


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MyMsgbox = MsgBox("Ban co chac chinh sua thong tin cua ID: " & ListBox1.Value, vbYesNo + vbQuestion, "Thông Báo")
    If MyMsgbox = vbYes Then
        For i = 0 To 4
            Controls("TextBox" & i + 1) = ListBox1.Column(i)
        Next
        Label6.Caption = ListBox1.Value
        CommandButton1.Enabled = True
        CommandButton2.Enabled = False
        ListBox1.List = Range(Sheet1.[A2], Sheet1.[E65536].End(xlUp)).Value
    End If
End Sub


Private Sub CommandButton2_Click()
    Set MyRange = Sheet1.[A65536].End(xlUp).Offset(1)
    For i = 0 To 4
        MyRange.Offset(, i) = Controls("TextBox" & i + 1)
    Next
    ListBox1.List = Range(Sheet1.[A2], Sheet1.[E65536].End(xlUp)).Value
End Sub

Bạn xem file nhé!
Nhấp chuột vào đây để mở rộng...

Nếu muốn thêm cột thì phải sửa Code lại như thế nào hả bạn,Mình sửa mãi mà không được,bạn hướng dẫn mình với,Cảm ơn bạn.
 
Upvote 0
khamha đã viết:
Nếu muốn thêm cột thì phải sửa Code lại như thế nào hả bạn,Mình sửa mãi mà không được,bạn hướng dẫn mình với,Cảm ơn bạn.
Nhấp chuột vào đây để mở rộng...

Nếu bạn muốn thêm cột thì làm như vầy, tôi làm thêm cho bạn 2 cột nữa:

1) Thêm 2 cột trong Sheet1

2) Tại ListBox, bạn đặt thuộc tính ColumnCount=7 (thay vì trước là 5)

3) Thêm 2 cái TextBox nữa (TextBox6 và TextBox7)

4) Nguồn của ListBox thay vì:

ListBox1.List = Range(Sheet1.[A2], Sheet1.[E65536].End(xlUp)).Value

Nó sẽ tương đương với như vầy:

ListBox1.List = Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp)).Resize(, 5).Value

Thì thay thế như vầy cho bạn dễ nắm bắt và chắc chắn bound hết hơn:

ListBox1.List = Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp)).Resize(, 7).Value

5) Những cái gì có For i = 0 To 4 thì sửa thành For i = 0 To 6

6) Xem File để dễ hiểu hơn!!! Ẹc Ẹc...
 

File đính kèm

Upvote 0
Nếu mình muốn dùng thêm ComboBox thì phải sửa lại như thế nào?bạn giúp mình nhé,cảm ơn bạn nhiều.
 
Upvote 0
minhthien321 đã viết:
Thế bạn muốn dùng Combobox cho cột nào? Mục đích để làm gì?
Nhấp chuột vào đây để mở rộng...
Mình định sử dụng cái Form này để sửa dữ liệu trong Sheet"Data",Có các cột cần phải nhập dữ liệu theo quy định sẵn ( chỉ cho nhập dữ liệu có trong List)Khi đưa vào sử dụng thì sẽ có 32 cột,cột sử dụng comboBox là cột 2,3,7,10 và 28.
 
Upvote 0
khamha đã viết:
Mình định sử dụng cái Form này để sửa dữ liệu trong Sheet"Data",Có các cột cần phải nhập dữ liệu theo quy định sẵn ( chỉ cho nhập dữ liệu có trong List)Khi đưa vào sử dụng thì sẽ có 32 cột,cột sử dụng comboBox là cột 2,3,7,10 và 28.
Nhấp chuột vào đây để mở rộng...

Má ơi, cột nhiều dữ vậy à? Sao không làm hẳn trên sheet luôn đi trời!

Nói thì nói vậy, bạn gửi 1 cái File có cấu trúc như bạn mô tả đi, tôi sẽ thử làm cho bạn.
 
Upvote 0
minhthien321 đã viết:
Má ơi, cột nhiều dữ vậy à? Sao không làm hẳn trên sheet luôn đi trời!

Nói thì nói vậy, bạn gửi 1 cái File có cấu trúc như bạn mô tả đi, tôi sẽ thử làm cho bạn.
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn,bạn chỉ cần làm ví dụ trong file cũ,để mình còn làm thêm để rút kinh nghiệm.
 
Upvote 0
khamha đã viết:
Mình định sử dụng cái Form này để sửa dữ liệu trong Sheet"Data",Có các cột cần phải nhập dữ liệu theo quy định sẵn ( chỉ cho nhập dữ liệu có trong List)Khi đưa vào sử dụng thì sẽ có 32 cột,cột sử dụng comboBox là cột 2,3,7,10 và 28.
Nhấp chuột vào đây để mở rộng...

Cái này nếu vậy thì tôi sẽ thêm 3 cái Combobox thay thế cho 3 cái Textbox trong File đó, chỉ thêm 1 vòng lặp để duyệt tìm Control nữa thôi:

Mã: 
Dim MyRange As Range, MyMsgbox As Integer, MyControl As Control, i As Long


Private Sub UserForm_Initialize()
    ListBox1.List = Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp)).Resize(, 7).Value
End Sub


Private Sub CommandButton1_Click()
    MyMsgbox = MsgBox("Ban co chac luu lai chinh sua thong tin cua ID: " & TextBox1, vbYesNo + vbQuestion, "Thông Báo")
    If MyMsgbox = vbYes Then
        Set MyRange = Range(Sheet1.[A1], Sheet1.[A65536].End(xlUp)).Find(Label6.Caption, LookIn:=xlValues, LookAt:=xlWhole)
            For Each MyControl In Controls
                If TypeName(MyControl) = "TextBox" Or TypeName(MyControl) = "ComboBox" Then
                    For i = 0 To 6
                        If Right(MyControl.Name, 1) = i + 1 Then MyRange.Offset(, i) = MyControl.Text
                    Next
                End If
            Next
        ListBox1.List = Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp)).Resize(, 7).Value
    End If
    CommandButton1.Enabled = False
    CommandButton2.Enabled = True
End Sub


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MyMsgbox = MsgBox("Ban co chac chinh sua thong tin cua ID: " & ListBox1.Value, vbYesNo + vbQuestion, "Thông Báo")
    If MyMsgbox = vbYes Then
        For Each MyControl In Controls
            If TypeName(MyControl) = "TextBox" Or TypeName(MyControl) = "ComboBox" Then
                For i = 0 To 6
                    If Right(MyControl.Name, 1) = i + 1 Then MyControl.Text = ListBox1.Column(i)
                Next
            End If
        Next
        Label6.Caption = ListBox1.Value
        CommandButton1.Enabled = True
        CommandButton2.Enabled = False
        ListBox1.List = Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp)).Resize(, 7).Value
    End If
End Sub


Private Sub CommandButton2_Click()
    Set MyRange = Sheet1.[A65536].End(xlUp).Offset(1)
        For Each MyControl In Controls
            If TypeName(MyControl) = "TextBox" Or TypeName(MyControl) = "ComboBox" Then
                For i = 0 To 6
                    If Right(MyControl.Name, 1) = i + 1 Then MyRange.Offset(, i) = MyControl.Text
                Next
            End If
        Next
    ListBox1.List = Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp)).Resize(, 7).Value
End Sub

Xem File nhé bạn!
 

File đính kèm

Upvote 0
Nhờ bạn minhthien321 làm cho cái listbox nó: có thể cuộn lên xuống bằng bánh xe chuột , và mình muốn sau khi nhập dữ liệu đã sửa thì danh sách trong listbox nó đứng yên,chứ đừng chạy về hàng đầu.vì rất bất tiện nếu ta sửa dữ liệu ở các hàng dưới cùng.cảm ơn bạn.
 
Upvote 0
khamha đã viết:
Nhờ bạn minhthien321 làm cho cái listbox nó: có thể cuộn lên xuống bằng bánh xe chuột , và mình muốn sau khi nhập dữ liệu đã sửa thì danh sách trong listbox nó đứng yên,chứ đừng chạy về hàng đầu.vì rất bất tiện nếu ta sửa dữ liệu ở các hàng dưới cùng.cảm ơn bạn.
Nhấp chuột vào đây để mở rộng...

Xin thưa với bạn là không thể, bởi ListBox không được tích hợp scroll chuột lăn, nếu bạn muốn điều đó thì chỉ có ListView.
 
Upvote 0
Còn vấn đề thứ 2 thì sao bạn.
 
Upvote 0
Sao các bạn lại không sử dụng thuộc tính của Listbox nhỉ. Nó không hỗ trợ chuột lăn nhưng nó hỗ trợ 1 cách theo mình còn nhanh hơn nhiều. Đó là:

TopIndex
ListIndex

Ngay trên Form của bạn bạn thên 2 commandbutton
CommandButton1 (Caption="Tim dong")
CommandButton2 (Caption="Tim Noi dung")
rồi nhập code sau

Mã: 
Private Sub CommandButton1_Click()
Dim i
i = InputBox("Nhap dong can tim")
Me.ListBox1.ListIndex = i
Me.ListBox1.TopIndex = i
End Sub
Và code cho nút 2:

Mã: 
Private Sub CommandButton2_Click()
 Dim i As Long, Ch_tim As String
  Ch_tim = InputBox("Nhap chuoi can tim")
    If Len(Ch_tim) = 0 Then
      Me.ListBox1.ListIndex = -1
       Me.ListBox1.TopIndex = 0
         Else
           For i = 0 To Me.ListBox1.ListCount - 1
            If UCase(Left(Me.ListBox1.List(i), _
            Len(Ch_tim))) = UCase(Ch_tim) Then
             Me.ListBox1.TopIndex = i
            Me.ListBox1.ListIndex = i
          Exit For
        End If
     Next i
    End If
End Sub

Rồi giờ mở Form lên:
-Nhấn nút 1 rồi nhập 1 dòng nào đó khuất nẻo tận đâu đó rồi OK xem nó có mang về dòng đầu tiên trên List không.
-Nhấn nút 2 rồi nhập 1 vài ký tự đầu của dòng nào trên cột 1 (Ví du: sea nếu trong list có Item SEALND001 chẳng hạn) rồi OK xem nó có mang về dòng đầu tiên trên List không.

Chúc bạn vừa ý
 
Lần chỉnh sửa cuối:
Upvote 0
Như hôm qua đã nói, tôi sử dụng thủ tục dưới đây để cập nhật dữ liệu cho Listbox:
Mã: 
ListBox1.List = Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp)).Resize(, 7).Value

Vì thế, khi nhập mới hoặc chỉnh sửa sẽ bị cập nhật toàn bộ mới nên có hiện tượng form bị chớp và trả về hàng đầu tiên (dĩ nhiên nếu dữ liệu lớn sẽ bị chậm), để khắc phục điều đó, ta chỉ cần chỉnh sửa đúng hàng đó và cập nhật cũng chỉ hàng đó thôi mà không cần phải toàn bộ giá trị, nó vừa không mất thời gian mà đúng theo theo yêu cầu của bạn là không chạy hàng về từ đầu trong ListBox. Với nhập mới cũng vậy, ta chỉ cập nhật dòng cuối cùng của ListBox.

1) Nhập giá trị vào ListBox:
Mã: 
Private Sub UserForm_Initialize()
    Set MyRange = Range(Sheet1.[A2], Sheet1.[A65536].End(xlUp)).Resize(, 7)
    If MyRange.Row = 1 Then Exit Sub [COLOR=#008000]'<--Dùng để bẫy lỗi nếu không có giá trị nào trong cơ sở dữ liệu[/COLOR]
    ListBox1.List = MyRange.Value
End Sub

2) Nhập giá trị mới:
Mã: 
Private Sub CommandButton2_Click()
    Dim MyRow As Long
    Set MyRange = Sheet1.[A65536].End(xlUp).Offset(1)
    [COLOR=#ff0000]ListBox1.AddItem
    MyRow = ListBox1.ListCount - 1[/COLOR]
    For Each MyControl In Controls
        If TypeName(MyControl) = "TextBox" Or TypeName(MyControl) = "ComboBox" Then
            For MyColumn = 0 To 6
                If Right(MyControl.Name, 1) = MyColumn + 1 Then
                    MyRange.Offset(, MyColumn) = MyControl.Text
                    [COLOR=#ff0000]ListBox1.List(MyRow, MyColumn) = MyControl.Text[/COLOR]
                End If
            Next
        End If
    Next
    [B][COLOR=#0000cd]ListBox1.ListIndex = MyRow[/COLOR][/B]
End Sub

Với các dòng màu đỏ là thủ tục thêm vào dòng cuối cùng của ListBox mà không phải cập nhật toàn bộ cho Listbox. Với dòng xanh là thủ tục di chuyển đến hàng cuối cùng khi bạn nhập mới.

3) Thủ tục chỉnh sửa:
Mã: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    On Error GoTo ExitSub '(Bẫy lỗi khi không có giá trị nào trong ListBox)
    MyListItem = ListBox1.Value: MyListIndex = ListBox1.ListIndex
    MyMsgbox = MsgBox("Bạn sẽ làm gì với thông tin của ID: " & ListBox1.Value & Chr(10) & Chr(10) & _
                      "- Nếu chọn YES, bạn sẽ chỉnh sửa mục này." & Chr(10) & Chr(10) & _
                      "- Nếu chọn NO, bạn sẽ xoá mục này." & Chr(10) & Chr(10) & _
                      "- Nếu chọn CANCEL, bạn sẽ thoát thông báo này", vbYesNoCancel + vbQuestion, "Thông Báo")
    If MyMsgbox = vbYes Then
        For Each MyControl In Controls
            If TypeName(MyControl) = "TextBox" Or TypeName(MyControl) = "ComboBox" Then
                For MyColumn = 0 To 6
                    If Right(MyControl.Name, 1) = MyColumn + 1 Then MyControl.Text = ListBox1.Column(MyColumn)
                Next
            End If
        Next
        CommandButton1.Enabled = True: CommandButton2.Enabled = False
    ElseIf MyMsgbox = vbNo Then
        ListBox1.RemoveItem MyListIndex
[COLOR=#008000]'Dùng cách nào để xóa hàng trong sheet cũng được nếu bạn thấy thuận tiện:
'Cách 1: (Nếu chắc chắn ID không bị trùng - Với cách này thuận tiện nếu Listbox có sử dụng thuộc tính SORT)
       [/COLOR][COLOR=#0000cd] 'Set MyRange = Range(Sheet1.[A1], Sheet1.[A65536].End(xlUp)).Find(MyListItem, LookIn:=xlValues, LookAt:=xlWhole)
        'If Not MyRange Is Nothing Then MyRange.Resize(, 7).Delete 2[/COLOR][COLOR=#008000]
'Cách 2: (Ngắn gọn, không dùng Find Method, nhưng hãy coi chừng nếu ListBox bị SORT mà CSDL không thay đổi theo ListBox sẽ bị xóa sai)[/COLOR]
        [COLOR=#ff0000]Sheet1.Range("A" & MyListIndex + 2).Resize(, 7).Delete 2[/COLOR]
    End If
ExitSub:
End Sub

Với thủ tục trên, tôi đã thêm cho bạn phần xóa Record trong ListBox cũng như trong CSDL, điều này rất cần khi thao tác trên Form.

4) Thủ tục nhập chỉnh sửa:
Mã: 
Private Sub CommandButton1_Click()
    MyMsgbox = MsgBox("Ban co chac luu lai chinh sua thong tin cua ID: " & TextBox1, vbYesNo + vbQuestion, "Thông Báo")
    If MyMsgbox = vbYes Then
        Set MyRange = Range(Sheet1.[A1], Sheet1.[A65536].End(xlUp)).Find(MyListItem, LookIn:=xlValues, LookAt:=xlWhole)
        For Each MyControl In Controls
            If TypeName(MyControl) = "TextBox" Or TypeName(MyControl) = "ComboBox" Then
                For MyColumn = 0 To 6
                    If Right(MyControl.Name, 1) = MyColumn + 1 Then
                        MyRange.Offset(, MyColumn) = MyControl.Text
                        [COLOR=#ff0000][B]ListBox1.List(MyListIndex, MyColumn) = MyControl.Text[/B][/COLOR]
                    End If
                Next
            End If
        Next
    End If
    CommandButton1.Enabled = False: CommandButton2.Enabled = True
End Sub

Với dòng màu đỏ, là cập nhật chỉnh sửa tại chỗ, không phải cập nhật toàn bộ ListBox, nên sẽ không bị chớp chớp và trở về dòng đầu tiên.

Hy vọng bạn vừa ý với những thủ tục trên.

 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Không biết tại sao khi thêm cột (có sửa lại code,thêm textbox và combobox)mà nó lại không hoạt động.bạn giúp mình với,cảm ơn bạn.
 
Upvote 0
khi chỉnh sửa lại Code,hình như chỉ thêm được hai textbox hoặc combobox,đúng là không hiểu nổi.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

D
Lọc các ô có dữ liệu trùng nhau trong một cột. Xin chỉ giúp (3 người xem)
Trả lời
2
Đọc
82
dungpham01
D
Nguyenkhang2404
giúp đỡ lọc dữ liệu nâng cao (1 người xem)
Trả lời
10
Đọc
152
Phuocam
Phuocam
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (3 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
401
Đọc
48K
ongke0711
ongke0711
N
Tạo file lưu trữ dữ liệu tự động trên excel. (1 người xem)
Trả lời
13
Đọc
352
LOGANWover
L
T
VBA LẤY THÔNG TIN TRÊN TỜ KHAI NHẬP KHẨU
Trả lời
1
Đọc
98
BuiQuangThuan
B
Tienvinh191
  • Question Question
Nhờ viết Code lấy dữ liệu tờ khai hải quan vào bảng tổng hợp
    • Thích
Trả lời
29
Đọc
3K
ThanhNgoc26100
T
S
cần xử lý dữ liệu trùng nhau bằng VBA (1 người xem)
    • Cười
Trả lời
10
Đọc
327
sonminhtran
S
Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb (1 người xem)
Trả lời
9
Đọc
486
Gà Con yêu VBA
Gà Con yêu VBA
Ả
Cách tạo list Data validation không qua trung gian
Trả lời
46
Đọc
7K
thuytrangbp28
T
D
  • Question Question
xin các cao thủ trợ giúp , hoặc nhận làm code có trả phí ạ
Trả lời
15
Đọc
2K
anhdepjai
A
T
[Giúp đỡ] Sửa lỗi runtime error 1004 application defined or object defined
Trả lời
2
Đọc
111
tmhung0805
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
280
Đọc
36K
hoangtuan.net
hoangtuan.net
M
  • Question Question
[Hỏi cách tạo VBA] - Xin các cao nhân chỉ giúp cách tạo VBA cho công việc thuận tiện hơn
Trả lời
5
Đọc
255
SA_DQ
SA_DQ
dongbhhg
Hàm đếm số lượng trong khoảng thời gian cho trước
Trả lời
6
Đọc
185
thanthanhan
thanthanhan
D
  • Đã khóa
lọc các ô trong một cột chứa một nhóm dữ liệu? mong các cao thủ giải đáp giúp mình
Trả lời
6
Đọc
199
ptm0412
ptm0412
hieuxd
  • Question Question
Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết
Trả lời
27
Đọc
25K
Anh2207
A
P
In file excel có cột bị gộp
Trả lời
0
Đọc
80
ple28
P
N
  • Question Question
Tạo file lưu trữ dự liệu tự động
Trả lời
8
Đọc
284
le_vis
L
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
9
Đọc
590
ongke0711
ongke0711
V
  • Question Question
Tạo dữ liệu random cho từng sheet dựa theo dữ liệu có sẵn
Trả lời
3
Đọc
195
HieuCD
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom