[[20060331100321]]　『１レコードを複数行に表示』（けん）　ページの最後に飛ぶ

『１レコードを複数行に表示』（けん）

 いつもお世話になっています。表ファイルで1レコードを一瞥できるように教わり大変
 喜んでいます。
 データが多数有る時オートフィルタを使わずにデータを確認するときかなりの時間が必
 要になります。別シートに1レコードを複数行（一瞥出来るように）に全データを表示
 させることは出来るでしょうか（出来ればA4サイズに10データ程度）

 具体的な例が挙げられていないので、まったく想像がつかないのは私だけ？（だいたひかる風）

 （川野鮎太郎）

 σ(^-^;)も！
けんさん、前にも言ったように、けんさんのファイルは見れないのです。
(ROUGE)

 あら、昼休みなのに衝突☆！
 ユニークなデータフィールド、例えば顧客コードとか通しナンバーとかが
 あれば、別シートにA4サイズの雛形を作って VLOOKUP関数で呼び出せます。
（純丸）(o^-')b　※って事だと思うけど、、。

 　いつもお世話になります。レコードは1行で表示されますので最後尾
 るためにはバーをスクロールしなければ見れません。

 Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　　Ｅ　　　　　Ｆ　　　　Ｇ・・・　　　　
　　 №    　 種別　　　種目　　　所在地　　　交通　　　　価格　　　面積
　　以降項目はＹまであります。
　次のような表を作りたいのです。

  №　1001　 種別　売物件　種目　 売土地　所在地　大阪市・・・・・　
 交通 谷町線 価格  3000    面積　 65㎡　  国土法　否       都市計画　市街化 　　用途　第1種住建蔽率 60% 容積率　200％　接道　　　南 　　接道状況　　一方
  　Y列まであります
 №　1002　 種別　売物件　種目　 売土地　所在地　大阪市・・・・・　
 交通 谷町線 価格  2500    面積　 65㎡　  国土法　否       都市計画　市街化 　　用途　第1種住建蔽率 60% 容積率　200％　接道　　　南 　　接道状況　　一方
 №　1003　　種別　売物件　種目　 売土地　所在地　大阪市・・・・・
 交通 谷町線 価格　2500    面積　 65㎡　  国土法　否       都市計画　市街化
 　　 途第1種住建蔽率 60% 容積率　200％　接道　　　南 　　接道状況　　一方
 のように表示させたいのですがこの表は罫線が入ります。
　№はデータ番号です 。どうもうまく説明できないですがよろしくお願いします。
 (けん）

 たしか、以前ダブルクリックで別シートに移動するということをしたと思いますが、
 今回の別シートとは別ものですか？
 (ROUGE)

 純丸さんいつも有難うございます。№は続きではありませんが全てのデータに入ってい
 ます。別シートにA4サイズの雛形を作ってできればいいと思っていますが具体的に教え
 ていただけませんか？ 
 ROUGEさんこんにちは。ダブルクリックで別シートに移動は1データしか表示されないの
 で（これはこれで大変重宝しています）沢山のデータを調べるときにすごく時間を要し
 ます。
  (けん）

 Sheet1
    A	 B	C	D	E       ・・・
 1   №	 種別	種目	所在地	交通　  ・・・
 2  1001 	 売物件	売土地	大阪市	谷町線　・・・

 Sheet2
    A	 B	C	D	E	F	G	H
 1   №	 1001	種別	売物件	種目	売土地	所在地	大阪市
 2	  ↑　　　　　　　↑                ↑                 ↑
　　　　　手入力		↑                ↑                 =VLOOKUP($B1,Sheet1!$A:$Z,4,FALSE)
                           ↑                 =VLOOKUP($B1,Sheet1!$A:$Z,3,FALSE)
                           =VLOOKUP($B1,Sheet1!$A:$Z,2,FALSE)

 のように、地道にひとつずつ数式を入れて行く。面倒だけど１回入れてしまえば、
 後は №を変えるだけで表示されます。
（純丸）(o^-')b

 純丸さんお早うございます。VLOOKUP関数でできました。有難うございます。ただ欲を
 出せば（怒られるかも知れませんが？）この枠を10個程作りsheet1に取込んだデータの
 №を自動でsheet2の№の位置へ上から1～10まで張付ける事なんてできないでしょう
 ね？（できれば自動で全て貼り付けることができるのですが・・・）
 (けん）
 一覧表という枠を作って自動で張る付けができたんです＾＾
　Sub　売買一覧表()       
　With Sheets("売買一覧表").Select
            Range("C3").Select: ActiveCell = "=保存!A4"
            Range("C8").Select: ActiveCell = "=保存!A5"
            Range("C13").Select: ActiveCell = "=保存!A6"
            Range("C18").Select: ActiveCell = "=保存!A7"
            Range("C23").Select: ActiveCell = "=保存!A8"
            Range("C28").Select: ActiveCell = "=保存!A9"
            Range("C33").Select: ActiveCell = "=保存!A10"
            Range("C38").Select: ActiveCell = "=保存!A11"
            Range("C43").Select: ActiveCell = "=保存!A12"
    End With
 End Sub
 で又欲が出たんですが取込むデータ数はそのつど数が違います。一つ枠を作りその枠を
 テンプレートにしてデータ数だけコピぺして貼り付けることなんてできないでしょう
 か？
 (けん）

 今のところ回答するための、まとまった時間が取れません。
 (マクロ提示は時間がかかるので)
 申し訳ありませんが、ご了承下さい。
 もし他に回答可能な方がいらしたら、よろしくお願いします。
（純丸）(o^-')b　※時間が出来たら手がけてはみますが。

 答えようにも意味が分かりまへん（笑
 　　　　（弥太郎）

 やっぱり気になったのでちょっと手がけてみました。
 ブックの構成は想像です。
 前提
 (1) データは、シート「保存」のA列～Y列に蓄積される。
     ３行目が見出しで、データは４行目から。
 (2) 表示したいのは、シート「売買一覧表」。
     先頭データを B3:K7 に表示。よって次のデータは、
     B8:K12となる。以下続く。
 (3) B4がナンバーで、それを参照して他の項目は VLOOKUP関数で
     表示してあるとする。
　
 Sub Data_move()
   Dim lastrow As Long
   Dim lastrow2 As Long
   Dim i As Long
   Dim ii As Long
   lastrow = Sheets("保存").Range("A65536").End(xlUp).Row
   lastrow2 = Sheets("売買一覧表").Range("B65536").End(xlUp).Row
   ii = 3
   With Sheets("売買一覧表")
      If lastrow2 >= 8 Then
      .Rows("8:" & lastrow2).Delete
      End If
      For i = 4 To lastrow
         .Range("B3:K7").Copy Destination:=.Cells(ii, 2)
         .Cells(ii, 3).Value = Sheets("保存").Cells(i, 1)
        ii = ii + 5
      Next i
   End With
 End Sub

 VLOOKUP関数を設定せず、すべてのデータをマクロで
 表示させるやり方は時間があったら手がけるかも。
（純丸）(o^-')b

 しばらくこのサイトを開いていなかったのですが純丸さん有難うございます。
 (けん）

 純丸先生お早うございます。私のやりたい事ができました。だけど凄いですね！！！
 ただ申し訳ないのですがもう一つ教えてほしいことがあります。"保存"のデータを消去
 した場合"売買一覧表"に貼り付けた表も消去できないでしょうか？
 売買一覧表は罫線・項目にグレー・データに黄色のカラーが付いています。
 (けん）

 保存」のデータを消去したら、再度マクロを実行すれば
 現状のデータのみ表示されるはずです。
（純丸）(o^-')b

 その通りでした。本当に有難うございました。
 （けん）

コメント返信：

[ 一覧(最新更新順) ]

[[20060331100321]] 『１レコードを複数行に表示』（けん） ページの最後に飛ぶ

[[20060331100321]]　『１レコードを複数行に表示』（けん）　ページの最後に飛ぶ