MIYUKIさんへ　 オプションありました。　　 どうも有難う御座います。

異なるファイル（book）上にあるシートを、現在開いている（任意の） BOOKへ挿入するにはどうしたらよいでしょうか？ 「挿入-オブジェクト」だと図表扱いになってしまい、うまくいきません。 よろしく御願いします。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2003 ++++++++++++++++++++

こんにちは。 >異なるファイル（book）上にあるシート のシートタブ（シート名が書かれた部分）を右クリック 「移動またはコピー」を選択 「移動先ブック名」を >現在開いている（任意の）BOOK にしてＯＫ。 コピーにする場合は「コピーを作成する」にチェック。

オートフィルタの使い方がわからず、教えていただきたいです・・・ A B C 1 56 100 2　山田　123 45 3 88 55 4 122 33 5　田中 155 2 6 44 34 というようにセルA1〜A3はセル結合してあり、山田さんのデータは三行分あります。 名前でオートフィルタを実行すると、 A B C 1 山田 56 100 しか表示されず、実際には下記の通り結合している三行分を表示して欲しいのです。 A B C 1 56 100 2　山田　123 45 3 88 55 セル結合している場合のオートフィルタ実行は仕方のない結果なのでしょうか・・・・ すみませんが、よろしくお願いします。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

フィルタ機能を使う表に セルの結合は使わないようにしましょう。 方法が全くない訳ではありませんが お勧めできません。 A 1 山田 2 =A1 3 =A1 4 田中 5 =A4 6 =A4 このように入力します。A2 と A3 をコピーして A5セル以降に貼 り付けていきます。 X 1 2 3 次に何も入力されていないセル３つを結合します。例えば X1:X3 を結合。 これをコピーして A1セルを選択 右クリック[形式を選択して貼り付け] →[書式]にチェック入れて[OK] 後は 右オートフィルコピーで[書式のみコピー] この状態で タイトル行を作成の上 フィルタ機能を使ってみて下さい。 表の作りを変えた方が良いと思います。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

Chiquilinさんへ ありがとうございました♪ 教えていただいた通りで、解決できました！ こんな方法があるなんて、とてもびっくりしました。 でも、確かにおっしゃる通り、表の作成の方法自体も考え直して行こうと思います。 ほんとうにたすかりました。

先ほど条件書式のコピーについてお聞きした者ですが、 続いて教えていただきたいのです・・・・ 条件書式を利用し、セルに色をつけると、その後、手動で別の色をつけようと しても色を変えることができませんでした。 条件書式での設定が優先されているんだと思うのですが、手動で色をつける ことはできないでしょうか？

>条件書式での設定が優先されているんだと思うのですが、手動で色をつける >ことはできないでしょうか？ 条件付書式を解除です

ｍｏｎｇさん こちらでの質問にも答えていただいて、ありがとうございます。 条件付書式の設定を生かしたまま、手動で色を付加し、 もし、手動で色を取り除いた場合には、条件付書式で設定した色に戻したいのです・・資手動で色をつけることへの優先順位を上げる・・・というようなことができたら・・・ と思うのです。 度々面倒をおかけしますが、ご存知の方がいらっしゃればお願いします。

こんにちは。 ＞手動で色をつけることへの優先順位を上げる・・・というようなことができたら・・・ ＞と思うのです。 Excelでは、条件付書式の色と、書式の色とは、管理しているところが別なので、 共有することができません。（私自身も、同じパターンなどの色をつけるのに、 なぜ、そのようになっているのか、疑問に思っています。） もし、任意の色を付けることをするなら、その条件付書式で、別の場所で、色を 戻す「条件」を付けなくてはなりません。

Wendyさん ありがとうございました。 教えていただいた方法を参考にもう一度考えてみたいと思います。

>教えていただいた方法を参考にもう一度考えてみたいと思います 条件付き書式は条件を3つ設定できます、しかし　最初に設定したの条件のほうが　 　優先度は高いです

ありがとうございます。 ３つの中でも優先順位があったんですね・・勉強になりました。 また機会がありましたら、よろしくお願いします！

アドバイスいただきありがとうございました。 是非参考にしたいと思います！

一つのBookにデータ一覧があります。ここには重複しない番号がふってあります。 別のBookでこの番号を入力すると、そのデータ一覧の行の情報を引っ張っれるように したいのです。 欲しいのは、データ一覧のすべてではなく、一部のセルになります。 列は固定で、行番号をキーになる数字の行番号にしたいのですが、どんな関数を 使えばよいのでしょうか？ ++++++++++++++++++++ OS      ⇒Windows 98 Version⇒Excel 97 ++++++++++++++++++++

こんにちは。 >ここには重複しない番号がふってあります >行番号をキーになる数字の行番号にしたいのですが 別ブックの重複しない番号をキーにデータの一部 を表示出来れば良いのでしょうか？ データやシート構成がわからないので何とも云えませんが・・・。 「VLOOKUP」か「INDEX」と「MATCH」では駄目でしょうか？

こんにちは(^^) �@「番号がランダムまたは数字ではない場合」 「番号」がデータベースの左端列であればVlookupという関数を使えばできます。 ＝Vlookup（検索値,範囲,範囲の左から何列目を表示するか,0） 範囲の左端列を検索し、検索値と合致するものがあればその行の何番目の列を表示するか指定できます。 検索値には調べたい「番号」を入力するセルアドレスを指定するのがよいでしょう。（A1など） 範囲はデータベースのシートの「番号」が含まれる範囲を指定しなければなりません。 最後の0は気にしないでください。（説明するのが大変なので調べてください） �A「番号」が通し番号の場合 INDEX関数を使うとよいでしょう。 INDEXは簡単なので調べて使ってください。 無責任ですみません。

ビブロさん、ありがとうございます。 少し、調べてみます。 ｂｏｙさん、構成はこんな感じです。 　　　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　Ｅ　　　… 　１　００１　　あ　　　　い　　　　う　　　　え 　２　００２　　お　　　　か　　　　き　　　　く　　 　３　００３　　け　　　　こ　　　　さ　　　　し 　４　００４　　す　　　　せ　　　　そ　　　　た　　 　５　００５　　ち　　　　つ　　　　て　　　　と　 　…　 Ａ　００１　　　　　　上記がデータ一覧です Ｂ　　あ　　　　　　　先のように“００１”を入力すると Ｄ　　う　　　　　　　“あ”“う”を表示したいのです。　 … こんな説明でわかるでしょうか？ “あ”“う”が入るセルにはどんな関数を書けばよいのでしょう？

こんにちは。 既にビブロ さんが書いていますが Ａ１に「００１」と入力してＢ１・Ｄ１に表示するなら 別なブックと云う事なので Ｂ１に =VLOOKUP(A1,[Book名.xls]シート名!セル範囲,2,0) Ｄ１に =VLOOKUP(A1,[Book名.xls]シート名!セル範囲,4,0) の様な感じになります。（列番号のみ変更） ※=VLOOKUP(A1,[Book名.xls]シート名!セル範囲,4,0) 　　　　　　　　　↑ココの部分を対象のブックのセル範囲を指定します。 慣れるまでは直接別ブックのセル範囲をマウスで範囲選択した方が 良いと思います。 ※未入力とエラー処理は考慮していません。

Ｂｏｙさん、ありがとうございます。 今、試してみましたが、“＃ＲＥＦ”が戻ってきてしまいます。 ちなみに対象のセル範囲ですが、列全部を対象にしたいのですがＡ：Ａとかでよいですか？ 関数を入れる側のＢ１やＤ１は都合により複数のセルが結合されてますが それは問題になりますか？

こんにちは。 >“＃ＲＥＦ” セル参照ですかね？ 入力した数式をコピーして掲示板に 貼り付けられますか？

入力した数式は下記です。 =VLOOKUP(C3,[申請受付.xls]Sheet1!A:A,4,0) すみません、よろしくお願いします。

こんにちは。 元の表はＡ列からなんですね？ >=VLOOKUP(C3,[申請受付.xls]Sheet1!A:A,4,0) 　　　　　　　　　　　　　　　　　 ↑ココ これだと範囲がＡ列限定なので１列しか無いので ４列目のデータを取得出来ません。 =VLOOKUP(C3,[申請受付.xls]Sheet1!A:D,4,0) としたらどうなるでしょう？

ｂｏｙさん、無事、解決しました！ お手間とらせてすみませんでした。 本当に助かりました。 ありがとうございました。

Excelの初心者です。 セルに計算させた日数を表示させたいのですが、どなたか教えていただけないでしょうか？ 具体的には、A1のセルに「平成16年1月1日」と表示させ、A2のセルに「平成16年12月31日」と表示させます。そして、A3のセルには「365日間」と表示させたいのですが。 よろしくお願いします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

A3 =A2-A1 A3の書式を　ユーザー定義で #" 日間"

