nekotaru の回答履歴

よろしくお願いいたします。 ★（表１）のような男女ソートされていない名簿があります。そこで、 ★（表２）のような「男女それぞれの平均年齢をだす計算式」を作りたいのです。AB2とAB3に入力する式を教えてください。 ★（表１） 　　　A　　　　　　　B　　　　　C １　（氏名）　　　（性別）　（年齢） ２　山田太郎　　　男　　　92 ３　川海花子　　　女　　　78 ４　山田次郎　　　男　　　65 ５　空田三郎　　　男　　　81 ６　川村五郎　　　男　　　71 ７　川村花恵　　　女　　　68 ８　鈴木鈴子　　　女　　　102 　・・・以下約150人 ★（表２） 　　AA　　　　　　AB　　　　 １　（平均年齢）　　 ２　男　　　　　　○○ ３　女　　　　　　△△

一つのセルの中で、「犬, 犬, 猫, 猫, 猫, 男性, 女性, 女性, 女性, 女性」というような連続する同じ値を、「犬, 猫, 男性, 女性」のように、スリムな形にしたいと思っています。 つまり、繰り返し同じ値が連続している場合に、その一つだけを残して、他を削除したいのです。 エクセルのカンマによるデータ区切りを利用して、区切ったあとに、行列を入れ替えて貼り付けて、フィルタオプションの設定で、同じ値を抽出しないなどの方法を行ってみたりはしたのですが、なにぶんセルの数が膨大なため、手間がかかります。 エクセルでなくても、正規表現を用いたテキストの置換方法などでも構わないのですが、何かいい方法を教えていただけませんでしょうか？

