Dò tìm dữ liệu (1 người xem)

0167767 · 20/8/14

Yêu cầu có trong file mong các bạn giúp đỡ cám ơn các bạn nhiều.

gtri · 20/8/14

0167767 đã viết:
Yêu cầu có trong file mong các bạn giúp đỡ cám ơn các bạn nhiều.

Có lẽ là quá ít dữ liệu

peterkenvin2013 · 20/8/14

Bạn để hàm điều kiện vào ô E4 và G4, tại E4 bạn ghi =If(F4=B5,B4,""), tương tự tại G4 ghi =IF(F4=B5,B6,"")
File đính kèm bạn ghi thử số 3 vào ô F4 sẽ thấy máy tự ghi A, B vào E4 và G4

0167767 · 21/8/14

gtri đã viết:
Có lẽ là quá ít dữ liệu

VD file bài 1, mình cho chung vào 1 cột
Flie bài này thì dữ liệu nằm 2 cột (B và C), có thể dựa vào file này để làm cho bài 1 được chứ bạn.
mong muốn của mình là vậy cám ơn

Quang_Hải · 21/8/14

0167767 đã viết:
VD file bài 1, mình cho chung vào 1 cột
Flie bài này thì dữ liệu nằm 2 cột (B và C), có thể dựa vào file này để làm cho bài 1 được chứ bạn.
mong muốn của mình là vậy cám ơn

Tốn công tải cả 2 file từ 2 bài về. Bạn đánh giá quá cao về người trả lời bài rồi. Không phải ai cũng đủ thông minh để hiểu. Chẳng hạn như mình. Xem bài 1 thì đoán đoán được là tìm dữ liệu và trả về dòng trên và dòng dưới. Xem tới file bài 2 thì ngu người luôn. 2 file chả ăn nhập gì với nhau.

gtri · 21/8/14

0167767 đã viết:
VD file bài 1, mình cho chung vào 1 cột
Flie bài này thì dữ liệu nằm 2 cột (B và C), có thể dựa vào file này để làm cho bài 1 được chứ bạn.
mong muốn của mình là vậy cám ơn

Thay đổi dữ liệu, không thấy kết quả giả định mới thì làm sao giờ?

Quang_Hải · 21/8/14

gtri đã viết:
Thay đổi dữ liệu, không thấy kết quả giả định mới thì làm sao giờ?

Vậy là mình cũng có đồng minh rồi, cũng kém thông minh như mình. Cốc hiểu người ấy muốn gì.

tungnguyen_kt · 21/8/14

quanghai1969 đã viết:
Vậy là mình cũng có đồng minh rồi, cũng kém thông minh như mình. Cốc hiểu người ấy muốn gì.

Em đón mò thử xem sao.

Đây chỉ là 1 ví dụ giả định, em biết chắc chủ topic muốn áp dụng cho một trường hợp cũ thể hơn. Trong file 2 có lẽ bạn ấy muốn lấy cận trên và cận dưới, tuy nhiên khác với file 1 là căn cứ để lấy cận trên và cận dưới thì cùng 1 cột nhưng đúng ra là file 2 nó nằm ở hai côt. Ví dụ gõ số 3 thì nó sẽ nằm hàng ngang là: b 3 d

Đoán thôi hok biết đúng hay sai.

Quang_Hải · 21/8/14

tungnguyen_kt đã viết:
Em đón mò thử xem sao.

Đây chỉ là 1 ví dụ giả định, em biết chắc chủ topic muốn áp dụng cho một trường hợp cũ thể hơn. Trong file 2 có lẽ bạn ấy muốn lấy cận trên và cận dưới, tuy nhiên khác với file 1 là căn cứ để lấy cận trên và cận dưới thì cùng 1 cột nhưng đúng ra là file 2 nó nằm ở hai côt. Ví dụ gõ số 3 thì nó sẽ nằm hàng ngang là: b 3 d

Đoán thôi hok biết đúng hay sai.

