Wendyさん ビブロさん 有難うございます。 いま、ＶＢＡを勉強するかあるいはアクセスを勉強して 実現させるか考えてます。 どちらを選ぶべきでしょうね。 そもそもこれは、自分で英和辞書を作って更新したいからです。

こんにちは。 ＞そもそもこれは、自分で英和辞書を作って更新したいからです。 具体的に、どういうことをしたいのですか？ 私が、実際にExcelで使うのは、英和辞書を作り翻訳用に使うという のが、私のExcelを使うことになったきっかけです。 訳を更新しなおすのですか？ 私自身は、目で追っています。一日に、200語もチェックすると嫌になります。 たぶん、おっしゃるようなものは、Accessでも、Excelでも私は作れると 思いますが、こんなことを言うのはヘンですが、しょせん、ExcelはExcelだと 思っていますので、自分自身のことについては、あまり大したことはしていな いのです。 ただ、テキストフォーマットで、Unicode出力、Unicode入力だけは、とても、 人間の手では出来ませんので、それだけは、VBAで組みました。 とても、ここの掲示板のスレッドでは話が収まりそうにもありませんが、多少の アドバイスは出来るつもりです。

「ｺﾏﾝﾄﾞ」の所らへんに作成者を常に表示させるにはどうすればよいですか？ ﾃﾞｼﾞﾀﾙ署名以外で良い方法はないでしょうか？ よろしくお願い致します。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

こんにちは。 ＞「ｺﾏﾝﾄﾞ」の所らへんに そこは、「ステータスバー」といいます。 ユーザー設定による表示は許されていますが、表示させられるのは、VBA でし かありません。 また、Book の作成者は、Bookのプロパティから取り出す名前でしかありません。 私は、デジタル署名から名前を取り出す方法は知りません。 それでもよろしいのですか？

Wendyさん、こんにちわ。早々のご返答ありがとうございます。 VBAでもOKです。 すみませんが、宜しくお願い致します。

こんにちは。 ツールメニュー−マクロ−マクロで 　マクロの保存先というのに、 「個人用マクロブック」または、 「PERSONAL.XLS」 というのがありますか？ なければ、 まず、Excelを立ち上げます。何も既存のブックを開かない新規画面の状態で、 ツールメニューのマクロをポイントし、「新しいマクロの記録」 をクリックします。　 そして、 「マクロの記録」ダイアログ・ボックスの 「マクロの保存先」一覧にある 　『個人用マクロブック』をクリックします。 　何も触らないで、OK をクリック 　「記録終了」をクリックします。 　そして、Excelを終了させると、 　保存するか、聞いてくるはずなので、「保存」をクリックすると、 次に開くときに、 「個人用マクロブック」で出来ています。 次に、 二種類の設定方法があります。 ◎１つ目、手動式です。メニューにツールボタンをつけてコマンドさせる方法 　です。 ツール−マクロ−Visual Basic Editor で、 エディタ画面を開きます。左のプロジェクト・エクスプローラの中から、 「PERSONAL.XLS」をクリックします。 次に、挿入−「標準モジュール」をクリックします。 そこに現れた画面に、以下のコードを貼り付けます。 Sub Status_Author() Dim BookAuthor As String 　BookAuthor = ActiveWorkbook.BuiltinDocumentProperties(3) 　Application.StatusBar = "作成者: " & BookAuthor End Sub そして、ファイル−PERSONAL.XSLの上書き保存をクリックしてください。 面倒でしたら、「Ctrl+S」で保存できます。 そして、 元のワークシートの画面に戻るには、右上端の「×」をクリックします。 メニューのツール−ユーザー設定−コマンド[タブ]で、 分類の中から、「マクロ」を選びます。 「ユーザー設定」の「にこちゃんマーク」がありますから、それを、ドラッグ して、メニューバーのところに持っていきます。 四画で囲われた「にこちゃんマーク」のままになっている状態で、 ユーザー設定ダイアログの中の 「選択したボタンの編集(M)」がありますから、これをクリックします。 そのメニューの中の マクロの登録をクリックして、保存先「PERSONAL.XLS」で選ぶと、 Status_Author というのが出ていますので、それを選びます。 そして、「OK」をクリックすると、ボタンにマクロが登録されます。 次に、再び、 「選択したボタンの編集(M)」をクリックして、 名前「ユーザー設定ボタン(&C)」 となっているので、例えば、 「作成者表示」として、 にこちゃんマークを 　ボタン・イメージをクリックして、自分の好きなものがあれば、それに変えます。 それが終わったら、「閉じる」をクリックして、ユーザー設定ダイアログを 終了します。 ◎二つ目の自動表示ですが、同じく、「個人用マクロ」を設定します。 　自動表示か、手動表示のどちらか１つにしてください。設定は、二つはしな いほうがよいです。 　Visual Basic Editor を開いたら、左のプロジェクト・エクスプローラの中から、 「PERSONAL.XLS」 をクリックで開けます。 　メニューの挿入−クラスモジュール 　をクリックします。 白い画面が現れたら、以下のようなコードを貼り付けてください。 'クラスモジュールへ Public WithEvents App As Application Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window) Call Status_Author End Sub Private Sub App_WorkbookOpen(ByVal Wb As Workbook) 　Call Status_Author End Sub Sub Status_Author() Dim BookAuthor As String BookAuthor = App.ActiveWorkbook.BuiltinDocumentProperties(3) Application.StatusBar = "作成者: " & BookAuthor End Sub 次に、左画面のプロジェクト・エクスプローラの中から、 PERSONAL.XLS の 「ThisWorkbook」をクリックしてください。 ThisWorkbookが開いたはずです。 次に、 'ThisWorkbook へ Private Sub Workbook_Open() 　Set myClass1.App = Application End Sub を貼り付けてください。 そして保存（Ctrl+S）します。 そしたら、右上端の「×」で、画面を閉じます。 そして、再起動すれば、ステータスバーに、画面が切り替わるたびに、 自動的に表示されるはずです。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Wendyさん、ご丁寧にどうもありがとうございます。 『個人用マクロブック』を作って、２つ目の自動表示の方を試みたのですが、 再起動すると、「実行時エラー４２４：オブジェクトが必要です」という エラーが返って来ました。 デバッグをクリックすると ThisWorkbookの「Set myClass1.App=Application」が反転してました。 忠実に再現してみたつもりなのですが…申し訳ありません。 どのようにすればよいでしょうか？ VBAは初心者で全く分からないもので... この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

ごめんなさい。うっかりしていました。 １つ、コードが抜けていました。 PERSONAL.XLS の「ThisWorkbook」の 一番最初の一行目に、 Dim myClass1 As New Class1 を入れてください。 これで、保存して、再起動すれば、うまく行くはずです。 試してみてください。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

すっすっすごい！！！ 私が求めていたのはまさにこれだったんです。 Wendyさん、ほんとにほんとにどうもありがとうございました<(_ _)>

Wendyさん度々すみません。 既存のexcelファイルを開こうとしたら、 「実行時エラー９１：オブジェクト変数またはWithブロック変数が設定されていません」というエラーが返って来ます。 言葉足らずで申し訳ないです。 自分が作ったファイルをメールで添付した時に相手が開けたら、作成者が誰か分かる様にしたかったのですが、教えていただいたVBAで対応可能ですか？ すみません。宜しくお願い致します。

> Wendyさん度々すみません。 > 既存のexcelファイルを開こうとしたら、 > 「実行時エラー９１：オブジェクト変数またはWithブロック変数が設定されていません」というエラーが返って来ます。 > 言葉足らずで申し訳ないです。 > 自分が作ったファイルをメールで添付した時に相手が開けたら、作成者が誰か分かる様にしたかったのですが、教えていただいたVBAで対応可能ですか？ > すみません。宜しくお願い致します。 >

こんばんは。 エラーの出ている場所は見当がつくのですが、なぜなのか、分かりませんでした。 こちらでは、他人のブックで、十分にテストを繰り返しましたが、問題は出てい ません。 前回の、Class1 に書かれたものを、ThisWorkbook にまとめてみましたが、 それでも、同じでしょうか？ただ、こちらでは、再現性がないので分からない のです。 '------------------------------------------始め Public WithEvents App As Application Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window) 　Call Status_Author End Sub Private Sub App_WorkbookOpen(ByVal Wb As Workbook) 　Call Status_Author End Sub Sub Status_Author() Dim BookAuthor As String BookAuthor = App.ActiveWorkbook.BuiltinDocumentProperties(3) Application.StatusBar = "作成者: " & BookAuthor End Sub Private Sub Workbook_Open() Set ThisWorkbook.App = Application End Sub ＞自分が作ったファイルをメールで添付した時に相手が開けたら、作成者が誰か ＞分かる様にしたかったのですが、教えていただいた VBA で対応可能ですか？ 個々のブックに設定する場合は、下のようなコードがよいです。 また、ステータスバーではなくて、Msgbox などのほうがよいですね。 しかし、マクロ・チェックが入っていると、作動しなくなってしまいます。 それを、表示させるようにするのは、デジタル証明をつけなくてはならなくなり ます。 また、相手のステータスバーに出す場合は、相手が気がつけばよいのですが、 気が付いた後に、通常の表示の状態に戻さないと、相手の方に少なからず、 不信感を与えてしまいます。 メッセージを、メッセージボックスで、出すプログラムです。 各ブックのVisual Basic 画面の中の、ThisWorkbook の中に書き込みます。 Private Sub Workbook_Open() 　Dim BookAuthor As String 　BookAuthor = ThisWorkbook.BuiltinDocumentProperties(3) 　Msgbox "作成者: " & BookAuthor,, "開始のメッセージ" End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Wendyさん、おはようございます！ ThisWorkbookにまとめたものを入力し、Class1に書かれてたものを削除してみたのですが、同じような結果が出てしまいました。 再現性ないので分からないですよね。すみません。 相手のステータスバーに出しちゃうと不信感を与えてしまうのですね。 そこまで考えてませんでした。 ステータスバーだったらさりげないかなぁと安易な考えでいました。 メッセージボックスを出してしまうと大げさになってしまい… いろいろご指導いただきありがとうございました。 大変勉強になりました。