VBAでフォルダを指定した後、そこのファルダに有るすべての拡張子TXT.ファイル（中身はCSVファイル） を新しいExcelを1個開いてまとめるマクロを何方か教えてください。 下記だとエクセルが多数開いてしまいます。 （TXT.ファイル1個＝Excelのシート1枚） -------------------------------------------------------- Sub ffff() myPName = Application.GetOpenFilename("データ（*.TXT;*.DAT）,*.TXT;*.DAT") If myPName = "False" Then Exit Sub myKAKUCHOSI = Right(myPName, 4) myPATHNAME = CurDir myLName = Dir(myPATHNAME & "\" & "*" & myKAKUCHOSI) Do While myLName <> "" Workbooks.OpenText Filename:=myPATHNAME & "\" & myLName, DataType:=xlDelimited, Tab:=True, Comma:=True, Space:=True myLName = Dir() Loop End Sub

VBAでフォルダを指定した後、そこのファルダに有るすべての拡張子TXT.ファイル（中身はCSVファイル） を新しいExcelを1個開いてまとめるマクロを何方か教えてください。 下記だとエクセルが多数開いてしまいます。 （TXT.ファイル1個＝Excelのシート1枚） -------------------------------------------------------- Sub ffff() myPName = Application.GetOpenFilename("データ（*.TXT;*.DAT）,*.TXT;*.DAT") If myPName = "False" Then Exit Sub myKAKUCHOSI = Right(myPName, 4) myPATHNAME = CurDir myLName = Dir(myPATHNAME & "\" & "*" & myKAKUCHOSI) Do While myLName <> "" Workbooks.OpenText Filename:=myPATHNAME & "\" & myLName, DataType:=xlDelimited, Tab:=True, Comma:=True, Space:=True myLName = Dir() Loop End Sub

夢のような話かもしれませんが、エクセルで作成した書類のごく一部（この場合はヘッダーのみ）自動的に指定した文字に切り替えることはできるのでしょうか？ 要点を申し上げると会社移転により住所がかわるのですが、エクセルで作成した1000枚以上の書類のヘッダーを全て打ち直さなくてはならないので、なにか簡単に処理できる方法は無いものかとおもったのですが・・だれか助けてください。。

夢のような話かもしれませんが、エクセルで作成した書類のごく一部（この場合はヘッダーのみ）自動的に指定した文字に切り替えることはできるのでしょうか？ 要点を申し上げると会社移転により住所がかわるのですが、エクセルで作成した1000枚以上の書類のヘッダーを全て打ち直さなくてはならないので、なにか簡単に処理できる方法は無いものかとおもったのですが・・だれか助けてください。。

VBAでフォルダを指定した後、そこのファルダに有るすべての拡張子TXT.ファイル（中身はCSVファイル） を新しいExcelを1個開いてまとめるマクロを何方か教えてください。 下記だとエクセルが多数開いてしまいます。 （TXT.ファイル1個＝Excelのシート1枚） -------------------------------------------------------- Sub ffff() myPName = Application.GetOpenFilename("データ（*.TXT;*.DAT）,*.TXT;*.DAT") If myPName = "False" Then Exit Sub myKAKUCHOSI = Right(myPName, 4) myPATHNAME = CurDir myLName = Dir(myPATHNAME & "\" & "*" & myKAKUCHOSI) Do While myLName <> "" Workbooks.OpenText Filename:=myPATHNAME & "\" & myLName, DataType:=xlDelimited, Tab:=True, Comma:=True, Space:=True myLName = Dir() Loop End Sub

こんにちは　はじめまして エクセルのワークシートを自動で生成するやり方を教えていただけますでしょうか。 やりたいことは以下の通りです。 何件かお店がありまして、毎日の売り上げ報告がファックスで本部に送られてきます。 そのファックスを見ながら、本部ではエクセルに入力し合計と累計を出すようにしています。 今現在は雛形ワークシートを一つ作り、手動でワークシートを30,31日分をコピーし、ブックには「店舗A2006年3月度分.xls」というようなブック名で保存してあります。 うちの会社は10日締めなので、3月で言うと、20060311から20060410(←数字は西暦)までのワークシートを作ります。 ワークシートのイメージとしてはこんな感じです。↓ シート名：店舗A.xls ワークシート名：「雛形」 ---------------------------- 当日の日付 商品A　単価　○個　小計 商品B　単価　○個　小計 　　　　・ 　　　　・　 　　　　　　　　　当日の合計 ---------------------------- そしてこれの「雛形」を、自動で一か月分ワークシートをコピーするようにしたいのです。（今は手動でやってます） VBAの本を読んで、For～Next分を使うと、指定した枚数コピーできることはわかったのですが、ご承知の通り30日の月もあれば31日の月もありまして、これを計算で自動に判断するようにできないでしょうか？ 欲を言えば、さらにそのワークシート名も自動で「A店舗20060311」というように日付ごとのワークシート名を入れられるようになると助かります。 もっと欲を言えば、各ワークシートの特定のセルに当日の日付を入れてるのですが(セル番地はどこでもいいです)、そこの日付も、ワークシート名と連動して自動で入れられると助かります。 長文になってしまいましたが、どなたか教えていただけると助かります。 よろしくお願いいたします。

こんにちは　はじめまして エクセルのワークシートを自動で生成するやり方を教えていただけますでしょうか。 やりたいことは以下の通りです。 何件かお店がありまして、毎日の売り上げ報告がファックスで本部に送られてきます。 そのファックスを見ながら、本部ではエクセルに入力し合計と累計を出すようにしています。 今現在は雛形ワークシートを一つ作り、手動でワークシートを30,31日分をコピーし、ブックには「店舗A2006年3月度分.xls」というようなブック名で保存してあります。 うちの会社は10日締めなので、3月で言うと、20060311から20060410(←数字は西暦)までのワークシートを作ります。 ワークシートのイメージとしてはこんな感じです。↓ シート名：店舗A.xls ワークシート名：「雛形」 ---------------------------- 当日の日付 商品A　単価　○個　小計 商品B　単価　○個　小計 　　　　・ 　　　　・　 　　　　　　　　　当日の合計 ---------------------------- そしてこれの「雛形」を、自動で一か月分ワークシートをコピーするようにしたいのです。（今は手動でやってます） VBAの本を読んで、For～Next分を使うと、指定した枚数コピーできることはわかったのですが、ご承知の通り30日の月もあれば31日の月もありまして、これを計算で自動に判断するようにできないでしょうか？ 欲を言えば、さらにそのワークシート名も自動で「A店舗20060311」というように日付ごとのワークシート名を入れられるようになると助かります。 もっと欲を言えば、各ワークシートの特定のセルに当日の日付を入れてるのですが(セル番地はどこでもいいです)、そこの日付も、ワークシート名と連動して自動で入れられると助かります。 長文になってしまいましたが、どなたか教えていただけると助かります。 よろしくお願いいたします。

表示している画面を画像として保存する方法を知っている方はやり方を教えてください！どこかのボタンを押したりするのですか？ できるだけ簡単なやり方をよろしくお願いします。

ＮＴサーバーにアクセスするために、例えばエクスプローラから ネットワークの接続を行うとユーザー名とパスワードの入力を 求められるダイアログが表示されます。 エクセルＶＢＡでサーバーのファイルを開く場合、事前にネットワーク の接続が出来ている場合は問題ないのですが、接続が出来ていない時は エラーが出て止まってしまいます。 このネットワーク接続をＶＢＡで実現したいのですが、どうすれば出来るのでしょうか？

テキストファイル同士を結合するツールは、昔からありまして、私も何度か使ったことがあるのですが、 このほど私がやりたいのは、こんなイメージです。 「１個のフォルダの中に入っている全てのテキストファイルを一度に結合する」 ↑ 必ずしも、こういう機能でなくても良いのですが、下記。 私は以前から、メモ書きのために、その都度作ってしまったテキストファイルが、何十個もたまった状態になってしまっていまして、 それらを全部結合した１個のテキストファイルにしたいのは勿論ですが、「確実に、全ての対象ファイルを結合」したいのです。 理由１：　元となる、そのテキストファイルを、全部捨てたい。 理由２：　新しいテキストファイルの中で、これまでメモした全ての情報を検索したい。 なお、 結合するファイルの順番は、どうでもよく、とにかく１つに出来ればＯＫです。 フリーソフト限定でお願いします。 （ＯＳは、WindowsＸＰ Home Edition です）

近々、単身赴任することとなり、単身赴任先でインターネットをするに当たり、ノートパソコンを使用したインターネットをしたいと考えておりますが、そのために必要となる、パソコン本体以外の環境（ワイヤレスＬＡＮ対応のほか、別途必ず必要となるもの）について教えてください。 　また、現在自宅でニフティに加入し、ＮＴＴのＢフレッツ（光）でネットを利用しておりますが、もし単身赴任先や研修所でワイヤレスによるインターネットをする場合には全く自宅の契約とは別にプロバイダを選ばなければならないのでしょうか。（自宅で加入している場合に割安となる契約形態はないのでしょうか。） なお、単身赴任中、数ヶ月は、別地の研修所へ入るため、そこへもパソコンを持って行きたいので、デスクトップではなく、ノートパソコンを購入するものです。

プリウスが電源が急に落ちることがあります。 TVの録画が出来るタイプなのですが、録画が出来なくなったり、処理速度が遅くなったりします。 復旧の仕方を教えてください。 画面もよく固まります。

前まで接続できたのに、最近接続できなくなってしまったHPがいくつかあります。 接続を試みると、「サーバーが見つかりません」と 表示されてしまいます。 ちなみに、現在接続できなくなっているいくつかのHPはいずれも、潰れるハズのない大きなHPです。 どなた様かご回答をお願いいたします・・・。

　こんにちは。以前ご回答くださった方、本当にご丁寧にありがとうございました。今度は例示します。 　詳しい方がいらっしゃいましたらどうかご教授下さいませ。 　 【Seet１　基になる表：タイトル「地域別売上調査」】 　　A　　　B　C　　　D　　E 1　番号　 月　日　　地　　域　 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ ２　１　　９　１　　北海道２ ３　２　　９　２　　東京　４ ４　３　　９　１　　北海道３ ５　４　　９　４　　沖縄　０ ６　５　　９　２　　北海道０ ７　６　　９　４　　東京　１ ８　７　　９　１　　北海道１ ９ 合　　　　計　　 ６　１５　 ６ 【Sheet2　抽出したデータで作られた表】 　この表では、ラベル名（「月」「日」「地域名」のこと）を書き換えても、合計結果が自動的に集計されるようにしたいのです： ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 　　A　　B　　　　　　　　C　　　　D １　合計：売上合計｜　　　地　　　　域 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ ２　月　　日　　　｜　　北海道　　東京 ３　９　　１　　　｜　　　６　　　　０ ４　９　　２　　　｜　　　０　　　　４ 　　説明：他の月日や地域をそれぞれセルA３、A４、B３、B４、C２、D２に入力すると、 基の表からデータが引っ張られ、セルC３、C４、D３、D４には 「求めたい地域名の、なおかつ、求めたい月日の『売り上げの合計』」 　会社の上司は「必要なデータだけが表示される単純明快な表」を望んでいます。上司は「確かこんな表を作れる関数があったはずだ・・」というのです。皆さんのお知恵をお貸しください。

妻のお父さんのPCが変になってしまいました。 僕はPC暦が長いだけで詳しくは無いのですが、頼まれて見に行きました。 電源を入れると普通一瞬で終わる最初のNECのロゴ画面が、異常に長く表示されます。30秒から1分位。 そして画面が暗転し文字が表示されます。以下その文面。 CPU=Intel(R) Celeron(R) CPU 1.80GHz 224MBシステムRAMテスト完了。 128KキャッシュSRAMテスト完了。 システムBIOSがシャドウされました。 （2行省略） マウスが初期化されました。 イベントログメッセージを記録しました。セットアップで参照できます。 エラー リソース競合-PCIネットワークコントローラ　スロット#01 　パス:00, デバイス:14, 機能:00 <F1>キーで継続、<F2>キーを押すとセットアップを起動します。 （文面以上） で、F1キーを押すとようやくWindowsが起動しますが、 ネットには繋がりません。 どうもLANボードを認識していない様に思えるのですが、上記の競合と思われます。 BIOS画面を立ち上げて各項目をチェックしましたが原因は見つけられず。 （ここをいじって過去何回かマシンを壊した経験があるので怖いです。） 全く僕はパソコンおたくじゃないのに、年寄りから頼りにされて困っています。 （おたくになら、なりたいわ！） 義父のマシンはNECのバリュースター。 関係ないと思いますが回線はフレッツADSLでISPはOCNです。 皆さん。どうかお知恵をお貸し下さい。 よろしくお願いします。

先に「OUTLOOK２００３で添付がつまみ出せない 」の質問をしたのですが、どうもOUTLOOKのせいではないことが分かったのでこの質問をさせて頂きます。後ほど上記質問は削除致します。 Window間でのファイルのやり取りもそうらしいのですが、ファイルをポインタで摘んでデスクトップにドロップできません。デスクトップ以外のWindowにはできます。また、カット＆ペーストで移動することやファイルとして保存することによりデスクトップにファイルを置くことは可能です。とにかくデスクトップに摘み出す動作ができないようです。 どうすれば直るでしょうか。

パソコンの電源を入れた時に、そのまま、アウトルックエクスプレスが立ち上がるよう（スタートアップと言うのでしょうか？）にするためにはどうすればよいでしょうか。 osはウィンドウズＸＰです。

妻のお父さんのPCが変になってしまいました。 僕はPC暦が長いだけで詳しくは無いのですが、頼まれて見に行きました。 電源を入れると普通一瞬で終わる最初のNECのロゴ画面が、異常に長く表示されます。30秒から1分位。 そして画面が暗転し文字が表示されます。以下その文面。 CPU=Intel(R) Celeron(R) CPU 1.80GHz 224MBシステムRAMテスト完了。 128KキャッシュSRAMテスト完了。 システムBIOSがシャドウされました。 （2行省略） マウスが初期化されました。 イベントログメッセージを記録しました。セットアップで参照できます。 エラー リソース競合-PCIネットワークコントローラ　スロット#01 　パス:00, デバイス:14, 機能:00 <F1>キーで継続、<F2>キーを押すとセットアップを起動します。 （文面以上） で、F1キーを押すとようやくWindowsが起動しますが、 ネットには繋がりません。 どうもLANボードを認識していない様に思えるのですが、上記の競合と思われます。 BIOS画面を立ち上げて各項目をチェックしましたが原因は見つけられず。 （ここをいじって過去何回かマシンを壊した経験があるので怖いです。） 全く僕はパソコンおたくじゃないのに、年寄りから頼りにされて困っています。 （おたくになら、なりたいわ！） 義父のマシンはNECのバリュースター。 関係ないと思いますが回線はフレッツADSLでISPはOCNです。 皆さん。どうかお知恵をお貸し下さい。 よろしくお願いします。