深く考えないことにして =DATEDIF(A1,TODAY(),"Y")-AND( A1>=DATE(YEAR(TODAY())-60,4,1), A1<=DATE(YEAR(TODAY())-59,3,31)) こんな感じではいかがでしょう。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

Chiquilin　様、早速の回答ありがとうございます。 ご提案通りの計算式でやってみると、年が変わる１月以降の誕生日で６０歳になる５９歳が５８歳になり、(１２月３０日現在) PCの日付を１月５日に進めると、１月４日誕生日の場合、５９歳とならず６０歳のままになり、１２月３１日以前で正常に５９歳となるものも １月になると６０歳と計算されます。 結構複雑なんでしょうか、私は考えれば考えるほどわからなくなってまいりました。

質問の際にはデータが入力されているセルアドレスが 判る様な形で質問された方が、適切な回答が得られますし 回答側も悩まずに済みます。 A1〜A100にシリアル値で生年月日が入力されているとして B1〜B100に各々の年齢を求めるとします １）数式が複雑になるのを防ぐため、一部数式を名前定義します 　　B1セルをクリック後メニューの[挿入]・[名前]・[定義]で以下を登録 　　　　【名前】　　【参照範囲】 　　　　　年齢　　　　=DATEDIF($A1,TODAY(),"y") 　　　　　誕生日　　　=DATE(YEAR(TODAY())-(MONTH(TODAY())<4),MONTH($A1),DAY($A1)) 　　　　　年度開始　　=DATE(YEAR(TODAY())-(MONTH(TODAY())<4),4,1) 　　　　　年度終了　　=DATE(YEAR(TODAY())+(MONTH(TODAY())>=4),3,31) ２）B1セルに以下の数式を入力してB2〜B100にコピー 　　　=IF(年齢<>60,年齢,IF(AND(年度開始<=誕生日,誕生日<=年度終了),59,60)) 【参考】 動作確認をするためにPCの日付を変えるのは他への影響が心配ですね もし、どこかのセルに=TODAY()関数を入力して置けるのであれば そのセルを参照させ、セルに日付を手入力する事で確認する事ができます 因みに上記の回答は X1に=TODAY() 名前定義で　名前：TODAY、参照範囲：=$X$1　として 数式内の　TODAY()をTODAYにして確認しています

夜目狸　様、回答ありがとうございます。 >質問の際にはデータが入力されているセルアドレスが >判る様な形で質問された方が、適切な回答が得られますし >回答側も悩まずに済みます。 ごもっともです。以後気をつけます。 お陰様で無事解決いたしました。 ありがとうございました。

ＳＵＭＩＦ関数について教えてください。 =SUMIF(A1:A10,">120",D1:D10) を使用するときに、=A1:A10に１２０より大きいものを=D1:D10を合計しますが、 １２０のところをB20のセルに１２０の値を入れて =SUMIF(A1:A10,">B20",D1:D10)にどうしてできないのでしょうか？ 値を変数で持ちたいのでセル番号をいれたいのですが・・・ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

失礼します。 　 次のようにすればできますよ。 　 =SUMIF(A1:A10,">"&B20,D1:D10)

ich habe hungerさん ありがとうございました。

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

ランク関数を使用すると、順位が同じ場合は、１位、２位、２位、４位と表示されます。これを１位、２位、２位、３位と表示させたいのですが、どうしたらいいのでしょうか？教えてください。 　Ａ１　Ｂ１ 　２０　　２ 　３０　　１ 　２０　　２ 　１０　　４ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

同点の場合に差をつける条件が必要になります。 その条件を元値に加算なり減算してランク関数を使います。

ありがとうございました

終了後ですが・・・・・ 質問は、同一順位を表示しないのではなく 同一値は同一順位にして、かつ、順位の番号が歯抜けにならない様に １・２・３・・・と連番にしたいと言う事では無いでしょうか？ となると、お節介ながら、以下の内容では解決しないと思われますが？ >□投稿者/ msec. -(2004/12/28(Tue) 15:43:10) >同点の場合に差をつける条件が必要になります。 >その条件を元値に加算なり減算してランク関数を使います。 処理的にはRANK関数で求めた順位を、抜けた順位を詰めて 振りなおす処理になると思いますが？ A1〜A100に数値が入力されていて、B1〜B100に順位をセットするとして 任意の４列（D〜G）を作業列として使用します １）以下の数式を作業列に入力し、2〜100行へコピーします 　　・D1：=IF(A1="","",RANK(A1,$A$1:$A$100)) 　　　　　　--->A1〜A100の降順順位を単純に求める 　　・E1：=ROW(A1) 　　　　　　--->1〜100の連番をセット 　　・F1：=IF(COUNTIF(D:D,E1)=0,"",1) 　　　　　　--->1〜100位がD列に存在するか否かをカウント 　　　　　　　　存在する場合数値1をセット 　　　　　　　　存在しない場合空白の文字列""をセット 　　・G1：=COUNT($F$1:F1) 　　　　　　--->F1から現在行までの数値セルの数を数える 　　　　　　　　E列の順位が、変換後どの順位になるかがセットされる ２）B1セルに以下の数式を入力してB2〜B100へコピー 　　=VLOOKUP(RANK(A1,A:A),E:G,3) 　　　　　　--->RANK関数で求めた降順順位を作業列の変換表で変換 【補足】 作業列無しでも処理できますがデータ量によって負荷が掛りますので 比較的平易な関数で設定でき、負荷も軽いので作業列を使用しました

夜目狸さん、はじめまして。 「これを１位、２位、２位、３位と表示」 と、ありますので氏が言われるとおりですね。こちらとしては文章と表の内容が 違っていたので確認を取りながら話を進められればと思っておりました。 ネットでの遣り取りに慣れていませんので質問された方にも分かりにくいレスに なってしまいました。すみませんでした。

エクセルで以下のようにするにはどうしたらいいですか ＜編集前> A列　　　　b列 1 1+1 2 2 3 2+2 4 4 　 を ＜編集後> A列　　　　b列 1 1+1　 2 2 2+2 4a にしたいのですがしかも量がたくさんあるんですが ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

こんにちは〜＾＾ 編集後の4に「a」がついてますが、これは間違い？？？ それとも、規則的に何かあるのかな？？？ 回答で無くすみませんm(_ _)m

度々＾＾ 因みに、「a」が間違いであるなら、 ジャンプ機能を使用すれば簡単に出来ます。 まず、A列を選択→編集→ジャンプ→セル選択→定数にチェック→ 数値だけ残して他のチェックをはずす→ok→コピー→B1セル選択後貼付 A列を選択→編集→ジャンプ→セル選択→定数にチェック→ 数値だけ残して他のチェックをはずす→ok→削除→上方向にシフト 以上が流れです。 はずしてたらすみません＾＾

> こんにちは〜＾＾ > > 編集後の4に「a」がついてますが、これは間違い？？？ > > それとも、規則的に何かあるのかな？？？ > > 回答で無くすみませんm(_ _)m aはまちがいです ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

質問をする場合は、明確に回答者に伝わるようにするべきでしょう。 そうしないと、 http://oshiete1.goo.ne.jp/kotaeru.php3?q=1147680 の繰り返しになりますよ。

以前こちらで大変御世話になりました。 また皆さんのお力をお貸しください。 社員名簿を回覧して各自に誤りがないかチェックしてもらいたいのですが、個人情報の為、印刷できないよう設定したいのです。 印刷不可の設定って、できるんでしょうか？方法があれば教えて下さい。 ++++++++++++++++++++ OS      ⇒Windows 98 Version⇒Excel 2000 ++++++++++++++++++++

こんにちは〜＾＾ とりあえず、そのシートの未入力セルを選択。その状態で、 メニューバーのファイル→印刷範囲→印刷範囲の設定。 この状態で、マクロにてメニューバーを非表示にする。 今のところ、これくらいしか思いつきませんm(_ _)m

すみませんm(_ _)m ボツレスでした。

完全に印刷できないようにするのは 無理です。

やはり、不可能なことなのでしょうか？ k@自転さん、もしよろしかったら、マクロでメニューバーを非表示にする方法を詳しくお教え願えませんでしょうか？ マクロは超初心者なもので、何から手を付けてよいものやら、全くわかりません。

おはようございます 画面コピーで印刷できますから難しいのでは

やっぱり完全に制御するのは難しいでしょうね。。。 OnKeyメソッドで、PrintScreenキーを無効化できますかね? もしそれができればの前提ですが、 該当するデータを　Shiftキー+メニュー編集　図のコピー で別シートに貼り付けします。 貼り付けた図の書式設定　プロパティタブで、 オブジェクトを印刷するのチェックをはずす 元データのシートを非表示にして、ブックと表示シートを保護する。 こんなイメージで出来そうですが、Onkeyをいじれても、 マクロを無効で開かれたら意味なしですね。。。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

こんにちわ Rinです 皆さんの回答で印刷不可は、難しい様なので 別の方法を考えてみました。 かなさんへ、 いくつか教えて頂きたいのですが・・・ (1)印刷できなければ、個人データを他の人に 　　見られても良いのでしょうか？ (2)個人データは、シートにどんなレイアウトで 　　どの位の数があるのですか？ 　　例えば、1名に1行使ってとか (3) 　　＞社員名簿を回覧して各自に誤りがないかチェックしてもらいたいのですが、 　　　ここの所を、もう少し詳しく具体的に、説明して頂けないでしょうか？ 出来るかどうか、解りませんが・・Rinでした(^_^)☆

