[エクセル・VBA]縦列のユニークな情報を取り出し、横行に配置| OKWAVE

[エクセル・VBA]縦列のユニークな情報を取り出し、横行に配置

毎度お世話になります。エクセルのVBAの質問でございますが、文章で説明しづらいのでまず下記をご覧ください。 A列　　B列　　C列　D列　E列　F列 Month 　業者名　摘要　記1　記2　　金額 Nov-07　青森KK　　011　BAK　304　　386 Jan-08　岩手(株)　705　CHC　318　　313 Feb-08　(有)埼玉　568　JJG　121　9,480 Feb-08　(株)東京　40 　KKI　183　　216 Mar-08　(株)東京　103　AOX　248　1,490 Mar-08　北海道　　921　FGJ　319　2,730 Apr-08　関西KK　　103　NNB　842　1,050 Apr-08　沖縄(有)　406　JJG　831　　315 上記のようなA列の情報を下記のように表示させたいのです。金額の大きい順に並び替え、各行のデータが該当するMMM-YYのセルに印(今回は*ですが何でも可)をつけたいと思っております。[Month]はA3に設定されております。　　　　　F列　G列　　H列　　I列　　J列　　K列 ←列省略金額　Nov-07 Jan-08 Feb-08 Mar-08 Apr-08 　　　　9,480　　　　　　　　　* 　　　　2,730　　　　　　　　　　　　　* 　　　　1,490　　　　　　　　　　　　　* 　　　　1,050　　　　　　　　　　　　　　　　　* 　　　　386　　　　* ↓行省略 *のつけ方はLOOPを2つ作れば出来そうな気がしているのですが、その前段階のMMM-YYの配置の仕方が全くわかりません。[Month]はA3より始まっております。なにとぞよろしくお願い申し上げます。

[エクセル・VBA]縦列の重複するデータを抽出し、横行に一つずつのみ並べかえ表示させる

お世話になります。エクセルのVBAを使い下記の表のB列[Month]の重複をなくしてG列：金額の隣から右に向けて古い月順に並べ替え表示させようと思っております。 A列...............B列.........C列........D列....E列.....F列......G列 Date..............Month... 業者名..摘要..記号1.記号2..金額 2007/11/7..Nov-07..青森KK..アイ..BA....304....386 2008/1/6...Jan-08.. 岩手(株)..ウエ..CC....318....313 2008/2/1...Feb-08.. (有)埼玉..オカ..JG....121....9,480 2008/2/15..Feb-08..(株)東京...キク..AI...183....216 2008/3/6...Mar-08..(株)東京...ケコ..OX...248....1,490 2008/3/11..Mar-08..北海道...サシ..FJ...319....2,730 ↓これを下記のように表示させる ..................G列.......H列........I列........J列........K列 ←列省略.金額...Nov-07..Jan-08..Feb-08..Mar-08 ..................386 ..................313 ..................9,480 ↓行省略.216 しかし、私のVBAでは ...................G列......H列.......I列.......J列.......K列......L列........M列 ←列省略.金額..Nov-07.Jan-08.Feb-08.Feb-08.Mar-08.Mar-08 ↓行省略.386 となってしまいます。[Month]はA列の[Date]を参照しMMM-YYで表示させています。[Date]はA3から始まっております。B列を完璧に文字列に変換できればいいのですが、それが出来なくて。。。～VBA～ Sub test() Dim i As Integer Dim n As Integer Dim mnt0 As String Dim mnt1 As String i = 4 n = 8 Do Until Cells(i, 2).Value = "" 　　mnt0 = Cells(i - 1, 2).Value 　　mnt1 = Cells(i, 2).Value 　　If mnt1 <> mnt0 Then 　　Cells(3, n).Value = mnt1 　　End If 　　i = i + 1 　　n = n + 1 Loop End Sub この表を使ってのゆくゆくの目標は、縦列は金額の大きい順にソートをし、右に新たに設けた[Month]の該当するセルに"*"等の印をつけることです。よろしくお願い申し上げます。

