Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3858 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59737】どうすればいいのか・・・ スイートポテト 09/1/6(火) 5:58 質問[未読]
【59738】Re:どうすればいいのか・・・ ichinose 09/1/6(火) 7:11 発言[未読]
【59810】Re: スイートポテト 09/1/9(金) 15:44 お礼[未読]
【59739】Re:どうすればいいのか・・・ 通りすがり 09/1/6(火) 8:49 発言[未読]
【59740】Re:どうすればいいのか・・・ 独覚 09/1/6(火) 9:59 発言[未読]
【59811】Re: スイートポテト 09/1/9(金) 15:51 お礼[未読]
【59737】どうすればいいのか・・・
質問  スイートポテト  - 09/1/6(火) 5:58 -
引用なし
パスワード
   学校の課題で白紙のワークシートからこのＵＲＬの画像のように（エイチティティピー://photo2.avi.jp/photo/6/452265/452265-3675-0-13291-pc.png）なるようにプログラムを作れという課題が出ました。

条件があって「For 〜 Next、If〜Else〜EndIfを使う可能であればＭodも使う」というものです。

教科書を読み漁り・インターネットでヒントになるようなものを探したのですが何をすればいいのか理解することができませんでした・・・。

For 〜 NextはA1からI5までのセルをCELLS（Ｘ、Ｙ）で指定してループさせる目的
If〜Else〜EndIfはそのセルが色つきなら色を変える、色無しなら何もしない判断目的
Ｍodは色つきセルの位置を計算で求める時に使用する目的
でやるということがわかったのですが、そこからどうすればいいのかわからずFor〜Nextについて調べても自分の欲しい解答が得られませんでした。

自分がこの問題を解くために必要な最小の知識がないとわかって、必要な最小の知識を調べようとしたのですが、何が必要な最小の知識なのかも分からないので先へ進めません・・・。

どんな些細なヒントでも構いません（むしろ些細なことが今の自分に必要かもしれないですが）、なんとかこの問題をやり遂げたいのでもしよければ教えてください。

よろしくお願いします。
【59738】Re:どうすればいいのか・・・
発言  ichinose  - 09/1/6(火) 7:11 -
引用なし
パスワード
   スイートポテト さん：
おはようございます。
Sub sample_proc()
　　Const 水色 As Long = 8
　　Const 明るい緑 As Long = 4
　　Dim idx As Long
　　With Range("e1")
　　　 For idx = 0 To 4
　　　　 .Offset(idx, idx).Value = idx
　　　　 .Offset(idx, -idx).Value = idx
　　　　 If idx Mod 2 = 0 Then
　　　　　　.Offset(idx, idx).Interior.ColorIndex = 水色
　　　　　　.Offset(idx, -idx).Interior.ColorIndex = 水色
　　　　 Else
　　　　　　.Offset(idx, idx).Interior.ColorIndex = 明るい緑
　　　　　　.Offset(idx, -idx).Interior.ColorIndex = 明るい緑
　　　　 End If
　　　 Next
　　End With
End Sub


>学校の課題で・・・・

私がスイートポテト さんにお尋ねしたいのは

このような課題を出題する学校って、

高校生？　専門学校生？　それとも大学生？

答えられるのなら、教えてください。
【59739】Re:どうすればいいのか・・・
発言  通りすがり  - 09/1/6(火) 8:49 -
引用なし
パスワード
   ht tp://okwave.jp/qa4607324.html
【59740】Re:どうすればいいのか・・・
発言  独覚  - 09/1/6(火) 9:59 -
引用なし
パスワード
   この掲示板の注意事項です。

>マルチポストについて
>別のサイト（掲示板）にまったく同じ目的の投稿をすることを、一般に「マルチポスト」といいます。
>当質問箱では、マルチポストは原則認めています。
>つまり、ほかのサイトで質問したことをこのサイトで質問してもかまわないということです。

>しかし、もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください。
>そして、仮に他のサイトで解決したのなら、ここにも必ずその顛末を書いてください。
>質問しっぱなし、というのはモラルに反します。「解決したからいいや」というのではありません。

>また、マルチポストを明示的に禁止しているサイトとのマルチポストをしてはいけません。
ht tp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1421977094
【59810】Re:
お礼  スイートポテト  - 09/1/9(金) 15:44 -
引用なし
パスワード
   回答ありがとうございます。

この回答はわかりやすく、とても役に立ちました。

本当にありがとうございます。


私がスイートポテト さんにお尋ねしたいのは・・・への回答ですが。

この問題が出されたのは大学の授業の中でです。
【59811】Re:
お礼  スイートポテト  - 09/1/9(金) 15:51 -
引用なし
パスワード
   マルチポストについてですが。

Excel VBA質問箱 IVでは禁止されていないが、ほかのサイトでは禁止されているとは知らないでいました。

以後このようなことをしないよう気をつけます。。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3858 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free