Excel総合相談所 98

▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★2 要望は具体例や図を使って明確かつ具体的に。
★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
★4 質問テンプレ(雛形)は必須じゃないけど、
　　　OSやExcelのバージョン､VBAの可否など(下記テンプレ1〜4の情報)は必須情報。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード

※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣
　 VBAを使うのは避けたいって場合は｢否｣にしましょう。丸投げする場合は､必要に応じてブックをアップすること。

※【5】は、あなたがGoogleやヘルプで検索した際に使ったキーワードを書いてください。
　 まだ検索してないなら、質問の前にGoogleやヘルプで検索してみてください。
　 ttp://www.google.co.jp/

前スレ
Excel総合相談所 97
http://hibari.2ch.net/test/read.cgi/bsoft/1304307841/

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･1 現行スレ内で既出の質問が無いか、ページ内検索をしよう。(Ctrl+F)
･2 図やコードを書く場合、TABや連続する半角スペースは無視されるので注意
･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。
･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。
･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。
･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
　　ここは技術的な質問のみで。
･7 VBAはプログラム言語のVisualBasic(6以前)に近い処理が可能で　Excelに関係ないことも出来ます。
　　Excelの操作に関係ない部分は、スレ違いなのでここで聞かずにVB言語やAPI､COMについて自分で勉強し､
　　どうしてもわからない部分はVBスレやAPIスレなどの該当スレで質問しましょう。
　　但し向こうはプログラマのスレなので､構文規則などの最低限の事は覚えてから質問しましょう。
　　ここみたいに丸投げはダメですよ。
･8 うまくいかなかったにしても自分でやってみたこと(組んだ数式やコード)は書きましょう。
　　例えエラーになる式やコードでも、何をやりたいのかを的確に把握する手がかりになります。
　　その上で、どううまくいかないのかを具体的に書きましょう。
　　エラーが出るなら、何処でどういうエラーが出るのか、
　　想定外の結果が出るなら、条件と想定上の結果、実際の結果などを詳しく書いてください。
･9 マルチはダメ。一度マルチしたら､謝っても他のスレの質問を取り下げても回答は得られないと思ってください。
･A テキストボックス(エディトボックス)、コンボボックス(ドロップダウンリスト)、リストボックス、コマンドボタン、
　　チェックボックス、オプションボタン(ラジオボタン)、スピンボタン、スクロールバー、等の質問をするときは、
　　ユーザーフォーム、コントロールオブジェクト、フォームオブジェクトのどれなのかを必ず書くこと。
･B 書籍や解説サイトの紹介以来はスレ以外。ここは技術的な質問のみで。

★ルールを無視すると…
　>>1-2あたりのルールに従うか否かは自由だけど､従わないと以下のような不利益があるよ

　★1．マルチをしてしまったら…
　A．謝っても他での質問を取り下げても､以後その質問に対する回答は付かない物と思ってください。
　　　それが嫌なら初めからマルチなんてしないように。>>2にマルチ禁止と書いてあり､
　　　マルチの意味が分からなければ検索すれば出てくるので､｢知らなかった｣は通用しません。

　★2．>>1★4に従わず､必要な情報を出さないと…
　A．自分の使用しているバージョンで使えない機能を答えられたり､VBA使えないとか使いたくないと書かないと
　　　VBAでの解決OKで自分でコード書けるものと勝手に解釈されて､｢VBAで出来るから自分でコード書いて｣程度の
　　　適当な回答を返されたりします。また､ここではVBAコード書けない人の丸投げ依頼を許可してますが
　　　これはきちんとルールに従って質問､依頼した人のみの特権です。

　★3．情報･条件を後出しすると…
　A．後から出された情報は意図的に無視されたり､質問自体を放置されたりします。
　　　>>1★4の必須情報はもちろんのこと､要望や条件､既に試したことなどは､
　　　長文になってもいいので詳細かつ明確かつ具体的に書きましょう。


★VBAについて
　VBAとは､『Visual Basic for Application』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　 ｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。　
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。

★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

　▼環境･書式
　 ･ 列数を256列以上、行数を65'536行以上に増やす (Excel2007以降では16'384列､1'048'579行扱える)
　 ･ Excel2003以前で条件付き書式を3つ以上設定する (文字色だけなら、入力規則でも3つ設定可能。それ以外はVBA)
　 ･ 行の高さを0.25きざみ以下の単位で指定する
　 ･ セル内の文字を○で囲む、一部のみ2段にする (オートシェイプ、オブジェクト)
　 ･ オートフィルタで英字の大小文字を区別する (小文字 → 半角、大文字 → 全角、と使い分ける)
　 ･ 祝日を判断する (作業セルに祝日を列挙、VBA)
　 ･ 同一列内でセル(行)ごとに列幅を変える、同一行内でセル(列)ごとに列高を変える (セルの結合)
　 ･ ヘッダー･フッターのページ番号の開始番号任意指定、ページ番号演算、同シート内で違ったものを指定など
　 ･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
　 ･ 罫線幅の自由指定
　 ･ 表示形式で｢10/ 1｣といった書式を指定し､日付が一桁の場合のみ日付の前にスペースを入れる (TEXT関数､VBA)
　 ･ 書式設定の｢折り返して全体を表示する｣と｢縮小して全体を表示する｣を同時に使う (折り返しを有効にして､手動で文字サイズを調整)

　▼操作
　 ･ ファイラーの右クリックメニューからの新規作成で、Excelで設定したシート数のブックを作る (任意のシート数のテンプレートを作成)
　 ･ 複数シートを選択して入力規則やシートの保護を設定する (VBA)
　 ･ オートコンプリート機能を、別列や離れたセルで動作させる (VBA)
　 ･ 選択範囲から一部を除く､Ctrlを押しながらの複数選択で一部を取り消す (VBA)
　 ･ 優先キーを3つ以上指定しての並べ替え (優先度の低い方から順に並べ替える)
　 ･ 1セルを分割 (分割したいセル以外を結合)

上記 ｢Excelで出来ないこと、仕様上の制限｣ は､一般的に出来ないとされていること､出来ないと思われるものです。
間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。
Excel2010についても未確認な項目が多いので変更点が有ればご指摘下さい。

また､ここに書かれてないことでも､Excelで出来ないことはたくさんあります。
ここに書かれてないからといって必ず出来るはずだなんて思わないように。

＞▼環境･書式
＞ ･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
補足
2007以降ではページレイアウトビューの表示時に限り、幅・高さともｃｍ単位で表示され、
指定も同じくcm単位でできる。
ただし大元がインチ系なのでなかなかピタリの値は出ない。1cm→0.98cmのように
近い値に勝手に丸められる。

以上でテンプレ終わり （Excel総合相談所 94からコピペ、一部改定）。

ここの回答者ってほんとに頭いいですよね

はい

>>6
はい。私以外は皆、頭の良い方達ばかりです。

excel2003に「Microsoft数式3.0」をアドオンして使っています。
数式を表示させるため、同アドオンのオブジェクトを挿入しました。
で数式を書いて表示しました。

ここまではOKなのですが、Excel上でオブジェクトのサイズを広げてしまうと、それに併せてストレッチされてしまいます。
例えば縦に伸ばすとそのまんま、縦長になります。香港映画ですよ。

縦横比が狂うと、∫が全部違った角度で寝てしまいます。

オブジェクトのサイズを広げても一定のフォントサイズで綺麗に書かれていてほしいのですが、どうすればよいのでしょうか？
（Excelワークシート上でオブジェクトをリサイズするのが御法度なの？）

オートシェイプのサイズを変更したくない
http://www.relief.jp/itnote/archives/000480.php

【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 (excel 入力 ジャンプ先) (excel 入力 enter 位置)

ttp://muryoudeai.sumomo.ne.jp/up/src/up1439.jpg
上記画像のように、
Aでenterを押すとBに入力位置が常に自動で移動する方法は
ないでしょうか?
あらかじめctrlでセル選択やジャンプのダイアログではなく、入力するべき欄の
末尾でエンターを押すと、次の入力するべき欄の先頭へ常に自動で
移動するようにしたいのです。
マクロで実現しているのは見かけましたが、当方、教える相手先ともに
マクロは使えないのでできればマクロなしでお願いします。

>>11
簡易に [Ctrl] + 左クリックで、入力したい範囲を指定(反転)させておく
　　または
様式が決まっているなら、入力範囲のロックを外してして、シート保護をかける。

>>12
ありがとうございます

>入力範囲のロックを外してして、シート保護をかける。
これでTABキーで入力したい位置にだけ移動は
できるようですが、
入力欄末尾でenterを押すと次の入力欄の先頭に行く
という風にする方法はないのでしょうか?

>>10
ありがとうございます。

どうやらオブジェクトのサイズを変更したりせず、
しかもオブジェクトをダブルクリックして編集するのではなく、
右クリックでコンテキストメニューから「開く」とやって、
専用の数式エディタを起動した後、メニューから「Excelに戻る」みたいなヤツを選んで抜けると
正しいサイズで描画してくれるようです。

ゴミか。。どうしてマイクロソフトの技術はいつもそんなんばかりなんだ

Aファイルのシート1のセルデータを
Bファイルのシート1の元からあるセルデータの末端から
結合して貼り付けるには、どのようなVBAのコードをかけばよいでしょうか？
データはstring型です。

2003です。

>>15
開始も終了もよく分からないし、最初から末端かけてどういう順序かもわからない
まー大体は
dim 文字列 as string
最後　＝　ctrl+↑
for 1=　to 最後
文字列　=　文字列　& cells(i,1).value
みたいな感じ

>>16
あ、そんな感じでおｋです。
セルへの文字列結合の数式が分からなかったので・・・
&でいいのですねー　ありがとうございます

僕の家のPCに入っているのはoffice2003なのですが
友だちが使っている2010を使いたいです

友だちのoffice2010のデータをコピーなどで入れることはできないでしょうか？

>>18
無理です。買ってね(｀・ω・´)

A列に上から「田中・田中・鈴木・鈴木・伊藤・伊藤」と並んでいるとします。
このA列を利用して、別のセルに「田中・鈴木・伊藤」と3つのプルダウンメニューから選べる方法はありますか？

名前はよく追加されるので（佐藤が追加される。伊藤がなくなるなど）
リストを作らずにA列参照にて出来る方法があればと思っています。

EXCEL2003です。

>>19
そうですか
ありがとうございました

>>18
大学生だったら自分の通っている大学がMSキャンパスアグリーメント
という包括契約をMSと結んでいるかどうか調べるといいよ。そこの
大学生ならOfficeは無償で出来るはず。

>>20
作業列を使うなら、
どっかの列（この場合B列）に、
=INDEX(A:A,SMALL(IF(MATCH($A$1:$A$20&"",$A$1:$A$20&"",0)=ROW($A$1:$A$20),ROW($A$1:$A$20),10^3),ROW(A1)))&""
と入力して、式を編集状態の時に、CTRL+SHIFT+ENTERで確定させる
（式の前後に　｛　｝　がつく）
適当に下までずるずるっとコピー

リストは
=OFFSET(B1,0,0,COUNTIF(B:B,"?*"))
こんな感じで指定

あ、元の列の途中に空白が出来るとうまく行かないよ

Excel2007から様々な仕様が変更されたのはわかっていましたが，
2007と2010の違いに悩まされています。
関数が少し増えたのと，UIが多少変わったぐらいと考えていたのですが・・・

2010で作った条件書式を使ったファイルを2007で開くと，意図したようになりません。
2010と2007の挙動の違いについて，まとめてあるサイトなど教えていただけないでしょうか？

>>25
http://officetanaka.net/excel/excel2010/016.htm

EXCEL2010でガントチャートをシェイプで作成したけど、そのシートをコピーしたらシェイプが全くコピーされない謎現象が発生しました。
こんな現象聞いたことありますか？

はい。あります。

rank関数で出した順位を☆で表示させたいと思い
countif関数で出来そうと試したのけれど失敗しました
分かる方お願いします

178pt 1位 ☆☆☆☆☆
163pt 2位 ☆☆☆☆
145pt 3位 ☆☆☆
120pt 4位 ☆☆
107pt 5位 ☆

こういう感じです。ソフトはExcel2007です。
お願いします。

>>29
よく分からないのですが、1位は必ず☆が5個とか決まってるの？
であれば、b1に１と入っているとすると
=REPT("☆",6-B1)

だけど、たぶん違うんだろうなあ

>>30
素早い返信に感謝です。
教えて頂いたREPT関数で思い描いていたことが出来そうです。

上記に出した参考例では５人の中でという前提なので☆５個表示でよかったです。
実際は仲間内６人でポイントを競うゲームをしているので１位は☆６個表示になりますが（笑

まだまだ勉強が足りませんでした。ありがとうございました。

>>29
対象数が可変する場合の式
=IF(B1="","",REPT("☆",SUM(COUNTA(B:B)+1)-LEFT(B1,LEN(B1)-1)))

※　>>30さんの式を参考にさせていただきました。

>>32
帰省中で今すぐには確認できないのですが
後学のため提示頂いた方法は試してみます
ありがとうございました

一日一回計測した数値データが数年分あり、これを折れ線グラフにしたいと
思っています。ただし計測をしていなかった日が不定期にあるので、そのまま
折れ線グラフにしてしまうとグラフの傾斜の意味が時期によって異なってしま
います。

これを週平均データとすることで傾斜の意味は一定になると思うのですが（平均
算出のためのケース数が異なることには目を瞑るとして）どのようにすれば効率
的に日データを週平均データとすることが出来るのでしょうか？

ExcelはMac, Winの2004以降の各版があります。
よろしくお願いします。

>34
日付データから　年　と　その日がその年の第何週目にあたるか　を作業列に出して、
ピボットテーブルで週毎の平均だしたらどうですか？
日付データがＡ列、数値データがＢ列にあるとして、作業列に=Year(A1)*100＋Weeknum(A1)で
６桁の数字が出ます。

>>35
早速のご教示ありがとうございます。恥ずかしながらWeeknum関数という便利なものが
あるのを知りませんでした。昔の版でも分析ツールを入れることで動作いたしました。

>>34
考えた方法でもいいでしょうけど、
折れ線じゃなくて、散布図で観測された点をつなぐんじゃだめなの？

>>37
ご教示ありがとうございます。散布図試してみました。これだと横軸＝日付の時、観測実施日の
疎密に横軸の間隔が影響されないのですね。勉強になりました。

XP、Excel2003使用。
一つのセル内に時間（hh/mm/ss,0）を表す数値が入っていたとします。
00 01 20 160

これを

00:01:20,160

こんなふうにして数字の空白に記号を追加することは可能ですか?
セルの書式設定をしようにもイマイチうまくいきませんでした。
どなたかお知恵を…。

>>39
エディタと併用した方が簡単かと思います。
問題となっている列だけを例えば秀丸に書き出します。

置換で正規表現をチェックし次のようにします。spaceは実際にスペースをうちます。

検索：^(..)space(..)space(..)space(...)
置換：¥1:¥2:¥3,¥4

うまく置き換わったら、これをエクセルに読み戻せばいいはずです。

>39
>ss,0
ss.000じゃなくて？

>>39
２桁（スペース）２桁（スペース）２桁（スペース）３桁

↑絶対にこのリズムが守られているんであれば、一旦数値を４つのセルに分解して、
記号を追加した上で一つのセルに集合させることもできるけど…

"160"の手前の文字がコンマじゃなくて小数点なら時間として認識したんだけど↓
A1セル 00 01 20 160
A2セル =MID(A1,1,8)&"."&MID(A1,10,3)
A3セル =SUBSTITUTE(A2," ",":")*1

>>39
【A】 時､分､秒､ミリ秒をそれぞれ切り出して､シリアル値に変換する方法
=TIME(LEFT(A1,2),MID(A1,4,2),MID(A1,7,2))+(RIGHT(A1,3)/24/60/60/1000)

　(TIME関数の第三引数に小数を渡してもミリ秒として扱われないので､ミリ秒は算術演算でシリアル値化する)


【B】 「時：分：秒．ミリ秒」形式の文字列を作って､シリアル値に変換する方法
=TIMEVALUE(SUBSTITUTE(LEFT(A1,8)," ",":")&"."&RIGHT(A1,3))

　(シリアル値への変換は､*1などの無意味な算術演算をする方法もあるが､可読性が落ちるのでTIMEVALUE使った方が良い)


「0 1 20 60」を「00:01:20.060」にしたいとかなら､正規表現でも一発では対応出来ない(ミリ秒部が0.060秒ではなく0.600秒扱いになる)ので
正規表現2段重ねかVBAってことになるが､わざわざ「00」「01」と表記してるってことは､各位の桁数というか文字数は揃ってるのだろうから
それならわざわざ外部エディタで正規表現使うまでもない

因みにミリ秒の区切り文字は「，」ではなく「．」が正解ね
文字列として表示だけ整えば良いなら「，」で表示することも可能だが､日時データとしたいなら「．」を使うこと

>>44が最も合理的な回答で自分の書き込みが恥ずかしい・・

文字列0のセルを、空白と認識させる方法はありますか？

>>46
ケースによる。

>>39です。
>>44が最も合理的とのことですが、浅学のためシリアル値という単語も
timevalueという関数も初めてだったので、自分の頭では
>>43のやり方のほうが理解しやすかったようです。
いずれにせよ、皆さま教えて下さってありがとうございました。
ここには天才がたくさんいらっしゃるんですね…。

もう一つだけ、あとでまた質問するかもしれません。

>>47

データの入力規則→入力値の種類→リスト
（空白を無視する、ドロップダウンリストから選択））
としていて、元の値にif関数で作った””（文字列ゼロの空白）があって
それが空白として無視されないのですが

>>49
エクセルの仕様です
""は、文字列0のセルではない別の何かと認識されます
>>49さんの場合、文字列0は恐らく未使用セルと置き換えたほうが良いでしょぅ

その条件でリストを作るなら作業列に、空きセルのない自作リストを作ると良いと思います
もしくはvba

>>50
迅速な回答ありがとうございます！！
やっぱり仕様ですか・・・

""を未使用セルに置き換えたんですが
そしたら空白じゃなくて｢0｣になってしまいます・・・

>>51
エクセルの仕様です。
未使用セルは文字列0、数値も0という前提で計算やら何やらされます(エラー値は別です)
式も入ってない未使用セルならisblankでTRUEが帰りますが・・・

式が入ってるセルに、isblankは通用しません

仮にそのifの式の戻り値を"hoge"として、
=COUNTIF(A:A,"hoge")
とかするしかないですねー

>>52
結局自作リストにしました
お世話になりました

つーか､「空白を無視する」の意味を勘違いしてないか？

なんか

1|AAA
2|BBB
3|
4|CCC
5|DDD
6|
7|EEE

というソースから

3行目､6行目を無視して

[　　　　]▼]
　AAA
　BBB
　CCC
　DDD
　EEE

というリストを作りたがってるように見えるけど､「空白を無視する」ってのはそういう意味じゃないぞ
たとえ完全な空白(Empty)にしても､こうはならない

「リスト」以外の入力規則でも､この「空白を無視する」ってオプションがあるのを見れば解るとおり
これはリスト表示を行う上でのオプションではなく､入力規則全体の､入力制限上のオプション

リストの使い方で言えば､通常､入力規則のリストを設定したセルには､リストにあるものしか選択出来ず
任意の入力は出来ないが､このオプションを使うとリストからの選択も､任意の入力も出来るセルを作れる
コンボボックスで言うところの､ドロップダウンリストとドロップダウンコンボの違いみたいなものだ

因みに
> ""は、文字列0のセルではない別の何かと認識されます
は間違い
""は文字列(長)0のセルと認識される
ただ､文字列(長)0のセルは､Blankと認識されないだけ

VBAで言うと､Emptyは数値にすれば0で､文字列にすれば""で､論理値にすれがFalseだが
0も""もFalseもEmptyそのものではなく､EmptyでなければBlankではないってことだ

ということで
> 未使用セルは文字列0、数値も0
も間違い

未使用セルはEmptyで､Emptyを文字列にすると文字列長0の値になり､数値にすると0という値になるだけで
未使用セルが文字列長0の値や､0という数値を最初から持っているわけではない

【1 OSの種類 　 　 　 　 .】 Windows7 pro 64bit
【2 Excelのバージョン 　 】 Excel07
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】「VBA　セル　入力」など

VBAを使用して、特定のセルに関数を入力したいです。
その際、引数の一部に、VBAで取得した変数を利用したく、

Sub tes()
Dim a As String
Dim b As String
a = InputBox("url")
b = "http://www." & a & ".co.jp"
Cells(1, 1) = "=hyperlink(" & b & ")"
End Sub

のようなコードを組んだのですが、実行時エラー1004のエラーが出ます。
エラー名でググっても解決方法が出ないのでお手上げ状態なのですが、
引数に変数を利用した関数を入れることはできないのでしょうか？

>>56
Excel07 で動くかどうかはしらんよ(笑)

Cells(1, 1).Formula = "=hyperlink(""" & b & """)"

>>57
できました。ありがとうございます。

office tanakaのダブルコーテーションのtips読んでもあまり理解できないのですが、
両端の"で文字列と認識させて、中の"""ではさむと、エスケープできるってことで良いのでしょうか？

【1】Windows7
【2】Excel2007
【4】VBA不可

PHONETIC関数で表示される ふりがな をまとめて編集したい

A列：漢字の名前データ
B列：ひらがなの名前データ

データは多数あり、A列とB列の対応は取れています。
B列のデータをA列の名前の「ふりがなデータ」として一気に流し込むようなことは可能でしょうか？

やはり全部手打ちで入れるか、「ふりがなの表示」から編集するしかないでしょうか？

>>58
ちょっと違うような
　＞両端の " で文字列と認識させて、中の"""ではさむと、エスケープできる
ぢゃなくて
　＞両端の " で文字列と認識させて、中の"" が　文字 " として認識される
だよ
文字列記述　 "=hyperlink(""" は
文字列として　=hyperlink(" を表している

>>59
VBA使えばどうにでもなるけど､VBA無しだと最後の1行のようにやるしかない

>>61
質問者じゃないんですが、VBAだとどうなるのか教えてください。

>>61　どうも。りょうかいです

>>62
ttp://www.moug.net/tech/exvba/0050115.htm

>>64
ありがとうございます。このサイト知りませんでした。

質問です
G5ｾﾙが○の時A5~G5ｾﾙに色をつける、というのを条件付書式でやったのですが、
これをA500~G500ｾﾙまでする方法はありますか？
そのまま下げてくとA5~G5の文章が下がっちゃって；；

>>66
A5:G5を選択したらG5セル右下の罫線位置にある黒十字をクリックしながらG500セルまで下げるとか。

それだと入力してある文字が下がっちゃって･･･

XP 2003
横棒グラフについて

牛丼 　12
天丼. 　 7
親子丼. 6
中華丼. 2
その他. 4

上記のような表があったとして、これで横棒グラフを作った場合、
どうしても「その他」が一番上に来る仕上がりになってしまいます。
しかも他のグラフと違って順番の入れ替えができず…

表とグラフを一緒に印刷したいので、縦の並び順が同じになるのが希望です。
今はグラフ用に順番を逆にした表を用意して、その表は非表示にした上で印刷しています。
毎回のことで面倒なので、一つの表で表と同じ並び順の横棒グラフを作成する方法が
ありましたら是非アドバイスをお願いします。

>>68
じゃあ、先に入力されている文字をどこかに避難（コピペorカット＆ペースト）しておけばいいんじゃないかな？

>>69
http://azby.fmworld.net/usage/windows_tips/20081217/

>>70
出来ました！ありがとうございます

書式コピーじゃダメだったん？

>>71
うおおおお！出来た、すげええええ！
ありがとう！

>>71の解説作ってる奴も､表題と冒頭の解説見る限り同じような勘違いをしてるけど､
縦棒グラフの縦軸だと､縦軸のデータを下から積み上げるのが正順で､上から吊り下がるのが反転状態だと見るのに
横棒グラフの縦軸だと､縦軸のデータを下から積み上げるのが逆順だと勘違いする奴がたまにいるんだよな

>>69のデータに対して

その他. |]]]]
中華丼. |]]
親子丼. |]]]]]]
天丼. 　 |]]]]]]]
牛丼. 　 |]]]]]]]]]]]]

というグラフは､間違いなく「表と同じ並び順」であって､間違っても逆順じゃない

小学校で習うが､棒グラフの基点は縦横基準軸の交差するところで､標準的には左下になるから
その基点から1番目に1件目のデータ､2番目に2件目のデータと「表と同じ並び順」に並べれば､
上記のグラフのようになる

Excelで横棒グラフの基点を左下ではなく左上にしたいと言うならまだしも
縦軸の並びが逆になるからデータと同じ順に直したいとか言い出す奴が出る度に､
「こいつは算数レベルの理解すら出来てないんだなぁ」と思わずにはいられない

