Hỏi nhanh - đáp nhanh về công thức (phần 1)

[Quang_Hải]

Hic, lấy cthức của Thầy Bate làm name, để cho bạn biết name ------------Anh Quang Hải đâu rồi ta, biểu diễn cho nguyencanh160890 thấy kìa!

Mấy cái này tương đối cơ bản, cứ để cho em nó bơi. Khi nào uống no nước rồi vớt lên.

 

[Good-Luck]

Hic, lấy cthức của Thầy Bate làm name, để cho bạn biết name ------------Anh Quang Hải đâu rồi ta, biểu diễn cho nguyencanh160890 thấy kìa!

dùng name cũng làm như bình thường thôi nhưng để né người dùng nhìn vào cái hàm giống như bị khủng bố , đồng thời cái name sẽ dễ cho người dùng trả lại công thức nếu lỡ tay chạm vào cell chứa công thức

 

[Quang_Hải]

Em dùng IF............

Bài này nếu xài hàm Choose sẽ khỏe hơn nhiều. Nhưng tốt nhất là tạo bảng dữ liệu rồi dùng hàm dò tìm sướng hơn. Khi cần chỉ cần điều chỉnh cái bảng dữ liệu, khỏi mất công sửa công thức.

=CHOOSE(A1,-48%,-40%,-32%,-24%,-16%,-8%,8%,16%,24%,32%,40%,48%)

 

[taimeanh]

Bạn xài code này

Sub loc()
Dim dl(), kq(), i, x, k
dl = Range([A1], [M65536].End(3)).Value
ReDim kq(1 To UBound(dl), 1 To 13)
For i = 1 To UBound(dl)
   If dl(i, 1) = 98 Then
      k = k + 1
      For x = 1 To 13
         kq(k, x) = dl(i, x)
      Next
   End If
Next
[O1].Resize(k, 13) = kq
End Sub

Em cảm ơn bác. Tuy nhiên xin bác giúp cho chút nữa đó là em yêu cầu lấy kết quả của dòng dưới bác ạ.

 

[Quang_Hải]

Em cảm ơn bác. Tuy nhiên xin bác giúp cho chút nữa đó là em yêu cầu lấy kết quả của dòng dưới bác ạ.

Phải thế này hay không?

Sub loc()
Dim dl(), kq(), i, x, k
dl = Range([A1], [M65536].End(3).Offset(1)).Value
ReDim kq(1 To UBound(dl), 1 To 13)
For i = 1 To UBound(dl) - 1
   If dl(i, 1) = 98 Then
      k = k + 1
      For x = 1 To 13
         kq(k, x) = dl(i + 1, x)
      Next
   End If
Next
[O1].Resize(k, 13).NumberFormat = "@"
[O1].Resize(k, 13) = kq
End Sub

 

[nhat chi mai]

Hic, lấy cthức của Thầy Bate làm name, để cho bạn biết name ------------Anh Quang Hải đâu rồi ta, biểu diễn cho nguyencanh160890 thấy kìa!

hihi, hôm qua em về nên không thấy Anh Chị trả lời, nhưng em mới xem file rồi, Anh(Chị) sử dụng công thức xong mới đặt vùng hix, để em ngâm cứu phần name này, trường hợp sau có dạng này em thử dùng name xem sao.
Một lần nữa cảm ơn Chị "Hồng.Vân", Anh "Quang Hải", Thầy "Ba Tê" nhiều nhiều.

 

[Ngoai Thanh]

Xin lỗi mình không xem kỹ

 

[xuantien201]

giúp em giải quyết hai cái dấu hỏi trong cái bài này với

ghi công thức giúp em với nha mấy anh..thanks nhiều

 

[Ngoai Thanh]

Phải thế này hay không?

