Lập trình thêm lệnh trong Excel?

[ceibga]

Chào cả nhà, tôi đang có 1 vấn đề như sau: Tôi có 1 file excel, trong đó có sử dụng những lệnh rất lạ, file này dùng để tra cường độ thép theo loại thép và bêtông theo mác.
VD ô F26 (mác bêtông) có ghi: 300
thì ở ô G26 (cường độ chịu kéo): =rkbt(f26) -> 10
Ô H26 (cường độ chịu nén ) : = rnbt(f26) ->130
Vậy 2 lệnh ở H26 và G26 là cái j vậy? Cả nhà có thể giải thích cho tôi được ko ạ? đó có phải là lệnh lập trình thêm? Cả file chỉ có duy nhất 1 sheet, chắc ko thể là tra bảng trong sheet khác được. đây là file của tôi, các bác xem dùm

 

[cadafi]

Chào cả nhà, tôi đang có 1 vấn đề như sau: Tôi có 1 file excel, trong đó có sử dụng những lệnh rất lạ, file này dùng để tra cường độ thép theo loại thép và bêtông theo mác.
VD ô F26 (mác bêtông) có ghi: 300
thì ở ô G26 (cường độ chịu kéo): =rkbt(f26) -> 10
Ô H26 (cường độ chịu nén ) : = rnbt(f26) ->130
Vậy 2 lệnh ở H26 và G26 là cái j vậy? Cả nhà có thể giải thích cho tôi được ko ạ? đó có phải là lệnh lập trình thêm? Cả file chỉ có duy nhất 1 sheet, chắc ko thể là tra bảng trong sheet khác được. đây là file của tôi, các bác xem dùm:
http://www.esnips.com/nsdoc/06b21b0d-5972-4994-b2f3-eddcbfe93c84/?action=forceDL

File của bạn không down được! Sao bạn không gửi thẳng lên đây luôn!
Theo mình, đây là các hàm tự tạo (UDF). Bạn ấn Alt+F11 để xem các hàm đó nhé (nếu không bị protect bởi VBA password).

 

[BNTT]

Tôi chưa xem file của bạn (vì nói thiệt, tôi không thích phải đăng ký cái gì hết...)
Nhưng xem qua bài bạn viết, thì đó chính là những HÀM TỰ TẠO (User define function). Chúng ta có thể tạo thêm những hàm riêng để sử dụng. Những hàm này thường là nằm trong Visual Basic. Bạn nhấn thử F11, các hàm bạn kể trên có thể nằm trong đó.

 

[ndu96081631]

Chào cả nhà, tôi đang có 1 vấn đề như sau: Tôi có 1 file excel, trong đó có sử dụng những lệnh rất lạ, file này dùng để tra cường độ thép theo loại thép và bêtông theo mác.
VD ô F26 (mác bêtông) có ghi: 300
thì ở ô G26 (cường độ chịu kéo): =rkbt(f26) -> 10
Ô H26 (cường độ chịu nén ) : = rnbt(f26) ->130
Vậy 2 lệnh ở H26 và G26 là cái j vậy? Cả nhà có thể giải thích cho tôi được ko ạ? đó có phải là lệnh lập trình thêm? Cả file chỉ có duy nhất 1 sheet, chắc ko thể là tra bảng trong sheet khác được. đây là file của tôi, các bác xem dùm:
http://www.esnips.com/nsdoc/06b21b0d-5972-4994-b2f3-eddcbfe93c84/?action=forceDL

Chưa tải được file của bạn nhưng có thể đoán mấy lệnh ấy là HÀM TỰ TẠO (do người ta tạo ra, không có trong bộ hàm của Excel) ---> Bạn có thể bấm Alt + F11 để vào xem cách người ta xây dựng hàm (nếu như người ta không khóa pass)

 

[Po_Pikachu]

Tôi chưa xem file của bạn (vì nói thiệt, tôi không thích phải đăng ký cái gì hết...) Nhưng xem qua bài bạn viết, thì đó chính là những HÀM TỰ TẠO (User define function). Chúng ta có thể tạo thêm những hàm riêng để sử dụng. Những hàm này thường là nằm trong Visual Basic. Bạn nhấn thử F11, các hàm bạn kể trên có thể nằm trong đó.

Đúng vậy, nhưng cũng phải có ai hy sinh chứ nhỉ? Đây là file của bạn ấy đây. Là UDF nhưng có vẻ viết không được hay lắm nhỉ! Vì code dài và lượm thượm quá. Mọi người xem code sẽ hiểu. Thân.

 

[ChanhTQ@]

Mình nghĩ có thể rút gọn hai hàm này lại được!

VD ô F26 (mác bêtông) có ghi: 300
thì ở ô G26 (cường độ chịu kéo): =rkbt(f26) -> 10
Ô H26 (cường độ chịu nén ) : = rnbt(f26) ->130
Vậy 2 lệnh ở H26 và G26 là cái j vậy? Cả nhà có thể giải thích cho tôi được ko ạ?

Private Function RnBT(MacBT) ' C­êng ®é tÝnh to¸n chÞu nÐn cña bª t«ng'
    Select Case MacBT
        Case 150
            RnBT = 65
        Case 200
           RnBT = 90
        Case 250
            RnBT = 110
        Case 300
            RnBT = 130
        Case 350
            RnBT = 155
        Case 400
            RnBT = 170
        Case 500
            RnBT = 215
        Case 600
            RnBT = 250
        Case Else
            RnBT = "Không đúng mác bê tông"
    End Select
End Function

Private Function RkBT(MacBT) ' C­êng ®é tÝnh to¸n chÞu kÐo cña bª t«ng
    Select Case MacBT
        Case 150
            RkBT = 6
        Case 200
            RkBT = 7.5
        Case 250
            RkBT = 8.8
        Case 300
            RkBT = 10
        Case 350
            RkBT = 11
        Case 400
            RkBT = 12
        Case 500
            RkBT = 13.4
        Case 600
            RkBT = 14.5
        Case Else
            RkBT = "Không đúng mác bê tông"
    End Select
End Function

 

[ceibga]

Hic, cám ơn cả nhà ạ, em cũng muốn up lên đây lắm, nhưng của file của e lớn hơn cho phép của diễn đàn, nên đành up lên Esnip.com, em vẫn down được mà , các bác chỉ cần nháy vào đường link đó, hoặc là copy, paste vào IDM là ok.

Đúng vậy, nhưng cũng phải có ai hy sinh chứ nhỉ?
Đây là file của bạn ấy đây. Là UDF nhưng có vẻ viết không được hay lắm nhỉ! Vì code dài và lượm thượm quá. Mọi người xem code sẽ hiểu.
Thân.

Hì, em cám ơn cả nhà nhiều lắm ạ, chả là thầy giáo e đang giao nhiệm vụ cho e lập trình 1 file excel tự động tính toán, chỉ cần đưa dữ liệu tải trọng đầu vào là sẽ tự tính đến tận cuối luôn, mấy hôm nay em đau đầu quá , may mà có các bác giúp .