Thì bài 5 anh có nói rồi, cũng đoán là lấy cận trên cận dưới. Nhưng khi nhìn file bài 2 thì hết dám đoán luôn. +-+-+-+

0167767 · 21/8/14

Mình gữi file lại các bạn giúp mình dùm, yêu cầu có trong file

VMH0307 · 21/8/14

0167767 đã viết:
Mình gữi file lại các bạn giúp mình dùm, yêu cầu có trong file

Với dữ liệu bạn gửi tại #10 thì có thể dùng công thức sau:
ô F3:

Mã:

=OFFSET($C$1,(G3-1)*4+1,)

ô H3:

Mã:

=OFFSET($C$1,(G3-1)*4+3,)

còn không có dữ liệu thật hoặc giống thật nhất thì có thể sai lệch nhé.

SA_DQ · 21/8/14

[Thongbao]Mình gữi file lại các bạn giúp mình dùm, yêu cầu có trong file[/Thongbao]

Bạn tham khảo cách xài hàm người dùng trong file

0167767 · 21/8/14

HYen17 đã viết:
[Thongbao]Mình gữi file lại các bạn giúp mình dùm, yêu cầu có trong file[/Thongbao]

Bạn tham khảo cách xài hàm người dùng trong file

Đúng rồi bạn, bạn sửa giúp dùm vì dữ liệu của mình nằm không theo nguyên tắc khi áp dụng hàm của bạn vào cũng chưa được chính xác, bạn xem file giúp mình lần nữa nhé, cám ơn bạn

concogia · 21/8/14

0167767 đã viết:
Đúng rồi bạn, bạn sửa giúp dùm vì dữ liệu của mình nằm không theo nguyên tắc khi áp dụng hàm của bạn vào cũng chưa được chính xác, bạn xem file giúp mình lần nữa nhé, cám ơn bạn

Bạn sửa lại code của "em" Hải Yến một tí tẹo:

Mã:

