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

Liên hệ QC
Status
Không mở trả lời sau này.
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.
 
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
 
Lần chỉnh sửa cuối:

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%)
 
Lần chỉnh sửa cuối:
Bạn xài code này
PHP:
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 ạ.
 
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?
PHP:
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
 
Lần chỉnh sửa cuố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!


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./-*+//-*+//-*+/
 
Xin lỗi mình không xem kỹ
 
Lần chỉnh sửa cuối:
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
 

File đính kèm

  • Book1.xls
    13.5 KB · Đọc: 31
Phải thế này hay không?
PHP:
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 ạ ?
 
Lần chỉnh sửa cuối:
làm cho bạn đây, bạn xem có đúng ý không
 

File đính kèm

  • Bản sao của Book1-1.xls
    22 KB · Đọc: 29
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
 
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.
 
Cái gì thì cũng phải có tính "đại chúng" chứ bác !
 
Status
Không mở trả lời sau này.
Web KT
Back
Top Bottom