こんにちは。 もうお読みにならないかもしれませんが、書き込んでおきます。 今、気が付いたけれども、 ＞ThisWorkbookにまとめたものを入力し、Class1に書かれてたものを削除してみたのですが、同じような結果が出てしまいました。 Personal.xls という固定した場所にあるコードが、ロードしたブックの プロパティを読むコードですから、配布用の個々のブックに適用するコードに は向きません。 それから、配布用のステータスバー使用しないのは、並び替えなどに、ステー タスバーが使用されるからで、ここのサロンでも、思ったように表示しないと いうことで、何度か、トラブル報告されています。時間が経てば消えるという ようなコードも考えられますが、配布用のマクロブックは、何かと気を遣うこ とが多いのです。配布用のブックは、始めからマクロを使うこと目的としない なら、なるべくマクロコードはいれないで、例えば、私は、オートシェイプの 四角の中に、注意書きなどを書いて渡すようにしています。 また、私は、配布用ブックは、デジタル証明（デジタル署名ではありませ ん）をつけることもありますし、マクロ付きブックの場合は、MsgBox ではな くて、DialogSheet を設けることがあります。

Wendyさん、こんにちわ！ ご丁寧にどうもありがとうございました。 そういった背景があったのですね。 配布用ブックには、デジタル証明を付けるのが一番よさそうですね。 デジタル証明の付け方をヘルプで見てややこしそうだったので回避してたのですが。 ほんとにどうもありがとうございました。

こんばんは。 いい悪いは別として、配布用のブックのThisWorkbook のモジュールに、 ステータスバーに表示する方法は以下のようになります。 Private Sub Workbook_Open() Dim BookAuthor As String 　BookAuthor = App.ActiveWorkbook.BuiltinDocumentProperties(3) 　Application.StatusBar = "作成者: " & BookAuthor End Sub ただ、これを自動的に、もとへ戻す方法はありますが、そのタイミングが分かりません。また、マクロをマクロで変更する方法もありますが、それは、アンチウィルスに確実に 検出されて、隔離されてしまいます。 という状態なのです。 私はExcelではあまり関係がないのですが、お客さんなどに渡すバイナリーファィルの 配布の心得みたいなものは、ないようであるものなので、あまり無責任なことはいえ ないのです。 お役に立てずに、ごめんなさいね。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Wendyさんこんにちわ！ ご丁寧にどうもありがとうございました。 参考にさせていただきます。

merryさんへ。 試行錯誤してして、引き伸ばして、すみません。 私の書いた、 #もとへ戻す方法はありますが、そのタイミングが分かりません。 『Excel 5.0 VBA 上級プログラミング』という古い本を、何気なく読んでいた ら、同じような項目が出てきて、それをヒントに作り変えてみました。 何度も試してみましたが、これなら、そのブックのみの仕様になりますし、 相手が、仮に、オートフィルタを使っていても、阻害されません。 これで、うまく行くことを祈るしかありません。 '---------------------------------------------------------- 'ThisWorkbook へ、以下全てです。 Dim STAT Private Sub Workbook_BeforeClose(Cancel As Boolean) 'ブック閉じる前 　　With Application 　　.DisplayStatusBar = True 　　.StatusBar = STAT 　End With End Sub Private Sub Workbook_Open() 'ブックを開いたとき Dim BookAuthor As String 　On Error Resume Next 　BookAuthor = ActiveWorkbook.BuiltinDocumentProperties(3) 　With Application 　STAT = .StatusBar 　　.DisplayStatusBar = True 　　.StatusBar = "作成者: " & BookAuthor 　End With End Sub Private Sub Workbook_Deactivate() 'アクティブではなくなったとき 　With Application 　　.DisplayStatusBar = True 　　.StatusBar = STAT 　End With End Sub Private Sub Workbook_Activate() 'アクティブになったとき 　Dim BookAuthor As String 　On Error Resume Next 　BookAuthor = ActiveWorkbook.BuiltinDocumentProperties(3) 　With Application 　　.DisplayStatusBar = True 　　.StatusBar = "作成者: " & BookAuthor 　End With End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Wendyさん、おはようございます！ いろいろ調べていただいてほんと感謝です。 どうもありがとうございました。 PEASONAL.XLSのところにあるThisWorkbookに上記のプログラムを転記したら いいんですよね？ ステイタスバーに「作成者：」だけは出るのですが、名前は出てきませんでした。 別のそのブック自体のところにあるThisWorkbookに転記したらうまくいきました。 ということは、毎回ブック自体のところにあるThisWorkbookに転記して保存し、 それを添付ファイルで送るようにすればいいんでしょうか？ ほんとVBAは全く知らなくて見当違いな質問していたらすみません。

こんにちは。 ＞PEASONAL.XLSのところにあるThisWorkbookに上記のプログラムを転記したら ＞いいんですよね？ 最初の頃に書いていた、Personal.xls につけるのは、あくまでも個人用です から、配布には向きません。 ＞毎回ブック自体のところにあるThisWorkbookに転記して保存し、 それ自体を、マクロでは出来るのですが、公開すると、マクロウィルスの助長 ということで、掲示板では、ヒンシュクを買いますので、一応、そのたびに転 記して貼り付けてください。 最後のものは、そのブックを開けたときだけ、作成者:○○○○　と出てくる ようにしました。貼り付けただけではダメです。一旦、保管して、もう一度 開けると、そのブックの時だけ出てきます。 そうすれば、配布したときにも、相手の方に迷惑が掛からずにすみます。 時々、掲示板で、どういう事情かは知りませんが、「ステータスバーの表示が 出てこない」という質問があるのです。

早々のご返答どうもありがとうございます！ 初心者の私にも分かりやすい説明いただいて… 解決しました。。。 Wendyさん、何から何までご丁寧に説明いただきどうもありがとうございました！

社内用のWebページの作成をしています。 下図のようなフレーム構造を採用しました。 　　　　フレーム１　　｜　　　フレーム２ ＿＿＿＿＿＿＿＿＿＿＿｜＿＿＿＿＿＿＿＿＿＿＿＿ リンク1（テスト1.xls）｜ リンク2（テスト2.xls）｜　ここに各エクセルファイルが表示 リンク3（テスト3.xls）｜　（ファイルには複数シートがあります） 「リンク1」ページを表示させることは出来るのですが、 他のシートを見ようと、シートタブをクリックすると クリックしたシートが消えてしまいます。 参照もとのデータには影響はないので、HPをリロードすれば シートは復活します。 同じような現象で悩んでいらっしゃる方、原因や解決策が お分かりになる方、お話を聞かせていただけないでしょうか。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

すみません。解決しました。

お願いします。 　Ａ　｜　Ｂ　｜ 　佐藤｜　30　｜ 　足立｜　20　｜ 　佐藤｜　80　｜ 　佐藤｜　50　｜ 　佐藤｜　45　｜ 　足立｜　60　｜ 　佐藤｜　33　｜ 上のような表があるとします。 佐藤さんの最大値80と最小値30を除いた平均値を出したい時はどのような 関数を使えばよろしいですか？ 教えてください。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2002 ++++++++++++++++++++

こんな式で如何でしょう。 =SUM(B1:B7,-MAX(B1:B7),-MIN(B1:B7))/(COUNT(B1:B7)-2)

>佐藤さんの最大値80と最小値30を除いた平均値を出したい時はどのような >関数を使えばよろしいですか？ 平均値とは佐藤さんだけの平均値ですか　それとも全員のですか

佐藤さんだけのです。 よろしくお願いします。

>佐藤さんの最大値80と最小値30を除いた平均値を出したい時はどのような >関数を使えばよろしいですか？ 一つの関数で出すのには骨が折れそうですね 簡単な方法はC列を作業列としておいてそこに佐藤さんだけのデータを 持ってきておくのがいいかな？？ C1 =IF(A1="佐藤",B1,"") この式をC7までコピペ C8 =(SUM(C1:C7)-MAX(C1:C7)-MIN(C1:C7))/(COUNT(C1:C7)-2) C8に答えです

佐藤さんだけの平均でしたか。 =SUM(IF(A1:A7="佐藤",B1:B7,""),-MAX(IF(A1:A7="佐藤",B1:B7,"")),-MIN(IF(A1:A7="佐藤",B1:B7,"")))/(COUNTIF(A1:A7,"佐藤")-2) Shift + Ctrl + Enter キーで式を入力します。 データ数が多いようでしたら、佐藤さんの得点を抽出する作業列を使用したほうが 良いのかも知れません。

こんにちは。 このご質問って、Trimmeanが、割合を排除するのを、数値で排除すると考えてよいの ではないでしょうか？ 佐藤さんの最大値80と最小値30を除くわけですから、 サンプルでは、50と45と33ですよね。 mongさんの式を参考にさせていただきましたが、 =SUMPRODUCT(($A$1:$A$7="佐藤")*($B$1:$B$7>30)*(($B$1:$B$7<80)*$B$1:$B$7))/SUMPRODUCT(($A$1:$A$7="佐藤")*($B$1:$B$7>30)*($B$1:$B$7<80)) という式になるのではないでしょうか？ ここでは、佐藤さんは、最大値と最小値は、1つずつしかありませんが、そう でない場合もありますから、それ自体をカウントしなければなりませんね。

エクセルのセルにある電話番号をクリックしてその相手に 電話をかけることって出来ないでしょうか。 それが出来ると、電話をかけた履歴がすぐに管理しやすい のでいいなって思っています。

これはもはや一般操作ではない気がします。私もこれを調べて大変勉強になりました。マクロでよければ（また操作もご希望のものと若干違います）そのコードを乗せておきます。 ツール⇒マクロ⇒マクロ⇒マクロ名を適当に作成（下記はTELという名） Sub TEL() Set WshShell = CreateObject("WScript.Shell") Application.WindowState = xlMinimized WshShell.Run ("dialer.exe") For i = 1 To 100000000: Next WshShell.SendKeys "%pi" For i = 1 To 100000000: Next WshShell.SendKeys ActiveCell For i = 1 To 100000000: Next WshShell.SendKeys "{Enter}" End Sub これは、かけたい番号が入力されているセルを選択し、その後先ほどのTELマクロを実行します。いちいちマクロを実行するのが面倒ならボタンを作ったり、改良を加えればご希望通りの操作で電話をかけることができるようにできます。それについてはここでは割愛します。 100000000はお使いのコンピュータのスペックに合わせて増減してください。私のPCではこれぐらいが適当でした。（Pen4：2.4GHz）少なすぎると誤動作します。多すぎると時間がかかります。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Sub TEL() Set WshShell = CreateObject("WScript.Shell") WshShell.Run ("dialer.exe") PauseTime = 1 ' 中断時間を設定します。 Start = Timer ' 中断の開始時刻を設定します。 Do While Timer < Start + PauseTime DoEvents ' 他のプロセスに制御を渡します。 Loop PauseTime = 1 ' 中断時間を設定します。 Start = Timer ' 中断の開始時刻を設定します。 Do While Timer < Start + PauseTime DoEvents ' 他のプロセスに制御を渡します。 Loop WshShell.SendKeys "%pi" PauseTime = 1 ' 中断時間を設定します。 Start = Timer ' 中断の開始時刻を設定します。 Do While Timer < Start + PauseTime DoEvents ' 他のプロセスに制御を渡します。 Loop WshShell.SendKeys ActiveCell PauseTime = 1 ' 中断時間を設定します。 Start = Timer ' 中断の開始時刻を設定します。 Do While Timer < Start + PauseTime DoEvents ' 他のプロセスに制御を渡します。 Loop WshShell.SendKeys "{Enter}" End Sub 改良版です。スペックによらず1秒ずつ動作を待ちます。また、エクセルが最小化してしまう問題を改善しました。前回の発言で申し忘れましたが、ダイヤラというソフト（Windowsに標準装備）を経由して電話をします。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