Function TimCap(Rng As Range, Num As Long, Optional Tren As Boolean = True)
 Dim sRng As Range
    Set sRng = Rng.Find(Num, , xlFormulas, xlWhole)
       If Not sRng Is Nothing Then
          If Tren Then
              TimCap = [COLOR=#ff0000][B]sRng.End(xlUp)[/B][/COLOR].Value
          Else
              TimCap = [COLOR=#ff0000][B]sRng.End(xlDown)[/B][/COLOR].Value
          End If
       End If
End Function

Ba Tê · 21/8/14

concogia đã viết:

Bạn sửa lại code của "em" Hải Yến một tí tẹo:

Mã:

Function TimCap(Rng As Range, Num As Long, Optional Tren As Boolean = True)
 Dim sRng As Range
    Set sRng = Rng.Find(Num, , xlFormulas, xlWhole)
       If Not sRng Is Nothing Then
          If Tren Then
              TimCap = [COLOR=#ff0000][B]sRng.End(xlUp)[/B][/COLOR].Value
          Else
              TimCap = [COLOR=#ff0000][B]sRng.End(xlDown)[/B][/COLOR].Value
          End If
       End If
End Function

Cũng coi chừng "tèo" vì:

vì dữ liệu của mình nằm không theo nguyên tắc

Dữ liệu có lúc thì liên tục không có ô trống, lúc có trống 1 vài ô ????
Híc! Bác Cò Tạc thêm 1 long nữa xem sao.
--------------------
Gởi thêm 1 cái Tò Tí Te xem sao, đúng là Lu Bu thiệt đó
[GPECODE=vb]Public Function ToTiTe(Rng As Range, Cap As Range, Optional DK As Boolean = True) As String
Dim sArr(), I As Long, Tem1 As String, Tem2 As String, LuBu As Boolean
sArr = Rng.Value
For I = 1 To UBound(sArr, 1)
If sArr(I, 1) <> "" Then
If sArr(I, 1) = Cap Then
LuBu = True
Else
If LuBu = False Then
Tem1 = sArr(I, 1)
Else
Tem2 = sArr(I, 1)
Exit For
End If
End If
End If
Next I
ToTiTe = IIf(DK = True, Tem1, Tem2)
End Function[/GPECODE]

concogia · 21/8/14

Ba Tê đã viết:
Cũng coi chừng "tèo" vì:

Dữ liệu có lúc thì liên tục không có ô trống, lúc có trống 1 vài ô ????
Híc! Tạc thêm 1 long nữa xem sao.

Híc, dữ liệu thế nào thì "tèo" vậy Ba Tê, để còn tìm cách khác "xử" nó nữa chứ
Híc, mới có 4 lon, hôm nay mệt quá ( chắc tại hôm Chủ nhật bị Ác & Tùng ép uống.......1 chai )

Ba Tê · 21/8/14

concogia đã viết:
Híc, dữ liệu thế nào thì "tèo" vậy Ba Tê, để còn tìm cách khác "xử" nó nữa chứ
Híc, mới có 4 lon, hôm nay mệt quá ( chắc tại hôm Chủ nhật bị Ác & Tùng ép uống.......1 chai )

Tác giả nói dữ liệu không có quy luật gì cả, tui hiểu là có khi nó là hàng chục ô liên tiếp nhau, có khi lại cách nhau hàng chục ô trống.
End(xlUp) hay End(xlDown) không thể đúng với cả 2 loại này được.
4 lon mà nhằm nhò gì. 4 lon chưa bằng 1 chai Vodka, hahaha

0167767 · 21/8/14

Ba Tê đã viết:
Tác giả nói dữ liệu không có quy luật gì cả, tui hiểu là có khi nó là hàng chục ô liên tiếp nhau, có khi lại cách nhau hàng chục ô trống.
End(xlUp) hay End(xlDown) không thể đúng với cả 2 loại này được.
4 lon mà nhằm nhò gì. 4 lon chưa bằng 1 chai Vodka, hahaha

Định hỏi cái sRng.End(xlUp) và sRng.End(xlDown), bác BATE đã mầm nó rồi. Giải quyết được vấn đề. thế nhưng khi chọn 1 vùng thì kết quả chưa ok lắm bác á
Bác bate giúp dùm sao mình chọn 1 vùng rộng lớn hơn thì kết quả lại sai nhé bác bate.

Quang_Hải · 21/8/14

0167767 đã viết:
Định hỏi cái sRng.End(xlUp) và sRng.End(xlDown), bác BATE đã mầm nó rồi. Giải quyết được vấn đề. thế nhưng khi chọn 1 vùng thì kết quả chưa ok lắm bác á
Bác bate giúp dùm sao mình chọn 1 vùng rộng lớn hơn thì kết quả lại sai nhé bác bate.

Nếu dùng Sub thì đơn giản hơn nhiều. Bấm cái xẹt ra hết.

0167767 · 21/8/14

Bấm cái xẹt mình cũng khoái lắm, nhưng dữ liệu trên chỉ giả lập thôi, sợ cái xẹt nó cao siêu quá mình không áp dụng vào file của mình được, cảm ơn bạn.

Quang_Hải · 21/8/14

0167767 đã viết:
Bấm cái xẹt mình cũng khoái lắm, nhưng dữ liệu trên chỉ giả lập thôi, sợ cái xẹt nó cao siêu quá mình không áp dụng vào file của mình được, cảm ơn bạn.

Thử cái này đi rồi chế biến, không có xem file, viết tạm dữ liệu đang ở cột C

PHP:

Sub QHai()
Dim data(), Res(1 To 65536, 1 To 3), i, j, k
data = Range([C2], [C65536].End(3)).Value
For i = 1 To UBound(data)
   If data(i, 1) <> "" Then
      j = j + 1
      If j = 1 Then k = k + 1
      Res(k, j) = data(i, 1)
      If j = 3 Then j = 0
   End If
Next
[I3].Resize(k, 3) = Res
End Sub

concogia · 21/8/14

0167767 đã viết:
Định hỏi cái sRng.End(xlUp) và sRng.End(xlDown), bác BATE đã mầm nó rồi. Giải quyết được vấn đề. thế nhưng khi chọn 1 vùng thì kết quả chưa ok lắm bác á
Bác bate giúp dùm sao mình chọn 1 vùng rộng lớn hơn thì kết quả lại sai nhé bác bate.

Nếu dữ liệu như bài #13 thì mấy em sRng.End(xlUp) và sRng.End(xlDown) giải quyết ổn thỏa
Dữ liệu như bài cuối thì 2 em này cũng "chơi" láng nhưng code phải thêm tí tẹo, quan trọng là dữ liệu trong bài cuối là.....thật chưa, hứ hông thôi phải sửa hoài....... +-+-+-+

Thân

Quang_Hải · 21/8/14

concogia đã viết:
Nếu dữ liệu như bài #13 thì mấy em sRng.End(xlUp) và sRng.End(xlDown) giải quyết ổn thỏa
Dữ liệu như bài cuối thì 2 em này cũng "chơi" láng nhưng code phải thêm tí tẹo, quan trọng là dữ liệu trong bài cuối là.....thật chưa, hứ hông thôi phải sửa hoài.......
Thân

Nghe anh Cò nói cũng nghi nghi nên mở file cuối xem thì hỡi ôi.. ọc ọc nữa rồi
Nhưng với code bài 21 thì chỉ lại tí tẹo thế này

PHP:

Sub QHai()
Dim data(), Res(1 To 65536, 1 To 3), i, j, k, it
data = Range([C2], [C65536].End(3)).Resize(, 5).Value
For Each it In data
   If it <> "" Then
      j = j + 1
      If j = 1 Then k = k + 1
      Res(k, j) = it
      If j = 3 Then j = 0
   End If
Next
[I3].Resize(k, 3) = Res
End Sub

0167767 · 21/8/14

Thấy code của bác bate được rồi chỉ mở rộng thêm vùng nữa là ngon các bác à. Các bác giúp dùm dùm cảm ơn các bác.

Ba Tê · 21/8/14

0167767 đã viết:
Thấy code của bác bate được rồi chỉ mở rộng thêm vùng nữa là ngon các bác à. Các bác giúp dùm dùm cảm ơn các bác.

Bạn nói nghe vui thiệt.
Sao không đưa dữ liệu giống thật ngay từ đầu, Dữ liệu của bài sau phá "banh" cái Sub trước luôn rồi.
---------------------------------

dhn46 · 21/8/14

Bạn dùng công thức nhé
Tại F3

Mã:

=LOOKUP("zzz",OFFSET($C$2,,,MATCH(G3,$C$2:$C$100,0)))

Tại H3 kết thúc bỏi Ctrl + Shift + Enter

Mã:

=INDEX($C$2:$C$100,MIN(IF(ISTEXT(OFFSET($C$2,MATCH(G3,$C$2:$C$100,0),,100)),ROW(INDIRECT(MATCH(G3,$C$2:$C$100,0)&":100")),""))+1)

0167767 · 21/8/14

Ba Tê đã viết:
Bạn nói nghe vui thiệt.
Sao không đưa dữ liệu giống thật ngay từ đầu, Dữ liệu của bài sau phá "banh" cái Sub trước luôn rồi.
---------------------------------

Lúc đầu mình nghỉ chỉ đơn giản thôi, không ngờ phức tạp đến thế. --=0

thông cảm bác nhé

Ba Tê · 21/8/14

0167767 đã viết:
Lúc đầu mình nghỉ chỉ đơn giản thôi, không ngờ phức tạp đến thế. thông cảm bác nhé

Cũng dựa vào cái cũ, nhưng cũng phải toát mồ hôi vì khi thêm nó chạy lung tung lên
[GPECODE=vb]Public Function ToTiTe(Rng As Range, Cap As Range, Optional DK As Boolean = True) As String
Dim sArr(), I As Long, J As Long, Tem1 As String, Tem2 As String, LuBu As Boolean
sArr = Rng.Value
For J = 1 To UBound(sArr, 2)
For I = 1 To UBound(sArr, 1)
If sArr(I, J) <> Empty Then
If sArr(I, J) = Cap Then
LuBu = True
Else
If LuBu = False Then
Tem1 = sArr(I, J)
Else
Tem2 = sArr(I, J)
ToTiTe = IIf(DK = True, Tem1, Tem2)
Exit For
Exit For
End If
End If
End If
Next I
LuBu = False
Next J
End Function[/GPECODE]

0167767 · 21/8/14

Ba Tê đã viết:
Cũng dựa vào cái cũ, nhưng cũng phải toát mồ hôi vì khi thêm nó chạy lung tung lên

Cảm ơn bác nhiều nhé.

Ba Tê · 21/8/14

Mà từ code bài #12 của HYen17, rồi Bác Cò sửa lại tí tẹo bài #14, rồi chỉnh lại theo file mới gọn hơn à ta?
[GPECODE=vb]Function TimCap(Rng As Range, Num As Long, Optional Tren As Boolean = True)
Dim sRng As Range
Set sRng = Rng.Find(Num, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
If Tren Then
TimCap = IIf(sRng.Offset(-1) <> Empty, sRng.Offset(-1).Value, sRng.End(xlUp).Value)
Else
TimCap = IIf(sRng.Offset(1) <> Empty, sRng.Offset(1).Value, sRng.End(xlDown).Value)
End If
End If
End Function
[/GPECODE]
Cái "ngu" của mình là lúc nào cũng For, Dic.

Quang_Hải · 22/8/14

Ba Tê đã viết:
Mà từ code bài #12 của HYen17, rồi Bác Cò sửa lại tí tẹo bài #14, rồi chỉnh lại theo file mới gọn hơn à ta?
[GPECODE=vb]Function TimCap(Rng As Range, Num As Long, Optional Tren As Boolean = True)
Dim sRng As Range
Set sRng = Rng.Find(Num, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
If Tren Then
TimCap = IIf(sRng.Offset(-1) <> Empty, sRng.Offset(-1).Value, sRng.End(xlUp).Value)
Else
TimCap = IIf(sRng.Offset(1) <> Empty, sRng.Offset(1).Value, sRng.End(xlDown).Value)
End If
End If
End Function
[/GPECODE]
Cái "ngu" của mình là lúc nào cũng For, Dic.

Học từ cái "ngu" của anh nên em "ngu" theo miếng nữa cho code gọn thêm tí nữa

PHP:

Function DoTim(rng As Range, dk As String, T As Boolean) As String
Dim F As Range
Set F = rng.Find(dk, , , 1)
If T Then DoTim = IIf(F(-0) <> "", F(-0), F.End(3))
If Not T Then DoTim = IIf(F(2) <> "", F(2), F.End(4))
End Function

Dò tìm dữ liệu (1 người xem)

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

Thành viên hoạt động

File đính kèm

Thành viên tích cực

Thành viên mới

File đính kèm

Thành viên hoạt động

File đính kèm

Thành viên gạo cội

Thành viên tích cực

Thành viên gạo cội

Thành viên gắn bó

Thành viên gạo cội

Thành viên hoạt động

File đính kèm

Girls In Your Town - No Verify - Anonymous Adult D

/(hông là gì!

File đính kèm

Thành viên hoạt động

File đính kèm

Gội rồi mới Cạo

Cạo Rồi Khỏi Gội

File đính kèm

Gội rồi mới Cạo

Cạo Rồi Khỏi Gội

Thành viên hoạt động

File đính kèm

Thành viên gạo cội

Thành viên hoạt động

Thành viên gạo cội

Gội rồi mới Cạo

Thành viên gạo cội

Thành viên hoạt động

Cạo Rồi Khỏi Gội

Hướng tới tương lai

Thành viên hoạt động

Cạo Rồi Khỏi Gội

Thành viên hoạt động

Cạo Rồi Khỏi Gội

Thành viên gạo cội

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