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

Status
Không mở trả lời sau này.

quanghai1969

Thành viên gạo cội
Tham gia ngày
21 Tháng hai 2009
Bài viết
5,711
Được thích
7,240
Điểm
860
Nơi ở
Thuận An, Bình Dương
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

Thành viên tiêu biểu
Tham gia ngày
21 Tháng tư 2010
Bài viết
595
Được thích
922
Điểm
0
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:

quanghai1969

Thành viên gạo cội
Tham gia ngày
21 Tháng hai 2009
Bài viết
5,711
Được thích
7,240
Điểm
860
Nơi ở
Thuận An, Bình Dương
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:

taimeanh

Thành viên mới
Tham gia ngày
31 Tháng ba 2009
Bài viết
21
Được thích
32
Điểm
665
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 ạ.
 

quanghai1969

Thành viên gạo cội
Tham gia ngày
21 Tháng hai 2009
Bài viết
5,711
Được thích
7,240
Điểm
860
Nơi ở
Thuận An, Bình Dương
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:

nhat chi mai

Thành viên gắn bó
Tham gia ngày
22 Tháng mười một 2011
Bài viết
1,832
Được thích
8
Điểm
0
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./-*+//-*+//-*+/
 

xuantien201

Thành viên mới
Tham gia ngày
14 Tháng mười hai 2012
Bài viết
6
Được thích
0
Điểm
0
Tuổi
27
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

Ngoai Thanh

Cánh Diều xanh
Tham gia ngày
14 Tháng sáu 2012
Bài viết
823
Được thích
905
Điểm
560
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:

hungpecc1

Thành viên gắn bó
Tham gia ngày
24 Tháng tám 2012
Bài viết
1,638
Được thích
2,238
Điểm
560
Tuổi
34
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 :
PHP:
=REPLACE(B2,FIND("bao",B2),3,"")*REPLACE(C2,FIND("đồng",C2),4,"")
 

dhn46

Hướng tới tương lai
Tham gia ngày
1 Tháng ba 2011
Bài viết
3,250
Được thích
3,838
Điểm
560
Nơi ở
Hải Phòng
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

Thành viên thường trực
Tham gia ngày
22 Tháng tư 2010
Bài viết
203
Được thích
132
Điểm
695
Tuổi
33

olegtran

Thành viên hoạt động
Tham gia ngày
4 Tháng mười một 2009
Bài viết
140
Được thích
68
Điểm
680
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.
 
Status
Không mở trả lời sau này.
Top Bottom