ビブロさん、こんにちは。 私は、Dialer.exe は使ったことがありませんし、実際、今のところ、試すことが 出来ない使えないのですが。 ＞100000000はお使いのコンピュータのスペックに合わせて増減してください。 これって、タイムラグを作るのですか？ でしたら、 どのぐらいの時間の単位なのか分かりませんが、１秒以上でしたら、 Applicaiton.Wait でも可能だと思いますし、それ以下の Wait を掛けるので したら、API の　GetTickCount　や API の Sleep　があると思います。 ＞WshShell.SendKeys "%pi" それと、ここのショートカットの意味がわかりませんが、これは何ですか？ もしも、アプリケーション・アクティベートでしたら、 ID は、Shell で返されるLong型の数値です。 　ID = Shell("C:\Windows\Dialer.Exe",1) 　AppActivate ID, True とすれば、ともかく、そのアプリケーションがフォーカスするまで待ちます。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Wendyさんへ あまり時間関係のVBA知らないので、改良して使ってください。あと、Dialer.exeは標準でWindowsについているようです。あとAPIは勉強中でまだよく分かりません。まあたたき台として上記コードは使っていただければと思います。

"%pi"はアクティブなウィンドウに ALTを押しながらpのキーとiのキーを押下する動作を表します。ダイヤラでいうツールバーの「電話(P)」⇒「ダイヤル(I)」をあらわします。 これはとても面白く便利だけど怖い気もしました。（今日勉強して分かりました）

つまりVBSなどにして、他の人に送って実行してもらえば、実際にそこへ行ってキー操作したのと同じことができるわけです。スレ主さん、関係ない話になってきてしまいすみません。

0555のように入力すると555と表示されてしまいます。 どうしたら始めに0から始まる数列がかけるでしょうか？ お願いします。教えてください！ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

>0555のように入力すると555と表示されてしまいます。 >どうしたら始めに0から始まる数列がかけるでしょうか 書式、ユーザー定義　で　0000 を設定では

こんにちは。 1) セルの書式を予め文字列にして入力する 2) 先頭に ' をつけて '0555 のように入力する いずれかではどうですか？ 数字でなくなりますので、計算などに利用している場合は考慮が必要な場合があります。

２つの対処方法があります。 （１）データが文字列でも良い場合 　　　「0555」と入力する際に「'0555」と入力するか、入力する前にセルの 　　　表示形式を「文字列｣と設定しておく。 （２）データは数値として扱いたい（必ず４桁で表示する) 　　　【書式→セル】と選択して「表示形式」タブで 　　　分類：ユーザー定義 　　　種類：0000

セルの書式設定にて「表示形式」を「ユーザー定義」選択し、 「種類」に『0000』を入力すれば0555と表示されます。

mongさん、Asakiさんかぶりました。 失礼しました。 meroさん、スレッドお借りしました。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

該当するExcelﾌｧｲﾙを開くと『セルの書式が多すぎるため、書式を追加できません』といったエラーメッセージが表示され、そこでOKボタンを押下すると罫線等が消えた状態のシートが現れます。原因は何でしょうか？また、このファイルを修復し元に戻す方法はありませんか？Excel初心者でさっぱり意味がわかりません。助けて下さい。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

こんにちは。 こちら↓でしょうか？ "表示形式を追加できません"エラーが書式設定時に発生する http://support.microsoft.com/default.aspx?scid=kb;ja;213904 >原因は何でしょうか？ 罫線やフォントの設定を見直す必要が在るかも知れません。 >このファイルを修復し元に戻す方法はありませんか？ 2002以上のバージョンで修復されて開ける場合も在るかも知れませんが 何とも云えません。

うーん。 複数のサイトに同じ質問する事を「マルチポスト」と云って 禁止しているサイトが多いです。 一つの質問を残してあとは、解決済みにする事をお奨めします。m(__)m

boyさんありがとうございます。 2002以上のバージョンのエクセルでとりあえず開いてみます。 マルチポストの件ですが、正直初めて知りました。勉強になります。 今後、同じ質問を複数のサイトにアップしないよう気を付けます。 本当にありがとうございました。

お世話になります 散布図のデータラベルのオプションには、 ・値を表示する ・ラベルを表示する とあるかと思いますが、データラベルとして、 別の値を表示させたいと思っています。 たとえば、以下のデータがある場合 　データラベル　　Ｘ軸　　Ｙ軸 　　　１　　　　　　50　　　10 　　　２　　　　　　60　　　20 Ｘ軸・Ｙ軸の値をグラフデータとして使用し、 データラベルの値を、グラフのデータラベル として使用したいのですが可能でしょうか。 ぜひご教授願いたいと思います。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

散布図を作成してから、 グラフ上のデータラベルを２回クリック（ダブルクリックではありません）すると 編集できます（実際のデータはそのままです）が、それでいかがですか？　(=^・^=) ++++++++++++++++++++ OS      ⇒Windows 98 Version⇒Excel 2000 ++++++++++++++++++++

こんにちは charan さんの方法に加えて、ラベルが編集できるようになった状態で、 数式バーにセル参照を入れると、セルの値をラベルに表示できます。 自動でやる方法が、Jon-PeltieさんのＨＰに紹介されています。 http://peltiertech.com/Excel/Charts/Y_CategoryAxis.html Rob Bovey's XY Chart Labeler　というフリーのアドインを使うそうです。 （使ったことありません）ｍ（＿＿）ｍ

お邪魔します。 マクロ(ＶＢＡ)を使っても良いならこんな方法もあります。 ＭＳサポ情報 ★[XL] 散布図の点にラベルを追加するマクロ http://support.microsoft.com/default.aspx?scid=kb;ja;161513 ご参考までに。

x　-4　-2　0　1　2　3 y　 1　 2　3　4　5　6　 上のようなデータでそれぞれの(x,y)をプロットしたいです。 xを項目軸ラベルにしてやるとまずただの比例グラフになってしまい、 xが-2と0の間と0と1間の間隔は同じとみなされてしまいます。 色々やってみてxに負の数がないときは時系列にしてやれば出来たのですが、 （時系列にする以外直せる方法があればそれも教えてください） 負の数では時系列にできないので、この場合どうすればよいのでしょうか？ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

こんばんは。 A B C D E F G H I y 1 2 3 4 5 6 x -4 -2 0 1 2 3 とデータのない部分を開けて、ツール-オプション−グラフ で、「補完してプロットする」に、チェックを入れればよいのではないでしょ うか？ それでは、-4〜0 までが、間延びするというなら、負の方と、正の方と、 二つのグラフを作って、それを組みあせればよいと思います。

お邪魔します。 > 時系列にする以外直せる方法があればそれも教えてください 現在お使いのグラフ種類は何でしょうか？ イメージグラフを取り違えているかもしれませんが、 グラフ種類『散布図』の「散布図」を使ってみてはどうでしょうか。

Wendyさん、ブックマークさんどうもありがとうございました。 どうもブックマークさんのおっしゃるのがアタリっぽいです。 今まで折れ線でやってたんですが、こちらは確かに「プロット」っていう感じですね。 ありがとうございます。

はじめまして。 Accessで、整数又は小数点１桁までしかないデータをピボットテーブルにインポートすると、勝手に小数点がないデータでも、１０桁以上の小数点以下の数値が付加されてしまいます。 例） DB内：5 ピボットテーブル：5.039872459276 という風になってしまうのですが、Microsoftのページのトラブルでも載っていませんでした。 何か原因等、ご存知の方がいらっしゃいましたら、教えてくださいませ。 よろしくお願いいたします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

AccessDBでは5と表示されているということですが、テーブルのデータ型が「単精度浮動小数点」となっていて、5.0が入力されているのでしょうか。 テーブルから直接エクスポートしたデータなのか。クエリやレポートなどからエクスポートしたデータなのかわかりますか？ Excelと同じようにAccessも表示形式のみ整数で表示されていることもありますが。。。 いかがでしょうか？

こんばんは。 上位バージョンの Access で、Excel の　PivotTable に直接リンク出力でき る機能があるのでしょうか？こちらは分かりません。 たぶん、DB側を、テキスト型にして出力してしまえば、表示形式でExcelは、 インポート できるような気がしますが、 そうでなければ、Access のデータを、直接ではなくて、Excel に単にデータ をエキスポートしてから、もう一度、処理して、PivotTable に換えるという わけにはいかないのかしらね。 もしくは、Access の出力データ用のクエリに、 例えば、フィールド部分に、数値1: Int([数値1]*10)/10 とすれば、小数点第一位まで を出力することができます。

おばぁ様、お返事ありがとうございます。 > AccessDBでは5と表示されているということですが、テーブルのデータ型が「単精度浮動小数点」となっていて、5.0が入力されているのでしょうか。 AccessDBでは、データ型は「単精度浮動小数点」となっています。 テーブルのデータを見ますと、「5.0」ではなく、「5」という風に見えますが、内部的には、「5.0」で持っているのでしょうか？ > テーブルから直接エクスポートしたデータなのか。クエリやレポートなどからエクスポートしたデータなのかわかりますか？ 説明が下手ですみません。 ピボットテーブルで右クリックし、「データの更新」のクエリ（でしょうか？）でデータを取り込んでいます。 > Excelと同じようにAccessも表示形式のみ整数で表示されていることもありますが。。。 > いかがでしょうか？ すべてのデータが、小数点以下が付加されてしまうのではなく、そういうデータもあったり、きちんと整数のデータもあったりなのです。。 Web上から入力したデータをDBに保存し、DBデータをExcelで処理しているのですが、Webでの入力の際は、整数または、小数点１桁までしか入力しません。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

