我的作業表格是sheet1，需要的資料在sheet“W-data-ordered”中的某一行，我需要一個函式找出第一次滿足要求（q*L^2/8>0.6*Fy）的那一行的序列號，資料如下（最左邊的就是序列號）：
W(kg/m) Surf(m2) Sx(cm3) Sy(cm3) Sect(cm2) D(mm) W(mm)
1 W6x9 13.4 0.695 91.1 18.2 16.8 149.2 101.6
2 W8x10 14.9 0.797 127.9 17.4 19.2 200.0 101.6
3 W10x12 17.9 0.899 178.6 18.0 21.6 250.8 101.6
4 W6x12 17.9 0.699 120.1 24.5 22.6 152.4 101.6
5 W8x13 19.3 0.800 162.4 22.4 25.8 203.2 101.6
6 W4x13 19.3 0.603 89.5 31.1 26.0 104.8 101.6
7 W12x14 20.8 1.000 244.2 19.5 27.3 301.6 101.6
8 W10x15 22.3 0.902 226.0 23.7 29.0 254.0 101.6
9 W8x15 22.3 0.806 194.0 27.8 29.2 206.4 101.6
10 W6x15 22.3 0.902 159.2 51.0 29.0 152.4 152.4
......
我的函式如下:請問回圈怎么修改，還有地址的參考對嗎？（函式中i+4是序列號i對應的資料的的行號，5是我需要的資料的列號）
Function Frame1(Fy, q, L)
i = 1
Do While (q*L^2/8)/INDIRECT(Address(i+4,5,4,,"W-data-ordered"))<=0.6*Fy
Frame1 = i
i = i + 1
Loop
End Function
uj5u.com熱心網友回復：
Fy, q, L和資料有什么關系？q*L^2/8>0.6*Fy 和 (q*L^2/8)/INDIRECT(Address(i+4,5,4,,"W-data-ordered"))<=0.6*Fy
？？？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/134052.html
標籤：VBA