Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3236 / 13646 ツリー ←次へ | 前へ→

【63385】数字の取得 まい 09/10/30(金) 12:12 質問[未読]
【63387】Re:数字の取得 ぴかる 09/10/30(金) 12:36 回答[未読]
【63388】Re:数字の取得 まい 09/10/30(金) 13:04 質問[未読]
【63390】Re:数字の取得 ぴかる 09/10/30(金) 13:31 発言[未読]
【63392】Re:数字の取得 まい 09/10/30(金) 13:55 お礼[未読]

【63385】数字の取得
質問  まい  - 09/10/30(金) 12:12 -

引用なし
パスワード
   どうしても、分からなくて悪戦苦闘しております

下記の様に認識させるにはどうしたらいいでしょうか?

数字は7から始まります

7  ⇒ 7 と認識させる
8  ⇒ 7 と認識させる 
9  ⇒ 8 と認識させる  
10 ⇒ 8 と認識させる  
11 ⇒ 9 と認識させる  
12 ⇒ 9 と認識させる  
13 ⇒ 10 と認識させる 
14 ⇒ 10 と認識させる 
15 ⇒ 11 と認識させる 
16 ⇒ 11 と認識させる 
17 ⇒ 12
18 ⇒ 12
... 
まだまだ数字は続きます…

どうかアドバイスお願いします

【63387】Re:数字の取得
回答  ぴかる  - 09/10/30(金) 12:36 -

引用なし
パスワード
   まいさん、こんにちは。

こんな数式でいかがですか?
=ROUNDDOWN((A1-7)/2,0)+7

【63388】Re:数字の取得
質問  まい  - 09/10/30(金) 13:04 -

引用なし
パスワード
   ▼ぴかる さん:

ありがとうございます

>=ROUNDDOWN((A1-7)/2,0)+7
上記の式を入れたら、思ったとおりの値が取得できましたが、
これを、VBAのコードに表すにはどうすればよいのでしょうか?

取得した値を変数として扱いたいのです

どうか、よろしくお願いします

【63390】Re:数字の取得
発言  ぴかる  - 09/10/30(金) 13:31 -

引用なし
パスワード
   こうかな?

Sub サンプル()

  For I = 7 To 20
    MsgBox "元数字[" & I & "]は、[" & Application.RoundDown((I - 7) / 2, 0) + 7 & "]となります。"
  Next

End Sub

【63392】Re:数字の取得
お礼  まい  - 09/10/30(金) 13:55 -

引用なし
パスワード
   ▼ぴかる さん:
>こうかな?

ありがとうございました

解決しました

3236 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free