• 締切済み

Excel2000 データの振り分けと配列変換について

nishi6の回答

  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.3

所属単位の印刷が目的と解釈しましたので下記のコードを書いてみました。入力シートを直接参照して印刷することも可能ですが、コードが長くなるので１回並び替えを行なったデータを使って印刷します。 （１）別のシートに入力データをコピーして所属で並び替えます。 （２）並び替えたシートの"番号"が入れてあるセルに名前"top"を付けます。 （３）別シートに印刷する表を作ります。印刷範囲を設定し、データ部分（５×６のセル）に名前"prtData"を付けます。（名前は私が勝手に付けたものです） （４）VBE画面で標準モジュールを挿入し、下記のコードを貼り付けます。 （５）印刷する表のあるシートからマクロ"INSATU"を実行します。 今は印刷プレビューにしてあります。ActiveSheet.PrintPreview のPrintPreviewをPrintOutに変えれば印刷できると思います。行方向に何行あってもかまいません。 印刷する表の形によって"TATE"、"YOKO"の値を変更すれば任意の縦横の表が印刷できます。実際は縦は何十行かあるのでしょうか。この変更を不要とするコードも書けますが今回は行っていません。蛇足ですが、所属は共通なので表の外に出すのも一案では？その場合はコードを少し変える必要がありますが。がんばって下さい。 Option Explicit Public Sub INSATU() Dim rg1 As Range '入力データ基準位置 Dim rg2 As Range '出力データ Dim cot As Long '入力データカウンタ Dim Pcot As Integer '出力データカウンタ Dim Ecot As Integer '出力データ要素カウンタ Dim TATEpot, YOKOpot As Integer '書き出す位置 Dim OldSyozoku As Variant '前回の所属 Dim NewSyozoku As Variant '今回の所属 Const TATE = 5 '出力の行数 Const YOKO = 2 '出力の列数(ELMT列が１) Const ELMT = 3 'データの要素数 Set rg1 = Range("top") Set rg2 = Range("prtData") cot = 1 'データがなくなるまで読み込む Do While rg1.Offset(cot, 0) <> "" Pcot = Pcot + 1 NewSyozoku = rg1.Offset(cot, 2) '印刷判定 If cot <> 1 And OldSyozoku <> NewSyozoku Then ActiveSheet.PrintPreview 'PrintOut rg2.ClearContents: Pcot = 1 Else If Pcot > TATE * YOKO Then ActiveSheet.PrintPreview 'PrintOut rg2.ClearContents: Pcot = 1 End If End If '出力の位置計算と出力 TATEpot = (Pcot - 1) Mod TATE + 1 YOKOpot = (Int((Pcot - 1) / TATE)) * ELMT + 1 For Ecot = 0 To ELMT - 1 rg2.Cells(TATEpot, YOKOpot).Offset(0, Ecot) = rg1.Offset(cot, Ecot) Next OldSyozoku = NewSyozoku cot = cot + 1 'カウンタを進める Loop ActiveSheet.PrintPreview 'PrintOut End Sub

apple_nagano
質問者

お礼

内容が理解できるよう勉強していきたいと思います。 ありがとうございました。

