Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3255 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
上記の式を入れたら、思ったとおりの値が取得できましたが、
これを、ＶＢＡのｺｰﾄﾞに表すにはどうすればよいのでしょうか？

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

どうか、よろしくお願いします
【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 -
引用なし
パスワード
   ▼ぴかる さん：
>こうかな？

ありがとうございました

解決しました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3255 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free