Em xem file và cho ý kiến thêm thử nhé
Đú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
Tôi test hổng có bất cứ lỗi nào cả!
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)
Em đã thử
Hỏi lại:
- 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
Rắc rối quá đi mất
Sư phụ có thể vào TeamVier để can thiệp vào máy em
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ì
1. Mình nhập các số đó từ bàn phím (cũng đã kiểm tra kiểu dữ liệu)
Sub TraThep()
Dim Arr As String
Dim Rng As Range, MyRange As Range
[COLOR=#008000]'On Error Resume Next[/COLOR]
For Each Rng In Selection
If [COLOR=#ff0000][B]Val([/B][/COLOR]Rng.Value[B][COLOR=#ff0000])[/COLOR][/B] > 0 Then
Arr = TraCotThep([COLOR=#ff0000][B]Val([/B][/COLOR]Rng.Value[B][COLOR=#ff0000])[/COLOR][/B], Sheet1.Range("L3").Value, Sheet1.Range("L4").Value)
With Rng.Offset(, 3).Validation
.Delete
.Add 3, , , Arr
End With
End If
Next
End SubVẫn không được anh ạ, cái này cũng đã được thử rồi
Sub TraThep()
Dim Arr As String
Dim Rng As Range, MyRange As Range
'On Error Resume Next
For Each Rng In Selection
If [B][COLOR=#ff0000]Val[/COLOR](Rng.Value)[/B] > 0 Then
Arr = TraCotThep([B][COLOR=#ff0000]Val[/COLOR](Rng.Value), [COLOR=#ff0000]Val[/COLOR](Sheet1.Range("L3").Value), [/B][B][COLOR=#ff0000]Val[/COLOR][/B][B](Sheet1.Range("L4").Value)[/B])
With Rng.Offset(, 3).Validation
.Delete
.Add 3, , , Arr
End With
End If
Next
End SubVà cái này cũng đã từng thử rồi anh ơi.
Mỗi số liệu có nhiều nghiệm vậy bạn, các nghiệm ấy đưa vào Validation (không phải combobox) để người dùng chọn tùy ý họ để phù hợp với kết cầu họ đã thiết kế
Mình không muốn là combobox vì sử dụng nó cần đến code của file dữ liệu. Ý mình file này sau chuyển thành AddIn sẽ sử dụng được cho bất kỳ file nào (mà các file này thông không có code) nên mình sử dụng validation
Sub TraThep()
Dim Arr, Rng As Range
For Each Rng In Selection
If Val(Rng.Value) > 0 Then
Arr = TraCotThep(Val(Rng.Value), Val(Sheet1.Range("L3").Value), Val(Sheet1.Range("L4").Value))
With Rng.Offset(, 3).Validation
.Delete
.Add xlValidateList, , , Arr
End With
End If
Next
End SubKhông đúng rồi, cũng như mình nhấn Alt+F8 chạy thủ tục "TraThep" thôi
File của mình bỏ các hàm Val() rồi nhấn Alt+F8 nó không còn lỗi nữa, file Nghĩa nhấn tổ hợp phím Ctrl+Shift+W vẫn bị lỗi, nếu bỏ các hàm Val() thì nhấn Ctrl+Shift+W hết lỗi liền à
Rng.Offset(, 3)[COLOR=#ff0000].Select[/COLOR]
With [COLOR=#ff0000]Selection[/COLOR].Validation
.Delete
.Add 3, , , Arr
End WithQuá chuẩn luôn, kể cả quét chọn rồi nhấn nút vẫn chạy bình thường. Em thấy 2 cách có vẻ giống nhau, Anh có thể nói rõ hơn nguyên nhân được không?
Sub TraThep()
Dim Arr As String
Dim Rng As Range, MyRange As Range
'On Error Resume Next
For Each Rng In Selection
If Rng.Value > 0 Then
Arr = TraCotThep(Rng.Value, Sheet1.Range("L3").Value, Sheet1.Range("L4").Value)
With Rng.Offset(, 3).Validation
.Delete
[B][COLOR=#ff0000]ActiveCell.Select [/COLOR][/B]' thêm vào
.Add 3, , , Arr
End With
End If
Next
End SubSub TraThep()
If ActiveSheet.Name = "Sheet1" Then Exit Sub
Dim Arr As String, Rng As Range
[COLOR=#0000cd][B]Selection.Select[/B][/COLOR]
For Each Rng In Selection
If Val(Rng.Value) > 0 Then
Arr = TraCotThep(Val(Rng.Value), Sheet1.Range("L3").Value, Sheet1.Range("L4").Value)
With Rng.Offset(, 3).Validation
.Delete
.Add xlValidateList, , , Arr
End With
End If
Next
End SubEm cũng đang định muốn nhờ vấn đề này đây
100, Vùng để chọn cốt thép phù hợp là G5:G100 thì các bạn làm như sau:
Như anh đã nói ở bài 6, khi người ta tính toán một loạt rất nhiều mặt cắt thì mình tra từng cái 1 thì khá mất thời gian, nên trường hợp sau là tra một lúc nhiều mặt cắt
bác ơi sao bảng của bác nếu nhập giá trị là 87,8 chẳng hạn thì nó báo lỗi không xuất ra kết quả dc,nếu nhập giá trị nhỏ như 14,15 thì lại được?
1. Mình thử với số trên có trường hợp nó không có kết quả vì với diện tích trên, bạn đặt giới hạn tăng diện tích 10%, số thanh là 5 thì làm sao mà có???. Bạn thay đổi các điều kiện giới hạn thử xem
anh ơi nếu ví dụ là Fa=67.34 h=300 cm,số lượng thanh thép tối đa 14,tỷ lệ tăng diện tích 5,nếu chọn 1 loại thép kết quả nó ra 9f32 không hợp lý lắm,nếu nó có thể ra 14f25 thì hợp lý hơn? anh có thể sửa lại được không ạ?
Chẳng có gì để sửa, chỉ mở rộng vùng dữ liệu là được mà
Trong file bạn có vùng thép tính toán F'a tại P14
16, bạn muốn kết quả thép ở R14:R16 thì bạn làm như sau:
Được, nhưng mình thấy không cần thiết doem cảm ơn anh rất nhiều,anh ơi nếu bây giờ mà viết nó thành 1 phần mềm mà chỉ cần nhập các thông số M,F1,b,h,các thông số khác mà em bôi màu như trong bảng của em lập ý,để cho ra thép luôn được ko ạ hì,như thế thì quá tiện luôn