エクセルについて

エクセルについて会社のエクセルで、例えば、34-07と入力すると、Jul-34と変換されます。でも、56-78と入力するとなにもなりません。どうやら、01,02,03,04…11,12だと、それぞれ、Jan,Feb,Mar,Apr…Nov,Decと英語での月の名前に変換されてしまいます。セルの書式設定で直しても、直りませんでした。なぜか、ユーザー定義という設定になってしまいます。どうしたら、56-04と入力しても、Apr-56という風にならず、56-04と入力できるようになりますか？

マクロで条件に不一致なら空白セルを挿入方法

初めまして最近仕事でログ処理用のマクロを作成しているのですが、マクロ初心者で、こんな場合どうしたらよいでしょうか？教えてください。よろしくお願いします。処理前 A列 B列 C列 jan ConnectTime feb 空白 JST mar 空白 ConnectTime apr 空白 JST may 空白 ConnectTime jun 空白 ConnectTime 処理後 A列 B列 C列　　　　D列 jan ConnectTime feb 空白　　空白　　　　JST mar 空白 ConnectTime apr 空白　　空白　　　　JST may 空白 ConnectTime jun 空白 ConnectTime この場合B1にIF(C1="ConnectTime","","セルを挿入し右にシフト")的な処理をし、B列に適用させたいのですが可能でしょうか？よろしくお願いします。

エクセルVBAの問題？

Excelのファイルがあります。例として sheet1： ********************************************* Jan-O4 Feb-04 Mar-04 Apr-04 a1-------b1------c1-----d1 a2-------b2------c2-----d2 a3-------b3------c3-----d3 May-04 Jun-04... e1-------... e2-------... e3-------... ********************************************* （注：-は空白の事です、04は2004年の事です。） sheet２： ********************************************* Feb-04 Mar-04 Apr-04　May-04 b1------c1-----d1------e1 b2------c2-----d2------e2 b3------c3-----d3------e3 Jun-04 July-04 ...----... ...----... ...----... **************************************** （注：-は空白の事です。） sheet1からsheet2ができるようにしたいです。（毎月同じようなの操作の繰り返しです）すなわち、来月になるとsheet1の最初の月のデータを削除して、残りのデータをsheet2にコピー、最後sheet2に新しい月のデータを入力する、データの量はいつも半年のデータです、表のデザインも同じです。ただ、実際データの量が多いので、普通のセルコピー、シートコピーのようなのやり方、時間が掛かります。ほかにいい方法がありますか？（VBAなど？）教えてください！できれば、サンプルも欲しいです。お願いします。

【エクセル2010】文字列を日付に変える方法は？

２０１６年の月を表した、下記のような文字列があります。 yyyymm 201601 201602 201603 これを、日付に変えて、 JAN　16 FEB　16 MAR 　16 としたいのです。一番効率的にするには、どうすればよいでしょうか？関数でもマクロでもなんでもかまいません。一番早くて正確な方法を探しています。ありがとうございます。。。

月名でソートを行いたいのですが・・・

Solaris8上で、ソートコマンド『sort -M 入力ファイル名』をやったのですが、上手く月名でソートを行ってくれません。入力ファイルは、月名のみのレコードが書かれたテキストファイルです。以下に、私が入力した月名を示します。 JAN、FEB、MAR、APR、MAY、JUN、 JUL、AUG、SEP、OCT、NOV、DEC もう一点、同一レコードを削除する『-u』オプションも上手く動きません。どなたかご存知でしたら教えて頂けませんか？宜しくお願い致します。

Excelで急にユーザー定義の表示が変わった！

お世話になります。今朝から急にExcelでユーザー定義を設定していたセルの表示が変わってしまいました。具体的には設定を"mmm"としていて、昨日までは英語月名の略語、Jan, Feb, Marなどと表示されていたのですが、今朝開くとただの数字、1,2,3と表示されてしまいました。定義をみても"mmm"のままなので、なぜ急にという思いが。頭に[$-en-US]とつければ解決はされるのですが、そういう問題ではなく、急に表示できなくなったことに疑問を感じております。ご存知の方いらっしゃいましたら、ご教示頂けないでしょうか？

