lọc trực tiếp trên form với nhiều điều kiện (1 người xem)

vanhesing · 1/10/11

Chào cả nhà !
Hôm nay mình có 1 bài mong nhận được sự quan tâm của cả nhà .
Mình có 1 file lọc trực tiếp trên from như trong file đính kèm , mình học hỏi từ diễn đàn , tuy nhiên mình chỉ lọc được theo 1 điều kiện đó là tên thiết bị . Mình thêm 1 điều kiện nữa là mã thiết bị nhưng searrch trên diễn đàn hình như ko thấy bài nào đúng mục đích .
Mục đích của mình là những record thỏa mãn 2 trường hợp dưới đây sẽ hiển thị trên listbox .:
- trường hợp lọc 1 điều kiện (tên thiết bị or mã thiết bị )
- trường hợp lọc 1 lúc 2 điều kiện ( vừa tên thiết bị và mã thiết bị )
Thanks

vanhesing · 1/10/11

Vì đây là file demo để học hỏi , mình đã trích ra từ file của mình nên còn 1 số cái chưa delete . mọi người thông cảm

vanhesing · 1/10/11

không ai giúp mình hết .oa oa oa

ndu96081631 · 2/10/11

vanhesing đã viết:
Chào cả nhà !
Hôm nay mình có 1 bài mong nhận được sự quan tâm của cả nhà .
Mình có 1 file lọc trực tiếp trên from như trong file đính kèm , mình học hỏi từ diễn đàn , tuy nhiên mình chỉ lọc được theo 1 điều kiện đó là tên thiết bị . Mình thêm 1 điều kiện nữa là mã thiết bị nhưng searrch trên diễn đàn hình như ko thấy bài nào đúng mục đích .
Mục đích của mình là những record thỏa mãn 2 trường hợp dưới đây sẽ hiển thị trên listbox .:
- trường hợp lọc 1 điều kiện (tên thiết bị or mã thiết bị )
- trường hợp lọc 1 lúc 2 điều kiện ( vừa tên thiết bị và mã thiết bị )
Thanks

Thật ra chủ đề Filter đã có trên diễn đàn rồi... Xem cái này:
http://www.giaiphapexcel.com/forum/showthread.php?47929-Sort-mảng-2-chiều&
Với hàm Filter2DArray, bạn muốn Filter kiểu nào mà chẳng được
Tôi làm lại file cho bạn với sự trợ giúp của hàm này!
- Nếu Gõ gì đó vào từng TextBox thì ListBox sẽ filter theo điều kiện đã ghi trong từng TextBox (filter 1 điều kiện)
- Nếu bấm vào CommandButton thì sẽ filter theo 2 điều kiện (TextBox1 và TextBox2)
Code trong UserForm sẽ rất đơn giản:

PHP:

Private Sub UserForm_Initialize()
  sArray = Sheet6.Range(Sheet6.[C7], Sheet6.[K1000].End(xlUp)).Value
  ListBox1.List() = sArray
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowLong hWnd, -16, &H84C00000
End Sub

PHP:

Private Sub CommandButton3_Click()
  Dim Arr
  ListBox1.Clear
  Arr = Filter2DArray(sArray, 2, TextBox1.Text & "*", False)
  Arr = Filter2DArray(Arr, 1, TextBox2.Text & "*", False)
  If IsArray(Arr) Then ListBox1.List() = Arr
End Sub

PHP:

Private Sub TextBox1_Change()
  Dim Arr
  Arr = Filter2DArray(sArray, 2, TextBox1.Text & "*", False)
  If IsArray(Arr) Then ListBox1.List() = Arr
End Sub

PHP:

Private Sub TextBox2_Change()
    Dim Arr
    Arr = Filter2DArray(sArray, 1, TextBox2.Text & "*", False)
    If IsArray(Arr) Then ListBox1.List() = Arr
End Sub

PHP:

Private Sub UserForm_Terminate()
  Application.Visible = True
End Sub

Lưu ý: Đã dùng Application.Visible = False khi form load thì phải nhớ trả về như cũ khi thoát form nhé

ttbongdadotcom · 2/10/11

Thêm một kiến thức....

vanhesing · 2/10/11