Wendyさん、こんにちは。お返事ありがとうございます。 > 上位バージョンの Access で、Excel の　PivotTable に直接リンク出力でき > る機能があるのでしょうか？こちらは分かりません。 こちらも説明べたで申し訳ございません。 ピボットテーブルのクエリ機能（？）のデータ更新で、DBのデータを取ってきております。 > たぶん、DB側を、テキスト型にして出力してしまえば、表示形式でExcelは、 > インポート できるような気がしますが、 そうですね。テキスト型にすれば、いいのかもしれません。 やってみますね。 > そうでなければ、Access のデータを、直接ではなくて、Excel に単にデータ > をエキスポートしてから、もう一度、処理して、PivotTable に換えるという > わけにはいかないのかしらね。 DBのデータを利用して、マクロでグラフ等にする処理をしているのですが、マクロは別の方が作成したため、相談してみます。 > もしくは、Access の出力データ用のクエリに、 > 例えば、フィールド部分に、数値1: Int([数値1]*10)/10 > とすれば、小数点第一位まで を出力することができます。 これは使えそうですね。 こちらもやってみますね。 ありがとうございました！

今データをもう少し見てみたのですが、Accessのテーブルを開き、データをコピーしてエクセルに貼り付けると、入力したデータと同じく、整数または小数点１桁でした。 （やはり、ピボットテーブルを介すと、小数点以下が増えてしまうみたいです） DB内で「110.6」というデータが「110.599999904632」となっていたり、「133」というデータが「132.599999904632」となっていたりしていました。

はじめまして。 D列にある数字を参照してE列にB列の数字を表示させたいと考えています。 E列には=VLOOKUP(D2,$B$1:$B$7,1,1)の関数が入っています。 VLOOKUP関数を使うと検索値がない場合は検索値未満で最も大きい数字になりますが、その逆の検索値以上で最も小さい数字を表示したいのです。 最終的にはE列にB列に含まれる数字を表示するにどうしたらいいでしょうか。 Ａ Ｂ Ｃ Ｄ Ｅ 1 10 10 10 2 15 14 10 3 18 19 19 4 19 23 19 5 25 31 31 6 28 25 25 7 31 17 15 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

タイトルを入れている途中で間違えて送信してしまいました。 「VLOOKUP検索値の逆は可能ですか」と入力したかったのです。 しかも表が見難くてすいませんでした。 Ａ Ｂ Ｃ Ｄ Ｅ 1 10 10 10 2 15 14 10 3 18 19 19 4 19 23 19 5 25 31 31 6 28 25 25 7 31 17 15

>最終的にはE列にB列に含まれる数字を表示するにどうしたらいいでしょうか。 具体例と正解をいくつかあげてください わからないのは私だけ？

mongさん、メジロさん早速のレスありがとうございます。 説明不足ですいませんでした。 最終列にある数字がE列との数字と変わっている状態にしたいです。 最終列空白はE列のままです。 D1の10に対してB列に10があるのでそのまま表示させます。 D2の14に対してはB列にありませんのでB列の中で14より大きくて最も小さい数字の15が入ります。 D3の19はB列に19がありますのでそのまま表示、D4の23はないのでB列の23より大きくて最も小さい数字の25が入ります。 この説明でも不安なのですが宜しくお願いします。 Ａ Ｂ Ｃ Ｄ Ｅ 最終 1 10 10 10 2 15 14 10 15 3 18 19 19 4 19 23 19 25 5 25 31 31 6 28 25 25 7 31 17 15 18

D列で降順に並び替えておき, F1に検索値が入力されているとして。 =INDEX(B1:B7,MATCH(F1,D1:D7,-1),1) ただ、この場合「19」が２個ありますが、このように重複している場合には どのようにされるのでしょうか？

eiko -(2004/12/13(Mon) 15:31:10)の書き込みを拝見して 少なくとも私の解釈でないことがわかりました。 上のかみこみは無視してください。 もう少し求めたいものをはっきりしないとまた、誤解釈の回答がでそうですが・・・

Ａ Ｂ Ｃ Ｄ Ｅ 1 10 10 10 2 15 14 15 3 18 19 19 4 19 23 25 5 25 31 31 6 28 25 25 7 31 17 18 eikoさんへ これが求めたいものですか？方法はまだ考え中です。

ビブロさん、こんにちは。 そうです！求めているのはそれです。 宜しくお願いします。

配列数式ですが、これで合ってますでしょうか。 E1セル=MIN(IF($B$1:$B$7>=D1,$B$1:$B$7,"")) Shift+Ctrlキー押しながらEnterキーで確定させて配列数式にして以下コピー

こんにちは。 たぶん、こんなのでどうでしょうか？ E2〜 =IF(D2="","",IF(ISERROR(SMALL($B$2:$B$8,MATCH(D2,$B$2:$B$8,1)+1)),MAX($B$2:$B$8),SMALL($B$2:$B$8,MATCH(D2,$B$2:$B$8,1)+ISERROR(MATCH(D2,$B$2:$B$8,0)*1)))) 要するに、一致した数がなければ、その上の数を出すということです。 たぶん、同じ数があると、この式では出来ないと思います。

