Các bác xem hộ em file tính này sao không copy data được nhỉ (1 người xem)

[cmengenie]

Trên GPE em biết bác PMXD, nếu bác PMXD có nghía qua thì quan tâm chút cho em hơn nhé, còn thì nhờ vả tất cả các bác xem giúp. (quên, còn cả thầy PhantuHuong )
Gửi kèm theo đây là link tới 2 files: 1 file xuất kết quả từ phần mềm chuyên ngành (xây dựng), 1 file xử lý kết quả đó để ra cái mong muốn (thép).
http://www.mediafire.com/download.php?jn2wtybmtt0
- Máy PC của em hàng khủng, nhưng chịu cái là copy bảng bên file "Cot.xls" sang "Etabs_...xls" thì nó đơ từ sáng đến tối.
- Cái nữa là trong code VB e thấy có khai báo cả Macbt 200.250.300.350.400.450...sao khi nhập vào bên Object (Excle ấy ạ), ví dụ mác 350 thì nó báo là #value??
Mong các bác giúp cách trị nó hộ, có con Macro nào các bác trảm nó hộ em, phần lập trình thì em không biết gì. Cảm ơn các bác trước.
P/S: đó mới chỉ là 1 bảng, còn 1 bảng nữa là dầm thì thôi rồi, cả chục nghìn phần tử (tương ứng cả chục k rows). E đang bí, mong giúp đỡ từ các bác.

 

[ptm0412]

1. Trong 2 function Fcbt(macBT) và RnBT(macBT) chỉ có 1 function khai báo mác beton 350, Fcbt(macBT) không khai báo nên ra kết quả chuỗi "Lỗi, nhập lại mác BT"

Function Fcbt(macBT)
  Select Case macBT
  Case 200
    Fcbt = 190
  Case 250
    Fcbt = 240
  Case 300
    Fcbt = 285
  Case 400
    Fcbt = 380
  Case Else
    Fcbt = "Lçi.NhËp L¹i Mac BT"
  End Select
 End Function

Khi function Faltxien() tính toán, nó lấy kết quả trên cộng trừ nhân chia, gặp chuỗi thì #value# là tất yếu.

2. Các hàm sử dụng trong file Etabs... đa phần là hàm nội suy với vòng lặp Do ... Loop Until, mà lại chạy cho chục ngàn dòng nên đơ máy là phải. Copy thì không có vấn đề, khi paste vào nó tính lại từ đầu mới lâu.

 

[cmengenie]

1. Trong 2 function Fcbt(macBT) và RnBT(macBT) chỉ có 1 function khai báo mác beton 350, Fcbt(macBT) không khai báo nên ra kết quả chuỗi "Lỗi, nhập lại mác BT"

Function Fcbt(macBT)
  Select Case macBT
  Case 200
    Fcbt = 190
  Case 250
    Fcbt = 240
  Case 300
    Fcbt = 285
  Case 400
    Fcbt = 380
  Case Else
    Fcbt = "Lçi.NhËp L¹i Mac BT"
  End Select
 End Function

Khi function Faltxien() tính toán, nó lấy kết quả trên cộng trừ nhân chia, gặp chuỗi thì #value# là tất yếu.

Tức là em phải thêm vào chỗ này cho tr hợp khác nữa đúng k bác?

2. Các hàm sử dụng trong file Etabs... đa phần là hàm nội suy với vòng lặp Do ... Loop Until, mà lại chạy cho chục ngàn dòng nên đơ máy là phải. Copy thì không có vấn đề, khi paste vào nó tính lại từ đầu mới lâu.

Thậm chí cả copy cũng bị đơ, máy cài Win mới coong.
Chỉ từ khi công trình này mới bị, các công trình trước có cái cao tầng còn nhiều hơn nhiều, sao không bị bác.
Bác xem hộ em thêm nhé, cảm ơn các bác.