Excelで表のセルの操作

Excelのファイルがあります。例として sheet1： ********************************************* Jan-O4 Feb-04 Mar-04 Apr-04 a1-------b1------c1-----d1 a2-------b2------c2-----d2 a3-------b3------c3-----d3 May-04 Jun-04 e1-------... e2-------... e3-------... ********************************************* （注：-は空白の事です。） sheet２： ********************************************* Feb-04 Mar-04 Apr-04　May-04 b1------c1-----d1------e1 b2------c2-----d2------e2 b3------c3-----d3------e3 Jun-04 July-04 ...----... ...----... ...----... **************************************** （注：-は空白の事です。） sheet1からsheet2ができるようにしたいです。（毎月同じようなの操作の繰り返しです）すなわち、来月になるとsheet1の最初の月のデータを削除して、残りのデータをsheet2にコピー、最後sheet2に新しい月のデータを入力する、データの量はいつも半年のデータです、表のデザインも同じです。ただ、実際データの量が多いので、普通のセルコピーのようなのやり方、時間が掛かります。ほかにいい方法がありますか？教えてください！できれば、サンプルも欲しいです。お願いします。

日付処理について

質問させてください。 $array[0] = "21/Jan/2003 13:00:12"; $array[1] = "06/Dec/2003 06:55:06"; $array[2] = "13/Nov/2003 23:42:52"; $array[3] = "30/Apr/2003 14:13:47"; -------------------------- 文字列処理 -------------------------- <処理結果> $array[0] => "2003-01-21 13:00:12"; $array[1] => "2003-12-06 06:55:06"; $array[2] => "2003-11-13 23:42:52"; $array[3] => "2003-04-30 14:13:47"; 上記のような結果を取得したいのですが JanやNovなどの部分がif else の連続で見栄えがよくできません。シンプルなロジックは何かないでしょうか？宜しくお願いいたします。m(_ _)m

冗長なソースをコンパクトにしたい

冗長なソースをコンパクトにしたいお世話になります。 CakePHP＋MySqlでサイトを構築しているのですが、以下のソースが冗長なので、もう少しコンパクトにできないものかと悩んでいます。このソースは「hogehoge」テーブルにあるデータ（0～100までの数値）を各列ごとに書き出しているものです。出力イメージはこのようになります（テーブルもほぼこんな感じです）。　　　　jan　feb　mar　～項目A　　1　28　20　～項目B　58　78　40　～項目C　～ …… また、たんにデータを出力するだけでなく、値によってセルの背景色を変えたかったので、値を1つずつチェックし、それに応じたCSSクラス（pat1～）を変数$colorに代入しています。 <table> <?php for($i = 0;$i < count($data);$i++){ $arr = $data[$i]['hogehoge（テーブル名）']; echo "<tr><td>{$arr['hoge（項目名）']}</td>"; 　if($arr['jan'] < 10 ){ 　　$color = "pat1"; 　}elseif(9 < $arr['jan'] && $arr['jan'] < 20 ){ 　　$color = "pat2"; 　}elseif(19 < $arr['jan'] && $arr['jan'] < 30 ){ 　　$color = "pat3"; 　}else{ 　　$color = "pat4"; 　} 　echo "<td class =".$color.">{$arr['jan']}</td>"; 　if($arr['feb'] < 10 ){ 　　$color = "pat1"; 　}elseif(9 < $arr['feb'] && $arr['feb'] < 20 ){ 　　$color = "pat2"; 　}elseif(19 < $arr['feb'] && $arr['feb'] < 30 ){ 　　$color = "pat3"; 　}else{ 　　$color = "pat4"; 　} 　echo "<td class =".$color.">{$arr['feb']}</td>"; 　if($arr['mar'] < 10 ){ 　　$color = "pat1"; 　}elseif(9 < $arr['mar'] && $arr['mar'] < 20 ){ 　　$color = "pat2"; 　}elseif(19 < $arr['mar'] && $arr['mar'] < 30 ){ 　　$color = "pat3"; 　}else{ 　　$color = "pat4"; 　} 　echo "<td class =".$color.">{$arr['mar']}</td>"; 　※これが12月（dec）まで延々と続きます…… } ?> </table> 私の頭とスキルではコンパクトにできなかったので、どなたかお知恵を拝借できますでしょうか。そもそもこの方法が正しいのかどうかも分かりません。もし、もっとスマートなやり方をご存じの方はぜひご教授ください。よろしくお願いいたします。