E1 =IF(COUNTIF($B$1:$B$7,D1)>=1,D1,SMALL($B$1:$B$7,COUNTIF($B$1:$B$7,"

似たようなものですが、これでも。 E1=IF(COUNTIF($B$1:$B$7,D1),D1,LOOKUP(D1,$B$1:$B$7,$B$2:$B$8)) で下へコピー。 10より小さいものや31より大きいのもは エラー表示や０表示となってしまいますけど。

mongさん回答の =SMALL($B$1:$B$7,COUNTIF($B$1:$B$7,"

みなさんありがとうございます！ 無事に自分の考えていた表が出来ました！ mongさんとしげちゃんさんの数式を使用させて頂きました。 鮎さんが教えてくださった配列数式は今まで使うことがなかったので勉強になりました。 ありがとうございました！

はじめまして。セル操作について少々わからなくなったので、 ご指導下さい。 セルa1に=SUM(C14/C9)*100とはいってます。（粗利の計算です。） b1に合格！とはいってます c1に失格！とはいってます a1に30.0以上であればb1のセルが青にぬりつぶされ、 a1に30.0以下であればc1のセルが赤にぬりつぶされる。 条件付書式になりますかね？ もしそれ以外のやり方、ご存知な方、ご指導おねがいいたします ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

こんにちは。 条件付書式だと思います。 B1での設定 「数式が」「=$A1>=30」 で「書式」ボタンを押してパターンを青 C1での設定 「数式が」「=$A1<=30」 で「書式」ボタンを押してパターンを赤 ちなみに、ちょうど30なら両方色がつきます。

30の場合にはB1、C1の両方を塗りつぶすということでしょうか。 B1を選択して【書式→条件付書式】と選択し、 数式が　　=$A1>=30 書式ボタン → パターンで色設定 同じようにC1を選択して 数式が　　=$A1<=30 書式ボタン → パターンで色設定

Asakiさん、失礼しました。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

こんにちは。 オートフィルタ機能を使用して ある条件のみを表示させ、その数を数えたいのですが COUNTA関数を使用しても、数がズレてしまいます。。 指定した条件の数のみを数えたい場合 何の関数を使用すればいいのでしょうか？ よろしくお願い致します。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

こんにちは。 SUBTOTAL関数の集計方法を「3」にしてみましょう。

こんにちは 普通に =COUNTIF(A:A,C1)では駄目でしょうか？ C1：指定条件 条件を変数にしておけば色々対応可能だと思いますけど

＞Ｍｅｗさん やっぱりCOUNTIFですよね。 確かにCOUNTIFで条件を入れると出来るのですが、 COUNTA関数で数字だけ数えられれば楽かなと思いまして。。。 ＞ boyさん SUBTOTAL関数の集計方法3で出来ました！ ちなみに3ってなんでしょう？（汗）。。。 無知ですみません。。。

こんにちは。 SUBTOTAL関数の引数の集計方法は、1〜11まで在ります。 1 AVERAGE 平均 2 COUNT 数値の個数 3 COUNTA 空白でないセルの個数 4 MAX 最大値 5 MIN 最小値 6 PRODUCT 引数の積 7 STDEV 標本に基づいて母集団の標準偏差の推定値を返します 8 STDEVP 引数を母集団全体であると見なして、母集団の標準偏差を返します。 9 SUM 合計 10 VAR 引数を正規母集団の標本と見なし、標本に基づいて 母集団の分散の推定値 (不偏分散) を返します 11 VARP 数値、文字列、および論理値を含む引数を正規母集団の標本と見なし、 　　　　　　 標本に基づいて母集団の分散の推定値 (不偏分散) を返します。 となります。 詳しくはそれぞれの関数のヘルプをご確認ください。

はじめまして、natsuと申します。 セルのA1からA5までに○または×を入力します。 A1からA5までが全て○ならA6に○ A1からA5までに1つでも×があればA6に×を入力するような関数はありますでしょうか？ お手数ですが、どなたか教えてください。 宜しくお願いします。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2003 ++++++++++++++++++++

おはようございます A6=if(COUNTIF(a1:a5,"○")=5,"○","×")) で出来ますよ〜 自分で出来るようになるともっと楽しいですよ 頑張って下さいね〜

Mewさん、すみませんが、 =IF(COUNTIF($A$1:$A$5,"○")=5,"○",IF(COUNTIF($A$1:$A$5,"×")>0,"×","")) セルには、×以外もありえますから、お話の様子からですと、このようになるのでは？

>セルのA1からA5までに○または×を入力します。 >A1からA5までが全て○ならA6に○ >A1からA5までに1つでも×があればA6に×を入力するような関数はありますでしょ >うか？ 質問の意味が色々解釈できそうですね。 Wendyさんの解釈が近そうですが・・・ セルのA1からA5までに○または×を入力します。（未入力有り、他の記号なし） A1からA5までが全て○なら（入力「全て」と解釈） =IF(COUNTIF($A$1:$A$5,"×"),"×","○") 但しA1からA5全て未入力は考慮していません

Wendyさん ありがとうございます。 私のだと1つでも×が考慮されてませんでした。 文章しっかり読み返さないと駄目ですね〜

返事が遅れてすいません。 解決しました。 教えていただいたみなさん、ありがとうございました。

１０：００ 　　〜　　←ここだけを９０度回転させたい １２：００ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

書式、セル、配置、方向で　縦を選択しては　いかが

すみません。説明が足りなかったみたいで…。 １つのセル内として実施したいのですが。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

おはようございます。 回転させたい「〜」だけを選択して、mongさんの方法をとれば できますよ。

> 回転させたい「〜」だけを選択して、mongさんの方法をとれば > できますよ。 セルの一部に対してはできないはずです。 「S」で代用して そこだけ それっぽい英字フォントにするとか。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

ごめんなさい、勘違いしてました。 私はいつも例題のように記述するときはセルを大きくしたり結合させないで 3行に分けて真ん中の　〜　だけのセルを回転させていますが。 はむはむさんは、どんな設定になってるんでしょうか

> １つのセル内として実施したいのですが。 とありますから ひとつのセル内で １０：００<Alt + Enter> 〜<Alt + Enter> １２：００ で中央揃えにしているんだと思います。 > 「S」で代用して 「∫(インテグラル)」の方がそれっぽいでしょうか？ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

こんにちは。 オートシェイプの曲線でもつくれると思います。 最初に大きく作っておいて、それを縮小していけばいいわけです。

いろいろな意見ありがとうございました。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

こんにちは。 超基本的なことですみません。 ＥＸＣＥＬで、ファイルメニューの開くを選択したときに mydocumentsのファイル名一覧の一つのファイルにグレー部分 がかかっていますが、どういう意味でしょうか・ どなたか教えてください。 ++++++++++++++++++++ OS      ⇒Windows ME Version⇒Excel 2000 ++++++++++++++++++++

こんにちは。 >mydocumentsのファイル名一覧の一つのファイルにグレー部分 たぶんですけど・・・。 デフォルトで選択？されているファイルと云う意味では無いでしょうか？ 　↑基準はわかりませんけど・・・。 ファイル名を指定しないで、そのまま「開く」とすると 対象になっているファイルが開かれると思います。

>投稿者/ boy -(2004/12/13(Mon) 11:59:22) >たぶんですけど・・・。 >デフォルトで選択？されているファイルと云う意味では無いでしょうか？ >　↑基準はわかりませんけど・・・。 単純にmydocumentsの中で、指定したファイル種別での 先頭(ファイル名昇順)のファイルが選択されるはずです Book0.xlsを作成して同じ様に開くとBook0.xlsが選択されませんか？ また、仮にフォルダ内にAAA.txtを作成した場合、 ファイルの種類を｢全てのファイル*.*｣や｢テキストファイル*.rpn *.txt *.CSV｣に 切り替えるとAAA.txtが選択されます ファイル名を指定せずにそのまま｢開く｣ボタンを押すと、 グレー表示のファイルを選択したと解釈され、そのファイルが開かれます。

夜目狸さん、boyさん、どうもありがとうございました。 基本的なことでしたが、勉強になりました。 これからもお願いいたします。 ++++++++++++++++++++ OS      ⇒Windows ME Version⇒Excel 2000 ++++++++++++++++++++

消費税がかかる（課税）料金、かからない（非課税）料金の表があります。 ＩＦ関数を使って、課税ならもとの料金に１．０５をかけた額を、非課税ならもとの料金のまま合計額を表示したいのですが、論理式中に課税（非課税）の文字列を入れるとエラーになります。 どのようにしたらいいでしょうか？ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

もう少し情報がほしい気がしますが,想像で。 =IF(B1=非課税,A1,A1*1.05) と入力でしたら =IF(B1="非課税",A1,A1*1.05) こんなことしか想像できません。

メジロさんありがとうございました。 非課税を””で囲うことを忘れていました。 あっさり解決しました。 でも、Excel画面でｆｘボタンを使って入力したのにできないなんて・・・

グラフを作ったのですが 縦が体重。横が日付。で作成しました。 例えば１２月度のグラフの場合 昨日までのグラフのデータ範囲を指定しておくと 今日の分をデータに入れてもそこは範囲外なので グラフに反映されません。 データを追加した分グラフのデータ範囲も自動的に 延ばすことは不可能なのでしょうか？ ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

うまく説明出来なくてすいません。 例えばグラフのデータ範囲が=deta!$A$1:$C$30 とするとA1からC30のデータがグラフ化されるのですが 次の行にデータを入れた時に自動的にデータ範囲が =deta!$A$1:$C$31になってくれるようにはできないでしょうか？ ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

こんばんは。 ＞=deta!$A$1:$C$31になってくれるようにはできないでしょうか？ それぞれに、設定してあげなくてはならないはずです。 以下のようになります。 例えば、 日付を、 挿入−名前−定義 名前−日付 「A1」からデータが始まっていれば、 =$A$1:INDEX(Sheet1!$A:$A,COUNTA(Sheet1!$A:$A)) (A1の部分が、自動的に絶対参照にはなりませんので、F4で手動で絶対参照に 　変更してください）A1 にタイトルが入っていれば、 先頭は、「A2」 から =$A$2:INDEX(Sheet1!$A:$A,COUNTA(Sheet1!$A:$A)) となります。 挿入−名前−定義 名前−体重1 =$B$1:INDEX(Sheet1!$B:$B,COUNTA(Sheet1!$B:$B)) 上記と同じ条件です。 挿入−名前−定義 名前−体重2 =$C$1:INDEX(Sheet1!$C:$C,COUNTA(Sheet1!$C:$C)) と「参照範囲」を設定します。 グラフが出来上がっているならば、 グラフエリアの 「元のデータ」−「系列」[タブ]を 開けて、値の部分は、それぞれ、ブック名をつけて 「=data.xls!体重1」 「=data.xls!体重2」 項目軸ラベルには、 「=data.xls!日付」 と設定してあげます。 そうすれば、可変グラフになります。

お返事ありがとうございました。 無事解決しました。 有難う御座いました。

Excelで作られたアンケートの表です。 yesかnoにチェックをするアンケートなのですが、答え方がわかりません・・・ クリックすると、矢印がでてきてしまいます。 お手数ですが、どなたか教えてください。 よろしくお願いいたします。

そのアンケートをお作りになった方に聞かれたほうがよろしいかと(^_^A;

念のため。 ツールバー上で右クリックして「コントロールツールボックス」にチェック。 コントロールツールボックスのツールバー上の三角定規のアイコンがもしへこんでいれば クリックして平らにしてからツールバーを閉じてみてください。

鮎さんへ その通りですね・・・ やはり作った方に聞いてみることにします。 ありがとうございました。 独覚さんへ 試してみましたが、ダメでした。 何でだろう・・・ でも、とてもわかりやすい説明でした。 ありがとうございました。

ファイル保存時うっかりしてメッセージを見落としました。そのファイルが開けません。解除の仕方または別名でどこかに自動的に保存になっているのでしょうか？ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

こんにちは。 何のメッセージも表示されないのでしょうか？ 状況がわからないので一般的な方法をいくつか・・・。 Excelは立ち上がりますか？ 「ウインドウ」「再表示」にファイル名は表示されますか？ ＰＣを再起動しても開けませんか？ 駄目なら Tempフォルダ内をすべて削除 C:\Documents and Settings\<ぷ〜りんさんのログインユーザー名>\Local Settings\Temp して開けませんか？ ※Tempフォルダは隠しフォルダなので「フォルダオプション」で 　「すべてのファイルとフォルダを表示する」にチェックしないと 　表示されません。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

少しむずかしそうですがやってみます ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

今度はメッセージをきちんと確認してからお聞きするようにしたいとおもいます。初心者すぎておはずかしいです。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

Excel2000のファイルを2002で更新して保存したときに「以前のバージョンのExcelで保存したファイルに含まれる式は、ファイルを開いたときに自動で再計算されます」で、「はい」を選んで保存したところ、次から開くたびに再計算のため、画面がちらついてしまいます。解除方法はありますか？ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2002 ++++++++++++++++++++

2002は持ってませんが、たぶん「ツール」「オプション」「計算方法」が自動に なっているからだと思われます。それなら手動にチェックして下さい。

ケイン さんありがとうございます。やはりそれしかないのでしょうか。でも、できれば全くの解除が出来ないかなと思い・・・。

こんばんは。 今調べてみましたが、 http://support.microsoft.com/default.aspx?scid=kb;ja;JP289111 [XL2002] 変更していないのに保存を促すメッセージが表示される ケインさんのお書きになったことと、同じようなことですね。 Microsoft サポートの解決方法は、ご指摘のように、あまり効果的ではありません。 97-2000形式と2002形式の Excel ファイルのバージョンを管理する部分の違い だそうです。 いっそ、シートコピーで、新しいブックに移してしまうというのは、どうでし ょうか？ Excel2000 と、2002 の関数自体の違いはありませんから、そのまま、コピー できます。 また、手作業では、とても出来なければ、VBA サロンで、全部のシートコピー のサンプルコードもあったはずですし、簡単に作れます。

解答していただきありがとうございました。VBAを使ってコピーでやってみます。今後もよろしくお願いいたします。

エクセルのファイル、またエクセル自体が起動しなくなってしまいました。 普通に使っていたのに、ふっ・・・と席を離れてみたら 「選択した機能はCD-ROM、またはﾘﾑｰﾊﾞﾌﾞﾙﾃﾞｨｽｸにあります。」 「Microsoft office2000 Premiumディスクを挿入して下さい」 とコメントされます。 急になぜなのでしょうか？ また、どのようにしたら復活するのでしょうか？ 全く関係の無い書き込みかもしれませんが、助けて下さい。 お願いします。仕事が出来ません（；；） ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

追加ですが・・・ エクセルのアイコン（ファイルも含め）をクリックすると 「インストール」が始まるんです。 そして先のようなコメントがウィンドウに表示されます。 やっぱり全然関係の無い質問だとダメなのでしょうか？ ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

こんばんは。 ＞「選択した機能はCD-ROM、またはﾘﾑｰﾊﾞﾌﾞﾙﾃﾞｨｽｸにあります。」 ＞「Microsoft office2000 Premiumディスクを挿入して下さい」 コントロールパネルの「アプリケーションの追加と削除」から、 一応、CD-ROMで、修復を掛けたほうがよいですね。 たぶん、Excelが、何かのアドイン機能を呼んでいるのかもしれませんが。

エクセル再インストールしてもファイルは消えないので再インストールもしくは指示通りOfficeのCDを入れてみてはいかがですか？

はじめて、めっしーといいます。とても困っているので教えてください。 たとえば、A1セルに文字を入れたら、その文字を入力した時と分がそれぞれB1セルに時、C1セルに分の数字が入るような方法はありませんか。 　 　A　　 　 B　　 　C　　　 D 1 (文字) 　 16時　 30分 2　　↑ ここ（A1)に文字を入力したら、B1にその時の時・C1にその時の分がそれぞれはいるような方法はありませんか。 教えてください。お願いします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

B1=IF(A1="","",HOUR(NOW())&"時")　 C1=IF(A1="","",MINUTE(NOW())&"分") 但し、別のセルに入力があった時点で更新されてしまいます(^_^; 更新されないようにしようとするのは私は解りませんm(__)m

マンボウさん　早速の回答ありがとうございます。 できれば更新されない方法があるのならば、それが知りたいです。 わかる方がいたら教えてください。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

こんばんは〜 循環計算を利用すれば可能です。 ツールのオプションで、計算方法のタブの「反復計算」にチェックを入れます。 （この場合、回数も変化の最大値もそのままで良いでしょう） で、 B1に、=IF(A1="","",IF(B1="",HOUR(NOW())&"時",B1)) C1に、=IF(A1="","",IF(C1="",MINUTE(NOW())&"分",C1)) とします。 A1にデータを入力した時刻を、保持します。 A1のデータを削除すると、B1･C1ともにデータが消えてリセットされます。

こんばんは。 ＞できれば更新されない方法があるのならば、それが知りたいです。 そうしたら、VBAのイベント・プロシージャーを使用します。

Excel_Oyajiさん、Wendyさんありがとうございます。 やってみます。ありがとうございました。

こんばんは。 あの後、やってみたのですがうまくいきません。 VBAのイベント・プロシージャーとは具体的にどのようにやるのでしょう？ すみませんが教えてください。

こんばんは。 下のシート・タブのところで右クリックで、[コードの表示]を クリックします。そうして、現れた画面に、以下のコードを貼り付けます。 閉じるときは、右上端の「×」をクリックすれば、元の画面に戻ります。 Private Sub Worksheet_Change(ByVal Target As Range) 　With Target 　If .Count > 1 Then Exit Sub '入力範囲が複数の場合は除外 　If .Column > 1 Then Exit Sub '入力の列がA=１列目以上なら除外　※ 　　If .Value <> "" Then 　　　.Offset(, 1).Value = Format(Now, "h時")　'１つ隣 　　　.Offset(, 2).Value = Format(Now, "m分")　'2つ隣 　　End If 　End With End Sub なお、入力行が全てではない場合は、 ※ If .Column>1 の次の行に、 If .Row <2 Or .Row >100 Then Exit Sub などとしてみてください。 意味は、行が、2より小さい、または、100より大きい場合は除外ということです。 つまり、２行目から、100行目までということになります。 これを、その下に、挿入すればよいです。 このコードでしたら、数字を換えるだけですのですので、分かりやすいと思います。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

ありがとうございました。やりたかった表示ができるようになりました。 すみませんが、もうひとつ教えてもらってもいいでしょうか？ 文字を入れるのがB列より右の場合、コードはどこを変えればよいのでしょうか？ 何度も申し訳ありませんが、教えていただけませんか。お願いします。

こんばんは。 ＞文字を入れるのがB列より右の場合、コードはどこを変えればよいのでしょうか？ コードのOffset という文字に着目してください。 #　　　.Offset(, 1).Value = Format(Now, "h時")　'１つ隣 Offset は、ワークシートの関数と同じやり方です。 　Offset(行,列) ということですから、右ということですと、列になりますね。 もし、 A4 に元の入力をしたとして、D4 でしたら、3つ目になりますから、 その場所から、1列、2列、3列、右ということになりますから、 　　　.Offset(, 3).Value = Format(Now, "h時")　'3つ隣 です。本来は、.Offset(0, 3)　という書き方ですが、省略が利きます。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

すみません、説明が足りなくて。 聞きたかったのは、A1に文字が入って、"時"と"分"が入るところがB列より右ということではなくて、最初の例で言うとA1に入る文字が例えばD4に入り、その隣へ"時"と"分"が入るということなんです。これでわかりますか？

こんばんは。 ＞最初の例で言うとA1に入る文字が例えばD4に入り、その隣へ"時"と"分"が入る ここに書いてあるとおりなのですが、 #　If .Column > 1 Then Exit Sub '入力の列がA=１列目以上なら除外　※ としたら、 そのままのコードを用いるなら、 If .Column <4 And .Column >4 Then Exit Sub ということになりますね。 しかし、これじゃヘンだとお思いになる方もいます。 そこで、 If .Column = 4 Then　　※の部分と 　End If <　【ここ】元のコードのEnd If の下にもう１つ、「End If」を入れます。 　End With End Sub となります。入れてみると、End If が二つ重なるので、ちょっとヘンに感じる かもしれませんが、入れ子（ネスト）になりますので、閉じてあげます。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

Wendyさん、本当にありがとうございました。 なんとかできました。 また何かあったらよろしくお願いします。

勤務時間表を作っています。 A=6.5 B=7 C=8 D=7.5 E=0 A B C D E F G 1 月　　　1　2　3　4　5　6　7　8　9　・・・ 2 氏名　　A A C D B A 3勤務時間 こういう表を作っていますが、 B3のセルには、自動的に6.5　7　などの勤務時間が入力されるような表に したいのですが、どのような計算式を入れたらいいのでしょうか。 よろしくお願いいたします。

こんにちは 記号に対する条件が追加されることも考慮して Vlookup関数をお勧めします 別シートに 【A】　【B】 A　　　6.5 B 7 C 8 D 7.5 E 0 B3=if(b2="","",(vlookup(b2,$A:$B,2,0)) でいかがですか？

お節介ですが・・・・ B3=IF(B2="","",VLOOKUP(B2,Sheet2!$A:$B,2,FALSE)) 　　・別シート参照であればSheet2!の様にシート名が必要 　　・VLOOKUPの前の(は不要 　　・検索の型は、構文上はFALSEかTRUE(勿論FALSEの代わりに0でもOKでは有りますが・・)

1日から31日分の同一の表のsheetと1ヶ月累計のsheetがあります。 sheet1！"A1"からsheet31！"A1"に売上高があるとして　指定した日にちの期間内の売上累計を知りたいのです。 　例えば、10日から15日までを指定したとして10日のセル番地は累計のsheetの"C5"、 15日のセル番地は"C7"、売上累計は"C10"とした場合"C10"にはどのような関数が入るのでしょうか？　　よろしくお願いします。

おはようございます。 説明からイメージ沸き難いのですけど。。 何処かのSheetに　累計範囲を入力します 開始期間　A1 終了期間　A2 上記日付で累計シートにワークフィールドを作成し =if(and(開始期間<=日,日<=終了期間),"*","") これをワークフィールドに*があるものだけで =sumif(合計範囲，"*",合計列）で出来そうですけどね〜

●Sheet1〜Sheet31のA1セルの串刺し合計 　　シート名タブの並びで、左端がSheet1、右端がSheet31で 　　Sheet2〜Sheet30がSheet1とSheet31に挟まれる位置関係であれば 　　いわゆる『串刺し』計算が可能です 　　　=SUM(Sheet1:Sheet31!A1) ●串刺し計算はINDIRECT関数では使用できない 　　質問では累計シートのC5に10、C7に15を入力する事で 　　Sheet10〜Sheet15のA1セルの総和を求めるようですが 　　参照セルアドレスの一部を別セルに入力した値から生成して 　　数式で目的のセルを参照するためにはINDIRECT関数を経由 　　する必要があります。 　　ところがINDIRECT関数はシートを跨ぐ様なセル範囲を参照することはできません 　　　=SUM(INDIRECT("Sheet"&C5&":Sheet"&C7&"!A1")) 　　　↓↓ 　　　=SUM(INDIRECT("Sheet10:Sheet15!A1")) 　　　↓↓ 　　　#REF!エラーで計算不可 ●解決方法 各日付毎のシート(Sheet1〜Sheet31)名から日付部分(1〜31)を取り出し 共通の空きセル(ex：X1)に累計シートのC5とC7で指定された日付の範囲であれば A1の値をX1にセットし、範囲外であれば0をセットします。 累計シートの値を表示するセル(C10)には、串刺し計算でX1の合計を求めます １）Sheet1〜Sheet31を作業グループで選択 　　(シート名タブのSheet1をクリック後、Shiftキーを押しながらSheet31をクリック) ２）表示されたシートのX1セルに以下の数式を入力 　　=IF(AND(累計!C5<=VALUE(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+6,31)),累計!C7>=VALUE(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+6,31))),A1,0) ３）累計シートのC10セルに以下の数式を入力 　　=SUM(Sheet1:Sheet31!X1)と指定します

こんにちは、どなたか教えてください シート1 　　　A B １　品名　　　　在庫 ２　イチゴ ３　スイカ ４　レモン　　　 ● ５　パイン　　　 ● ６　キウイ ７　リンゴ ● シート2 　　　A １　在庫 ２　レモン ３　パイン ４　リンゴ とこのように シート1のA列に品名があり、B列に●が付いた品名だけ シート2に表示したいのですが出来ますでしょうか？ 出来ればシート１の１Bの文字をシート2の１Aに表示して その下に品名を表示する といった感じです、よろしくお願いします ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2000 ++++++++++++++++++++

こんにちは。 予め、シート2のA1に「在庫」と入力しておき、 シート1でオートフィルタを利用し、●が付いた品名だけを抽出してシート2のA2以降にコピー ではダメですか？

こんにちは 早速の返信ありがとうございます すみません一つ抜けていました シート1 　　　A B　　　　　C １　品名　　　　在庫 出荷予定 ２　イチゴ ３　スイカ ４　レモン　　　 ●　　　　× ５　パイン　　　 ● ６　キウイ ７　リンゴ ● Cに出荷予定があり、それは除いて シート2 　　　A １　在庫 ２　パイン ３　リンゴ と、したいです Asaki様の >以降にコピーではダメですか？ とありますが出来ればその手間を省きたいのですが・・・ シート２=(シート１の●の付いた"品名"-×の付いた"品名") と、こんな感じで よろしくお願いします この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

こんばんは。 ＞出来ればその手間を省きたいのですが・・・ そうすると、一般操作では、こんな式しかありませんね。 Sheet2 のA2〜 =IF(SUM((Sheet1!$B$1:$B$7="●")*(Sheet1!$C$1:$C$7<>"×"))<ROW(A1),"",INDEX(Sheet1!$A$1:$A$7,SMALL(IF((Sheet1!$B$1:$B$7="●")*(Sheet1!$C$1:$C$7<>"×"),ROW($A$1:$A$7),""),ROW(A1)))) ※配列式ですから、Shift＋Ctrl＋Enterで、配列の確定をしてあげます。 他にもあるようには思いますが、まずは参考までに。

こんばんは Wendy様、早速入力してみました ですが、41807のシート1の表使ってみると "パイン"しか表示しません 今一度見ていただけませんか？

こんばんは。 点検してみましたが、問題は発見できませんね。 シート2には、以下のように表示されます。 もちろん、式は、A2 から、データ分だけドラッグコピーしなければ なりませんが。 品名 パイン リンゴ もし、うまく行かないようでしたら、一度、●　×　の書かれてある列の範囲を 選択し、編集−置換で、 検索する文字　「 」（半角スペース） 置換後の文字列「」（何もいれない） で、空白スペースを削除してみてください。

おはようございます 今朝もう一度入力したら出来ました 式を入力後、Shift+Ctrl+Enterをして セルの右下のちいさい四角を、下に引っ張っていくと他の品名が表示されました 昨日までは、先にA2からA7まで範囲を指定していたものですから 2から７までパインしか表示されませんでした 自分が素人であることを思い知らされました で、一つ追加質問ですが シート1 　　　A D　　　　　H １　品名　　　　在庫 出荷予定 ２　イチゴ ３　スイカ ４　レモン　　　 ●　　　　× ５　パイン　　　 ● ６　キウイ ７　リンゴ ● ↓ 50行まで 範囲を広げたいのですが 数値を変えても上手くいきません どこを変えればよいのか教えていただけませんか？ よろしくお願いします

こんにちは。 ＞50行まで ＞範囲を広げたいのですが =IF(SUM((Sheet1!$B$1:$B$50="●")*(Sheet1!$C$1:$C$50<>"×"))<ROW(A1),"",INDEX(Sheet1!$A$1:$A$50,SMALL(IF((Sheet1!$B$1:$B$50="●")*(Sheet1!$C$1:$C$50<>"×"),ROW($A$1:$A$50),""),ROW(A1)))) ※配列数式ですので、Shift＋Ctrl＋Enterで配列の確定をしてください。 というようになります。 少し、詳しい説明とコツを教えますと、 配列と共通する ROW($A$1:$A$50)の数字は、インクリメンタル(１つずつ数が 増えること）と呼んで、ダミーの数字で、どこも参照しているわけではありま せん。しかし、範囲と共通する高さ（行間）や幅（列間）を合わせることを、 【配列の共通部分参照】と呼んでいます。 上記の式で、範囲をB2からでも出来るのですが、なぜしなかったかというと、 その【配列の共通部分参照】が、ずれるからなのです。インクリメンタルの 数字は、1からというのが基本です。だから、その部分は変わりません。 それを、説明するよりも、そのままにして出したほうが分かりやすいと思った のです。 =IF(SUM((Sheet1!$B$2:$B$50="●")*(Sheet1!$C$2:$C$50<>"×"))<ROW(A1),"",INDEX(Sheet1!$A$2:$A$50,SMALL(IF((Sheet1!$B$2:$B$50="●")*(Sheet1!$C$2:$C$50<>"×"),ROW($A$1:$A$49),""),ROW(A1)))) このように、ROW($A$1:$A$49) と共通の高さが必要になり、ROW($A$2:$A$50) と、1から始まっていないと、出ない部分が出てきたり、エラーになるケース が出てきます。 これらの「配列数式」を作るコツは、式の中の一塊の数式の範囲を取って、 F9 で、内容がどうなっているか調べます。そうすると、その式の構造が 分かります。そうやって、「配列数式」は作られます。一度、きっかけがで きれば、後は、自然に覚えられます。 また、この数式は、5,500件までを目処にしてください。 それ以上ですと、正しい数値が出ないことがあります。 前回、他にもあるというのは、Excelが本来持っているデータベース機能がある わけですが、MS-SQL を含めた機能をオールラウンドに Excel を使いこなせな いと、意外に手間の掛かる使いづらいものになってしまいます。

こんばんは Wendy様詳しい説明ありがとうございました ばっちりです！自分の考えたとおりになりました 中々細かい決まりごとがありますね、これからも時間の有る時に コツコツ勉強しようと思います。 有難う御座います。

参考までに・・・ よく有る数式ですが、Wendyさんの配列処理を作業列を使用して 処理する方法です、データ量が多い場合には有効かと思います ■■シート1■■ 　　　　Ａ列　　　Ｂ列　　Ｃ列 １行目　品名　　　在庫　　出荷予定 ２行目　イチゴ　　 ３行目　スイカ　　 ４行目　レモン　　●　　　× ５行目　パイン　　● ６行目　キウイ ７行目　リンゴ　　● ・・・ ｎ行目 ■■シート2■■ 　　　　Ａ列　　　Ｂ列　　Ｃ列 １行目　　　　　　　 2　　在庫(手入力or=シート1!B1) ２行目　　　　　　　 5　　パイン ３行目　　　　　　　 7　　リンゴ ４行目 ５行目　　 5 ６行目 ７行目　　 7 ・・・ ｎ行目 　　　・Ａ列：シート1のＢ列が●でＣ列が×でない時行番号をセット 　　　・Ｂ列：B1　　：A列にセットしたセル番号の総数 　　　　　　　B2以降：A列にセットしたセル番号を昇順に取り出し 【設定】全てシート2で設定 １）A2セルに以下の数式を入力して 　　A3〜An(シート1の予想される最大入力行迄)へコピー 　　　=IF(AND(シート1!B2="●",シート1!C2<>"×"),ROW(),"") ２）B1セルに以下の数式を入力 　　　=COUNT(A:A) ３）B2セルに以下の数式を入力してB3〜Bnへコピー 　　　=IF(ROW(A1)>$B$1,"",SMALL(A:A,ROW(A1))) ４）C2セルに以下の数式を入力してC3〜Cnへコピー 　　　=IF(B2="","",INDEX(シート1!A:A,$B2)) 【補足】 シート1の2行目以降のデータ行の変更を行の挿入・削除で 行う場合は、上記の設定では参照が自動的に変化してしまうため 正しい結果が得られない場合があります。 少々処理は重くなりますが１）の数式を以下の様に変更する事で 対応可能です [変更前]=IF(AND(シート1!B2="●",シート1!C2<>"×"),ROW(),"") [変更後]=IF(AND(INDEX(シート1!B:B,ROW())="●",INDEX(シート1!C:C,ROW())<>"×"),ROW(),"")

Ａ　　Ｂ　　Ｃ 1　東京　大田　田中 2　東京　新井　菊池 3　東京　戸田　前田 　 上記のようになっているとき、 Ａ列は店舗名、ＢとＣ列はスタッフ名が入っています。 東京店のスタッフを一気に調べたいときは、 どのようにすればいいのでしょうか？ 別のシートに、 　　Ａ　　Ｂ　　Ｃ 1　東京 Ｂのところに、東京のスタッフを出したいのです。 よろしくお願いいたします。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

こんばんは。 タイトル行を追加して、フィルタオプションではどうですか？ 皆さん、関数でやりたがるんですよね。。。

こんばんは。 ＞東京のスタッフを一気に調べたいときは、 B列に 大田 田中 戸田 前田 新井 菊池 のように出てくることですか？ たぶん、東京以外にもあって、まとまってあるとは限らないではないでしょうか？ 私は、VBAのほうがよいと思います。 こちらでも、私は、VBA のコードは書きますが、このコードは、汎用性がないし、 一回で収まらないかもしれませんので、こちらに掲示するのは多少抵抗があります。 ただ、関数で処理できるかたがあれば、その方にお任せします。 VBAサロンでお聞きになれば、私もお相手するつもりです。 一応、コードは出来上がってはいます。

作業用のシートを使用する事で平易な関数で処理する事ができます シートを、元データ・作業・表示の３シートとします １）作業シートの以下のセルに数式を入力し、元データの行範囲にコピー 　　　A1：=IF(元データ!A1=表示!$A$1,"★","") 　　　B1：=IF($A1="","",IF(元データ!B1="","",ROW()*1000+COLUMN())) 　　　C1：B1の数式をコピー ２）表示シートの各セルに数式を入力 　　　A1：抽出する店舗名を手入力 　　　A2：=COUNT(作業!B:C) 　　　B1：=IF(ROW(A1)>$A$2,"",OFFSET(元データ!$A$1,INT(SMALL(作業!B:C,ROW(A1))/1000)-1,MOD(SMALL(作業!B:C,ROW(A1)),1000)-1)) 　　　B2以降必要範囲にB1の数式をコピー

excel2003を使用しています。 以下のことを試みました。 webクエリで外部データを取り込みます。 �@：データの１行目に文字列で名前(クエリではなく手入力)をつけます。(Ａ列)　 �A：データの２行目〜４９行目までは、クエリで取り込んだデータ(数値と文字列と時間)です。 �B：データの５０行目は空白です。　　　　　　　　　　　　　　　　　　　　　　　 以下�@�A�Bを繰り返します。 目標は、以下の�@〜�Bを１つのセットにし、 計１０００セットまで集めてデータベースを作ることです ※データの１行目は、ワークシートの行番号の１行目とは区別しています。 ワークシートの一番上に検索結果を表示するスペースを確保します。 検索結果には�@〜�Bを丸々表示したいのです。 �@でつけた名前でデータの検索を可能にしたいのです。 考えた方法は、 検索したい名前を入力し、 �C：ＭＡＴＣＨ関数を使い、検索したい名前の行番号を求めます。　　　　　　 �D：ＩＮＤＥＸ関数を使います。 二行上の�Cで求めた行より下の４９行分のデータを、 検索結果を表示するスペースに表示するために、 表示スペースには一つ一つのセルにＩＮＤＥＸ関数を使っています。 ＭＡＴＣＨ関数で求めた名前のセルの行番号を参照し、 名前との位置関係を対応させ、一つ一つのセルのデータを求めます。　　　　 例えば、以下のように式や関数を使っています。 W3は検索したい名前を入力するセル =MATCH(W3,A:A,0)　　←W151のセル =W$151+4　　　　　　←W155のセル =INDEX(A:A,$W155)　 ←A155のセル 問題は、ここで発生しました。 ＩＮＤＥＸ関数で文字列を求める場合は、うまく表示されるのですが、 数値や時間を求める場合は、 M33.1.1 等のようになってしまい、うまく表示されないのです。 自力で解決できればとグーグルで調べてはみるものの、 ただ徒に時間が過ぎ行くばかりです。 そこで、どなたかからの助けが得られればと質問する次第です。

おはようございます Rinです ＞数値や時間を求める場合は、 M33.1.1 等のようになってしまい、うまく表示されない＞のです。 表示形式の問題では、ないでしょうか。 例えば、数値　１＝　日付表示では、M33.1.1 になります。 カン違いでしたらゴメンナサイ...(~~

おはようございます。 そして、 ありがとうございました。 セルの書式設定を変更したら、あっさり解決しました。 解決方法は完全に盲点でした。 解決には、ちょっとした感動が伴いました。 本当に助かりました。 聞いてみてよかったです。

こんばんは。 条件付書式について質問します。 下の様な顧客台帳を作成しています。 　　 Ａ　　　　 　Ｂ　　　 　 Ｃ　　　　 Ｄ　　　　 　　顧客名　　キャンセル日　 納品日 売上日 １　山田 04/12/05 04/12/06 ２　田中 04/12/05 −　　　　　− ３　松本　　　　　　　　　 　04/12/06 04/12/07 ２行目のようにＢ列に日付を入力した時にＣ列とＤ列に「−」を表示させる方法が あるでしょうか？ 一応、=$B4<>"" でセルの色を変える方法は思いついたのですが、出来れば セルの色を変えずに「−」を表示させたいと思っています。 よろしくお願いいたします。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

こんばんわ Rinです どれみさんの希望の処理は、条件付書式では出来ないとおもいます。 最初に、これはVBAでないと無理かと思いました なぜなら、納品日と売上日の日付を入れるセルに 数式を入れる事は、出来ません。 でも、表を良く見るとB列のキャンセル日を 入力した時に、C,D列に（−）マークが入るわけです。 キャンセル日ですから、納品日と売上日の日付は 入力されない訳で、数式を入れていても消されない でそのままです。 と、勝手に解釈して C1：=If($B1="","","-") で、下と、横(D列）にフィルコピー ただし、この方法は、納品日と売上日の日付を 入れる場合、数式のある式のセルに、上書き する事になります。 ちょっと強引と思いますが。 ただ、こんな場合は、どれみさんが言うように キャンセルのあった時、 条件付書式で、セルに色付けした方が 解りやすく、いいと思うのですが。...(^^ ＞２行目のようにＢ列に日付を入力した時にＣ列とＤ列に「−」を表示させる方法が ＞あるでしょうか？

>２行目のようにＢ列に日付を入力した時にＣ列とＤ列に >「−」を表示させる方法があるでしょうか？ 内容的には表示ではなくて、セル値の変更になりますから 一般機能としては、以下の２つの方法が限界かと思われます VBAで質問されては如何でしょうか？ 【方法１】 C2・D2の日付はそのままにして、条件付書式設定で『取り消し線』を表示 C2・D2に以下の条件付書式を設定 　[数式が]　[=$B2<>""]　書式：フォントで文字飾りで取り消し線を指定 【方法２】 図のリンク貼り付けで値を隠す 　　【注】この方法は各行ごとに名前定義が必要で、かつ、 　　　　　各図形のハイパーリンクも個々に調整が必要となり 　　　　　処理負荷もかなり大きいのでお勧めはできません １）任意のセル(X1)に『−』を入力し、セルの背景パターンを白色にする ２）C2セルをクリック後、メニューの[挿入]・[名前]・[定義]で 　　名前：checkB2　参照範囲：=IF($B$2="",$X$2,$X$1)　と登録 ３）X1セルを右クリックでコピー後、C2セルをクリックし 　　Shiftキーを押しながらメニューの[編集]をクリックし 　　[図のリンク貼り付け]を選択 ４）C2に張り付いた図形をクリックし数式バーの内容を=checkB2に変更 ５）図形を右クリックして[ハイパーリンク]を選択して 　　　・このドキュメント内 　　　・セル範囲をクリックして設定中のシートを選択 　　　・セル参照にC2 　　　・[OK]で設定 ６）C2上の図形を右クリックでコピー後、D2を右クリックして貼り付け ７）D2上の図形を右クリックして、ハイパーリンクをD2に変更

Ｒｉｎさま　夜目狸さま　お返事ありがとうございます。 お二人に一般機能で可能な限りのアドバイスをいただき感謝しています。 是非、アドバイスを参考にさせていただきたいと思います。 ＶＢＡだったら出来るようですが、残念ながらまだ勉強していないので質問の仕方も 分らないレベルです。（ＶＢＡって何が出来るの？？と言ったレベルなので。。。） ＶＢＡはどうも苦手意識があって、どこから勉強をはじめたらいいか分らず避けて きましたが、この機会に勉強をはじめてみようと思っています。 今後も一般機能、ＶＢＡと質問させていただくことがあると思いますので よろしくお願いします。 ありがとうございましたm(__)m

お世話になります。 以下の条件で日付情報を編集したいと考えていますがうまくいきません。 対象方法が分かる方が居られましたら教えて下さい。 【編集したい内容】 日付　2004/1/1　のとき　 1月 1日　　・・・月にも日にも頭にスペースをセット 　　　2004/1/10 のとき　 1月10日　　・・・月の頭にスペースをセット 　　　2004/10/1 のとき　10月 1日　　・・・日の頭にスペースをセット 　　　2004/10/10のとき　10月10日　　・・・そのまま表示 作成した式 "&JIS(TEXT(if(month(入力!C6)<10," "&"m","mm")&"月"&if(day(入力!C6)<10," "&"d","dd")&"日("&"aaa"&")"))&入力!D7 うまく動きません。。。誰かご助言をいただけないでしょうか よろしくお願いします。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

こんばんは。 A1に日付が入っているとして =IF(MONTH(A1)<10," ","") & MONTH(A1)&"月"&IF(DAY(A1)<10," ","") &DAY(A1)&"日" =RIGHT(SUBSTITUTE(TEXT(A1,"月mm月dd日"),"月0","月 "),6) などではどうでしょうか？

こんばんは。 同じく、A1に入っているとして =TEXT(A1,REPT(" ",2-LEN(MONTH(A1)))&"m月"&REPT(" ",2-LEN(DAY(A1)))&"d日")

よく考えたら、↓で良いような。 =RIGHT(" "&MONTH(A1),2)&"月" &RIGHT(" "&DAY(A1),2)&"日"

こんばんは。 Ａsakiさんのを見て、思い出しました。 =TEXT(MONTH(A1),"?#月")&TEXT(DAY(A1),"?#日") これで出来るんじゃないかしらね。（^^\

皆さんありがとうございます 無事に目的が達せられました。 本当に助かりました。

ご存知のかたがいらっしゃれば教えていただきたいのですが・・・ 例えば、セルＡ１に「１」と入力されると、セルＡ２がブルー色になるという条件式をＢ１・Ｃ１・Ｄ１のセルでも使用したいのです。 このような条件書式のコピーというのはできるのでしょうか？ ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

A2 の条件付書式の数式　=$A$1=1　としておいて A2をコピーしてB1,C,D1へ書式を貼り付けでは

実はすでに各セルにはデータが入力されてしまっているのですが、 条件書式だけをコピーするという方法はあるんでしょうか？

>条件書式だけをコピーするという方法はあるんでしょうか？ A2をコピーしてB1,C,D1へ書式を貼り付けでは 　となっていますね ですから　書式のみを貼り付けるのです 　　編集、コピー、編集、形式を選択して貼り付け、書式

mongさん 度々ありがとうございます。 書式貼り付けでは、字体や字の太さなど全ての書式をコピーしてしまうので、 やはり、条件付書式だけをコピーするのは無理ということですね・・・・ お手数おかけしてすみませんでした。 ありがとうございました。

先頭が０（ゼロ）で始まる文字含んだＣＳＶファイルを開いた後、 それをＣＳＶファイルの内容と同じ様に０（ゼロ）付きの文字に 戻す事は可能でしょうか？ ＜例＞ 00001,AAA,BBBB 0101,AAA,CCC 001,BB,DDD の様なデータファイルです。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

拡張子を、.CSVから、.Txt に換えて、ファイルをテキストファイルとして 読んで、ファイルオープン・ダイアログで、文字列でロードするか、 もしくは、私が書いた、VBAサロンにある 67189 Re[2]:１６進の表示 というコードを使えばよいかと思います。こちらは、既存のブックのシートに インポートします。なお、そのスレッドの下にあるものは、Excel97用です。

１）csvファイルを展開したいシートを開きます ２）メニューの[データ]・[外部データの取り込み]・[テキストファイルのインポート]を選択 ３）ファイル選択画面でファイルの種類を[全てのファイル]に変更し 　　目的のcsvファイルをダブルクリック ４）テキストファイルウィザードで以下の様に指定 　　【1／3】元のデータ形式：カンマやタブなどの区切り文字によってフィールドごとに区切られたデータ 　　　　　　取り込み開始行：1 　　　　　　[次へ] 　　【2／3】区切り文字：カンマにチェック 　　　　　　[次へ] 　　【3／3】データプレビューで前ゼロを保持する列をクリック 　　　　　　列のデータ形式で[文字列]を選択 　　　　　　[完了] ５）データのインポート画面で 　　　　　　既存のワークシートで=$A$1の様に先頭セル位置を指定し[OK] 【補足】 次回以降該当のシートに同じcsvファイルを読み込む場合 シートのデータがセットされている任意のセルを右クリックして [データの更新]を指定する事で、ファイル選択画面にファイル名が入力されて表示され、 そのまま[インポート]ボタンを押すだけで、同じ形式でデータを読み込みなおす事ができます

ありがとうございます。 上記の方法で解決いたしました！ ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

グラフを描いたときに、プロットエリアの領域の色がグレーで塗りつぶした状態でかかれるので、 毎回、プロットエリアの書式設定で領域を”なし”に変更しています。 いつもグラフを描くたびに、この作業をしなければならないので、 プロットエリアの領域は塗りつぶしなし（または任意の色）になるように設定することはできますか？ 最初から、棒や線の色を変えて描かせることはできたんですが、プロットエリアのグレーを変えることができなくて・・・。 （一回に２０個近いグラフを描くことが多いので、ひとつひとつちまちま変更して いく作業がバカにならない手間と時間なんです。） よろしくお願いします。 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

こんにちは。 取りあえず自分の好みでグラフを１回作りそのグラフを「ユーザー登録」し、 ２つ目のグラフからは「ユーザー登録したグラフ」を使ってグラフを作って はどうでしょうか。 「ユーザー登録」手順はヘルプに解説がありますのでそちらをご確認下さい。 ★ヘルプ項目：ユーザー設定のグラフの種類を保存して、他のグラフに設定する では。

ありがとうございます。 ユーザー登録だとすべてのグラフに適応させるためには、 グラフの種類ごとに登録をして行かなければなりませんね。 棒も、折れ線も、円も、あれもこれも使う種類のグラフは、それぞれ登録をすると。 でも、一度登録してしまえば、いままでよりかなり楽になります。 助かりました。

12個の各セルに「○」が入っていたら「○印は、税込みです」という文字を入れたく 下の関数を作ってみました。長いので短くしたいのですが、 こういうのは省略できる式ってありますでしょうか？ IF(OR(E21="○",E23="○",E25="○",E27="○",I21="○",I23="○",I25="○",I27="○",M21="○",M23="○",M25="○",M27="○"),"○印は、税込みです","") ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2003 ++++++++++++++++++++

こんにちは。 >12個の各セル に○以外が入力される事は在りますか？ ○が一つでも入力されていたら「○印は、税込みです」と 表示して良いのでしょうか？

boyさん、早速お返事ありがとうございます。 > ○が一つでも入力されていたら「○印は、税込みです」と > 表示して良いのでしょうか？ はい、そのセルは○しか入っていません。よろしくお願いします。