Chương trình chọn thép theo diện tích.

[ptlong04x1]

Mình sưu tầm được chương trình chọn thép khi biết diện tích, chương trình đưa ra nhiều phương án lựa chọn phối hợp các Phi thép cho cùng 1 diện tích thép. Chân thành cảm ơn tác giả Đỗ Tuấn Phong.

 

[pham van an]

em không hiểu, giờ có 1 bảng tra thép. Giờ làm trong excel. muốn tìm ra các phương án mà có diện tích cốt thép lớn hơn giá trị cho trước có được không (nhưng khống chế chênh lệch không được quá 10% chẳng hạn)

 

[viehoai]

em không hiểu, giờ có 1 bảng tra thép. Giờ làm trong excel. muốn tìm ra các phương án mà có diện tích cốt thép lớn hơn giá trị cho trước có được không (nhưng khống chế chênh lệch không được quá 10% chẳng hạn)

Em xem file và cho ý kiến thêm thử nhé

 

[pham van an]

Chuẩn rồi anh Hoài ơi. Nhưng chổ Th chọn, Fa chọn, và tỷ lệ chênh lệch anh chưa làm phải không?

 

[viehoai]

Chuẩn rồi anh Hoài ơi. Nhưng chổ Th chọn, Fa chọn, và tỷ lệ chênh lệch anh chưa làm phải không?

Đúng rồi nhưng những cái đó thừa sức em làm được mà. Cần thiết anh tải file khác lên
Bổ sung:
- Sau khi nhập Fa (diện tích tính toán) nhấn nút "TRA THÉP" hoặc nhấn phím Enter con trỏ vẫn vị trí nhập Fa để bạn nhập tiếp
- Thể hiện diện tích cốt thép, và tỷ lệ diện tích chọn so với diện tích tính toán

 

[viehoai]

Trong trường hợp tra nhiều diện tích cùng môt lúc thì tôi làm như thé này bị lỗi. Mong các anh chị xem giúp
- Quét vùng A2:A10
- Nhấn nút Test - Code bị lỗi
Mục đích đưa kết quả tra cứu được thành Validation để người dùng chọn phương án thép thích hợp ở cột D

 

[ndu96081631]

Trong trường hợp tra nhiều diện tích cùng môt lúc thì tôi làm như thé này bị lỗi. Mong các anh chị xem giúp
- Quét vùng A2:A10
- Nhấn nút Test - Code bị lỗi
Mục đích đưa kết quả tra cứu được thành Validation để người dùng chọn phương án thép thích hợp ở cột D

Có thấy bị lỗi gì đâu chứ? Bạn nói rõ chút đi

 

[viehoai]

Có thấy bị lỗi gì đâu chứ? Bạn nói rõ chút đi

Báo lỗi tại hàng có code: .Add 3, , , Arr
Xin các anh chị giúp đỡ

 

[ndu96081631]

Báo lỗi tại hàng có code: .Add 3, , , Arr
Xin các anh chị giúp đỡ

Tôi test hổng có bất cứ lỗi nào cả!
Xin hỏi: Bạn dùng Office version nào? Nếu là Office 2003 thì Validation có giới hạn, cụ thể là độ dài chuổi không được vượt quá 255 ký tự ---> Bạn kiểm tra lại xem

 

[viehoai]

Tôi test hổng có bất cứ lỗi nào cả!
Xin hỏi: Bạn dùng Office version nào? Nếu là Office 2003 thì Validation có giới hạn, cụ thể là độ dài chuổi không được vượt quá 255 ký tự ---> Bạn kiểm tra lại xem

Dạ, em đang dùng office 2003 nhưng chuỗi không đến nỗi dài đến 255 ký tự được (vì tính sơ qua 1 phần tử 9 ký tự, cộng ký tự "," nữa là 10 như vậy chuỗi của em ít nhất cũng được 25 phần tử như thế, khó đạt đến điều này)
Đúng là em test trên Excel 2007 không bị lỗi, lạ thật

 

[ndu96081631]

Dạ, em đang dùng office 2003 nhưng chuỗi không đến nỗi dài đến 255 ký tự được (vì tính sơ qua 1 phần tử 9 ký tự, cộng ký tự "," nữa là 10 như vậy chuỗi của em ít nhất cũng được 25 phần tử như thế, khó đạt đến điều này)
Đúng là em test trên Excel 2007 không bị lỗi, lạ thật

Bạn kiểm tra thế này nhé:
- Gõ hàm TraCotThep trực tiếp lên sheet rồi dùng hàm LEN kiểm tra độ dài chuổi xem nó dài bao nhiêu?
- Xong, copy giá trị chuổi nhận được rồi Add bằng tay vào Validation xem "nó" có cự nự gì không

 

[viehoai]

Bạn kiểm tra thế này nhé:
- Gõ hàm TraCotThep trực tiếp lên sheet rồi dùng hàm LEN kiểm tra độ dài chuổi xem nó dài bao nhiêu?
- Xong, copy giá trị chuổi nhận được rồi Add bằng tay vào Validation xem "nó" có cự nự gì không

Em đã thử
- Chuỗi có độ dài lớn nhất là 93
- Thay thế chuỗi có ký tự "," thành ";" và Copy chuỗi add vào Validation thì vẫn được bình thường
(em cũng đã thử thay đổi hàm Join(ArrKQ, ";") vẫn không được)

 

[ndu96081631]

