Excel VBA質問箱 IV

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

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


10505 / 13644 ツリー ←次へ | 前へ→

【21421】VBAの質問です Masa 05/1/20(木) 22:06 質問[未読]
【21426】Re:VBAの質問です りすりす 05/1/20(木) 22:27 回答[未読]
【21429】Re:VBAの質問です Masa 05/1/20(木) 22:48 質問[未読]
【21431】Re:VBAの質問です かみちゃん 05/1/20(木) 23:02 回答[未読]
【21432】Re:VBAの質問です Masa 05/1/20(木) 23:10 質問[未読]
【21433】Re:VBAの質問です りすりす 05/1/20(木) 23:18 回答[未読]
【21435】Re:VBAの質問です Masa 05/1/20(木) 23:24 お礼[未読]
【21434】Re:For〜Nextの使い方 かみちゃん 05/1/20(木) 23:22 回答[未読]
【21436】Re:For〜Nextの使い方 Masa 05/1/20(木) 23:33 お礼[未読]

【21421】VBAの質問です
質問  Masa E-MAIL  - 05/1/20(木) 22:06 -

引用なし
パスワード
   VBAでデータを入力するマクロを作りたいんですが、入力順をB3→C3→D3・・・→G3→B4→・・・・・・→G7という順番にして、入力する値はB3から順に1→2→3・・・となるようにしたいのですがよくわかりません。
どうやったらいいのですか?
どなたか教えていただけませんか?

【21426】Re:VBAの質問です
回答  りすりす  - 05/1/20(木) 22:27 -

引用なし
パスワード
   ▼Masa さん:
>VBAでデータを入力するマクロを作りたいんですが、入力順をB3→C3→D3・・・→G3→B4→・・・・・・→G7という順番にして、入力する値はB3から順に1→2→3・・・となるようにしたいのですがよくわかりません。
>どうやったらいいのですか?
>どなたか教えていただけませんか?

整数型の変数と
for next 文を使って
シートのcellsプロパティに
値を入れるといいですよ。

【21429】Re:VBAの質問です
質問  Masa E-MAIL  - 05/1/20(木) 22:48 -

引用なし
パスワード
   ▼りすりす さん:
>▼Masa さん:
>>VBAでデータを入力するマクロを作りたいんですが、入力順をB3→C3→D3・・・→G3→B4→・・・・・・→G7という順番にして、入力する値はB3から順に1→2→3・・・となるようにしたいのですがよくわかりません。
>>どうやったらいいのですか?
>>どなたか教えていただけませんか?
>
>整数型の変数と
>for next 文を使って
>シートのcellsプロパティに
>値を入れるといいですよ。

はい、それはわかるのですが、どうやって書いていけばうまくいくのかわからなくて・・・
ド素人なんで勉強不足ですみませんが教えてくださいm(__)m

【21431】Re:VBAの質問です
回答  かみちゃん  - 05/1/20(木) 23:02 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>はい、それはわかるのですが、どうやって書いていけばうまくいくのかわからなくて・・・

B3から順に1→2→3とは、どういことですか?
B3の次は、C3、その次はD3、つまり、B→C→D・・・の順のことですか?

ところで、For 〜 Nextはわかるということであるならば、どこまでわかっておら
れるのでしょうか?
ヘルプなどを参照すると使用例が載っているのですが・・・

【21432】Re:VBAの質問です
質問  Masa E-MAIL  - 05/1/20(木) 23:10 -

引用なし
パスワード
   お返事ありがとうございます!
>B3から順に1→2→3とは、どういことですか?
つまり、B3セルに1、C3セルに2というように入力順にセルに1から値を入れてやるってことです。


>ところで、For 〜 Nextはわかるということであるならば、どこまでわかっておら
れるのでしょうか?

For Nextを使えばいいってことしかわからないです・・・

【21433】Re:VBAの質問です
回答  りすりす  - 05/1/20(木) 23:18 -

引用なし
パスワード
   ▼Masa さん:
>お返事ありがとうございます!
>>B3から順に1→2→3とは、どういことですか?
>つまり、B3セルに1、C3セルに2というように入力順にセルに1から値を入れてやるってことです。
>
>
>>ところで、For 〜 Nextはわかるということであるならば、どこまでわかっておら
>れるのでしょうか?
>
>For Nextを使えばいいってことしかわからないです・・・

したにおりたら1から始めるの?(もしそうなら Count = 1を1行したのと入れ替えてください)

とりあえず、連番ってことで

場所はおぼえてないけど
ホームの目安箱かどこかにやり方のってたと思うよ


Private Sub CommandButton1_Click()
 Dim i, Row_Index, Count As Integer
  
 Count = 1
 For Row_Index = 3 To 7
 For i = Sheet1.Range("B" & Row_Index).Column To Sheet1.Range("G" & Row_Index).Column
   Sheet1.Cells(Row_Index, i) = Count
   Count = Count + 1
   Next i
 Next Row_Index
End Sub

【21434】Re:For〜Nextの使い方
回答  かみちゃん  - 05/1/20(木) 23:22 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>For Nextを使えばいいってことしかわからないです・・・

ですから、For〜Nextステートメントのヘルプはご覧になりましたか?
そこに、使用例が載っていますから、それをヒントにすることはできませんか?
とりあえず、以下のような感じです。

Option Explicit
Sub Macro1()
 Dim i As integr
 Dim RowNo As Long
 Dim ColumnNo As Integer
 
 i = 0
 For RowNo = 3 To 7
  For ColumnNo = 2 To 7
   i = i + 1
   Cells(RowNo, ColumnNo) = i
  Next
 Next
End Sub

※For〜Nextを知っているならば、タイトルは、具体的なものにしましょう!

【21435】Re:VBAの質問です
お礼  Masa E-MAIL  - 05/1/20(木) 23:24 -

引用なし
パスワード
   ありがとうございました!
連番でOKです!

ほんとうに感謝感謝ですm(__)m

また何かあったら質問させていただきますのでよろしくお願いしますm(__)m

【21436】Re:For〜Nextの使い方
お礼  Masa E-MAIL  - 05/1/20(木) 23:33 -

引用なし
パスワード
   お手数おかけしましてすみませんでしたm(__)m

大変参考になりました。ありがとうございました!

これからはもっとわかりやすい質問の仕方にしますね(^^;)

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