この回答がついた質問に戻る
回答 全件
ども。遅くなりました。 とりあえず、結論から書くと、先のマクロを修正…
どもども >簡単な記録式のマクロしか使ったことがありませんが… …
第１段階の方は、まず、[所属]項目で並べ替えを行ってから、コピー・ペー…
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • C言語による「テキストファイルの読み書き(fprintf)」について

    C言語による「テキストファイルの読み書き(fprintf)」について質問です ずぶの初心者ですが、既知のファイルの１行目に指定した文字列を付加させるプログラムを作りたいと思っています。 以下のように作りました。 ------------------------------------------------------------ #include <stdio.h> int main(void) { FILE *fp; fp = fopen("test.csv","r+"); fprintf(fp,"コントロールカラム1,コントロールカラム2,・・・(略)・・・,コントロールカラム56\n"); fclose(fp); return 0; } ------------------------------------------------------------ このとき「test.csv」の内容が以下のようであったとします。(容量は１MBくらいです。) 001,aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,jjj 002,aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,jjj ～(略) 5000,aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,jjj この状態でプログラムをコンパイルして実行すると、「test.csv」の内容が以下のようになってしまいます。(一行目が消える) AAA,BBB,CCC,DDD,EEE 002,aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,jjj ～(略) 5000,aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,jjj またcsvの行が増える度に妙な挙動になっていきます・・・(一行あいたり、先頭行が５行ほど消えたり) 希望する動作としては コントロールカラム1,コントロールカラム2,・・・(略)・・・,コントロールカラム56 001,aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,jjj 002,aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,jjj ～(略) 5000,aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,jjj のようになるようにしたいのですがどのようにすればよいのでしょうか。 よろしくお願いします。 （使用ソフト：Borland C++ Compiler, Cpad） 参考にしたサイトの項目：http://homepage3.nifty.com/mmgames/c_guide/17-01.html

  • sedで文字列の抜き出し

    ある一部分の文字列を抜き出したく、sedを使用したいと思って試行錯誤しております。 ↓あるファイル内の文字列 aaa bbb=ccc:ddd=eee:fff=ggg: aaa bbb=hhh:ddd=iii:fff=jjj: ※aaaとbbbの間はスペースです。 ※bbb,ddd,fffはある一定のキーワードです。 ※ccc,eee,ggg,hhh,iii,jjjはバラバラの文字列で長さも一定ではありません。 【質問】 上記の文字列の中でddd=の後の文字列（eee,iii）のみを抜き出したいです。 以下のようなsedを試してみましたが、 eee:fff=ggg iii:fff=jjj が抜き出されてしまいます。 sed 's/.*:ddd=\(.*\):\(.*\)$/\1/' 恐れ入りますが、皆様の知恵をお貸し下さい。

  • 配列の移動

    TEXTファイルに文字列を書き込んだり削除したり移動したりするプログラムを作成していますが、 aaa bbb ccc ddd eee fff ggg hhh iii このような内容を 1,aaa bbb ccc 2,ddd eee fff 3,ggg hhh iii のように上から順番に配列化して番号を指定して移動させたいのですが、 3の配列を2の上(配列１と配列２の間)や下(配列２と配列３の間)に移動するのにはどのようにしたら良いのでしょうか？

    • ベストアンサー
    • Perl
  • VBAでCSV内にある改行を取る方法

    あるシステムが吐くcsvファイルの項目の中に改行が入っているものがあります。 例） 01,aaa,bbb（改行）bbb,ccc（改行） 02,ddd,eee,fff（改行） 03,ggg（改行）ggg,hhh,iii（改行） このCSVファイルをエクセルのマクロで読み込んでシートに展開したい のですが、項目中にある改行で別レコードを認識してしまいます。 結果） A B C D ---+---+---+--- 01 aaa bbb　 bbb ccc 02 ddd eee fff 03 ggg ggg hhh iii これを以下のようにしたいのですが・・・ A B C D ---+------+------+---- 01 aaa bbbbbb ccc 02 ddd eee fff 03 gggggg hhh iii どうやればよいでしょうか？ ご教授お願いいたします。

  • EXCEL VBA　split関数について

    Excel VBA初心者です。 split関数についてどなたか教えていただけないでしょうか。 aaa,bbb,ccc,eee fff,ggg,hhh,iii jjj,kkk,lll,mmm というデータがあるとして、そこから aaa bbb fff ggg jjj kkk これだけ（左から2個分）を抜き取りたいのですが可能でしょうか？ カテ違いな質問でしたらスミマセン。

  • 大量データの一括変換

    aaa.bbb ccc.ddd eee.fff ggg.hhh 上記のようなデータが約1万行程度あるのですが、これを下記のようなユーザ名・メルアドに変換するコマンド等、お分かりになる方教えてください。ユーザ名・メルアドの間は半角スペースです。 ある程度自分で調べた結果awk等で出来そうな気がするのですが。。。 ユーザ名　　メルアド 　　↓　　　　 ↓ aaa.bbb aaa.bbb@hoge.com ccc.ddd ccc.ddd@hoge.com eee.fff eee.fff@hoge.com ggg.hhh ggg.hhh@hoge.com

  • エクセルのマクロについて

    エクセル97のマクロについて教えてください。 下のようなエクセルシートがあると仮定します。 このシート全体を選択して用意してあるボタンを押すと、マクロが流れるようにします。 マクロの中身は、項目１～４の値が同じであれば、同じデータを一つにするというものを考えています。 たとえば下の例の場合、追番でいえば２と４のデータは同じなので、マクロ処理にかけると、追番の大きい４のデータは消え、２のデータの"200"項目にフラグ１が追加されるようにしたいのです。 項目の値が同じであれば、いくつでもデータを統一したいと考えています。 ================ エクセル シート例 ================================== 追番＿項目１＿項目２＿項目３＿項目４＿100＿200＿300＿400 ← 見出し ----------------------------------------------------------------- 1****AAA****BBB****CCC****DDD****1*********1****1**** 2****EEE****FFF****CCC****GGG****1**************1**** 3****HHH****FFF****KKK****JJJ****1****1****1********* 4****EEE****FFF****CCC****GGG****1****1*********1**** ↓ マクロ処理後 追番＿項目１＿項目２＿項目３＿項目４＿100＿200＿300＿400 ← 見出し ----------------------------------------------------------------- 1****AAA****BBB****CCC****DDD****1*********1****1**** 2****EEE****FFF****CCC****GGG****1****1*********1**** 3****HHH****FFF****KKK****JJJ****1****1****1********* =================================================================== 注:見出しの＿とデータの中の*は空白を生めるためのもので、データとはまったく 関係ありません。 なにぶんエクセルＶＢＡは初心者同然なもので... よろしくお願い致します。

  • excel2003 二つと一致したものを選ぶ関数

    いつもお世話になります。 素人が何かをするとすぐに壁に当ります。 よろしくお願いします。 二つのキーに一致したものを選べる関数はありますか？ 例えば、 CD1 CD2 CD3 CD4 0001 aaa ddd ggg 0002 bbb eee hhh 0003 ccc fff iii 上記のデータがあると致しまして、 CD1の「0002」とCD4「hhh」が、一致して、 CD2の『bbb』を抜き出したいのですが・・・。 よろしくお願い致します。

  • SQLについて

    aaa bbb ccc ddd eee ggg hhh ---------------------------------------------- 111 111 111 111 111 111 111 112 112 112 112 112 112 111 112 113 113 113 113 113 111 114 114 114 114 114 114 111 114 114 114 114 114 114 112 114 115 115 114 114 115 111 114 115 115 114 114 115 112 116 116 116 116 116 116 111 116 116 116 116 116 116 112 116 116 116 116 116 117 111 116 116 116 116 116 117 112 118 118 118 118 118 118 118 上記のようなデータより、SQLのSELECTを使用して、以下のように抽出したいです。 抽出条件は以下が全て満たしているものとなります。 ・aaa,ccc,ddd,eee,gggが重複、hhhが小さいもの ・bbbが異なるもの aaa bbb ccc ddd eee ggg hhh ---------------------------------------------- 112 112 112 112 112 112 111 ・・・(1) 112 113 113 113 113 113 111 ・・・(1) 114 114 114 114 114 114 111 ・・・(2) 114 115 114 114 114 115 111 ・・・(2) (1)はaaa,ccc,ddd,eee,gggが重複、bbbが異なるため抽出対象 (2)はaaa,ccc,ddd,eee,gggが重複、bbbが異なるため抽出対象 　また、hhhが小さいもの 以上、よろしくお願いします。

  • SQL上位n件ORDERBY 以降ORDERBY

    SQLのORDER BYについてご教授いただけますでしょうか。 例えば、１０件のデータのうち、５件を指定のORDERBYで抽出し、 残り５件をORDERBYで抽出するということは可能でしょうか。 ID 名前 システムフラグ 1 AAA 1 2 BBB 1 3 CCC 1 4 DDD 1 5 EEE 1 6 FFF 2 7 GGG 2 8 HHH 1 9 III 1 10 JJJ 1 上記のようなデータがあった場合、 以下のように抽出されるようにしたいと思っています。 ID 名前 システムフラグ 1 AAA 1 2 BBB 1 3 CCC 1 6 FFF 2 7 GGG 2 4 DDD 1 5 EEE 1 8 HHH 1 9 III 1 10 JJJ 1 システムフラグが2が入っているものは、 ５件からの4,5件目に表示されるようにして、 それ以降はIDの昇順で表示されるようにしたいと思っております。 ５件というのは、決め打ち５件ではなく、条件によっては変わるのですが、 ５件が７件となった場合は、6,7件目がシステムフラグ2のものがくるようにしたいです。 指定した件数から下２つ目がシステムフラグのものが取得したいということです。 わかりにくいと思いますが、どのようなSQLを書けば抽出できるか ご教授いただけますでしょうか。 どうぞ宜しくお願い致します。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する