Em đã thử
- Chuỗi có độ dài lớn nhất là 93
- Thay thế chuỗi có ký tự "," thành ";" và Copy chuỗi add vào Validation thì vẫn được bình thường
(em cũng đã thử thay đổi hàm Join(ArrKQ, ";") vẫn không được)

Hỏi lại:
- Nếu bạn không sửa dấu phẩy thành dấu chấm phẩy, cứ để nguyên vậy copy và Add vào Validation thì có lỗi gì không?
- Trong code của hàm TraCotThep, nếu bạn sửa đoạn TraCotThep = Join(ArrKQ, ",") thành TraCotThep = Join(ArrKQ, ";") thì code có lỗi không?

 

[viehoai]

Hỏi lại:
- Nếu bạn không sửa dấu phẩy thành dấu chấm phẩy, cứ để nguyên vậy copy và Add vào Validation thì có lỗi gì không?
- Trong code của hàm TraCotThep, nếu bạn sửa đoạn TraCotThep = Join(ArrKQ, ",") thành TraCotThep = Join(ArrKQ, ";") thì code có lỗi không?

- Nếu không sửa dấu phẩy thành dấu chấm phẩy, cứ để nguyên vậy copy và Add vào Validation thì có lỗi
- Trong code của hàm TraCotThep, nếu sửa đoạn TraCotThep = Join(ArrKQ, ",") thành TraCotThep = Join(ArrKQ, ";") thì code vẫn có lỗi (em nghĩ cái này không quan trọng, nếu dấu sai khác trở thành Validation 1 phần tử)

 

[ndu96081631]

- Nếu không sửa dấu phẩy thành dấu chấm phẩy, cứ để nguyên vậy copy và Add vào Validation thì có lỗi
- Trong code của hàm TraCotThep, nếu sửa đoạn TraCotThep = Join(ArrKQ, ",") thành TraCotThep = Join(ArrKQ, ";") thì code vẫn có lỗi (em nghĩ cái này không quan trọng, nếu dấu sai khác trở thành Validation 1 phần tử)

Rắc rối quá đi mất
Tiếc là tôi không ngồi trên máy bạn, nếu không tôi tin rằng có thể biết được đó là lỗi gì
Vấn đề độ dài ký tự ta loại ra (vì chuổi của bạn không vượt quá 255). Vậy ta có thể nghĩ đến dấu phân cách. Bạn thử vào Control Panel, cho mọi thứ trở về mặc định như lúc mới cài Windows xem (tức dấu thập phân là dấu chấm, dấu phân cách ngàn là dấu phẩy, dấu phân cách công thức là dấu phẩy)... xong thử lại code!
(Tôi dùng Windows 7, Office 2010, có vài thứ không giống trên máy của bạn)

 

[viehoai]

Rắc rối quá đi mất
Tiếc là tôi không ngồi trên máy bạn, nếu không tôi tin rằng có thể biết được đó là lỗi gì
Vấn đề độ dài ký tự ta loại ra (vì chuổi của bạn không vượt quá 255). Vậy ta có thể nghĩ đến dấu phân cách. Bạn thử vào Control Panel, cho mọi thứ trở về mặc định như lúc mới cài Windows xem (tức dấu thập phân là dấu chấm, dấu phân cách ngàn là dấu phẩy, dấu phân cách công thức là dấu phẩy)... xong thử lại code!
(Tôi dùng Windows 7, Office 2010, có vài thứ không giống trên máy của bạn)

Sư phụ có thể vào TeamVier để can thiệp vào máy em

 

[ndu96081631]

Sư phụ có thể vào TeamVier để can thiệp vào máy em

Xin lỗi, máy tôi không cài món này và trước giờ cũng chưa từng xài luôn
Hình như sư phụ Mỹ có đấy, bạn hỏi thử xem

 

[Hoàng Trọng Nghĩa]

Rắc rối quá đi mất
Tiếc là tôi không ngồi trên máy bạn, nếu không tôi tin rằng có thể biết được đó là lỗi gì
Vấn đề độ dài ký tự ta loại ra (vì chuổi của bạn không vượt quá 255). Vậy ta có thể nghĩ đến dấu phân cách. Bạn thử vào Control Panel, cho mọi thứ trở về mặc định như lúc mới cài Windows xem (tức dấu thập phân là dấu chấm, dấu phân cách ngàn là dấu phẩy, dấu phân cách công thức là dấu phẩy)... xong thử lại code!
(Tôi dùng Windows 7, Office 2010, có vài thứ không giống trên máy của bạn)

Test thấy rất bình thường, đã thử chuyển dấu phân cách từ dấu chấm thành dấu phẩy từ Control Panel ... cũng ... bình thường luôn!

Chẳng thấy lỗi nào phát sinh cho dù mình thử hàng chục dòng có giá trị lớn hơn 0 hay 1 dòng vậy tại sao ta?

 

[viehoai]

Test thấy rất bình thường, đã thử chuyển dấu phân cách từ dấu chấm thành dấu phẩy từ Control Panel ... cũng ... bình thường luôn!

Chẳng thấy lỗi nào phát sinh cho dù mình thử hàng chục dòng có giá trị lớn hơn 0 hay 1 dòng vậy tại sao ta?

Anh test trên excel 2003 đấy chứ? Lạ thật code đơn giản thế mà vẫn không tìm ra lỗi gì

 

[Hoàng Trọng Nghĩa]

Sư phụ có thể vào TeamVier để can thiệp vào máy em

Có thể bạn bị các trường hợp sau:

1) Số liệu ở dạng có dấu nháy trước số, như '39

2) Ô select chứa chuỗi!