Thanks Bác NDU, nếu mình không sử dụng nút buttton được ko ? chỉ cần gõ kí tự vào bất kỳ textbox nào , có thể 1 textbox tùy điều kiện có thể 2 textbox cùng lúc và giá trị được thỏa mãn sẽ hiện trên lisstbox không sử dụng nút button.
- 1 cái nữa em học được 1 hàm sFilter (hình như cũng của Bác )

Private Function sFilter(sRng As Range, Criteria, Optional Col As Long = 1)
Dim tmpArr, Arr, i As Long, j As Long, n As Long
On Error GoTo ExitFunc
If Criteria = "" Then
sFilter = sRng.Value
Exit Function
End If
tmpArr = sRng.Value
ReDim Arr(1 To UBound(tmpArr, 1), 1 To UBound(tmpArr, 2))
For i = 1 To UBound(tmpArr, 1)
If InStr(tmpArr(i, Col), Criteria) = 1 Then
n = n + 1
For j = 1 To UBound(tmpArr, 2)
Arr(n, j) = tmpArr(i, j)
Next j
End If
Next i
sFilter = Arr
ExitFunc:
End Function

- em thấy cái này ngắn hơn , tuy nhiên nó chỉ thỏa mãn 1textbox , vậy có cách nào sửa lại 2 tẽtbox không ? nếu có Bác vui lòng giải thích chổ đó giùm em .
Thanks Bác nhiều

ndu96081631 · 2/10/11

vanhesing đã viết:
Thanks Bác NDU, nếu mình không sử dụng nút buttton được ko ? chỉ cần gõ kí tự vào bất kỳ textbox nào , có thể 1 textbox tùy điều kiện có thể 2 textbox cùng lúc và giá trị được thỏa mãn sẽ hiện trên lisstbox không sử dụng nút button.

Đương nhiên được!
Sửa thành vầy:

PHP:

Private Sub TextBox1_Change()
  Dim Arr
  Arr = Filter2DArray(sArray, 2, TextBox1.Text & "*", False)
  Arr = Filter2DArray(Arr, 1, TextBox2.Text & "*", False)
  If IsArray(Arr) Then ListBox1.List() = Arr
End Sub

PHP:

Private Sub TextBox2_Change()
  Dim Arr
  Arr = Filter2DArray(sArray, 2, TextBox1.Text & "*", False)
  Arr = Filter2DArray(Arr, 1, TextBox2.Text & "*", False)
  If IsArray(Arr) Then ListBox1.List() = Arr
End Sub

Xóa code CommandButton3 đi...
Với code này thì:
- Gõ chuổi vào TextBox1 và bỏ trống TextBox2, sẽ lọc theo điều kiện TextBox1 (1 điều kiện)
- Gõ chuổi vào TextBox2 và bỏ trống TextBox1, sẽ lọc theo điều kiện TextBox2 (1 điều kiện)
- Gõ chuổi vào TextBox1 và TextBox2, sẽ lọc theo điều kiện 2 TextBox (2 điều kiện)
----------------------------------

vanhesing đã viết:
- 1 cái nữa em học được 1 hàm sFilter (hình như cũng của Bác )
- em thấy cái này ngắn hơn , tuy nhiên nó chỉ thỏa mãn 1textbox

Hàm Filter2DArray tôi viết nó làm được nhiều việc hơn đấy:
- Thứ nhất: nó hoạt động trên cả Range và Array
- Thứ hai: Cho phép bạn tùy chọn lấy tiêu đề hay không
- Thứ ba: Cho phép dùng các toán tử so sánh =, >, <, <> ---> Thích hợp khi lọc từ ngày.. đến ngày...
- Thứ tư: Khi lọc Text, nó dùng toán tử Like nên có thể lọc theo những điều kiện phức tạp như: Lọc các giá trị = rổng, lọc các giá trị <> rổng hoặc lọc gần đúng
Nói chung, hàm của tôi có cách hoạt động giống như công cụ Filter của Excel, còn hàm mà bạn nói là "đơn giản" ấy đúng là do tôi viết nhưng từ thuở xa xưa lắm rồi, giớ mới thấy nó chẳng làm nên được cái tích sự gì

vanhesing · 2/10/11

Chà ! Bác quả là thâm niên , em tự hỏi không biết có điều gì về excel mà bác ko biết !$@!!

