作者icene (kkk)
看板Visual_Basic
标题Re: [VB6 ] 有类似对照表的的写法吗？(vb资料存到E …
时间Wed Apr 25 22:52:06 2007
If T<= 13 Then
: height= =Chr(2*(MOD(T-1,13))+65)
: weight= Chr(2*(MOD(T-1,13))+66)
: Else
height= =Chr(INT(T/14)+64) & Chr(2*(MOD(T-1,13))+65)
: weight= Chr(INT(T/14)+64) & Chr(2*(MOD(T-1,13))+66)
End if
MOD 是EXCEL 取余数的函数
INT 是无条件舍去的函数
※ 引述《timohu (睡觉要关呼叫器)》之铭言：
: 如果我想把每个球员的身高体重存入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: 61.217.211.18