Excel VBA質問箱 IV

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

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


50715 / 76732 ←次へ | 前へ→

【30902】Re:高校の情報Bの範囲
発言  夜中まで考えたい  - 05/11/6(日) 21:07 -

引用なし
パスワード
   ▼Roi さん:

宿題、間に合いますか?私なりの偏見で作ってみました。
>     'Dim n As Integer
>Dim Ans As Integer
Ans = 1  '・・・nは1からスタート
>Do until Ans = 300 '・・・答えが300まで
       'Do While (Ans >= 300)
>      ’n = n + 1

>Ans = Ans + 1 ’・・・1ずつ足して
>Loop
 Msgbox(Ans)
>    'MsgBox (n)
>End Sub

>
>自分なりに考えた結果、こうなりました。でもnは0となってしまいます。

私なりに考えた結果、こうなりました。あなたのコードを少しだけ変えました。
貼り付けて「>」を取ってください。「’」はコメント処理しています。
・・・貴重な貴方のコードを残すためです。
これで宿題にまにあいますか?

次はIfのコードの作成をされては?私も考えるから。今月63歳になるので、
また闘志が湧きそうです。

もし数字の変化が見たかったら「Range("A1") = Ans」を

Ans=1の次の行と
Ans=Ans+1の次の行に入れると動きが分かるのでは?
F8を叩いて調べてみてください。

識者が沢山おられるので遠慮せず聞きつづけられては如何でしょう。

3 hits

【30852】高校の情報Bの範囲 Roi 05/11/5(土) 23:45 質問
【30855】Re:高校の情報Bの範囲 角田 05/11/6(日) 0:48 発言
【30890】Re:高校の情報Bの範囲 Roi 05/11/6(日) 19:25 お礼
【30856】Re:高校の情報Bの範囲 ponpon 05/11/6(日) 1:01 発言
【30891】Re:高校の情報Bの範囲 Roi 05/11/6(日) 19:25 お礼
【30892】Re:高校の情報Bの範囲 Roi 05/11/6(日) 19:32 質問
【30893】Re:高校の情報Bの範囲 MO 05/11/6(日) 19:41 回答
【30894】Re:高校の情報Bの範囲 Roi 05/11/6(日) 19:51 発言
【30895】Re:高校の情報Bの範囲 MOON 05/11/6(日) 20:16 発言
【30896】Re:高校の情報Bの範囲 Roi 05/11/6(日) 20:34 発言
【30897】Re:高校の情報Bの範囲 Kein 05/11/6(日) 20:47 発言
【30898】Re:高校の情報Bの範囲 ponpon 05/11/6(日) 20:48 発言
【30899】Re:高校の情報Bの範囲 Roi 05/11/6(日) 20:56 発言
【30900】Re:高校の情報Bの範囲 ponpon 05/11/6(日) 21:04 発言
【30901】Re:高校の情報Bの範囲 Roi 05/11/6(日) 21:06 お礼
【30903】Re:高校の情報Bの範囲 ANS 05/11/6(日) 21:23 発言
【30902】Re:高校の情報Bの範囲 夜中まで考えたい 05/11/6(日) 21:07 発言
【30926】Re:高校の情報Bの範囲 でれすけ 05/11/7(月) 12:26 発言

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