ある列全体のセル要素に、シングルコーテーションで囲うのを一気にやりたいのですが、
何か機能的なもので簡単にできますか？

=CONCATENATE("'",a1,"'")

>>77
サンクス！

="'"&a1&"'"

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel 2010 オブジェクトの位置またはサイズが変更されます

元はexcel2003で作成したブックを2010で使用していたところ、
セルを選択したり、スクロールしたとたんに「オブジェクトの位置またはサイズが変更されます」というダイアログが延々と出続けます。
シート上にはオブジェクトはありません。
OKしか押せない上、×で閉じてもいつまでも出てきます。
どうしようもなく強制終了しています、対策はないのでしょうか。

Excelの使い方を説明する書類を作りたいのですが、参考書にあるようなワークシートやツールバー等のExcelの画面は、どうすればwordに使用できますか？

最近一般の方のＨＰでも、初心者向けにわかりやすくツール→データを開いた項目が掲載されていますよね。文章のみの説明より実際の画像があればわかりやすくなるので、どなたかアドバイスお願いします。

２つファイルを開かせて、前者のデータを後者のデータにデータを流し込む
作業をしたいのですが、マクロでどのように作ればよいでしょうか？
問題点は、ファイルによって読みだし箇所、書き出し箇所が違います。（読み込み開始の行・列・シート）

[1] 読み出し用ファイルの見出し開始列をユーザが選ぶ。（見出しのある所が１行目と限らないので）
[2]選んだ、もしくは入力した列から最大列を読み込む。
例：見出し開始は、A3だとする。　そこからA3「氏名」 B3「電話番号」 C3「クラス」のように見出しをプログラムがかき集める
[3]それぞれの見出しの内容を、２つめのファイルのどこに書きだすか聞く
　 例：１つめのファイルの「氏名」は２つめのファイルのどのシートのどこに書き出しますか？→入力例：シート名を選んだあと「A1」
　　　　上の処理が終わったら、「電話番号」はどのシートのどこに書き出しますか？→シート名を選んだあと「A1」　（ファイルの選択は１度やっているので再度は聴かない）
[4]見出しから一行下にデータが続くのは共通なので、そこから最下部までのデータを流しこんでいく

エクセルは2003です。
ちょっと上の方法しか思いつかないので、他に良い方法があればよいのですが・・・。

>>81
PrintScreen

>>81
それはwordスレで聞いたほうがいいんじゃないかい。

>>80
コメントを削除するか、オートフィルタを外すか

2010で新しいブックを作って、全シートをコピーするとか
それで無理なら一個ずつコピーするか

イマイチ解決方法が見当たらないね

質問です
Aの１〜30までに空白or文字が入ってます
文字の入っているセルの合計をA31に出すにはどのような方法が簡単でしょうか？

>>86
=COUNTA(A1:A30)

>>87
それでよかったんですね、ありがとうございます

>81
>83さんのPrintScreenで画面イメージを一時的にコピーしたあと
ペイントに貼り付けて、不要な部分を消したり説明書に必要な範囲を選択して
Wordに貼り付けです。
ただし、マウスカーソル（エクセルだと白くて太い十字、黒くて細い十字、メニュー
から選択してるときの矢印など）は、PrintScreenでは取得できないので、自分で
工夫してください。これ以上のことはWord相談スレにてどうぞ。

>82
Ｑ１　列の見出しの文字列は毎回決まっているんですか？
　　　例：氏名、電話番号、クラス・・・というキーワードは毎回固定？

Ｑ２　入力側のブック・シートと出力側のブック・シートとで、見出しの文字列は完全に同一ですか？
　　　例：入力側は　氏名　になってるけど、出力側は　名前　なんてことはない？

>>90
レスありがとうございます。たいへん悩んでいるところです・・・

Q1・・・厳密には、いろんなフォーマットから集計を取る作業と、
集計を取ったDBから、様々なフォーマットへ登録する作業があるのです。
基幹となる統一のDBの見出し文字列は、常に同じです。

（例）集計：　[A社フォーマット内容]→[社内DB] 登録：[社内DB]→[B社フォーマット]

各社フォーマットは見出しの位置が違うため、どのフォーマットで合っても
どこに見出しがあるか一旦読みだしてから（ユーザに聞いてから）の形式がよいかなーと・・・

Q2・・・上記のことがあるので、一致していません。例を書いていただいたような状態がよくあります＾＾；
　　そのため、エクスポート時にどの列・行に書きだすか、いちいち聞かないといけないのかなと思います。
（ただし、各社フォーマットも毎度仕様が変わるわけではないので、何らかの方法で出力先ポジションを保存できればよいですが・・・）

>>91
日本語(自然言語)がまともに出来ない奴に
VBA(プログラム言語)は無理だぞ

まずは､自然言語で理路整然とした文章を書けるようになろう

>>92
すんません・・・
フォーマットが違う物同士を、指定した箇所（行・列）にエクスポートできるようなものがほしいのですが・・・

>>93
データの要素は氏名、電話番号、クラスの3つでいいの？

>>94
収集用のデータ要素は、かなりあります。
新しいものを扱うタイミングで、要素が追加になることもあります。
ついでに、エクスポート先のフォーマット次第では、
要素の一部を別のシートへ入れ込んだりもします。

両者一覧化した状態で、ユーザに紐付けさせてからインポート・エクスポートを動的に行う必要があるのでは・・・と思っています。

>>85
ありがとうです
やはりいい解決法は無いみたいですね。

バグっぽい意見もあったようなので、修正アップデートまちます。

>82,95
入力側と出力側で「項目見出しの文字列」が一致しない場合があるのであれば、
別のシートで対応付けさせる必要がありますね。
＞エクスポート先のフォーマット次第では、 要素の一部を別のシートへ入れ込んだりもします
ここまでくると具体例を（データは架空のものとして）画面イメージをどこかのアプロダに示して
もらわないと無理なんじゃないかなあ。

念のため確認しますが、入力側の項目見出しと出力側のそれは、１対多ですか？それとも
多対多ですか？

１対多　とは：入力側は　氏名、電話番号、クラス・・・であるが、出力側は
　　　　　　　　　「氏名」に対応する部分が氏名、名前、氏名（漢字）・・・
　　　　　　　　　「電話番号」に対応する部分が電話番号、ＴＥＬ、Tel・・・

多対多　とは：入力側も「氏名」だったり「名前」だったりバラバラ
　　　　　　　　　　

>>97
うまく説明できずにすいません・・・

■統一用　
※こちらは、項目は変更ありません。

[A1：氏名][B1：電話番号][C1：クラス][D1：出席番号]・・・

■色んなフォーマットDB
※フォーマットの一例

[A3：名前][B3：組名][C3：TEL][D3：成績]

この場合、成績の列は統一用の要素に必要ないので、A3〜C3を、それぞれインポートしたいです。
例　他[A3：名前]→統[B3：組名]

色んなフォーマット側から統一用へ流すときもあります。（過去入力分の集計のため。）
なので、汎用的にデータを相互移動できる仕組みに捉えたほうがいいかもしれません。
（色んなフォーマットには、シートが２あったりするときもあります。）
フォーマットによって見出しの開始位置も違いますので、そのせいで一回見出しをユーザに選んでもらおうかと・・・

>82,95　いくつか質問です。
集計：　[A社フォーマット内容]→[社内DB]　の部分と
登録：[社内DB]→[B社フォーマット]　の部分のそれぞれの処理が必要、ということですか？

それと、[社内DB]における項目数（列の数）は実際にどれだけありますか？
また、集計の方の入力側のフォーマットは何パターンぐらいありますか？　実際にデータがきてからでないとわかりませんか？
同じように、登録の方の出力側のフォーマットは何パターンぐらいありますか？　実際にデータをつくるときでないとわかりませんか？

>82の[3]を見て疑問に思ったのは、出力側シートにはあらかじめ項目見出しがなく、操作する人が
「この項目は○列」って個別に指定しなきゃならないんですか？（出力シートの１行目からデータだけ？）

>>99
>それぞれの処理が必要、ということですか？

必要になってしまいます。
集計とレポートを行うため、といえば通じるでしょうか…？

社内DB（統一DB)の列数は、65あります。

登録のフォーマット側は10パターンほどありますが、まれに仕様変更があります。

82の[3]の部分は大変紛らわしくてすいません。
出力先は必ず見出しはあります。ただ、出力元の要素ごとに書き出し先が順に流し込まれるわけではないので、
出力元の要素（例：氏名）を出力先のどの要素に出力しますか？のようなアナウンスを入れたらよいかなと・・・。（例：名前）

【1 OSの種類 　 　 　 　 .】 Windows vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel 条件付き書式　削除

ファイルが重いので、条件付き書式によるセル色の変更を維持しつつ条件付き書式を削除できませんか。
数式はコピーして[値]で貼り付けをすることで、結果だけにできたので、書式も同じようにして軽量化したい。

>>101
今メモリー価格安いらしいからメモリー増設したら？

>>89
ありがとうございます。>>83さんのコメントを見た後にスレチに気づきました。親切に教えてくださったので頑張ります！

>>101
今VBA組めないので考え方だけだけど
条件にあてはまるセルを塗るというプログラムを組んで走らせて、
後でも先でもいいから条件付き書式を削除すればいいだけの話だよね

WindowsXP
Excel2007
VBA/はい(少し) /可
「EXCEL 検索 個数 含む」や「COUNTIF」

A B C
1あ 1 あいううう
2い 6 いいいいい
3う 3 かかかかか

上記A列に書いてある文字列が、ある範囲内（C1:C3）に何個あるか検索します。
その結果（個数）をB1、B2、B3…とそれぞれの隣の列に表示していきます。

B1に数式を入れ込み、あとはオートフィルタで結果を簡単に出したいです。
どうぞ、よろしくお願い致します。

※
=COUNTIF(C1:C3,"*"&A1&"*")
とした所、セルの個数はでてきたのですが、文字の個数が出てきませんでした。

>82,100
処理を実行するときに、「この項目はこの列、この項目はこの列・・・」と指定していくなんてこと、
項目数が数個ならともかく、６５個もあるのにいちいち指定するのは間違いのもとでしょう。
フォーマットの種類が１０パターン程度ということであれば、設定用のシートに統一ＤＢと各社
独自フォーマットの対応一覧を作っておいて、どのフォーマットで入・出力するのかを操作員に
選ばせるのが無難。
対応一覧に載せるのは「列名」ではなく「項目名」の対応とすれば、実際の列が変わっても
柔軟に対応できると思う。対応表をボチボチ作っているので、できたらどこかにＵｐします。

【1 OSの種類 　 　 　 　 .】 Windows 7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】計算　範囲　
例
6500という数字があります
1-3000は*5、3001-5000は*3、5001-は*1という計算をして、
それぞれの答えを出したいのです。
　　　A　　　　B　 　C　　　D
1　　6,500
2　 　　　1-3,000　 　5　　15,000
3　　 3,001-5,000　 　3　　6,000
4　　 5,001-　　　　　1　　1,500
5　　　　　　　　　合計　　22,500
としたいです。
合計はSUMで出せばいいですが、その上の小計をどういう式で書けばいいのか迷っています。
いつも範囲の境目が3000、5000ならいいのですが、その都度変わります。
変更がある点は3点です。
「6500」「範囲の境目(今回なら3000と5000)」「掛ける数字(5、3、1)」です。
範囲の境目については、無い場合もあります。これがややネック。

自分なりに考えた結果、IF関数を使った式を使いました。
D2「=IF(A1>=B2,B2*C2,A1*C2)」
D3「=IF(A1>=B3,(A1-B2)*C3,(B3-B2)*C3)」
D4「=IF(A1>B3,(A1-B3)*C4,0)」
D5「SUM(D2:D4)」
以上です。
ただ、これだと問題点が２点ありまして…。
１、範囲がなくなったときに数式が出せない。
２、A1がB2以下だと、D3がマイナスで計上されてしまう。
助けて下さい。頭こんがらがりました。

>>105
回りくどかったらゴメン。
とりあえずこれで希望する結果は出るけど、VBA書き慣れてる人の手直しｷﾎﾞﾝﾇ


Sub A列と同じ文字数をカウント()

Dim 算出する最後の行 As Integer
Dim C列の文字数 As Integer
Dim A列と同じ文字数 As Integer
Dim i As Integer
Dim j As Integer

算出する最後の行 = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To 算出する最後の行
Range("B" & i).Select
C列の文字数 = Len(Range("C" & i))
A列と同じ文字数 = 0

For j = 1 To C列の文字数
If Mid(Range("C" & i), j, 1) = Range("A" & i) Then A列と同じ文字数 = A列と同じ文字数 + 1
Next j

Selection.Value = A列と同じ文字数
Next i

End Sub

>107
Ａ２には０、Ｂ２には３０００、Ａ３には式=B2、Ｂ３には５０００、Ａ４には式=B3、Ｂ４には99999999とし、
Ｄ２セルに　　=IF($A$1>=B2,(B2-A2)*C2,(($A$1-A2)*C2)*($A$1>A2))　　って入れて、
下にドラッグしてみてください。

範囲の境目がないときは、Ｂ２、Ｂ３に　99999999　といれたらいいです。
99999999　の部分は、Ａ１に入力する数よりも十分大きな数ならなんでもいいです。

>107
解説というほどのことではありませんが
＞２、A1がB2以下だと、D3がマイナスで計上されてしまう
の問題は　　(($A$1-A2)*C2)*($A$1>A2)　　の部分で解決してます。

掛け算の右側は条件式で、成立しなければ　０　とみなされるので、
($A$1-A2)*C2)　がマイナスになる場合は　($A$1>A2)　が　０　になります。

PERSONAL.XLSは編集のためロックされています。
使用者は '水嶋夏月' です。
[読み取り専用]で開くか、または、読み取り専用で開き、ほかの人がファイル
の使用を終了したときに通知を受け取るには、[通知]をクリックします。

Excel2003を機動させると、↑のメッセージが出るので、出ないように
するにはどうすればいいですか？
ググってみたら、XLSTARTフォルダ内にあるPERSONAL.XLSを
削除すればいいとかありましたが、もうね（ｒｙ

>>109
できました！ありがとうございました！！

ちょっといじって、
Ａ２に1、Ａ３には式=B2+1、Ａ４には式=B3+1、Ｂ４には999999とし、
Ｄ２には　　=IF($A$1>=B2,(B2-A2+1)*C2,(($A$1-A2+1)*C2)*($A$1>A2))
にしてみました。
999999の表示も、ユーザー定義で「;;;」にして隠してみました。

本当に助かりました。ありがとうございました！

>112　結果が変になりませんか？
Ａ１セルに　3001　って入れたとき、Ｄ２セルに　３　って表示されないと思うけど。

>>105
=LEN(C1)-LEN(SUBSTITUTE(C1,A1,""))

>112
(($A$1-A2+1)*C2)*($A$1>=A2)
掛け算の右側の条件式に　=　が必要です。
この場合でも、Ａ１セルに小数点が含まれる場合はへんなことになります。
Ａ１セルに　3000.5　とか　5000.5　など入れてみるとわかります。

>>106
おお・・・すいません・・・

>>113
あ、本当ですね。>>115の=を入れたら直りました。
お伝え忘れていましたが、A1には整数しか入らないので、大丈夫です。
ご心配ありがとうございました！

>>108,>>114
回答ありがとうございました。
頂いたデータを参考に試してみます！

間違って理解してました。

とりあえず三つのセルだけのようですので下記の式でB列に入れてみてください。

=LEN(C$1&C$2&C$3)-LEN(SUBSTITUTE(C$1&C$2&C$3,A1,""))

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 チェックボックス　関数　（-コントロール）

チェックボックスのレ点の数を数えたいのですが、すでにレ点があるボックスとないボックスがあり
「コントロール書式設定からTRUEを表示させる」→「設定したものをコピー」が使えない状況です。

関数でカウントしたり、レ点の有無を維持したまま設定をコピーできる方法などはあるのでしょうか？

>>120
ワークシート関数では､直接コントロールの状態を取得することは出来ない
しかし､チェックボックスコントロールの状態は､セルにリンクさせることが出来､
そのリンクさせたセルの値を関数･数式で取得･集計することで､目的は果たせるはず

コピーについては､俺語ではなく日本語で説明してくれないと訳わからん

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

B列に、yyyy/mm/dd(aaa)で日付を入れてます。
2011/08/20(土)や2011/08/21(日)のとき、
"(土)"を青文字、"(日)"を赤文字にするには
どうすればいいでしょうか。

セルを分ける。

>>122
セル分けたくなければVBAだな
全体なら条件付き書式で出来るけど､一部だとVBAしかない

やり方はマクロの記録で"(土)"だけを青文字にする作業を録れば解るはず
あとはIfかSelect Caseで条件分岐させれば良いだけ

>>122
値を入れるセルと表示するセルが一緒だと無理だと思う。
セルが別でいいなら >>124 の通り。

>82,100
遅くなりましたが、列と列の対応の調べ方の部分だけ説明図を作りました。
各社フォーマットのデータを統一DB様式にする方の処理です。
http://www.dotup.org/uploda/www.dotup.org1936618.png.html　（パスワードは excel です）
入力側がどのフォーマットかを操作者に選択させても、それが正しいのか間違っているのかを
調べる必要があることに気付いたので、別の方法を検討しているところです。

最初の部分（ブックやシートを指定するところ）から始めるのはそちらの状況をもう少し聞かないと
進められないので、時間がとれたらまとめて質問します。

ところで、この処理って作成期限ってあるの？　ここで聞くよりどこかに頼んだ方が早いと思う。
（費用はかかるけど）

126で書いた図を基に列の対応を調べる部分はできました。ただし、入力処理(各社フォーマット→統一DB)のみ。
出力処理（統一DB→各社フォーマット）の方は、>98で書いてあるように複数シートに出力の場合があるらしいので、
２ｃｈ掲示板上でのやりとりではちょっとむずかしいと思う。
以下は同一ブック内の３シートを「統一DB」「各社フォーマット」「設定」とし、各社フォーマットシートの
項目名や列の並びをいろいろ変えて試したときのVBAマクロです。
Option Explicit
Dim sh_i As Worksheet, sh_o As Worksheet, sh_s As Worksheet
Dim tate_i As Long, tate_o As Long, yoko As Integer, myAREA As String
Dim j As Integer, kensaku As String, c As Variant, a(100) As Integer
rem　配列aの要素数100は65より十分大きな数というだけ

続きです
Sub test()
　Set sh_i = Worksheets("各社フォーマット")
　Set sh_o = Worksheets("統一DB")
　Set sh_s = Worksheets("設定")
' 第一ステップ　列対応の設定
　 For yoko = 1 To 7　　rem 65列から7列に減らしています
　　j = 0
　　Do
　　　kensaku = sh_s.Cells(1 + j, yoko).Value
　　　 If kensaku = "" Then
　　　　kensaku = sh_s.Cells(1, yoko).Value
　　　　MsgBox (kensaku & " に対応する列がありません　異常終了します")
　　　　Exit For
　　　End If
　　　If yoko = 1 Then
　　　　myAREA = "A1:IV65536"
　　　End If
　　　Set c = sh_i.Range(myAREA).Find(What:=kensaku, LookAt:=xlWhole)

続きです
　　　If (c Is Nothing) Then
　　　　j = j + 1
　　　Else
　　　　a(yoko) = c.Column　　rem ここで列の対応を設定
　　　　If yoko = 1 Then
　　　　　myAREA = c.Row & ":" & c.Row
　　　　　tate_i = c.Row + 1　　rem見出し行の次からデータがある
　　　　End If
　　　　Exit Do
　　　End If
　　Loop
　Next yoko
　Set sh_s = Nothing
' 第二ステップ 各社フォーマットから統一DBへ
　tate_o = 3　　rem出力側（統一DB様式）は3行目から出力するものと仮定
　Do
　　For yoko = 1 To 7

続きです　これで最後
rem第一ステップで設定した列の対応を利用して転記
　　　sh_o.Cells(tate_o, yoko).Value = sh_i.Cells(tate_i, a(yoko)).Value
　　Next yoko
　　tate_i = tate_i + 1: tate_o = tate_o + 1
　Loop While (sh_i.Cells(tate_i, a(1)).Value <> "")
　Set sh_i = Nothing: Set sh_o = Nothing
End Sub　以上

>>127
ありがとうございます！
ただ、途中でどうしても「 の対応表がありません」とでてエラーになるので、
ただしく動く構成のxlsファイルを一回アップしてもらってもいいでしょうか・・・？

>131 xlsファイルは個人情報が漏れるので、画面イメージをｕｐしました。
http://www.dotup.org/uploda/www.dotup.org1937185.png.html

○○　の対応表がありません　と出るのは、設定シートに入れた項目名と
入力シート（各社フォーマット）の項目名が異なるためです。
英数字やカタカナの全角・半角の違いや、項目名の中にある空白の全角・半角の
違いもダメです。

>>132
ありがとうございます。
こちら、例えば各社フォーマットの「名前」「Tel」「クラス」にあたる部分だけインポートすればいい
という場合、他の列は空白状態で実行してしまうとエラーが起きてしまうのですが、
現仕様だとすべてインポートする仕様ということでしょうか？

セルA1に次のような入力規則を設定したいのですが可能でしょうか

セルB1が空白なら、特に入力規則なし
セルB1がそれ以外なら10-B1

>133
そうです。最終的に６５列すべて入力シートから持ってくるわけではない、ということならば、
列の対応の設定方法をちょっと変えます。
>106で　６５個もあるのにいちいち指定するのは間違いのもとでしょう
と書いたことに対してコメントが特になかったので全項目転記するものと判断して進めてました。
dim b(100) as Integer
kensaku = sh_s.Cells(1, yoko).Value
Set c = sh_o.Range(2:2).Find(What:=kensaku, LookAt:=xlWhole)　　rem見出し行が2行目と仮定
b(yoko) = c.Column
〜
sh_o.Cells(tate_o, b(yoko)).Value = sh_i.Cells(tate_i, a(yoko)).Value
こんな感じでいけると思います。午後〜夜間は用件があるので、次は明日にでも書き込みます。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003 + 2010
【3 VBAが使えるか　 　 .】 はい


DB上で重複してる商品番号の列を、１つの列にまとめたいです。
元のデータがexcelで、データは上から新しい順に入っております。
まとめる際、新しい（上から）ものを基準にまとめたいです。
ただし、空白の際は入ったものを固定基準とします。

元
A001 食品 赤 \100
A002 \200
B001 食品 青
A001 食品 紫 \160
A002 玩具 \200

結果
A001 食品 赤 \100
A002 玩具 \200
B001 食品 青

>>134
入力規則？
関数式なら
=IF(B1="","",10-B1)
「10-B1」の表示をA1にさせたい場合は
=IF(B1="","","10-B1")
とすればおＫ。

セルA1に、if関数で真の場合は計算結果、偽の場合は計算結果+メッセージボックスを表示するようにしたいのですが

許可します。

>>138
VBEを開き、目的のセルが存在するworksheetに直接記述。

チェンジプロシージャ

If Range("A1") = "偽" Then
MsgBox("計算結果は偽です")
EndIf
EndSub

入力済みの列を真っ黒にする条件書式の書き方は、どうすればよいでしょうか。
（ワークシートが空なら、全部真っ黒になる）

>141
日本語で説明してください。

入力済みの列　の定義
ワークシートが空なら、全部真っ黒になる　との矛盾

>133
予定が変わったので作ってみました。ダウンロードパスは前に同じです。

説明図
http://www.dotup.org/uploda/www.dotup.org1938941.png.html

変更後のマクロ全文（２ｃｈでは分割しなきゃならないので）
http://www.dotup.org/uploda/www.dotup.org1938951.txt.html

Excel2003です。
A1セルに　A　を入力したらB1セルに1、
A1セルに　B　を入力したらB1セルに2、
A1セルに　C　を入力したらB1セルに3を返す方法を教えてくださいです。

入力はA〜Nなので、IF文だとだめでした。

>>144
=CODE(A1)-64

>>146
おぉ、凄い！
ありがとうございました。

>>147
こうしたら大文字小文字どちらも対応

=MOD(CODE(A1)-64,32)

=LEN(A1)
文字数をカウントするには上記ですが
たとえば
A1から下に数えて次に空白以外になるまですべての
B2,B3…のカウントの合計を取りたい場合
どうすればいいのでしょうか？

>>149
取り急ぎ、こんな感じはどうでしょう？

A1からA5のセルに含まれる文字列を数える場合。
B1に=LEN(A1)を入力
続いてオートフィルでB1の数式をB5までコピー

B6に=SUM(B1:B5)
これでA1からA5に入力した文字数がでる。
【B列は作業用列なので目障りなら非表示に
ただし非表示にするならB6の数式を別の列に移動すること】