Sub loc()
Dim dl(), kq(), i, x, k
dl = Range([A1], [M65536].End(3).Offset(1)).Value
ReDim kq(1 To UBound(dl), 1 To 13)
For i = 1 To UBound(dl) - 1
   If dl(i, 1) = 98 Then
      k = k + 1
      For x = 1 To 13
         kq(k, x) = dl(i + 1, x)
      Next
   End If
Next
[O1].Resize(k, 13).NumberFormat = "@"
[O1].Resize(k, 13) = kq
End Sub

Bạn cho mình hỏi: Nếu gán điều kiện lọc không phải số "98" mà là một Ô ví dụ :số 26 hoặc số bất kỳ tại ô N1 thì code sửa thế nào ạ ?

 

[diemhuyenanh]

làm cho bạn đây, bạn xem có đúng ý không

 

[Hong.Van]

làm cho bạn đây, bạn xem có đúng ý không

Nếu B2 là 100 bao thì sao? hoặc có nhiều đơn vị tính là Kg ...
Nói chung cách bố trí dữ liệu của chủ đề tài khác người nên cách của bạn chưa tổng quát
Thân!

 

[hungpecc1]

ghi công thức giúp em với nha mấy anh..thanks nhiều

Nếu đơn vị của số lượng và đơn giá không đổi thì bạn thử nhập vào ô D2 công thức sau xem thế nào :

=REPLACE(B2,FIND("bao",B2),3,"")*REPLACE(C2,FIND("đồng",C2),4,"")

 

[dhn46]

Với dạng bài hỏi chung chung không đưa đầy đủ các dạng dữ liệu này thì ... đoán mò vậy, bạn thử cái này đi

=LEFT(B2,COUNT(MID(B2,ROW(INDIRECT("1:"&LEN(B2))),1)*1))*LEFT(C2,COUNT(MID(C2,ROW(INDIRECT("1:"&LEN(C2))),1)*1))

Kết thúc bằng Ctrl + Shift + Enter

 

[lq177]

Nếu đơn vị của số lượng và đơn giá không đổi thì bạn thử nhập vào ô D2 công thức sau xem thế nào :

=REPLACE(B2,FIND("bao",B2),3,"")*REPLACE(C2,FIND("đồng",C2),4,"")

Hoặc bằng công thức này cũng được:

=--SUBSTITUTE(B2,"bao","")*--SUBSTITUTE(C2,"đồng","")

 

[olegtran]

Với dạng bài hỏi chung chung không đưa đầy đủ các dạng dữ liệu này thì ... đoán mò vậy, bạn thử cái này đi

Kết thúc bằng Ctrl + Shift + Enter

Sao lại phức tạp hóa các vấn đề đơn giản nhỉ? Tốt nhất là bạn hướng dẫn bạn Xuantien201 biết phân biệt dữ liệu text và mumber thế là xong.

 

[lq177]

Sao lại phức tạp hóa các vấn đề đơn giản nhỉ? Tốt nhất là bạn hướng dẫn bạn Xuantien201 biết phân biệt dữ liệu text và mumber thế là xong.

Bạn ơi nhưng ng ta muốn có cả text và number cơ mà?

 

[kimloan96.414]

làm cho bạn đây, bạn xem có đúng ý không

Như vậy không ổn bạn ơi! Lỡ như số lượng 100,1000 ...bao thì sao? và đơn giá không phải là 3 chử số mà 4,.....10 chử số thì sao?

 

[lq177]

Như vậy không ổn bạn ơi! Lỡ như số lượng 100,1000 ...bao thì sao? và đơn giá không phải là 3 chử số mà 4,.....10 chử số thì sao?

Thì dùng công thức của bài #4, #5, #6

 

[kimloan96.414]

Cái gì thì cũng phải có tính "đại chúng" chứ bác !

 

[lq177]

Cái gì thì cũng phải có tính "đại chúng" chứ bác !

Ý mình là sử dụng công thức của bài #4, #5, #6, rất là đại chúng mà, và tất nhiên là đơn vị không thay đổi