月の省略表示について

英語で月の省略表示をする場合、たいてい３文字（Jan、Feb、Mar・・・）になると思うのですが、２文字に略している場合のJNというのは、Januaryの略でしょうか？それともJuneのことでしょうか？また、２文字に略した場合、１月～１２月まではどのように表示されるのでしょうか？お詳しい方がいっらっしゃいましたら、ご教授願います。

VBA 数日後の日付をうまく求められません

Windows7／Excel2002を使っています。エクセルVBAで、数日後の日付をうまく求められません。例えば、31MAR.xls というエクセルファイルがあります。（ファイルは、デイリーベースで存在します。）このファイル名の月と日にちを変数に入れます。 DD ＝日にち　（例えば、31日なら“31”） MMM ＝アルファベット3文字　（3月なら“MAR”）入力シートのセルC3に納期日を入れたいのです。納期日は5日後もあれば、6日後もあり、取引先によって違いますので、 31MAR.xlsファイルのSheet1に、会社毎の納期日を入力しておきます。セルA列（会社名）　　セルB列（納期日） ABC会社　　　　　　　　5 DEF会社　　　　　　　　6 GHI会社　　　　　　　　7 セルB列は、5とか6とかシンプルに数字のみ入っています。今日の日付をファイル名から変数に格納し、それにB列の数字をプラスした日付を求めたいのです。－－－－－－－－－－－－－－－－－－－－ Dim HIDUKE As Date　 Dim PLUS As Integer HIDUKE = Left(ThisWorkbook.Name, 5) MMM = Mid(HIDUKE, 3, 3) DD = Left(HIDUKE, 2) Set NYURYOKU = Workbooks(DD & MMM & ".xls").Worksheets("入力") ※ここで、変数PLUSを求める記述あり（省略させていただきます） NYURYOKU.Cells(3, 3) = HIDUKE + PLUS －－－－－－－－－－－－－－－－－－－－上記マクロを起動すると、 NYURYOKU.Cells(3, 3) = HIDUKE + PLUSのところで実行時エラー‘13’　型が一致しません。となってしまいます。変数HIDUKEには、31MARと入ってきており、変数PLUSには、処理したい会社の納期日は入ってきています。 ABC会社であれば、NYURYOKU.Cells(3, 3)に 4月4日と値を入れたいのです。どなたか教えてください。よろしくお願いします。

ポインタの基本的な問題

ポインタの勉強をしています。変数にポインタが付いている場合の動作は大体理解したつもりですが以下のように関数にポインタが付いているとどう扱えばいいのかわかりません。とりあえず、まずはtsukinonamae関数にinteger 1を渡して「１月」と表示させることから始めようとしていますが、それすらコンパイルエラーになります。引数nに１を渡すところはいいですよね？その後、nam[1]に入っているjanという文字列をchar型で返す？と思うのでメイン部で宣言したcharに渡そうとしているのですが。。何が問題なのでしょうか。 char *tsukinonamae(int n); int main(){ int n = 1; char s[30]; s = tsukinonamae(n); printf("%s\n", s); } char *tsukinonamae(int n){ static char *nam[] = { "none", "jan", "feb", "mar", "apr", "may", "jun", "jul", "aug", "sep", "oct", "nov", "dec"}; return (n<1 || n>12) ? nam[0] : nam[n]; }