hồi đó em mất cả tuần nghiên cứu hàm sfilter của bác giờ thì chắc mất gấp đôi để nghiên cứu Filter2DArray này . hihihihi
Chân thành cảm ơn Bác

vanhesing · 12/10/11

Drear Bá NDU!
Cho em hỏi hàm Filter2DArray có áp dụng vào việc chỉnh sửa dữ liệu trực tiếp trên form luôn được ko ?
em dùng hàm này để lọc thì ok rồi ( có điều hơi chậm vì vùng data em tới mấy ngàn dòng ) , sau đó em mún biến tấu thêm chức năng chỉnh sửa trên form nữa .
Thanks Bác

ndu96081631 · 12/10/11

vanhesing đã viết:
Drear Bá NDU!
Cho em hỏi hàm Filter2DArray có áp dụng vào việc chỉnh sửa dữ liệu trực tiếp trên form luôn được ko ?
em dùng hàm này để lọc thì ok rồi ( có điều hơi chậm vì vùng data em tới mấy ngàn dòng ) , sau đó em mún biến tấu thêm chức năng chỉnh sửa trên form nữa .
Thanks Bác

Là sao? tôi không hiểu lắm! chỉnh sửa dữ liệu trực tiếp trên form là thế nào?
Nói chung là hàm Filter2DArray này hoạt động trên Array nên dù dữ liệu nằm trên Form hay trên sheet đều lọc được tất

vanhesing · 12/10/11

Dear Bác !
Lọc thì ok rồi .
em có gửi kèm theo file , ở đây em xin nói thêm chút là ví dụ như em lọc 1 mã thiết bị . thì listbox sẽ hiện ra thỏa mãn yêu cầu của 2 textbox như bài #7 Bác làm cho em . Sau khi tìm được mã theo đúng yêu cầu giờ em mún sửa lại , vẫn là mã đó nhưng đổi tên khác rồi nhấn nút button nó sẽ cập nhật lại trên sheet .
Nếu được cho em thêm chức năng nữa là cập nhật mã mới .
PS : ở topic này http://www.giaiphapexcel.com/forum/showthread.php?45775-Listbox-b%E1%BB%8B-l%E1%BB%97i-khi-d%E1%BB%AF-li%E1%BB%87u-t%C4%83ng-l%C3%AAn-!!&
bài # 10 , hàm sFilter của Bác làm được 2 yêu cầu trên của em . nhưng vì Bác nói nó lâu rồi và ko hay bằng hàm Filter2DArray. mà em vẫn chưa thông được cái hàm Filter2DArray này +-+-+-+

nên nhờ Bác trợ giúp

Thanks Bác , chúc Bác buổi chiều vui vẻ

ndu96081631 · 12/10/11

vanhesing đã viết:
Dear Bác !
Lọc thì ok rồi .
em có gửi kèm theo file , ở đây em xin nói thêm chút là ví dụ như em lọc 1 mã thiết bị . thì listbox sẽ hiện ra thỏa mãn yêu cầu của 2 textbox như bài #7 Bác làm cho em . Sau khi tìm được mã theo đúng yêu cầu giờ em mún sửa lại , vẫn là mã đó nhưng đổi tên khác rồi nhấn nút button nó sẽ cập nhật lại trên sheet .
Nếu được cho em thêm chức năng nữa là cập nhật mã mới .
PS : ở topic này http://www.giaiphapexcel.com/forum/showthread.php?45775-Listbox-bị-lỗi-khi-dữ-liệu-tăng-lên-!!&
bài # 10 , hàm sFilter của Bác làm được 2 yêu cầu trên của em . nhưng vì Bác nói nó lâu rồi và ko hay bằng hàm Filter2DArray. mà em vẫn chưa thông được cái hàm Filter2DArray này nên nhờ Bác trợ giúp

Thanks Bác , chúc Bác buổi chiều vui vẻ

Ôi... lại làm lại những thứ đã cũ (lười quá) ---> Bạn cứ nghiên cứu trước đi.. thấy cũng giống với file ở đường link trên thôi mà (chỉ khác có mỗi hàm Filter2DArray)

vanhesing · 12/10/11

