作者timohu (睡觉要关呼叫器)
看板Visual_Basic
标题[VB6 ] 有类似对照表的的写法吗？(vb资料存到EXCEL)
时间Tue Apr 24 10:27:41 2007
如果我想把每个球员的身高体重存入EXCEL
ex:
第一队的球员身高存在A,体重在B(第一个球员A1,B1,,第二个A2,B2.....)
第二队的球员身高存在C,体重在D
依此类推
有什麽写法可以写成球队代码1时就知道要放在A跟B(2==>C,D)
(下面T为球队代码)
我现在的写法很长很死@@" (excel排法是A~Z,AA~AZ,~BA~BZ........)
If T<= 13 Then
height= Chr(64 + 2 * T-1)
weight= Chr(64 + 2 * T
ElseIf T> 13 And T<= 26 Then
height= "A" & Chr(64 + 2 * (T- 13) - 1)
weight= "A" & Chr(64 + 2 * (T- 13))
ElseIf T> 26 And T<= 39 Then
height= "B" & Chr(64 + 2 * (T- 26) - 1)
weight= "B" & Chr(64 + 2 * (T- 26))
ElseIf T> 39 And T<= 52 Then
height= "C" & Chr(64 + 2 * (T- 39) - 1)
weight= "C" & Chr(64 + 2 * (T- 39))
ElseIf T> 52 And T<= 65 Then
height= "D" & Chr(64 + 2 * (T- 52) - 1)
weight= "D" & Chr(64 + 2 * (T- 52))
................................
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.87.152.130