C#による日付のフォーマット変換について

初めまして。大学にてC#を勉強中の身なのですが、文字列の日付フォーマット【YYYY/MM/DD　→　DD-MMM-YY】　への変換方法が分からず困っています。よろしければどなたかご教授して頂けないでしょうか？ ※このような形に変換を希望しています string型【2000/01/01】　→　string型【01-Jan-00】

掲示板のcookieが消える？

自分のサイトに設置してあるBBSなんですが、cookieで名前やメアドを記憶しているはずが、ある日を境に出なくなったんです。 cookieは６０日間有効にするために、以下のように書いています。 local($sec,$min,$hour,$mday,$mon,$year,$wday) = gmtime(time+60*24*60*60); @month=('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); $gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT", $week[$wday],$mday,$month[$mon],$year+1900,$hour,$min,$sec); $cook="name<>$in{'name'}\,email<>$in{'email'}\,url<>$in{'url'}\,pwd<>$in{'pwd'}\,icon<>$in{'icon'}\,color<>$in{'color'}"; そして、これをprintで書き出しているのですが、なぜ消えてしまうんでしょう？設定の仕方が間違っています？

Cookieの有効期限について

Cookieの有効期限を半年間にしようと思い、プログラムを覗いてみたところ、以下のような記述がありました。どこをいじれば半年間に伸ばすことができるのか教えていただけますか？どうかよろしくお願いいたします。 sub set_cookie { ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60); $yearg += 1900; if ($secg < 10) { $secg = "0$secg"; } if ($ming < 10) { $ming = "0$ming"; } if ($hourg < 10) { $hourg = "0$hourg"; } if ($mdayg < 10) { $mdayg = "0$mdayg"; } $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong]; $youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg]; $date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT"; $cook="name\:$FORM{'cntr'}\,email\:$FORM{'email'},pswd\:$FORM{'pswd'}"; print "Set-Cookie: TORBBS=$cook; expires=$date_gmt\n"; }

ハッシュのリファレンスを用いた処理