hic !
Em đã làm rồi , có lẻ do ko thông được hàm Filter2DArray nên em chỉ biết là thay thế chổ nòa có chữ sFilter thành Filter2DArray. (nghe có vẻ con vẹt quá !$@!!

) , nếu em nghiên cứu tới lúc mà thông được chắc hàm Filter2DArray lúc đó nó lỗi thời như sFilter quá. hihihihi.
Chắc em sử dụng lại cái sFilter của bác .

((((
Thanks Bác

ndu96081631 · 12/10/11

vanhesing đã viết:
hic !
Em đã làm rồi , có lẻ do ko thông được hàm Filter2DArray nên em chỉ biết là thay thế chổ nòa có chữ sFilter thành Filter2DArray. (nghe có vẻ con vẹt quá ) , nếu em nghiên cứu tới lúc mà thông được chắc hàm Filter2DArray lúc đó nó lỗi thời như sFilter quá. hihihihi.
Chắc em sử dụng lại cái sFilter của bác . ((((
Thanks Bác

Bạn cứ tưởng tượng hàm Filter2DArray giống như chức năng Filter của Excel ấy
Cú pháp: Filter2DArray(Vùng dữ liệu, Chỉ số cột cần Filter, Từ khóa tìm kiếm, Có lấy tiêu đề hay không)
Áp vào như khi dùng hàm trên bảng tính thôi

le tin · 12/10/11

vanhesing đã viết:
sửa lại , vẫn là mã đó nhưng đổi tên khác rồi nhấn nút button nó

Bạn bấm chỉnh sửa , sửa xong bấm Ghi , xem thử đúng ý chưa

vanhesing · 12/10/11

le tin đã viết:
Bạn bấm chỉnh sửa , sửa xong bấm Ghi , xem thử đúng ý chưa

Thanks bạn , nhưng cho mình hỏi trong file bạn sử dụng hàm sArray vậy ko biết có liên quan gì đến hàm Filter2DArray và hàm Filter2DArray có giá trị gì trong file ko ?

vanhesing · 12/10/11

ndu96081631 đã viết:
Bạn cứ tưởng tượng hàm Filter2DArray giống như chức năng Filter của Excel ấy
Cú pháp: Filter2DArray(Vùng dữ liệu, Chỉ số cột cần Filter, Từ khóa tìm kiếm, Có lấy tiêu đề hay không)
Áp vào như khi dùng hàm trên bảng tính thôi

Vâng , em sẽ xem lại , thanks Bác nhiều -=.,,

ndu96081631 · 12/10/11

vanhesing đã viết:
Thanks bạn , nhưng cho mình hỏi trong file bạn sử dụng hàm sArray vậy ko biết có liên quan gì đến hàm Filter2DArray và hàm Filter2DArray có giá trị gì trong file ko ?

File đó bạn le tin cũng dùng hàm Filter2DArray đấy
Còn sArray mà bạn nói chính là biến mảng xác định vùng dữ liệu thôi, không phải hàm gì cả
(Phải xác định dữ liệu mình là cái gì rồi mới "ráp" vào hàm được chứ)

vanhesing · 12/10/11

ndu96081631 đã viết:
File đó bạn le tin cũng dùng hàm Filter2DArray đấy
Còn sArray mà bạn nói chính là biến mảng xác định vùng dữ liệu thôi, không phải hàm gì cả
(Phải xác định dữ liệu mình là cái gì rồi mới "ráp" vào hàm được chứ)

em vẫn chưa hiểu ? em ko thấy bạn ấy sử dụng hàm Filter2DArray trong các nút button?
Vậy có phải biến mảng sArray đó chính là dữ liệu trong cú pháp Bác cho em ?!(nếu đúng thì em ngầm hiểu được vấn đề rồi )
Còn biến "iR" em thấy khai báo nhưng ko sử dụng trong hàm ? nó có ý gì ? cái này em mù **~**

Thanks Bác

ndu96081631 · 12/10/11

vanhesing đã viết:
em vẫn chưa hiểu ? em ko thấy bạn ấy sử dụng hàm Filter2DArray trong các nút button?

Filter2DArray là để lọc dữ liệu khi bạn nhập từ khóa vào TextBox, đương nhiên code phải nằm trong TextBox chứ sao lại liên quan đến Button

Mã:

Private Sub TextBox1_Change()
  Dim Arr
  Arr = [B]Filter2DArray(sArray, 2, TextBox1.Text & "*", False)[/B]
  Arr = [B]Filter2DArray(Arr, 1, TextBox2.Text & "*", False)[/B]
  If IsArray(Arr) Then ListBox1.List() = Arr
End Sub

Mã:

Private Sub TextBox2_Change()
  Dim Arr
  Arr = [B]Filter2DArray(sArray, 2, TextBox1.Text & "*", False)[/B]
  Arr = [B]Filter2DArray(Arr, 1, TextBox2.Text & "*", False)[/B]
  If IsArray(Arr) Then ListBox1.List() = Arr
End Sub

-----------------------------

vanhesing đã viết:
Vậy có phải biến mảng sArray đó chính là dữ liệu trong cú pháp Bác cho em ?!(nếu đúng thì em ngầm hiểu được vấn đề rồi )

Biến sArray chính là dữ liệu trên sheet của bạn... Nó được xác định ngay từ khi Form load:

Mã:

Private Sub UserForm_Initialize()
  Dim i As Long
  [B]sArray = Sheet6.Range(Sheet6.[C7], Sheet6.[K1000].End(xlUp)).Value[/B]
  For i = 1 To UBound(sArray)
    sArray(i, 4) = i + 6
  Next
  ListBox1.List() = sArray
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowLong hWnd, -16, &H84C00000
  Me.TextBox3.Locked = True
  Me.TextBox4.Locked = True
  Me.TextBox5.Locked = True
End Sub

Chính là vùng dữ liệu tại sheet6, tính từ cell C7 đến cell cuối cùng có dữ liệu của cột K
-------------------------------------------

vanhesing đã viết:
Còn biến "iR" em thấy khai báo nhưng ko sử dụng trong hàm ? nó có ý gì ? cái này em mù
Thanks Bác

Còn biến iR người ta lấy được khi ta chọn trên ListBox:

Mã:

Private Sub ListBox1_Click()
  Me.TextBox3 = Me.ListBox1.Column(0)
  Me.TextBox4 = Me.ListBox1.Column(1)
  Me.TextBox5 = Me.ListBox1.Column(2)
  [B]iR = Me.ListBox1.Column(3)[/B]
End Sub

sau đó dùng tại nút Ghi

Mã:

Private Sub CommandButton4_Click()
  [B]Cells(iR, 3) = Me.TextBox3
  Cells(iR, 4) = Me.TextBox4
  Cells(iR, 5) = Me.TextBox5[/B]
[B]  sArray(iR - 6, 1) = Me.TextBox3
  sArray(iR - 6, 2) = Me.TextBox4
  sArray(iR - 6, 3) = Me.TextBox5[/B]
  ListBox1.List() = sArray
End Sub

vanhesing · 13/10/11

Cho em hoi :

iR = Me.ListBox1.Column(3)

anh nói người ta lấy được khi ta chọn trên listbox ? nếu chọn column(3) của listbox thì đó là cột "F" trong worrkbook rồi . vậy thì liên quan gì ?
không hiểu câu này , em tàu hủ nhiều quá
thanks anh

ndu96081631 · 13/10/11

vanhesing đã viết:
Cho em hoi :

iR = Me.ListBox1.Column(3)

anh nói người ta lấy được khi ta chọn trên listbox ? nếu chọn column(3) của listbox thì đó là cột "F" trong worrkbook rồi . vậy thì liên quan gì ?
không hiểu câu này , em tàu hủ nhiều quá
thanks anh

Không phải vậy đâu
Bạn có để ý thấy khi Form load, bạn le tin đã tự thêm số thứ tự vào sArray ta cột thứ 4 (mục đích đánh dấu)

Mã:

Private Sub UserForm_Initialize()
  Dim i As Long
  sArray = Sheet6.Range(Sheet6.[C7], Sheet6.[K1000].End(xlUp)).Value
  [B]For i = 1 To UBound(sArray)
    sArray(i, 4) = i + 6
  Next[/B]
  ListBox1.List() = sArray
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowLong hWnd, -16, &H84C00000
  Me.TextBox3.Locked = True
  Me.TextBox4.Locked = True
  Me.TextBox5.Locked = True
End Sub

Khởi động Form xong, hãy kéo thanh trượt ngang của ListBox sẽ nhìn thấy số thứ tự này (đây cũng có thể xem là 1 cột phụ như ta làm trên bảng tính với mục đích đánh dấu vị trí)
Thật ra nếu bạn le tin khéo léo hơn 1 chút, chọn thuộc tính ColumnCount của ListBox = 3 thì bạn cũng.. hết thấy cột STT này luôn

vanhesing · 14/10/11

hôn qua em đã nghiên cứu thì em đã hiểu được phần đánh dấu này , việc hiện cột số thứ tự này cũng ko vấn đề gì , em thử mở rộng vùng data thêm 2 cột rỗng và thao tác đánh dấu cột lại như bạn letin nhưng listbox không hiện ra đúng như yêu cầu. (chỉ 1 phần data được load)
Sau đó , em làm tiếp cho nút chỉnh sửa theo biến iR thì nó đều báo lỗi ở biến iR này , hiện em đang nghiên cứu tiếp tìm nguyên nhân tại sao lại như zậy ?! mặt khác em cũng nhờ anh và letin giúp em thông được phần này
PS : file em đưa lên vùng data ít mục đích là tìm hiểu và giải quyết cho file chính của em , vì file chính của em vùng data lên đến gần 40 cột .
Chân Thành Cảm ơn

ndu96081631 · 14/10/11

vanhesing đã viết:
hôn qua em đã nghiên cứu thì em đã hiểu được phần đánh dấu này , việc hiện cột số thứ tự này cũng ko vấn đề gì , em thử mở rộng vùng data thêm 2 cột rỗng và thao tác đánh dấu cột lại như bạn letin nhưng listbox không hiện ra đúng như yêu cầu. (chỉ 1 phần data được load)
Sau đó , em làm tiếp cho nút chỉnh sửa theo biến iR thì nó đều báo lỗi ở biến iR này , hiện em đang nghiên cứu tiếp tìm nguyên nhân tại sao lại như zậy ?! mặt khác em cũng nhờ anh và letin giúp em thông được phần này
PS : file em đưa lên vùng data ít mục đích là tìm hiểu và giải quyết cho file chính của em , vì file chính của em vùng data lên đến gần 40 cột .
Chân Thành Cảm ơn

Kinh nghiệm của tôi: Khi ta thí nghiệm code trên 1 file hoàn chỉnh thì rất khó phát hiện lỗi từ đâu ra (vì quá nhiều code liên quan nhau) ---> Muốn thí nghiệm cái gì, ta nên đơn giản hóa dữ liệu bằng cách giả lập với 1 sheet nào đó... Tập trung thí nghiệm vào ngay mục tiêu mà mình quan tâm để tìm ra vấn đề ---> Làm chắc chắn tới đâu mới "ráp" vào code khác để thí nghiệm tiếp

vanhesing · 14/10/11

ndu96081631 đã viết:
Kinh nghiệm của tôi: Khi ta thí nghiệm code trên 1 file hoàn chỉnh thì rất khó phát hiện lỗi từ đâu ra (vì quá nhiều code liên quan nhau) ---> Muốn thí nghiệm cái gì, ta nên đơn giản hóa dữ liệu bằng cách giả lập với 1 sheet nào đó... Tập trung thí nghiệm vào ngay mục tiêu mà mình quan tâm để tìm ra vấn đề ---> Làm chắc chắn tới đâu mới "ráp" vào code khác để thí nghiệm tiếp

HIHIHI thanks Bác.
Em đang đi đúng hướng như Bác nói ,em đang giả lập lại file của em với vùng dữ liệu nhiều hơn tăng từ từ , hiện tại thì đã được 70 % và chưa thấy báo lỗi biến iR đó . nên em nghỉ có lẽ mấy lần trước code sai vị trí của cột .
Em có một vấn đề nữa nhờ bác giúp em luôn .khi em chọn trên listbox 1 dòng dữ liệu, sau khi chỉnh sửa xong em mún xóa dòng đó trong file và dán dòng đã chỉnh sửa trên form vào file thì làm như thế nào ? vậy thì <"cái gì ">.clearcontens !!
Thanks Bác

le tin · 14/10/11

vanhesing đã viết:
HIHIHI thanks Bác.
Em có một vấn đề nữa nhờ bác giúp em luôn .khi em chọn trên listbox 1 dòng dữ liệu, sau khi chỉnh sửa xong em mún xóa dòng đó trong file và dán dòng đã chỉnh sửa trên form vào file thì làm như thế nào ? vậy thì <"cái gì ">.clearcontens !!
Thanks Bác

Cái này đã giải quyết rồi. Nó thay đổi trên sheet lẫn trên form

vanhesing · 14/10/11

le tin đã viết:
Cái này đã giải quyết rồi. Nó thay đổi trên sheet lẫn trên form

Bác chưa hiểu ý em / trong file của em . có 3 loại hiện trang :"Hư Tốt và Chưa Rõ " (1 cột ), mỗi hiện trạng có 3 hình thức "Tồn , Nhập ,Xuất " (1 hình thức 1 cột ). ví dụ :nếu xuất 1 thiết bị hiện trang tốt thì ở cột hiện trạng sẽ có chữ "tốt " và cột hình thức xuất của thiết tốt sẽ "hiện số lượng ".
Sau đó em chỉnh sửa dòng này lại là xuất thiết bị hư , thì cột hiện trạng sẽ đổi lại chữ "Hư " và cột hình thức xuất của thiết bị hư sẽ "hiện số lượng ".
Như vậy thì ở dòng này , em có tới 2 con số , 1 con số nằm ở cột hình thức xuất thiết bị tốt và 1 con số nằm ở hình thức xuất thiết bị hư .nhưng ngưyn tắc mỗi dòng chỉ được co 1 con số xuất hiện tùy vào hiện trạng và hình thức . cho nên em mún trước khi ghi nó sẽ xóa dòng đó và áp lại dòng đã sữa trên form .

Nói tóm lại là em cần 1 dòng code để xóa dòng dữ liệu củ trước khi gán dữ liệu mới
Hơi căng !$@!!

giải thích thấy cũng hơi khó hiểu
em gửi hình Bác xem nhé

Thanks Bác

le tin · 14/10/11

Giúp bạn kiêủ này mệt thật, ai lại gởi hình minh họa khác với trong sheet và form

vanhesing · 14/10/11

le tin đã viết:
Giúp bạn kiêủ này mệt thật, ai lại gởi hình minh họa khác với trong sheet và form

SORY bạn
hình minh họa chỉ bổ sung cho giải thích của mình ở trên thôi chứ tính chất như nhau .
Với cái form củ mình gửi lên bạn làm vào đó cũng được chỉ cần : xóa dòng dữ liệu củ (được chọn trên listbox) rồi ghi dữ liệu mới lên dòng đó
Vậy thôi
Thanks

ndu96081631 · 14/10/11

vanhesing đã viết:
Với cái form củ mình gửi lên bạn làm vào đó cũng được chỉ cần : xóa dòng dữ liệu củ (được chọn trên listbox) rồi ghi dữ liệu mới lên dòng đó
Vậy thôi
Thanks

Thì người ta cũng đã làm như bạn nói rồi mà! Bạn thử chưa?

vanhesing · 14/10/11

ndu96081631 đã viết:
Thì người ta cũng đã làm như bạn nói rồi mà! Bạn thử chưa?

Tính chất của file chính em khác anh ơi , bài của letin là ghi đè lên , còn em mún xóa và ghi mới lại . bác xem bài # 27 em đã cố gắng giải thích rõ trong đó . hic

le tin · 14/10/11

vanhesing đã viết:
Tính chất của file chính em khác anh ơi , bài của letin là ghi đè lên , còn em mún xóa và ghi mới lại . bác xem bài # 27 em đã cố gắng giải thích rõ trong đó . hic

Ghi đè và xóa rồi ghi lại có gì khác đâu

vanhesing · 15/10/11

thôi . ta cancel topic này thôi . chân thành cảm ơn bạn letin và bác ndu

lọc trực tiếp trên form với nhiều điều kiện (1 người xem)

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

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên thường trực

Huyền thoại GPE

File đính kèm

Thành viên mới

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

File đính kèm

Huyền thoại GPE

Thành viên thường trực

Huyền thoại GPE

Học mãi

File đính kèm

Thành viên thường trực

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

Học mãi

Thành viên thường trực

Học mãi

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

Học mãi

Thành viên thường trực

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