Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5431 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【50832】表から表を編集するコーディング方法について ＫＴＴＫ 07/8/17(金) 15:00 質問[未読]
【50837】Re:表から表を編集するコーディング方法に... ｉｃｈｉ 07/8/17(金) 16:22 発言[未読]
【50840】Re:表から表を編集するコーディング方法に... ＫＴＴＫ 07/8/17(金) 18:57 お礼[未読]
【50838】Re:表から表を編集するコーディング方法に... ichinose 07/8/17(金) 16:25 発言[未読]
【50841】Re:表から表を編集するコーディング方法に... ＫＴＴＫ 07/8/17(金) 19:04 お礼[未読]
【50832】表から表を編集するコーディング方法につ...
質問  ＫＴＴＫ  - 07/8/17(金) 15:00 -
引用なし
パスワード
   以下のような表１から表２への編集を考えています。
ＶＢＡでどのようにコーディングすれば良いのでしょうか？
色々と試行錯誤を重ねてみましたが、技をあまり知らないため
うまく出来ません。
ご指導をお願いいたします。

表１
　　項目１　項目２ 項目３ 項目４
Ａ　　7　　　 5　　　　　　　　 3　　
Ｂ　　2　　　22　　　 8　　 　7　
Ｃ　　33
・・・

表２
　　項目
Ａ　　7　
Ａ　　5
Ａ　
Ａ　　3
Ｂ　　2
Ｂ　　22
・・・
表１の項目は10個で固定です。
Ａを１０件作成後、Ｂを１０件、Ｃを１０件というように
編集をしたいと思っています。
また、このようなコーディングの知識を身につけるための
良い方法（ＷＥＢ、教本等）がありましたらお教え下さい。

以上、よろしくお願いいたします。
【50837】Re:表から表を編集するコーディング方法...
発言  ｉｃｈｉ  - 07/8/17(金) 16:22 -
引用なし
パスワード
   ▼ＫＴＴＫ さん：
表1のデータを2次元配列に格納します。
ここではこのように書きますが、実際はfor next文でやるほうがよい

dim d(3,10) as variant
d(1,0)=A　　'A0
d(1,1)=7　　'A1
d(1,2)=5　　'A2
.
.
d(2,0)=B　　'B0
d(2,1)=2　　'B1
.
.
d(3,0)=C　　'C0
d(3,1)=33　 'C1
.
.
というふうに。
そして表2のように表記するには
k=0
for i=1 to 3
　for j=0 to 10
　　k=k+1
　　 Cells(k,1)=d(i,0)
　　 Cells(k,2)=d(i,j)
　next j
next i
としてはどうですか？


>>　　項目１　項目２ 項目３ 項目４
>Ａ　　7　　　 5　　　　　　　　 3　　
>Ｂ　　2　　　22　　　 8　　 　7　
>Ｃ　　33
>・・・
>
>表２
>　　項目
>Ａ　　7　
>Ａ　　5
>Ａ　
>Ａ　　3
>Ｂ　　2
>Ｂ　　22
>・・・
>表１の項目は10個で固定です。
>Ａを１０件作成後、Ｂを１０件、Ｃを１０件というように
>編集をしたいと思っています。
>また、このようなコーディングの知識を身につけるための
>良い方法（ＷＥＢ、教本等）がありましたらお教え下さい。
>
>以上、よろしくお願いいたします。
【50838】Re:表から表を編集するコーディング方法...
発言  ichinose  - 07/8/17(金) 16:25 -
引用なし
パスワード
   ▼ＫＴＴＫ さん：
こんにちは。

>以下のような表１から表２への編集を考えています。
>ＶＢＡでどのようにコーディングすれば良いのでしょうか？
>色々と試行錯誤を重ねてみましたが、技をあまり知らないため
>うまく出来ません。

次回は、「このうまく出来ない」を具体的に説明してください。
（こんなプログラムを作りましたが、結果は、このようになってしまいます云々）

でも、入力データと出力データの説明は良いですね！！


>
表１　Sheet1

　　　　Ａ　　Ｂ　　　Ｃ　　Ｄ　　　Ｅ
　１　　　　項目１　項目２ 項目３ 項目４
　２　　Ａ　　7　　　 5　　　　　　　　 3　　
　３　　Ｂ　　2　　　22　　　 8　　 　7　
　４　　Ｃ　　33
　５　　・・・


上記の表1がSheet1というシートのセルＡ１から記述されているとします。


>
>表２
>　　項目
>Ａ　　7　
>Ａ　　5
>Ａ　
>Ａ　　3
>Ｂ　　2
>Ｂ　　22
>・・・

結果は、Sheet2というシートに出力します。

Sheet2は、空のシートを用意して置いてください。


>表１の項目は10個で固定です。
>Ａを１０件作成後、Ｂを１０件、Ｃを１０件というように
>編集をしたいと思っています。


標準モジュールに
'=============================================================
Sub test()
　　Dim g0 As Long
　　Dim cl As Long
　　Dim rng As Range
　　With Worksheets("sheet1")
　　　 Set rng = .Range("b2", .Cells(.Cells(.Rows.Count, "a").End(xlUp).Row, _
　　　　　　　 .Cells(1, .Columns.Count).End(xlToLeft).Column))
　　　 cl = rng.Columns.Count
　　　 End With
　　With Worksheets("sheet2")
　　　 .Range("b1").Value = "項目"
　　　 For g0 = 1 To rng.Rows.Count
　　　　　With .Range(.Cells((g0 - 1) * cl + 2, 1), .Cells(g0 * cl + 1, 1))
　　　　　　 .Value = rng.Rows(g0).Cells(0).Value
　　　　　　 .Offset(0, 1).Value = Application.Transpose(rng.Rows(g0))
　　　　　　 End With
　　　　　Next
　　　 End With
End Sub


testを実行して試してみてください。
尚、最初は、新規ブックにてサンプルデータを作成して確認することから
はじめて下さい。
【50840】Re:表から表を編集するコーディング方法...
お礼  ＫＴＴＫ  - 07/8/17(金) 18:57 -
引用なし
パスワード
   ▼ｉｃｈｉ さん：
ご回答有難う御座いました。
for next文の２階層でやるイメージは掴めていたのですが、
いざコーディングすると手が動かない状態でしたので、
大変参考になりました。
有難う御座いました。
【50841】Re:表から表を編集するコーディング方法...
お礼  ＫＴＴＫ  - 07/8/17(金) 19:04 -
引用なし
パスワード
   ▼ichinose さん：
ご回答有難う御座いました。
標準モジュールとして記載して頂いたもの、
凄いワザのオンパードですね。
自分自身は新たにコーディングするのはなかなか発想が出てこないのですが、
人が作ったものは見て大体は理解できると思っていましたが、
この標準モジュールは凄いですね。まだすべて理解できていませんが、
確かにこれで、動いちゃいますね。ビックリ！！
全体を理解するにはもう少し時間がかかると思いますが、
頑張って理解してみようと思います。
どうも有難う御座いました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5431 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free