直接の回答ではありませんが、ののさんの書いていらっしゃった、 ＞OnKeyメソッドで、PrintScreenキーを無効化できますかね? スクリーンショットの禁止は、ホットキーの設定になりますから、API 関数で 設定してあげなくてはならないはずです。RegisterHotKey　で、PrintScreen にフックしてあるものを調べて、フックされていたら、ブックを閉じるように 作ります。画面キャプチャー等のツールの除外はできます。 ＞マクロを無効で開かれたら意味なしですね。。。 元のデータシートを VeryHidden 状態にして、マクロで、シートを表示するよ うにします。また、保存が出来ないようにしておいて、ブックを閉じるときに、 再び、VeryHiddenにしてしまいます。マクロを起動しなければ、ダミーのシート を表示させます。 PERSONAL.XLS と印刷させるブック以外のブックを開いている時も閉じるよう にさせます。また、Workbook が、Deactivate イベントでも、別のブックがあ ったら閉じるようにすれば、オートメーション・オブジェクトを作らない限り は、ブック to ブックのシートコピーもある程度不可にできます。 なお、メニューに対する「印刷禁止」は、 メニューコマンドの「標準」と「ドキュメント」に、クラスイベントを設けて、 それぞれ[印刷]に関連するコマンドボタンに、 CancelDefault を True にし て印刷禁止をするようにします。また、[Ctrl+P] を、OnKey で、印刷禁止す るマクロを登録しておきます。 なお、当然、VBA・プロジェクトのプロテクトをします。ただし、プロテクト 破りは、この範疇ではありません。また、マクロで抜き出すとかいう話も、 除外しています。マクロでデータを抜き出すプロテクトは、今の私には、イメ ージ的には、たぶん、ファイルのオープン時のプロテクトを使用するのだとは 思いますが、良く分ってはいません。これ以外は、実際に作ってみました。 印刷されないことへの「完璧さ」なんていうものは、元々不可能なのですが、 その目的や技量の範囲内で、いかに近づけていくか、ということだと思います。

データ内に英語と日本語が混ざっている時、そのままソートをすると英語と日本語に分かれてその中でソートされますが、英語の読みと日本語で混ぜてソートしたい場合はどうすればよいのでしょうか？教えて下さい！お願いしますm(__)m ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

マルチポストはマナー違反です。 すぐにどちらかのサイトを解決済みにして閉じてください。

条件付き書式で、太い罫線をひくことはできないでしょうか。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

残念ながらできないと思います。 VBAでの処理になると思います。

ありがとうございました。あきらめたいと思います。

新規ファイルを開いて､例えばＤ１０に何か文字を入力します。　この時の最 後のセル（編集−ジャンプ−セル選択−最後のセル）は当然Ｄ１０です。 　ここで１行から１０行までとＡ列からＤ列までを削除して最後のセルを確認 してもやはりＤ１０のままでＡ１になりません。Ａ１にする方法はありません か。 ++++++++++++++++++++ OS      ⇒Windows ME Version⇒Excel 97 ++++++++++++++++++++

単に上記質問ですと新規ファイルを開けば良いとの回答もあり得るので次のよう に変更します。（内容は同じですが） 　データがＡ１からＨ２０まで入力してあるとします。次にＺ１００にデータを入 力しました。この時の最後のセル（編集−ジャンプ−セル選択−最後のセル）は当 然Ｚ１００です。 　ここで２１行から１００行までとＩ列からＺ列までを削除して最後のセルを確認 してもやはりＺ１００のままでＡ１になりません。最後のセルをＨ２０にする方法 はありませんか。

そのファイルを保存してみてください。

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

こんにちは 　Networkdays関数は　土曜、日曜を自動的に 　稼働日数から除外してしまいます。 　隔週で休みの場合、これが邪魔してしまいます。 　　特定の休み（祭日、隔週の土曜、日曜）を　休日リストに 　いれて　このリストから稼働日数を割り出す方法を 　教えて下さい。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 97 ++++++++++++++++++++

こんばんわ Rinです 大晦日なのに、まだ仕事ですヨー 情けないですネ!! リストがあって、稼動日数だけなら A1に、開始日 B1に、終了日 E1〜E10に、リストの特定日が、入っているとして D1に、=SUM(DATEDIF(A1,B1,"D"),1)-COUNTA(E1:E10) で、出来ると思うんですが・・・ リストの範囲は、特定日が、多ければ変更して下さい。 カン違いならゴメンナサイ Seaside さん、良いお年を・・・Rinでした(^_^)☆

こんにちは。 フリーのアドイン利用が容認されているならば下記で可能です。 kt関数アドイン（kt営業日数) http://www.h3.dion.ne.jp/~sakatsu/ktfunc_main.htm http://www.h3.dion.ne.jp/~sakatsu/GifImg/FormMap_Demo3.gif この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Rinさん 明けましておめでとうございます。 　 　早々の検討ありがとうございます。 開始日 　 終了日　　稼働日 11/1/05 　　12/10 　　３５ 休日リスト 　10/1 10/10 11/1 11/5 12/9 のような場合、　１０月の休み２日間も引いてしまいます。 休日リストの変更も考えられますが、開始日と終了日のデータが いっぱいあるので、リストの変更もままになりません。　 　他の方法　検討お願いできないでしょうか？

おめでとうございます Rinです ＞開始日 　 終了日　　稼働日 ＞11/1/05 　　12/10 　　３５ ＞休日リスト ＞　10/1 ＞　10/10 ＞　11/1 ＞ 11/5 ＞ 12/9 この表の開始日、11/1/05　は、間違いではないのでしょうか？ A1に、開始日 B1に、終了日 E1〜E10に、休日リストがあるとして D1に、=SUM(DATEDIF(A1,B1,"D"),1)-SUMPRODUCT((E1:E10>=A1)*(E1:E10<=B1)) で、いかがでしょうか？ 休日リストが、 ＞特定の休み（祭日、隔週の土曜、日曜） と、なっている事が前提なんですが。 休日リストの内容を、私が、理解していないのかも しれませんネ。

おめでとうございます。 　角田さん　ありがとうございます。 　　　　関数のサイトを拝見させて戴きました。　この関数については 　　　　じっくり勉強させて戴きます。 　Rinさん 　　　　この関数で　できました。 　　　　これで　カレンダーを見ながら休みを手計算する必要が 　　　　省けます。 　　　　ありがとうございます。

セルに 20010401と入力されたものを日付01/04/01に換えるのはどうしたらいいのでしょうか？グラフにするとき20010401が数値になってしまいうまく表示できません。どなたかご指導願います。

あまりその入力の仕方は良くないですね。シリアル値で入力するのが日付 のセオリーです。ただ既に入力してしまっているようなので 日付列を列選択 [データ]→[区切り位置] →[カンマやタブの……]にチェックして[次へ]→[次へ] →[列のデータ形式]を[日付]にチェックして[完了] 以上でシリアル値に変換し直して下さい。 その後であれば 表示形式の設 定でお好みの表示に変更できます。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

Chiquilin 様、ご指摘ありがとうございました。 これでうまく時系列のグラフが書けそうです。

次のデータを元にレーダーチャートグラフを作成したいのですが、 質問があります。 数値A 分析結果 K 8 2 Ca 115 140 Na 40 35 Zn 155 142 Mg 35 40 数値Aの値をそれぞれの項目軸ラベル毎に、Y/数値軸の最大値として、 分析結果の値をグラフにしたいのですが、可能でしょうか。 項目軸ラベルが「ｋ，Ca,Na,Zn,Mg」となります。 宜しくお願い致します。

この記事は削除されました

こんばんは。 上の削除は私です。すみません。 A B C E F 1 　　数値A　分析結果 2 K 8 2 K 8 0.25 3 Ca 115　　　 140 Ca 115 1.217391 4 Na 40 35 Na 40 0.875 5 Zn　 155 142 Zn 155 0.916129 6 Mg 35 40 Mg 35 1.142857 E2セルに　=A2&" "&B2　と入れて下へオートフィル。 F2セルに　=C2/B2　と入れて下へオートフィル。 E2：F6の範囲を選択し、レーダーチャートを作り、最大値に対する比として表示する。 こんなのではだめでしょうか。^^; 的外れだったらごめんなさいです。m(__)m

お返事が遅くなり申し訳ありません。 教えていただいたとおりやってみようと思います。

グラフを作成する時ふたつの会社の件数グラフとその合計の数字のみを表示したいのですが、合計の数字が表せません。どうか教えて下さい。合計の数字はデータテーブルに表す方法でも結構です。よろしくお願いします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

こんにちは どんなグラフで、どこに表示するのか、わかりませんが、 合計をセルで計算しておいて、 その合計をグラフに系列として追加、グラフラベルを表示しておいて、 グラフの系列は非表示（マーカーなし、線なし） とすることも出来ます。

こんなに簡単に解決するなんて感謝感激です。(ToT)/~~~有難うございました。

ウィンドウ枠の固定でどれだけスクロールしても一部分は 変わらないというようなものはわかるのですが 印刷時にもどのページにも印刷されるというやり方を教えてください。 表で項目名を印刷したいです。

ウィンドウ枠に固定した部分を 行のタイトルに設定してはいかがですか？ [ファイル]→[ページ設定]→「シート」タブの[行のタイトル] から指定して下さい。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

仕事を使い分けたいため、Excel2000とExcel2003をインストールしました。 (アイコンがExcel2000と2003の二つあります) Excel2000で仕事をやり、保存したいのですが、どうしてもExcel2003が優先されます。どうしたら、2000と2003を使い分けたらいいでしょうか? よろしくお願いします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

ひとつのパソコンに バージョンの違う Excel を入れることは普通にはでき ないと思いますが。 xl2003 を使用して 保存時に xl2k に落として保存すればいいだけではない のですか？ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

たぶん、ここらが参考になるのではないかと思います。 http://support.microsoft.com/default.aspx?scid=kb;ja;881538 1 つのコンピュータに Office 2003 と以前のバージョンの Office を共存させるには ＞Excel2000で仕事をやり、保存したいのですが、どうしてもExcel2003が優先されます。 これは、ショートカットの問題ではないでしょうか？ マイクロソフト・サポートの #　　[プログラム] または [すべてのプログラム] に、以前のバージョンの Office #　　のアプリケーションが表示され、[Microsoft Office] フォルダに、Office #　　2003 のアプリケーションが表示されていることを確認します。 ただ、ファイル自体の構造が多少違うので、2K で作ったものは、上位バージョンでは、 改めて保存しなおしたほうが無難なようです。だから、逆に2003で作って、2kで稼動試 験を行うというようなスタイルにしたほうがよいのではないか、と思います。

初めまして エクセルを勉強中の者です。 同じセル内に、最初に「Ａ」と言う文字が入力されていて、その横に他のセル内の名前を挿入する方法が解からないです。 宜しくお願い致します。m(__)m

こんにちは。 A1にAとあって、B1にBとあった場合にA1に ="A"&B1 とこういうことでしょうか？

遊馬さん、こんにちは。 はい、そのとおりで、"Ｂ"が長い文章なので、そのままコピーする状態で、"Ａ"の文字の横に挿入（貼り付けかな？）をしたいのです。 私がすると、"Ａ"が消えてしまうのです。 宜しくお願い致します。m(__)m ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

yumeさん、こんにちは。 ちょっと状況が分からないのですが、貼り付ける先のセルをアクティブにして 文字の後を選んでから貼り付けてますよね？ ちなみに私が書いた式でも同じ結果になります？

はい、遊馬さんの書いてあるとおりに、貼り付けたいセルをアクティブにして、 "Ａ"文字の後を選んで、カーソルを点滅させて、それから、少し離れたセルの貼り付ける名前をクリックするのですが、そうすると、カーソルの点滅状態が消えて、元の状態になってしまいます。 宜しくお願い致します。m(__)m

再びこんにちは。 >"Ａ"文字の後を選んで、カーソルを点滅させて、それから、少し離れたセルの貼り付ける名前をクリック って、まずコピーしたいセルをアクティブにしてコピーしたい場所をマウス左クリック を押しながら選択。選べたら右クリックでコピー。 今度は貼り付けたいセルをアクティブにして貼り付けたい場所へカーソルを持っていき、 右クリックで貼り付け。 こゆこと？

パソコンから離れていましたので、遅くなりました。 はい、素人の私には、その方法しか解かりませんが、遊馬さんの書いてあるようにすると、"Ａ"が消えて、名前がコピーされるだけなので・・・ １行１行自力で入力するのも時間がかかるし・・・ どうしたら良いでしょうか？

こんばんわ Rinです 失礼します。 遊馬さんの書かれたコピー、貼り付けが 思うように行かないようなので ＞１行１行自力で入力するのも時間がかかるし・・・ 同じ列のデータや、文字を連結する作業が、何行もあるのでしたら どこでもかまいませんから、作業列を1列使います。 A1に、「A」と言う文字 B1に、「あいうえお」という文字が、あって 例えば、C列を作業列にして C1：=A1&B1 この式をC列下に、フィルコピーします。 C1には、「Aあいうえお」と表示されます。 C列の、連結されたデータのセルの範囲を選択して、コピー A列に、形式を選択して貼り付け、値にチェックを入れます、okボタン C列を削除、又は、C列のセルをクリア こんな、方法もありますが ・・・Rin(^_^)☆

Ｒinさん、こんばんは。　お返事が遅れて、すみません。 詳しく教えて下さいまして、ありがとうございました。m(__)m 書いてあるとおりに操作しましたら、完成しました。 嬉しいです。（＾＾） ネットで調べても解からなかったので、あきらめながら、今またここに来ましたら、Ｒinさんのお返事があって、解決しましたので、とても嬉しいです。 パソコンは、私にとってはとても難しいです。 Ｒinさん、遊馬さん、ありがとうございました。m(__)m これからも、がんばってくださいね。（＾＾） また、ここに来ました時は、宜しくお願い致します。

Excel2002で、A列を非表示してしまいました。 再表示するにはどうしたらよいでしょうか？ ちなみに書式メニュー→列→再表示でも無理でした。

[Ctrl]＋[A]で全選択してから、メニューの[書式]→[列]→[再表示]

こんにちは。 名前ボックスに A1 と入力してEnter 後は maruru01 さんのご回答と同じく メニューの[書式]→[列]→[再表示] でも。

返事遅くなりすみません。解決しました。ありがとう

はじめまして　初心者です。よろしくお願いします。 仙台市の土木部門の共通様式をダウンロードしていたら とても便利そうなチェックボックスの様なオブジェクトを見つけました。 自分で編集して、別のファイル等で使いたいのですが どうやったらよいのでしょうか!? ↓仙台市　土木共通様式のダウンロードのページ http://www.city.sendai.jp/toshi/gijutsu/shiyousho/siyoushodl.html ↑のページの一番下のほうにある 「135 塗装膜厚測定表」を開いて 10行目にあるチェックボックスのようなやつです。 よろしくお願いします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

それは、チェックボックスではなくて、 コントロールツールのオプションボタンです。 そのプロパティのSpecialEffect を　0　のFlat 状態にしてあるだけです。 ただ、この内容からですと、フォームのオプションボタンでも 同じですが、おそらく、改編しにくくするために、コントロール ツール側を使ったものだと思います。

ありがとうございます。 「表示」-「ツールバー」-「コントロールボックス」 を表示してら、選択したり、プロパティを表示したりできるようになりました。 なるほど、そういえばそんな機能もありましたね(汗) 使いこなせばかなり役に立ちそうですね。 これからいろいろ勉強してみます。 わたらないことがあったらまた助けてください。

ヘッダーの編集の右側に2行文字を入れたいのですが、 自動的に右寄せになってしまいます。左寄せにすることは 可能でしょうか？ ああああああ いいいいいいいい という風にしたいです。 宜しくお願い致します。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

こんにちは。 別の空白文字を使用してみたけれども、プレビューでは見えなくても、印刷す ると、「・」（中黒点）になってしまいうまくいきませんでした。 ああああああ . いいいいいいいい 後は、「.」（ピリオド）や「`」（アクサンテギュ）をいれて、後で、ホワイト で消すというぐらいしか、右のヘッダーに入れるぐらいしか思いつきませんね。 もちろん、ヘッダーの代わりに、ワークシート上の一行目を使うという考え方も ありますが、それは別にしました。

やはり難しいのですね・・・ ありがとうございました！

＝A１と入力した時、A1が空白なら「０」と表示します。このゼロを非表示にしたいのです。 A1が数字なら、IF関数で出来ますが、文字列の場合はできません。 何か方法を教えて下さい。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

こんにちは。 =IF(A1<>"",A1,"") では駄目と云う事でしょうか？

ありがとうございました。 それで、出来ました。

１日　　２日 Ａさん　　出　　　休 Ｂさん　　出　　　休 Ｃさん　　休　　　出 出勤者数　２　　　１ 上の様な休日者を除く合計をもとめたいのですがCOUNTAですと すべてのセルを数えてしまい上手くいきません 良い方法教えて下さい ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

おはようございます Rinです A B C 1 １日　　２日 2 Ａさん　　出　　　休 3 Ｂさん　　出　　　休 4 Ｃさん　　休　　　出 5 出勤者数　２　　　１ B5:=COUNTIF(B2:B4,"出") 横へ、フィルコピーして下さい

早々ありがとうございます 出勤がシフト制なので「出」ではなく Ａ勤務、Ｂ勤務と入力するので下の様に求めたいのですが A B C 1 １日　　２日 2 Ａさん　　Ａ　　　Ｂ 3 Ｂさん　　Ｂ　　　休 4 Ｃさん　　休　　　Ｃ 5 出勤者数　２　　　２

Rinさんのご回答をほんの少し手直しですみますよ。 COUNTIFをヘルプか本で調べると自分のものになるように思いますが。 =COUNTIF(B2:B4,"<>休")

みなさんありがとうございました 関数の応用もっと勉強します

こんにちは。 ツールバーから、自前のマクロボタンが消えている事があります。 また、ツールバーの表示状態が、変わっている事もあります。 ウィルスバスターが入っているので、ウィルスでは無いと思います。 設定によって、ツールバーがある時点の状態に戻ってしまうという事は ありますか。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

マクロツールバーは、ツールバーに貼り付けてあるものだとします。 また、下記で示した 「ユーザー設定−オプション」で、メニューとツールバー は、「標準と「書式設定」ツールバーを横に並べて配置する に設定されているとします。 ツールバーを貼り付けてなかったら、何か別のアイコンをクリックして使うと 隠れてしまいます。 それで、ほとんどは消えないはずなのですが、貼り付けてあって、それでも、 消えてしまうのは、たぶん、ツールバーが一杯になっているのではないかと思 います。あまり使っていないツール・アイコンを メニューバーの何もないところで、 　右クリック−ユーザー設定−コマンド で、ドラッグ＆ドロップで片付けてしまえばよいと思います。

こんばんわ >ツールバーから、自前のマクロボタンが消えている事があります。 >また、ツールバーの表示状態が、変わっている事もあります。 ツール 　ユーザー設定 　　オプション　の「最近使用したコマンドを最初に表示する」にチェックが入っていたら、そういうこともあるかもしれません。 はずれでしたら　すいません。

エクセルを飲食店経営に使っていました。日報、仕入れ、棚卸し、データー集計などをリンクさせ計算させていました。それらの入ったフォルダーをCDにコピーして他のパソコンに移し他のですが、まったくリンクしなくなりました。ソースが見つかりません。ファイルが見つかりません。などのメッセージも。どうしたらいいでしょうか？365分のリンク先をいちからやり直すのは大変過ぎます。教えてください。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

EXCELでのリンク参照やマクロでの参照は、相対位置ではなく フルパスでの絶対位置での参照で保存されますから 元のPCと全く同じディレクトリ上にフォルダをコピーしないとリンクは崩れます。 仮に　『Cドライブ』の『My_Documents』フォルダ内に『DATA』フォルダを作成し その中にBook1.xls と　Book2.xlsが有ったとして Book1.xlsで　=[Book2.xls]Sheet1!$A$1　とリンク参照している場合 保存時点では='C:\My_Documents\DATA\[Book2.xls]Sheet1'!$A$1　とフルパスで保存されます 面倒でも[編集]の[リンクの設定]でリンクを変更するか [置換]でディレクトリ部分を置換する必要があります この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

エクセルの質問ではないのですが、どこに聞いたらいいのか分からない為、質問させてくださいm(- -)m 今まで普通に上書き出来ていたCD-RWがいつからか読み取り専用になってしまい、プロパティで読み取り専用のチェックボックスを解除してもエラーが出てはずせませんでした(; ;)とても困っています。分かる方教えて頂けませんか？ ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

解決方法ではないですが、デバイスマネージャーでCDドライブのところに何かマークがついていませんか？ デバイスマネージャーは マイコンピュータで右クリック⇒プロパティ⇒ハードウェア⇒デバイスマネージャー あとは、メディア自体の故障は考えられませんか？（ドライブではなくCD-RWの方）

以前に使っていたＰＣにプリインストールされていたＣＤ書き込みソフトでは 次の２通りの書き込み方がありました。 �@フロッピーやＭＯと同じようにＣＤに直接書き込んだり上書きできる。 　しかし，そのソフトが入っていない別のＰＣでは読み込めない。 �AＣＤ−ＲやＣＤ−ＲＷに直接に書き込みや上書きはできない。 　一度，ハードディスクに保存して，ＣＤにコピーとして書き込む。 　どのＰＣでも読み込みができる。 今，使っているＰＣでは上記の�Aしか使えないソフトが入っています。 それで，ＣＤ−ＲＷから，一旦ハードディスクにコピーして，ファイルの 中身を変更，上書きした後に，再度，ＣＤ−ＲＷにコピーして上書きして います。ＣＤ−ＲＷに直接，何もできないので読み取り専用のチェックを 外すこともできません。やろうとするとエラーメッセージが出ます。 同じソフトを使っていて，書き込み方も以前と同じということなら， 的外れな回答でごめんなさい。

> 今まで普通に上書き出来ていたCD-RWがいつからか読み取り専用になってしまい、>プロパティで読み取り専用のチェックボックスを解除してもエラーが出てはずせま>せんでした(; ;)とても困っています。分かる方教えて頂けませんか？ CD-RWが読み取り専用ということですが、メディアが読み取り専用になってしまったのか、ドライブ自体が読み取りしか出来なくなったのかわかりませんが、試してみて下さい。 新しいＣＤ−ＷＲをセットして書き込めますか？そうだとしたら、もう容量がいっぱいになって追記が出来なくなっています。その場合は新しいメディアを使って下さい。そうでなく新ＣＤ−ＲＷを入れても書き込めないようでしたら、再インストールするか、それでも駄目なら故障かも。

今日から仕事始めで、皆様に返事も出せずに申し訳ございませんでした。 早速試してみたいと思いますが、仕事が詰まっていて、とりあえず保留させて頂きます。お返事くださった方々に御礼申し上げます。ありがとうございましたm(- -)m

納入期限 入会日 名前 2005/2/末 2004.11.29 た 2005/2/末 2004.11.29　す 2005/2/末 2004.11.30　み というように、入会日から、次月会費の納入期限までは、３ヶ月後となります。 現在は、手入力で、末としていますが、自動で、計算することは可能でしょうか。

こんにちは〜＾＾ とりあえず、こんなところから。 =DATE(YEAR(B1),MONTH(B1)+3,DAY(B1)) はずしてたらすみません＾＾

> というように、入会日から、次月会費の納入期限までは、３ヶ月後となります。 > 現在は、手入力で、末としていますが、自動で、計算することは可能でしょうか。 最終的に｢2005/2/末｣とするか｢2005/2/28｣とするかによってやり方は変わりますが、 どちらにせよ自動で計算させることは可能です。 ｢2005/2/末｣の場合() =YEAR(DATE(YEAR(B1),MONTH(B1)+3,1))&"/"&MONTH(DATE(YEAR(B1),MONTH(B1)+3,1))&"/末" ｢2005/2/28｣の場合 =DATE(YEAR(B1),MONTH(B1)+4,1)-1

＞入会日から、次月会費の納入期限までは、３ヶ月後となります。 ＞現在は、手入力で、末としていますが、自動で、計算することは可能でしょうか。 ３ヵ月後の「末」なのか、末の時、「末」と出すのか、文章が曖昧でよく分かりません。 2004.11.1 の時はどうするのか、とか書かれていませんね。 2004.11.29 これが、シリアル値なら、 =TEXT(DATE(YEAR(B2),MONTH(B2)+4,0),"yyyy/m/末") となります。文字列なら、Left 関数, Mid 関数などで、年・月を抜き出します。 違っているようでしたら、無視してください。

みなさんありがとうございます。 =YEAR(DATE(YEAR(B1),MONTH(B1)+3,1))&"/"&MONTH(DATE(YEAR(B1),MONTH(B1)+3,1))&"/末"の式を使うと、スムーズに出来ました。 また、空欄の場合は、何も入力しないというのを、この式にプラスしたいのですが、ifを使えばいいのでしょうか？よろしくお願いいたします。

何度もすいません。 2004/11/1の場合は、2005/2/1 2004/11/10の場合は、2005/2/10 という場合も、式につなげることは可能でしょうか？ すべて末になってしまいました。

こんにちは。 >空欄の場合は、何も入力しないというのを、この式にプラスしたいのですが は =IF(B1="","",使っている式） でよいのではないでしょうか。 >2004/11/1の場合は、2005/2/1 >2004/11/10の場合は、2005/2/10 は皆さんが提示された式を少し改良すればよいかと。 Wendyさんの式を借りて =TEXT(DATE(YEAR(B1),MONTH(B1)+3,DAY(B1)),"yyyy/m/d") とか。意図が違いましたらご容赦ください。

お返事ありがとうございます。 =IF(B1="","",使っている式）で、空欄にすることができました。 =TEXT(DATE(YEAR(B1),MONTH(B1)+3,DAY(B1)),"yyyy/m/d")を使うと、３ヵ月後となるのですが、月を次の月に行くのではなく、末日としたい場合、 今までのを組み合わせると、出来るのでしょうか？ 2006/2/1 　2005.11.1 2006/2/10 　2005.11.10 2006/3/1 　2005.11.29　この場合は、2006/3/末 2006/3/2 　2005.11.30　この場合は、2006/3/末 と計算したいです。 よろしくお願いいたします。

この記事は削除されました

すいません。上の削除私です。あまりにも駄目駄目の式だったので。。m(__)m 今日はもうこちらにこられませんのでHELPしときます。

ちょっと失礼しますが、私には、一体、どんな基準なのか、さっぱり分かりません。 最初のご質問 ＞2005/2/末 2004.11.29 た 後のご要望 ＞2006/3/1 　2005.11.29　この場合は、2006/3/末 2006/2/末 ではないのではないでしょうか？ 例えば、 2005/11/1 → 2006/2/1 2005/11/2 → 2006/2/? 2005/11/10 → 2006/2/10 2005/11/11 → 2006/2/? 2005/11/20 → 2006/2/? 2005/11/21 → 2006/2/? それに、 2005/11/29　→2006/3/末　（４ヶ月？と「末」の基準は何か？） 2005/11/30　→2006/3/末　（４ヶ月？） となると、それなりに、きちんとした基準を教えていただけなければ、 たまたま、ご希望に合うものが出ればよいのですが、そうでないと、回答を待 ちつづけることになると思います。 p.s. 「末」の基準は何か？ 例えば、2/28は、6月末になるのか、それとも、6月28日なのかも分かりません。

こんにちは Wendyさん言うように末の基準がわかりませんがこんな感じでどうでしょ？ =IF(B1="","",IF(MONTH(DATE(YEAR(B1),MONTH(B1)+3,DAY(B1)))>MONTH(DATE(YEAR(B1),MONTH(B1)+3,1)),TEXT(DATE(YEAR(B1),MONTH(B1)+3,1),"yyyy/m")&"/末",IF(MONTH(DATE(YEAR(B1),MONTH(B1)+3,DAY(B1)+1))=MONTH(DATE(YEAR(B1),MONTH(B1)+3,DAY(B1))),TEXT(DATE(YEAR(B1),MONTH(B1)+3,DAY(B1)),"yyyy/m/d"),TEXT(DATE(YEAR(B1),MONTH(B1)+3,DAY(B1)),"yyyy/m")&"/末"))) あまりきれいな式ではないかもしれませんけど^^;

こんばんわ Rinです 失礼します 回答者が、回答している最中に 質問をあまり、変えるのは、如何なものでしょうか？ 複数の回答が、提示されたら試してみるのが 礼儀ではないでしょうか。 その結果、どうなったかをレスするのも 質問者の、礼儀と思うのですが。 そして、更にそこから進んだ回答を 望むのであれば、いいとは思うのですが・・・

質問の仕方が悪く、回答者の皆様に、とてもご迷惑をおかけして、申し訳ございません。 この表は、入会日より、３ヵ月後が納入期限日となる。という表を作りたくて、計算式が分からず、質問いたしました。 2004/11/28の場合は、2005/2/28 2004/11/29の場合は、2005/2/末 2004/11/30の場合は、2005/2/末 2005/1/1の場合は、2005/4/1 2005/1/30の場合は、2005/3/30 2005/1/31の場合は、2005/3/31 2005/2/28の場合は、2005/5/28 2005/3/30の場合は、2005/6/30 2005/3/31の場合は、2005/6/末 という形にしたいのです。 よろしくお願いいたします。

> 2005/1/1の場合は、2005/4/1 > 2005/1/30の場合は、2005/3/30 > 2005/1/31の場合は、2005/3/31 この30,31の場合は間違いですよね？ =IF(B1="","",TEXT(DATE(YEAR(B1),MONTH(B1)+3,1),"yyyy/m/")&IF(DAY(B1)=DAY(DATE(YEAR(B1),MONTH(B1)+3,DAY(B1))),DAY(B1),"末")) で出来ると思います。 でも、みなさんが提示されている式をきちんと理解して使用しないと 身につきませんよ。

ありがとうございます。 計算式の意味をよく考え、勉強していきたいと思います。 表を作っていると、こうしたい。と思うばかりで・・・ また、分からない点、疑問点を質問すると思いますが、 よろしくお願いいたします。

独学でがんばってる初心者です。 ワークシートに写真(jpg)を挿入して その図を選択中に、数式バーに 「=$L$46:$O$51」 とういようにセル範囲を入力すると 写真が参照したセル範囲に変化しました。 これは行列の幅や高さにとらわれず、 どこへでも貼り付けられるので 使いようによってはとっても便利だと思います。 これはなんという機能でしょうか!? また、今は一度ダミーの写真を挿入して それからセル参照を入力するという手順で使っていますが もっとスマートに利用できないものでしょうか!? 教えてください。

図のリンク貼り付け機能です。他の画像を貼り付けなくても最初から 必要範囲をコピーして Shift 押しながら[編集]→[図のリンク貼り付け] でできますよ。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

おお( ゜∀゜)☆ で、できました。ありがとうございます♪ 「Shift」を押しながら標準のツールバーを選択すると 内容が変わるのですね。知りませんでした。 「図のリンク貼り付け機能」とても便利です。 ありがとうございました。

エクセルの並び替えで通常の操作だと3つの列までしか指定ができませんが、これをもっと増やして並び替えをする方法を誰かご存知でしょうか？ フラグみたいなものを一列用意するってことも考えたのですが、ちょっと手間になってしまうので、何か機能を使用してできればと思っております。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

理屈としては、重要度の低い順から、順に並び替えをすれば済むのではないで しょうか？それで、手間でしたら、記録マクロで記録して、それを繋げて、 １つのプロシージャにし、ワークシート上で、コマンド・ボタンでもつければ よいと思います。

Wendyさん ありがとうございます。マクロかフラグつけて対応致します。 また、困ったことがありましたら宜しく御願い致します。 胤舜

始めまして､愛里と申します｡ ﾊｲﾊﾟｰﾘﾝｸについてなのですが ある特定の文字だけにHTMLみたくﾊｲﾊﾟｰﾘﾝｸが出来ないのですが どうすればできるようになるのでしょうか? 現在は仕方が無くｾﾙ内の文章全体に掛かってしまってい 困っています お教えいただけると幸いです｡ ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

Excel のハイパーリンクはセル単位にしかできません。HYPERLINK関数を使 っても同様です。 セルを分けるか 透明の矩形を 任意の部分に重ねて 図形にハイパーリンク を付けるぐらいだと思います。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

Chiquilinさん有難う御座いました｡ HTMLのようにはいかないのですね(T_T) 貴重なご意見大変参考になりました｡

こんにちは。 商品ﾏｽﾀｰ台帳に以下のように各商品ごとのスペックが入っています。 　 A 　 B 　 C 　 D 1 品番　　品名　　ｻｲｽﾞ 　ｶﾗｰ 2 999 ああ　　190　　PK･BL 3 888 いい 240 BE･BR もう一つのブックＢには、 　 A 　 B 　 C 　 D 1 品番　　 2 品名 3 ｻｲｽﾞ 4 ｶﾗｰ となっています。 ブックＢのB１に品番を入力すると以下Ｂ列に品名や、ｻｲｽﾞも入るようにしたいです。 途中で変更があってもﾏｽﾀｰを変更すれば、自動的にブックＢも変更され、なおかつﾏｽﾀｰの行を追加したり、削除しても、影響のないようにするにはどうすればいいのでしょうか？ よろしくおねがいします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

VLOOKUP関数などは　如何でしょう

mong様　 ありがとうございます。 早速VLOOKUP関数使ってみました。 基本的な質問ですが、何列目を参照するかという項目が、違うブックの列なのですが、どのように入力すればいいですか？他のブックの範囲指定はできましたが、何番目の列かを指定しても、＃ＲＥＦ！になってしまいました。

BOOK　AのSHEET1のA1:D3にタイトル行も含めて　データがあるとして BOOK　BのB2に　=VLOOKUP($B$1,[A.xls]Sheet1!$A$2:$D$3,ROW(),FALSE) この式を下へコピペです データ範囲は適宜広げてください BOOK　B　の　B1（999など)に品番を入れてください これでトライしてみてください

mong様　　 参照したい列は　BOOK AのＢ列なのですが、教えていただいた式だとできませんでした。＃N/Aが出てしまいました。 BOOK A A B C D 1 品番　　品名　　ｻｲｽﾞ　　ｶﾗｰ 2 999　　 ああ　　190 PK･BL 3 888 いい 240 BE･BR BOOK B A B C 1 品番　 999 2 品名 3 ｻｲｽﾞ 4 ｶﾗｰ BOOK BのB1に"999"を入れると以下品名、ｻｲｽﾞ、ｶﾗｰがBOOK Aのﾏｽﾀｰを元に入れたいので、列番号は"２"になりますが、BOOKが違うのでそのまま２と入れてもだめでした。 何度も、聞いてすみません。

よこやりですみません。 mong様の式で私はできました。 「＃N/A」のエラーがでるということは 検索の値が見つからないということらしいですから もう一度「検索値」「範囲」を確認してはどうでしょうか? 「列番号」はmong様の「ROW()」式を入力でよいはずです。 おそらく「範囲」の値に問題があるのではないかと思います。 ブック、シートの指定は、単にコピペしただけでは だめなのではないかと思います。 ↓↓「範囲」の再指定のしかた↓↓ BOOK AとBを同時に開いた状態で BOOK B の B2 をクリックして数式バーに式を表示させ 「=VLOOKUP($B$1,[A.xls]Sheet1!$A$2:$D$3,ROW(),FALSE)」 の 「[A.xls]Sheet1!$A$2:$D$3」(範囲)を選択して その状態で BOOK A を選択します。 それから BOOK A のA2:D3(選択範囲)をドラッグして Enterキー　を押します。 これで自動でまた BOOK B にもどるはずです。 確かめてみてください。 わかりにくくてすみません ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

ありがとうございました。 mongさんの式で もう一度やり直したら、できました。 どうもすみませんでした。

セル内の文字制御についての質問です。 行の高さを指定した状態で、 文字制御を、「折り返して全体表示」にしたら、 折り返すだけで、やはり高さが広がりません。 ある程度基本の高さを指定した状態で、 きちんと折り返して、高さを広げつつ、全体を表示したいのですが、 どうしたら良いでしょうか？ どなたかご教示お願いします。

文字制御についての質問です。 行の高さを指定した状態で、 文字制御を、「折り返して全体表示」にしたら、 折り返すだけで、やはり高さが広がりません。 ある程度基本の高さを指定した状態で、 きちんと折り返して、高さを広げつつ、全体を表示したいのですが、 どうしたら良いでしょうか？ どなたかご教示お願いします。

こんにちは〜＾＾ 回答ではありません。 マルチポストはマナー違反です。 どこか一つを残して他は解決済みにしましょう。

複数登録してしまいました。

題のままなのですが、いつからかそうなりました。 よろしくおねがいいたします ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

答えがかえってこないようですがこれはエクセルが壊れているということなのでしょうか

Alt＋F11 で VBE 起動 表示 → イミディエイトウインドウ 出てきたイミディエイトの窓内に下のコードを貼り付けてEnterキーを押してみて下さい。 Application.CommandBars(24).Enabled = True 私は Excel 2003 を持ってないので違ってたらすみません。

貼り付けてEnterを押したけどどうもなりませんでした （改行になっただけなのですがなにか操作がちがうのでしょうか） 根拠はないのですが急になったということなのでどこかをさわったのかもしれない のですが、どちらか心当たりの方いませんでしょうか。またこうなったらこういう症状がでるというのでもかまいません。よろしくお願いします。

グラフでレーダーを使って、風向のグラフを書きたいのですが、22.5度づつ360度まであって、例えば、180度の風向がたくさんあると、そこだけでっぱるようにしたいです。 今データは、角度のデータのみ１地点につき１列並んでいます。 どなたかヒントをください。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

独学の初心者です。 「COUNTIF関数」が使えるのではないでしょうか。 たとえば、 「=COUNTIF(データベースの範囲,180)」 と入力すると180°の風向の時が何回あったかを計算してくれます。 この関数を0°〜360°までで実行して その答えをグラフのデータとして使えばどうでしょうか。 もっといい方法があるかもしれません。 他の先生方、フォローをお願いします。

かずにさんありがとうございます。 さしあたりその方法で行わせてもらいます。

数字をオートシェイプの○で囲み、内側に色をつけたいのですが、 オートシェイプを半透明にしても数字はうっすらとしか見えません。 数字を最前面にするにはどうしたらよいでしょうか？ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

こんにちは。 代案で・・・m(__)m 数字とオートシェイプのバランス・表示位置等で微調整が必要でしょうが オートシェイプを選択した状態で「数式バー」に表示させたいセルを 「=A1」の様に入力するとセルの値が表示されます。 という方法はいかがでしょうか？

>数字を最前面にするにはどうしたらよいでしょうか セルに入力されている数字を最前面にということだと思いますが これはできないように思います。 いっそうのこと、オートシェイプ自体に数字を書かれたら如何ですか。 ショートカットメニューの「テキストの追加｣で出来ます。

boyさん、被ったような内容で失礼しました。

半透明じゃなくて「塗りつぶしなし」では？

できないんですね。 micさま、「塗りつぶしなし」にすると、色がつけられないみたいです。 地道にひとつずつテキスト追加してみます。 みなさま、ありがとうございました！

数字を返したいのです。 初めて書き込みします。 いろいろなサイト調べたのですが、一向にわかりません。 A1が入力規制されています。 A1をリスト選択したときにB1に選択した文字の数字を返したいのです。 素人です。どうか宜しくお願いします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

こんにちは。 良く判らない部分が在ります。 >A1をリスト選択したときにB1に選択した文字の数字を返したいのです。 でB1に表示したいのは、 A1セルに表示した文字に対応する数字（何処かに対応表が在る？）ですか？ A1セルの文字に含まれる数字ですか？ 簡単な例が在ると適切な回答が付くと思います。m(__)m

はて　文字数を数えたいなら　=LEN(A1)ですが　数字となると...?? ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

>A1をリスト選択したときにB1に選択した文字の数字を返したいのです。 でB1に表示したいのは、 A1セルに表示した文字に対応する数字（何処かに対応表が在る？）ですか？ A1セルの文字に含まれる数字ですか？ 簡単な例が在ると適切な回答が付くと思います。m(__)m ＜＜boy-さん わかりにくい質問でご迷惑をおかけしています。 A1には車の名前が入力規制され、リスト調で書いています。 マジェスティ,フォルツァ,ジョグ B1には、それぞれに対応した値段を返したいのです。 500000,230000,54000 返信が送れてすみません。よろしくおねがいします。 GON＜＜ GONさんも返信ありがとうございます。 もしお解かりになる様でしたら宜しくお願いします。

こんにちは。 こんな感じで対応表（仮にシート名｢データ｣）が在るとして A B 1 マジェスティ 500000 2 フォルツァ 230000 3 ジョグ 54000 表示したいシートのB1セルに =IF(A1="","",VLOOKUP(A1,データ!$A$1:$B$3,2,0)) シート名・データ範囲は適宜変更してください。

＜＜boy-さん ありがとうございます。 試してみましたところかなり近づきました！ ただ全てを素直に返してくれないのはなぜでしょうか。 #N/Aが所々に出るのです。 Ａの欄も埋まっていますし、Ｂの欄も全て埋まっています。 入力規制の順番もリストと同じように並べる必要があるのでしょうか。 歯がゆく、お手間をおかけします。 よろしくおねがいします。

＜＜boy-さん もう一度見直したら、仰ったとおり処理できました。 事細かに説明いただき、本当にありがとうございました。

同じセルの中に文字列と数字（半角）が入力されているとき、 　数字だけをぬきとる数式を教えてください。 　　セルＡ1　「あいう12345えお」　を　　「12345」　というふうに・・・ 　　なお、数字の数や、入力されている場所は必ずしも同じではありません　　 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

＞セルＡ1　「あいう12345えお」 とすれば、 一般操作では、このような式になるかしらね。 =MID(A1,MATCH(FALSE,INDEX(ISERROR(MID(A1,ROW(INDIRECT("A1:A"&LEN(A1))),1)*1),),-1),MATCH(FALSE,INDEX(ISERROR(MID(A1,ROW(INDIRECT("A1:A"&LEN(A1))),1)*1),),1)-MATCH(FALSE,INDEX(ISERROR(MID(A1,ROW(INDIRECT("A1:A"&LEN(A1))),1)*1),),-1)+1) 一応、配列数式は使っても、配列確定はないので、安定して使用できると思います。 ただ、このレベルは、ユーザー定義関数で処理してしまいますが。

一応 こんな式でもできそうです。 =--MID(A1,MATCH(0,INDEX(--ISERR(-MID(A1,COLUMN(1:1),1)),),), COUNT(INDEX(--MID(A1,COLUMN(1:1),1),))) 嫌な式やと 自分でも思いますが。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

Chiquilin さん、 ＞嫌な式やと 自分でも思いますが。 そんなことはないと思います。COLUMN(1:1)の利用は、覚えさせていただきました。 私のIndirectを使った書き方は、Microsoft NewsGroup で覚えた書き方ですが、 この手の式は、ネストの制限が出てくるので、今後は、その方法を利用させていただ こうと思います。これで、少し式の利用が増えると思います。 ただ、「--」というのは、一体、誰が使い始めた方法なのか分かりませんが、文字列 から数値に変える目的だと思いますので、 ほとんど、「--」は使わずに、 「　*1　」を使用しています。

Wendyさん どうもありがとうございます。 でも実のところ気に入らないのは「INDEX(配列,)」を二回も使っていると ころなんです。 多分そんなことをしなくてもできるはずなのに 結局二つ の配列の計算を 無理やり Enter で確定できるようにしただけの式になっ てしまいました。 > ほとんど、「--」は使わずに、「　*1　」を使用しています。 今回 私が「--」を多用したのは 加減乗除を使わないという統一性を持た せたかったからで あまり深い意味はないです。 で過去のスレッドなどを調べていたら 下記のサイトにありました。 http://www2.odn.ne.jp/excel/waza/function.html#SEC74 =MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&1234567890)), LEN(A1)*10-SUM(LEN(SUBSTITUTE(A1,{0,1,2,3,4,5,6,7,8,9},)))) これで良いそうです。残念。ただこのやり方は 全角数字や半角カタカナ が混じるとダメですね。なので引き続き 自分なりに色々試してみます。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

Wendyさん、Chiquilinさんの回答は　 データが　文字+数字+文字、文字＋数字、数字＋文字、数字のみ、と 数字が連続して1箇所だけ出現する場合の方法ですね >数字の数や、入力されている場所は必ずしも同じではありません との事なので・・・ 一般機能ではEXCELのワークシート関数での文字連結機能が弱いので、 少々面倒で、且つ処理負荷が大きくなります。 (VBAの方が簡潔な処理になります：VBAで再質問されては如何でしょうか) 参考までに・・・・・ 【前提】 A1に値が入力されていてB1に数字を取り出すとして A1の総文字数が1024以内で、且つ、数字の総数が15文字以内 【設定】 １）B1を選択後、以下の数式を名前定義 　　a)名　　前：数字数 　　　参照範囲：=SUM(IF(ISERROR(VALUE(MID($A1,ROW($A$1:$A$1024),1))),"",1)) 　　b)名　　前：数字位置 　　　参照範囲：=IF(ISERROR(VALUE(MID($A1,ROW($A$1:$A$1024),1))),"",ROW($A$1:$A$1024)) ２）B1に以下の数式を配列数式として入力 　　(CtrlキーとShiftキーを押しながらEnterキーで入力) 　　　=SUM(MID(A1,SMALL(数字位置,ROW(INDIRECT("A1:A"&数字数))),1)*10^(数字数-ROW(INDIRECT("A1:A"&数字数)))) 【備考】 １）結果は数値として求められます ２）数字の総数が15文字以上になる場合は、 　　上記1)の設定をした後に、 　　a)C1に以下の数式を入力してD1から列(右)方向へコピー 　　　=IF(ISERROR(SMALL(数字位置,COLUMN(A1))),"",MID($A1,SMALL(数字位置,COLUMN(A1)),1)) 　　b)B1に=C1&D1&E1&・・・・と結果を文字連結する数式を入力します

>同じセルの中に文字列と数字（半角）が入力されているとき、 >数字だけをぬきとる数式を教えてください。 >セルＡ1　「あいう12345えお」　を　　「12345」　というふうに・・・ >なお、数字の数や、入力されている場所は必ずしも同じではありません　　 ですが ある程度の規則性はあるのでは 最大何文字数とか その規則性があれば 無駄な処理をしなくてもいいので 計算方法も変更できると思いますが また　文字列はすべて全角なのか？ 半角の場合もありえるのか等 条件も明確にされないと違った回答に なります。

Chiquilinさん、こんばんは。 ＞実のところ気に入らないのは「INDEX(配列,)」を二回も使っていると ＞ころなんです。 人のこだわりって面白いですね。 私としては、すごく関心しているのに……。 私は、INDEX関数にすごく興味を感じているんです。それは、そのデータ型 の戻り値が、すごく変則的だからなんです。ただ、問題なのは、いわゆる 揮発性関数なので、再度開くと再計算するから、何もしなくても、保存を 促せられることなんです。 実は、 ＞=MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&1234567890)), ＞LEN(A1)*10-SUM(LEN(SUBSTITUTE(A1,{0,1,2,3,4,5,6,7,8,9},)))) の使い方は知っているのですが、インクリメンタルな数字を、数字の 羅列で使う方法は、逆に、私は使わないんです。 夜目狸 さんへ ＞VBAの方が簡潔な処理になります：VBAで再質問されては如何でしょうか 文字列の中から数値を抜き出す質問は、最近、私や他の方が、VBA サロンに書 いたものが、それにあたるのだろうとは思います。ただし、数列が複数に渡っ て出てくるのは、VBAサロン側で私の作ったものは想定はされていません。 ＞数字が連続して1箇所だけ出現する場合の方法ですね 私や Chiquilin さんが、書いたのは、時々掲示板に出てくる質問であり、そ の解答の一例であるのはご存知のこととは思います。 それは、出された例題の越えて考える必要があるかどうかは、ご質問者の反応 から、判断したいと思いますが、とりあえず、私のほうとしては、このスレッド に対しては、特別なことがない限りは、終了させていただきます。 なお、複数の数列が存在する場合に、VBA で処理するには、たぶん、配列の出 力するほうが良いような気がします。まとめてしまったら、その数列の意味が なくなるからです。(例:　本日、気温8度、湿度30%　)

Wendy様 いつも理論的、且つ、的確な回答を拝見させて頂いて勉強させて頂いておりますm(__)m >文字列の中から数値を抜き出す質問は、最近、私や他の方が、VBA サロンに書 >いたものが、それにあたるのだろうとは思います。ただし、数列が複数に渡っ >て出てくるのは、VBAサロン側で私の作ったものは想定はされていません。 いえ、既にVBAサロンで回答されている内容を指しているつもりは全く有りません。 ロジック的には、左程難しくないので、新規で質問をすることで解決するものと思っております。 >私や Chiquilin さんが、書いたのは、時々掲示板に出てくる質問であり、そ >の解答の一例であるのはご存知のこととは思います。 はい、承知しております。 >それは、出された例題の越えて考える必要があるかどうかは、ご質問者の反応 >から、判断したいと思いますが、 質問の文章で >なお、数字の数や、入力されている場所は必ずしも同じではありません と有りましたので、私の解釈としては、数値は一塊でない場合があると判断して 回答をしたものであり、『出された例題の越えて考える』とは思っておりません。 飽く迄、質問の範疇と考えて、皆さんの『完璧な回答』の後に、愚案を回答しているつもりです >とりあえず、私のほうとしては、このスレッド >に対しては、特別なことがない限りは、終了させていただきます。 『特別な』の意味が理解できませんが、 私の回答で気分を害されたのでしたら、御詫び申し上げます。 Wendy様の様なスキルがある方の回答の後に稚拙な回答をして 誠に申しわけ御座いませんでした、深く御詫び申し上げます。 私は、仕掛かり中の物が完了した時点で、今後このサイト、 並びにWendy様が回答されているサイトでの回答は致しませんので 出来ましたら、このスレッドをフォロー頂けますようお願い申し上げます。 関係者の皆様、大変ご迷惑をお掛けいたしました。 皆様のご検討をお祈り申し上げますm(__)m

夜目狸様 ＞『特別な』の意味が理解できませんが、 ＞私の回答で気分を害されたのでしたら、御詫び申し上げます。 私は、決して、気分を害しているわけではありませんから、 私の誤解を受けやすい書き込みに、お気を煩わせて、たいへんにすみません。 「特別」というのは、名指しされた場合です。 ＞私は、仕掛かり中の物が完了した時点で、今後このサイト、 ＞並びにWendy様が回答されているサイトでの回答は致しませんので ＞出来ましたら、このスレッドをフォロー頂けますようお願い申し上げます。 そんなことをおっしゃられると、本当に困ります。 逆に、私が書き込めなくなってしまいますから、どうか、そのようなことを おっしゃらないでください。 いつも、夜目狸さんの書き込みには、尊敬の意味をこめて、読ませていただい ておりますから。それは、お気づきだとは思います。 私は、この手の解法のパターンは決まってしまっていますので、このスレッド に関しては、私自身の解法の式は、１つで十分だと思っています。 それと、私自身としては、今後、なるべく書き込みは減らしていくようにしようと 思っています。私個人の時間的な制約のためですから、誤解されませんように。 それと、VBAサロンの書き込みの件ですが、まだ、それほど日数が経っていません。 内容的には、同じものだと思います。 VBAサロンの　 【タイトル】数値の切り出し 【記事番号】68111 【 日時 】04/12/30 21:45 【 発言者 】初心者 の親記事に、いくつか案が出ていますし、私も書かせていただきました。 私の書き込みは、１月１日です。 どうか、夜目狸さんには、こちらで、いつものように、お続けになりますよう に、心よりお願いいたします。よろしく、ご理解のほどをお願いします。m(__)m

おはようございます Rinです 夜目狸さん、Wendyさんへ 今回の質問は、私にはとても難しそうで 勉強のために、回答をずっと拝見していましたが、 お二人の書き込みを見て、大変残念に思います。 お二人の、これまでの回答を拝見して、どれだけ 私自身、勉強になったか知れません。 多くの質問者の方や、回答者の方も同じだと思います。 そんな、私の尊敬するお二人が、このサイトの回答に 書き込みされなくなったり、回答の数が減ったりしたら 本当に、寂しくなってしまいます。 こう思うのは私だけでは、ないと思います。 どうか、これからも、これまで通りに 回答をして頂く様に、よろしくお願い申し上げます。 Rinより

何となく大変なことになっているのかしらと思いつつも INDEX関数のことで気にな ったことが一点ありましたので。 Wendyさんへ： > ただ、問題なのは、いわゆる揮発性関数なので、再度開くと再計算するから、 とおっしゃっていますが INDEX関数は 最近のバージョンでは揮発性関数ではあり ませんので。もしご存知でしたら済みません。 夜目狸さんへ： いつも拝見して参考にさせて頂いております。文章を読む限りでは こちらや他の サイトへこられなくなる理由が「気分を害されたから」なのか「お仕事の都合」 なのかの判断が付かないのですが 前者でしたら言葉の行き違いの問題と思われま す。非礼はお詫び致しますので どうかもうしばらくお付き合い下さい。

38行の表があり、最後に入力された行数の合計に単位（枚）を付けて表示したいのですがどのような関数を入れたらいいでしょうか？

こんにちは〜＾＾ 表示形式のユーザー定義で G/標準"枚" とされたら如何でしょうか＾＾ これでしたら計算式は =SUM(A1:A38) どうしても計算式だけでということでしたら、 =SUM(A1:A38)&"枚"

'=COUNT(A:A)&"枚" データがA列にあるとして

ｋ＠自転 さん　　　かぶりました。　大変失礼をいたしました 　　　　　　　　　今年はじめてでした　この一年何件かぶるか？　 　　　　　　　　　この調子では　記録更新　かな

あ ＾＾； セルの数でしたね。 失礼しましたm(_ _)m

>あ ＾＾； >セルの数でしたね。 >失礼しましたm(_ _)m 怪我の功名です　　　そそっかしいもんで

mongさん、こんにちは〜＾＾ > この調子では　記録更新　かな かもしれませんね＾＾ >怪我の功名です　　　そそっかしいもんで わたしも同じです＾＾ かぶりついでに、今年も宜しくお願いしますm(_ _)m ひろ さん、すみません。スレッドお借りしましたm(_ _)m

数多くの書き込みありがとうございます。 おかげさまで無事解決しました。

長めの文章をセルに入力すると、文末の位置が画面とプレビューで異なります。画面では罫線にぴったりなのに、プレビュー（および印刷）では空白があります。 何とかできないものでしょうか？ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

エクセルの仕様です。計算速度精度が優先されており印刷の精度は二の次です。 セル幅を広げるしかないです。あきらめるしかないと思うよ。 ++++++++++++++++++++ OS      ⇒Windows 98 Version⇒Excel 97 ++++++++++++++++++++

回答ありがとうございます。 残念です。 皆さん困ってないんですかねえ。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

正確に言うと印刷精度じゃなく画面表示が正解です。_(._.)_ プレビューで調整して印刷をすればそれほど不自由はないかな？

画面見てレイアウト決めた後に文字サイズをひとつ小さくするとか。。 「セル内で折返し」にしてる場合は、文末に改行コード（ALT+ENTER）を余分につけるとか。。

いくつか方法を提示しておきますね。 まず、印刷プレビューと印刷結果が大きく異なる場合は、 プリンタドライバが影響している場合がありますので、 最新のものに更新してみてください。 モニタ表示と印刷プレビュー(印刷結果)が大きく異なる時は、 コントロールパネル　画面　設定タブ　の [詳細]ボタンを押して、全般タブのフォントサイズの欄で、 その他　を選択して、100% になるよう調節してみてください。 # 当方Win2000&XL2000ですので、若干表記が異なるかも? これでも完璧に一緒にできる訳ではありませんが、 参考まで。。。 [XL2002]列の幅と行の高さ表す単位について http://support.microsoft.com/default.aspx?scid=kb;ja;401638 [XL2002]異なる環境で印刷範囲やセルの幅/高さが変わる場合の対策 http://support.microsoft.com/default.aspx?scid=kb;ja;400271

この記事は削除されました

皆さんありがとうございます。 それぞれ試してみます。 根本的な解決はマイクロソフトがやってくれるまで待つしかないのですね。 一応「解決」にします。

以前から使用しているエクセルファイルですが、 ウインドウを分割して作業する際にシート内にある図形をクリックすると 他のウインドウもその図形を基準としてるかのように動くのですが、 これって何か設定があるのでしょうか？ 他のシートでは同様な動きはみられません。 ++++++++++++++++++++ OS      ⇒Windows 98 Version⇒Excel 2000 ++++++++++++++++++++

再度、他のシートでも試したところ同じでした。XPでも･･･ と言うことは、excel自体がこのようになってしまう物なの？ 分割してシート上方の項目だけを見たいのに･･･。 なにか良い方法はないのでしょうか？

こんばんは〜＾＾ >シート上方の項目だけを見たいのに･･･。 でしたら、分割ではなく、ウィンドウ枠の固定を使われたら如何でしょう。 はずしてたらすみません＾＾

すみません、また、お願いします。 　列に上から順に適当に入力してもらい、最後に入力してもらった値を別のセルに 表示したいのですが よろしくお願いします。

こんにちは。 任意の列に入力した最下行のデータを別セルに表示と云う事でしょうか？ 入力値が数値・文字列・空白行の有無で数式が変わるので こちら↓を参考にされては？ 最下行の数値を返す http://www2.odn.ne.jp/excel/waza/function.html#SEC62 以下 最下行にある数値または文字列を返す数式 まで在りますので・・・m(__)m

boyさん、早速ありがとうございました。 １週間以上考えていまして マクロを使わないとダメかと考えていました、出来るんですね。

下記のような表を作っています。 表の値によって、セルの背景色を変更したいのですが、いい方法はありませんか？ ┌─┬─────┬─────┬─────┬─────┐ │１│　　Ａ　　│　　Ｂ　　│　　Ｃ　　│　　Ｄ　　│ ├─┼─────┼─────┼─────┼─────┤ │２│　　　　　│　ひよこ　│　うなぎ　│　わ　に　│ ├─┼─────┼─────┼─────┼─────┤ │３│　　月　　│（きいろ）│　　　　　│（きいろ）│ ├─┼─────┼─────┼─────┼─────┤ │４│　　火　　│　　　　　│（あ　お）│　　　　　│ ├─┼─────┼─────┼─────┼─────┤ │５│　　水　　│　　　　　│　　　　　│（みどり）│ ├─┼─────┼─────┼─────┼─────┤ │６│　　木　　│　　　　　│（あ　か）│　　　　　│ ├─┼─────┼─────┼─────┼─────┤ │７│　　金　　│（し　ろ）│（し　ろ）│（し　ろ）│ ├─┼─────┼─────┼─────┼─────┤ │８│　　土　　│（グレー）│（グレー）│（グレー）│ ├─┼─────┼─────┼─────┼─────┤ │９│　　日　　│（グレー）│（グレー）│（グレー）│ ├─┼─────┼─────┼─────┼─────┤ │10│　　月　　│（きいろ）│　　　　　│（きいろ）│ ├─┼─────┼─────┼─────┼─────┤ │11│　　火　　│　　　　　│（あ　お）│　　　　　│ ├─┼─────┼─────┼─────┼─────┤ 　　　　　　　　　　　・ 　　　　　　　　　　　・　　※（）内の色は背景色です。 　　　　　　　　　　　・ 最初に『条件付書式設定』で試してみたのですが、条件が多すぎて設定しきれませんでした。 マクロなどを使えばできるのでしょうか･･？ 宜しくお願いいたします！ ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2003 ++++++++++++++++++++

この記事は削除されました

なんだかおかしくなってしまいました･･ すみません、もう一度書きこみます！ ----------------------- 下記のような表を作っています。 表の値によって、セルの背景色を変更したいのですが、いい方法はありませんか？ ┌─┬─────┬─────┬─────┬─────┐ │１│　　Ａ　　│　　Ｂ　　│　　Ｃ　　│　　Ｄ　　│ ├─┼─────┼─────┼─────┼─────┤ │２│　　　　　│　ひよこ　│　うなぎ　│　わ　に　│ ├─┼─────┼─────┼─────┼─────┤ │３│　　月　　│（きいろ）│　　　　　│（きいろ）│ ├─┼─────┼─────┼─────┼─────┤ │４│　　火　　│　　　　　│（あ　お）│　　　　　│ ├─┼─────┼─────┼─────┼─────┤ │５│　　水　　│　　　　　│　　　　　│（みどり）│ ├─┼─────┼─────┼─────┼─────┤ │６│　　木　　│　　　　　│（あ　か）│　　　　　│ ├─┼─────┼─────┼─────┼─────┤ │７│　　金　　│（し　ろ）│（し　ろ）│（し　ろ）│ ├─┼─────┼─────┼─────┼─────┤ │８│　　土　　│（グレー）│（グレー）│（グレー）│ ├─┼─────┼─────┼─────┼─────┤ │９│　　日　　│（グレー）│（グレー）│（グレー）│ ├─┼─────┼─────┼─────┼─────┤ │10│　　月　　│（きいろ）│　　　　　│（きいろ）│ ├─┼─────┼─────┼─────┼─────┤ │11│　　火　　│　　　　　│（あ　お）│　　　　　│ ├─┼─────┼─────┼─────┼─────┤ 　　　　　　　　　　　・ 　　　　　　　　　　　・　　※（）内の色は背景色です。 　　　　　　　　　　　・ 最初に『条件付書式設定』で試してみたのですが、条件が多すぎて設定しきれませんでした。 マクロなどを使えばできるのでしょうか･･？ 宜しくお願いいたします！ ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2003 ++++++++++++++++++++

こんばんわ Rinです >表の値によって、セルの背景色を変更したいのですが、いい方法はあり >ませんか？ 条件付書式にしても、その条件が良く解からないのですが。 表の値とは、どんな値なのでしょうか？ B3セルに、「ひよこ」とあったら、黄色なのでしょうか？ 理解力がなくて、ゴメンナサイ!!

こんにちは〜＾＾ やりたいことはこんなことかな？？？ シート見出しを右クリックしてコード表示を選択してください。 出てきたウィンドウに↓これを貼り付けてください。 A1:C5の範囲で1〜10までの整数を入力すると色がつきます＾＾ はずしてたらすみませんm(_ _)m Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer If Intersect(Target, Range("A1：C5")) Is Nothing Then Exit Sub i = 1 For i = 1 To 10 If Target.Cells.Value = i Then Target.Cells.Interior.ColorIndex = i + 2 End If Next i End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

VBAサロンでも、ハンドル名を変えて同じ内容の書き込みがあります。 どちらか１つにしたほうがよいと思います。

はじめまして、 Wendyさん、私はそうじろうさんとは別人です。 同じような質問なので引っ越して来ました、ここで良いでしょうか？ ワークシートのセルで　例えば　=IF(A1=3,赤,"")　で赤の部分に セルの色とかフォントの色の指定のコードをいれたいのですが それと赤の部分はそのセルだけでなく、ほかのセルも指定したいのですが マクロを使わないで出来ないでしょうか？ そうじろうさん邪魔してすみません。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

puru2さん、 ＞それと赤の部分はそのセルだけでなく、ほかのセルも指定したいのですが これ自体は、条件付書式で、他のセルの値を参照させれば出来ますね。 ＞セルの色とかフォントの色の指定のコードをいれたいのですが 私が説明すると返ってわかり難くなるかもしれませんが、色をコード化して、 それをセルに反映させて「色をつける」というのは、VBA のプロシージャー (マクロ)でないと無理だと思います。

そうじろうさんの表は、つまり曜日ごとに色分けしたいってことですかね？ puru2さんの質問もそうだけど、要するに「条件付き書式」という機能を ご存知でないっぽいだけなのでわ。。 書式⇒条件付書式⇒（あとは勘と応用力で・・・・）

Wendyさん、micさん、ありがとうございました。 昨日、本屋で立ち読みして、数冊読みましたが、ワークシート関数ではセルの色付けのようなものが無いのが分かりました、マクロでないとダメみたいですね。 micさんのご指摘とおり、条件付書式知りませんでした、もっと勉強します。 私の方は解決しました。 あと、そうじろうさんの方、よろしくお願いします、 マクロでないと無理みたいですね

そうじろうさん、私は初心者なので回答になるかわかりませんが 「条件付き書式」では　１セルに条件によって３色までは指定出来るようです、 ３色までの選択で良いなら、論理演算子の関数(Or,And)を使えば、セルが重複してても色指定出来ますよ 例えば　カレンダーなら　９，１１，１２月は２３日祭日で赤表示するとして 「条件付き書式」で　条件に　=Or($A$1=9,$A$1=10,$A$1=12) 　　　　　　　　　　　　　　　　　　A1に月の数値があるとします とすれば条件式は１行ですみます。

v-lookやif関数で文字はセルの条件次第でリンクさせれますが セルの中に図形がある場合はどうすればリンクさせれるのでしょうか？

おはようございます＾＾ Shiftキーを押しながら編集をクリックすると、 図のリンク貼り付けがあります。 これではダメですか？？？ はずしてたらすみません＾＾

すみませんm(_ _)m おもいっきりはずしてましたm(_ _)m

度々＾＾ セルの中の図形とはどういったものですか？ オートシェイプ？？？