こんにちは ＞「365日間」と表示させたいのですが。 日付がシリアル値なら、単純に　A2-A1　で３６５になりますが、これは今年が閏年だからです 来年では当然３６４になります ３６５日間と表示させるなら、セルの書式設定＞ユーザー設定で　０"日間"としてください。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

mongさん、oniさん、早速の回答ありがとうございました。 無事解決しました。今後ともよろしくお願いいたします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

教えて下さいm(_ _)m いつも通りエクセルを起動したところ 漢字・ひらがな・カタカナのフォント（HGS創英角ポップ体など）が消えてました。 残っているフォントはMSゴシック・明朝だけです・・・。 アルファベットのフォントは全て残っているのですが、どうしても原因が分かりません。 WindowsMeのシステムの復元をしましたが、元には戻りませんでした。 バージョンはExcel2000です。 どうか宜しくお願いします。 ++++++++++++++++++++ OS      ⇒Windows ME Version⇒Excel 2000 ++++++++++++++++++++

こんにちは。 ＞漢字・ひらがな・カタカナのフォント（HGS創英角ポップ体など）が消えてました。 ＞残っているフォントはMSゴシック・明朝だけです・・・。 こういう状態ですと、インターネットのサイトの文字も少し違った状態に見えるはず です。フォントキャッシュがおかしくなっているかもしれません。 基本フォント(MSゴシック・明朝)以外でしたら再インストールする方法がありますが、 一度、起動の時に、オプションで選んで、ブートログを取ってみると、分かる ような気がします。分かっても、そのままでは対処できないのですが。 例えば、 LoadStart = c:\windows\fonts\serife.fon LoadFail = c:\windows\fonts\serife.fon Failure cod is 0016 と、エラーが出てきます。 この場合、マザーボードに問題が発生していることが多いようですね。 今の段階では、はっきりといえませんが、 ＞WindowsMeのシステムの復元をしましたが、元には戻りませんでした。 システムの復元ではなくて、再インストールのほうがよいのではないでしょうか？

[Windows9x/Me フォントトラブル対処法とフォントの限界] http://homepage2.nifty.com/winfaq/fontstrouble.html [フォントやアイコン、最大化／最小化ボタンがおかしくなりました] http://homepage2.nifty.com/winfaq/wme/trouble.html#74 ウインドウの [最大化] ボタン、[最小化] ボタンおよび [閉じる] ボタンが正しく表示されない場合の対処方法 http://support.microsoft.com/default.aspx?scid=kb;ja;880511

ありがとうございましたm(__)m >[Windows9x/Me フォントトラブル対処法とフォントの限界] にて解決しました。 本当にありがとうございます！助かりました。 ++++++++++++++++++++ OS      ⇒Windows ME Version⇒Excel 2000 ++++++++++++++++++++

よろしくお願いします。 私のマシンに入っているExcel 2000を開くと 次のように入っています。 ・Row（横）は、A、B、C・・・・ ・column（縦）は、１、２、３・・・ 他の人から頂いたExcelファイルは、 次のようになっています。 ・縦横とも１、２、３と数字 ・他のシートのリンクが、Sheet1!R[-22]C この頂いたファイルにはマクロも設定されていないし 他のExcelファイルへのリンク等もないので １．普通に、横はABC、縦は１，２，３ ２．リンクは、Sheet1!A1 のようにするには、どこの設定を変更すれば良いのでしょうか？ 教えて下さい。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

ツール、オプション、全体で R1C1参照形式を使用する のチェックをはずす 　　　　ではないですか　再確認を！！！

こんにちは。 「ツール」「オプション」「全般」タブの 「R1C1形式・・・」のチェックをはずしてみてください。

mong さん、かぶりました。m(__)m

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

恐れ入ります。どなたかわかる方教えてください。 　エクセル２０００（9.0.6936　SP-3）ですが、データーを基にシート上にグラフを作成します。そのグラフをコピー＆ペーストすると、グラフエリアもプロットエリアも小さくなってしまいます。そのデーターを入れ替えて使うので、同じ大きさで複製を作りたいのです。 　他のＰＣでそのデーターを編集しても同様に小さくなってしまいます。逆に他のデーターを自分のPCで編集しても同じ大きさで出来ます。設定の問題なのでしょうか？ よろしくお願いいたします。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

こんにちは。 > データーを基にシート上にグラフを作成します。 確認しますが、そのシートのズーム設定が１００％以外になってませんか？ もし１００％表示以外の設定であれば、それはExcel仕様(バグ)によるものです。 対処としてはズーム設定を１００％に戻してからグラフのコピー＆貼付をするしか 今のところ方法はいみたいです。 ＭＳサポ情報 ★[XL2000] 埋め込みグラフをコピーすると異なったサイズで貼り付けられる http://support.microsoft.com/default.aspx?scid=kb;ja;211739 では。

過去ログを調べましたが調べきれなかったので教えて下さい。 数式の入った列があります。 所々、数式を消して手入力で数字が入力してあります。 数式が入っているセル、または、入っていないセルに色をつけることは可能でしょうか？ 条件付書式で出来ないかと思いましたが分りませんでしたので 宜しくお願いします。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

=GET.CELL(検査の種類,範囲) 検査の種類を48(数式かどうか) とかなんとかして、数式かのチェックをするしかないのかな？

こんにちは。 「編集」「ジャンプ」「セル選択」を押下 「数式」にチェックしてＯＫ。 で「数式」に入ったセルだけが反転選択されるので 「書式」「セル」から色を付けられてはいかがでしょう？ チェックを「数式」から「定数」にすれば 「手入力」されたセルが選択されると思います。

>条件付書式で出来ないかと思いましたが分りませんでしたので これに目を取られて　考え過ぎでした　　ボツです

ありがとうございます！ ジャンプからの色つけも考えたのですが出来れば入力と同時に数式ではないことが分るようにしたいのです。 色つけが無理なら数式を確認が出来るような関数があれば教えて下さい。 mongさんの数式で数式が確認出来るのでしたら、すいませんが検査の種類には何が入るか教えていただけませんでしょうか？ お願いします。

こんにちは。 では mong さんの方法と条件付書式で 【準備】 数式の入力されている列が仮にＡ列の場合 A1セルを選択して「挿入」⇒「名前」⇒「定義」から 「名前」欄に任意の名前（仮に「式」）を付けます。 「参照範囲」に「=GET.CELL(48,A1)」としてＯＫ。 【本題】 数式の入力されている列が仮にＡ列の場合 A列を選択して「書式」⇒「条件付書式」から 「数式が」　「=式=1」として「パターン色」を設定してＯＫ。 数式の入力されているセルに色が付きます。

boyさんありがとうございます！ 出来ました！感動です！ 「=GET.CELL」がなんなのか理解できていませんがこういう方法もあるってことで。 mongさんも例題で出してくださったのでもしかしてポピュラーな数式なのでしょうか。 時間をみつけて調べてみようと思います。 ありがとうございました。

Ｓｈｅｅｔ１のａ列に会社名、ｂ列に電話番号が１０００社分のデータ入っていて、ｓｈｅｅｔ２のａ列に会社名が入ってて、ｂ、ｃは住所がはいっているのですが、ｄ列に、ｓｈｅｅｔ１で対応する「会社の電話番号」を表示させるにはどうしたらいいのですか？なお、ｓｈｅｅｔ２のａ列の会社はｓｈｅｅｔ１のａ列にはない会社名も含まれていますので、そこは表示できなくてかまいません。

D1 =IF(ISNA(VLOOKUP(A1,Sheet1!$A$1:$B$1000,2,FALSE)),"",VLOOKUP(A1,Sheet1!$A$1:$B$1000,2,FALSE)) 　これを下へコピペ

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

mongさん質問宜しいですか。 使用関数で『ISNA』を使うのは何故ですか？ Excel初心者で？？？？？です。宜しければご教授を お願い致します。 ｍ(＿ ＿;)ｍ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

エクセルで入力するときに　エンターキーを押すと カーソルが下に移動しますよね・・ それを　横のセルに移動する方法ってあるんでしょうか？ 初心者なので　わかりません だれか・・教えてください ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

こんばんは ツール、オプション、編集、のタブ中央ほどに下の文字の入った 窓があると思いますそこで方向を選択してください。

ちなみに設定を変えなくても Tab キーで横に移動します。 Tab キーで横移動しておくと Enter を押すことで ひとつ下の行で Tab で 最初に移動する前の列 に移動させることができます。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

わかりました〜〜〜 ありがとうございました

オートシェイプを関数でカウントすることはできないのでしょうか？ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

関数ではよく分かりませんが、マクロで数えることができます。 ツール⇒マクロ⇒マクロ⇒任意のマクロ名⇒作成 Sub 任意() MsgBox ActiveSheet.Shapes.Count End Sub 次に、ツール⇒マクロ⇒マクロ⇒先ほど作ったマクロを選択⇒実行 すると、ボックスが出て数を教えてくれます。数えた数をどこかのセルに入れたい場合は、 Range("A1")=ActiveSheet.Shapes.Count とすればA1にその数が入ります。ただしA1にデータや関数が入力されていた場合、有無を言わさず消えてしまいますので注意してください！ この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

こんばんは。 こんな風にしてみたら？ ツール−マクロ−Visual Basic Editor 挿入−標準モジュール で以下のものを貼り付けます。 Function ShapesCount(Optional ByVal シート As Worksheet) Dim shp As Shape Dim cnt As Long Dim mySheet As Worksheet If シート Is Nothing Then Set mySheet = ActiveSheet For Each shp In mySheet.Shapes 　 If shp.Type = 1 Then 　　 cnt = cnt + 1 　 End If Next shp ShapesCount = cnt End Function 一番右上端の「×」をクリックして閉じます。 後は、ワークシートに、ふつうの関数と同じように、 =ShapesCount() と入れれば、オートシェイプの数が出ます。 ビブロさんへ。 Shapes では、オートシェイプの数だけではないのですね。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

こんばんは。 EXCELでコピーしたり連続数字を作成するのに 元セルの右下にカーソルをもっていきポインタを 十字にしてダブルクリックすると一挙に処理が 行えるという機能がありますが、なんという 呼び方でしたでしょうか。。。オートコンプリート ではないみたいですし．．． ++++++++++++++++++++ OS      ⇒Windows ME Version⇒Excel 2000 ++++++++++++++++++++

っていうじゃなーい。^^ http://excimer.hp.infoseek.co.jp/HP-Excel/e-FillN.htm

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

ＶＬＯＯＫＵＰ関数で、４桁の数字を検索値に設定しています。どうしても「００００」だけ認知されず、検索できません。 セルの書式設定を”文字列”に設定してから入力したり、「データ」→「区切り位置」→「列のデータ形式を”文字列”」にしてもできませんでした。 なんとか「００００」を検索させる方法はないでしょうか？ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

こんばんは。 ＞セルの書式設定を”文字列”に設定してから入力したり、 私は、これで出来ました。 　　A　　　　B　　C　　　　D 1　　0000　　A　　0000　　=VLOOKUP(C1,A1:B4,2,0) 2　　0001　　B　　　　 3　　0002　　C　　　　 4　　0003　　D　　　　 A列が、セルの書式設定を”文字列” C1 も、セルの書式設定を”文字列” としたら、「A 」が返りました。

Ｗｅｎｄｙさん、ありがとうございました！ どうやら最後の”０”＝（ＦＡＬＳ）が抜けているとダメみたいでした。他の列も同じだったのに、「００００」だけ表示されなかったんです。Ｗｅｎｄｙさんが書いてくれた式を見て直してみたら、ちゃんと表示されました。 すぐに解決できてとてもうれしいです。ありがとうございました！

アンケートをまとめているのですが １．１　２０歳以上 １．１　３０歳以上 と　エクセルであるのですが この　「１．」を消したいのです。 データーが膨大（１０００以上）なので　途方にくれています。 初心者なもので　困っています。 わかる方　どうぞ教えてください。どうぞよろしくお願いします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

おはようございます Rinです ＞１．１　２０歳以上 が、１つのセルの中にあるのでしたら 1.1 をとりたいセルをすべて選択して 編集→置換 検索する文字列→1.1 置換後の文字列→何も入れない（空白） すべて置換 1.1が、なくなります。 これで、いいのでしょうか？(^^

追伸 間違えました 訂正します 検索する文字列→1. にして、下さい。 ゴメンナサイ

Rinさん　ありがとうございました。 解決しました。 感謝です。ありがとうございました。

例えば、一つの列に以下のような品番が何行も続いています。 　　Ａ 1 CF-1234MD 2 CF-2345MD 3 CF-3456MD 4 CF-4567MD 5 CF-5678MD 　　　・ 　　　・ 　　　・ この品番の先頭をCからAへ、もしくは末尾のDをSへという風に 一括で変更することは可能でしょうか？ また、変更でなく消去することなどもできたら教えてください。 宜しく御願い致します。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2003 ++++++++++++++++++++

こんにちは。 >この品番の先頭をCからAへ データの入った範囲を選択して「編集」「置換」 「検索する文字列」に「CF」（場合によっては「C」でも可） 「置換する文字列」に「AF」（場合によっては「A」でも可） で「すべて置換」 「MD」⇒「MS」も同様に。 >変更でなく消去することなどもできたら 「検索する文字列」に「C」 「置換する文字列」に何も入力しないで「すべて置換」 先頭・末尾の判断をして居ないのでセル内に同じ文字が在る場合 はすべて変更されてしまいますが。。

先頭文字はREPLACEという関数で置き換えることができます。 =REPLACE(対象文字列,開始位置,文字数,置き換え後の文字) 例えばAAAAという文字列でもBAAAとできます。（同じ文字が文字列中にあっても大丈夫！）AAAAがA1に入力されていたとしたら =REPLACE(A1,1,1,"B") とします。もし、質問のとおり必ず9文字の文字列であれば、最後の文字を置き換える場合 =REPLACE(XX,9,1,"任意") となります。もし文字数がばらばらであれば9の代わりにLEN(XX)を使うとよいでしょう。 XXは対象文字の入っているセルアドレスです。

追伸 LEN(XX)はXXの文字数を返してくれます。

データに統一性があるのであれば置換で良いでしょうね 仮に以下の様なデータもあるのであれば CD-1234CD　--->　AD-1234CS XC-1234DX　--->　変更無し 先頭文字がCならばAへ変換、Cでないときはそのまま 末尾文字がDならばSへ変換、Dでないときはそのまま と言う要件であれば以下の様な数式で変換することができます =IF(A1="","",IF(EXACT(LEFT(A1),"C"),"A",LEFT(A1))&MID(A1,2,LEN(A1)-2)&IF(EXACT(RIGHT(A1),"D"),"S",RIGHT(A1))) （EXACT関数を利用しているので大文字と小文字を識別します）

１つのセルに複数の数字を入力し、そのセルの中に数字が いくつあるのか数えたいのですが、どのようにしたらよいのでしょうか？ まず、複数の数字を入れても、別々の数字に見えるように、 スラッシュで区切ろうと思っているのですが、別に「.」でも何でも、 簡単に１発で入力できる記号であれば問題ありません。 例　14/12/3 　　↑この場合は、数字の個数を「３」と取得したい。 お願いします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

おはようございます Rinです よくわかりませんが ＞１つのセルに複数の数字を入力し、そのセルの中に数字が ＞いくつあるのか数えたいのですが、どのようにしたらよいのでしょうか？ これは、LEN関数で 　　=LEN(数値のあるセル参照) ですいいとおもいます。 次の、質問が、わかりません。 ＞まず、複数の数字を入れても、別々の数字に見えるように、 ＞スラッシュで区切ろうと思っているのですが、別に「.」でも何でも、 ＞簡単に１発で入力できる記号であれば問題ありません。 ＞例　14/12/3 ＞　　↑この場合は、数字の個数を「３」と取得したい。 スラッシュが２つなら、すべて、３ですよね。 カン違いならゴメンナイ..(^^

「/」で区切ると日付と取られることがありますから別の記号のほうが 良いのではないかと思います。 ここでは「!」とします。 =LEN(A1)-LEN(SUBSTITUTE(A1,"!",""))+1

ひろ　さま 　数値として入力するのか、単に文字としての数字なのかによって方法が違います。どうなのです？

所要時間を分表示で表示させるには、どうしたらよいか教えてください。 具体的には、A1セルに「10:00」、A2セルに「12:00」A3セルに「=A2-A1」を入力し、「2:00」でなく、「120」を表示させるにはどうしたらよいでしょうか。 よろしくお願いします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

こんにちは。 A3セルの「書式設定」を「ユーザー定義」で 　[mm] としてみてはいかがでしょう？

時間の計算値は1を24時間とした小数で表示されます 従がって求めた値に　24(時間)×60(分)　を掛ける事で 分単位で差を求めることができます =(A2-A1)*24*60=120 但し今回の様な2項目の加減算では誤差は生じませんが、複雑な計算では 小数誤差が発生する事により思った値が得られない場合があります boyさんの回答されている書式を数式内で利用する場合はTEXT関数で処理します =VALUE(TEXT(A2-A1,"[m]"))

boyさん、夜目狸さんありがとうございました。 無事に表示できました。 今後ともよろしくお願いします。

Ａ列にさまざまな数値があり、Ｂ列に合計したい数値があります。 例えば、Ａ列で30以下のＢ列の合計を出したい場合はどうするんでしょうか？ Ａ　　　Ｂ 10 100 45 200 20 100 15 200 30 100 50 200 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

SUMIFと言う関数があります。 こんな感じです。 SUMIF(A1:A6,">=30",B1:B6)

こんにちは。 SUMIFを使って、 =SUMIF(A1:A6,"

すみません、ろろさんとかなりかぶってしまいました。

Ａというシートの数値は、Ｂというシートの数値を反映させるようにしています。 Ａシートを開くたびに、Ｂシートの数値を反映させますかとダイアログがでます。 毎回、反映させたいのですが、いちいちＥｎｔｅｒキーを押すのが煩わしいです。 この操作を省略させることは出来ないのでしょうか？ ++++++++++++++++++++ OS      ⇒Windows 98 Version⇒Excel 2000 ++++++++++++++++++++

こんにちわ Rinです >Ａというシートの数値は、 >Ｂというシートの数値を反映させるようにしています。 >Ａシートを開くたびに、Ｂシートの数値を反映させますかと >ダイアログがでます。 同じブックのAシート、Bシートなのでしょうか。 このような体験は、していないのでよくわかりませんが。 A.xlsとB.xls（ブックとブック）であれば 更新するかしないかの、メッセージを表示させない事は 出来ます。 参考までに Aブックの　ツール→オプション→編集 　　　　　　→「リンクの自動更新前にメッセージを表示する」 　　　　　　　のチェックをはずします カン違いなら　ゴメンナサイ...(^^

説明が足らずに申し訳ありませんでした。 Ｒｉｎさんの説明で解決いたしました。 ありがとうございました。

エクセルを使って、カーペット チャート（絨毯グラフ）を作りたいのですが、 現在はセルの幅と高さを手動でヒトマスづつ変えて作っています。 マクロ等で簡単に作る方法があれば教えて頂きたく。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

こんにちは。 レスがつきませんが >カーペット チャート（絨毯グラフ） って、どんなのでしょう？ こちらでグラフ化できるようなデータ、方法を教えていただけませんか？

こんにちは。 解答ではありませんが、 ＞エクセルを使って、カーペット チャート（絨毯グラフ）を作りたいのですが、 このカーペットチャートとは何でしょうか？ インターネット検索で、国内外を探しましたが、ヒットしませんでした。 たぶん、3Dの面グラフあたりを想像しますが、このままですと、レスがつけられません。 後でみたら、Ａsakiさんとかぶってしまいました。（スミマセン）

こんばんは。 ＥＸＣＥＬのシートに セルＡ２に１５ セルＡ３に５０ Ａ４に５４ セルＡ５に５５ のデータが入力されています。 セルＡ６〜セルＡ９４にかけて １５・５０・５４・５５を繰り返して コピーしたいのですが、 ドラッグすると”７４．５”とか”８６．９” とか表示されます。 良い方法を教えてください ++++++++++++++++++++ OS      ⇒Windows ME Version⇒Excel 2000 ++++++++++++++++++++

こんばんは。 A2:A5 をコピー A6:A93 を選択して貼り付け ではダメですか？ A94と有りますが、4行セットなら、最終行は93ではないかと思いますが。

Asakiさん、すみません。 A2:A5 をコピー A6:A93 を選択して貼り付け でもよいのですが、 たまたま今回は、９３行でしたが、かなりな 行数となると大変かと思います。 因みに、Ｂ列のデータが９４行まであるので Ａ列も９４必要でした。 再度、お願いいたします。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS      ⇒Windows ME Version⇒Excel 2000 ++++++++++++++++++++

B列の最終データまでA2:A5の4行をコピーしていきたいということでしょうか？ とりあえず、名前ボックスに A6:A94と入力してEnterするとA6:A94が選択状態になります。 これを利用して、範囲選択すると、少しは楽になるのでは？

akiさん、こんばんは。 一度いけると思ったのですが 実行してみると、コピー領域と貼り付け領域の ちがいでエラーになりました。 こういう場合、どうすればよいのでしょうか。

フィルコピーの場合、初期選択範囲に数値セルがあると 文字列のセルも含めて数字部分が自動的に差分増加します。 全てが文字列であれば、数字を含んでいても、同じ文字列を 繰り返してセットします。 【方法１】 １）A2〜A5に各々15・50・54・55を入力 ２）A6に　=A2　と数式を入力し　A94までコピー 【方法２】 １）A2〜A5の書式を文字列に設定後、15・50・54・55を入力 ２）A2〜A5を範囲選択後フィルコピーでA94までドラッグ ３）任意の空きセルを右クリックしてコピー後 　　A2〜A94を範囲選択して右クリックで[形式を選択して貼り付け]を 　　選択し、[演算]の[加算]を指定し[OK] 【方法３】 １）A2〜A5に各々X15・X50・X54・X55をと数値の前にXをつけて入力 ２）A2〜A5を範囲選択後フィルコピーでA94までドラッグ ３）A2〜A94を範囲選択し、｢置換｣で｢X｣を空白に置換

おはようございます Rinです 横から失礼いたします Asakiさんの方法が、簡単でいいと思います。 Asakiさんへの質問の回答ですが ＞一度いけると思ったのですが ＞実行してみると、コピー領域と貼り付け領域の ＞ちがいでエラーになりました。 ＞こういう場合、どうすればよいのでしょうか。 名前ボックスの範囲が、A6：A94ですと 4行セットのコピーの場合、この場合、4で割り切れる行を 範囲指定しないと貼り付きません。 A6とA94の間の行は、89行で4で割ると、1行多いので エラーになってしまいます。 名前ボックスの範囲を、A6:A97にして 後から、必要でなければA95〜A97の3行を 削除すれば、いいのではないでしょうか。 削除する時も、かなりの行数を貼り付けた後、 同じく名前ボックスを使えば、スクロール するより、多少速く削除するセルを選択 できるかも知れません。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Rinさん、夜目狸さん、Asakiさん、おはようございます。 最初は、簡単な質問で申し訳ないと思いましたが、結構 複雑で難しかったということを実感しました。 これからも宜しくお願いします。 本当にありがとうございました。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS      ⇒Windows ME Version⇒Excel 2000 ++++++++++++++++++++

解決済みですが、 A2:A5を選択して、必要な範囲まで右ドラッグ >> セルのコピー では？ ドラッグが面倒ということであれば没ですが。

Asakiさん、こんにちは。 ありがとうございます。 ドラッグは、結構．．．大変です。 それと、ドラッグして出た数字は 小数点が表示されるので．．．． 今回は、夜目狸さんの教えていただいた 方法をマスタしようと思います。 気遣っていただいてどうもありがとうございます。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

>ドラッグして出た数字は小数点が表示されるので 右ドラッグ ですよ。 通常の左ドラッグではなくて。 一旦、目的以外の数字が表示されますが、マウスの右ボタンを離したタイミングで 作成するデータの種類が選択できますから、「セルのコピー」を選択します。 今回はつかえないようですが。

Ａsaki さんが、レスを付けたので、ちょっとよろしいですか？ 別に他の方を批判したりするわけではありませんが、たぶん、tab さんの何か の誤解があるように思います。 私は、Ａsaki さんの終始お書きになっていた話で十分だったと思うし、結果 的に最後まで理解されていなかったと思いました。おそらく、tab さんは、何 かしらのテクニックを求めていたのだろうと思います。 ひじょうに数が多いこの手のコピーは、私自身は、暗算が不得意なので、だいたいは、 電卓で割り切れる数にして範囲を決め、それを貼り付けて、足りない分は、消すなり、 書き込むなりします。 こういうものは、もう物理的な割り振りに近い操作しかないのではありませんか？ しょせん、このレベルのものはテクニックとしてあったとしても、残らないよう に思うのです。 それでは、いけないのかしらね。

解決済みですが、 A2:A5を選択して、Shiftキーを押しながらオートフィルコピー

訂正します 解決済みですが、 A2:A5を選択して、Ctrlキーを押しながらオートフィルコピー

とにかく、うれしいです。 ありがとうございました。 こうしてみなさんの意見や 良い方法への模索、私のように 理解力が少し足りない者にとっては こういうサイトがあって、本当に 助かります。 重ね重ね、みなさんにお礼もうしあげます。 Ｐ．Ｓ．　全部、実行してみました。

横棒グラフを作成しており、３つの棒ABCが上から順に表示されています。 これを、ABCからCBAまたはBACなど、自由に順序を変えるにはどうしたらよいでしょうか？ ご教授願います。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2002 ++++++++++++++++++++

こんにちは。 並びを替えたいときはにダミーのデータを使います。 　　 A　　 B　　 C　　 1　　 a　　 5　　 　　 2　　 b　　 3　　 　　 ←こちらが元のグラフのデータ 3　　 c　　 2　　 　　 4　　 　　 　　 　　 5　　 　　 　　 　　 6　　名称　 数字　インデックス 7　　 a　　 5　　 1 8　　 b　　 3　　 2 　　←ダミーのデータ 9　　 c　　 2　　 3 インデックスのC列を除いた部分をグラフのデータとします。 中身は、 A7:　　　　B7:　　C7: =$A$1　　　=$B$1　　1 A8:　　　　B8:　　C8: =$A$2　　　=$B$2　　2 A9:　　　　B9:　　C9: =$A$3　　　=$B$3　　3 として、この範囲を、C列を基準に並び替えをすれば良いです。 順を並び替えるときに、1,2,3 の数を変えます。

任意の系列を１つ選択し、メニューバーの「書式」「選択したデータ系列」で、 「系列の順序」タブを開いてみて下さい。

よくわかりました。 ありがとうございます。

A6サイズで作った表４ページをA4の紙1枚に印刷したいのです。 表を作るときのページのサイズ設定はA6でしました。 それを横に２、縦に２ページで計４ページを A4、1枚に印刷する方法おしえてください。

こんばんは。 ＞表を作るときのページのサイズ設定はA6でしました。 ＞それを横に２、縦に２ページで計４ページを どういう形になるのか、ちょっと想像はつかないけれども、 そういう場合、シートの枠線を 　ツール−オプション−表示−ウィンドウオプション−枠線 でチェックを外して、枠線を消し、 それぞれの印刷範囲をマウスで選択してから、 シフトを押しながら、編集−図のコピー で、次のシートに、シフトを押しながら−変数−図の貼り付け で、貼り付け それをレイアウトを考えながら、４枚を合わせて、 印刷範囲を選択してから、 ファイル−印刷範囲で、設定して、A4 サイズにしたらいかがでしょうか。図 の拡大・縮小をしなければ、元とそっくりになります。

そういう方法があったのですか。 ありがとうございます。

解決のマーク入れ忘れました・・・。

少数点位置の固定について質問させて下さい。 これを有効にして有効桁数を2桁にした場合 123と入力した時に、1.23にする事が可能ですよね？ この機能を、範囲指定して有効にする事は出来ませんでしょうか？ 有効にしたい列と有効にしたくない列があって、今は都度設定を 変更して入力してるんですが、ついつい忘れがちで・・・。 整数で入力した後、0.01を乗算して貼り付けるのも面倒ですし。 更に、計算に使うので表示形式でどうにかするのも無理なんですよ。 何方かお知恵を拝借出来ませんでしょうか？ ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

こんにちは。 セルの書式設定で、書式を「数値」にして、「小数点以下の桁数」を設定するのではダメですか？

早速のレス有難う御座います。 説明が足りずにすみません。 有効にしたい列というのは、為替レートを入れる欄なんです。 ですから、必ず少数点以下2桁なんですよ。 Asakiさんのアドバイスですと、必ず少数点を入力しないといけないですよね？ あくまでも123と入力したら1.23としたいのです。 無理でしょうか？ この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

あまり良い方法が思いつきませんが。 とりあえず、2桁固定の列の表示形式を[数値]の[小数点以下桁数]「2」にしておきます。 そして、この列への入力は、 「123%」 と「%」を付けて入力します。 これで、1/100の値が入力されます。 他の列は、そのまま入力。 小数点を付けて、「1.23」と入力するのと、たいして変わらないような気もしますが。

maruru01さん、レス有難う御座います。 %ですか、思いもしませんでした。 が・・・点キーに%は無いですし、余計面倒かと（すいません

列が決まっているのであれば、チェンジイベントを使ってはどうでしょうか。 こちらでマクロの回答はルール違反かもしれませんので、 参考だけ。 詳しくはお隣のVBAサロンでお聞きになっては如何でしょうか。 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Then Exit Sub 'E列(5列目)以外処理を抜ける Application.EnableEvents = False Target.Value = Format(Target.Value / 100, "#,##0.00") Application.EnableEvents = True End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

こんばんは。 もともと、表示行だけでしたら、 ユーザー書式で、 「0!.00」 とすればよいのではありませんか？

>ユーザー書式で、 >「0!.00」 >とすればよいのではありませんか？ Wendy -さんのでは数値自体は１２３なので計算に使うにであれば都合が悪いように思います。計算で使っているならWendy -さん+作業セルで割り算してしまえばどうです。そのセルを参照すればよいように思うんですが,,,

wendyさん、セルダンさんのアドバイスで解決しました。 鮎さんのは、今度試してみようと思います。 有難う御座いました。

エクセル使用し セルに　 1.1. 10歳 2.2. 20歳 とあり　1000ほどのデーターがあります。 前半の　２文字だけ消去したいのです。 TRIM関数を使用し　例えば　「1.」を入力して 置換すると　 10歳　 年齢だけになってしまいます。（2.も同様） 前半の２文字だけ　消去し 1.10歳 2.20歳 というように　データーを整理したいのです。 前半の2文字（半角）だけ　整理することは可能でしょうか。 教えてください。どうぞよろしくお願いします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

御機嫌如何？ クロメートです >TRIM関数を使用し　例えば　「1.」を入力して置換すると　 TRIM関数だけでは 10歳 とはならないですがどのようにすればなるのですか？ =RIGHT(A1,LEN(A1)-2)

前半（左の２文字だけ）　消去したいのです。 *＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 1.1. 10歳　　　　　　　 1.1 10歳 1.1 10歳 2.2　30歳 2.2. 20歳 　　 　↓↓　このような形にしたいのです。 1.10歳 1.10歳 1.10歳 2.30歳 2.20歳 *****＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ というように　データーを整理したいのです。 前半の2文字（半角）だけ　整理することは可能でしょうか。 教えてください。どうぞよろしくお願いします。 クロメートさんが　教えてくださった 　RIGHT(A1,LEN(A1)-2)も　試してみたのですが なぜが　データーが　全部消えてしまいます。 どうぞ教えて下さい（涙） ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

おはようございます Rinです http://excelfactory.cool.ne.jp/exgeneral/excel.cgi? mode=all&namber=41899&rev=0 こちらで、解決しなかったのでしょうか？ 解決済みになっていましたが 今回の質問は、少し違うのでしょうか？ 前スレ　1.1の1.を削除 今回　　1.1.の1.を削除 　　　　2.2.の2.を削除 前スレの回答を、少し応用して考えてみて 下さいね。 今回は、1.1.の1.を削除　　検索する文字列→1.1 　　　　　　　　　　　　　置換後の文字列→1 　の置換を終了してから 　　　　2.2.の2.を削除　　検索する文字列→2.2 　　　　　　　　　　　　　置換後の文字列→2 の、順序でやってみてください。

クロメートです >前半（左の２文字だけ）　消去したいのです。 =RIGHT(A1,LEN(A1)-2) >なぜが　データーが　全部消えてしまいます。 どのセルに書きましたか？ 表を見る限りでは =LEFT(A1,2)&RIGHT(A1,3) でしょうか？

Rinさん　へ 応用方法の説明　たいへんていねいに　教えていただき感謝です。 前回のものとは　また別の内容で悩んでいたのですが　応用すればできたものを　再度質問させていただいて　申し訳ありませんでした。 しかし　無事　データ整理すべて終わりました。ありがとうございました。 クロメートさん　へ 教えていただいた方法では　私の知識不足（初心者）で 教えていただいた方法では　私はうまくいきませんでした。 すみません・・。（汗） しかし　教えていただいたこと　本当に本当に感謝します。 みなさん　本当に　ありがとうございました。

はじめまして。 低レベルの質問かもしれませんが、宜しくお願いします。 ハイパーリンクでリンク先に指定された文字の色を選択された時だけ 変えるることって可能でしょうか？ Aというリンク元をクリックするとBというリンク先の文字が選択されます。 （同一sheet内） Aをクリックした際にBという文字が通常の色から赤色等に変わるような設定って できますでしょうか？ 説明の仕方が下手でわかりにくいかもしれませんが、宜しくお願い致します。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

こんばんわ Rinです なぜ、同一シート内で、そのような操作が 必要か、よくわかりません。 推測ですが、こんなことでしょうか。 例えば sheet1上で、 (1)A1に、Bと文字を入れる。 (2)ハイパーリンクで、 　　　　リンク先→このドキュメント内 　　　　表示文字列→A 　　　　セル参照を入力して下さい→A1 ハイパーリンクの設定は、ここまでです。 次は、ハイパーリンクでA１セルが、選択された 時に、A1セルの文字（B）のフォントを赤にする ですが、 これは、一般機能では、出来ないので VBAになります。 (3)VBエディタを開いてsheet1に 　次のコードを書きます。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then Range("A1").Font.ColorIndex = 3 End If End Sub これで、終了です。 sheet1上のリンク元の表示文字　A　を クリックすると、A1の文字　B　が赤になります。 ただ、ハイパーリンクを使って、面倒な作業をしなくても 上記のコードを 　　Target.Address = "$G$1" の様に, 希望のセルアドレスにすれば 同じ事の様に思います。 もし、わからない所があれば、再レス して、くださいませ...(^^ この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Rinさん ご対応ありがとうございます。 教えていただいたVBのコードを参考にして試したら、文字は期待通り 赤に変わりました。 私の説明不足で申し訳なかったのですが、文字の色を変えるのは 選択された時だけで、通常は通常色のままというふうにしたいです。 >なぜ、同一シート内で、そのような操作が >必要か、よくわかりません。 箇条書きにしたファイル名をクリックすると、どのディレクトリ に格納されているのかがツリー状に展開したディレクトリ構造から わかる、ということをやろう思っています。 ファイル名をクリックしたらツリー状に表示された格納先のディレクトリが 赤字で表示される（欲を言えば点滅したりするとなお良い）ということです。 お力をお貸しください。お願い致します。

こんにちは 点滅はないですが、以下のコードで選択時だけ、色がつくようになります。 Rinさんさんのコードをお借りして・・・ Public S_C As Range Public col As Long Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then Set S_C = Target col = Target.Font.ColorIndex Range("A1").Font.ColorIndex = 3 Else On Error Resume Next S_C.Font.ColorIndex = col End If End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Kotono　さん こんにちは。レスありがとうございます。 以下のようにコードを変更して試したところ、D84は選択時のみ赤になります。 しかし、C80は選択しても通常色のままで赤にはなりません。 Public S_C As Range Public col As Long Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$80" Then Set S_C = Target col = Target.Font.ColorIndex Range("C80").Font.ColorIndex = 3 Else On Error Resume Next S_C.Font.ColorIndex = col End If If Target.Address = "$D$84" Then Set S_C = Target col = Target.Font.ColorIndex Range("D84").Font.ColorIndex = 3 Else On Error Resume Next S_C.Font.ColorIndex = col End If End Sub 箇条書きにしたファイル名は15個以上あるので、それぞれファイル名を クリックした際に該当する格納先のディレクトリが赤で表示されるように したいです。 コードの記述の仕方だと思うのですが。。。。。 すいません。宜しくお願い致します。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

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

c80だった場合の操作をした後にd84だったらの操作を上書いてしまっているためですね。 Public S_C As Range Public col As Long Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$80" Or Target.Address = "$D$84" Then Set S_C = Target col = Target.Font.ColorIndex Target.Font.ColorIndex = 3 Else On Error Resume Next S_C.Font.ColorIndex = col End If End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

今度はC80が赤になったまま戻らなくなってしまいました。 D84は正常です。 Else以降にもTargetの指定が必要なのでしょうか？ Public S_C As Range Public col As Long Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$80" Or Target.Address = "$D$84" Then Set S_C = Target col = Target.Font.ColorIndex Target.Font.ColorIndex = 3 Else On Error Resume Next S_C.Font.ColorIndex = col End If End Sub このまま一般操作サロンに書き続けて良いものなのかどうか。 ちょっと気になりだしてます。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

>Else以降にもTargetの指定が必要なのでしょうか？ 必要ありません 赤になった状態で一回マクロをとめたためだと思いますので、一旦マクロをすべて とめた上で他の色にしてからマクロを使用可能にすれば、正常に動くとおもいますが、 解決しないようなら、お隣に移動されると、よいと思いますm(__)m この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Kotono　さん ありがとうございます。ご指摘の通りでした。 コードの記述方法ですが、Targetが複数（今回は15個以上）ある場合は "or"で繋いでいけば良いのですね。

こんにちは。 お話が良く見えていないのですが、こういうことですか？ Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim hyp As Hyperlink Target.Range.Font.ColorIndex = 3 　For Each hyp In ActiveSheet.UsedRange.Hyperlinks 　 a = hyp.Range.Address 　　If hyp.Range.Address <> Target.Range.Address Then 　　　hyp.Range.Font.ColorIndex = 32 　　　'Excelは、5番の「ブルー」を使っているようです 　　End If 　Next hyp End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

追伸 すみません。 5行目の a = hyp.Range.Address は関係ありませんので、抜いてください。 ここのアドレスが変わって、Cookieが空になってしまったもので、削除キーが 無効になってしまいました。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Windyさん こんにちは。 こちらのコードの解説をお願いしたいのですが・・・ 私には何のことなのかさっぱりです。 すいませんが、お願い致します。

Windyさん→Wendyさん 申し訳ありません。訂正してお詫びいたします。

失礼しました。 #ここのアドレスが変わって、Cookieが空になってしまったもので、削除キーが #無効になってしまいました。 訂正したいけれど、書き込みが訂正できなかったということです。 突然、変わってしまい、ちょっと慌ててしまいました。 ＞私には何のことなのかさっぱりです。 やっぱりダメだったのかしら？ 解説を求められるということは、私はまったく話が見えていないということかも しれませんね。そうでしたら、無視してください。すみません。 コード自体は、すごくシンプルだと思いますから。

シンボリックリンクの文字色を一括して変えるという コードでしょうかね？ ありがとうございます。 参考にさせていただきます。

こんばんは。 私は、何度か読み直してみましたが、 単に、Hyperlinkの文字色を、クリックしたら、その表示文字を、 赤に変えて、次をクリックしたら、その表示文字を赤にして、 前のところは青にするっていうことではないでしょうか？ どう見ても、そういうコードにしようとしているとしか見えませんが？ そういうことでしたら、私のコードで、出来ているはずです。 試す前から、ダメと言われているようですが、良く分かりません。 ＞シンボリックリンクの文字色を一括して変えるという ＞コードでしょうかね？ なぜ、シンボリックリンクなのか、良く分かりません。 Hyperlinkに全部を通すのがヘンだとしたら、 If hyp.Range.Address <> Target.Range.Address And _ 　　　hyp.Range.Font.ColorIndex = 3 Then とでもいればよいのですが、それを指摘できるのでしたら、私のコードも 理解できるはずですが、あまり、初歩的な説明はしたくありません。 ＞今度はC80が赤になったまま戻らなくなってしまいました。 それは、Public ステートメントを使っても、それは、プロシージャを変えたり、 最初の起動では、その変数は確保されていませんね。色づけは、Hyperlinkの 色ではないのですから、それをそのまま確保しても、デフォルトには戻らない はずです。明示的な色コードをつけなくては、ダメだと思います。 後、SelectionChange でしたら、イベントに関わる時だけで、他は、プロシー ジャーの最後までを通さないよう(Exit Sub)にしたほうがよいです。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

こんばんわ Rinです かなり、難しくなって 私にのレベルでは、わからない所もあります。 kotonoさんや、wendyさんの回答を 参考にさせて頂きました。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim myrange As Range Set myrange = Intersect(Target, Range("C80,D84")) UsedRange.Font.ColorIndex = 1 　If myrange Is Nothing Then Exit Sub myrange.Font.ColorIndex = 3 End Sub ＞今回は15個以上 と、ありますが、Range("C80,D84")は、2個ですが 15個のセルを入れて、変更してみてください。 最後まで、カン違いならゴメンナサイ....(^^ この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Rinさん、こんばんは。 ＞15個のセルを入れて、変更してみてください。 もし、１つで済ませるなら、ワークシート上で、挿入−名前で、 点在するセルを登録しておけば、 例えば、MyName と名前を付けて Set myrange = Intersect(Target, Range("myName")) とすれば１つで済みます。 セルの文字の場所を移動しても、その設定されたセルの文字色は変わります。 一応、Rinさんのコードで試してみました。もし、Hyperlinkでなければ、私も 似たようなコードになったと思います。 って、よけいなお世話をまた書いてしまいました。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

おはようございます。 WendyさんとRinさんのコードを試させていただきました。 それぞれのコードの結果と私のやりたいことを以下にまとめます。 ＜Wendyさんのコードを試した結果＞ デフォルト色のリンク元であるファイル名のうち1つをクリックしたら 全てのリンク元であるファイル名が青色になりました。 リンク元をクリックした際のリンク先であるディレクトリは通常色 （デフォルト色）のままです。 該当ファイルを閉じて再度開くと、リンク元の全てのファイル名はデフォルト 色になっています。 ＜Rinさんのコードを試した結果＞ リンク元である全てのファイル名はクリックしてもデフォルト色のままです。 リンク元をクリックした際のリンク先であるディレクトリは赤色に変わり ます。そして、違うセルをクリックすると赤色だったディレクトリは デフォルト色に変わります。 ＜私のやりたいこと＞ 【42042】でKotonoさんのコードを試した結果はRinさんのコードを試した結果 と同じでした。 私がやりたいことは、Kotonoさんのコードでほぼ満たされていました。 ただ、リンク元をコードに記述する方法が"Or"で繋いで15個以上羅列するしか ないのかな？ と思ってレスしていました。 その後、RinさんのコードやWendyさんのセル登録方法で、この部分もクリア させていただきました。ありがとうございます。 「ほぼ満たされて」とは、 ＞ファイル名をクリックしたらツリー状に表示された格納先のディレクトリが ＞赤字で表示される（欲を言えば点滅したりするとなお良い）ということです。 と書いたからです。 あくまでもこれは"欲"なので、今のままでも十分満足しています。 私の文章記述能力の低さやExcelの知識不足で、ご迷惑をかけてしまった場合は 素直に「ごめんなさい」です。 Wendyさん ＞なぜ、シンボリックリンクなのか、良く分かりません。 ハイパーと書きたいところシンボリックと書いてしまいました。 恥ずかしいです。以後気をつけます。

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

おはようございます Rinです Wendyさん　へ 私のコードを試して頂いて、ありがとうございます。 私の、「15個のセルを入れて、変更してみてください。」 を ＞もし、１つで済ませるなら、ワークシート上で、挿入−名前で、 ＞点在するセルを登録しておけば、 ＞例えば、MyName と名前を付けて ＞Set myrange = Intersect(Target, Range("myName")) ＞とすれば１つで済みます。 そんな方法もあるんですね。 まだまだ、未熟な私にとって大変勉強になりました。 本題の方ですが、私とWendyさんの質問の解釈が 違っているみたいです。 　　　 私→ハイパーリンク先のセルの文字→赤になる Wendyさん→ハイパーリンク元の文字→赤になる Worksheet_SelectionChange 　　と Worksheet_FollowHyperlink を、一緒に使ってみましたところ リンク先もリンク元も赤になって、 いい感じでした。 こんな、方法が良いかどうか、私には解かりませんが。 質問者さんが、出てこられませんので先には 進めないですね。 追伸 Wendyさんの回答は、いつも拝見していて 早く、Wendyさんくらいのレベルになりたいと 思っていますが、いつの事になるのやら...。 最近、勉強のため、私の回答出来そうな質問には 自分のレベルをかえりみず、間違ったりしながら 回答させて頂いてます。 これからも、時々トンチンカンな回答もしますので そんな時は、アドバイスお願いします。 Wendyさんへ Rinでした この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Rin さん、どうもレスありがとうございます。 [42091] の書き込みは、Rinさんのレスを見ずに書かれたものです。 朝、目が覚めたら、昨日の書き込みがフィードバックして、どうやら間違いに 気が付きました。 いままで出会ったことのないリクエストでしたら、私としても経験がなく、 どうやら間違いに気が付きました。 それから、私は、EXCEL　に、もうすぐ三年目に突入します。 ３年で、本当のものになるかどうかが決まるそうですから、あともう少しがん ばってみようと思っています。今年の夏ごろから、やっと、VBAが見えてきた つもりです。 一般サロンは、私にとって鬼門なので、気をつけたほうがよいのですが、ついつい 調子に乗って、失敗をしてしまいます。 これからもよろしくお願いします。

金魚さん、こんにちは。 自分の解釈の間違いは置いておいても、Kotono さんと、Rin さんのコードは 同じような動作でも、そのイベントのタイミングや負荷は、かなり違いがあります。 イベント・プロシージャで、SelectionChangeは、一番負荷の強いものの１つだと 思いますから、かならず、Target以外を除外するコードを入れなくてはならないと 思っています。 Target の対象を明らかにするのは、今回は、Hyperlink でしたら、Hyperlink イベントにするのがふつうなのです。Hyperlink の SubAddress から、そのリ ンク先の色を変更するのはできますから、それを作りました。また、ブリンク （点滅）するものやら、何点かをアップロードしたものの、お話が見えていない 以上は、やめて削除しました。 ＞リンク元をクリックした際のリンク先であるディレクトリは通常色 ＞（デフォルト色）のままです シートを越えるものは作りましたが、ディレクトリ（＝フォルダ）が表示して いるというのは、ブックが違うという可能性を示唆していると解釈しました。 私に、作れることは作れますが、とても、先ほどアップしたコードや、今まで のコードではまかない切れないと思います。 ブリンクするものやさらにリクエストなどがありましたら、VBAサロンでお願 いします。ただし、今までのコードは提示してからにしてください。 私もそちらで時々書いています。それでは、失礼しました。

偶然ここに辿り着き、質問してみたのですが、みなさんの暖かいご支援により 目的を達成することができました。 点滅させることについては、またの機会にVBAサロンにて質問することにします。 Rinさん、Wendyさん、Kotonoさん本当にありがとうございました。 では、失礼します。

sheet1 A 　　 B 　C 　　 　D 1　2004/6　〜　2004/8　　　　　 2　水野　　加藤　吉田 3 sheet2 A 　B C D 1　　　　　水野　加藤　吉田　 2　2004/6　5　　　9　　　3 3　2004/7　8　　　2　　　1 4　2004/8　3　　　5　　　7 5　2004/9　4　　　8　　　5 この様な二つのシートにまたがったデータがあります。 sheet1A1、Ａ2に期間を指定してsheet2の各人のデータの合計をsheet1の3行の各人の名前の列に出す数式を教えてください。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2002 ++++++++++++++++++++

こんにちは。 >sheet1A1、Ａ2に期間を指定して がＡ１・Ｂ１セルに日付のシリアル値として Sheet1のＡ３セルに =SUMPRODUCT((Sheet2!$A$2:$A$5>=$A$1)*(Sheet2!$A$2:$A$5<=$B$1),Sheet2!B2:B5) として右へフィルコピー。 でしょうか？

boyさんありがとうございます。 うまくいきました。 でも数式の意味がさっぱりわかりません。 解説していただけませんか。 よろしくお願いします。

こんにちは。 >解説していただけませんか。 解説する自信が在りません。m(__)m 手っ取り早く云えば「SUMIF」関数の条件２つバージョンと 思ってください。 >=SUMPRODUCT((Sheet2!$A$2:$A$5>=$A$1)*(Sheet2!$A$2:$A$5<=$B$1),Sheet2!B2:B5) ↑条件１　　　「AND」　　↑条件２　　　　　　　↑合計範囲 >(Sheet2!$A$2:$A$5>=$A$1) 条件１：シート２の範囲内でＡ１以上 >(Sheet2!$A$2:$A$5<=$B$1) 条件２：シート２の範囲内でＢ１以下 配列系の関数内では「AND」や「OR」関数はそのままでは使えないので代わりに 「AND」⇒「*」　　「OR」⇒「+」 を使用します。 Ａ列で条件１を満たし「かつ」Ａ列で条件２を満たす、Ｂ列の合計を求めています。 詳しくは “達人”芳坂和行氏に学ぶ、エクセル「配列数式」講座 http://pc21.nikkeibp.co.jp/special/hr/ をご覧になられた方がわかりやすいと思います。m(__)m

boyさんありがとうございます。 親切なご説明感謝します。 全部理解したとはいえませんが 勉強します。

1月の結果 　　　　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ 1　東京店達成率　50％　　　60％　　　70％ 2　大阪店達成率　55％　　　40％　　　35％ 3　平均売上　　　300千円　 400千円　 450千円 上記のような表をグラフ作成したあとで、主軸にしたいデータと第2軸にしたいデータを入れ替えることはできますか？ もともとの表はそのままで、グラフのみ軸を入れ替えたいのです。 方法を教えてください。 よろしくお願いいたします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

改ページプレビューでページ位置が変更できません。 ページ位置の所で「手」のアイコンにならなくなりました。 誰か助けてください。 ++++++++++++++++++++ OS      ⇒Macintosh Version⇒Excel 97 ++++++++++++++++++++

過去ログを2捨3入で検索しましたけど見つからなかったので質問します。 値　　変換後 14　　15 13　　15 12　　10 11　　10 16　　15 17　　15 18　　20 19　　20 上記のような変換をしたいのですけど良い方法はありませんでしょうか？

こんにちは。 　　A　　　B 1　　値　　変換後 2　14　　15　　←　　=CEILING(A2-2,5)　　または、=MROUND(A2,5) ということかしらね。

Wendyさん　ありがとうございます Celing関数を使用するのですね 基準値の倍数で切り上げているのですね 勉強になりました

あるシートのある列、例えばＣ列とします。Ｃ列を非表示にした時、自分の希望する別のシートのＣ列も自動的に非表示にすることは出来るのでしょうか。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2002 ++++++++++++++++++++

こんばんわ Rinです 例えば、 sheet1とsheet3をシート見出しで sheet1を開いておいて、Ctrlキーを 押しながら、マウスでsheet3の見出しを選択 して下さい。 2つのシート見出しの色が、変わります。 その状態で sheet1のC列を非表示にすれば、 sheet3のC列も非表示になります。 (^_-)〜☆

ありがとうございます。 それでも良いのですが少し問題があります。 こんな状況です。sheet1は、自由にセルにデータを入れたりするマスタメインテナンス的な役割をさせます。他のシート（約１０sheet程）は、データベース的な役割でシートに 保護をかけています。Ｒｉｎさんの教えていただいたやり方ですとすべてのsheetの保護を解除しなければなりません。何か裏技はないでしょうか。

こんにちは。 任意のシートを連動させてVBAで行う事も出来なくはないでしょうけど・・・。 取り合えず、シートの保護と解除だけVBAでやらせてはいかがでしょう？ >sheet1は、自由にセルにデータを入れたりするマスタメインテナンス的な役割をさせます。 このシートは保護を掛ける必要が無いのでブック内の左端（左から数えて1番目）に 移動させておいてください。 「Alt」キーを押しながら「F11」キーを押すと「VBE」の画面が表示されます。 「Alt」＋「I」キー　⇒　「Alt」＋「M」キーで 白い画面の「標準モジュール」が挿入されるので以下のコードをコピペします。 '*******ココから************************************ Sub 解除() Dim i As Integer For i = 2 To Worksheets.Count Worksheets(i).Unprotect Password:="****" Next i End Sub Sub 保護() Dim i As Integer For i = 2 To Worksheets.Count Worksheets(i).Protect Password:="****" Next i End Sub '*******ココまで************************************ 「****」の部分に設定しているパスワードを入れてください。 パスワードを設定していない場合は「Password:="****"」の部分は「Del」します。 再び「Alt」＋「F11」キーでExcelに戻ります。 「Alt」＋「F8」キーで「マクロ」が表示されるので 「解除」を選択して「実行」するとすべてのシートの保護が解除されます。 処理が終わったら「Alt」＋「F8」キーで「保護」を実行すると 左端の「Sheet1」以外が保護されます。 ※このマクロをボタンに登録したり、ツールバーにボタンを登録してしまう事も出来ます。 仮にシートの保護をしないで閉じてしまう心配が在るなら 「VBE」の画面を開いて左側の「プロジェクト - VBAProject」の 「ThisWorkBook」をダブルクリックして、出てきた画面の上部で 「(General)」をプルダウンから「Workbook」に変更 上部右側で「Open」を「BeforeClose」に変更すると Private Sub Workbook_BeforeClose(Cancel As Boolean) End Sub Private Sub Workbook_Open() End Sub 上記の様に４行表示されますが、下の２行は不要なので「Del」します。 残った２行の内側に保護の一部をコピペして Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim i As Integer For i = 2 To Worksheets.Count Worksheets(i).Protect Password:="****" Next i End Sub こんな感じにしてパスワード設定までしておくと保護を掛け忘れても 閉じる前に自動的に左端の「Sheet1」以外を保護してくれます。 面倒ですかね？ この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

こんにちは。 どうやら、任意のシートとは、最初のSheet１を除いた10数枚の全てのシートという 意味のようですね。 ＞sheet1は、自由にセルにデータを入れたりするマスタメインテナンス的な役割 ふつう、自由にセルにデータを入れたりする、入力シートというのは、非表示列 などは存在するけれども、他のシートを連動させて非表示にするということ自体が 良く分からないですね。というより、一旦レイアウトが決まってしまったら、 その列の表示・非表示の部分は、そんなにいじらないと思うのですが。 どのような状況なのか、分かりませんが、連動して、非表示させる方法は、 VBAサロンにお聞きになったほうがよいかもしれません。

Wendyさんがおしゃるように自分の発想がおかしいのかもしれませんので具体的に相談させてください。社員の成績を管理するbookを作ろうと考えています。 sheet1に社員の名前と基本的な資料を入力します。名前は1行目に横に並べます。 後は、2行目3行目と名前の下に、それぞれの年令性別など下に伸ばして生きます。 そのsheet1の名前の行だけにしたsheetを10枚ほどコピーしてそれぞれのsheetに売上、時間外、などの名前をつけて毎月入力します。毎月のデータは下に伸びて生きます。sheet1に名前を入れればすべてのsheetに名前が転記されるようにします。そこまでは自分の思うように出来たのですが、退職した社員が出てきたときに削除しないで非表示にしてデータとして残したほうが良いのではないかと思いつきました。ただデータを入力するときは退職した社員の名前は邪魔なわけです。sheet1で非表示にしたら後のsheetも同時に非表示にできれば便利と思ったのですが・・・。 貧しい知識の中でやっているので本来はこうすべきだみたいなことがあったら教えてください。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2002 ++++++++++++++++++++

こんばんは。 ＞退職した社員が出てきたときに削除しないで非表示にしてデータとして残したほうが ＞良いのではないかと思いつきました。 まったく同じではありませんが、掲示板などで出てくるタイプとしては、 該当する社員の所に記しをつけて、その人を別のシートに移すなんていう方法が聞かれますね。 その場合、フィルターオプションを解答としてつけられることが多いようです。 でも、全シートになると、それも簡単じゃないようですが。

お助け下さい。 エクセルは列が２５６列までですが、４００列×４００列の 行列の計算をさせる事はできないのでしょうか？ 具体的には、４００×４００の行列の逆行列を求めたいのです。 よろしくお願い致します。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

こんばんは。 ＞具体的には、４００×４００の行列の逆行列を求めたいのです。 ＞よろしくお願い致します。 とんでもない計算になるはずです。それは、スーパーコンピュータでなければ できないと思います。 私は、Double 型でしか作ったことがありませんが、せいぜい、10列が出来る かどうかです。Decimal 型でも、倍になるかどうかだと思います。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

お返事ありがとうございます。 Double 型 Decimal 型というのが初耳で解らないのですが、 MINVERSE関数を使って計算したいと考えています。 試しに５０×５０で計算してみたらすぐに計算が終わりました。 ２５６という１ページあたりの列の限界を超える行列の演算は できないものでしょうか？ ２５６列までとそれ以上とに分けて、計算の際だけ１つの行列として 認識させること等は不可能でしょうか？ この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

＞MINVERSE関数を使って計算したいと考えています。 具体的に何をされようとしているのですか？ MINVERSE というのは、多変数・一次連立方程式を解くためのものです。 EXCELのワークシートは、Double型（倍精度浮動小数点型）ですから、16桁の 精度しかありません。行列式の元の値を戻そうとするわけですが、浮動小数点 丸め誤差が発生してしまって、10×10行列式ぐらいで、まったく違った数値が 出てきてしまいます。 ＞２５６という１ページあたりの列の限界を超える行列の演算は ＞できないものでしょうか？ 256列を超える単純計算自体は出来ても、逆行列は無理だと思います。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

度々ありがとうございます。 具体的には、産業連関表という資料の400×400行列(A)の (I-A)-1←逆行列の意味です、を計算したいと考えておりました。 Double型（倍精度浮動小数点型）等を読んできたのですが、 誤差が大きいという意味が理解できましたので、難しいと考え 始めました。 もしよろしければ、逆行列は他の方法を模索いたしますので、 単純計算の方法がありましたらお教え願えませんでしょうか？ よろしくお願い致します。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

こんにちは。 昨日は、調べもしないで、ちょっと間違ったことを書いてしまいました。 [XL2000] 配列のサイズの制限について http://support.microsoft.com/default.aspx?scid=kb;ja;416526 　MINVERSE 関数で使用できる配列の要素の最大は、3249 要素となります。 　MINVERSE 関数では、引数に行数と列数が等しい数値配列 (正方行列) を指 　定するので、 52 x 52 のセル範囲までしか指定することができません。 となっていました。失礼しました。 私は、逆行列の逆行列が、元に戻らない限りは、逆行列の検証をしたことにな らないので、極端に少ない行列数になってしまうのです。 私は、時々、気が向いたときに、この問題に取り組んでいます。しばらく前、 Visual Basic のコードを参考にしながら、VBA で、 Minverse 関数は、一度 は作りましたが、未だ、 EXCEL のワークシート上の関数の Minverse 程度し か完成していません。 コードは、C でも公開されていますが、私にとっては　VB 系しか分かりませ んので、可能性があるのは、ここに書いてあるコードのようなものを書き換え れば、とは思っています。 以下は、EXCELのVBAですが、 http://www.keep-on.com/excelyou/2000lng2/200010/00100213.txt ここで場所で書いてあるコードは、 Gauss-Jordan　法　という名で知られたアルゴリズムで、 Dim r() As Double たぶん、途中で、CDec として、Decimal で、配列に格納させて、計算させれ ば、誤差は減るのではないかとは思っているのです。 配列要素 160,000(400×400　={400 × 200} +{400 ×200})ということですと、 データを二つに割って、EXCEL 上には置けるので、EXCEL では、データを置く だけで、後はプログラムに任せるようにすればとは思います。１回限りの 逆行列でしたら、二分すれば出来ると思います。（やったわけではありません が）ただし、その内容について、検証することが不可能だということです。今、 ためしに、100×100で行ってみましたが、それで、特に、オーバーフローやエ ラーを起こしているわけではありません。 ＞単純計算の方法がありましたらお教え願えませんでしょうか？ 昨日、私が書いたのは、言葉の綾で、逆行列に対して、その全てを確保しなけ れば、計算は出来ないように思っています。（間違いかもしれませんが） この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Wendy 様 大変参考になりました。 心から感謝いたします。 ありがとうございました。

すでに入っている式を固定したいのですが、 一つ一つ修正せずに一度に固定する方法はありますか？ ちなみに入っている式は、 =ROUND(A1,-3)です。 宜しくお願いします。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

理解力がなくて申し訳ないのですが、「固定する」とはどういう意味でしょうか。 =ROUND($A$1,-3) こういうことですか？

>一つ一つ修正せずに一度に固定する方法はありますか？ 多くのセルの数式の中味を　絶対参照に変換するのは　 　　　一般操作では難しいのではないでしょうか