もうひとつの方法は
文字列を数えた値を返したいセルに
=SUM(LEN(A1),LEN(A2),LEN,(A3),LEN(A4),LEN(A5))これでもできますが
メンテナンスや入力の手間を考えるとやはり前者がオススメです

>>149
=SUMPRODUCT(LEN(A1:A10))
ってこと？

セルＡ１、Ｂ１、Ｃ１、Ｄ１に入力規則でリスト（東、西、南、北）
と設定したいんですが、例えばセルＡ１に「東」と入力した場合
セルＢ１、Ｃ１、Ｄ１には（西、南、北）からしか選択できないように
したいんですけど可能でしょうか？

入力規則のリストのセルに
=IF(COUNTIF($A$1:$D$1,"東")>0,"","東")
とか

>>153
ありがとうございます！

countifで範囲指定するときに連続したセルじゃなくて
飛ばし飛ばし（１１セルごと）に範囲指定する方法ってありますか？

>>143
ありがとうございます！
これは図解通り、設定シートの１行目に統一DBに書き出したい見出しを、
２行目に各社フォーマット見出しをコピーすればよいのですよね？

（統一DBシートはエクスポート先なので、すべての見出し、
　各社フォーマットシートは、すべてのデータが入った内容を・・・であってますか？）

>156
説明図を見てもらえばわかると思ったんだけど・・・・・
設定シートに入れる項目見出しは「転記する項目だけ」ですよ。
新旧、見比べられるように説明図を作ってます。
「すべての見出し」を設定したら「○○　に対応する列がありません」って
なるのはご存じのはずですが。
設定シートに入れていない項目見出しの列は空欄になります。
>143のマクロ、試してみましたか？

>156
念のため
設定シートに入力する項目見出しは連続している必要があります。
統一DB様式の項目数が全部で６５あるうち、転記する項目が４０項目だった場合は、
その４０項目をＡ１からＡＮ１まで「詰めて」入力してください。
次に、それぞれの項目名の下に各社フォーマットのシートで用いている項目名のバリ
エーションを入力してください。
バリエーションがなかった場合は１行目の統一DB様式での項目名だけだし、いくつも
バリエーションがある場合は、説明図でいう電話番号の列のようにどんどん下に書き
足していくことになります。

>>124
マクロの記録で"(土)"だけを青文字にする作業をやろうとしても、
セルに入ってるのは文字列ではなくシリアル値なのでできません＞＜

>159
シリアル値を文字列にしてからならどうにでもできるよ
msgbox Range("A1").text　←A1のところは実際に日付が入っているセルに変更
ってやってみて

Range("A1").Value = "'" & Range("A1").text
でシリアル値から文字列に変更してから、必要な書式を設定したらいい

【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　乱数

RAND関数を使った遊戯王のランダムドローツール
を作りたいと思っています。中学生で知識不足ですがよろしくお願いします。

↓以下どのようなツールが作りたいかの箇条書き
１〜X（デッキ枚数）のなかからランダムに一枚表示。
数字に対応したカードを表示し、枠の色を変える。
カードを使う場合はその数値を入れることで枠の色が戻る（よって手札がどれかわかる）

１度使われた数はデュエルが終わるまで再度ランダムに表示されない。
（数を指定して再度ランダムに表示、または数を指定してランダムに表示されないようにする）

デッキ一つあたりだいたい４０枚ほどなのでかなり大変な作業になりそうですが
がんばっていきたいと思います。
RANDBETWEENやifなどを使うくらいしか見当がつきません。
よろしくお願いします。

ランダム表示は作業列作ってそこにRAND関数入れてその列をキーにしてソートすればいいじゃない
で、上から順番に選択していけば
あとは遊戯王のルール知らないからわからないけどマクロなしじゃ無理なんじゃ

>>162
遊戯王のルールを全部記憶させるのではなく、とりあえず
箇条書きの部分が使えるツールにしたいです。

ここのスレでVBAって機能を初めて知ったので難しそうだと
思ったのでけっこうきついかなと思うんですが・・・
VBAでググって出てきたプログラム見ても何が何だか
わからない（（汗

>>163
「一枚表示」とか「カードを表示」って具体的には何をどこに表示するの？
カードのパラメーターを表にしてあってそのデータを表示するとか？
それから「カードを使う場合は〜」って言うけど例えばA1にカードの番号が表示されてるとしてB1にそのカードの番号を
入れるとA1の背景の色が変わるようには出来るけど（マクロ使えば）そのあとどうするの？
その辺そのゲームのルールが分からないから想像できないんだよね

>>160
ありがとうです。
キレイなマクロじゃないですが動作しました。

Sub 土日の色を変える()
b = Range("B65536").End(xlUp).Row
For i = 5 To b
'Range("A1").Value = "'" & Range("A1").Text
Cells(i, 2).Value = "'" & Cells(i, 2).Text
If Right(Cells(i, 2).Value, 3) = "(土)" Then
Cells(i, 2).Characters(Start:=11, Length:=3).Font.ColorIndex = 5
ElseIf Right(Cells(i, 2).Value, 3) = "(日)" Then
Cells(i, 2).Characters(Start:=11, Length:=3).Font.ColorIndex = 3
End If
Next i
End Sub

>>163
例としてトランプで作ってみた
質問者の考えてるのとはかなり違うと思うけどエクセルの一般機能だとこんなもん
http://hishou.ddo.jp/~bbs/up/img/up1598.zip

並んでるセルの内容を１つずつ手作業で修正しようと思ってる時に

⇒1：右手マウス操作でセル選択　
⇒2：マウスでカーソル操作〜左クリックでツールバー下の欄を選択
⇒3：内容修正してエンター

これを繰り返すのがかなり非効率的なんですが、
2の部分をキーボードのみでできる方法はないでしょうか？
結構ググったけど見つからないので教えて欲しいです。

>>167
F2を押して編集状態にする、ってことかな

>>168
あれは「編集状態」というのが正しいんでしょうか
「アクティブ」かと思ってたんですがそれは単にセルが選択された状態なんですよね
そのせいでどう検索したらいいか自体がわかりませんでした。

なんにせよこれでわざわざマウスでセル選択と編集欄（？）を選ばず済みそうです。
ありがとうございます。

【1 OSの種類 　 　 　 　 .】 Windows XP以降全て
【2 Excelのバージョン 　 】 Excel2000以降全て
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
セルに「11.1111」と入れた後セルの書式設定から表示書式で数値を選び
小数点以下の桁数を1に
桁区切りを使用するにチェックをつける
以上の2点を行うと実際の値もその書式にそった値となり「11.1」になってしまう
ただし該当するブックのみその症状で新規作成されたブックはそうはならない
これってそういう風になるようなブック側の設定があるのでしょうか？

>>170
これじゃね
ツール → オプション → 計算方法
　ブックオプション "表示桁数で計算する" が　On になってる

>>170
＞小数点以下の桁数を1に
＞桁区切りを使用するにチェックをつける
＞以上の2点を行うと実際の値もその書式にそった値となり「11.1」になってしまう

当然そう書式設定すればそう反映されます。

＞ただし該当するブックのみその症状で新規作成されたブックはそうはならない
＞これってそういう風になるようなブック側の設定があるのでしょうか？

そのブックでの書式設定が以降の新規作成のブックに反映されることはありません。
ブックを作成するたび以前の設定が反映してしまうなど非常に厄介ですから。
もし、設定内容を反映させたブックを作成したい場合は前のブックの名前を変更して
保存してそのブックを使えば良いでしょう。

>>171
見事に正解でした
誰かが原本ファイルのオプションを変更していたらしいです

vlookupで空欄になるはずのところに0。
これを空欄のままにするには？

2010でピボットテーブルを使う際、
どうやれば引き算での算出ができますでしょうか？
急ぎなので答えていただける方がいると幸いです・・・

>174
そのvlookupを含む式の結果が常に文字列だけっていうことなら　&""　を最後にくっつけたら？
=A1　などの、単純な式でも、参照先が空欄だと結果は０になるのと同じことでしょ？

>>175
引き算での算出って意味が分からないけど、
http://office.microsoft.com/ja-jp/excel-help/HP005199482.aspx
のことかねえ。2010でもこの部分は大体同じ

How intellectual you are!
I never thought of that way before.

たとえば予算から支出を引いて残額をピボットで出したいって場合は
予算を正の数、支出を負の数にして単純に合計してたね俺は。もっと簡単な方法があればいいのに。

範囲選択してCtrl+Gでセル選択→空白セルの機能を使っても
空白のくせに空白が選択されないことが非常に多くて困っている。

原因と対策はありますか？

よく使う機能なのに使えないから実に不便です。

文字としての空白とかがはいってんじゃないの

>>180
完全な空白セルだけだよ。
計算式で空白セルとかはダメ

>>181-182
いやそれは本質じゃないと思う

あれからいろいろ実験してるんだけど
例えばまっさらなシートを開いて
E10セルに「セシウムさん」と入力し
A1〜I20の長方形を選択して
Ctrl+Gでセル選択→空白セルの機能を使ったら、なんと「！」な結果になった。

このことから推測するに、
いわゆるExcelの「最後のセル」よりも右方よび下方にあるセルたちは
存在すら認知されないセルと言えるのではないということだよ。

○　言えるのではない「か」ということだよ。

A列だけを使ってて
そこにはいろんな文字列が書いてあって
もちろん重複してるものがたくさんある。

【例】　A列
セシウムさん
怪しいお米
ウランさん
セシウムさん
怪しいお米
汚染された米
ヨウ素さん
セシウムさん
プルトニウムさん
怪しいお米
セシウムさん
汚染された米
セシウムさん
プルトニウムさん

これを重複していないのだけ、つまり文字列の全種類を、B列に取り出すにはどうしたらいいですか？
本例だとこんな感じ。

【例】　B列
セシウムさん
怪しいお米
ウランさん
汚染された米
ヨウ素さん
プルトニウムさん

>>185
B列にコピペしてデータ→重複の削除を押す。

>>183
ああ、それはその通り。

>>185
2007以降なら重複の削除
2003までなら、ピボットテーブルを使うのが一番楽

ときどき日本語のひらがなから漢字の変換が
まったく機能しなくなるのだけど
この原因と対策はありますか？

たとえば「げんいん」と入力してスペース押すと普通は「原因」となるのに
ときどき「ゲん員」みたいになるんです。

>188
このスレの　>2-5　を見てください。

189みたいなやつって一体・・・

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

セルA1→2011/8/1
セルB1→2009/9/30

B1〜A1の期間を○年○ヶ月と計算させたいのですが
=DATEDIF(B1,A1,"y")&"年"&DATEDIF(B1,A1,"ym")&"ヶ月"

当然結果は1年10ヶ月になるのですが
これを1年11ヶ月（○ヶ月"目"という認識）とすることはできますか？

＋１

>192

=DATEDIF(B1,A1,"y")&"年"&DATEDIF(B1,A1,"ym")+1&"ヶ月"
おぉできた！
ありがとうございます！

>193
1年12ヶ月　という表示でもいいの？

>194
あ、だめか・・・

今
セルA1→2011/8/1
セルB1→2009/8/30
で見てみると、1年12ヶ月になりましたorz
1年12ヶ月の場合は2年、とするようにはできないのでしょうか・・・

A1を＋１月すればいいじゃん

長くても嫌じゃなければ
=INT(((YEAR(A1)-YEAR(B1))*12+MONTH(A1)-MONTH(B1))/12)&"年"&
MOD((YEAR(A1)-YEAR(B1))*12+MONTH(A1)-MONTH(B1),12)&"ヶ月"

>197
ありがとうございます！！

仕事で使用したいので、>192さんの+1か>197さんの数式かどちらを使うか同僚と相談してみます。
助かりました。

手入力で+1ヵ月修正して>191の数式を適用すれば解決しちゃうけども
いちいち修正するのが面倒なので以下の数式をでっち上げたらバグっちまった
=DATEDIF(B1,A1,"y")&"年"&DATEDIF(B1,DATE(YEAR(A1),MONTH(A1)+1,DAY(A1)),"ym")&"ヶ月"
仮に開始日付を2011/9/1にしてみたら1年0ヵ月と表示されて1年分足りない結果に
これがDATEDIF関数のバグなのかな

196みたいなやつって一体・・・

頭いいねｗ

2007のカラーパレットを2003のように変えるには
どーしたらいいでそ？

>>202
無理ぽ

アドインがいくつか公開されてますが、標準の40色のみ。
Excel2003ColorPallet.xlam、Excel2003Colors.xlamなど、ググればすぐに見つかります。
標準色だけで作成する人って多いのでしょうか。
私はローズ、ベージュ、ラベンダーなどは濃すぎるのでカスタマイズして使ってました。

綺麗に印刷したい物はDTPソフトつかうからなぁ
Excelを本来の表計算用途のみに使うなら､標準色セットで十二分
Excelで文書作成もカタログやポスターなどもなんでも作ろうとする奴には
標準色セットでは不十分なのかもしれないけどね

2003だと、予め自分で設定した色がコピー元ファイル名で呼び出せるけど、2007はできないの？

>>206
どう設定してどう呼び出すの
オレはcolor=vbred, vbwhite, vbblueみたいな方法しかしらないから教えてくれよ

超基本技かもしれません。

"2011.08.26"のような文字列を
Excelで自由に扱えるシリアル値に変換するには
一番簡単な方法ではどうすればいいですか？

超基本技かもしれません。

"20,000円"のような文字列を
Excelで数値として扱うには
一番簡単な方法ではどうすればいいですか？

("円"の文字列は削除します。いったん数値にしてしまえば表示として"円"を加えるのは簡単なので)

余計な文字列がなければそのまま計算できる　+0でも*1でもいいし

>>207
１．ツール → オプション → 色 → 変更で、変えたい色にする。

２．適当なファイル名（例えば (;´Д｀)ﾊｧﾊｧ.xls ）で保存。

３．新規ファイル作成（または、カラーを変えたいブックを開く）。
　　（このとき、２つ以上のブックが開いてる状態）

４．３のブックをアクティブにして、ツール → オプション → 色 → コピー元ファイル名の
　　プルダウンメニューから、２で設定したブックを登録

これをマクロでやれば、特に煩わしさもない・・・かな？

>>208
まず、置換で.→/へ替える。
書式を日付から標準や数値へ変更する。

>>209
まず置換で円→　　（変換する文字の所は空欄）にすると数字だけになる。
数字だけならおせっかい機能で計算などとりあえずは問題無い。

＞"20,000円"のような文字列を
＞Excelで数値として扱うには
＞一番簡単な方法

20000と入力すればいい

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】　並び替え　参照　シート分けて

自転車駐輪シールの管理に使いたいと思っています。

シート1
Ａ列に通し番号
Ｂ列にマンション名
Ｃ列に号室

これをシート2に自動的に
最優先　B列
次に優先　C列
で並び替えて表示させたいのですが・・・

皆様、よろしくお願いいたします。

それはシート１でやれ　ボタンに登録しとけばかんたん

>>215

時には2つを同時に表示させたいのですが…。
ボタンに登録でググってみます。
ありがとうございました。

シート２にピボットテーブルを作る方法もある

【1 OSの種類 　 　 　 　 .】 Windows 7
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 オートフィルタ　ペースト　0件

在庫管理でExcel VBAを組んでやっているんですが
現在庫を参照する際、オートフィルタで抽出をし別シート(抽出シート)に抽出結果をペーストしています
その際、オートフィルタ抽出結果がまったくない場合、セルの最下部まで選択範囲してしまい抽出シートにペーストしてしまい
データサイズが膨大になってしまいます(100kb→24Mb)
保存やファイルを開くのにも支障がでてくるので、オートフィルタで抽出した際抽出結果が0件の場合の条件分岐のVBAを教えていただければ嬉しいです
よろしくお願いします

一応コードになります
見よう見まねで組んだので見難いとおもいますが重ねてお願いします
Dim 検索値1 As String
Dim myrow1 As Long '列の変数を宣言
Dim myRow2 As Long '列の変数を宣言
Dim zan As String
zan = 0
検索値1 = 名前.Text '検索値1に名前リストで選択したtextを代入
If 検索値1 <> "" Then '検索値1に何かしらの文字列が代入された場合の処理
ActiveSheet.Unprotect 'シートの保護を解除
ActiveSheet.Range("A2:C2").AutoFilter Field:=3, Criteria1:=検索値1
ElseIf 検索値1 = "" Then '検索値1が空欄の場合の処理
MsgBox "名前が入力されていません。" 'エラーメッセージの記述
名前.SetFocus
Exit Sub
End If
名前.Value = ""
myrow1 = Worksheets("抽出シート").Range("D4").End(xlDown).Row
Worksheets("抽出シート").Activate
If Range("D4").Value = "" Then
ElseIf Range("D4").Value <> "" Then
Range("A4:J" & myrow1).Select
Selection.Delete
End If
Worksheets("在庫伝票").Activate
myRow2 = Worksheets("在庫伝票").Range("C3").End(xlDown).Row
Worksheets("在庫伝票").Range(("A3:J") & myRow2).Copy
Worksheets("抽出シート").Range("A4").PasteSpecial xlPasteAllUsingSourceTheme

Range("D4").End(xlDown).Rowのところを
Range("D4"&rows.count).End(xlup).Rowにしすればいいんでは
Range("C3").End(xlDown)のところも同じかんじで

元のデータの見出し行がどこで抽出シートのどこに張り付けるのかはっきりすれば
もっと効率いいコード書けると思う

訂正
×Range("D4"&rows.count)
○Range("D"　&　rows.count)

返信ありがとうございます
上記の方法でとりあえずデータが膨れ上がることはなくなりました
ただフィルタ検索結果が0件の際、元のシートの2列目に見出しがあるのでその列が抽出シートにペーストしてしまいます
If Range("D4").Value = "品名" Then
Range(Rows("4"), Rows(myrow1)).Select
Selection.Delete
End If
で削除してとりあえず形にすることができました

効率のいいコードを考えているのですがまだまだ勉強不足ですので精進していきます
ちなみにマクロボタンが1行目　見出し行が2行目
3.4行目がオートフィルの関係上調整用の行で非表示にしています
抽出用シートが印刷を考慮しているため4行目からのペーストにしています

AVERAGE((A1+C1*0.1)＋(A2+C2*0.1)…(A10+C10*0.1))
という関数を簡単に記述する方法ってないでしょうか？

また、AVERAGE((B1+C1*0.1)＋(B2+C2*0.1)…(B10+C10*0.1))という計算をさせようとして
一番上の関数をコピーするとＣがＤに変わってていちいち書き直さなきゃいけないんですが、
書き直さなくていいような方法はないんでしょうか

>>223
こういうことかなあ
=SUMPRODUCT(A1:A10+(C1:C10)*0.1)/COUNT(A1:A10)
averageは何のaverageなんだ？

Cを$Cとすれば、Cは固定できます

＋いらなかったですね。
(A1+C1*0.1),((A2+C2*0.1),((A3+C3*0.1)の平気値を取りたかったんです。

>>225
まあとりあえず、>>224の式でOKのはずです。

コピー対応として
=SUMPRODUCT(A$1:A$10+($C$1:$C$10)*0.1)/COUNT(A$1:A$10)
こういうことかな

ありがとうございました

>>227の感じだと理解出来てないみたいだな・・・。

普通に分配法則効かせればよくね？
average(A1:A10) + 0.1 * average($C1:$C10)

単に"A"と一文字だけかかれたセルを抽出しようとして"A"で検索したら
"All"とか"ANGEL"とか"a"とか"This is a pen."とか"apple"とか
関係ないものもひっかかってきやがる。
これを防ぐ方法は？

>>230
「セル内容が完全に同一であるものを検索する(O)」のチェックボックスをONにする

セシウムさん作者の解雇はかわいそうと思う。
このスレだってセルの例として「りんご」「みかん」「うんこ」が使われてきたけど
お米の当選者に適当に名前を入れてと言われれば
当時話題になったセシウムを擬人化して「セシウムさん」にするのは
きわめて普通に思いつくこと。
逆に「セシウムさん」じゃなかったら何を入れたらいい？
「名無しさん」は2chみたいで不適切だし
「田中さん」「鈴木さん」みたいによくある名字を使うのもなんか変。
あらためて「セシウムさん」は自然だと思う。

解雇は当然だな。
あれだけ騒がれて、責任者も呼ばれたんだろ？
俺が勤めてる会社だと、仕事中にエロサイトを見てただけで
解雇になったのがいるけど、それよりはるかに罪が重い。
それを『当時話題になったセシウムを擬人化して「セシウムさん」に
するのはきわめて普通に思いつく』とか、232はキチガイか？

>>232
で、Excelでどうしたいのですか？

マクロを動かすボタンは、あのグレーのやつが一般的なの？

うん

こ

>>235
グレーのヤツは味気ないから、俺はオートシェイプの額縁で
カラフルにしてるよ

マクロさん

【1 OSの種類 　 　 　 　 .】 Windows
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 ？
【4 VBAでの回答の可否】 ？
【5 検索キーワード 　 　 】 更新されない、リンク、ミラー、2つ同時

元になるデータファイルがありまして
共有の問題で他の人はリンクで値を元データから
持ってきたミラーファイルを見てもらう仕様にしているのですが
そのミラーファイルを開くと更新がされておらず
元データを開くとミラーファイルの値が更新がされるといった状況です。

いちいち元データを開くとミラーファイルの意味がなく
共有の問題で元データは開かせたくないため
自動で更新されるようにしたいのですがどうしたらよいでしょうか？

excel2010で保存するようになってからこの現象が起こるようになったようです。

よろしくお願い致します。

【1 OSの種類 　 　 　 　 .】 Mac/Win
【2 Excelのバージョン 　 】 Excel 2004 for Macほか
【3 VBAが使えるか　 　 .】 OK
【4 VBAでの回答の可否】 OK


ダブルクリックによるオートフィルでシリアル値を入力する時に
既存データ列の空欄セル位置で停止するのを回避するにはどうし
たらよいのでしょうか？

行数が膨大であることが多いためドラッグを使わないで入力したい
と思います。

>>241
いろんな方法が考えられますが、状況がわかりません。
具体的な状況を教えて下さい

>>242
説明が足りず申し訳ありません。例えばこんな感じです。

・A列は全空欄。B列以降にはデータがあるが、ところどころ空欄。
・B列の最初の空欄をB100とします。
・A列に1, 2, 3, と連続番号をB列の最終データセル（例えばB5000）に対応したセル（A5000）
までオートフィルで挿入したい。
・A1=1, A2=2とし、それを選択してダブルクリックでオートフィルを試みるとA99=99で停止。

A99で止まらず、A5000=5000と一気に入力できたらと考えています。
(IF関数やLEN関数などの値をA5000まで自動で得られれば、それを暫定的に新B列としてA列の連続
値を得られるかとも思ったのですが、ifやlenもA99で停まってしまいます。)

>>243
自分がよくやる方法は
数式ボックスに
A1:A5000
と入れて、1を入れてCTRL+ENTER
これで全てのセルが埋まるので、次にa1のセルをダブルクリックして連続データ

でもこの方法は邪道かも。

優等生的答えは
連続データの作成。これは個人的にはあまり好きじゃないけど紹介だけ
http://kokoro.kir.jp/excel/renzokudata.html

>>239
これだから出稼ぎ百姓は

94556とかの数値を単純な文字列に変換する関数ってありますか？
TEXT関数だとどの書式にしていいのか分からないし

よろしくお願いします

関数いらない　文字列と＆でつなげれば勝手に文字列になる

【1 OSの種類 　 　 　 　 .】 WindowsVista 会社はXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 学び始めたばかりです
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 型が一致しません　String Dim FoundCell.Row

簡単な顧客管理のようなものを作っています。下記のようにお客様シートと商品シートがあります。
[お客様シート]
１　　　　　　　　　　２
（名前）　　　（注文商品名）
日本太郎　　　みかん
日本花子　　　　りんご
[商品シート]
１　　　　　　　　　　　　２
（商品名）　　　　（産地）
みかん　　　　　　愛媛
りんご　　　　　　　青森
新しいお客様をユーザーフォームで入力する際に、既に入力済みの商品シートから銘柄を選び、
お客様シートの商品名の後ろにカッコ付きで産地を表示させたいのです。
例　　日本太郎　　　みかん（愛媛）
下記のようにユーザーフォームの中にコードを書きましたが、型が一致しませんのエラーになります。
お分かりの方いらっしゃいましたら、アドバイス頂けませんか？

Sheets("お客様シート").Select
i = 2　'１行目は見出し
Do While Cells(i, 1).Value <> ""
i = i + 1
Loop
Dim FoundCell As Range, shouhin As String
shouhin = ユーザーフォーム.商品リスト.Value
Set FoundCell = Sheets("商品データ").Cells.Find(shouhin)
Sheets("お客様シート").Cells(i, 8).Value = shouhin + "(" + Sheets("商品データ").Cells(Foundcell.Row, 3).Value + ")"

すみません、コードのところにコピペし忘れましたが、
変数iの宣言はしてあります。

>>218の人か
どんなユーザーフォーム使っててどこにコード記述してるのかわからないんだよね

>>250
私でしたら、初めての書き込みです。
分かりにくかったみたいで、すみません。
終業後にもっと整理してご相談に上がります。

>>251
パッと見て変なのは最終行の
shouhin + "(" + Sheets("商品データ").Cells(Foundcell.Row, 3).Value + ")"
が
shouhin & "(" & Sheets("商品データ").Cells(Foundcell.Row, 3).Value & ")"
じゃないの

>>248
リストボックスのRowSourceはどうやって指定してるの？

>>247
いや、数値が入ったセルを、セル左上の文字列マークが出るようにしたいのですが

>>248
自分で作るならこんな感じかなあ
商品リスト(て言うリストボックスがあるんだよね？）のRowSourceに商品データのデータ範囲を指定しておいて

Private Sub list2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
　　Dim targetRow As Long

　　targetRow = Sheets("お客様シート").Range("a1").CurrentRegion.Rows.Count + 1

　　With 商品リスト
　　　　Sheets("お客様シート").Cells(targetRow, 8).Value = .List(.ListIndex, 0) & "(" & .List(.ListIndex, 1) & ")"
　　End With

End Sub

>>254
http://office.microsoft.com/ja-jp/excel-help/HA001136619.aspx

数字を文字列として認識させるにはどうすればいいですか？
緑の三角が出てきてうざい。

Excel2007です。
A1セルに文章を入れるフォーマットで、半角文字があったら
エラーメッセージを出すようにしたいです。
入力規則で次のように設定しましたが、半角文字だけなら
問題ないですが、全角と混在するとだめになります。
=len(a1)<>lenb(a1)
どうすればエラーメッセージが出るようになりますか？

>>258
=JIS(A1)<>A1

>>257
緑の三角がないと困ることのほうが多いと思うけど。

バージョンが分からないけど、エラーを出さないようにすればいいんじゃないの？

>>259
ありがとうございまうｓ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 オートフィルタ　非表示　コピペ等

オートフィルタを使用して、抽出したデータに対してペーストしようとしても、
非表示行を含む複数範囲に対して（書式を維持するために）値貼り付け等をすると、
非表示行も変更されてしまいます

ググった結果、一度不要列にコピペしてから書式をそちらにコピーし、
それを本来の場所にペーストする方法が書いてあったのですが、
もっと簡単な方法は無いでしょうか？

また他に、オートフィルタで意図せずに非表示データを変更しかねない操作があったら教えてください

>>262
何がやりたいのか、微妙に分かっていないけど、
alt+;（れ）で可視セル選択してから貼りつけてもダメ？

>>244
レスありがとうございます。
どちらも最終行の行ナンバーが分かっていれば、それを指定した連続値を使うのがよいという
ことですね。（ある列の最終セルに移動する時も空白セルがあるとそこで一旦停止するのが
悩ましいです。）

シートの固定について質問です。
ウインドウ枠の固定のようにsheet1だけを固定して
その右にあるシートだけを移動させ
sheet1の隣にsheet3やsheet5等を表示させる事は可能でしょうか？
よろしくお願いします。

レス下さった方々、ありがとうございます。

>>252
＆に変えただけで希望通りに入力されました！
本当に助かりました、ありがとうございました。

>>253　>>255
Private Sub UserForm_Activate()
i = 2　'１行目は見出し
Do While Sheets("商品データ").Cells(i, 1).Value <> ""
i = i + 1
商品リスト.AddItem Sheets("商品データ").Cells(i, 1).Value
　　Loop
End Sub

このようにリストに商品名を足していました。
255さん、コードも書いて下さってありがとうございました。
自分のコードではまだまだ無駄も多い書き方だと思うので、ぜひ参考にさせて頂きます。

帰宅が遅くなったもので、お礼が遅れて申し訳ありませんでした。
とても助かりました、本当にありがとうございました。

OPenofficeとLibreofficeしか使ったことがないんですが見た目が全く違って戸惑ってます
ちなみに新しくパソコンを買い替えてマイクロソフトオフィス2010です。
どちらが果たして使いやすくて優秀なんでしょうか

　　　　　　　　　　　　　　　　　　　　　　 ,
　　　　　　　　　　　　　　　　　 　 　　,／ヽ
　　　　　　　　　　　　　　　　 　 　 ,／　　　ヽ
　　<<267?　→　　 ∧＿∧　　,／　　　　　　ヽ
　　　　　　　　　　　（　´∀｀）,／　 　　　　　　　 ヽ
　　　　　　　　　　　（　　つつ@　 　　　　 　　　　　ヽ
　　　 　 　 ＿＿　 ｜ ｜　|　　　 　　　　 　　　　　　 ヽ
　　　　　　|――|　（_＿）＿）　　　　 　　 　　　　　　　　ヽ
￣￣￣￣￣￣￣￣￣￣￣￣|　　　　　　　　 　　　 　　　ヽ
／⌒＼／⌒＼／⌒＼／⌒＼|彡~ﾟ　゜~ ~。゜　~ ~　~ ~~　~ ~~　~ ~~　~~　~~
⌒＼／⌒＼／⌒＼／⌒＼／⌒＼彡　〜　〜〜　〜〜　〜〜　〜　〜

Excelの入門レベルは突破したから
こんどは仕事で使える「便利技」を重点的にたくさん学びたいんだけど
そういう中級レベル以上を対象としてる
とくに便利技のサンプル例がたくさん載ってる本はありませんか？

マルチ　イクナイ

vlookupで空欄になるはずのところに0。
これを空欄のままにするには？
そのvlookupを含む式の結果が常に文字列だけではなく数字や日付のこともあるので
&""　を最後にくっつける裏ワザを使ったら数字や日付になるべきところが空欄になって困ります。

・IF文でゼロだったら""にする
・オプションでゼロを表示しないにする

>>265
同じブック内の別シートを縦横に並べて見比べたいという用途なら、

[ウィンドウ]＞[新しいウィンドウを開く]
↓
[ウィンドウ]＞[整列]で「並べて表示」
↓
表示領域（子ウィンドウの大きさ）はドラッグでお好みに

当方2000使いなんで、コマンド名とかメニューの位置とかは適当に読み替えて

すみません関数に詳しい人いますか

５０個の因子があって、その因子にはAとBという数値が割り振られていて
５０個の因子のうち８個の因子のAの合計が１５０以内で、Bの合計が最大となる因子の組み合わせを調べる関数ってできますかね？
ぜんぜん関数の組み合わせが思いつかないんですが
ちなみにエクセル２００３です。

>>263
こんな機能があったんですね、
無事解決しました
的確な返答をありがとうございました

>>274
関数じゃ無理そうなので総当りを不器用にVBAでやってみた。
50個はめんどくさいので因子４個の場合のサンプル。ここの4618にうｐした
ttp://www.kent-web.com/pubc/book/test/uploader/uploader.cgi

274はパズルの懸賞問題か？

>>276
ｔｈｘ
やっぱ関数じゃ無理か総当りしかないかなぁ
>>277
パズルじゃないんだけどそんな懸賞問題でもあったのかな

よく考えたら　>>276の場合2^50行必要になるからこのままじゃ無理だな何日かかるかもわからん

A　 B
1　　1
2　　2
3　　3
4　　1
5　　2
6　　3
7　　1

A→Bになる関数を教えてください

>>↑
mod

B1が「=MOD(A1-1,3)+1」
B2以下オートフィル

>>281-282
即レスありがとうございます。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003

マクロでSheet1の最下行＋1行目にSheet2のデータをコピペするとき、
B列とE列を比較して、重複してるデータを避けるには
どうすればいいでしょうか？

データは時系列で並んでおり、B列は時刻ですが文字列です。
下記の例では、Sheet2の4行目だけをコピペしたいです。

Sheet1
　A　　　　　　　B　　　　C　　　　D　　　　　E
9月1日　　10:08:27　　A01　　りんご　　秋映
9月1日　　13:16:39　　A01　　りんご　　姫小町
9月1日　　15:47:51　　A01　　りんご　　富士　　　（重複してる）
9月2日　　10:11:55　　A01　　りんご　　王林　　　（重複してる）
9月2日　　14:45:02　　A01　　りんご　　姫小町　 （重複してる）

Sheet2
　A　　　　　　　B　　　　C　　　　D　　　　　E
9月1日　　15:47:51　　A01　　りんご　　富士　　　（重複してる）
9月2日　　10:11:55　　A01　　りんご　　王林　　　（重複してる）
9月2日　　14:45:02　　A01　　りんご　　姫小町　 （重複してる）
9月2日　　16:03:57　　A01　　りんご　　富士

>>284
こうしたまえ

Sub セシウムさん()
Sheets(2).Activate
Cells(1, 1).CurrentRegion.Copy
Sheets(1).Activate
Cells(1, 1).End(xlDown).Offset(1, 0).Activate
Sheets(1).Paste
Cells(1, 1).Activate
ActiveCell.CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End Sub

ダメじゃんｗ

いったんぜんぶ貼りつけて、A-Eを結合したキーをつくって、キーの重複を検査
(COUNTIF)してフラグを立ててから手動で削除するしかないかな

手動で削除かよｗ

>>285
意図と違いますが、何かの参考にさせていただきます。

>>287
マクロでいまくできました。
ただ、F列を作業列にして = "=CONCATENATE(RC[-4],RC[-1])" にすると
"10:08:27秋映" ではなく "0.422534722222222秋映" になります。

動作は問題ないようですが、"10:08:27秋映" にするには
どう書けばいいでしょうか？

TEXT()でフォーマットつける

x いまく
o うまく

>>290
できました。
Format()じゃないんですね・・・

Excelで犬猫の糞管理をする人たち

【michael】ﾏｲｹﾙ･ｼﾞｬｸｿﾝ【jackson】Part1152
689 魅せられた名無しさん 2011/09/05(月) 00:04:10.18
>>686
ふつうに使うお
ヌコ達の小便大便の管理とかエサ管理とか
ワードは年賀状とか手紙かくとか

710 魅せられた名無しさん 2011/09/05(月) 00:13:35.72
>>703
私は犬の体調管理に使ってるけど
うんはＫ
しっこはＨ
で書いてるよ

721 魅せられた名無しさん 2011/09/05(月) 00:20:04.10
各トイレと各ヌコの大便小便の回数と状態を記入だお
療法食のヌコのはそれに食べたご飯の種類やら成分値を入れて
その時の小便回数などから分析
月一回のｐH検査の値も入れてグラフ表示までやるお

【1 OSの種類 　 　 　 　 .】 WindowsXP　SP3
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

IF文で条件よってセルに値を入力する事って出来ますか？
if(A1>100,A2=100,A3=0)
みたいなイメージです。

>293
Ａ２セルに　=IF(A1>100,100,0)　　Ａ１が１００より大きければＡ２は100、それ以外ならば0
Ａ３セルに　=IF(A1>100,0,100)　　Ａ１が１００より大きければＡ３は0、それ以外ならば100
こういうことならできます

>>294
トンです。
そうか、逆は無理ですか。

>>293
そーゆー事例はどんなときに使うの？

VBAならできるんじゃないかな

参考
Private Sub Worksheet_Change(ByVal Target As Range)
'行１、列１（A1）のセルが変更された時の処理
If Target.Row = 1 And Target.Column = 1 Then
MsgBox (Target.Value & "が選択されました。")
End If
End Sub

ドヤ顔でヘボいコードまで書いて得意げなところ悪いが

> VBAならできるんじゃないかな
そんなことは皆解ってるが､
> 【4 VBAでの回答の可否】 否
だから触れないだけ

>>293
>if(A1>100,A2=100,A3=0)
>みたいなイメージです。

イメージがぜんぜんわからないのは俺だけ？

>>296
シートのチェンジイベントを起こしたくて、苦肉の案です。
A2が書き換わる時にチェンジイベントを利用して処理をしようと
考えたのですが、294さんの例だとチェンジイベントは起きないので。
多分、Calculateイベントで関係するセル総当たりでみていくしかないみたいです。

人からもらったファイルで、ある列のセルに適当に数字入れると
数字の大きさによって、背景白の文字黒色、背景緑の文字赤色
に変わるんだけど、どうなってるの？
少なくともマクロはない。
セルにもそれらしき関数は入って無いっぽいんだけど。

>>301
条件付き書式

>293,300
＞シートのチェンジイベントを起こしたくて
だったら、なんでVBA利用：否って書いたの？

>>303　いいじゃないかｗ　ひとそれぞれだよｗｗ

>>303
だって、if分での書き換えではイベント起こらなかったんだもん。

>>302
おお！ありがまんこ

とうさんをま○こに変えちゃダメ！

条件付き書式で条件3つ付けたら条件によって
文字サイズが微妙に変わるんだけど何でですか？
条件付き書式のフォントの設定ではサイズとかは
グレーアウトしていて選ぶ事は出来ません。

うんこ！ちんこ！まんこ！

>>309
うんこといえば

Excelで犬猫の糞管理をする人たち
【michael】ﾏｲｹﾙ･ｼﾞｬｸｿﾝ【jackson】Part1152
689 魅せられた名無しさん 2011/09/05(月) 00:04:10.18
>>686
ふつうに使うお
ヌコ達の小便大便の管理とかエサ管理とか
ワードは年賀状とか手紙かくとか

710 魅せられた名無しさん 2011/09/05(月) 00:13:35.72
>>703
私は犬の体調管理に使ってるけど
うんはＫ
しっこはＨ
で書いてるよ

721 魅せられた名無しさん 2011/09/05(月) 00:20:04.10
各トイレと各ヌコの大便小便の回数と状態を記入だお
療法食のヌコのはそれに食べたご飯の種類やら成分値を入れて
その時の小便回数などから分析
月一回のｐH検査の値も入れてグラフ表示までやるお

>>308
太字にしたら、標準よりは大きく見えるけど
…って、そういうことではないのかな

どういう条件および書式を設定してるかの詳細と、
条件が適用されてるときとされてないときの
セルのスクショでもうｐしてくれれば、何か分かるかも

Excel2010で条件付き書式の練習をしています
日曜日のセルを赤く塗る為に条件を入力した後、土曜日のセルを青く塗る為に追加入力したいのですが
Excel2003のように【追加(A)>>】のボタンが存在していないので一度【OK】して完了し、また範囲指定してから土曜日の設定をしています
Excel2010では追加入力をするには別の方法があるのでしょうか？

>>312
ルールの管理から入ると少しはマシかも。

教えてください。
セルに特定の記号が入力されたらそれを特定の数値としてカウントし、合計させたいです。
たとえば○→5点、□→3点というふうに条件付けるとして
A1に○、A2に□が入力されたらA3に8点と表示したいわけです。
どの関数を使えばいいでしょうか？
countifもsumifも違うように感じました。どなたかご教授を…。

A3セル
=(A1="□")*3+(A1="○")*5+(A2="□")*3+(A2="○")*5

>>314
標準的にはcountifを使い、こうだな。

A3セル
=COUNTIF(A1:A2,"□")*3+COUNTIF(A1:A2,"○")*5

できました！
さっそくのレスありがとうございました。

>>315
この数式があえいでる顔に見えてすごくエロく感じた
疲れてるな俺

>>313
出来ましたありがとうございます
質問続きですみませんがweekday関数を使う場合、【=weekday($A2)=1】と入力すると日曜の行に書式が適用されると思いますが
Excel2010でやると何故か火曜日の行に適用されてしまいます
火曜日が【1】、水曜が【2】、木曜が【3】…月曜が【7】とずれているのですが
此はExcel2010の仕様なのかそれとも適用される曜日を変更出来るのでしょうか？

>>314
C1:D2に
○　　5
□　　3
と対応表があれば
=SUMPRODUCT(COUNTIF(A1:A3,C1:C2),D1:D2)
対応表がなければ
=SUMPRODUCT(COUNTIF(A1:A6,{"○","□"}),{5,3})
=SUM(COUNTIF(A1:A6,{"○","□"})*{5,3})
など

SUMPRODUCT使うならCOUNTIF関数いらんなー

=SUMPRODUCT((A1:A2={"○","□"})*{5,3})

>>321
うむ、たしかに

F9で調べてみればわかるが、仕組みが全然違うな。
範囲が広ければCOUNTIF使ったほうが軽そうだ。

【1 OSの種類 　 　 　 　 .】 Windows7　64
【2 Excelのバージョン 　 】 Excel　2010　14.0・・・
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　CPU　使用率

エクセルの処理をするとCPU使用率が必ず100%になってしまいます。
PCはi5、メモリ4Gのそこそこのパソコンを使っています。

計算する行数が3万近くなっているのが原因かと思います。
処理が終わるのに5分ぐらいかかっています。

まず、100%回避の方法が知りたいです。
1シートを複数シートにした場合に処理能力は変わりますか？

・Excelが使用するCPUの数を減らす
・条件付き書式があればぜんぶ消す

番号 名前　得点
1　田中　100
2　佐藤 90
3　鈴木 120
4　斉藤　110

このように並んでいるデータがあるとします。
得点をもとにランク付けしたり順位を数えたりする場合は
rankやlargeの関数を使えばいいと思うのですが、指定の得点順位を、
得点した者の名前or番号で抽出する場合にはどうすればいいですか？

たとえば2位の得点者はここでは「斉藤」ですよね。
2位の得点者を抽出したい場合、得点そのものではなく「斉藤」という名前を
指定したセルに表示させたいのです。

ご回答お願いします。

>326
同点の人がいたらどうするの？

>>327
いっしょに抽出したいです。
ちなみにただ1つの順位だけでなく、一つのセルにa位〜f位までと、
指定した複数の順位（を名前で）表示することができたら、と思っています。

>328
一つのセルに複数データ？　結局、何をやりたいの？

>>326,>>328
テンプレの
> ★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)
の2つのうち1つが抜け落ちちゃってるんだが､そこに
>　▼数式･関数
> 　 ･ 複数の結果を抽出、不定な数の結果を返す (VBA、結果の最大数が解っていれば最大数以上の式を論理式で組む)
ってのがある

君の要望は､この「数式･関数では出来ないこと」に該当する

そして代用法の筆頭がVBA､次点が条件付きだが､無駄に複雑な式を組むこと
「結果の最大数」は､2位の場合､理論上は「総人数-1」になるので
(100人中､1人が100点､99人が90点なら､2位として抽出される件数が99件となる)
作業セル使って「総人数-1」個の式を作って､それを論理式や検索式で繋げていくことになる

そうすれば結果は出せるが､恐ろしく無駄な方法なので､普通はVBA使うね

しかし君はここのルールである「VBAの可否」などを質問時に答えてないから
これも>>3★2のルール通り､「VBA可で自分でコード書ける」と勝手に解釈し


　　　>>326 ｢VBAで出来るから自分でコード書いて｣


という回答を以て､君の質問は解決扱いになる
条件後出しでVBA無しでやりたいとか言い出しても後の祭りなので､今回はこれ以上の回答は期待せず
こういう対応されるのが嫌だったら今後はスレのルールを無視した愚かな質問の仕方をしないように気を付けるこった

まあ､もしかしたら実生活で誰からも相手にされない「教えたがり君」が出てきて､何か教えてくれるかもしれないがなw

別のセルに表示とかいうから面倒なことになる。
フィルタかけるか、ピボットで抜き出せばたちどころに解決。

質問なのですが列1セル目に�@品目�ａA2セル目に�A数量、3セル目に�B日付を入力し

�@00123　�A3個　�B2011/01/01　A
�@00123　�A4個　�B2011/01/03　B
�@00123　�A2個　�B2011/01/07　C
�@00124　�A1個　�B2011/01/01　D
�@00124　�A5個　�B2011/01/12　E
　　　　　　〜
と表を作ったのですが�@の同一番号の中に�Bの日付が特定日をすべて越えたときのみ
リストアップすると言う事は可能でしょうか？
例えば2011/01/07以降は表示させないとした場合、AとCは01/07以前ですが
Cがまだ超えていないのでA、B、Cとも表示させないと言う具合です。

どなたかご教示よろしくお願いいたします。

>332
意味が支離滅裂なのでエスパーして回答します。
「○○以前」とは　○○　も含むので、A,B,C全て01/07以前です。

で、�Bの日付が特定日を全て越えた　とは、
�@の品目�ｂｪ同一のものについて�Bの日付の最小値がわかればいいので、
作業列を利用します。
�@はＡ列、�AはＢ列、�BはＣ列で1行目は項目見出し、2行目からデータがあると仮定すると
Ｄ２セルに　=MIN(IF($A$2:$A$6=A2,$C$2:$C$6,""))　と入力（Enterキーはまだ押さない）し、
[Ctrl]キー、[Shift]キーを押しながら[Enter]キーを押します。※配列数式を入力したという意味です。
数式バーに　{=MIN(IF($A$2:$A$6=A2,$C$2:$C$6,""))}　と表示されていたらＯＫです。

続きです。
２件目以降はドラッグコピーで複写できます。このままだとＤ列は全て2011/01/01となるので、
４件目のデータ（Ｄのところ）を2011/01/02に変えると、品目�ｂｪ00124の2件は2011/01/02になり、
品目�ｖ�に日付の最小値が設定されていることがわかります。
＞Cがまだ超えていないのでA、B、Cとも表示させないと言う具合です　ということは
逆に　品目�ｖ�の日付の最大値　を調べて、その日付で何かしたいのであれば、計算式の　MIN　を
MAX にしたらいいです。　どっちをしたいのかが、質問の文章からは推測できませんでした。

>>333-334さん、ありがとうございます。
説明がわかり難くてすいません、ご教示頂いたようにやってみます。

わざわざお時間さいて頂ありがとうございました！

番号
A1　ＮＯ１
A2　ＮＯ２
A3　ＮＯ３
A4　ＮＯ３
A5　ＮＯ４
とＡ列に番号を振っていますが、A2以降を自動で計算するにはどうすればいいですか？
A2に"=A1+1"と指定しましたが#VALUE!とエラーになりました。
ＮＯが重複する度にオートフィルで入れ直す手間を改善したい。

ご回答お願いします。

>336
セル書式（ユーザー設定）で　"ＮＯ"#　って設定し、Ａ１には　１　だけいれたら、
＞　A2に"=A1+1"
でいけるよ。セルの値としては数字、表示の方はセルの書式で　ＮＯ　を付加するといいです。

="ＮＯ"&ROW()
なら､書式設定する必要無し

逆に書式設定するなら､
=A1+1
なんて式使わず､フィルコピーで事足りる

>>337の方法で出来ました。
ありがとうございました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003、2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 半角英数字　関数

テキストデータをシートにコピペして、半角英数字とハイフン"-"、
アンダースコア"_"、かっこ"()"以外を削除したいです。
（文字バケを削除したいので、全角を半角に変える方法ではありません）

Forで各行、各セルの文字をIfで分岐すればいいかと思いますが、
上に書いた条件で分岐するにはどうすればいいでしょうか？

次のような品物と価格の一覧があります
ringo　110
mikan　100
itigo　200

実際は次のようにセルに入力されています
'ringo　110.111
'mikan　100.100100
'itigo　199.999

機械が吐き出したデータなのですがこれらを一度にまたは
マクロかVBAで見えている通りの値に変更したいのです。
アイデアありましたらお願いします

>>341
関数じゃいけないの？
ちなみに'をとるのはなんか計算をさせればOK。例えば１をかけるとか。

>>341
後ろの数値は前の文字と分割（区切り）を行った後セルの書式を標準→数値
（小数点の桁→０）に設定すれば表示上は上の一覧のようになります。
また、値自体を整えたいというのであればROUND関数を使えばよいかと。

>>340
どのような削除方法を想定しているかわからんけど
1文字づつ見て分岐なら Like演算子 かな？
If Moji Like "[-_()A-Za-z0-9]" Then
とか

>>341
見えている通りの値に変更なら
Range("A1").Value = Range("A1").Text
とかだと どうだろうか？

>>344
ありがとうございます。
セル内の文字を削除する方法が分からなかったので、
If MOJI Like "[-_()A-Za-z0-9]" Then CHIKAN = CHIKAN & MOJI
で痴漢しました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 セル　背景色　変更

セルのフォントの色や、背景色はセルに入れる
関数からは設定できませんか？
VBAのみでしょうか

>>346
条件付書式は？

>>347
トンです。
条件付き書式だと、0と””（空白）を区別してくれなかったりするので
if文かで出来ないかなと思いまして。

>>348
区別はできるよ？数式を用いれば簡単

エクセル２０１０で見積を作っています。
見積もり番号を自動で入力出来るようにしたいのですが、
Ｙ１１０９１１１５５５
Ｙ（自分の名字）１１（2011年の11）０９１１（9月11日）１５５５（15時55分）といったように入力しています。
これを関数やマクロをつかって自動的に入力する方法はありますか？

TODAY()とTIME()をTEXT()で適当に書式つけてくっつける

>>350
関数は無理。マクロはワークシートのイベントを使えば出来るけど・・・・

>>351
見積もり番号が変わるから、変数は無理

「0」と「""」は区別される｡これは数式使っても使わなくても区別される｡

但し､「0」とEmptyは「対象=0」の場合､「""」とEmptyは「対象=""」の場合
数式使っても区別されない

一覧にするとこんな感じ
　　　　　　対象=0　　対象=""
0　　　　　　○　　　　　×
Empty　　　○　　　　　○
""　　　　　 ×　　　　　○

つまり､0は「○×」､完全に空のセルは「○○」､空文字列の""は「×○」なので
それぞれ
=AND(A1=0,A1<>"")
=AND(A1=0,A1="")
=AND(A1<>0,A1="")
で区別できる

まあ「0」､Empty､「""」の3種ではなく､「0」とEmptyの2種なら「対象=""」で
「""」とEmptyの2種なら「対象=0」で区別できるけどね

×変数
○関数

すみません

返事ありがとうございます。
関数で自動的に入るように出来れば、
後はコピー、貼り付け（値）で値値にしようと思ってるのですが、
関数ではやはりむりですか？

>>356
なら大丈夫。

="Y"&TEXT(NOW(),"yymmddhhmm")

>>357
ありがとうございました！
見積番号の自動割り当てができました！
とても便利です。
そこでもう一つ質問なんですが、
マクロ実行ボタンを作ってコピー&ペーストで値を決めているのですが、
現在のマクロボタンはセルを指定してボタンを押さないとセルが別の場所にあるとそのセルをコピーアンドペーストしてしまいます。

Sub 見積完了()
'
' 見積完了 Macro
'

'
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

現在のvbaはこのようになっているのですが、ここに　セルI5　をボタンを押せばどこにポインタがあっても実行できるように出来ないですか？
よろしくお願いします。

結合されたセルの値をクリアしたとき
Worksheet_ChangeのTarget.ValueがEmptyにならず、代わりに
結合セルの個数分のEmptyなVariantを格納したVariantになるため
Target.ValueがIsEmptyに引っ掛かりません
こういう場合、結合セルが空かどうかを判定するにはどうすればいいんでしょうか？

>>358
これでどう。同じ場所にペーストすると式が消えるから下にペーストしてる。

Sub 見積完了()
'
' 見積完了 Macro
'

'
Range("I5").Copy
Range("I6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

教えるならせめてセルをSELECTするのはやめようよ(´・ω・｀)

可読性重視です

セルをSELECTすると何がダメポなの？

>>359
結合セル時の判定なら
　Target.MergeCells = True なら
　IsEmpty(Target.Cells(1,1).Value) で判定させればいいと思う
ただ
セル範囲に対してクリア等の操作された時も 配列になるんで
IsEmpty(Target.Value) じゃ判定できないから
渡されたセルの個数分 調べるしかないような

For Each r In Target
If IsEmpty(r) Then ・・・・
Next r
こんな感じじゃないかなあ。これだったらセルの個数によらない。

>>364,365

そもそもTargetが何を指しているかよく考えてなかったのが敗因でした
１つ１つセルを調べることにします
ありがとうございました

>>362
Selectすると､可読性は落ちるよ｡

　　　Aさんにリンゴを渡しました

ってのと

　　　Aさんを椅子に座らせました
　　　椅子に座ってる人にリンゴを渡しました

っての､どっちが可読性高い？

>>363
･可読性が落ちるから
･処理速度が落ちるから
･Selectionからは入力支援機能が使えず､コードの修正などがしにくいから
･コード修正時に「〜Select」と「Selection〜」の間に別の処理を入れてしまい
　正常に動かなくなるというバグを誘引する原因となるから
etc…

８ビット時代の幻影を引きずってるひとがいるな

Selectを100個使ったところで処理速度なんて全く落ちね〜〜よｗ

残念､ハズレ

描写を止めたり､対象シートを非アクティブにしてなら処理速度落ちないけど
普通にアクティブシートで描写を止めずにSelect変更しまくると3GHzのCPUでも処理速度落ちます

描写変更の多い処理ではScreenUpdatingで描写を止めて処理速度の向上を図るなんてのはもはや常套手段だが
それは何故かって言うと描写変更ってのは以外と処理時間を喰うからであり､選択セル変更ってのは
その描写変更を伴う処理の一つなんですよ

>>370
Application.ScreenUpdating = Falseを使わない理由を知りたい

だれかApplication.ScreenUpdating = Falseを使わないなんて言ってるの？

>>369が「Application.ScreenUpdating = Falseを使うなら､Selectを100個使ったところで〜」という
話をしているなら誰も突っ込まないが､Application.ScreenUpdating = Falseを使うならという
前提で話をしていない以上､使わない場合の指摘を受けるのは当然のことだよ

Sub セシウムさん()
Dim StartTime, StopTime, うんこ
StartTime = Time
うんこ = 1
If うんこ = 1 Then
Columns("B:B").Select
Selection.ClearContents
For i = 1 To 100
Cells(i, 1).Select: Selection.Copy
Cells(i, 2).Select: ActiveSheet.Paste
Next
Else
Columns("B:B").ClearContents
For i = 1 To 100
Cells(i, 1).Copy Destination:=Cells(i, 2)
Next
End If
StopTime = Time
StopTime = StopTime - StartTime
MsgBox Second(StopTime) & "秒"
End Sub

あまり変わらんような希ガス・・・

×Time
○Timer
◎GetTickCount

>>299
A1が100より大きければ、A2に100と表示し、A3には0と表示する。としたいんだろ。

Book1xlsにマクロを書く
Sheet1をSheet1.csvで保存

このとき、Book1.xlsをアクティブにしたままSheet1.csvを保存することって出来ないの？

>>374
論外

いや､論外ではないか

>>376
出来るけど､無駄で冗長で無意味なだけ

処理の間表示の更新を止めておき､処理の最後でBook1.xlsをアクティブにしてから
表示の更新を再開すれば､処理中にBook1.xlsのアクティブが維持されず
非アクティブになることがあろうと､見た目も結果も何も変わらん

まあActiveWorkbook.〜」的なコードを書いていると結果が変わってくるが
この手の処理でActiveWorkbookを使うこと自体が間違いなので､もしそうなら改めるべきは
Book1.xlsが非アクティブになることではなく､ActiveWorkbookを使うことだ

Timeじゃ秒までしか計測できないんじゃないの？
普通はGetTickCountよりtimeGetTimeだと思うが。

timeGetTimeは､環境によって精度が高い場合と低い場合がある
GetTickCountの精度は､最良環境のtimeGetTimeには敵わないが
どんな環境でもコンスタントにそこそこの精度を発揮する

精度が低いときはtimeBeginPiriodとtimeEndPirodと組み合わせる。
駄菓子菓子、普通はTimerで十分だ。
分解能はどれも同じだよ。
所詮他の割り込みとか入るから完璧な精度は無理。

分解能が同じなのはGetTickCountとTimerの話ね。
どちらも1/100秒程度の精度しかない。

たまにそういう勘違いされるけど､それは間違い

エクセルの操作的な質問もここでOK？

>385
そのための「総合相談所」ですよ！
ただし、はじめにこのスレの>1-5を読んでくださいね。

Sub 分解能調べ()
　　Dim i As Long, j As Long
　　Const N As Long = 10000000, NN As Long = 10000
　　ReDim a(1 To N / NN, 0)
　　j = 0
　　For i = 1 To N
　　　　If i Mod NN = 0 Then
　　　　　　j = j + 1
　　　　　　a(j, 0) = Timer
　　　　End If
　　Next
　　Cells(1).Resize(j).Value = a
　　j = 0
　　For i = 1 To N
　　　　If i Mod NN = 0 Then
　　　　　　j = j + 1
　　　　　　a(j, 0) = GetTickCount
　　　　End If
　　Next
　　Cells(2).Resize(j).Value = a
　　timeBeginPeriod 1
　　j = 0
　　For i = 1 To N
　　　　If i Mod NN = 0 Then
　　　　　　j = j + 1
　　　　　　a(j, 0) = timeGetTime
　　　　End If
　　Next
　　Cells(3).Resize(j).Value = a
　　timeEndPeriod 1
End Sub

上の頭に下を書くように。
Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long
Private Declare PtrSafe Function timeBeginPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long
Private Declare PtrSafe Function timeEndPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long

Sub 分解能調べ()はパソコンの性能によって適宜NNの値を変えること。
俺のはCore i7-2600であのような数値にしてる。

複乳よりはややマシなのが来たか

おまいさんよりはマシじゃないんだよな？ｗ
>>380以降、この件に関して俺に反論してるやつ以外はほとんど俺の書き込みだ。
昔のパソコンはTimerもGetTickCountも分解能はほぼ同じだと記憶してたので>>383を書いたが
今のパソコンで実際調べたらGetTickCountが一番分解能が低いじゃねーかｗ

この子､もうダメだ

お互いそう思ってるから無問題

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 (excel 小数点　変換) (excel 合計数　変換)


こんにちは。excelで割合（パーセンテージ）を整数に変更する方法をご教授ください。

http://i.imgur.com/Bjhtl.jpg

↑のように、一番右に回答の合計数があり、左側の小数点の部分は回答者が選択した割合を示しています
（この画像では6択ですが、3択・4択などもあります）

この割合で表示されている部分を、一番右の回答合計数に合うように、整数へと変換して表示する方法を探しています。
どうぞよろしくお願いいたします。

>>381
＞＞どんな環境でもコンスタントにそこそこの精度を発揮する
おまいさんはどんな環境やねんｗｗｗ

>>394
GetTickCountがミリ秒の精度があると勘違いしてるんじゃね？
そんで環境によってtimeGetTimeの精度が悪くなることだけは珍しく知っていたってことだな。

俺も､環境によってtimeGetTimeの精度がGetTickCountより悪くなることがあるってことだけは知っている｡

セルの色変えについてなんですが、

・5〜8行 ：色なし
・9〜12行：青
・13〜16行：色なし
・17〜21行：青
………

という風にするには条件付き書式をどう設定したらよいでしょうか。
『=MOD(ROW(),2)=0』からの簡単な応用だと思うのですが、
色々試したけれどどうにもうまくいかず…
教えて頂けるとありがたいです。

間違ったときには素直に認めればいいのにねぇ。
プライドばっか高くて絶対に認めないやついるよなぁ。
俺がGetTickCountとTimerの精度が1/100秒と書いたのは間違いだったわ。
そういえば昔も1/16秒の分解能だったよ。
timeGetTimeもそのころの環境ではほぼおなじだったな。

1/16秒じゃなかったか。
16/1000秒だな。

1行目､自分に言い聞かせてるの？

>>397
=MOD(INT((ROW()-1)/4),2)

こんな感じ。

>>397
最後のが17〜21ではなく17〜20で良いなら
=MOD(ROW()+3,8)>=4とか=MOD(ROW()-1,8)<=3とか

因みにこれ､Excelの質問ではなく小学校算数の質問だからね
Excelでの除余の出し方が解らないとかならExcelの質問だけど
MODやROWが解っていてこれが解らないってのは
小学校の「余りの有るわり算」と「数の大小」がちゃんと理解出来てないってことになる
少なくともそれらを実生活で応用できるレベルでは理解してないってことだ

>>388
コンパイルエラーになるよ？ by 2007

もうバカには構うなよ

>>403
PtrSafeを外してみたら？
俺は64bitのExcel2010なんだが、32bitのExcelでPtrSafeを書いていいものか正直自信がなかった。
t.tanaka氏のサイトに32bitのExcelでPtrSafeを書いても無問題みたいなこと書いてあったもんでそれを信じた。

バカほど自分のバカには気が付かない。
もちろん404のことだ。

レス番ズレてるよ？
再読み込みしてみたら？

>>405
PtrSafeをデリったら動いた。
けど、この結果の見方がワケワカメ‥‥

>>401 >>402
ありがとうございました。助かりました。

>>408
同じデータがいっぱい続いて、変わるとき大きく変わるのは分解能が悪いってことだよ。
Windows7(64bit)での分解能(割り込み)はGetTickCountが1/64秒、Timerが1/256秒、timeGetTimeが1/1024秒ってことだろう。
たしかVistaじゃどれも大差なかったような記憶があるが。
コードは下の方が良かったか。
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Declare Function timeBeginPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long
Private Declare Function timeEndPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long
Sub 分解能調べ()
　　Dim i As Long, j As Long
　　Const N As Long = 10000000, NN As Long = 10000
　　ReDim a(1 To N / NN, 1 To 3)
　　timeBeginPeriod 1 'おまじない(俺の環境では効いてない）　
　　For i = 1 To N
　　　　If i Mod NN = 0 Then
　　　　　　j = j + 1
　　　　　　a(j, 1) = Timer
　　　　　　a(j, 2) = GetTickCount / 1000
　　　　　　a(j, 3) = timeGetTime / 1000
　　　　End If
　　Next
　　Range("A1").Resize(, 3).Value = Split("Timer GetTickCount timeGetTime")
　　Range("A2").Resize(j, 3).Value = a
　　timeEndPeriod 1
End Sub

timeBeginPeriodはWindows7ではどうも効いてないようだ。
1000にしても変わらんし。

消費税がかわったときにダイアローグで入力するようにしたいのです

>411
質問の続きはあるのかな？

>>412
つぶやきだろ？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 ほんのちょっと
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA IF

注文があるとＣ1に客甲の名前、A7に甲の住所、Ｆ1に客乙の名前、D7に乙の住所といった感じです延々書いていく必要があります。
客は大体固定なので予め客の名前と住所を対応させたボックスは用意できます。
名前を記入したらオートで住所が入るようにするにはどうしたらいいでしょう？

★質問です。
Excelで単語帳（２列[英･和]×100行[語])を作ったのですが、
そのまま印刷すると、紙の右側が開いたページが大量に発生してもったいないと感じます。
印刷するときだけ、表を１ページ内に折り返して印刷することはできますか？
また、その方法は？

印刷するたびに手動で切り張りすると、単語がこれ以上増えると手間が大変になります。

▼━質問テンプレ ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows　XP-Professional SP-3
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否(可で可能ならば勉強します)
【5 検索キーワード 　 　 】 excel　印刷　折り返す

>415
元データのシートは2列でずーっと下まで入れていって、
別シート（印刷用シート）に引用する計算式を入れたらいいです。
印刷用シートの方は何行までにしますか？
Ａ列：英語、Ｂ列：和訳、Ｃ列：区切りの空白列　の3列を一組として、
何行×何組　で1頁分にしたいですか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 参照　文字列　改行　ユーザー定義　値

質問です
参照や関数などで呼び出された値（文字列）を任意の文字数で改行
したいのですがどうやったら出来ますか

A1の文字列をA2の文字数で改行する場合
「折り返して全体を表示する」にして
=LEFT(A1,A2)&CHAR(10)&RIGHT(A1,LEN(A1)-A2)
ただしA1の文字数＜A2だとエラー

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ファイル　作成

やりたい事
Ｅｘｃelで以下の事を行いたいです。
アイディアでもいいので教えてほしいです

例(「｜」はセルが分かれている事を示します
1 | a | A | いち
2 | b | A | に
3 | c | B | さん

この状態から、指定のファイルをコピーしてファイル名を「1_a.xls」「2_b.xls」「3_c.xls」と変更
その後、３列目のＡやＢによって不要なシートを削除
（たとえばＡの場合はＳｈｅｅｔ2,3を削除、ＢではＳｈｅｅｔ2,4を削除等）
その後、「1_a.xls」の指定の場所に「1 | a | A | いち」をコピー

できれば一つのマクロ実行でここまでやりたいです。

アドバイスお願いします。

指定のファイルをコピーってマクロ実行するたびに指定するの？
＞その後、３列目のＡやＢによって不要なシートを削除
ってどういう法則で削除するの？
＞指定の場所に「1 | a | A | いち」をコピー
ってファイルごとに毎回指定するの？

特に何かしたわけではないのですが
「○○.xlsxには読み取れない内容が含まれています。このブックの内容を回復しますか？」
が出てきて、「はい」を押下すると中身の入力値がほぼ消えている状態です

こういうのはファイルが壊れたという認識でいいのでしょうか？
特に直前に何かしたわけではないのですがこういう状態の場合復旧は不可能でしょうか？
XMLもマクロもこれといって入れていません。

>>420
指定ファイルはあらかじめ決まったファイルです
例えばＣ列の値がＡ→Sheet2,3 B→Sheet2,4　を削除等　これもあらかじめ決めておきます
(指定はそれ様のセルを作っても、ＶＢＡの中に組み込んでも可です）

指定の場所はファイルの決まった場所です
例えば元ファイルのＡ1を作ったファイル「1_a.xls」のSheet1のＡ1にコピー等です

excel近似曲線の切片が意味するものは何でしょうか．
excelで散布図か何かに対して直線近似式を求めたとします．
その傾きは，x軸に関しての特性を表していると思います．
たとえば，傾きが大きな値であればそのデータはx軸に関して大きく変化しており，傾きが小さければ変化は小さく，x軸に関わらない．など．
しかし，切片の値というのは物理的に何を表すのでしょうか？ どういう性質を表すでしょうか．

些細なことでも結構ですので，お考えをお聞かせください．


▼━質問テンプレ ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows　XP-Professional SP-3
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel　近似曲線　直線近似　傾き　切片　

>>422
こんな感じですかね

Sub bookCopy()
Dim siteiPath As String
Dim siteiWB As Workbook
Dim dataArea As Range
Dim targetRow As Range
Dim newFileName As String

　　Set dataArea = ThisWorkbook.Worksheets(1).Range("a1:d3")
　　　　 '作業の元になるデータの範囲（1 | a | A | いち〜等のセル）
　　siteiPath = "C:\Documents and Settings\user01\デスクトップ\指定ファイル.xls"
　　　　　'指定ファイルのフルパス

　　 For Each targetRow In dataArea.Rows
　　　　Set siteiWB = Workbooks.Open(siteiPath)
　　　　 '指定ファイルのコピーを保存(拡張子：xls）
　　　　newFileName = targetRow.Range("a1") & "-" & targetRow.Range("b1") & ".xls"
　　　　siteiWB.SaveAs Filename:=newFileName
　　　　 '３列目の文字列に基づいてシート削除処理
　　　　del_sheet Workbooks(newFileName), targetRow.Range("c1")
　　　　 '指定の場所（Sheet1のＡ1）にコピー
　　　　targetRow.Copy Destination:=Workbooks(newFileName).Worksheets("sheet1").Range("a1")
　　Next
End Sub

つづく

つづき
Sub del_sheet(WB As Workbook, Key As String)
　　Application.DisplayAlerts = False
With WB
Select Case Key
Case "A"
.Sheets("sheet2").Delete
.Sheets("sheet3").Delete
Case "B"
.Sheets("sheet2").Delete
.Sheets("sheet3").Delete
End Select
End With
Application.DisplayAlerts = True
End Sub

「1 | a | A | いち〜」のセルがあるブックに記述してください
ファイルやシートが存在しない、重複する等のエラーは考慮してません

>>423
excelの切片というか一般的な切片でいいのですかね？？
そういう意味なら
Ｘ切片　　Ｙ＝0の時のＸの値
Ｙ切片　　Ｘ＝0の時のＹの値　　です

文章から　y=ax+b の式を思い浮かべたので、ｂはＹ切片です

もしこのｂが求められないと不便な事があるからじゃないでしょうか

例えば
データ群から近似式を求めて、Ｘがある一定の値の時のＹの値を予想したい時にｂの部分がないと求められませんよね？

【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】（excel 行から列　相対参照）（セル　ずらして　参照）

社員が朝昼夜に何を食べたかの年間スケジュール表があって、
そこからデータを抽出して、
別ファイルに社員ごとの表をつくりたいんです。

参考図↓
http://pc.gban.jp/?p=33814.jpg

縦にズラズラ並んでいる元データから、
横３セルごとに改行するには、どんな関数を使えばいいのですか？

>427　ふたつ質問
○さんだけ抽出って表は、どこかを１カ所変えるだけでＡさん、Ｂさん、Ｃさん・・・と切替ができる必要がありますよね？
○さんだけ抽出って表の「Ａさん」って表示されているセルはＡ１セルですか？

>427
元データシートがSheet1で、抽出先が別シートとし、前提が　428　で書いたとおりとしたら、次の式でいいです。
元データシートのＡ２セルの式　=MATCH(A1,Sheet1.C1:E1,0)　　E1の部分は現物に合わせる
Ｂ３セル（１月１日の朝）の式　=OFFSET(Sheet1.$B$2,(ROW()-3)*3,$A$2)&""
Ｃ３セル（１月１日の昼）の式　=OFFSET(Sheet1.$B$2,(ROW()-3)*3+1,$A$2)&""
Ｄ３セル（１月１日の夜）の式　=OFFSET(Sheet1.$B$2,(ROW()-3)*3+2,$A$2)&""
あとはＢ３：Ｄ３を必要なだけドラッグコピーしてください。
level不足により、次に続く・・

>続きです
Ａ２セルの数字はＡさん、Ｂさん、Ｃさん・・・の横方向のシフト位置を示します。
Ａ１セルに抽出したい人の名前を入れると数字が出ます。該当なければ、計算式を入れたセル全て　#N/A　になります。
以上、LibreOffice3.3　で試してみた結果なので、ひょっとすると動かないかも知れないけど、今Excelが手元にないのであしからず。

>429でちょっと抜けてた。
Ｂ３，Ｃ３，Ｄ３の各計算式は、抽出先シートへ　です。元データシートの計算式はＡ２セルだけです。

ついでに　&""　は、参照元が文字列だけ、と仮定し、参照元セルが空欄だったときに　０　と表示させないためのものです。

何を勘違いしてたのか、Ａ２セルの計算式も抽出先シートです。
とにかく、計算式は全部抽出先シートへ、です。
ねぼけてたのか＜俺

以下のように、例えばクラスの体重とその人数を集計した時に
上位から25%の人は何キロかとかを計算する方法はありますか？

A列 B列
1 体重 人数
2 51kg 3
3 53kg 4
4 56kg 2
・ ・
・ ・
・ ・

>433
「上位」って体重の大きい方から考えるの？
それとも、Ａ列の並び（体重の軽い方）で考えるの？

>>433
ありますよ

>>434
いつものかまってちゃんなんで親身にならないでいいですよ。

>435　そうなのか、じゃ
>433　作業列　と　match　と　index　を組み合わせる　とだけ

つーかさ､最近「算数」の質問大杉

算数･数学的な解の求め方を理解している上で
それをExcel上に表現(入力)する方法が解らないとかはこのスレの範疇だが
算数･数学的な解の求め方が解らないって質問はスレ違いだぞ

直角三角形の各2辺の二乗の和が斜辺の二乗に等しいのはなぜですか？

ボウヤ､それ面白いと思ってるの？

2万行以上あるセルにhttpから始まるリンクのある行と普通の文字だけの
行があり、そこから文字だけを抽出したいんですがどうすればいいんですか？

なにかプログラミングみたいなことが必要なのかその他のことでできるのか。
よろしくお願いします。

>>440
それは数字を除外したすべての文字を抽出したいということかな？

マクロの変数で、A1 As Single、A2 As Single、A3 As Single・・・、A35 As Singleと
35個の変数を一度に指定する方法を教えてくださいです。

httpで始まらないやつをオートフィルタで抽出

>>442
そういうときは配列使うんだよ

Dim A(1 to 35) As Single

A(1) = 1.2
A(2) = 2.3
A(3) = 3.4

A1がF1と同じ文字列ならC1にG1の数値を入れるってのをやりたいんですがどうしたらいいですか？

=if(A1=F1,G1)

>>445
=IF(A1<>F1,□,G1)
もしくは
=IF(A1=F1,G1,□)

※　□にはA1とF1が違う文字列の場合にどうするかを指定してください。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel Viewer 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel Viewer 均等割り付け 表示
Excel Viewer 2007でxlsファイルの印刷をしています
書式が均等割り付けに設定されているのに中央そろえで表示されます。
均等割り付けを正常に表示する方法はありませんか。

Excel Viewerは無料な代わりに､「内容が確認できれば良い」程度の造りで
表示(書式など)に限ってもExcelの全機能を網羅しているわけじゃない

というわけで､「無料のものに多くを求めすぎるな」
「完璧な書式の再現を望むなら､ViewerじゃないExcel使え」程度の
常識的な指摘くらいしか言うこと無いな

Excel2007を使用しています

A列に出品日
B列に売れた日を入力しています

A列とB列を比較して、30日以内ならセルの色を変えたいのですがどうすればいいのでしょうか？

日付の書式は「20110917」のように書いています
この書式だと比較できないなら書き換えます

このような図の場合、1は30日以上経過しているので無視
2は30日以内なのでA2かB2に色を付けたいということです

　　 A出品　　　B販売
1　20110731　20110917
2　20110910　20110917

>>450
日付の入力書式を変えていいなら「2011/09/17」のようにしたらいい
そうすれば単純に B列 - A列 の引き算で経過日数がでる。
セルの色を変えるのは、条件付き書式で

ところで経過日数が30日の時はどうするの？
・30日以上経過しているので無視
・30日以内なので色を付けたい
両方合致するけど...

今週月曜深夜の>409さんを最後に

質問　と　質問への回答　はあっても、
回答へのお礼　がないのはなぜだろう？

>>452
2chだから。
おまいはお礼はあって当然と思ってるようだが、
おまいは質問した、オレは回答した、さあお礼を待ってるぞ。

ｔｈｘ>453

>>451
その書式にすれば日付扱いで引き算できたんですね！
やってみます

確かに、あれだと両方入っちゃいますね
以上と以下の使い方を間違えていました
30以下と31以上ですね

即レスどうもです！

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】セル結合　アベレージ

49.85 49.85 49.85
50.00 50.00 50.00
50.15 50.15 50.15
50.30 50.30 50.30
50.55 50.55 50.55
50.80 50.80
50.85 50.85 50.82
50.90 50.90
50.95 50.95 50.92
51.00 51.00 51.00
51.10 51.10
51.15 51.15 51.12

エクセル初心者ですよろしくお願いします。

左端が元データ
上の数字との差が0.15以上ならそのまま
0.05未満だと上との数字の平均でセルを結合して
右端のように表示することは可能でしょうか？

>>448
SP2を入れるとそうなるから再インストすれ

>>453
現実社会でお礼を言われることが無く淋しい思いをしているが故に
ここで僅かでもお礼を言われる可能性に期待して張り切ってる奴が
何強がって澄ましたこと言ってるんだかw

>>>444
ありがとうございましたです。

A列に時間(15：00)Ｂ列に(19：00)があったとして、Ｃ列にその間が何分かというのを(240分)自動で表示させたいのですが、何かいい方法ありませんか？

=B1-A1
表示形式をユーザー定義→[m]

できました！ありがとうございました。

複乳の兄です
複乳は先週、肺癌で亡くなりました
短い間でしたがお世話になりました、楽しかったです
皆様もお体にはお気をつけ下さい
との事でした

私からもお礼を申し上げます
皆様、弟に付き合って頂き、ありがとうございました

>>463
こら、勝手に殺すな

>>464
不思議な気分です
ありがとう
私もいつかExcelで困った事があれば、寄らせて頂きますね
失礼しました

>>379
�@この手の処理でActiveWorkbookを使うこと自体が間違い
�A改めるべきはBook1.xlsが非アクティブになることではなく､ActiveWorkbookを使うこと

�@と�Aは一貫性があるの？
難し過ぎてワケワカメ・・・

んで本題
↓だと保存後Sheet1.csvになってBook1.xlsが無くなるけど、
どこを変えればいいの？

Sub CSVで保存()
　　Sheets("Sheet1").Select
　　ActiveWorkbook.SaveAs Filename:="D:\DATA\Sheet1.csv", _
　　FileFormat:=xlCSV, CreateBackup:=False
End Sub

>466　横から失礼
379さんではありませんが、book形式で保存するんじゃなければ
保存したいシートを別ブック（新規ブック）にコピペして、当該ブックをcsv形式で保存する方法が
元ブックはそのまま残るからいいんではないでしょうか？

データ中に山田太郎って名前があったら右に2、下に3マスの所に市××町1-2-3とオートで入れたいんだがこういう処理って出来ますか？
山田太郎が例えばD5にあったらF8に地番が入るように

出来ます

>>468
VLOOKUPって知ってる？

>>468
そういう書き方だとD5に山田太郎あるかもしれないがF7にも山田太郎と入る可能性も否定できない
書き方だな。

>>470
解決しました
ありがとうございました

>>418
出来ましたー　ありがとうございます！

なんか最近の質問者ってキモイなぁ。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マクロ　名簿　年齢別　色分け
A列：氏名/B列：生年月日/C列：年齢
の表で年齢別に色分けしたいです。
20歳と30歳は青
0〜19歳、21から29歳、31以上は赤
こんな感じで色分けしたいです。
セルの色はAからC列まで（情報が入っているすべての列に色づけ）色をつけたいです。
よろしくお願いします。

>>475
条件付き書式

なんか最近の回答者ってキモイなぁ。

なんか最近のつぶやき者ってキモイなぁ。

【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel*２００７
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 描画ツール　色変更　文字色　文字　色　できない　赤　囲

ワードアート等作業中に出る「描画ツール」ですが、赤線四角で囲われている状態です。
描画ツール使用中に文字色、背景色共に変更できません。どの色をどこから選択しても黒以外表示されません。
プレビューも黒です。条件付き書式は未設定です。
アンインストール等はしていません。

よろしくお願いします。。。

私の環境では赤線四角で囲われていません。

はい、次の方〜

>>475
Sub Fukuchichi()
Dim うんこ As Long
For うんこ = 1 To 65536
　If Range("C" & うんこ) = "20歳" Or Range("C" & うんこ) = "30歳" Then
　　Range("A" & うんこ & ":C" & うんこ).Select
　　With Selection.Interior
　　　.ColorIndex = 5
　　End With
　ElseIf Range("C" & うんこ) = "0〜19歳" Or Range("C" & うんこ) = "21から29歳" Or Range("C" & うんこ) = "31以上" Then
　　Range("A" & うんこ & ":C" & うんこ).Select
　　With Selection.Interior
　　　.ColorIndex = 3
　　End With
　End If
Next うんこ
End Sub

複乳ならぬ復乳か

最初､名前では漢字違いに気付かなかったが､コードで複乳ではないことが一発で解った

本物の複乳のレベルは初心者に毛が生えた程度だが
>>481のコードは､まだ毛も生えてない初心者そのもののコード

複乳はまだまだまともなコードは書けないが､それでも中学生レベルのコードは書く
さすがに>>481みたいな小学生レベルのコードでは､名前欄で気付かなくても
複乳じゃないことは一目瞭然だ

Sub セシウムさん()
Dim うんこ As Long
For うんこ = 1 To Cells(65536, "C").End(xlUp).Row
If Cells(うんこ, "C") = "20歳" Then
Range(Cells(うんこ, "C"), Cells(うんこ, "C").Offset(0, -2)).Interior.Color = RGB(0, 0, 255)
ElseIf Range("C" & うんこ) = "30歳" Then
Range(Cells(うんこ, "C"), Cells(うんこ, "C").Offset(0, -2)).Interior.Color = RGB(0, 0, 255)
ElseIf Range("C" & うんこ) = "0〜19歳" Then
Range(Cells(うんこ, "C"), Cells(うんこ, "C").Offset(0, -2)).Interior.Color = RGB(255, 0, 0)
ElseIf Range("C" & うんこ) = "21から29歳" Then
Range(Cells(うんこ, "C"), Cells(うんこ, "C").Offset(0, -2)).Interior.Color = RGB(255, 0, 0)
ElseIf Range("C" & うんこ) = "31以上" Then
Range(Cells(うんこ, "C"), Cells(うんこ, "C").Offset(0, -2)).Interior.Color = RGB(255, 0, 0)
End If
Next うんこ
End Sub

>>483
これだけ分岐があるのなら、CASE文の方がいいんじゃないか。
まぁ、好みといってしまえばそれまでだが。

てゆーか、C列は文字列でいいのか？

>>482
おめーもgdgd言ってないで中学生レベルのコーディング作法教えろよ。
そのくらいのレベルには達してんだろ？

あの…
うんこの部分は何に置き換えたらいいのでしょうか？？

>>487
AでもBでもcntでも好きにすればいい。
ただFor文のループカウンターだから、慣例的にはｉあたりが妥当だと思われる。

>>475
マクロの他のやり方だけど、>>476の人が言っている条件付き書式のやり方ね

1行目がタイトル（"氏名"、"生年月日"、"年齢")、2行目以降にデータが入っているとして、
A2からC2のセルを選択したまま、メニューから書式＞条件付き書式を選ぶ

条件１に「数式が」「=OR($C2=20, $C2=30)」
で、条件１の枠にある書式ってボタン押してパターンから青い色選ぶ

おなじく条件２で「数式が」「=$C2<>""」
書式のパターンから赤

これで、C2の年齢欄の数字変えると色が変わるのをチェック

あとは、A2からC2のセルをコピーして、3行目から下のA列からC列に対して
メニューの編集＞形式を選択して貼付けで書式にチェックして貼付け

>>487
ぉぃぉぃ、ツッコミどころはそこじゃねーだろ？ｗ

>>481のうんこの部分をiに変えてやってみました。
20と30に青色がつくのですが、ほかの年齢に色がつきませんでした。
ちなみに年齢は「歳」の文字はつかなくて数字のみで、
「19」や「34」と入力しています。
だから481の年齢の記述の「歳」を消して適応してみたのですが
うまくいくのは20と30の色づけだけです。
どこを修正すればよいのでしょうか？？

>>489
詳しくありがとうございます！！
これもとても便利ですね。うまくいきました。
今後、もっと年齢に対する色付けの条件が細かくなる予定ですので
>>481とこちらとどちらがよりよいか検討しつつ活用させていただこうと
思います。丁寧にありがとうございます！

>>491
Ifでは「=0〜19」的な条件は書けないので
ElseIf ((Range("C" & うんこ).Value >= 0) And (Range("C" & うんこ).Value <= 19)) Or ((Range("C" & うんこ).Value >= 21) And (Range("C" & うんこ).Value <= 29)) Or (Range("C" & うんこ).Value >= 31) Then
もしくは
ElseIf (Range("C" & うんこ).Value >= 0) And (Range("C" & うんこ).Value <= 19) Then
ElseIf (Range("C" & うんこ).Value >= 21) And (Range("C" & うんこ).Value <= 29) Then
ElseIf Range("C" & うんこ).Value >= 31 Then
って書かなければならないが､他の人も言ってるようにこれでは冗長なのでSelect Case使った方が良い

とりあえず保守性や汎用性を考えなければこれでいいんじゃないの？
Dim row As Range
For Each row In Range("A1").CurrentRegion.Rows
　Select Case row.Cells(, "C").Value
　　Case 20, 30: row.Interior.Color = vbCyan ' vbBlue
　　Case 0 To 19, 21 To 29, 31 To 150: row.Interior.Color = vbMagenta 'vbRed
　End Select
Next row

普通に考えれば「Case 0 To 19, 21 To 29, Is >= 31」だが､Case節の比較演算は特殊で
「Is >= 31」だと1行目がタイトルでC1に「年齢」って入ってる場合でも､そこまで色付けされるが
1行目がタイトルなのかデータなのか書かれていないし､除外するのも面倒なので「31 To 150」で逃げてる
あと､色は青/赤との指定だが､文字色ならまだしも背景色はあまり濃いと見づらいので､
Blue/Redではなく同系の淡色でCyan/Magentaにしてみた

あとは必要に応じてApplication.ScreenUpdating付けたり定数化したり

>>491
Dim うんこ As Longの "うんこ" は、そのまま使ってもいい。

Rowsに対してループ回すとか､なかなか憎いことするじゃねーか｡

自画自賛ｗ

>>492
うおおおおぉぉぉ！！こんなのをまっていましたああぁぁ！
希望通りの動きですありがとうございます！
ところで、475に上げた例ですと、表はA〜C列までですが
本当はもっと横に長い（列が多い）表です。
列の一番端っこまで色を入れるには、↓のどこを変えればいいのでしょうか？？
Dim row As Range
For Each row In Range("A1").CurrentRegion.Rows
　Select Case row.Cells(, "C").Value
　　Case 20, 30: row.Interior.Color = vbCyan ' vbBlue
　　Case 0 To 19, 21 To 29, 31 To 150: row.Interior.Color = vbMagenta 'vbRed
　End Select
Next row
そして、現在は列の一番初めはA列ですが、これがB列からはじまったり
する場合はどこをかえればいいでしょうか？？
よろしくお願いします。

あっ、失礼しました。
データが入ってるすべての列に色がつくのですね！

セルの色はAからC列まで（情報が入っているすべての列に色づけ）色をつけたいです

って書いてたのはドコの独逸だよ（プンプン

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

質問画像
ttp://ichigo-up.com/cgi/up/qqq/nm42108.png

質問お願いします。
上の画像のような集計シートを１０枚作り、
さらに各シートの総合計シートを作成し、データを集計しようと思っています。

総合計のシートも画像と全く同じ形で、各セル内の入力値を合計しようと思います。
例えば各シートの１-ｆの入力値を合計し、
総合計の1-ｆのセルに合計値を表示させる感じです。

Σボタンの計算式の埋め込み程度は出来るのですが、その方法で行った場合、
各シートのセル内に1回1回クリックして回らなければならず、
セルの数も１００ヶ以上・・。
計算式を埋め込むのは不可能ではないですが、労力が尋常ではありません。
なにかある程度一括して各セルごとの計算値を登録できる方法って無いのでしょうか・・？

>>499
1箇所くし刺し演算をした後、他の場所（セル）にコピーすればいいだけじゃないの？
http://kokoro.kir.jp/excel/3d.html

直後に質問者からも希望通りだと絶賛されていると､>>495は悔し紛れにしか見えないねw
質問者から扱き下ろされるような内容なら､>>494は自画自賛に見えなくもないが
自画自賛なんかしなくても絶賛取れる内容だと､逆に>>495書いてる奴が哀れw

>>500
ありがとうございます。
簡単に作成することが出来ました！

絶賛取れる内容ｗ

>>復乳
悔しかったのは解るが､いい加減ひっこめ

実際良い発想だと思うけどな｡
普通ならFor Each使っても､C1,C2,C3ってループにしそうだが
A1:C1,A2:C2,A3:C3ってループにすることで､ループ内で毎回
Range(Cells(うんこ, "C"), Cells(うんこ, "C").Offset(0, -2))
的な色付け範囲取得処理をする必要性を廃している｡

なんて書くと､また嫉妬した奴に自画自賛とか言われそうだなw
自分の内に確たる自信のある奴は､他人の良いところは素直に
認められるが､自分の内に確たる自信の無い奴は､他人を見下す
事でしか自分を慰められないから､いつも悪態ばっかり付いてるんだね｡

自演じゃねーの？
復乳を目いっぱい馬鹿にしてるが、自分なのでいくらでも馬鹿にできるってなもんじゃね？
自分じゃなければ普通そんなに馬鹿にしねーよ。
For EachとSelect Caseはごく当たり前の書き方だな。
プロがFor Nextで書いたら不合格レベルだろう。

何度も解説するなって
回答者が質問者になってドヤ顔されるのもなんだかなぁ〜って感じ

>>506
合格レベルのコードを晒した上で言わないと､なんの説得力もない嫉妬にしか見えない件について

嫉妬もなにも、だれでも普通For EachとSelet Caseで書くよ。
人によって文字列除外で数値判定を書くか書かないかの違いだろ？

上で普通って書いたが、普通は条件付き書式だな。

Selet Caseならできるのに、Ｉｆだとできないことってある？

>>511
たとえば一行でOr判定のショートサーキット

For EachとSelet Case使ってることだけを以て絶賛してる奴なんていねーよ
よく見ろ､絶賛されているのはFor Eachの親オブジェクトの作り方だ
何を勘違いしてるんだか恥ずかしいw

全く同じ勘違いをする奴が何人も居る分けない｡
なんだかんだ言ってるのは嫉妬した約1名だけだろ｡

Range("A1").CurrentRegion.Rowsなんてごく普通ですよ。
言っとくけど自画自賛とか言ってるのは俺じゃないからね。

普通ですよ､俺じゃないですよ
言い訳すればするほど､その逆が真実であることがありありと解りますね

>>512
ありが�d。
ググったけどよくわからん。
Ｉｆでも、短絡評価(Short-circuit)型っていうのが出てくるので
もうちょっと具体的に書いてほすぃ〜

また妄想が始まったね。
病院へ逝けって前から言われてない？

過去ログ持ってるので､ちょいと検索してみた｡

CurrentRegion.Rows.Countでの行数取得とかは何度かあるが
現スレと過去97スレ､延べ９０'０００レス以上の中で､本件以前に
CurrentRegion.Rowsに対してFor Eachループを回すコードが貼られた回数･･･


　　　０ 回


･････普通ねぇ､ふ〜ん､へぇ〜w

For Eachループどころか､.Countでの行数取得以外でCurrentRegion.Rows使っているものすら皆無｡
CurrentRegion.Rowsで検索した全件がCurrentRegion.Rows.Countで､
それすら延べ９０'０００レス以上の中で十数件という事実｡

こういう事実が出ちゃうと､どっちが妄想かハッキリしちゃうね(￣ー￣)

すごいね〜、過去97スレｗ
ご苦労様。
君は最近その書き方覚えたのかな？
ここ以外ではごく普通だけどな。

別に97スレを読み返したり､1スレ1スレ検索したわけではなく
専ブラの過去ログ列挙機能とログ検索機能で数秒で検索して
たった十数件の結果を十数秒程度で確認しただけのことだから
全く苦労なんてしてないけど(￣ー￣)

こんな簡単で初歩的な検索を苦労だと思ってるなんて､
やっぱこの子ソフトウェアの扱いに長けてないんだね｡

２ちゃんというか、ここのスレが世の中の標準と思ってる方もいらっしゃるのね

>>521は１０年以上前の他サイトの過去ログは持ってないの？
持ってればバンバンヒットするかもよ。

そういう飛躍した表現でバカにしたつもろになってるところ悪いが､
ここが世の中の標準だなんて言ってる奴は一人も居ない｡

しかし､アングラマイナーで､便所の落書きなんて言われてるのが
的を射ていたのは遠い過去の話で､都合が悪くなると過去の2chを引き合いに出し
2chを軽視､蔑視､特別視することを書く奴が少なくないが､今の2chは
世の中の標準､少なくともネット上の標準からかけ離れたものではないのは間違いない｡

そこにおいて､普通と言い張る方法が一度も出てきてないのは不思議だねぇ｡
たとえ2chが普通じゃないとしても､2ch以外で件の方法が頻繁に使われている
実例を一つも挙げられないのも不思議だねぇ｡

普通だ普通だと顔を真っ赤にして言い張るより､本当に普通なら､
件の方法が頻繁に使われている実例なんて腐るほどあるんだろうから､
それを挙げまくれば相手にぐうの音も出させない最高の反論になるのにねぇ｡
もちろん､画期的だとか言ってる奴は居ないから､1件や2件の例を出しても
反論にはならないけどね｡

>>492 = >>494 = >>501 = >>504 = >>505 = >>508 = >>513 = >>516 = >>519 = >>521 = >>524
強粘着だね

よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 ピボットテーブル　並び順

営業店別に収益額を集計したピボットテーブルを作成するのですが、
「合計 / 収益額」の列を金額の大きい順に並べ替えたいです。
検索しましたところ2007ではできるようなのですが、なんとかして2003でもできないでしょうか。

現在は一旦ピボットテーブルをコピーして値貼り付けし、「降順」ボタンをクリックしています。
ただそうすると元の表に明細が追加されるたびに新たなピボットテーブルを作成し直す
面倒があるので、値貼り付けをせずピボットテーブルのまま、どうにかできたら助かります。
よろしくお願いします。

今For EachでCurrentRegion.Rowsが使われている例を鋭意検索中
バンバンだしてやるから覚悟しろよヽ(`Д´)ﾉ

492が自演してたとは‥‥
虚しいね

はいはいご苦労様。

>>525
をいをい､>>519以降の3つは合ってるけど､その前は違うぞ｡

論破されぎみになってきたので､自演にこじつけて誤魔化そうってハラですね
虚しすぎる…

>>527
おい、よくみたら五つは俺の発言番号かよｗ
最初と最後は俺じゃねーぞ
まぁ狂ってる人に何言っても無駄だからどうでもいいや。

5つ当てはまってたら､十二分に指摘通りだなw

自分の思いつかなかったことを他人にやられたとき
嫉妬したり､強がって「そんなの普通」だとか「俺だって知ってる」とか
言ってるようではまだまだ青い
感心して素直に認め､自身の精進の糧とするのが大人

さてあなたは大人かな？青二才かな？
自分の主張が事実か否か､嫉妬から来るものか否かは､
自分自身が一番良く解ってるよね？

61, 75, 92, 121, 124, 205, 298, 330, 338, 354, 367, 370, 372, 378,
381, 384, 391, 396, 402, 437, 439, 449, 482, 492, 494, 501, 504,
505, 508, 513, 516, 519, 521, 524, 530, 531, 533, 534

535のようなデータがあり、A1〜A3セルに貼ってから
各セルに振り分けるにはどうすればいいですか？

テキスト形式で保存してからCSVとして読み込めば？

ありがとうございます。

こらこら
それにしても>>535は正直に自分で書いたのだろうか？

なんか的外れすぎて､奴の悔しがり方の程がありありと解るな｡

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい（レベル低）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 2003　win7　コード　消える

1)最近PCがxpからwin7に変わった。
2)win7にはoffice2010がインストールされていたが、2003をインストールした。
3)xp　2003で使用していたモジュールとpersonal.xlsをwin7にコピーした

上記でwin7で2003を使っていますが、マクロのコード名が変わってしまうことがあります。
（最後の方から文字が消えていたり、消えた際に文字化けしていることがあるようです）

ユーザー設定ボタンにマクロを登録して使っているのですが、見つからないエラー
が出ることもあり、大変不便です。
解決方法ありましたらご教授ください。

本文長すぎるため、>541の続きです。

もう一点、2010形式でうっかり開いてしまったときに、デフォルトを2003に戻すのですが、
またうっかりエクスプローラ？などでプレビュー機能が勝手に働いて2010に
デフォルトが戻されてしまいます。
どうにかならないでしょうか。

よろしくお願いします。

>>535=539だとしたらかなり恥ずかしいなw
おそらく全部同一人物だとでも言いたくて的外れな列挙をするも
馬鹿馬鹿しすぎてネタ扱いされて､焦って>>539とかなw

今､変なのが2匹湧いてるから､質問は後にした方がいい｡

535ってレス番だったのか｡
レス番として見るとだいぶ前の方に俺のが2個混じってるな｡

雑談は↓で。

【質問不可】Excel総合相談所スレの雑談・議論スレ2
http://hibari.2ch.net/test/read.cgi/bsoft/1151651536/l50

>>526
「合計／収益額」の部分のセルを選択しながら、並び替えボタンの降順を押せばいいだけだよ。
選択するのは金額部分ね。ボタンは
http://www.eurus.dti.ne.jp/~yoneyama/Excel/sort.html
のツールボタンから実行する、の部分で囲ってあるやつでおｋ

>>547
うおおおお、できました。ありがとうございます。
できてみると、何を難しく考えていたのかって感じなんですね…
ピボットテーブルってだけで嫌だ嫌だと頭を固くしていたみたいです、助かりました！

492はVBA厨
人間は己に不都合な内容の話が始まると必要以上に喋りはじめる
自画自賛を悟られないよう501以降怒涛のカキコがそれを物語っている
他の板ならIDを変え他人のふりをして自演に酔ってることだろう
それもひとつの楽しみ方だから否定はしない

自分に反してるカキコは全て同一人物と思いたいのかも知れないが
実際はお馬鹿な自分が皆から叩かれ弄られ嘲笑われている現実にも気付いた方がいい｡

ときどきExcelが関数を計算してくれないんです。
そのときは大量のセルに一度にたくさんオートフィルで関数を入力してるんですが
どうもメモリが少ないのが原因とか思いはじめました。
これってあってますか？

ネット上のcsvファイルをExcelに取り込むマクロを作りたいのですが、
ウェブからデータ取得するときの、
新しいマクロの記録を開始してデータ−外部データの取り込み−新しいWebクエリ
というふうなやり方で出来る方法があればご教示くださいませ

>>492
凄いね！そのアイデア。
脱毛しました。

492の凄さは､Range("A1").CurrentRegion.Rowsとすることにより
row.Interior.Color =カラーネームとしたとき.Offset(0, -2)なんて
初心者が書くような記述をなくしてるところにあるのだが
ご理解いただいているだろうか

まだやってるのか。
誰かまともな人、541お願いします。

Excel2007で作った文書をPDFにするには
どうすれば良いでしょうか？

>>556
少しは検索しよう
http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-pdf.html

>>554
良く解らない｡
なんでそうなるの？

　　　　　　A　　　　　　　　　　　B
１　　あいうえお　　　　 =IF(A1="うえ","◎","X")


セルA1に「うえ」という文字列があったら◎としたいのですが、
この場合どういった関数なり数式にすればいいのでしょうか？

=IF(COUNTIF(A1,"*うえ*")>0,"◎","X")

＼（￣ ^ ￣）／ ｍ（＿　＿）ｍ

A B
1 9/27 +15165
2 9/27 -15151
3 9/27 -15151
4 9/28 +15515
5 9/28 -15545

日付でマイナスだけカウントしたいですよろしくお願いします

>>562
「日付で」の意味が分かんないっす。あとカウントってのは個数でいいの

>>563
すみません
9/27　2
9/28　1

見たいに日付毎にマイナスの数をカウントしたいです

>>564
C列に=IF(B2<0,1,0)っていれてピボットテーブルで集計したらいいんでは

>>554
良く解らない｡
なんでそうなるの？

今解説すると､件の負け犬君がまた出てきて自演だ自画自賛と大騒ぎするので
とりあえず次スレになるまで自分で調べて､それでも解らなかったら次スレで聞いて

ドザの父 げいつ君
ttps://plus.google.com/105721785688580243314/

エクセル2003にあった置換は、2007には無いの？

>>569
CTRL+H？

すいません、質問です。
例えば

A 20
B 10
C 15
A 25
C 40

という表があってこれを

A 45
B 10
C 55

と、すっきりさせたいのですが、
どうすればよいでしょう？

Excel2010です。

>>571
さくっとピボットテーブル。

集計

>>572
>>573
ありがとうございます。
もっときちんと知識をつけてから調べるべきでした。
失礼しましたm(__)m

>>569
双眼鏡。

統合や集計はいまいち。
ピボットだな。

ピボットは便利だけども、使い方を教えるのがメンドイという欠点がある。

>>570 >>575
�dｸｽ

セルA1：　「犬」
セルB1：　「猫」
と入力している場合に、

セルC1：　「犬と猫」　、

２つの文字列の間に任意の文字（この場合は"と"）を加えた上で別のセルに出力したいのですが
これが可能な関数あるいはその他の操作はありましたら教えていただけるとうれしいです

>>579
C1=A1&"と"&B1

>>576
更新さえ教えりゃ無問題。
データソースの更新(範囲の変更)は名前定義で作っておけばよい。
更新も覚えられない人にはマクロにしてボタンを押させてもよい。

>>567
あんたは朝早くから昼間から夕方から夜中まで24時間体制で書いてるね。
趣味とか無いの？

>>580
アドバイスありがとうございます

なんでもピボットで済ませようとするのは中小企業しか知らない輩
ゼロ省略が出来ない、ファイルサイズが肥大する、VBAを併用しなければ細かなレイアウトを指定できない
はっきり言って使い物にならない

VBA厨さんこんばんわ

>>584
色々な企業に精通なさっているﾊｹﾝさんこんばんは

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel マクロ 背景色
VBAを使用することが出来ない場合に背景色をコントロール出来ますか？
セルI15の値によってセルO15の背景色を変えたいと思っています。

=IF(LEN(I15) > 5, RANGE("o15").INTERIOR.COLORINDEX=3, "")

このようにしてもエラーとなります。
マクロだけでは無理なのでしょうか？

>>587
条件付き書式

>>588
こんなのがあったとは・・・
ありがとうございます。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel 文字列 マクロ
A1の値が10の場合B1にOKと表示させたい。
if(Cell(A1) = 10, Cell(B1).Value = "OK" , "")
とするとValueの部分を指摘されます。
Valueはマクロでは使用出来ないのでしょうか。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel セル　枠外　ズレ

集計表をつけていて、例えばB1に5（標準書式）と記入し、プレビューでもそうなってるのですが、
印刷してみるとA1のセル内右端に印刷されているんです。
それも全てではなく、いくつかのセルだけそういうことが起こります。
書式を数値にするとそういうことはありません。
また、フォントもプレビュー時とは違うもので印刷されます。
別のパソコンで印刷するとそのようなことは起きません。
問題はどこにあるのでしょうか？

> 別のパソコンで印刷するとそのようなことは起きません。
この時点でパソコンの問題でしょう。
情報管理部あたりに調べてもらっては？

プリンタが2台あり、よく使う1台からだけおかしな状況でした。
もう1台はちゃんとした状態で印刷されます。
プリンタードライバの問題ですかね？ちなみにCanonです。

>>590
587=590なの？　釣りなの？なの？･････あえて釣られてみようwww
セルの 計算式にはマクロ(=VBA)は書けない
=IF(A1=10, "OK", "")

>>591
意味がわからん。
VBAがいいのかワークシート関数がいいのか。はっきりしてほしい。

B1セル=if(A1=10,"OK","")

Sub tes()
If Range("A1") = 10 Then Range("B1").Value = "OK"
End Sub

>590
＞4 VBAでの回答の可否】 否
＞【5 検索キーワード 　 　 】 excel 文字列 マクロ
＞Valueはマクロでは使用出来ないのでしょうか。

計算式の話なのか、ＶＢＡマクロの話なのか、ワケワカラン

>>591
一度書式設定を文字列に設定した後、標準に戻したとか
もしくは書式設定の配置でインデントとか
別のパソコンも2007なら、そのパソコンのエクセルがおかしい
別のパソコンが2007以外なら、2007が原因かもしれな

>>582
ヒント：>>550

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 かなり沢山検索しました

最近以下のサイトで、エクセル２０１０を使い勉強を始めたのですが
http://www.panrolling.com/etc/users/taniguchi/1/index.html

AVERAGE(中でオフセット関数も使っているようです)を入力した後、そのセルをダブルクリックすると
計算させたい範囲が青い枠で囲まれるので
確認しながらやるとの事なのですが、ダブルクリックしても範囲が表示されません
エクセル２０１０では表示されない仕様になってしまったのでしょうか？
関数の式などはそのままコピーしたので間違っていませんし(手入力もしてみました)
計算結果も関数で記した範囲でしっかり計算しているようです
範囲を確認しながら入力したいのですが、計算させたい範囲を青い枠で囲む事は出来るのでしょうか？
すみませんが少し複雑な計算式なので、リンク先を確認頂けると助かります
宜しくお願い致します

492の自演が裏づけされたようだね
趣味はカメラですか？

>>599
ダブルクリックする位置勘違いしてるんじゃないの
AVERAGE関数が入ったセルを選択してF2押してみたら？

やってみましたがやはり同じでした
こんな感じで範囲の一部だけが青枠で表示されてしまいます

ttp://bbs4.fc2.com//bbs/img/_70300/70212/full/70212_1317388784.gif

>>602
Excelはそういう仕様なんでしょ？
たとえばA1:A10の合計で
=SUM(A1:A10)ならダブルクリックすりゃA1:A10が青枠になるが
=SUM(A1:OFFSET(A1,10,))の場合、引数のA1しか青枠にならない。
=SUM(INDEX(A:A,1):INDEX(A:A,10))だとA列全体が青枠になる。

>>603
あぁそうなんですか…
では勉強に使っているサイトの解説が間違っていると言う事ですね
有り難う御座いました、古いエクセルを購入しようかと思ってました（汗）
助かりました

要するに青枠になるのは一番最初に指定した範囲ってことね。
=SUM(OFFSET(B1,,-1):A10)なら同じくA1:A10の合計だが最初に出てくるB1が青くなる。

【1】Windows7
【2】Excel2003
【4】VBA可
【5】エクセル　複数セル　複製
AAA
BBB
CCC

縦にこのように並んでいる文字列(この場合3セル)を

AAA
AAA
BBB
BBB
CCC
CCC

というように複製したいのですが、関数もしくはVBAで
可能でしょうか？

>606
作業列に縦方向に１、２、３・・・と入れて、
複製したいセル範囲と作業列範囲まで含めて下にコピー
最後に作業列でソート

>>607

関数使うまでも無かった無かったのですね。
私、頭柔らかくしないと・・・

>>600
君､恥ずかしくないの？

書き込みやめれば､君の恥ずかしい過去を早く忘れて貰えるのに
いつまでも自分の恥ずかしい負け犬の遠吠えした件をズルズル引きずって･･･

俺がちょっと間違えただけでなぜか負け犬の遠吠えと言われたことあるが、俺が自演とか言ってるやつと勘違いされてるのか？
それこそ自分に反する書き込みが一人だと思わない方がいい。

ちょっと間違えただけで負け犬の遠吠えと言われた？
何時､何処での話だか知らないが､「負け犬の遠吠え」と言われたのは
「間違えた」からではなく､おそらく「間違えた後に言い訳したから」だろ｡
「間違えた"だけ"」なら､バカだアフォだシッタカぶって滑稽だとは言われても
負け犬の遠吠えなんて言葉はまず出てこないよw

妄想が激しいのか､自分に都合の悪いことはすぐ忘れるか誤魔化す癖が
あるのかは知らないが､もっと現実を正しく見れるようになった方がいいぞ｡

> 俺が自演とか言ってるやつと勘違いされてる
ではなく
> 俺が自演とか言ってるやつと見抜かれている
である事実とかも正しくね｡

やっぱこの人基地外だよ。

ハンドルが"VBA厨"だったからなｗ
自分で"厨"を名乗るなよｗ

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 VBA、24時間

C列は時刻ですが文字列になっています。
小数点をまるめ、24時間表記を午前/午後の12時間表記に
変えるにはどうすればいいですか？

例　19:34:12.95　-->　午後07:34:13

　A　　　　　B　　　　　　　C　　　　　　D
598　　9月30日　　19:34:12.95　　kngw
609　　10月1日　　04:19:27.00　　kngw
610　　10月1日　　05:54:41.74　　kngw
611　　10月1日　　06:50:46.47　　kngw
612　　10月1日　　06:58:25.41　　kngw

よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 並び替え、ソート

A列に企業名、B列以降に金額が入っている表があります。
A列は全て文字で埋まっていますが、金額列は空欄も多いです。
このとき、金額の大小に関わらず、「金額が入っている行をまとめて上に持ってくる」という
並び替えをしたいのですが、簡単に行う方法が思いつかず面倒で困っています。

今やっている方法は、B列で「空白以外のセル」を抽出し、空いている列に「1」を立て、
一旦ソートを解除して、「1」を立てた列を昇順で並び替える、という方法です。
金額列がB列しかない場合はこれで充分なのですが、C列D列E列…と金額列が十数列ある場合に
「まずB列に数字が入っている行を上に集め、B列は空欄だけどC列に数字があれば上に集め、以下略」
という並び替えが大変です…。

何か良い方法がありましたらアドバイスお願いします。

>>612-613
端から見たら､奴もオマエもどっちも基地外だ
お互い､いつまで意地の張り合いしてるつもりだ？
もうこのスレ的な結論(回答)は終わってるんだから余所でやれ

>>614
一回CSV形式で保存して再読み込み。
んで、セルの書式設定で12時間標記にすれば良い

>>615
オートフィルタで空白以外を指定すれば良いんじゃないかな。

並び替えたいっていう相談内容に対してオートフィルタとかｗｗｗ

ちょっと言葉が足りなかったな、確かに。
空白でないものを抽出して新しいワークシートにコピペ
空白のものを抽出して、上で作ったシートにコピペ
並び替えは好きなようにすれば良い。

>>615
空いている列に
=IF(COUNTA(B1:G1)>0,1,"")
とかして下にオートフィル→この列をキーにソート

【1 OSの種類 　 　 　 　 .】 Windows XP/vista/7/8
【2 Excelのバージョン 　 】 (優先度) Excel 2010 →　2003 →　2000
【5 検索キーワード 　 　 】 ショートカット

個人的に、excel用のテンキーを自作する予定です。(テンキーにキーを数〜十数個足したイメージ)
キーボード〜テンキー〜マウス間の手の往復が少なくなればいいな、という理想なのですが、

(参考テンキー)
EPSON ビジネステンキーボード
http://journal.mycom.co.jp/news/2003/03/25/16al.jpg
Realforce23U
http://pc.watch.impress.co.jp/img/pcw/docs/305/888/html/topre.jpg.html

いざ自分で追加キーを考えてみるとExcelの扱いにそこまで長けてもないため
・Tab(右セル移動用) ・shift+Tab(左セルに移動用) ・BackSpace(普通のテンキーだと遠いので)
・F2(選択セルを修正) ・'(数値入力ついでに)
くらいしか思いつきません

そこで、「このショートカット自分はよく使う」「このショートカットが1キーでできるなら設置しときたい(1キー押しただけでAlt+shift+なにか みたいなのもできます」
「自作キーボードを作る作らない以前にexcelでこのショートカットキーはオススメ」
のようなショートカットキーなどありましたらお教えいただけませんでしょうか
よろしくおねがいします

>>614
C列のセルの表示形式を　「[$-411]AM/PM hh:mm:ss」とします。
C列を選んで「データ」の「区切り位置」で「完了」とします。

それだけ

VBAの質問です

複数の結合セルを含むRangeをFor Eachで回して、結合セルを一つ一つ処理したいんですが
For Each r In Range("hoge")だとセルの結合に拘らずすべてのセルに対しての処理になってしまいます。
結合セルを一つのセルとして(一度だけ) For Eachで処理するにはどうすればいいんでしょうか？

>>623
ぱちぱち

>>624
他にいい方法ありそうですが、

If r.Address(0, 0) = r.MergeArea.Item(1).Address(0, 0) Then

この時だけ処理をすればいいかと。

あ、ごめん、(0,0)は取って。いや、あってもいいけど。
取るなら両方取って。取らないなら両方取らないで。

>>626
試してみたところ、問題なく動作しているようです。
ありがとうございました。

>>622
とりあえずコピーとペーストはいれとけば？w
余裕あればCtrlとshiftと=でオートSUMも

>>622
テンキー自作って凄いな。メーカーの人？
一応自分が好んで使うものは以下。

・Ctrl + 矢印　（現在のセルからデータの連続して入っている端までカーソル移動）
・Shift + Ctrl + 矢印　（現在の選択部分からデータの連続して入っている端まで選択）
・Ctrl + 1 （セルの書式設定画面を出す）
・Shift + Ctrl + : （つまりCtrl + *）　（アクティブセルを含む周囲のデータ連続範囲を箱形に選択）
・F4 （セル編集モードでセル名称位置にカーソルを置いて押すと、セル名称を４種類の絶対/相対表記に順に切り替える）
・Ctrl + Z （直前の操作を取り消す）
・Ctrl + C, Ctrl + V （コピーとペースト）

自分は「値貼り付け」をショートカットで使えるようにしてる。
今はAlt＋文字キーという２個を押すことで値貼り付けできる状態だけど、
もしこれがテンキーのボタン一つ押下で叶うなら大変ありがたいや。
あとピボットを頻繁に使うから、ピボット系のショートカットはごっそり使ってる。
それもテンキーでできるなら…なんて考えてくと通常のキーボードと同じ横幅のテンキーになりそうだｗ

とはいえ、エクセル普段使いしない人がエクセル用のテンキーって難しくない？
利用者のニーズに合った物を作りようがなさげ…ああ、個人用ってことは利用者＝自分なのか。

>Alt＋文字キーという２個を押すことで値貼り付けできる

どうやるの？

>>632
「ユーザー設定」ダイアログボックスを表示させる
　↓
「値の貼り付け」ボタンを右クリック
　↓
「名前(N):」という項目に「値の貼り付け(&★)」と入力
（★は自分が押し易いキーのアルファベットで良い）
　↓
「テキストのみ表示(T)」もしくは「イメージとテキストを表示(A)」をクリック
　↓
ダイアログボックスを閉じれば完了


あ、でも2007からはリボンとかいうのがツールバーに代わって使われてるんだっけ？
上に書いたやり方は2003なので、2007以降の環境の人ではどうやるのか分からん、すまんです

>>632
Alt+E→S→Vみたいなの知りたいんじゃない？文字キー２個は俺も知りたいです。

>>633
自分も値の貼り付けをよく使うので、とても助かりました。
ホーム→エクセルのオプション→ユーザー設定
とすると、クイックアクセスツールバー(ホームボタンの右)に登録できますね。
で、その後、ALTを押すと、数字が見えます。その数字とALTでいけますね

俺はプログラマブルキーボードにF13〜F24キーを割り当ててる｡
で､F13〜F24の単発及び修飾キーとの組合せに対して
AutoHotkeyってソフトで､対象ソフト毎の定義を書いてる｡

つまり

キーボード　　　　　　　　AutoHotkey　　　　　　　　　　　　　　　　　　　　　対象ソフト　　　　　　　　　　　

　　F13　　→　　Excelがアクティブなら「Ctrl + PageUp」　　　　Excelにおいて「前のシートに移動」
　　F13　　→　　VBEがアクティブなら 「Ctrl + Tab」　　　　　　 VBEにおいて「前のモジュールに移動」
　　F14　　→　　Excelがアクティブなら「Ctrl + PageDown」　　 Excelにおいて「後のシートに移動」
　　F14　　→　　VBEがアクティブなら 「Ctrl + Shift + Tab」　　VBEにおいて「後のモジュールに移動」

ってな具合｡
キーボード側でExcel向けのショートカットキーを発生させちゃうと､
Excelでしか役に立たないキーボードになっちゃうので､
キーボードで発生させるキーはあくまで汎用キーで､後はAutoHotkeyで
アクティブなソフト毎になにをさせるかを定義しておく｡

俺はF1を無効にしたい
F2を押す時にうっかり指先がF1に触れてヘルプが出てくるのがうぜええええ…orz

EXCEL2007なら
Ctrl+C　でコピー
Ctrl+Alt+V⇒Enter　で値を貼り付け

間違えた
Ctrl+Alt+V⇒V⇒Enter　で値を貼り付け

>>637
そういうのもAutoHotkeyで出きるぞ
ExcelでのみF1無効ってな

漏れのPCにはF13〜F24のキーなんて無いや・・・orz

>>641
無いからこそF13〜F24を使うんだよ｡
メインのキーボードにあるキーを使ったらバッティングするからね｡

>>642
話、噛み合ってないんじゃね？

シフト押しながらファンクションキーでF13-F24じゃないのか

A列にデータを入力して、B列に順番に
=SUM(A1:A1）、=SUM（A1:A2)、=SUM（A1:A3）・・・という風に入力したいんですが、
4つ5つほど入力してからドラッグしても、オートで意図したように入力してくれません
何か良い方法ありませんか？
データが数百個並んでるため、手入力は面倒くさいです・・・

>>645
=SUM(A$1:A1)
または
B1=A1とした場合, B2 =B1+A2で以降フィル

>>646
ありがとうございます！
とても助かりました

a(黒の字) 100
b(赤の字) 200
c(黒の字) 300
d(赤の字) 50
e(黒の字) 100
このような表のaの値とcの値とeの値を
合計したいときはどうしらいいのでしょうか？

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　Count　複数　関数

今アンケート結果の集計を行っています。
数字で複数回答が可能なアンケートなんですが、例を書くとこのようになっていて、
1
3
2
1
1,4　（←複数回答の場合、全部コンマで区切られています）
これを数字別に
１が３個
２が１個
３が１個
４が１個
という風に集計をしたいです。
とりあえず=COUNTIF(A○○:A○○,"1")で、数字が一つの場合の集計の仕方はわかったのですが、
同じセルに複数回答がある場合、それを別々にカウントする方法がわかりません。
どうすればいいでしょうか？

2ケタの回答番号がないとしたら=COUNTIF(範囲,"*1*")で出来るんだけど、すべてのセルが文字列じゃなかったら出来ないんだよなあ

後は汚いけど
=SUMPRODUCT(LEN(A1:A3))-SUMPRODUCT(LEN(SUBSTITUTE(A1:A3,"1","")))
とか・・・

>>650
ありがとうございます。
後出しで申し訳ないですが、２ケタの数字かつ複数回答もあります・・・。
他の人から回ってきたデータで、本当なら表を作り直すのが一番いいのでしょうが、
何分そうすると時間がかかって仕方ないので・・
後、=SUMPRODUCT(LEN(A1:A3))-SUMPRODUCT(LEN(SUBSTITUTE(A1:A3,"1","")))の関数は
A1-A3で、「１と何か別の文字を含むセル」たとえば「1,3,5,6」から１の個数を数える、
という理解でよろしいでしょうか？

>>651
sumproductも2ケタには対応していないよ。
もし出来るなら、
表の改変をオススメ。

データタブ→「区切り位置」→「カンマやタブ・・・」→区切り文字を「カンマ」で完了
これでセルごとにデータが分かれる。
こうなればcountif使えるよ。

今の現状でも数えられなくはないけれど、無駄に手間がかかるから

>>652
セルを分けて集計していこうと思います。
どうもありがとうございました。

>648
集計したい条件は何ですか？
セルの字の色で集計したいのか、１行おきに集計したいのか、どちらですか？
それと、このスレの　>1-5　は読みましたか？テンプレに沿って再度書き込んでください。

セルの数値に応じた表示形式について。
A列のセルに、計算結果を縦に並べていく。それらの数字をaとして、
(1)a>0の場合
aを切り捨てた値を表示したい。
a=0.9なら「0」と表示

(2)a=0の場合
「-」と表示したい。
ここからが問題。

(3)-1<a<0の場合
「▲0」と表示したい。

(4)-1≦aの場合
aを切り上げた値を表示したい。
a=-1.8なら「▲1」と表示

(1)と(4）はTRUNC関数でどうにかなるが、(2)と(3)が厄介だ。
単に表示が出来れば良いのではなく、例に出したaはもう一回計算式へ飛ばすことが
出来ないといけない。だから(2)の結果が単なるハイフンとみなされ、計算に再利用
出来ないようではいけない。こういうのって、何とかなる？
めちゃくちゃネストしまくった複雑な計算式は、できれば遠慮したいです。
俺は使えても、周囲に使わせられない。

>655
セルの表示形式だと　正の数；負の数；ゼロ；文字列　の４通り設定できるけど、
負の数の中でさらに場合分けは無理なので、どうしても作業列に計算式を使わなければならないでしょう。

ところで、「例に出したaはもう一回計算式へ飛ばすことが出来ないといけない」というａですが、
「元々のａの値」を再利用したいのか、「ａを加工した結果」を再利用したいのか、がわかりません。
「加工した結果」を再利用したいというのであれば、(2)の　−　は　０　と見なすのですか？

>>648
もしかして、（赤の字）ってマイナスの場合に赤で表示されてる？

>>655
(1)や(3)を次の計算で0として扱うとなると「0と0と0を区別する」ってことになり､
負の数の中でさらに場合分けどころか､同一の値を区別するってことで､理論上あり得ない話になる

それを無理矢理実現するには､この表示のための計算ではなく次の計算での対応も必要

例えばN関数を使う方法では
(1) → 数値で「0」　　　　　→ N(0) = 0
(2) → 文字列で「"-"」　　→ N("-") = 0
(3) → 文字列で「"▲0"」 → N("▲0") = 0
(4) → 数値で「▲1」　　　 → N(▲1) = -1
次の計算式が､+5するものなら､本来「=A1+5」ってするところを「=N(A1)+5」にすれば良い
で､(1)と(4)はTRUNC関数と表示形式で､(2)と(3)は1回だけネストしたIF式で出きる
ついでに､文字の横配置設定(右寄せとか)してないセルでこれやると､(1)と(4)は右寄せ､(2)と(3)は左寄せになるので
「0;"▲"0;0;* @」ってすると､(2)と(3)も数値と同じ右寄せになる
但しこれやると､逆に左寄せや中寄せ設定しても､(2)と(3)は右寄せから動かなくなるので､その辺は臨機応変に

因みに､「正;負;0;文字」で分けた上で､負の数の中でさらに条件分けは出来ないけど
負の数の中だけでの条件分けは出来るぞ
まぁ上記の方法では必要ないけどな

後だし申し訳ありません。もう一度お願いいたします。
【1 OSの種類】WindowsVista
【2 Excelのバージョン】Excel2007
【3 VBAが使えるか】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】複数条件　合計　sumif
>>648とは例が変わりますが、以下のような表があった場合、
名前　在任期間(月)
福田　　　12
麻生　　　12
鳩山　　　 9
かん　　　15
野田　　　 1
自民党、民主党、各党の総理大臣の在任期間の合計をそれぞれ表すには
どのような関数を使ったらいいかをお願いいたします。
（この例のように、大臣名と党名が自明であるとして、また、項目が増えることもある場合）

>659
政党の列を作れ　以上

XPで2003です。
表を作ってそれを1ページにコピペして4つ作りたいのですが、
横の列幅はコピペで貼り付けの条件で出来るんですが
セルの高さの方はどうやってコピーするやつと同じにできるんでしょうか？

ｺﾋﾟｰしてコピーしたセルの挿入

>>660
すいません、表自体を値順などでソートしたりするのですが、
当てはまる複数の項目(今回の例であれば大臣の名前)を合計するやり方がよくわかりません。
お願いいたします

>>662サンクス
セルの挿入とは初めてです

>662
政党の列を作ってSUMIF()で集計

>>665
ありがとうございました
無事解決しました。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】 時刻　勤務表　まるめる


１分〜７分→０分
８分〜15分→15分
16分〜22分→15分
23分〜30分→30分
31分〜37分→30分
38分〜45分→45分
46分〜52分→45分
53分〜０分→０分


勤務表を作成しています。
１ヶ月の総時間合計時に上記のような処理をかけたいのですが可能でしょうか。
宜しくお願いします。

>>667
どういう風に入力されているのか分からないのですが、
=MROUND(A1,"0:15")
エラーになるときはアドインを組み込んで。

>>668
うまくいきました。迅速な回答に感謝です。
本当に助かりました。ありがとうございました！

>667
＞53分〜０分→０分
の部分は、「時間」のところに繰り上がりの処理は入っていますか？
（心配になったので念のため）

>>670
自分でやってみれば繰り上がっているかどうかわかるじゃん。繰り上がるよ

勤務表の時刻って、切捨てじゃナカタのか・・

>>670
軽くチェックはしてみましたが大丈夫そうでしたよ。
わざわざありがとうございました。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel　条件　まとめる
Sheet1に以下のようなデータが数千件はいっているとします。
A | a | 1
B | a | 2
C | b | 1
D | b | 1
|はセルの区切れ目として考えてください。
1列目には数千件のデータ（たまに重複あり）が入っています。
2列目には1列目のグループ名（カテゴリー名）が入っています。
3列目には1か2のどちらかが入っています。

（長いようなのでわけさせていただきました）
このとき、Sheet2（別シートなら何でもいいのですが）に、
a | 1 or 2
b | 1
というように、2列目のカテゴリーの一覧と、3列目に1だけなのか、2だけなのか、1と2の両方が入っているのかを表示させたいのです。
Excelの関数では思いつかず、検索してもわからないので、お力をお借りできればと思いご相談しました。
よろしくお願いします。

>>672
法的には切り捨てることは許されていない｡正確に言うと､切り捨てるってことは
「会社が定める時間管理単位未満の労働には賃金を支払わない」という意味になるが
それは違法行為になり認められていない｡

まあ秒単位くらいの切り捨ては暗黙の了解で咎められないが､15分単位とかで管理計算
したければ切り上げる｡切り上げて余分に金払うのが嫌なら1分単位で管理計算する｡
それが使用者の義務｡

未だに切り捨てでやってるところも多いが､労働基準監督署に通報してやれば､
監査､指導に来てくれるよ｡>>667は切り捨てではなく四捨五入みたいなものだから
切り捨てが世の標準だと勘違いしている奴から見たら少しは良心的に見えるかもしれないが
実際にはとんでもない｡>>667もまだ違法で､正しくは

１分〜15分→15分
16分〜30分→30分
31分〜45分→45分
46分〜翌時0分→60分

でなくてはならない｡

俺のバイト先も15分ごとの切り捨てだわ
出勤と退勤時の1日2回切り捨てされるから毎日30分ずつ、
しかも勤続12年だから、ざっと計算して200万近く損してる計算か


ちょっと腹が立ってきた

>>675
>、3列目に1だけなのか、2だけなのか、1と2の両方が入っているのかを表示させたいのです。
方法その１：１、または２だけの平均と１と２が混在する場合の平均では小数点以下に
違いが出てくるよね。
その違いで振り分けしてみてはどうでしょう。

ありがとうございます。
1, 2というのは実際には文字列です。
また、数千件のデータのなかに、カテゴリーも1000件以上あるので、
別シートにリスト化、というところも重視したいのです。

>>679
ピボットテーブルで集計してデータの個数で１だけ、２だけ、１と２の両方の判断するとか

ありがとうございます。実際には一番左のデータは3種類あるので、四則演算や平均の応用は難しいと思います。

>>676
それは知らなかった。
標準勤務時間が8時〜17時で、毎日7：45にIDカードを翳したら
20日で5時間分の早出手当てが出るのか。

○毎日7：45
×毎日7：46

なにもないとすぐ帰るけどそれでもPM6:01やPM6:02にはなる。
これはPM6:15と15分の残業をして帰ったことにしてよかったのか？

法律的には、1分単位で記録し、月単位で合計して30分未満切り捨て、30分以上切り上げで
時間外手当を計算するはず

【1 OSの種類 　 　 　 　 .】 WindowsXP　SP3
【2 Excelのバージョン 　 】 Excel2007

http://www.dotup.org/uploda/www.dotup.org2111192.jpg

こういう状況になってブックの最大化が出来ない^^;
マウスを当てて下に降ろそうとしても数式バーの部分が
広がるばかりorz

どうしたらブックのあの最大化とか最小化とかのボタンの部分を出せますかね

>>686
表示→整列→お好きなのをどうぞ

>>687

なるほろ！出来ました！
（´ε｀　） w

さいきんオレを見かけないけど、どうしたの？

>>689
自分探しの旅に出ているんだろう。

XPか2003の頃に作ったVBA、アクセステーブルから読み込んだデータを
いじくりまわして印刷用にレイアウトしたページに流し込んで印刷。
そのデータはすぐ消去して次のデータを流してまた印刷、、、
これを延々と500回以上繰り返す作業なんですが2003の頃はスタートしてから
一気に作業が終わるまで頑張ってたけど2010にしたら途中で勝手に停まる。
いったん自動実行を切って中断したところからやり直し。これの繰り返し。

2003の頃は全く問題なく動いてたのが2010にしたら途中でさぼり癖が。
ループで印刷コマンドは　activesheet.pritoutだけ。
なんでVERあげただけで挙動が変わるのかと。

>>691
見た目だけでなく内部構造が2007から完全に変わった

【1 OSの種類 　 　 　 　 .】 Windows XP 32bit SP3
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 「111 Excel 年齢」「文字 関数 結果 Excel」「Excel 文字 非表示」

誕生日から本日何歳になっているか表示させる関数を作ったのですが
誕生日を入れていないセルを指定していると、計算結果で「111」と表示されてしまいます。
この「111」が表示されないようにする、見えないようにする方法を探しています。
ただ、ファイルを扱う人がExcelやPCを使い始めたばかりの方なので
誕生日を入力するだけの状態にしたいです。
　不可操作
　・誕生日を入力しないセルに対応した年齢セルの内容を削除する
　・印刷時にDELキー等で111と表示されるセル内容を削除する
　・111の文字を背景と同じ色にする（オプション等で最初から設定できる場合は可です）

●誕生日から年齢を表示する関数（A1部分のセルが空白だと「111」が表示される）
=DATEDIF(A1,TODAY(),"Y")

●望んだ結果が帰ってこなかった失敗関数（「111」になる部分を空白にしたかった）
=IF(DATEDIF(A1,INDIRECT("B1"),"Y"),DATEDIF(A1,INDIRECT("B1"),"Y"),"")

よろしくお願いします

誕生日のセルが空白なら空白を返す式にすればいいだけやん

>>694
お返事ありがとうございます
=IF("","",DATEDIF(A1,TODAY(),"Y"))
上記のように空白を空白で返すように作ってみたのですが
#VALUE!と表示されるので失敗しているのだと思うのですがどこが間違っているか分かりません
IF関数ではダメなのでしょうか？

>>695
それ間違ってるよね。
=if(a1="","",・・・・)

>>696
できました！IF関数は理論値の部分もセル指定しないといけないんですね！
大変助かりました。ありがとうございました！

できた関数
●誕生日から年齢を表示する（誕生日未入力で「111」になる部分は空白を表示）
=IF(A1="","",DATEDIF(A1,TODAY(),"Y"))

ちなみに　日本の法律では誕生日の前日に１歳年をとる。
たとえば、平成２３年４月１日生まれの子は平成２９年３月３１日に６歳になるので、
小学校入学は平成２８年。早生まれってやつ。
平成２３年４月２日生まれの子は平成２９年４月１日に６歳になるので、
小学校入学は平成２９年。

VBA厨はシーテックか

>>475です。
質問のさいには大変お世話になり、
>>492さんの書いてくれたマクロを使わせていただいています。

さて、475で質問したものに追加したいことが出てきました。
20歳と30歳の人にはあいているセルに「B」と表示させ、さらに、データを別シートに貼り付ける。
それ以外の年齢の人には「A」と表示させ、Bの人たちとは別のシートにデータを貼り付ける。
ということをしたいので、>>492のマクロに加えたものを教えていただけないでしょうか？？
よろしくお願いします。

>>698
早生まれに4月1日生まれの人も含まれるのは知りませんでした
不思議な法律ですね。どういう経緯でこれが決まったのか少し興味がわきました
豆知識ありがとうございます

え、豆知識…？
日本人の常識だろうが、大丈夫かよ

いや、よく聞く言葉ではあるけど
別に学校で習わないし
親も敢えて教えてくれることでもないし
知らなくても日常生活に支障ないし
常識とまでは言えないと思うよ。

>>700
自分でコード書くから､必要なメソッドやAPIだけ教えてくれというならともかく
コード丸投げするなら「あいているセル」とか「別シートに貼り付ける」とか曖昧なこと書かれても
エスパー以外はコードを書けない｡

「20歳と30歳の人には､同行D列に"B"を入力する」とか
「同ブックのSheet2の2行目から､A列：氏名/B列：年齢でデータをコピーする」などと
明確な条件を出すか､ブック(シート)自体に「ここに"B"と入れたい」とかのコメントを付けて
ブックごとUpするとかしなくちゃ､具体的にどうしたいのか伝わらないよ｡

>>701
つまり、１月１日生まれの人はその年の１２月３１日で３６５日＝１年生きたんだから１歳ということ。
翌年１月１日には３６６日生きたことになり１年＋１日になってしまう。うるう年の問題は応当日という
概念で解決することになってる。

スレ違い
知識の披露は適切なスレでどんぞ

>>704
情報が足りなかったようで申し訳ありません。

20と30の人には同行のD列に"B"と表示させ、
同ブックの「B」と名付けたシートにA列からD列(データが入っているすべての列）を
コピペする。
それ以外の年齢の人は同行のD列に"A"と表示され同ブックの「A」と名付けたシートに
A列からD列をコピペする。
上記を>>492さんがかいてくれたものに追加お願いできないでしょうか？？
よろしくお願いいたします。

Excel2002を使っています。
結合されたセルを選択して、クリップボードのテキストをはりつけ
ようとすると、エラーになり貼り付けができません。

最新のExcelでは、このバグは修正されていますか？

>>708
セルに貼り付けられるのはセル
テキストを貼り付けられるのはセルのテキスト領域
セルのテキスト領域にテキストを貼り付けるには､セルを編集状態にして貼り付けする

この基本が解っていれば､それはバグではなく単なる使用方法の誤りだと解るはず

例えるなら､ビニールパッケージに入ったノートを買ってきて､パッケージを開けずに
ビニールの上に鉛筆で文字を書こうとして､書けないからこのノートは不良品だと言ってるのと同じレベル
ビニールパッケージは文字を書くべきところじゃなく､ビニールパッケージを開けてノートを開いたところが
文字を書くべきところであるように､セル自体はテキストを貼り付けるべき場所じゃない

Excelの場合､結合されてないセルでは､セルにセルではなく､セルにテキストを貼り付けるという
矛盾が警告や確認すらなく罷り通ってしまうから､それが矛盾だと気付かず当たり前と錯覚して､
結合セルでのエラーをバグだと勘違いする奴が結構居るが､結合セルでのエラーこそが正常な動作で､
非結合セルにおいて矛盾した貼り付けが出来ることが､便利ではあるがイレギュラーなんだと
正しく認識して欲しいね

>>709
うるせーよ馬鹿

VBA厨だな
まったく嫌味な野郎だ

でもそれバグちゃうよな

日本語でおｋ

Excelの名前定義機能とか、みんな使ってる？
分かりやすくなるとかメモリ節約になるとかいうけど、計算式を第三者とかが
見たときに、どういう名前定義なのか調べ直さないといけなかったりで、結局は
分かりにくくなる気がするのだけれど。
何より俺の周囲には、名前定義機能なんか知ってる人は全然いなくて、
理解してもらえない。皆はどう？

【1 OSの種類 　 　 　 　 .】 Windows 7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

日付が次のように半角スペースで区切られた文字列になっています。
Wed Aug　3　　←1桁の日付は半角スペースが2個
Tue Aug　2
Sun Jul 31

これを8月3日（水）形式にするにはどうすればいいでしょうか？

>>714
あんまり使わないねえ。
おっしゃるとおり、第三者にはわかりづらいし
自分でも一目で範囲が把握できない欠点がある。

同じ範囲を複数のセルに埋め込んだ関数から
同時参照する場合には使う。

>>715
今年だったら
=TEXT(RIGHT(A1,6),"m月d日(aaa)")
で出来そう

>>717
質問者じゃないけど、TEXT関数って第二引数でそんな指定までできるのか！すげえ

>>717
凄いぃぃぃぃぃ!!
手修正が減ります。
ありがとうございました（ﾍﾟｺｯ

>>718
TEXT関数って､第二引数でそういう指定をするための関数だろ
おまえは今までどういう風に使ってたんだ？

>>715
他のセルで良い場合
まず関数式
=REPLACE(RIGHT(A1,LEN(A1)-4),4,1,"-")*1
次にそのセルの書式の変更
セルの書式設定→表示形式→ユーザー定義→種類（T）：の下をm"月"d"日("aaa")"と入力しOK

>>714
通常はテーブル主体で使ってるから、構造化参照を利用できるので名前定義する機会は減った。
単票形式で使ってる時は、名前参照しないと$A$6？なんの値だ？ってことになるから名前定義は必須。

>>715
=IF(MID(A1,5,3)="Jan","1月",IF(MID(A1,5,3)="Feb","2月",IF(MID(A1,5,3)="Mar","3月",
IF(MID(A1,5,3)="Apr","4月",IF(MID(A1,5,3)="May","5月",IF(MID(A1,5,3)="Jun","6月",
IF(MID(A1,5,3)="Jul","7月",IF(MID(A1,5,3)="Aug","8月",IF(MID(A1,5,3)="Sep","9月",
IF(MID(A1,5,3)="Oct","10月",IF(MID(A1,5,3)="Nov","11月",IF(MID(A1,5,3)="Dec",
"12月",""))))))))))))&TRIM(RIGHT(A1,2))&"日"

改行規制があるので、改行コードは削除してね

>>717の式は日付が一文字の場合表示が変わらないので勝手に補正すると
=TEXT(RIGHT(A1,LEN(A1)-4),"m月d日(aaa)")
がいいんじゃないかな？

で、>>721は無かったことにしてください。

>>723
複乳クオリティ健在だな。

>>723
それだと○月△日なので、やり直し。

=IF(MID(A1,5,3)="Jan","1月",IF(MID(A1,5,3)="Feb","2月",IF(MID(A1,5,3)="Mar","3月",
IF(MID(A1,5,3)="Apr","4月",IF(MID(A1,5,3)="May","5月",IF(MID(A1,5,3)="Jun","6月",
IF(MID(A1,5,3)="Jul","7月",IF(MID(A1,5,3)="Aug","8月",IF(MID(A1,5,3)="Sep","9月",
IF(MID(A1,5,3)="Oct","10月",IF(MID(A1,5,3)="Nov","11月",
IF(MID(A1,5,3)="Dec","12月",""))))))))))))&TRIM(RIGHT(A1,2))&"日"&IF(LEFT(A1,3)="Sun","（日）",
IF(LEFT(A1,3)="Mon","（月）",IF(LEFT(A1,3)="Tue","（火）",IF(LEFT(A1,3)="Wed","（水）",
IF(LEFT(A1,3)="Thu","（木）",IF(LEFT(A1,3)="Fri","（菌）",IF(LEFT(A1,3)="Sat","（土）","")))))))

改行規制があるので、改行コードは削除してね

菌曜日、なんかいいね。

金の間違いじゃい！！！
いや聞いておくれよ
最近ピロリ菌の病気になって
ピロリ菌で検索していろいろ調べてたから
「きん」が菌で一番にひっかかってきたってわけ

727はいいねｗ
複乳さんらしくて、凄くいいｗ

>>729
友達が10年前にピロリ菌を除去したけど
以来、今でも、ピロリ君ってよばれてる。

>>727
くだらん
実にくだらんやり方だ

>>730
ほんと､初心者らしくて可愛い式だよね

因みに>>727､改行コードは､削除しなくても問題ないよ
むしろ削除しない方がキリが良いところで改行されていて解りやすい

まあこのくらいの単純簡単な式では必要ないことだけど
もっと複雑な式作るようになると､数式もプログラムコードのように
改行とインデントでネスト構造を視覚化したりもするからね

例えば､これもこういうことが必要なほど複雑な式じゃないけど､>>724だと
=TEXT(
　　　RIGHT(
　　　　　A1,
　　　　　LEN(A1) - 4
　　　),
　　　"m月d日(aaa)"
　)
なんて具合に

まあ引数1個でも改行するとか､区切り文字だけで1行使い
=TEXT(
　　　RIGHT(
　　　　　A1
　　　　　,
　　　　　LEN(A1) - 4
　　　)
　　　,
　　　"m月d日(aaa)"
　)
とするとか､やり方はいろいろあるし､個人的な好みを言えば､こういうことが必要になるほど
複雑な式組むより､作業セル使ってでも一つ一つの式は複雑にしないのが俺の好みではあるがな

というわけで短縮した式

=TEXT(DATE(YEAR(TODAY()),MATCH(MID(A1,5,3),{"Jan","Feb","Mar","Apr","May","Jun","jul","Aug","Sep","Oct","Nov","Dec"},0),RIGHT(A1,2)),"m月d日")

>>724
1桁のときは半角スペースが2個なので717でも大丈夫でした。

>>727
思わず笑っちゃいました。
お大事に。

お二人ともありがとうございました（ﾍﾟｺｯ

>>717より長い時点で､短縮してる意味無いな
>>717にあえて突っ込むなら､可読性の落ちる自動型変換に頼らず
少し長くなってもDATEVALUEで明示的に日付文字列をシリアル値に変換した方が良いってことくらいかな

冗長なのは良くないが､可読性落とすような短縮の仕方も同じくらい悪いやり方だからね

A1のセルが空欄の時に、別のセルに、
=A1 って式が入っていると、0と表示されちゃうんですが、
=IF(A1="","",A1)ってわざわざ書かないとダメですか？

>>737
a1のセルに入る物が文字列だったら
=A1&""
としてもOK

後は、自分はあまりすきじゃないけど、
０を表示しないことも可
http://www.relief.jp/itnote/archives/000403.php

あ、あと条件付き書式で０は白にするとか、表示形式で０を表示しないことにする事も可

【1 OSの種類 　 　 　 　 .】WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】否

すいません検索の条件すら検討がつかないんですがデータを置き換え・・というか元にして書き換えたいのですが
エクセルでＡ列に文言が入っています。例えば　りんご
Ｂ列にＵＲＬアドレスが入っています。（例　http://apple）

これをHTTPとして繋げたいのですが構文は以下になります。
<a href="http://apple">りんご</a>

これが数行程度なら手動でも問題無いのですが、数百行を越してしまうためなんとか自動でできないでしょうか？
考えれば考えるほど訳がわからなくなって・・・

>>740
ＨＴＴＰとして繋げるとか頭がどうにかなっているようだ

HTTP→ＨＴＭＬ形式　です。

>>740
="<a href="""&B1&""">"&A1&"</a>"
ってこと？

環境はExcel2010@WindowsXPです。

グラフ作成において「系列の編集」でデータ範囲を選ぶとき、キーボードの↑↓←→を押すと
Excel2003以前では入力ボックス上のカーソル位置が動く仕様であるのに対し
Excel2010ではシートの選択セルが移動する仕様に変わっていますが、これを
2003の仕様に戻す方法はないですか？

データ範囲の指定をキーボードでやりたいときに非常に困るんですよねこれ。

>>742
そ・・・それです。なんか難しく考えすぎてたようです。
しばらく触ってなかったんで俺一人では回答出なかった気がする。ありがとうございました！

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 集合　抽出　合計

質問ですが、合計値を先に入力して複数の集合から１つずつ合計値になる数と名称を持ってくるというのは可能でしょうか？

例を挙げますと
A列：果物名称　B列：果物値段
C列：野菜名称　D列：野菜値段
　：　　　　：　　　　　：　　　　：

これで、あるセルに合計値を仮に200と入力すると各値段列から１つずつ選び、合計200になる組み合わせがあれば
その名称とともに合計値の下に表示する（複数組み合わせがある場合は全て表示）

もし違うバージョンのExcelでならできるというのであれば、それでも構いませんので教えていただきたいです。

総当たりでやるとフリーズしそう…

>>745こんな感じ？
F1に合計額を入力
F2以下に組み合わせを表示

Sub tyusyutu()
Dim Kudamono As Range, Yasai As Range
Dim K_Area As Range, Y_Area As Range
Dim Gokei As Long

Gokei = Range("f1") '合計額取得
Set K_Area = Range("b1:b4") '果物値段の範囲
Set Y_Area = Range("d1:d4") '野菜値段の範囲

For Each Kudamono In K_Area
For Each Yasai In Y_Area
If (IsNumeric(Kudamono) And IsNumeric(Yasai)) Then '数字じゃないときは処理しない
If Kudamono + Yasai = Gokei Then
With Cells(Rows.Count, 6).End(xlUp).Offset(1, 0)
.Offset(0, 0) = Kudamono.Offset(0, -1)
.Offset(0, 1) = Kudamono
.Offset(0, 2) = Yasai.Offset(0, -1)
.Offset(0, 3) = Yasai
End With
End If
End If
Next
Next

End Sub

よろしくお願いいたします。

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 教えてもらったコードをコピーしてマクロを作るくらいなら
【4 VBAでの回答の可否】 できれば否

＝状況説明＝
1.複数のシートで構成されているブックで、最後のシートに表があります。
2.他の各シートでは、多くのセル（合計で1000近く）から最後のシートの表
（その表内のセル）にリンクが張られています。
3. ブックの各シートの内容を編集した後で、最後のシートを削除して、元の
（編集前の）ブックからそのシートを編集後のシートにコピーしました。
4. そうしたら、各シートからのリンクが壊れてしまい、#Refと表示されるようになりました。
5. 各シートのリンクをクリックすると「参照が間違っています」や「参照ファイルを開けません」の
ようなエラーメッセージが出ます。ハイパーリンクを調べると、リンク自体は残っているようです。

このような状況で、すべてのリンクを張り直すには物理的に時間が足りません。壊れた
すべてのリンクを一度に元に戻す方法があったら教えてください。

>>748
挿入した最後のシートのシート名は？

>>749
LANGUAGE_TABLE という名前です。

>>750
ほい

Sub リンク先シート名一括修正()
　　Application.Calculation = xlManual
　　Application.ScreenUpdating = Flase

　　For s = 1 To ThisWorkbook.Sheets.Count - 1
　　　　For Each c In Sheets(s).UsedRange
　　　　　　c.Formula = Replace(c.Formula, "#REF", "LANGUAGE_TABLE")
　　　　Next
　　Next

　　Application.ScreenUpdating = True
　　Application.Calculation = xlAutomatic
End Sub

>>751
ありがとうございます。

でも実行するとオブジェクトの定義エラーとなってしまいます。

c.Formula = Replace(c.Formula, "#REF", "LANGUAGE_TABLE")

この行がハイライトされます。シート名は合っています。

どうしたらよいでしょうか。

>>752
じゃあこっち試してみて

Sub リンク先シート名一括修正()
　　Application.Calculation = xlManual
　　Application.ScreenUpdating = Flase

　　n = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name
　　
　　For s = 1 To ThisWorkbook.Sheets.Count - 1
　　　　For Each c In Sheets(s).UsedRange
　　　　　　c.Formula = Replace(c.Formula, "#REF", n)
　　　　Next
　　Next

　　Application.ScreenUpdating = True
　　Application.Calculation = xlAutomatic
End Sub

このスレッドが適切かどうか迷ったのですが質問させて頂きます。

これから就職時の必要スキルのためにOffice（主にExcel）を勉強しようと考えているのですが、
どのバージョンを使うのが良いでしょうか。マクロやVBAを使えるようになりたいと思っています。

現在はWindows XPでOffice 2003を使用しています。基本操作程度のみの利用です。
このまま2003で勉強してよいのか、それとも新しいバージョンにするのか悩んでいます。
勉強は市販の書籍で行なうつもりです。

アドバイス宜しくお願いします。

マクロやVBAうんぬんは置いといて、とりあえず2003までと2007以降の
両方をまともに使いこなせるようになっておいた方が良い。

ぶっちゃけVBAなんて、そういうのができる派遣社員雇ってやってもらってるから、
正社員目指して就職活動するんならVBAまで勉強しなくて良いよ。
やり始めると果てしないから時間の無駄というか、別の勉強した方が良いんじゃないの？みたいな。
呼吸するくらいに自然に、グラフとピボットが作れるようになれば問題ないと思う。