[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 2chのread.cgiへ]
Update time : 08/01 06:58 / Filesize : 189 KB / Number-of Response : 699
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Excel VBA 質問スレ Part15



122 名前:デフォルトの名無しさん mailto:sage [2010/04/24(土) 12:00:21 ]
みなさんのお知恵を、お貸しください。
下のようなif文を書いているのですが、まるで能が無くて、書いてて悲しいです。

nの中心付近を整数で求めたいんです。
下の例ではn=16ですが、実は250以上あったりして、これを全部手打ちで書いています。
何か規則正しいので、計算式で求められそうなのですが、うまく考えられません。
n=0, n=1は、if文で振り分けて、それ以上がなんとかならないかと。

    If (n = 0) Then c = 0
  ElseIf (n = 1) Then c = 0
  ElseIf (n = 2) Then c = 2
  ElseIf (n = 3) Then c = 2
  ElseIf (n = 4) Then c = 3
  ElseIf (n = 5) Then c = 3
  ElseIf (n = 6) Then c = 4
  ElseIf (n = 7) Then c = 4
  ElseIf (n = 8) Then c = 5
  ElseIf (n = 9) Then c = 5
  ElseIf (n = 10) Then c = 6
  ElseIf (n = 11) Then c = 6
  ElseIf (n = 12) Then c = 7
  ElseIf (n = 13) Then c = 7
  ElseIf (n = 14) Then c = 8
  ElseIf (n = 15) Then c = 8

板汚し、すみません。






[ 続きを読む ] / [ 携帯版 ]

全部読む 前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<189KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef