Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5497 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【50471】Ｆｏｒステートメント アッキー 07/7/26(木) 18:51 質問[未読]
【50472】Re:Ｆｏｒステートメント 岳 07/7/26(木) 19:11 回答[未読]
【50473】Re:Ｆｏｒステートメント マルチネス 07/7/26(木) 21:27 発言[未読]
【50471】Ｆｏｒステートメント
質問  アッキー  - 07/7/26(木) 18:51 -
引用なし
パスワード
   セルＡ１に数字の１、
　　Ａ２に数字の２、
　　Ａ３に数字の３を代入する時のプログラムは

Dim i As Integer

For i = 1 To 3
Cells(i, 1).Value = i
Next i

でおこないます。では
セルＡ１に数字の２
セルＡ２に数字の４
セルＡ３に数字の６
セルＡ４に数字の８
を代入したい場合はどのようなプログラムを書けばいいのですか？

誰か教えてください。
【50472】Re:Ｆｏｒステートメント
回答  岳  - 07/7/26(木) 19:11 -
引用なし
パスワード
   ▼アッキー さん：
こんにちは
そのままの計算です

Dim i As Integer

For i = 1 To 4
Cells(i, 1).Value = i * 2
Next i

以下は使用しませんが（理解のために）

Dim i As Integer

For i = 2 To 4 Step 2
Cells(i / 2, 1).Value = i
Next i

私も初心者です。頑張ってください。
【50473】Re:Ｆｏｒステートメント
発言  マルチネス  - 07/7/26(木) 21:27 -
引用なし
パスワード
   残念！↓で解決済み。マルチ斬り！

ｈｔtp://www2.moug.net/bbs/exvba/20070726000036.htm
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5497 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free