ActivePerl 5.8 , WinXP SP2の環境です。 Perl スクリプトを用い、ファイルから複数のブロックからなる情報をよみとり、個別のハッシュを作り、それをリファレンスの配列としてまとめて後から参照するという操作をしたいのですが、詰まってしまいました。。例として読み取るファイルは ---input.txt--------- >1 Jan 1 Feb 4 >2 Mar 9 Apr 3 >3 Oct 8 Nov 4 ------------------ ここから1,2,3の個別のハッシュ {Jan => 1 Feb => 4} {Mar=> 9 Apr =>3} {Oct =>8 Nov =>4} を作成し、それぞれのハッシュのリファレンスの配列をつくり、その後からすべてのハッシュの中身を個別に出力させたいと思いました。次のようなスクリプトを作成したのですが思ったように作動しません。 use strict; open (IN, "input.txt") or die ("cant open file \n"); my $reff; my @array_of_reff; my %hash; my $count = 0; while(<IN>){ my $line = $_; ######ここでは各ブロックの頭の ">"を認識し、２個目以降であれば直前までで作ったハッシュのリファレンス（$reff）を配列@array_of_reffに入れる。 if($line =~ /^>/){ if($count >0){ $reff = \%hash ; push (@array_of_reff, $reff); %hash = (); } $count++; } ########ここではアルファベットが入った行を認識して、ハッシュに追加しています if($line =~ /^[A-Za-z]/){ 　　　　　　　　　 $line =~ /([A-Za-z]+)\s+/; my $month = $1; $line =~ /\s+(\d+)/; my $day= $1; $hash{$month} = $day; 　　　 } ###ここはファイルの最後になったら直前まで作っていたハッシュののリファレンス（$reff）を配列@array_of_reffに入れる。 if( eof ){ $reff = \%hash ; push (@array_of_reff, $reff); } } #####ハッシュのリファレンスの配列（@array_of_reff）からもとのハッシュを参照し、ハッシュごとに出力 foreach my $reff_of_hash (@array_of_reff){ 　　　print "output"; 　　　while( (my $key,my $value) = each %$reff_of_hash ){ 　　　　print "\n" , $key, " : ", $value, ; 　　　} } このスクリプトを実行すると Nov 4 Oct 8 という３つめのハッシュのなかみが３回出力されてしまいます。自分では３つの別のハッシュをつくっているつもりでも、どうやら１種類しか作れていない、もしくはハッシュが上書きされているようなのですが、原因がわかりません。この例だけ見るとハッシュのリファレンスを使う必要はないのですが、実際にはもうすこし大きいスクリプトで"ハッシュのリファレンスの配列を他のサブルーチンに渡す"ということを想定しており、これが解決できず先に進めない状態です。アドバイス、解決法がわかったら教えていただけないでしょうか。

一月前の日付を求めるプログラム(pascal）

大学の課題で「一月前の日付を求めるプログラムを作れ。その日が無ければその月の最後の日を示す。」というのが出題されました。12月18日(火)と入力すると11月18日(日)、12月31日(月)なら11月30日(金)となる具合です。列挙型を用い書いてみたのですが、コンパイルしたら「Type-clash」と出てコンパイルできませんでした。どう改善すべきかアドバイスお願いします。 program calender(input,output); type months=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Nov,Oct,Dec); weeks=(Mon,Tue,Wed,Thu,Fri,Sat,Sun); var x,x1,z,z1:char; y,y1,p1,p2,i,r:integer; begin writeln('月：'); readln(x); writeln('日:'); readln(y); writeln('曜日:'); readln(z); if x=Jan then begin x1:=Dec end else begin x1:=pred(x)　　　　　　　　　　　　｛x1＝表示する月｝ end; if y>=29 then if x=Mar then begin y1:=28 end else begin y1:=y　　　　　　　　　　　　　｛y1＝表示する日｝ end; case x of May,Jul,Aug,Nov,Dec : p1:=30; Jan,Feb,Apr,Jun,Sep,Oct : p1:=31; Mar : p1:=28 {月の違いによる日数の違い｝ end; p2:=y-y1;　　　　　｛日にちの違い｝ r:=(p1+p2)-trunc((p1+p2)/7)*7;　｛7で割った余り｝ for i := 1 to r do z1:=pred(z);　　　　　　　　　　｛z1＝表示する曜日｝ writeln(x1,'月',y1,'日',z1,'曜日') end.

エクセルで縦列を横行にするには？

エクセル２００７を使っています。縦：Ａ１列に日付があり、Ｂ１列にデータがあります。これをＣ１行にＡ１列の日付、Ｃ２行にＢ１列のデータというように縦のものを横に変更したいのですが、それぞれを参照するようにする他に、どのようにしたらいいのでしょうか？

[エクセル・VBA]縦列のユニークな情報を取り出し、横行に配置

みんなの回答

お礼 2008/06/07 16:53

関連するQ&A

[エクセル・VBA]縦列のユニークな情報を取り出し、横行に配置

[エクセル・VBA]縦列の重複するデータを抽出し、横行に一つずつのみ並べかえ表示させる

エクセルについて

ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策

マクロで条件に不一致なら空白セルを挿入方法

エクセルVBAの問題？

【エクセル2010】文字列を日付に変える方法は？

月名でソートを行いたいのですが・・・

Excelで急にユーザー定義の表示が変わった！

Excelで表のセルの操作

日付処理について

冗長なソースをコンパクトにしたい

月の省略表示について

家のネットワークを最適にできますか？：知っておくべきポイント

VBA 数日後の日付をうまく求められません

ポインタの基本的な問題

C#による日付のフォーマット変換について

掲示板のcookieが消える？

Cookieの有効期限について

ハッシュのリファレンスを用いた処理

一月前の日付を求めるプログラム(pascal）

エクセルで縦列を横行にするには？

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう