Excel総合相談所 43

Excelに関する質問は、ここで！

　　　　 /）_/）　　　　（　・分かる人はできるだけ回答して下さいませ。
　　　　< ﾟ _･ﾟ> .｡oO（　・回答がなくてもキレないで。急いでいても催促は3日以上開けて。
　　ﾉ） /　　 |　　　　 （　・自己解決したらその解決手段を他の人の参考の為に書いてね。
　　＼(＿,,,_,,,）

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

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

※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣
　 VBAを使うのは避けたいって場合は｢否｣にしましょう。
　 ｢VBAって何?｣って場合はとりあえず｢否｣に。よくわからないけど使ってみたいってなら
　 ｢可｣にして、>>10-15あたりの解説を参考に使ってみよう。

･前スレ　http://pc8.2ch.net/test/read.cgi/bsoft/1140091414/

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

☆ >>1★1〜4に従ってない場合は、回答者が勝手に解釈して答えたり適当な回答されたり無視されたりします。
　　情報や条件は最初の質問時にルールに従ってきちんと書きましょう。
　　情報条件なんて聞かれてから後出しすればいいなんて思わないように。
　　指摘されてから書き直しても、その質問にはまともな回答が付かないと思ってください。

　　ここは、きちんとマナーを守ってる質問者には｢・分かる人はできるだけ回答して下さいませ。｣というスレです。
　　明記してある質問マナーすら守らない人に、丁寧な回答を付ける義理なんてありませんから。


▼━回答者の心得━━━━━━━━━━━━━━━━━━━━
★1 質問者が書いたバージョンのExcelを持ってない場合は、確認したバージョンを明記しましょう。
★2 質問条件は良く読みましょう。
★3 『 【3 VBAが使えるか　 　 .】 いいえ/【4 VBAでの回答の可否】 可 』の場合はコピペで動作するコードを書いてあげましょう。
★4 質問ルールを守ってない質問者に､ルール指摘をするかどうかは勝手ですが､
　　　そういう質問者への回答はしないようにしてください。｢教えたがり厨｣なら仕方ありませんが･･･。


･関連スレ

　Excel総合相談所・雑談・議論スレ
　http://pc8.2ch.net/test/read.cgi/bsoft/1120184635/

　★Word/Excel (MS-OFFICE) 初心者スレッド Part26★
　http://pc7.2ch.net/test/read.cgi/pcqa/1138247967/
　
　OpenOffice.orgってどうなの？Part7
　http://pc8.2ch.net/test/read.cgi/bsoft/1135661797/

　VBプログラマ質問スレ（6.0以前） Part47
　http://pc8.2ch.net/test/read.cgi/tech/1141320612/

＝ FAQ： 基本 ＝
Q1：こんな関数ありませんか？
A1：｢関数の挿入｣にある検索機能や、ヘルプの検索を利用しましょう。
　　 また､一つの関数で目的を達成しようと思わずに､いくつかの関数を組み合わせて使うという発想を持ちましょう。

Q2：数式がエラーを返すんですけど
A2：関数をネストせず、数式を分解してみてください。
　　 どの関数がエラーになっているのか解れば、その関数の参照先や、ヘルプなどを見て大抵は簡単に解決できます。

Q3：計算結果やセルの値によって自動で書式を変更したいんですが
A3：条件付き書式を利用してください。数値比較で文字色のみの指定なら表示形式でもできます。

Q4：計算結果やセルの値によって表示形式を変えたいのですが
A4：表示形式のユーザー設定で複数条件の表示形式を指定できます。
　　 基本形式は｢正の数；負の数；0の場合；文字の場合｣です。(；は半角で)
　　 又は｢[>=70]70以上の場合；[>=50]50以上の場合；50未満の場合；文字の場合｣というような指定も出来ます。
　　 書式記号などに関することはヘルプを参照しましょう。

Q5：計算結果が自動で更新されなくなったんですが、どうすれば直せますか
A5：Excel(2002?)の不都合で、計算方法が手動になってしまうことがあるようです。
　　 ツール > オプション > 計算方法
　　 で、計算方法を自動にすることで元にもどります。
　　 参考URL：ttp://support.microsoft.com/default.aspx?scid=kb;ja;817716

Q6：VBAでこんなこと出来ませんか？どうやるんですか？､
A6：まずはマクロの記録を取ってみて､記録されたコードのメソッドやプロパティをヘルプで調べたり､
　　 ステップ実行やブレークポイントなどを使って動作を確認したりしてみましょう。

Q7：エクセルの勉強をするのにオススメの書籍･サイトは何ですか？
A7：自分で実際に読んで(閲覧して)､自分のレベルに合っていて解りやすいと思うものを利用しましょう。

＝ FAQ： 列の表示について ＝
Q：列名がA，B，C，D，Eではなく、１，２，３，４，５になってしまいました。
　　アルファベットに戻すにはどうしたらいいですか？
A：ツールメニュー：「オプション」 -「全般」タグで
　　『R1C1 参照形式を使用する（C）』のチェックを外せば直ります。

Q：列を256個（IV列）よりたくさん広げることはできませんか？
A：エクセルのシートは65536行×256列が仕様上の上限です。
　　シートを分けるとか、行と列を入れ替えるとか、データの方をまとめるとか、
　　列数を増やさない方向で工夫するしかありません。

Q：ひとつのブックにシートは何枚作成出来ますか？
A：物理メモリ容量やシートの内容に依存します。


＝ FAQ： 印刷プレビュー ＝
Q：印刷プレビューではセル内に収まっていた文字が
　　実際に印刷してみるとはみ出してしまうのですが、何とかなりませんか？
A：「印刷プレビューと印刷結果が一致しない」のは
　　昔からのExcelの弱点で、どうにもなりません。
　　セルの幅や高さに余裕を持たせるか、
　　書式設定で「縮小して全体を表示する」にチェックを入れましょう。


＝ FAQ： マクロの”削除” ＝
Q：マクロを削除したのに、ファイルを開くたびにセキュリティの確認が出ます。
A：モジュールの解放が必要。
　　【モジュールの解放方法】Alt+F11→Ctrl+R→Module1を右クリック→解放
　　それでもセキュリティの確認が出る場合は、同じくMicrosoft Excel Objects以下の
　　Sheet*及びThisWorkbookに何か書かれてないか確認してください。

＝ FAQ： 計算したい。角度とか ＝
Q：例えば、一つのセルに1803329と入力すると
　　180度33分29秒と表示されるようにするには
　　どうすればいいのでしょうか？
　　ついでに計算もしたいです。
A：「1803329と入力すると180度33分29秒と表示される」
　　というのと、計算できるというのを両立させるのは無理。
　　書式を
　　[h]:mm:ss や [h]"度"mm"分"ss"秒".00
　　などにしておき、入力するときには
　　180:33:29.99
　　などとすれば、表示も計算もできる。

･その他時間とか日付とかの計算について
　勤務時間を計算するには
　ttp://support.microsoft.com/default.aspx?scid=kb%3bja%3b880980
　日数および日付の表示方法と計算方法 - 基本編
　ttp://support.microsoft.com/default.aspx?scid=kb%3bja%3b880979

＝ FAQ： 合計から元の数を逆算 ＝
Q：たくさんの数値のリストがあって、
　　リスト中のいくつかの数の合計と思われる数値が与えられました。
　　リスト中のどれとどれの合計か調べることはできますか？
A：ナップザック問題(knapsack problem)として知られている難問です。
　　一般的には総当りで調べるしかありませんが。
　　しかし、データに特徴がある場合（桁数が限られているなど）には、
　　うまい方法があって、速く解けることもあります。
　　下記のページを参照してみてください。
　　　ナップザック問題をExcelで解く
　　　ttp://www.geocities.co.jp/SiliconValley-Oakland/8139/

＝ FAQ： 条件によって表示を変更するには? ＝
Q：セルの内容を判断して、表示を変えたい
A：　IF関数を使います。
　　=if（条件,条件が成立した場合,成立しなかった場合）

例１：基本
　セルA1が１の場合○、それ以外の場合×を表示
　=IF(A1=1,"○","×")
例２：if文の中にif文
　A1が、１の場合○、２の場合△、それ以外×。
　=IF(A1=1,"○",IF(A1=2,"△","×"))
例３：ANDやOR活用
　A1が、４〜６の場合は、普通と表示
　=IF(AND(A1>3,A1<7),"普通","少ないか多い")
例４：計算も出来る
　A1が１０までなら、A1を１０倍して表示、それ以外なら２を引く。
　=IF(A1<11,A1*10,A1-2)
例５：対象が空欄なら表示も空欄にする
　A1が空欄なら結果は何も表示しない、それ以外ならＡ１から２を引く。
　=IF(A1="","",A1-2)
　=IF(ISBLANK(A1),"",A1-2)

詳しくはヘルプを参照しましょう。


＝ FAQ： セル内での改行 ＝
Q：セル内で改行したいんですがどうすればいいでしょうか
A：改行したい位置でAltを押しながらEnterを押せばセル内改行できます。
　　但し数式で改行コードを入れた場合は､手動でセルの書式設定から
　　｢折り返して全体を表示する｣を有効にしないと改行されません

＝ FAQ： グラフについて ＝
Q1：データの空白部分があって、そこで折れ線が切れてしまいます。
　　 繋げたいのですが如何したらいいでしょうか？
A1：ｸﾞﾗﾌを選択＞ﾂｰﾙ＞ｵﾌﾟｼｮﾝ＞ｸﾞﾗﾌ＞空白ｾﾙのﾌﾟﾛｯﾄ「補間してﾌﾟﾛｯﾄする」にﾁｪｯｸ

Q2：棒グラフに重ねて、折れ線グラフを表示するにはどうしたらいいのでしょうか?
A2：最初、すべてのデータを棒グラフで作成。
　　次に、折れ線で表わしたいデータ系列のどこかを、グラフ上で右クリック
　　ｻﾌﾞﾒﾆｭｰ＞ｸﾞﾗﾌの種類＞折れ線＞OK

Q3：ある系列だけ、縦軸を別にしたいです。
A3：その系列のどこかを、グラフ上で右クリック
　　ﾃﾞｰﾀ系列の書式設定＞軸＞使用する軸「第2軸」にﾁｪｯｸ＞OK


＝ FAQ： 入力した値が変わる? ＝
Q：セルに入力した値が勝手に変わってしまうのですが
　　入力したままの形で表示させるにはどうしたらいいですか？
A：数字でよくあるケース（先頭のゼロが消えてしまう、日付として解釈されてしまう）
　　入力する時、先頭にアポストロフィ(')をつけるか、
　　該当するセルで右クリック−「セルの書式設定」−「表示形式」で「文字列」を選択。
　　文字列ではなく数値として扱いたいときは
　　「セルの書式設定」−「表示形式」で「ユーザー定義」を選択し、工夫する。
A：文字でよくあるケース（i⇒I、teh⇒the、cna→can　など）
　　ツール→オートコレクト→入力中にオートコレクト
　　の該当する箇所を削除。

＝ FAQ： 行列の入れ替え ＝
Q：エクセルで作った表が横方向に多くなってきたので
　　行と列を入れ替えたいのですが。
A：コピーして、適当なセルで右クリック。
　　形式を選択して貼り付け→行列を入れ替える。


＝ FAQ： 参照するシートやセルをセルの値で指定する ＝
Q：A1に「5」とか「6」とか指定する値を変えたら
　　B1の関数で「C5」とか「C6」とか参照先が変わるようにできませんか？
A：INDIRECT関数を使ってみましょう。
　　詳しくはヘルプで「INDIRECT」を検索


＝ FAQ： 参照先を固定する ＝
Q：数式が参照するセルを削除すると参照先が「=#REF!」になってしまうますが
　　セルを削除しても同じセルを参照するようにするにはどうすればようですか
A：INDIRECT関数を使ってみましょう。
　　=A1　=>　=INDIRECT("A1")


＝ FAQ： ブラウザの変更 ＝
Q：Excelでアドレスをクリックした時に開くブラウザをIEからSleipnirなどに変更したい。
A：スレ違いです。
　　開きたいブラウザの設定画面でそのブラウザを通常使うブラウザに指定してください。

　　※ブラウザからの設定だけではきちんと設定出来ない場合もあります。
　　　 詳しい情報をお持ちの方はこのスレにてご一報ください。

＝ FAQ: ワイルドカード文字の検索･置換 ＝
Q:* 、 ? で検索するとワイルドカードとして認識されてしまいますが、
　 * 、 ? の文字自体を検索するにはどうすればよいですか？

A: ~* 、 ~? のように、頭に ~ を付けることでエスケープ出来ます。

A:全角で＊と入力し｢半角と全角を区別する。｣のチェックを外して検索する
　(全角なのでワイルドカードとしては使われないが
　 全半角を区別しないので文字として"*"にはヒットする。)

＝ 整数と時間の相互変換 ＝
Q：1：30を1.5に変換したい、30を0：30に変換したい
A：シリアル値の｢1｣は1日=24時間=1440分=86400秒です。
　 以下のような計算やTIME関数などで変換できます。

　　値(A1)　　結果　　　式　　　
　　1：30　　　1.5　　　　=A1*24
　　0：30　　　30　　　　=A1*1440
　　2：30　　　250　　　 =A1*100*24

　　1.75　　　 1：45　　　=A1/24
　　30　　　　 0：30　　　=A1/1440
　　25　　　　 0：15　　　=A1/100/24

　　30　　　　 0：30　　　=TIME(0,A1,0)
　　(変換計算しただけでは表示形式は変わらないので、セルの表示形式は任意で変更しましょう)

＝ FAQ：時刻の入力 ＝
Q：時刻をテンキーで入力するとき：を入力するのが面倒なのですが、
　 なにか良い方法はありませんか?
A：｢ ．．｣や｢．｣を｢：｣に置き換える方法をお試しください
　　1) オートコレクトで..を:に置き換える
　　　→自動で置換されるので手間は少ないが..を使う他の入力にも影響する
　　2) ｢時..分｣で入力しておいて、後から｢編集 > 置換｣で範囲指定で一括置換する
　　　→置換に一手間掛かるが、他への影響は無い
　　　(｢時.分｣だと分の1桁目が0の場合狂ってしまう)
　　3) VBAのWorksheet_Changeイベントで置換する
　　　→置換する範囲を指定すれば他への影響もなく置換も自動、入力も．ひとつでOK
参考コード(入力は｢時.分｣)
Private Sub Worksheet_Change(ByVal Target As Range)
　Dim buf As Variant
　Application.EnableEvents = False
　buf = Split(Target.Value, ".")
　Target.Value = buf(0) & ":" & Left(buf(1) & "0", 2)
　Application.EnableEvents = True
End Sub

= FAQ：シート名やブック名の書きだし =
Q：シート名(ブック名)をセルに書き出したいのですが、どうすればよいですか？
A：シート名 =MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,31)
　 ブック名 =MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1)

＝ トラブル ＝
Q：方向キーやPageUp、PageDownでアクティブセルが移動するのではなくスクロールしてしまいます。
A：Scroll Lockというキーを押してみてください。

★VBAでの回答をもらったり、Webからサンプルコードを拾ったけど、
　 使い方がわからないって場合はここを参考に。

Step1　VisualBasicEditorの起動
　メニューより、[ツール → マクロ → VisualBasicEditor]と辿ってください。

Step2-a　コードを貼る
　マクロはその内容によって、置く場所が決まっています。
　大抵は回答者が指定してくれたり、サンプルの中にコメントとして書いてあったりするのでそれに従いましょう。
　指定がない物は基本的に｢Private Sub Worksheet_｣で始まる物はシートオブジェクトに、
　｢Private Sub Workbook_｣で始まる物はブックオブジェクトに、それ以外は基本的に標準モジュールに置いてください。
　(ツリーの該当部分をダブルクリックして、表示されたコードウィンドウにコードを張り付けます)

　　├VBAProject (hoge.xls)　　　←括弧内がブック名、以下がひとつのプロジェクトになります
　　｜├Microsoft Excel Object
　　｜｜├Sheet1 (Sheet1)　　　←シートオブジェクト(左側がオブジェクト名で、右側の括弧内がシート名です)
　　｜｜├Sheet2 (Sheet2)
　　｜｜└ThisWorkbook　　　　　←ブックオブジェクト
　　｜└標準モジュール
　　｜　 └Module1　　　　　　　　←標準モジュール(※)
　　└VBAProject (Personal.xls)　←個人用マクロブック
　　　 ├Microsoft Excel Object
　　　 ｜├Sheet1 (Sheet1)
　　　 ｜└ThisWorkbook　　　　　←個人用マクロブックのブックオブジェクト
　　　 └標準モジュール
　　　 　 └Module1　　　　　　　　←個人用マクロブックの標準モジュール

　　※ 標準モジュールを追加するには、追加したいプロジェクトツリー上で右クリックし、
　　　　 メニューから[挿入 → 標準モジュール]を選択してください。

Step2-b　ボタンに登録する。
　通常、イベントで動かすマクロ以外は、マクロの一覧から選択して実行しますが、
　頻繁に使う場合や、他の人が操作する場合はシート上のボタンを押して実行できるようにすると便利です。

　まず、メニューから[表示 → ツールバー → フォーム]と辿ってフォームツールバーを出し、
　ボタンアイコンを押して、適当な場所にボタンを作ります。
　ボタンを作ると自動的に[マクロの登録]というダイアログが立ち上がるので、
　(立ち上がらない場合はボタンを右クリックして[マクロの登録]を選択)
　[新規作成]を押して表示されたコードウィンドウのカーソル位置にコードを張り付けます。
　既存のマクロを登録する場合は、[マクロの登録]で一覧から選択して、[OK]を押してください。

Step3　マクロの実行
　ボタンに登録したものは、ボタンを押せば実行されます。
　イベントで動かすものは、所定操作をした時に自動で実行されます。
　それ以外はメニューから[ツール → マクロ → マクロ]と辿って表示されたマクロの一覧から選択して実行します。

Step4　トラブルが起きたら
　トラブルを自己解決出来ない場合は、
　･エラーが出る条件　(どうやってもエラーが出る、〜をしたときにエラーが出る、等)
　･エラーメッセージ　(ダイアログ上でCtrl+Cを押せばメッセージをコピー出来ます)
　･エラーが出る位置　(エラーダイアログ上で[デバッグ]を選択すると、エラー位置がハイライトされます)
　などを報告しましょう。
　また、期待通りの動作をしない場合も、条件や想定上の結果と実際の結果の内容など詳しく書きましょう。

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

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

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

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

　▼数式･関数
　 ･ 表示形式以外の書式の取得設定、書式情報を条件とする数式 (ユーザー定義関数)
　 ･ 関数式でセルの選択状態を取得する (VBA)
　 ･ セルの値でパスを補完して、開いてないブックのセルを参照する (VBA)
　 ･ 入力したセルに結果を返す (VBA)
　 ･ 範囲を引数にしての文字列連結 (ユーザー定義関数)
　 ･ 値の書き換え、値の保持 (VBA)
　 ･ 複数の結果を抽出、不定な数の結果を返す (VBA、結果の最大数が解っていれば最大数以上の式を論理式で組む)
　 ･ 空白のセルの部分を上詰め、左詰めなどで表示する (作業セルを使って別セルに詰めて表示なら可能、それ以外はVBA)
　 ･ VLOOKUP,HLOOKUP,MATCH等の関数で､検索語を全半角両方にマッチさせる (ユーザー定義関数)

　▼VBA
　 ･ ExecuteExcel4Macroの参照で空セルと0値を区別する
　 ･ セルの値や変数値で直接変数名を指定する (配列、コレクション)
　 ･ VBのコントロール配列と同じような操作をしたい
　　　(イベント以外ならコントロール名を｢同名+連番｣にしてControls(名前 & インデックス)で処理､イベントはクラスでWithEvents)

　▼ユーザーフォーム
　 ･ フォーム上から変更したプロパティ値の保持 (シートや外部ファイルに書き出して、次回読み込む)

　▼グラフ
　 ･ 棒グラフでひとつだけ突出したデータがあった場合に波線を入れて位置を合わせる
　 　(オートシェイプなどで見た目だけそうなるように弄る、別アプリでグラフを作り、オブジェクトとして挿入)
　　┌┐
　　〜〜
　　｜｜

ルールに関するQ&A

Q1：自治厨ウザイ
A1：ここより上に書かれていることを指摘されるのは自治厨行為とは違います。
　　 それは､指摘される側がルールを守ってないことに起因されるものであり､
　　 ルールを守らない側が自己厨なだけで､指摘する側は当然のことをしているだけです。
　　 それ以外の指摘をしてくる奴は自治厨なので､雑談スレにでも誘導してください。

Q2：なんで後から質問テンプレ書いても回答してくれないの？
A2：世の中なんでもやり直しが利くと思ったら甘いということです。
　　 ｢ルール無視しても､指摘されてからやり直せばいいや｣なんて考えの奴が蔓延したら
　　 ルールなど半分は意味を持たなくなり､スレは荒廃する一方です。
　　 ここではルール守ってる人にはマクロの丸投げすら許容するほど大甘ですが
　　 逆にルール守らない人には厳しくなってます。

2行以上の文章をセル内に表示させようとすると
セル内で改行されないのですが、
改行させるにはどうしたらいいでしょうか。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel 改行
2行以上の文章をセル内に表示させようとすると
セル内で改行されないのですが、
改行させるにはどうしたらいいでしょうか。
テンプレを見落としておりました。
よろしくお願いします。

>>18
自己解決しました。

前スレ269にドンピシャな機能プリーズ

パソコンを初期化したらExcelが消えてしまいました。今、必要でどうしたらいいのでしょうか？

Excelのソフト？を買わないと復活できないのでしょか？
教えて下さい

>>22
パソコンにOfficeのCDーROMが付属してたと思うけど

【1 OSの種類 　 　 　 　 .】 WindowsXPsp2
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワードは？

P1、P2、P3・・・と縦に自動入力するにはどうすればいいのですか？
セルの表示形式の設定の問題だと思うのですがどなたかご教示下さい。

>>24
A1にP1って入れてセルの右下あたりでマウス左ボタンを押し下げてそのまま下方向にドラッグ

>>25
ありがとうございます。一挙に問題解決です。
さっそく書類作成を仕上げます。

【1 OSの種類 　 　 　 　 .】 WindowsMe
【2 Excelのバージョン 　 】 Excel2002 SP3
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 SUM 書き換わる 関数 参照範囲

すみません，お助け下さい。
関数の参照範囲が勝手に書きかえられてしまいます。

例：
まっさらのワークシートで
セルＧ１に =SUM(A1:C1) と入力し，
セルＡ１から順に右へ数値を入力していくと，セルＤ１に数値が確定した
とたんに，セルＧ１の関数が =SUM(A1:D1)に勝手に書きかえられてしまい
ます。さらにセルＥ１に数値を入力すると，セルＧ１の関数は =SUM(A1:E1)
になってしまいます。
このように勝手に書きかえられないようにするにはどうしたらよいのでしょうか。

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

>>27
=SUM(A1:C1)は相対参照であるから、そうなってしまう。
絶対参照を使って、
=SUM($A$1:$C$1)で試したら、うまくいった。

>>28
ありがとうございます。
相対参照ってそんなところまで影響するのですね。1-2-3を使っていた時には
@SUM(A1..C1)としていても，このようなことが起こらなかったので，なぜなる
のか悩んでいました。EXCELの仕様と割り切るしかないようですね。

実際の作業として，１０００行ほどのデータでSUMを使わなければなりませんので，
コピー＆貼り付けができるように =SUM($A1:$C1)としてみましたが，大丈夫な
ようです。

Excelが消えてしまった！と質問した者です。
教えて下さった方に返信をしたいのですが、返信の仕方がわからないのでとりあえず書き込んでみました。パソコンにOfficeのCDーROMが付属してありました。
復活しました！！！本当に有難うございます。訳がわからず、とにかく悩んでマンガ喫茶に駆け込み作成しましたが、CDにおとした物の開けなかったのですが、OfficeのCDーROMをパソコンにインストールしたら復活しました。
今、マンガ喫茶から帰宅したので、お礼が遅くなってしまって申し訳ありません。
本当に本当に有難うございました。

すみません先輩方；
エクセルで、
Ｂの列に
ずっとある名前を入力していったとします、
それで以前に打ち込んだ同じ名前を
再度入力してしまった時、
その両方が赤色表示されるようにするのは
どうすればよいかご指導願えないでしょうか・・・？；

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

です申し訳ありません。

条件付書式で
B列をCOUNTIFして2以上だったら赤にする

>>33さん
即レスありがとうございます！
すみませんＢ列をCOUNTIFするにはどうすればよいのでしょうか？
Ｂ列をクリックした後、
=COUNTIF(B:B,
の後がわからなくて・・・宜しければご教授ください；

>>33さん
ありがとうございます！
おかげで解決しました！感謝しています！（涙）

【1 OSの種類 　 　 　 　 .】 Windows　xpsp2
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】rngResultの使い方

質問なのですが、
Set rngResult = Sheets("sheet1").Range("A65536").End(xlUp).Offset(1)
rngResult.Resize(, 9) = Array(　〜以下省略）
というコードを入れた際に
Resize(, 9)ということなんので、
A〜I列までArray以下に入れた内容が転記されてくるわけですが、
あるF列だけブランクにしたいとした場合にはどうすればいいのでしょうか？

現在は
rngResult.Resize(, 9) = Array(Range("E4").Value, _
Range("E7").Value, _
Range("K7").Value, _
Busyo, _
Format(Range("M4").Value, "yy/mm/dd"), _
Format(Range("M4").Value, "yy/mm/dd"), _　←この列をブランクにしたいのですが　
Bunrui, _
Kubun, _
Range("M16").Value)

回答のほうよろしくお願いします

全部転記してから、あるF列だけブランクにする

>>37
自己解決しました
2回に書き分ければよかったみたいですｗ

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】

空白と空白以外がランダムに一列に入力されている状態で、
空白以外のセルだけを詰めて表示したいのですが、どうすればよいでしょうか。
例)
A1="1"
A2=空白
A3="5"
A4="3"
A5=空白
を、
B1="1"
B2="5"
B3="3"
という感じです。よろしくお願いします。

>>39
C列に=IF(A1="","",ROW())
B列に=INDEX(A$1:A$5,SMALL(C$1:C$5,ROW()),1)

C列使いたくなければ配列数式かVBAで
エラー等の例外処理は必要なら自分でやること

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

客先の納品するプログラムを、MFCや.net使って書くのがめんどくさかったから、EXCEL+VBAで作成した。
マクロ(ソースコード)を客から見えないようにしたい。
アドインツールでマクロを閲覧するのにパスワードが必要なソフトはあったので、多分いけると思うのですが、よろしくお願いします。

>39
編集→ジャンプ→セル選択→空白セル→ＯＫ
で空白セルが選択されるから削除→上方向にシフト

>40
>42
できました。ありがとうございました。

>>41
VBEのメニュー適当に見ていけばそれっぽいのあるでしょ

何勿体付けてﾝの？

自己レス。
適当にいじっていたらできた。
少なくともメニューからは行けなかった。

プロジェクトを右クリックして、プロパティ出して、
保護→プロジェクトを表示用にロックするにチェックを入れて、パスワードを入力

これでパスワードつけて、ロックすることができた。

いやいやいやいや
普通に［ツール］メニューの中にあるからそれ

学研の「５００円でわかるエクセル関数」を勉強しています。

生徒の名前と各教科の点数からなる模擬試験成績表を作っているのですが、
本には学級番号２４〜３５の名前と点数しか載っておらず、統計関数を学習するための
元となる成績表を完成する事ができません。

どこかに架空の名前と点数が載ったサイトはないでしょうか？

架空の名前なんか適当につければいい。
架空なんだから、
学級番号　氏名　　点数
１　　　　　　糞糞　　0
2　　　　　　死拷　　99
でもいいんだ。

>>49
ありがとうございます。それでやってみます。

３５人の５教科の点数をRANDBETWEEN(0,100)
で発生させたのですが、シートをいじるうちに数字がコロコロ変わってしまいます。

計算結果を残して関数のみを外すなんて便利な技があると考えるのは
甘っちょろいでしょうか。

自己解決しました。コピー　→　貼り付け　→　値のみですね。

イルカで初めて満足しました。

OSはWindows2000でエクセル97使っています
お尋ねしたいのですが・・・・
上に6行位の長い文章を書いて・・・その下に
エクセルで縦が六行　横が十行くらいの螺旋が入っている表を入れる
で、また下に3行くらいの長い文章を入れる場合
文章はテキストボックスを使って入れるのでしょうか？？
その時に一旦作成したテキストボックスは消すことが出来ないのでしょうか？（取り消すと言うことです）
テキストボックスはドラッグして印刷範囲から外に出して書類を現在は書類を作っています

ワードに表を持っていった場合に左によってしまって中央に表を持って来ようとすると表のセルの大きさが崩れてしまいます

こんなばあい、テキストボックスを使って文章を入れるのが正解なのでしょうか
エクセルにはワードみたいなカーソルも出てこないし・・・（縦にI←こんな点滅しているモノのことです）

お粗末な質問ですみません・・・・m(__;)m

【1 OSの種類 　 　 　 　 .】 WindowsXP sp2
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel 段数

２列、１２００行の表があるのですがこれを普通に印刷しようとすると
枚数がとてつもなく多くなってしまいます。
これをWordのページ設定にある段数のようにして
３段或いは４段ぐらいを１枚の紙に印刷することで紙の枚数を
減らしたいのですがどのようにすれば良いのでしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsXP Pro Sp2 English
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel VBA 引数 未定 個数 複数 範囲 等

範囲またはカンマ区切りなどの型にはまらない引数の指定方法、または引数に対し繰り返し処理をさせる方法がわからず困っています。
濃度計算のため、mg、ml、ng、mmolなど、最初の一文字を読んで乗数を出すような関数を作っています。
たとえばミリは10^-3、キロは10^3ですから、それぞれ-3, 3を返します。これを一つ一つ計算させるのは成功し、今はこれをワークシート上で合計しています。
次に引数を複数とって合計させる関数の作成を開始しました。たとえば、test("mg","Kg","ｎmol")とすると、乗数の合計（例だと-3+3-9=-9)を算出させるというものです。
Sum関数やAverage関数のように、引数を範囲でもカンマ区切りでも取れるようなものにしようとしましたが、出来ません。

Function test(Arguments As Range)
For Each Item In Arguments
If Item <> "units" And Item <> "mol" Then
Select Case Left(Item, 1)
Case "M"
test = test + 6
Case "K"
test = test + 3
Case "m"
test = test - 3
Case "u"
test = test - 6
Case "n"
test = test - 9
End Select
End If
Next
End Function

引数は必ず3個なので、(arg1, arg2, arg3)として、これらに対し繰り返し処理をするというのでもよいのですが、やり方がよくわかりません。アドバイスいただければと思い投稿いたします。

改行数制限があったので大変読みにくく申し訳ありません。

>>55
こんな感じ
Function Hoge(ParamArray args())
For Each arg In args
If TypeName(arg) = "Range" Then
For Each x In arg
'xを処理
Next
Else
'argを処理
End If
Next
Hoge = tmp
End Function

OS winXPhome
Excel 2003

エクセルで交通費の清算をするための表を作りたいと思っています。
出発駅、到着駅を入力して交通金額が出せるように、検索サイトと
対応させて、検索サイトの検索欄と表のセルをリンクさせることって可能なの
でしょうか？
それとも、検索サイトで調べて毎回コピペするしかないのでしょうか？

>>57
ParamArrayであっさり出来ました。
ありがとうございました!!

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　ワードに出力

ある測定機器で得られた結果（数値など）を
エクセルで打ち込んでいって。
それを決められた書式通りにワードに出力したいのですが
そういうことってできるのでしょうか？

要はエクセルで『１』、『２』、『３』と入力して
ワードで『１と２を足したら３』と出力されるような感じにです。

シートごとワードに貼っちゃえば

【1 OSの種類 　 　 　 　 .】 WindowsXP sp2
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 人のをいぢるぐらいなら
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel 行列　入れ替え　参照

行列を入れ替えてはりつけを使うと、参照先が変わってしまいます。
参照先が縦にならんでいるものを、横にする方法はあるんでしょうか？
値にはしたくないんですが・・。

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 EXCEL　破損ファイル　外部参照

親父がフロッピーに保存していたEXCELファイルが破損したみたいなので、
私のパソコンにコピーして、ググりつつなんとか外部参照にてデータを呼び出すことには成功したのですが、
その呼び出している値を、新規のBOOKのセルに打ち込んだ値に変換(？)することはできないでしょうか？
（『='C:\xxx\xxx\xxx\[xxx.xls]Sheet1'!A1』という形ではなく、『=名前』という形に）
ずっと破損ファイルから参照し続けるわけには行かないと思うので。手動で打ち直すしか手はないでしょうか？

>５８
ここに書けるほど容易くないけど
VBAの参照設定：Microsoft Internet Controls,Microsoft Scripting Runtime
SHDocVwを使って、サイトを表示し、それをテキスト変換して保存。
Scripting.FileSystem.Objectを使ってhtmlをtxt変換したテキストから特定の位置の数字を吸い込む。
これを確認の意味で複数サイトで行う。
こんな感じでどうでしょう

お願いします。

|　何について調べますか？
| ┌────────────┐
|　|　お前を消す方法　　　　　　　｜
|　| 　　　　　　　　　　　　　 　　　　｜
| └────────────┘
|　[ オプション(O) ]　　　[ 検索(S) ]
|
｀──────────┐ ┌───
　　　　　　　　　　　, '´l,　　..| ./
　　　　　　　, -─-'- 、i_　　|/
　　　 ＿_, '´　　　　　　　ヽ、
　　　',ー--　●　　　　　　　ヽ、
　　　 ｀"'ゝ、_　　　　　　　　　 ',
　　　　　　〈｀'ｰ;＝=ヽ、〈ｰ- 、 !
　　　　　　 ｀ｰ´　　　　ヽi｀ヽ iﾉ
　　　　　　　　　　　　　　　 ! /
　　　　　　　　　　　　　　r'´、ヽ
　　　　　　　　　　　　　　｀´ヽノ



　　　　　　　　　　　, '´l,
　　　　　　　, -─-'- 、i_
　　　　 　, '´○ ＿ ○　　ヽ、
　　　　　 i　 　 /　 |　　　　　ヽ、
　　　　 　 ゝ　├-┤　　　　 　 ',
　　　　　　〈｀'ｰ;＝=ヽ、〈ｰ- 、 !
　　　　　　 ｀ｰ´　　　　ヽi｀ヽ iﾉ
　　　　　　　　　　　　　　　 ! /
　　　　　　　　　　　　　　r'´、ヽ
　　　　　　　　　　　　　　｀´ヽノ

【1 OSの種類 　 　 　 　 .】 いろいろ
【2 Excelのバージョン 　 】 いろいろ
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 売上報告　集計

10くらいの営業拠点の売上報告を集計したいと考えています
必要な項目は　担当者　当日売上　累計売上　です
各拠点には10名ほどの社員がいます
現在はFaxで送られたデータを手入力しています
皆さんの会社ではどうされてますか？いいアイデアがあれば教えてください。

>>54
大前提として、Excelはワープロソフトではないので「段数」なんて概念はない。

表をいじらないで擬似的に2段組風に印刷するなら、
ページ設定を用紙縦長にして、プリンタの設定で「1枚に2ページ」みたいにするのはどうか。
プリンタドライバに依存するけど。

3段以上にするなら表のほうをいじるしかないとおもう。
　1行目　2行目　3行目
　2行目　3行目　4行目　*
　3行目　4行目　5行目　*
　4行目　5行目　6行目
　：
という具合に、横の方の列に1行づつずらしてコピペして、
*の行だけ削除すると3段組になる。

行数が分かってるなら、段の数で割って
　1行目　401行目　801行目
　：　　　　　：　　　　　　　　：
400行目　800行目　
って 切り取り＆貼り付け するほうが楽かもだが。

【1 OSの種類 　 　 　 　 .】 Windows XP SP1
【2 Excelのバージョン 　 】 Excel 2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 印刷　プロパティ　保持

プリンタサーバー（Windows Server 2003）経由で各クライアントPCより1台のプリンタへ
印刷を行っています。
AさんのPCで作成したExcelファイルをBさんのPCで印刷したいのですが、AさんのPCの
プリンタのプロパティ値が保持されたままになっていて、思い通りの印刷設定（Bさんの
プリンタのプロパティ値）で印刷することが出来ないことがあります。
どのようなExcelファイルも常にBさんのプリンタのプロパティ値で印刷したいのですが、
この設定（Aさんのプロパティ値を保持してしまう）を簡単に解除する方法はありません
でしょうか。
今わかっているのは、BさんのPCで印刷する際に印刷のダイアログで一度別のプリンタ
を選択し、また元のプリンタ（通常印刷するプリンタ）に戻してから印刷すると、Bさんの
プロパティ値で印刷することが出来ます。
これを別の方法、例えば・・・
　- AさんのPCで作成する際にプロパティ値を常に保持しないようにする。
　- BさんのPCで常にBさんのPCのプロパティ値で印刷するようにする。
などの回避方法はありませんでしょうか。もちろんその他の方法でも構いません。
なにとぞよろしくお願いします。
（と言うか何ゆえこのようなことが発生するのでしょうか・・・避けられないExcelの仕様
でしょうか。プリンタサーバー経由でなく、ローカル接続（ネットワークプリンタ）であれば
発生しないのでしょうか・・・）

>>69シックスナイン
避けられないExcel(Windows版)の仕様れす
Macに変えましょう

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 分かりません。


Excel2002を使っているのですが
Excelのデフォルトの設定ではセルの端っこをダブルクリックすることで
入力されているセルの一番下まで飛ぶことが出来るようになっています。
この機能が邪魔で仕方ないので無効にしたいのですが
どうすれば無効出来るのでしょうか？
お願いします。

>>70
回答ありがとうございます。
やはり避けられないれすか・・・はぁ困ったなぁ・・・

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 LOOKUP, VLOOKUP

業務効率化のため製品のサイズを入力すれば自動で価格が表示されるようにしたいのですが
製品には　長さ　幅　高さ　があり、関数で数値を返すため　縦方向に「長さ×幅」横に「高さ」を入れ
交点に価格が入った表を別ワークシートに作りました。
在庫のある規格品のサイズを、例えば縦には100x50,100x100,150x80,200x200
横には1, 3, 3.3, 3.6, 4,6.7　のように不規則に並ぶのですが
VLOOKUPを使って価格を返そうとしているのですがうまくいきません。
見積もりに入力するサイズは80x35など規格品と一致しないものもあるので一番近いものを自動で選択できるようにしたいです。
また、セルの中の関数で返された数値を、さらに関数の中に入れたいのですが数値として認識してくれません。
どなたか良い方法をご存知の方ご教授お願いします。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 勤務　関数　時間別

水商売の販売管理表の作成で悩んでいます。
12時〜18時と18時〜24時で歩合が変わるため、うまく計算式が出せません。
シート1に「時刻」、「指名された女の子のNo.」の2列
シート2には「女の子のNo.」、「昼の指名数」、「夜の指名数」。またそれを元に歩合ををかけて給与を計算。

シート1の「指名された女の子のNo.」から「昼までは何個」、「夜からは何個」にするようにはどうすればいいのでしょうか？
ＩＦなどを使って18辞までは何個、18辞以降は何個と表示させる計算式がわからないのですが・・・。
現在は昼のシートと夜のシートに分けて計算しています。
ひとつにまとめることはできますか？

> ひとつにまとめることはできますか？
できます。ヘルプ参照。

住所録を作っているのですが
あいうえお順にするのはどうやったら
いいんですか？

>>73
xが入っていたら数値にはならないから分けて3軸のデータにするか
100x100を100100のようにxを外しておくか(そのばあい100101などの検索ミス避けが必要になると思う)
くらいで

>73
INDEX関数なんかはいかがでしょうか。
LOOKUP系の関数で近似値を抽出する場合
参照列は数値で昇順に入力しておかないとダメ
>76
ふりがな欄を設けて、データの並べ替え

>>73
書式設定を 000"×"000 にすれば数値になるけど
長さと幅の2次元には対応してくれません
とりあえず、サイズの近似値表を作成して、その表で検索をかけるように
した方が無難かも？

>>74
＞ＩＦなどを使って18辞までは何個、18辞以降は何個と表示させる計算式がわからない

18時は式内では --"18:00" と表記

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

Ａ１からＡ３の中でセルの値が最大値のセルを赤で、最小値のセルを青で塗ることはＶＢＡを使わず出来ますでしょうか？
「条件付き書式」でやるかとは思いますが、Ｂ１〜Ｂ３、Ｄ１〜Ｄ3というようにあちこちに適応させたい所があり、「条件付き書式」はフィルコピーが出来ないと思うので弱っております。
どうかご教示ください、お願いいたします。

＞「条件付き書式」はフィルコピーが出来ないと思う
勝手に思うんじゃないよ

>>82
ありがとうございます！
書式のコピー、でいけました。

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

シート保護すると、保護外で入力できるようにしたセルに対しても、フォントの色変更ができなくなります。
入力可能な部分は色等変更できるようにする事はできますでしょうか？

>>84
シート保護のダイアログボックスで
□セルの書式設定
にチェックを付ければＯＫですよ。

>>85様
出来てしまうと阿呆っぽい質問をしたと恥ずかしい限りです。
丁寧・迅速に回答いただきありがとうございました。

色々試したのですがうまくいかなかったので教えてください。
したいことは、あるセルの内容に2バイトの文字が含まれている場合はエラーとして検出ようにしたいのです。
実際にLen関数とLenB関数を使用して文字数とバイト数が同じでないならエラーとして扱うようにします。
下記のようにVBAを入れたのですがうまくいきません。

For a = 2 To gyou
aaa = Len(Trim(StrConv(StrConv(Worksheets("総計").Cells(a, 3), vbKatakana), vbNarrow)))
bbb = LenB(Trim(StrConv(StrConv(Worksheets("総計").Cells(a, 3), vbKatakana), vbNarrow)))
If Not aaa = bbb Then
kaunt = kaunt + 1
report(kaunt) = "引落銀行名の" & a & "行目に2バイト（漢字等）があります"
End If
Next a

デバックモードでまず、LenB関数をはずしてbbbに代入されている値を見ると”ﾀﾅｶ”のように確かに半角ｶﾅ
が入っているようで、LenB関数をつけるとなぜか値に3ではなく6の値が代入されています。
いったいなにが原因かわからないのですがわかる方だれかいますでしょうか？
また、半角ｶﾅだけでなく、数字（半角）についても同じ現象が起こっています。
ご教授のほど、よろしくお願いします

>>87
VBAってUnicodeじゃなかったっけ
だったら全角も半角もバイト数おんなじな気が

追記
str = StrConv(str, vbFromUnicode)
でSJISに変換できたはず

な、なんと！？vbaってJISって思ってた(；w；)
>>89さんの言われるようにJISに変換してやってみます＞＜

お願いします。

連投すいません＞＜
>>89さんの言われるようにシステム規定のコードに変更したらうまく行きました♪
さすがにvbaの本を見ても載ってないですね（汗
助かりました＞＜ありがとうございます♪

>>91
Messageをｈookしてころすしかないんじゃね？

>>77>>78>>79
皆様ありがとうございます。
やはり縦列横列を参照して交点の値は返せないんですね。
長さ幅高さを10010010のように連続数値にしてその横に価格を入れデータベースを2行にしてみます。
セルA1に長さ「100」B1に幅「100」C1に高さ「10」を入力した後
＝A1&B1&C1　でひとつにくっつけた値がD1に出るようにして
それをVlOOKUPの入れ込んで検索値にして参照させるようにやってみます。
INDEX関数も勉強してみます。

>>94
それが正解
何かの処理のもとにするデータソースは
交差表とかにすべきではないよ

>>95
すまん、わからへん。なんで交差表にしたらあかんの？

INDEXとMACTHで良いんでね？
まぁ、少しややこしい数式になるけど。

【1 OSの種類】 Win98
【2 Excelのバージョン】 Excel2000
【3 VBAが使えるか】 中途半端
【4 VBAでの回答の可否】 可

変数Ａにパスを保存して各プロシージャで共通に使うにはどうしたらいいですか
たとえば、グローバル変数にThisWorkbook.Pathを定義するとかですが

【1 OSの種類】 Win98
【2 Excelのﾊﾞｰｼﾞｮﾝ】 Excel2000
【3 VBAが使えるか】 使えません
【4 VBAでの回答の可否】 可

Enterキーを押すと、カーソルが下ではなく右に移動します。
もとに戻すにはどこを触ればよいのでしょうか？

>>98
普通にグローバル変数定義して､Auto_Openとかでパスを代入すればいいじゃん


>>99
ツール > オプション > 編集
入力後にセルを移動する：下

2003で確認したので多少項目名違うかもしれん

【1 OSの種類】 Win2000
【2 Excelのﾊﾞｰｼﾞｮﾝ】 Excel2000
【3 VBAが使えるか】 使えません
【4 VBAでの回答の可否】 可

1000行以上のシートで、とある列のデータが重複して
いないかをチェックする最善策をご教授ください。
＊その列のデータはユニークでなければなりません。

宜しくお願いします。

>>101
実際に業務で使っている私のやり方を２つご紹介。
どちらも　COUNTIF関数　を使っています。

例として、Ｂ列にユニークデータを入力すると考えて下さい。

１、B1のセルに条件付書式を用いて背景色を変更する方法
　　=COUNTIF(B:B,B1)>1

２、A列を作業セルとする方法
　　A1のセルに　=IF(COUNTIF(B:B,B1)>1,"＊","")
　　※重複している場合、A列に　＊　が表示されます。

>>100様
ありがとうございます。
もとに戻りました。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マクロ　シート名　可変　自動化　等　

Columns("G:BD").Select
Selection.Columns.Group
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Sheets("○○○○").Select
Range("A4:BJ109").Select
Range("A6").Activate
Selection.Copy
Sheets("●●●●").Select
Range("A28").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=75

とマクロの記録で作ったのですがシート名が変わるのでうまく動きません。
○を左から2つ目のシート
●を左から3つ目のシートとなるように変更できないでしょうか？

よろしくお願いします。

>>104
Worksheets(1).Select

(○)の数字が、左から○番目、という記述です。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 少しだけ
【4 VBAでの回答の可否】 否
教えていただきたいのですがA1：Ａ５に次のように入っていて、
1
2
3
4
5
1又は2又は5を抜き出したい時どうすればいいのでしょうか。オートフィルタのＯＲは2つの条件のＯＲしか取れないので弱っています。
どなたかご教示お願いいたします。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 関数　翌月指定日

今日の日付を利用して、支払日のセルに翌月10日を表示させたいのです。
しかし翌月10日が休みの場合、前営業日(平日)を表示させたいのです。
どのような関数組めばいいのですか？

>>107
「平日」には土曜日は含みますか？
辞書では　日曜・祝日以外の日　と定義されていますので…

平日には土曜日を含まないんです。
どうでしょうか？

ヒント：返り値

日付関数等を駆使して翌月10日を算出
WEEKDAY関数とか使ってその日の曜日を算出
曜日によって、何日か繰り上げ
だろうけどワークシート関数でやるとめんどくさそうだな

>>107
A1に　=TODAY()　を入力してると考えて下さい。
１つのセルでやったらこんな事になりましたよ。

=IF(WEEKDAY(DATE(YEAR(A1),MONTH(A1)+1,10))=1,DATE(YEAR(A1),MONTH(A1)+1,8),IF(WEEKDAY(DATE(YEAR(A1),MONTH(A1)+1,10))=7,DATE(YEAR(A1),MONTH(A1)+1,9),DATE(YEAR(A1),MONTH(A1)+1,10)))

あと、このセルの表示形式を　yyyy/mm/dd aaa　とすれば　2006/06/09　金　と表示されますよ。
作業セルを設けた方がスッキリするかと思いますが。

今日の日付　A1 =TODAY()
翌月の10日　A2 =DATE(YEAR(A1),MONTH(A1)+1,10)
翌月支払日　A3 =IF(WEEKDAY(A2)=1,A2-2,IF(WEEKDAY(A2)=7,A2-1,A2))

ありがとうございます！
作業セル使うとすっきりしますね。
早速やってみます。

ところで、祝祭日はどうすんの？
成人の日、建国記念日、体育の日当たりが関与する可能性あり。
ハッピーマンデーと固定のケースで分けて対応しなきゃならい・・・

そんなこと考えたら、支払日リストを別に作ったほうが楽でスッキリかもよ？
たかが一年で１２行程度なんだし。
毎年〜数年でチェックすれば法律の変更による休日の変化にも対応できるし。
・・・もっともそのファイルを何年使い続けるか？だけどね。

>>106
オートフィルタの（オプション）ではなく、
データ＞フィルタ＞フィルタオプションの設定を使う。

>>114
そうですねぇ。
祝祭日は休みなんで。
リストを作ることも考えてみます。

>102様
早速の回答ありがとうございました。
また何かありましたら宜しくお願い致します。

【1 OSの種類 　 　 　 　 .】 WindowsXP_P
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 新教育指導要領 ゆとり教育

大卒総合職の若手子ちゃんから
「Excelを教えてくださいｗ」といわれたのですが、

Excelの式・書式以前に、
割合(%)を出す計算は、
何を何でどうすれば(割り算すれば)よいかわからないようです。

小学３年生の算数からやりなおすのは非効率的なので
おすすめのコマンドやショートカットなどあれば教えてください。

変に学習が進んだ状態でのショートカットは難しいです
いったんOSを再インストールする必要があります

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

1,1,2,2,3,3,4,4,･･･って連続データの作り方教えてください。
1
1
2
2
3
3ここまでをドラッグすると続きが以下・・・
3.6
4.057142857
4.514285714
4.971428571
5.428571429
5.885714286
6.342857143
6.8
7.257142857
7.714285714
8.171428571
8.628571429
9.085714286
9.542857143
10
10.45714286
10.91428571
11.37142857
11.82857143
12.28571429

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

体重測定の名前を転記させるスクリプトをマクロで登録してみたんですが、
XPで実行させると、動作はするものの、スクリプト自体が終了できていないようで、
メモリをどんどん食ってってしまいます。
すいません、どこか構文落ちてますかね？

Sub 女あ()
Sheets("女性入力").Select
Range("B2:C25").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
Range("B2:B13").Select
Selection.Copy
Sheets("体重チェック表（１）").Select
Sheets("体重チェック表（１）").Name = "体重チェック表（１）"
Range("A5:A16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
With Selection.Font
.Name = "ＭＳ Ｐゴシック"
.Size = 24
End With

Sheets("女性入力").Select
Range("B14:B25").Select
Selection.Copy
Sheets("体重チェック表 (2)").Select
Range("A5:A16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
With Selection.Font
.Name = "ＭＳ Ｐゴシック"
.Size = 24
End With

Sheets("女性入力").Select
Range("B26:B37").Select
Selection.Copy
Sheets("体重チェック表 (3)").Select
Range("A5:A16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
With Selection.Font
.Name = "ＭＳ Ｐゴシック"
.Size = 24
End With

以上です。よろしくお願いします。

End Sub

すいません。
End Subは
以上です〜の上にきちんと入ってます（汗）。

>>120
例えばA列にオートフィルで0.5刻みの連続データを作り、
隣のB列で「=ROUND(A1,0)」のように丸める。

>>120
[A1] 1
[A2] 1
[A3] =IF(A1=A2,A2+1,A2)
[An] 以下コピー

その後A列を値複写

>>121
特に止まりそうなところ無いけどなあ。
VBE画面でF8キー押して1行ずつ実行してくとどのへんでおかしくなるの？

>>120
>>126
A3の式は=A1+1でいいんじゃね？

A1:　=A2+A3　（数式）
A2:　123　　（数値）
A3:　文字　（文字列）

とするとA1には「#VALUE!」のエラーとなってしまいます
文字列を無視又は0とみなすことによって、A1を「123」と表示させる方法はないでしょうか？

>>127
ありがとうございます。
おっしゃるとおりF8で試してみました。
うーん特にF8で押していっても特におかしくはならないようです。

ただしこの作業を試してみる前に、実行したら、
体重チェック表（１）→体重チェック表 (2)→体重チェック表 (3)
のシートをぐるぐると回ってました。

が、 F8で試した後には、この現象、消える。
同じように、同じスクリプト動作させても正常に動いていました。

・・・なんだかよくわからない・・・

教えて下さい｡

エクセルのif関数で｢-0.05<引数<+0.1｣の条件に入ったらOK､入らなかったらNGの
論理式を組みたいんですが､このまま入力すると､引数に-0.03が入ってもNGが出ます｡
要は-0.05〜+0.1の間に入ればOKって出るようにしたいんですが､なにか方法はありますか？

>>129
=SUM(A2,IF(ISTEXT(A3)=TRUE,0,A3))

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

です｡
連投ｳｻﾞｽですが､本当に困ってます｡
どなたか解る人いませんか？

XPの2003です。

ttp://pc21.nikkeibp.co.jp/special/hr/hr3.shtml
ここの
SUM(IF(B1:B12="販売実績",C1:C12,""))
この式なんですが、例題と同じデータを作成して試したにもかかわらず、
エラーが返ってきます。
どのような理由が考えられるでしょうか？

>>132
なるほど
IFとISTEXTの組み合わせですか
有難うございました

>>131

=IF(AND(-0.05<=引数,引数<=0.1),"ok","ng")

>>133
例えばですが、セルA1を対象とすると
=IF(AND(A1<0.1,A1>-0.05),"OK","NG")

>>121
じゃあどこかのシートにworksheet_changeイベントプロシージャとか
書いてしまってるんでない？そこでそのサブルーチン呼んでるから、
ずーっとループしてるみたいな

>>136
>>137

意味はわかりませんが､コピペしたら思った通りに動きました｡
感謝感謝です｡
ありがとうございました｡

>>139
IF関数
AND関数
ネスト（入れ子）

どれも基本だから理解したほうがいいよ

自己解決しますたｽﾏｿ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
リストの見出しが複数行あります。
その中の真ん中の何行かのリスト機能を削除したいのですが、
やり方を教えていただけないでしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】　yes
【4 VBAでの回答の可否】 Yes
皆様御願いします。
なんの変哲も無いセル移動のマクロですが、
結合したセルから実行すると、実行先のセルからの上下左右の移動が上手く行きません。
（元のセルからの移動となる）
結合したセルから上手くアクティブセルを動かす方法または制約を逃れる方法を教えてください。。。
Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

具体的な質問ではないのですが、変数の定義や基本的なセル操作などを詳しく説明しているサイトをご存知ないでしょうか？

ども。ちと色々調べていたら、結合セルとoffsetは非常に相性が悪いようでした。。

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

最近よく派遣スタッフの登録に行くのですが
その時のPCスキルチェックで毎回どうしてもわからない問題があります。

１．背景色を6.25％の灰色で塗りつぶす
２．名簿等の文字列でカタカナをひらがなへ一括変換する
３．同じく名簿等で、性と名の間のスペースを一括削除する
　　→関数TRIMで対応できるかと思ったのですが、性と名の
　　　間のスペースは不要とみなされず残ってしまいました。


どなたかご存知の方、教えて下さい。

>>146
1.セルの書式設定→パターン→下の方の「パターン」から
2.名簿セルを選択して書式→ふりがなの設定→ひらがなにチェック
　隣にPHONETIC関数でひらがなを出し、値のみコピー
3.置き換えでスペースを空白に置き換える

こんな感じじゃない？

>>146
>１．背景色を6.25％の灰色で塗りつぶす
パターンじゃまいか？

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

C:\DATA に入ってるブックそのものを、C:\DATA2へコピーするには、
どうすればいいですか？

FileCopyのヘルプを見て、こんな感じでつくってみたけど動作しません・・・
アドバイスをください。


Sub ファイルコピー()
　　Dim SourceFile, DestinationFile
　　SourceFile = "C:\DATA\Book1.xls"
　　DestinationFile = "C:\DATA2\Book1.xls"
　　FileCopy SourceFile, DestinationFile
End Sub

もちろん"Book1.xls"は開いてないよね
> 動作しません・・・
って具体的にどういう結果になるのか書こうよ
〜というエラーが出るとか､エラーは出ないけど実行してもコピーが行われないとかさ

お願いします。

形式を選択して貼り付けで値だけ貼り付けるんじゃ駄目なの？

【1 OSの種類】 WindowsXP Pro sp1a
【2 Excelのバージョン】 Excel 2003
【3 VBAが使えるか】 いいえ
【4 VBAでの回答の可否】 不可

いくつかの数値が表に埋まってる時に、それらの全てのセルを同じ書式で
小数点を表示したりさせなかったりできますか？

以下，C = A / B という計算式の場合

　　　|　A　 B　 C
　　--+--------------
　　1 | 10　 1　 10
　　2 | 10　 2　 5
　　3 | 10　 3　 3.33
　　4 | 10　 4　 2.5

のように、C列は全て小数点以下は2桁までという書式なのだけど
割り切れるものは小数点を表示したくない、ということです。

セルの書式設定→表示形式のユーザー設定で #.## とやってみたら
10. や 5. になってしまい、整数のみの時にもピリオドを必ず表示してしまいます…

>>152
あ・・・、すごい単純に・・・。
見落としてました。ありがとうございます。

>>146
1. ぴったり6.25%は無理じゃないか？
色は0〜255までだから、
255-255*0.0625 = 239.0625
だから、239を指定してもぴったり6.25%ぴったりじゃないな。
だいたい6.25%なら
Cells.Interior.Color = RGB(239,239,239)
じゃない？

その出題者は0〜255で256種類だから
=256-256*0.0625=240
となるから、240と勘違いしてるんじゃないか？

ところで派遣ってVBA出来なくても勤まるの？
0〜
256-256*0.0625=240
だな。

すまん、後ろ３行にゴミがのこった。

>>129
>>132
なんか難しく考えすぎだよ。
=SUM(A2:A3)
で十分だろ？

ハイパーリンクを『シートAのセルB1』の様に、
セルレベルで指定して挿入する事は可能でしょうか？
また、図等オブジェクトにハイパーリンクをつける事は可能でしょうか？

>>146
色の設定はVBAじゃなくても、ツール　オプション　色　変更　ユーザー設定で出来るな。
明るさを239にすりゃいいだろう。
そうするとRGBは239,239,239になる。

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 はい
【5 検索キーワード 　 　 】 テキストボックスの参照方法

ワークシートにコントロールのテキストボックス(txbx)を貼り付け、それを
Dim WsForm As Worksheet
Set WsForm = Worksheets("フォーム")
WsForm.txbx.Text

としたらメソッドまたはデータメンバが見つかりません

と怒られます。Sheet1.txb.Textとしたら参照できるのでずが、
必ずSheet1にあるわけではないので、怒られる方での参照
がしたいのです。
ワークシートのフォームを何で宣言すればいいのでしょうか。

>>146
１、背景色を6.25％の灰色で塗りつぶす
〔書式〕-〔セル〕-〔パターン〕タブ、左下の▼クリック、右上が6.25％灰色
※ツールバーのバケツではムリ

２、名簿等の文字列でカタカナをひらがなへ一括変換する
※A1に文字列（漢字）、B1に =PHONETIC(A1) が入力されていると考えて…
A1を選択、〔書式〕-〔ふりがな〕-〔設定〕、種類でひらがなにチェック

３、同じく名簿等で、性と名の間のスペースを一括削除する
〔編集〕-〔置換〕、上に"　"（スペース）入力、下は空白のまま、〔すべて置換〕

でどうでしょうか？

>>160
WsForm.OLEObjects("txbx").Object.Text = "A"

>>162
うわー、ありがとう。そうかOLEObjectなんてあるんだ。
その後にさらにobject.Textなんて…。
めちゃくちゃ助かりました。

【1 OSの種類】 WindowsXP
【2 Excelのバージョン】 Excel 2000
【3 VBAが使えるか】 ほとんど不可
【4 VBAでの回答の可否】はい
　（表１）
|　A　 B　 C
　　--+--------------
　　1 | 1　 a　
　　2 | 1　 b　
　　3 | 1　 c　
　　4 | 2　 d

　　↓
（表２）
　　|　A　 B　 C
　　--+--------------
　　1 | 1
　　2 | 　 a
　　3 | 　 b
　　4 | 　 c

上記の（表１）から別シートのセルa１に１を入力すると
（表２）のように抽出したいのですが出来ますか？

>>164
2と入力するとどうなってほしい？

>>165
2と入力すると下のようになって欲しいです。
　　|　A　 B　 C
　　--+--------------
　　1 | 2
　　2 | 　 d
　　3 | 　
　　4 | 　

>>164,>>166
VBAで可能だが､具体例だけで具体的な条件が書かれておらず
つまりは>>1★に反してるので､コードは書かないでおく

普通に表１でオートフィルタかけるだけじゃ駄目なんだろか

>>168
別シートは印刷用で、抽出データを印刷用テンプレートに入れ込みたかったからです。

データの量が少なければオートフィルタかけても良いのですが

実際のデータは量が多いのでオートフィルタかけて

コピー貼り付けをすると面倒だからです。

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

▼数値１00万以上を関数で文字列"○"に変換したもの
社員名　　商品１　商品２　商品３　商品４　・・・→
あああ　　 　○　　　　　　　　　○　　　○
いいい　　　　　　　　　○　　　　　　　　○
↓

こういったリストを基に、下記のような抽出を行いたいのですが、
どうしたらよいでしょうか？
検索/行列関数で処理できないかと試行錯誤しましたが、
思いどおりにいきませんでした。

▼１00万円以上販売できた商品
あああ　商品１　商品３　商品４
いいい　商品２　商品４

>>138
どうも。大変たすかりました。
＜ずばり正解＞でした。

手書きで書いてたら、起こらない現象でした。
よかったー。時間なかったんで、マクロで起こしたんで、焦ってたんですよ。ありがとうございます。

>>170
○を各列の見出しに置換してから
正規表現置換の出来るテキストエディタを使いs/\t\t/\t/g

または配列数式でIF､COLUMN等を使って､一番左の"○"の列番号､左から2番目の"○"の列番号と
左から順に"○"のある位置の列番号を返し､INDEXでその列の見出し行を参照する


テキストエディタの使い方がわからなければ専用スレがあるのでそちらで
配列数式や関数の使い方などの基本的なことがわからなければヘルプやGoogle参照

>>146です。
>>147,>>148,>>155,>>159,>>161
皆様ありがとうございました。
特に>>161　判りやすかったです！

ただ３のスペースを削除するが上手く行きません。
ヘルプ見ると""は置換では使えなさそうです。

ちなみにこれは一般事務等の派遣登録の中級テストです。
実践ではこんな事は使わないんですけどね。。。

>>173
>ヘルプ見ると""は置換では使えなさそうです。

出来ますよ。
検索する文字列にスペース。
置換する文字列はマウスポインタ移動しただけ。

これで置換してみて下さい。

>>169
すまん、わからへん。なんでオートフィルタが面倒なん？
おまえアホカ？ぜんぜん面倒ちゃうぞ？

>>173
３で　"　"（スペース）と書きましたが、置換する際にダブルクォーテーションは要りません。
説明で　←の様に空白だけ入力したら判りにくいと思って　"　"　と書いただけなのでした。
かえって誤解させてしまいましたね　ノ ＾＿＾;）

WindowsXP 、Excel2003 という環境なんですが、
図形の描画で矢印を作成し、そのエクセルファイルの拡張子をxlsではなく、
別の拡張子で保存したとき、矢印の画像ファイルが作成されたことがあります。
それを再現したいのですが、指定する拡張子を忘れてしまいました。orz
エクセルで画像ファイルを作成するときに、指定する拡張子がわかりますでしょうか？

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


[ 3 ]と入力すると[ 0.03 ]になってしまいます。ﾃﾝﾌﾟﾚ読んでもわかりませんでした；
どなかた設定の仕方教えてください。

177です。webページで保存で解決しました。お騒がせしました。

>>178
〔ツール〕-〔オプション〕-〔編集〕タブで、
□小数点位置を固定する
にチェックが付いているのでしょう。これを外せば元通りになります。

>>180
ありがとうございます！できましたっっ！！

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


陸上競技のある種目について、
１回目に走ったタイムと２回目に走ったタイムを引き算して
その差を（どのくらい短縮できたか、あるいは延びてしまったか）をグラフに表示したいと思っています

１回目のタイムが２回目より大きければ問題なく引き算できるのですが
２回目のほうが大きい場合、負の時間となって表示されなく（########）なってしまいます

どなたか、解決方法をご存知でしたら、教えていただけませんか

>>182
=MAX(1回目,2回目)-MIN(1回目,2回目)

負の「時刻」は無いんだろうな・・・

>>182
ググルと
オプションの計算方法を1904年から計算するにする
のようですね

>>183
回答ありがとうございます
ただ、それだと、１回目に対してプラスなのかマイナスなのか
分からなくなってしまいます
また、マイナスの表示もできませんでした

>>185
ありがとうございます
その方法で解決できました！

助かりました！ありがとうございました！！

>>172
２つの方法ともに未熟な為、まだ成功しておりませんが、
急ぐ業務でもないので、じっくりと噛み砕いていこうと思います。
ご指南していただきありがとうございます。

セクセル弄ってたら、セルの列名（横）がアルファベットから数字になってしまったのですが
元に戻すにはどうしたらよいのでしょうか？

英単語のテストをつくりたいのですが何回もそのテストを実施しよう
と思いますがその単語を毎回同じ場所にしてしまうとその順番におぼえる生徒
もいてしまうので毎回ランダムでやりたいとおもうのですが
エクセルで英単語を一回うってそれをランダムで毎回順番をいれかえる方法って
ありますか？　

>>188
〔ツール〕-〔オプション〕-〔全般〕タブで、左上の
□R1C１参照形式を使用する
のチェックを外せばOKですよ。

>>189
英単語の隣の作業列に=RAND()として、作業列をキーに並び替え

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

セルに入力→確定→Enter→一つ下の列の中途半端な位置にカーソルが移動
　　　　　　　　　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
波線部分を　”一つ下の列の先頭に”　としたいのですが、どこをどのように設定すればよいのでしょうか？

>>190
ありがとうございます！無事出来ました。

>>192
セルを横に移動する時にTabキーを使う

>>174,>>176
ありがとうございます！！！
無事できました。

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

E列のセルに "-" の文字が入っている行を検索して、その行を削除して上に詰めるVBAを書きたいです。
自分で下のように作成したのですが、どうしてもうまくいきません。
cの型が合わないとエラーが出てしまうのですが、良い方法をアドバイス宜しくお願いいたします。


Dim c As Range

Set c = Columns("E:E").Find("-")

If Not c Is Nothing then

Do
Rows(c).Delete
Set c = Columns("E:E").FindNext("-")
Loop While Not c Is Nothing

End If

どなたか、>>196をよろしくお願いします。

とりあえずRowsにはcをRowで数値にして与えましょう

>>198
どのようにして数値にすれば良いのか分からないのです（涙

和はsum関数だけど、差は何？

-

>>194
ありがとうございます、できました

すみません。教えて下さい。
countif関数やsumif関数で範囲をしていするとき、
ADDRESS関数を使って指定はできないのでしょうか？
詳しい方がいたら教えて下さい。お願いします。

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

ブックを開いた時に一番左にあるシートのシート名を取得したいのですが、方法がわかりません。

よろしくお願いします。

>>204
Worksheets(1).Name

（）内の数字が、左から○番目のシート。と言う意味です。

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

A.xlsとB.xlsがあり、それぞれVBAでの処理がありますが同時実行を試したところ、片方の処理が終わらないと
動きませんでした。同時実行させる方法はありませんか？
VBAの処理内容はLOOPの中でとある計算をさせております。

同時にさせる目的によってやり方が変わるのでは？
例：並列で計算速度を上げたい、
　　Aの途中結果がBに依存してる、等

>>207
AとBは全く独立しています。
単純にAとBを同時実行することにより早く終わらせたいだけです。

Excelで折れ線グラフを作成しています。

元データを改変できないという条件で、
元データの値が#NUM!や#DIV/0!などのエラーとなっているところだけ
グラフに表示させたくないのですができますか？

>>205

ベリベリサンクス

いままで手でコード変えてたんだよね。
ありがと

>>209

NA()ではどうですか？

>>211
うるせーんだよwwwwww

>>211
ご回答ありがとうございます。
やはり数式をいじらなければ無理のようでした。

=IF(ISERROR(数式),NA(),数式)

上記でいけました。

>>212
死ね

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

お世話になります。
初歩的な質問ですがよろしくお願いいたします。
複数のエクセルをそれぞれ別ウインドで展開したいのですが、
どうしてもひとつのエクセルの中でしか開けません。
個別のウィンドで開く方法を教えてください。
よろしくお願いいたします。

>>214
ttp://up2.viploader.net/pic/src/viploader129366.jpg

エクセルで複数のブックを開いた場合、ウィンドウを最大化していると
ひとつしか開いてないように見えますが
〔ウィンドウを元のサイズに戻す〕をくりっくすればウィンドウを並べることが出来ます。

タイトルバーを間違えてクリックする事が多いのでお気を付けて。

>>214

どうしてもっていうなら、２つめのウインドウ用は関連づけでexcelを開かず、ショートカットとかでエクセルを新規に起動してから、ファイルを開けばいいと思います。

なんのために複数ウインドウにしたいのかはわかりませんが。


>>213

^^

はじめてこのスレでお世話になったので、恩返しにレスしました。
いきなり212みたいのがいてビビリましたが。

>>215さん、
>>216さん
おかげさまで解決いたしました。
ありがとうございました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 複数　セル　挿入

6行・25列で1人分の顧客データが
縦に1000人分あります。（6000行）

この顧客データに、新たに1行ずつ行を挿入したいのですが
一つ一つやっていると日が暮れてしまうので
何かガツッと一気に挿入できる方法はありますでしょうか。

>>218
そういう顧客データって余程特別な事情でもない限り
1顧客＝1行ににした方がいいと思うんだが。

>>218
1)1列挿入
2)挿入した行にオートフィルで1〜6000の連番を振る
3)連番をコピーし、6001行目から1200行目に貼り付け
4)6001行目を1.5、6002行目を2.5として、オートフィルで1.5から6000.5までの連番を振る
5)挿入した列をキーにして並べ替え
6)挿入した列を削除

>>203
INDIRECT関数（とOFFSET関数）を使ったほうが楽じゃないかな。
例えば
=SUMIF(INDIRECT(C1),"=ちんこ",OFFSET(INDIRECT(C1),0,1))
と入力して、
セルC1の値が「A1:A10」ならば、
A1:A10 の値が「ちんこ」のものだけのB1:B10の合計を返す。

>>208
一つのExcelで実行出来るマクロは､ブックをいくつ開いていても全ブックを通して一つだけ
なのでExcelを二つ立ち上げるか､処理を外部に置くかすれば良い

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 列挿入

A列に日付、B列に時間が入力されています。
B列の時間が9：00〜17：30の間なら列挿入なし。
それ以外の時間帯なら列挿入をしたいのですが。
なにかよい方法はありますでしょうか？

どなたか、優しい方、>>196に関してアドバイスお願いします。
cを数値化にする方法が分かりません。。。
宜しくお願いします。

Dim MxR As Integer
Dim i As Integer
i = 1
MxR = Range("B65536").End(xlUp).Row
Do Until i = MxR
i = i + 1
If 〜〜〜
感覚的にこんな感じになるとは思っているのですが・・・
よろしくです。

>>224
Dim c As Range
Set c = Columns("E:E").Find("-")
If Not c Is Nothing Then
Do
rn = c.Row
Rows(rn).Delete
Set c = Columns("E:E").Find("-")
Loop While Not c Is Nothing
End If

でできるみたい。

Dim c As Range
Set c = Columns("E:E").Find("-")
If Not c Is Nothing Then
Do
rn = c.Row
Rows(rn).Delete
Set c = Columns("E:E").Find("-")
Loop While Not c Is Nothing
End If

っていうやりかたもある。
勉強になった。ありがと

>>226
ありがとうございました。
簡単にできることでしたが、これがどれだけ調べてもわかりませんでした。
とても勉強になりました。

>>226
自己レス
おんなじぢゃん

Dim c As Range
Set c = Columns("E:E").Find("-")
If Not c Is Nothing Then
Do
c.Select
Selection.EntireRow.Delete
Set c = Columns("E:E").Find("-")
Loop While Not c Is Nothing
End If

>>222
EXCELを２つ（A.xlsとB.xls）起動しても駄目でした。

>>229
CPU使用率余ってるんですか？

【1 OSの種類 　 　 　 　 .】 Windows2K SP4
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 はい
【5 検索キーワード 　 　 】 xlend


　　　|　A　 B 　 C
　　--+----------------
　　1 |番 　 点　 科目
　　2 | 1 　 90　 社会
　　3 | 2 　 75　 理科
　　4 | 3 　 80　 数学
　　5 | 4 　 62　 国語
　　6 | 5　 100　 数学

オートフィルダで選択した後、見出し以外の部分を範囲選択したい。
オートフィルダで「数学」を選択→４、６行目を選択
オートフィルダで「社会」を選択→２行目を選択
オートフィルダで「英語」を選択→選択行無し
ＶＢＡでは、どう記述すればよいでしょう？

229みたいな子って､何故どうダメなのか書かないんだ？

>>231
とりあえずフィルダじゃなくてフィルタ(filter)な

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

ＶＢＡでの質問です。
型が一致しないとエラーが出てしまいますが、
なぜ違うのか分かりません。
どのようにすればよいのでしょうか？

Cells(j, 6)には式が入っており、別の値を参照しています。
Cells(j, 12)、Cells(j, 14)は数値が入ってます。

Cells(j, 16).Value = (Cells(j, 6).Value - Cells(j, 12).Value) / Cells(j, 14).Value

２３４です。

ちなみに、足し算にしてもダメでした。

Cells(j, 16).Value = (Cells(j, 6).Value + Cells(j, 12).Value) / Cells(j, 14).Value

割り算を消してもダメでした。

Cells(j, 16).Value = (Cells(j, 6).Value - Cells(j, 12).Value)

足し算にして割り算を消したらエラーは出なかったです。

Cells(j, 16).Value = (Cells(j, 6).Value + Cells(j, 12).Value)

>>235
Cells(j, _)をそれぞれウォッチ式に追加してデバッグウィンドウで型がどうなってるか確認

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

エクセルで作った表の上下を逆にする方法はありますか？
すみませんが教えてください。

例）上の表を下の表に

　　　|　A　 B 　
　　--+---------
　　1 |あ 　a
　　2 |い 　b
　　3 |う　 c
　　4 |え　 d
　　5 |お 　e
　　6 |か　 f

　　　|　A　 B
　　--+----------
　　6 |か f
　　5 |お e
　　4 |え d
　　3 |う c
　　2 |い　 b
　　1 |あ　 a

>>227　 おらならこーするだ。

　 For i = Range("E65535").End(xlUp).Row To 1 Step -1
　 　 If Cells(i, 5) Like "*-*" Then Rows(i).Delete
　 Next

>>236
この型を変えることはできるのでしょうか？

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

Ｅ列の最大値の数値を検索し、その値の行をコピーして３列にペーストする方法はありますか？
できればリアルタイムが良いのでＶＢＡでないほうがよいのですが
無理ならＶＢＡでも良いです。
教えてください。よろしくお願いします。

>>237
降順ソート

>>239
型変換関数とかIf IsEmpty(x) Thenみたいな感じで場合分けとか

>>240
意味がよく分からないがコピーやペーストはワークシート関数ではできない
似たような処理をコピーやペーストを使わずに実現する方法を考えるか
VBA使うしかない
なんにせよ何やりたいのかわからないのでコメントできないが

>>241
２４０です。レスありがとうございます。
コピーペーストはやはりＶＢＡしか無理ですか。

セル範囲（今回はＱ列）の中で、最大値がある位置を検索し、その行のＢ列からＰ列をコピーし、
別の行にペーストしたいのです。

ＭＡＸ関数だと値そのものを検索してしまうため、位置を検索することはできませんよね。

このような場合、どのようにすれば最大値の行をコピーペーストできますでしょうか？

>241のいうとおり、ソートして上３行をコピー＞行列を入れ替えてペースト。
元に戻せるように連番を振っておくこと。

>>223　 >238と同様。
無効なセルの処理なし。列挿入は行挿入と判断。

　 For i = Range("B65535").End(xlUp).Row To 1 Step -1
　 　 If Cells(i, 2) < TimeValue("9:00") Or Cells(i, 2) > TimeValue("17:30") Then Rows(i + 1).Insert shift:=xlDown
Next

>>243
レスありがとうございます。>>240です。
返事が遅くなって申し訳ありません。

欲しい行は１行分で良いのです。挿入を上から３行目にしたいとのことです。
書き方がおかしくてすみませんでした。

ソートをすると、処理が重くなってしまいませんか？
一度試しましたが、0.5秒くらい固まりました。

データ自体は1000行くらいあります。

できれば処理を軽く、Ｑ列の最大値の数値を検索し、その行のみをコピーし、別の行に貼り付けたいのです。

MAX関数を検討したのですが、ＭＡＸ関数だと値そのものを検索してしまうため、位置を検索することができないので
やはりソートして最上位の行をコピペしかないのでしょうか？

MAXとMATCHを組み合わせてセル三唱。

>>246
以下のように考えましたが、Range を用いるところ（３行目）でエラーが出ます。
このような場合はどうすれば上手くいきますか？
いろいろと試しましたが分からないので教えてください。お願いします。

ma = Application.WorksheetFunction.Max(Range("Q2:Q1000"))
mg = Application.WorksheetFunction.Match(ma, Range("Q2:Q1000"), 0)
Range("B"ma:"P"ma).Select
Selection.Copy

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

EXCELからVBAをつかって自分の携帯にメールを送信するのが目標です。
いろいろなサイトを参考にしてテストしましたが
「OUTLOOKのItem.Sendメソッドを使って自動送信しようとしています。」
「はい」、「いいえ」を聞いてきます。

はい、いいえ、のボタンを出させない方法はありますか？
自分はＰＣの前にいないもので。

あ〜、マクロの含まれない別なbookを送信すればできるかな？
う〜ん、やってみます。

>>245
そういう操作はわざわざVBAを使わなくても
　データ→フィルタ→フィルタのオプション設定
で簡単に出来るよ。

>>247
MAXとMATCH使えばVBAなんか使わなくてもワークシート関数だけでできるだろ

VBAで、値の表示は

Range("A11").Value

ですが、式（式を含む全てでもＯＫ）は、どのように表示できますか？
コピペしようと思うのですが、普通にやると値のみになってしまうので。

Excel2000でブックにパスワードをかける方法を教えて頂けないでしょうか？
ブックを開く時にパスワードを入力しないと、開けないようにしたいのです。

よろしくお願いしますm(_ _)m

失礼しました。
テンプレに沿って書き直します。

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

ブックにパスワードをかける方法を教えて頂けないでしょうか？
ブックを開く時にパスワードを入力しないと、開けないようにしたいのです。

よろしくお願いしますm(_ _)m

>>253
ツール→保護→ブックの保護

>>255様
ありがとうございますm(_ _)m

>>252
Formula

>>248-249

昔、VBAを悪用して、Outlookのメール送信機能でウィルスやスパムメールを大量送信する
マクロウィルスが多発したので、Outlook のあるバージョンから、マクロや VBA で
Outlookのメール送信を呼び出した時は必ず確認メッセージが表示されるようになりました。

Outlookを呼び出さないCDOやSMTPメール送信を作れば、できます。

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

どなたかお願いいたします。
A1セルに指定した日付から、二日前の銀行営業日をB1セルに
表示させたいのですが、土・日・祝はカウントしないようにしたいのです。
例えば、
2006/4/2なら2006/3/30
2006/3/22なら2006/3/17
2006/3/23なら2006/3/20
になるようにしたいのですが…

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

休日と営業日の表を作ってVLOOKUP等で調べる

>>259
WORKDAY

>>260
ありがとうございます。これでやってみます。

>>261
ありがとうございます。自分がExcel2003だと思ってたのですが、
Microsoft Office Excelでしたので、WORKDAY関数が見当たりませんでした。

お二方とも即レスありがとうございました。

>>260

こんなのは？
http://tool-2.net/?A_A_A

入力業務を間違わずに早くできるテクニックやエクセルの機能など
何かありますか？

>>264
決算の悪夢(w

例えばどんな入力業務？

>>265さま
２６４です。
違う課の担当になり入力業務が遅く、入力ミスったりと後輩に舌打ちされる日々。。。
列がたくさんあり横長に長いシートの入力です。
目がチカチカします。
おもに数字入力です。単位桁は100万台から1000万まで。
桁間違うと大変なことになります。よい方法ありますか？

>258
ありがとうございます。
できるだけ簡単なサンプルを探して実装してみます。

>>264
>>1に書いてある事すら読めないようじゃ、後輩に舌打ちされるのも仕方無いな。
情報が少なすぎる。
その様子じゃ、テンキーすら使ってないんじゃ？とか
IMEオンの状態で数字を入力してるんじゃ？とか
物凄く基本的な事すら分かってなさそうな気がするんで、どこからアドバイスしてよいか見当が付かない。

>>264
ひたすら打ちまくれ！！！

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 初心者
【4 VBAでの回答の可否】 お願いします

すいません教えてください。
セルに○があればそのセルの背景色を赤、△なら青という具合に表示したいのですが、
５色に分けたいので、条件付き書式では対応しきれません。
指定した範囲内にあるセルを判定して、色を付けるようなマクロをご教示お願いします。

268さま。
見当がつかなくともアドバイスおねがいします。

VBAの質問です。

i = Range("B1").End(xlDown).Row + 1

i は B 列の文字のある行の次の行を指す？

B列に何も入ってない場合。

>>266
＞目がチカチカします。
眼科行くか画面が広く画質の良いディスプレイ買ってもらえ。
あるいは「表示→ズーム」で表示倍率変えるとか、見やすいフォントにするとか。
横に長いシートなら「ウィンドウ→ウィンドウ枠の固定」が有効かも。

＞おもに数字入力です。単位桁は100万台から1000万まで。
＞桁間違うと大変なことになります。よい方法ありますか？
文字と数字が混在してるなら「データ→入力規則→日本語入力」
桁間違いを無くしたいなら「データ→入力規則→設定」
3桁ごとにカンマ入れる設定ぐらいは知ってるよな？
あと、カーソルの右移動にTabを使うとEnterで次の行の最初に戻れるとか
「ツール→オプション→編集→入力後にセルを移動する」を「右」にしとけばEnterで右に移動できるとか
数字の最後が000で終わる事が多いようだったらキーカスタマイズソフトを使って000を適当なキーに割り当てるとか
入力データに規則性があるなら簡単な形で入力しておいて、あとで数式で一括変換する方法を考えるとか

それからテンキーはブラインドタッチ出来るようになっとけ。
0,1,4,7は人差し指、2,5,8は中指、3,6,9は薬指、Enterは小指
(0は親指でもいい）

>>272
なんで自分でやって確かめないんだ？

>>272
>B列に何も入ってない場合
あと、B1だけの場合も例外ですね。^^

>272
セルＢ１を選択して Ctrl+↓ で移動した次の行を表します。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000,2002
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 シリアル値 日付 文字列 数値

エクセルで Today()の書式をddにして 日付 日にちの部分だけ取り出して、ifで何日〜何日まで
というように条件分岐をさせたいのですが、ifではシリアル値を読み取ってしまうようでうまくいきません。
別のセルに TEXT() をつかったりして数値か文字列で出力させようとがんばってみたのですが、ソレもうまくいきません。

良い方法があったらお願いします。

>>278
これからもエクセルを使うなら
シリアル値で計算する癖をつけたほうがいいぞ
応用が利かない人になるから・・・

>>278
> うまくいきません。
> ソレもうまくいきません。

>>2
> ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
> ･8 うまくいかなかったにしても自分でやってみたこと(組んだ数式やコード)は書きましょう。
> 　　例えエラーになる式やコードでも、何をやりたいのかを的確に把握する手がかりになります。
> 　　その上で、どううまくいかないのかを具体的に書きましょう。
> 　　エラーが出るなら、何処でどういうエラーが出るのか、
> 　　想定外の結果が出るなら、条件と想定上の結果、実際の結果などを詳しく書いてください。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 基数変換　16進数　分析ツール　microsoft　マイクロソフト　ダウンロード


ワークシート上で10進数→16進数の基数変換を行いたい。
しかし、分析ツールをインストールする為のディスクを所持していない為に、DEC2HEX関数を利用できない。
どうしたらよいのだろうか。

正規版のOffice買うとか
自分で計算式作るとか
いくらでもやりようあるじゃない

（イ）のように数字と人名が飛び飛び（飛び方は不規則）に並んでいます。
これを（ロ）のようにするにはどうすればよいでしょうか。
宜しくお願いします。

（イ）
1　　伊藤
2　　黒田
3　　山縣
5　　伊藤
6　　松方
11　桂
12　西園寺
：　　：

（ロ）
1　　伊藤
2　　黒田
3　　山縣
4
5　　伊藤
6　　松方
7
8
9
10
11　桂
12　西園寺
：　　：

すみません、忘れてました　283です
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 順列　補完　数字

>>283
照準

>>283
(ロ)
　 A　B
1　1　=VLOOKUP(A1,(イ)!A1:B65535,2,FALSE)
2　2　=VLOOKUP(A2,(イ)!A1:B65535,2,FALSE)

以下略な感じで

というか(イ)に抜けてる数字全部追加して並べ替えした方が早そうだな

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

日付　　収入　　　　出費　　　損益
3月1日　8000円　　2500円　　5500円
3月2日　12000円　10000円　2000円
3月3日　4500円　　5000円　　(-)500円
・・・　　　・・・　　　　・・・　　　　　・・・
というようなデータを選択してピポットテーブルを作ると、必ず「空白」というデータが作られてしまいます。
今のところこれを非表示にしていますが、「空白」というデータが作られないような対処方法を
教えてください。

>>285
昇順　・・・の事でしょうか？
すみません、よくわかりません。

>>286
そのようにしたところうまく出来ました。
ありがとうございました。

>>287
全部で1000件近くあるので、一つずつ調べていくと時間がかかってしまうんです。

A1 =Today() 書式[dd] 表示[03]

=if(A1=01,A,if(A1=02,B,if(A1=03,C,・・・)))))))

このようにしてみましたがうまくいきませんでした。

=text(A1,00)
とやってもシリアル値 が出力されてしまします。

日付として出力はさせられないのでしょうか。

エクセルのコピー＆ペーストでお聞きしたいのですが、
「表示させない」にしているセルがあるシートに
ペーストすると表示されてないセルにもペーストされます。

「表示しない」　指示のままペーストするのは不可能なのでしょうか？


a,b,c,dがコピーしたい文字で、1.2.3.4は列
コピー元
1　a
2 b
3 c
4 d


コピー先
1　a　　　　　　　　　　　　　　　
3 b
5 c
7 d

となるように貼り付けたいのですが・・・

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

>290
=day(today())

>>291
１行おきに貼り付けたいって事？
バージョンは？
ＶＢＡでもいいの？

> バージョンは？
> ＶＢＡでもいいの？
そういうのを書かなかった奴には｢教えたがり厨｣以外答えない決まり>>3★4

スミマセン。。。

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


>>293
１行おきではなくランダムで中には２行おきも有ります。


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

>>3
指摘されてから書き直しても、その質問にはまともな回答が付かないと思ってください。

つまり
>>294

ウザ

>>295
可視セルのみ選択してコピーしてから貼り付ければいいんじゃない？

>>296
おまいはうせろ

ほんとウザいよね､言われなくても書くべき程度の情報も出さない糞質問者

>>296は過去に言われたことを根に持ってる馬鹿
>>297は誤爆
>>298は教えたがり厨
>>299は空気を読めない自治厨
>>300は俺が取りたかった

質問者に糞はいない、分らないんだから。
回答者も時には質問者
ルール、ルールと言い出してから
変なヤツが住み着いちゃったな

>>281
>分析ツールをインストールする為のディスクを所持していない為に
なんで？
正当な理由があるなら教えるけど・・・

> 質問者に糞はいない、分らないんだから。
ハズレ
そういう意味で糞だと言ってる奴は一人も居ない。
無知を責めるようなルールも無い。

見てる人間はピンからキリまでいるんじゃないの

>>295
連続した範囲を不連続の範囲にコピペすると
それぞれに連続したデータがペーストされてしまう。
また不連続の範囲から不連続の範囲にはコピペできない。
つまり基本的には出来ないのだが、回りくどい方法でやれなくもない。

コピー元を A1:A5、コピー先を A11:A20 とし、その内５行が非表示とする。

１．Ｂ列に目印の○を付ける
　 　B11:B20を選択→Alt+「；」→B11に「○」を入力 Ctrl+Enter
２．Ｃ列に予備の計算式を入れる
　 　C10 に -1、C11に =IF(B11="○",C10 + 1,C10)、C11をC20までオートフィル
３．Ａ列に求める計算式を入れる
　 　A11 に =IF(B11="○",OFFSET(A$1:A$5,C11,0,1,1),"")、A20までオートフィル

Ａ列に時間が連続ではいっています。
以下のコードは８時台、９時台と一時間区切りで行を挿入しています。
これを応用して9：00〜17：30の時間以外なら行を挿入したいのですが
どうしたらよいでしょうか？
Sub RinsHr()
Dim MxR As Integer
Dim i As Integer
i = 1
MxR = Range("A65536").End(xlUp).Row
Do Until i = MxR
i = i + 1
If Hour(Cells(i, 1).Value) <> Hour(Cells(i + 1, 1).Value) Then
i = i + 1
Rows(i).Insert
Cells(i, 1).Value = Hour(Cells(i - 1, 1).Value) & "時台"
MxR = MxR + 1
End If
Loop
End Sub

>>307
一時間区切りを生かしたままさらに9：00〜17：30の時間以外の条件を
追加したいならANDで追加。
「9：00〜17：30の時間以外」に条件を置き換えるなら条件の部分をそのまま入替え。

>>307
回答をスルーして又質問か。失敬な奴だ。

エクセルで数式エディタみたいな機能はありますか？

２００３になってからイルカ君は消えてしまったようですね・・・

>>308
具体的にどのように記述すればよろしいでしょうか？
条件は「9：00〜17：30の時間以外」に書き換えです。

>>310
数式エディタでだめな理由は？

数式エディタで書いた数式を数式バーにコピペしても数式に変換されないあたりがダメ

>>313
ワードからコピーして貼り付けですか？

今wordを開いてみたら数式エディタをインストールできないんですけど・・・
なぜでしょう・・・？

>>314
後出しいくない

＞292
ありがとうございますっ！

>>312
条件については
Cells(i, 1) < TimeValue("9:00") Or Cells(i, 1) > TimeValue("17:30")

ただ、置き換えただけでは希望するものとはちょっと違うような気もするが。

>319
前すれ嫁。

Excel2002を使用しています。
A1セルをロックして値を変更させない＆フォーカスを移させない状態にしたまま、
VBAからの値変更のみ許可するにはどうしたら良いのでしょう？

>>321
>>1読んで出直して来い。

>>321
不可能

セルをロックしてシートを保護し､VBAから値の変更をする場合は
｢保護解除｣→｢値の変更｣→｢再保護｣とやるのがセオリー
保護を解除しなくてもVBAからは変更出来るようにするなんて設定は無いし
そんなものがあったら保護の意味が無くなる

>>1にある必須項目の1と3が書かれてないので､VBAは使えると勝手に判断し具体的なコードは伏せる
まあ､VBA初心者でもマクロの記録で録れるから問題ないだろうし

>>321
こんなかな？詳しくはヘルプで調べてみて

Cells.Locked = False 'いったん全体のロックを解除
Range("A1").Locked = True 'A1だけロック
ActiveSheet.EnableSelection = xlUnlockedCells '保護した際にロックしたセルは選択もできなくする
ActiveSheet.Protect UserInterfaceOnly:=True 'マクロからの変更は許可して保護

あれ？2002ってprotectの引数UserInterfaceOnlyって無かったっけな？
調べてみてなかったら諦めてね。

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

セルの四隅のうち任意の箇所に点を打ちたいのですが可能でしょうか？

質問テンプレは「出来れば使ってね」であって必須ではないよな？

テンプレ厨の脳内セオリーのクォリティ高いなｗｗｗｗｗｗｗｗｗ
「不可能」ってｗｗｗｗ

>326
点ってなに？

・
↑のような普通の黒い点です。
間隔が分かるようにする為に打ちたいのですが・・・

>>325
>あれ？2002ってprotectの引数UserInterfaceOnlyって無かったっけな？
97でもありますよ。^^

３２６
・を入力、セルの書式設定[文字の配置]で好きなように設定すれば！
それとも何かい、隅っこにマークをつけたいってんなら話は別だ。
おめーの気持ちは、おいらにゃわからねーな

>>327
テンプレはそうだけど
▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
こっちはダメ

> 【1 OSの種類 　 　 　 　 .】
> 【2 Excelのバージョン 　 】
> 【3 VBAが使えるか　 　 .】
> 【4 VBAでの回答の可否】
> 【5 検索キーワード 　 　 】

は使わなくてもいいけど､

> OSの種類
> Excelのバージョン
> VBAが使えるか
> VBAでの回答の可否

は書かなくちゃだめ。
エクセルの知識が無くても常識があれば､
この程度は言われなくても書く物だけどね。

VBAは常識の範疇じゃないだろ。
>>1を見れば分かる事だが「言われなくても」「常識があれば」書けるような物ではない。

>>334
テメーの狭い見識で常識なんて言葉使うんじゃネエ

VBAの存在を知っていて常識があれば書くもの。
存在すら知らない場合は書けないが､その為の配慮は別にあるし。(>>1※)

テンプレすら読まない人は
ヘルプも見てないだろうから答えたくない

答えたくないと声高に叫ぶ人ってこのスレに何を求めてるんだろうか。
テンプレに従った模範的な質問と優れた回答でスレが埋め尽くされると気分がいいんだろうか。
よく分かんね。

テンプレとかはどうでもいいから馬鹿が自信満々で嘘回答するのはやめてくれ

ここは２ちゃんなんだし
好きにすればいいよ

雑談・議論スレがあるのにここで雑談や議論をしてる奴は
テンプレ読まずに質問する馬鹿と五十歩百歩

五十歩百歩の使い方が間違ってるｗ

【1 OSの種類 　 　 　 　 .】 Windows95
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ＶＢＡ 文字 移動

セルＡ１の中ににＫＪＨＧＵと文字があって
この文字を左に３回転する（ＨＧＵＫＪになる）ようなＶＢＡはありますか

ありますか、とはExcelのソフトウェアの中に含まれていますか、ということですか？
それならば答えは「ありません」

ＶＢＡ関数はありますか。でした。作らないといけないのでしょうか

作らないといけませんね。

VBAにおいて"関数(Functionプロシージャ)"とは作るものですが､何か？
"組み込み関数"といういきなり使える関数もあるけど､
これは本当に基本的な機能しか持ち合わせていない。
関数とは､その組み込み関数やステートメント等を使って作っていくもの。
自分で作るからこそ､かゆいところに手が届く関数が作れる､それがVBAですよ。

コードは書かないが聞いてもいない能書きは垂れ流すんだな（ﾜﾗ

だって●なんだもん（藁

能書き以下が能書きを罵倒w

VBAが使えないって書いてるのにVBA回答可にしてる人の気持ちが理解できん。

コピペすればすぐ使えると思ってるんじゃないか。

>>344はちょっと複雑な事はとにかくVBAというものを使う必要がある、みたいに考えてるのかな。
まあ、このスレではVBAが頻繁に登場するからそう思ってしまいがちなのも分からんでもない。
ちなみに>>344程度の事はVBA使わなくてもちょっとした数式で簡単に出来るよ。

今回のようなコードが書けないので、使えないと書きました
VBAを使わずにできるのですね。探してみます

数式を探したのですが、該当するものはないように思った
どちらにしても作らないといけないですか？

>>356
少しは頭使おうよ…

この式でどうだ。
=RIGHT(A1,3) & LEFT(A1,LEN(A1)-3)
2つある3を変えれば回転位置を変えられる

その式は回転数が文字数未満という条件でしか使えないけどね。
例ではこの条件通り(回転3<文字数5)だけど､毎回この条件が当てはまるとは
何処にも書いてないので､｢回転数が文字数未満なら｣と付け加えなくては
回答として不適切と言わざるを得ない。
この条件が当てはまるならこのままでいいけど､当てはまらない場合もあるなら
同じくLEFT､LEN､RIGHT(またはMID)で1文字ずつ移動しなきゃならない。

uzee-

どこの世界も馬鹿は間違えるのが怖いから過剰に厳密な回答を好むな
お前の頭の程度なんて誰も興味ねーから

回転数が文字数未満なら、こうなるんじゃない？
abcdefgがcdefgabになる例：　=RIGHT(A1,LEN(A1)-2)&LEFT(A1,2)
回転数が文字数以上ならMODと組み合わせればいいだろう。

>361
ヒント：汎用性 再利性

>>362
>>349見ろよ。肝心の解決策は説明できなけりゃ頭よく見せたいだけのバカ

文字数まで考慮したけりゃ次の式でいいだろ。
回転数が固定で文字数がそれ以下なら、回転はｂ必要ないと思うんだが
=IF(LEN(A1)>3, RIGHT(A1,3) & LEFT(A1,LEN(A1)-3), A1)

>>362
何か勘違いしてない？
MODと組合せりゃいいって書いてるだろ？
俺のは４文字だろうが、５文字だろうが、１０文字だろうが2の部分を変えるだけだぞ？
>>357とは解釈が異なるみたいだが。

>>362は2の部分を一つの引数にしろって言ってるのか？
だったらユーザー定義関数にするしかないわな。

>365
尾前さんが勿体振ってることは
頭の悪い俺に通じてないので
MOD使った式書いてみせてくれ

例えば回転数がB1に入力されてるとしたら
=RIGHT(A1,MOD(B1,LEN(A1)) & LEFT(A1,LEN(A1)-MOD(B1,LEN(A1))
でいいんじゃね？

つーかそもそも質問に条件が書かれて無いんだから
「あらゆる場合を考慮した回答でないと不適切」
なんて事は無いだろ。エスパーじゃねーんだから。

>質問に条件が書かれて無いんだから
そういう質問は突き返すなり､条件を聞き出すなりすれば良いだけ。
あえて条件が不明瞭なままの質問に回答したいという物好きなら
出されている条件だけを頼りに想定できる全ての状況を考慮になくちゃダメ。
それが出来ないなら条件が確定されるまで黙ってるか､進んで条件を聞き出せば良い。

エスパーと思慮深い物好きのみが許される｢曖昧な質問への条件聞き出し無しでの回答｣をしておいて
エスパーじゃないだのそこまで考慮出来ないだのはナンセンス。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ウインドウ枠の固定 見出し固定 テーブル ヘッダ フッタ

ウインドウ枠の固定のように、スクロールしても最下段の集計行を
画面内に表示したいのですが可能でしょうか？

>>369
なるほど、>>1以下をよく読んだらこう書いてあるな。
＞★4 質問ルールを守ってない質問者に､ルール指摘をするかどうかは勝手ですが､
＞　　　そういう質問者への回答はしないようにしてください。｢教えたがり厨｣なら仕方ありませんが･･･。

だが、「全ての状況を考慮した回答ならよい」とはどこにも書いてないんだが？
お前がそう考える理由を聞きたいね。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 マクロ

とあるCSVファイルを変換するためのマクロを作っていて質問であります。

例えばAのセルの85行目まで数字の入力値が入っていた場合には
Ｂ列の85行目まで自動的に2005年と入力するというマクロ？はどうやれば良いでしょうか？
今は手動で1行目に2005年と入れてそれをコピペしています。
Ｂ列以外にも同じようにＣ列、Ｄ列などもコピペする必要があるので自動化出来れば良いなと思っているのですが。

どうぞよろしくお願いします。

>>370
１）集計行を選択、コピー
２）集計行を表示させたい場所（セル）を選択
　　※ウィンドウ枠を固定して上部に置くなど
３）Ｓｈｉｆｔキーを押しながら〔編集〕、〔図のリンク貼付け〕
４）印刷はせずに見るだけなら、〔図の書式設定〕-〔プロパティ〕で
　　□オブジェクトの印刷　のチェックを外す

これで、集計行が常に表示されます。
行数を変えてもちゃんと反映されるようです。（確認済み）

>>372
マクロ使わなくても数式で出来るよ。
=IF(ISNUMBER(A1),"2005年","")
みたいな感じで。

>>374
でもそれだと、いちいちセルに入力しなければならないから、
1行目にデータを入れてコピペするのと同じ程度の手間になってしまいませんか？

答えようと思わないけど、知っているマクロの知識を答えれば回答がもらえるんじゃね？
マクロを少し知ると簡単な操作だよ、マクロな人からすれば

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】それすらもわかりません。

いろいろ関数は検索したのですが、どうしてもわからないので教えてください。

たとえば何かの大会があって１位の人に２０点あげたい場合などどうす
ればよいのでしょうか？RANKを使って順位を出して、自動的に点数がでるように
したいのです。可能でしょうか？

>>372
いちいちコピー＆ペーストなんかしなくてもマウスのドラッグだけでできる
あまりにも基本機能なので、入門書の最初の章あたりの
「Excelの操作の仕方」でもよみなせい

>>377
IF関数は調べてみた？
1位だけに20点あげたいならこんな感じで。
=IF(RANK(〜)=1,20,0)
1位に20点、2位に10点、3位に5点、・・・みたいにしたければCHOOSEを使うといい。

>>379
IF関数は調べてません。初心者なものですみません。
全員に点をあげたいのでCHOOSEを試してみます！
ありがとうございました！

>>377
可能ですよ
=IF(RANK(A1,A:A),20,0)

>>378
マウスのドラッグだけだと、2005年、2006年、2007年とかになるしｏｒｚ

おお。CTRLを押しながらドラックすれば2005年のままドラック出来るのな。
でもそれでも複数列を同時には無理だよね？

>>375
「A列には数値データが入っていたり入っていなかったりする。
入ってる場合は同じ行のB列に2005年と表示する」
という風に質問を解釈したんだけど、違うのかな？

「A1からA85までの全てのセルに数値が入っていたら
B1からB85までの全てのセルに2005年と表示する」
という事？

>>383
B1〜D1セルを選択してD1セルの右下あたりを下方向にぐりぐりドラッグすれば
複数列同時にできるだろ

>>384
A列には必ず数字が入ることになります。

とあるソフトでCSVファイルをインポートする際に、例えばB列が空欄になるとエラー表示になって読み込めなくなるので、
そのＢ列（年の列）に2005年と入れたり、Ｃ列（月の列）に月数を入れたりする必要があるのです。
月数は数字から判断出来ないので手で入力しますが。

>>385

B列とE列だけコピペしたい、Ｃ、Ｄ列はやりたくないという時はどうしたら良いですかね？
CTRLで複数列は選択出来るけど、更に任意の列のみコピペするという方法が分からないっす。

>>373
ありがとうございました、できました。

>>387
VBAは不可って事は、マクロの記録と再生でやりたいって事だよね？
１．B列とE列に文字を入力
２．B1をコピー、B1〜B?に貼り付け
３．E1をコピー、E2〜E?に貼り付け
って操作を記録すればいいと思う。
カーソルをA列に移動してCtrl+↓でA列で数値が入ってる最後の行に飛べるから、
貼り付ける範囲も指定出来るはず。

>>389
すんません。VBAの可否の意味が「昔ベーシックとかやってたりビジュアルベーシックとかの知識のある人」と思っていたので
そういうのは無いですよー。という意味で書きました。
マクロとVBAは同義ないし一部同義なんですかね。

今は、変換用のエクセルファイルを１つ作って、そこに
「読み込み用マクロ」とか登録しています。
とりあえず、家に帰ってVBAマクロの本をもう一度読み返して勉強してみます。
また分からなかったら質問させてもらいます。
ありがとうございました。

>>389
×　１．B列とE列に文字を入力
○　２．B1とE1に文字を入力

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】連番　図表番号

報告書を作成していているのですが、
図-2.2.1　構造図1参照
図-2.2.2　構造図3参照
図-2.2.3　構造図4参照
のように文書内に参照する表番号,図番号が頻繁にでてきます。
図-2.2.1と図-2.2.2の間に
図-2.2.2 構造図2　を差し込めば、以下の図-2.2.2が図-2.2.3に
図-2.2.3が図-2.2.4に自動的に変わる機能はないのでしょうか？
一太郎の連番機能、wordの図表番号機能をイメージしています。

>>372 はＣＳＶをＡ列に読み込んだ時に
Ｂ列に"2005"を書き込むんじゃないのか。
ドラッグだ何だは見当はずれだろ。
しかし、

＞【4 VBAでの回答の可否】 否
＞ 、、、というマクロ？はどうやれば良いでしょうか？

う〜ん、どうやって答えたもんかのう。

>>393
【4 VBAでの回答の可否】 否 →→→　おＫｶﾓﾝｴﾌﾞﾘﾎﾞﾃﾞｨ
というマクロ？はどうやれば良いでしょうか？

に変更します

>>394
表示形式を「"図-"0.0.0」にしてA1に「2.21」入れて「=A1+0.01」とか

【1 OSの種類 　 　 　 　 .】 Windows XP SP2
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel タイトル　セルから

グラフタイトルにセルの文字列を使いたいので上の検索キーワードでググったところ、
適当なサイトが見つかりました。そこには、
『グラフタイトルのテキストボックスを選択し、「数式バー」に対象セルへの参照式を入力する。』
と書かれていました。この通りにすることで、セルの文字列をグラフタイトルに入れることは出来ました。

ここで質問なのですが、
F1に ***（数値）
F2に [kΩ]の抵抗で測定
と入力し、グラフタイトルに 『***[kΩ]の抵抗で測定』と入れたい場合には、どのように入力すれば良いのでしょうか？
F2の文章は変更しないので、セルに入れなくても実現出来るのであればそちらでお願いします。

>>389
ああ、改めて読んだら
「Ctrl+↓」で最終行に飛べることが分かったんで、これを利用すれば出来そうですね。
ありがとうございました。

本を読んでも無理っぽいっすorz

自分の出来る範囲は
>>389さんの言う
「VBAは不可って事は、マクロの記録と再生でやりたいって事だよね？」で間違いないことが分かりましたorz

＞２．B1をコピー、B1〜B?に貼り付け

この最終行である「B?」が何行目であるかを知るにはどうしたら良いんでしょうか？
最終行をCTRL＋↓で記録したマクロの内容はSelection.End(xlDown).Selectでしたが。

コピペするだけのマクロは、仮に8行目まで数字が入っているとすると

Range("B1").Select
Selection.Copy
Range("B2:B8").Select
ActiveSheet.Paste

のようです。
上記のB8の部分に「最終行」となるような代数？を入れてやれば良いんでしょうけど。

>>398
VBAは置いといて、次のようにキーボードから操作してみて。

まずB1を選択
コピー
←
CTRL+↓
→
CTRL+SHIFT+↑
貼り付け

これでB1をB列の最終行までコピペ出来るっしょ？（E列も同様に）

>>399
何度も？
�dｸｽ

今やってみたんだけど、確かにその方法で上手く記録されたかのように見えるんだけど、
実際にそのマクロを実行してみると、
その記録した時の行数分だけコピペになって、必ずしも最終行を判定しているわけでは無いみたいなんですよね。。。

つまり、マクロ記録時に23行の数値が入っていたならば、
マクロ実行時に14行の数値しか入っていないとしても23行分のデータが書き込まれてしまうんですよね。

ただ、某ソフトでCSVファイルをインポートする際に、未完全な行はインポートされないわけだから、
コピペで指定する最終行はある程度余裕を持った大きな数字を適当に入れておけば良いだけかな。

>>398
私が実際に使っているマクロです。
コピペしたい列の１行目（Ｂ１、Ｃ１…）を選択した状態でマクロを実行してみて下さい。

Sub コピペ()
　　myrow = Application.WorksheetFunction.CountA(Range("A:A"))
　　mycolumn = ActiveCell.Column
　　ActiveCell.Copy
　　Range(Cells(2, mycolumn), Cells(myrow, mycolumn)).Select
　　ActiveSheet.Paste
　　Application.CutCopyMode = False
End Sub

>>402
おおおおおお。ｷﾀｰｰｰｰ。
ありがとう。上手くいきました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003 SP2
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】excel vba 行　コピー　xlLastCell
１回分が１５行単位のデータがあります。

5行目まではヘッダ部分なのでコピーしません。
(最初のデータは６行目から２０行目となります)

ボタンを押すと２１行目に１回分のデータをコピーします。
このときセルの値はコピーしませんが
書式(色など)、計算式、ロックされているセル(計算式が入っている部分など)
はロックされた状態でコピーしたいです。

２回目に押すと３６行目、３回目は５１行目・・・
という具合にコピーしたいです。
どうしたらよいでしょうか？

>>404
そういう場合は、何も入力していないコピー元の用意をお勧めします。
私の場合、６行目〜20行目をコピー元とし、非表示にしています。
そして、ページ数のみを表示させる列も用意します。（印刷範囲外でも可）
例えば、お使いのデータがＦ列まであったとしましょう。
Ｇ列にページ数を表示させる数式を入れます。この場合、
=IF(MOD(ROW(),15)<>6,0,(ROW()-6)/15)　です。これを使って
『次に追加するのが何ページ目なのか』を判別します。

Sub ページ追加()
　　mypage = Application.WorksheetFunction.Max(Range("G:G")) * 15 + 21
　　Range("A6:G20").Copy
　　Range("A" & mypage).Select
　　ActiveSheet.Paste
　　Application.CutCopyMode = False
End Sub

この場合、全ての行の高さが同じでないと上手くいきません。
Rows("6:20").Copy　とすると、行の高さも反映されますが
コピー元を非表示にしておけないんですよね…

ＴＥＩＯＵもちゃんとインデント出来るようになったんだね。関心関心。
次は
> 　　ActiveCell.Copy
> 　　Range(Cells(2, mycolumn), Cells(myrow, mycolumn)).Select
> 　　ActiveSheet.Paste
> 　　Application.CutCopyMode = False

> 　　Range("A6:G20").Copy
> 　　Range("A" & mypage).Select
> 　　ActiveSheet.Paste
> 　　Application.CutCopyMode = False
をそれぞれ1行にまとめてみようか。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード　エクセル　条件　色を

B1:E30に1から100までの整数がランダムに入っているとします
A列に1以上の数値が入っていたらその行に入っている数値と同じ数値が入っているセルの色を変えるにはどうすればいいでしょうか？

>>407
条件付き書式で「次の値に等しい」「=$A1」などしておけばいい

>>406
１行！？　�煤iﾟДﾟ; ）ｿﾝﾅｺﾄｶﾞ!?

すいません説明不足でした
Aの列に入れた値と同じものをB〜Eで探すのではなく
Aに数字が入っている(用はチェックが入っている)場合に、
その行のB〜Eのセルと、それと同じ値が入っているセルの色を変えたいのです
わかりにくくてすいません

>>407
[書式][条件付書式]
数式が　=MATCH(B1,$A$1:$A$100,0)
書式は[パターン]で

>TEIOUさん
>405は、例えば AA1 に20と入力しておいて、
　 P = Cells(1, 27)
　 Rows(P - 14 & ":" & P).Copy
　 Rows(P + 1).Insert
　 Cells(1, 27) = P + 15
最終データを入力する前に必ずマクロを実行すれば
行を非表示にする必要は無いのでは？
>402は
Range(Cells(2, 2), Cells(Range("A65535").End(xlUp).Row, 2)) = Cells(1, 2)
>406漢字が違うぞ。

>>411
それだとAの列の値と同じものの色が変わってしまうようなのですが・・・
数字は何でもいいんです、というかチェックがつけられれば数字じゃなくても大丈夫なのです

例えばA3に数字が入っている(チェックがついている)ときにB3:E3の色を変え、
さらにB3、D3、E3と同じ値のセルをB1:E30から探しそこの色も変えたいのです

>>407
408,411の応用

【1 OSの種類 　 　 　 　 .】 Windows2000(1) Windows2000(2)
【2 Excelのバージョン 　 】 Excel2000(1) Excel2000(2)
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　フォント　MSゴシック　Excel2000　ずれる

(1)のPCで作成したエクセルを(2)のPCで開くと、枠内に収まっている文字がはみでて
表示されてしまいます。表示ははみでているのですが印刷プレビューや印刷したものを
みると枠内に収まっています。フォントはMSゴシック8ポイントです。
原因に心当たりがある方、是非ご教示ください。

いろいろ試してみましたができません
誰かお願いします・・・

めんどくさいからVBA使えば？

>>416
Ｂ１のセルの条件付書式として…
=COUNTIF($A:$A,B1)>0
で出来るように思います。

>>415
前にも似たようなレスがあったな
OSがWindowsなら、そういうもんだとあきらめろ！！
いやならMacに変えろ、どの機械で見たって同じだし
印刷も見たままの形,見たままの色で出来るから

VBAでもいいんでお願いします
418のはこっちの条件を勘違いしていると思われます

>>420
あーうぜえよ

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

すみません初歩的な質問になるかとは思いますが、悩んでいます。
どなたか教えてください。

年度別のデータを作っていますが、表の上下を逆にするには
どのようにしたらよいでしょうか？
下の左から右のように変換したいのです。
データが大量にあるので手作業では追いつきません。
お願いします。

2000年11112005年6666
2001年22222004年5555
2002年33332003年4444
2003年44442002年3333
2004年55552001年2222
2005年66662000年1111

>>422
データ→並べ替え

>>420
とりあえず俺は>>420の条件をよく理解できなかったんだが
誰か分かったやつ解説してくれ

>>413の条件は
AnにデータがあるときBn:Enの色を変える
Bn:Enの色がかわっているときBn=Bm … En=Em のとき Bm … Em の色を変える
(小文字n,mは数字)
だと思うけど最初の条件と違いすぎて自身が無い

Bn:Enの色がかわっているときBn=Bm … En=Em のとき Bm … Em の色を変える
　　　　　　　　　　　　　　　　　　　　　↑ここと、 ↑ここ　同じ列って指定はなくない？


11234
5678
3579
22458
1746

こういう状態だとB1:E5中の123458が入っているセルの色が変わるってことだと思った

ぬお、ずれた
桁が足りないところの先頭に空白を補完してくれ

>>420
>407の書き込みしか見とりませんでした…
一通り読んでサンプル作ってみましたがこういう事ですか？

ttp://up2.viploader.net/mini/src/viploader24601.zip.html

>>428
そういうことです、ありがとうございます！
できれば連番じゃない方がいいんですけどそこまで贅沢言ってられませんね

>>429
サンプルをそのまま使おうとすると連番ですが
A列にチェック（文字列など）を入れて、同じものをH列の"チェック"に入力すればOKですよ。

でもそれだと２回入力しないといけないし、漏れる可能性があるので
サンプルは連番、自動ピックアップの形にしました。

【1 OSの種類 】 WindowsXpsp2
【2 Excelのバージョン】 Excel2003
【3 VBAが使えるか】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード】 Excel アドイン　登録　

あるアプリケーションからExcelのアドインが配布されてます。
一応アドインの登録はツールバーのツール→アドイン→参照→OK
でいけるのですが、これだと、Windowsにログインするユーザーを
変えるたびに設定しなおす必要があります。
これをしないためにどのユーザーでログインしてもできれば初期状態で
そのアドインが登録されているようにしたいのですが、
そのような方法はありますか?

忘れてました。アドインの種類は
comアドインじゃなくてExcelアドイン（〜.xla）です

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 印刷　複数シート　1ぺージ　設定

1つのエクセルファイルで複数の5シート構成で内容が
1ページで印刷できるものや、複数ページにわたるものなど大小さまざまなものがあります。
それらの複数のシートを「縦方向で1ページずつに印刷」（出力される枚数は5枚）したいのですが
一括で設定できますか？
それとも1シートずつ設定しないといけないのでしょうか？

>>431
あれから調べてたらXLSTARTフォルダに
該当のアドインを入れればいいらしいとの記述ありました。
そうすればユーザーに関係なく起動時にアドインが起動すると･･･。
サンプルのアドインで試したところ確かにそんな動きしてます。

本番は今触れる状態ではないので来週にでも試します。
特に問題はないですかね。

サンプルを見て､ＴＥＩＯＵがこのスレの帝王になる日は遠いなぁと思いました。

教えてください…
どぉしても分からないんです。
セルに”1-23-8”（1分23秒8という意味）と入れて
”83-8”と出るように、秒に変換したいんです。
まだ初心者なのでこんなやり方もわかんないんです…
誰か、お願いします。

あと、逆のやり方も教えてもらいたいんですが…
”98-3”と入れたら”1-38-3”と変換されるように…

>>435
だから日々頑張ってるんですよ〜　（ＴＡＴ）
10年後くらいには帝王になれるでしょうか。

ちなみにマクロ書く場合、変数はちゃんと宣言しておいた方がいいんでしょうか？
社内の人から「宣言した方がイイよ」と言われました。
宣言して無くても動くものはそのままにしてるんですが…

エクセルの行列演算に限界はありますか？
というのも52×52の逆行列は演算できるのですが，
53×53では演算できなくなってしまいました．
すいませんがご存知の方教えてください．

当然だな。基本中の基本だ。
宣言しないと気持ち悪いし、原因不明のバグとかではまりやすいし、処理速度も違う

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


教えてください…
どぉしても分からないんです。
セルに”1-23-8”（1分23秒8という意味）と入れて
”83-8”と出るように、秒に変換したいんです。
まだ初心者なのでこんなやり方もわかんないんです…
誰か、お願いします。

あと、逆のやり方も教えてもらいたいんですが…
”98-3”と入れたら”1-38-3”と変換されるように…

★書式のユーザー設定　と　オートコレクト　を使う方法
1、ツール＞オートコレクトのオプション＞修正文字列「-」　修正後文字列「:」＞OK
2、（A１セルの）セルの書式設定＞表示形式＞ユーザー定義＞ [mm]"-"ss;@＞OK
3、（B１セルの）セルの書式設定＞表示形式＞ユーザー定義＞　h"-"mm"-"ss;@ ＞OK
A1セルに 1-23-8　と入力する　→　83-8　と表示される
B1セルに　　98-3　と入力すると　→　1-38-3　と表示される　
注意点：00-98-3　の「00」は省略不可
注意点：「-」を入力すると、「:」にされる
　 　 　 　 　 　 　 　 ･･･対策：上記の1の手順を飛ばし、入力の時は 1:23:8 とする。またはＦＡＱ>>11参照

★関数による方法
B1　=LEFT(A1,FIND("-",A1)-1)*60+MID(A1,FIND("-",A1)+1,FIND("-",A1,FIND("-",A1)+1)-FIND("-",A1)-1)&"-"&RIGHT(A1,LEN(A1)-FIND("-",A1,FIND("-",A1)+1))
A1セルに 1-23-8　と入力する　→　83-8　と表示される
98-3を1-38-3に変換する式はめんどくさくなった。欲しかったら、上を参照に自分で組みたたてくれ。

ﾃﾞｨｽｸﾄｯﾌﾟに置いたｼｰﾄをﾀﾞﾌﾞﾙｸﾘｯｸしても、ｴｸｾﾙのｸﾞﾚｰの画面しかでません。
ｽﾀｰﾄ→ｴｸｾﾙ→ﾃﾞｨｽｸﾄｯﾌﾟ→ﾌｫﾙﾀﾞｰ→ｼｰﾄを選ぶと開くのですが…
ちなみに、ﾃﾞｨｽｸﾄｯﾌﾟに置いたｴｸｾﾙのｼｰﾄすべてが、同じ状態です
助けてください(@_@;)

>>437
>変数はちゃんと宣言しておいた方がいいんでしょうか
Option Explicit　が自動で挿入されるようにVBEの設定をしておいた方が良いと思います。^^

[ツール]-[オプション]、編集タブで「変数の宣言を強制する」にチェック

>>442
ディスクトップに置いたシート？

>>442
ツール→オプション→全般のところの
「他のアプリケーションを無視する」に、チェックが入ってたら
それを外す。

ディスクトップじゃなくて、デスクトップ
シートじゃなくてｘｌｓファイル

>>442
[ツール]-[オプション] の 「全般」の「他のアプリケーションを無視する」 の
チェックをはずすと直ることあるよ。

データをＷクリックしてアプリを起動汁のが
ＷＩＮが出回ってから一般的になっていますが、
これはアプリを使う側の意識が薄れる点で
かなり問題があると個人的に思います。
だから助けられません。

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

数値を置き換えたいのですが、教えてください。

124.9⇒12
125.0⇒12
125.1⇒13
126.0⇒13
126.1⇒13
135.0⇒13
135.1⇒14
144.9⇒14
145.0⇒14
145.1⇒15
1250.0⇒125
1255.0⇒125
1255.1⇒126

以上のように数値を置き換えるには、どのようにすればいいでしょうか。
頭が限界です。お願いします。

>>448

数値がA列と仮定

=ROUND(ROUNDUP((A1-1)/10,1),0)

でどう?

10で割って0.5を引きその結果を切り上げる、などの条件で無く
ただ置き換えるのなら、手作業で置き換えるか置換を使うかしかないかな

>>449さん
本当にありがとうございます。
ROUNDの新しい使い方を覚えました。
IFでないとできないとばかり思っていたもので。。
やっと会社から帰れます。
本当にありがとうございました。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 FieldNames AutoFilter

オートフィルタで、条件抽出したデータを別のシートに移したいのですが、
私のVBA記述では、見出し部分も移ったり
「絞り込み条件に該当するデータ無し」の場合見出し部分のみ移ります。
どう改善すればよいでしょう？

Sub Macro1()

Sheets("Sheet1").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
Range("A1").Select
Selection.End(xlDown).Select
Selection.End(xlToRight).Select
Selection.Copy

End Sub

>>452
offsetで1行分ずらした範囲をコピーすればいいんじゃね？

With Sheets("Sheet1").AutoFilter.Range
.AutoFilter Field:=1, Criteria1:="<>"
.Offset(1).Resize(.Rows.Count - 1, .Columns.Count).Copy
End With

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

Excelの行列演算に限界はありますか？
52×52の行列では演算可能なのですが，53×53になってしまうと演算ができません．
ご存知の方いらっしゃいましたら教えてください．
宜しくお願いします．

>>454 すこしおちつけ
[XL2000]配列のサイズの制限について
http://support.microsoft.com/default.aspx?scid=kb;ja;416526

>>453
Error91
「オブジェクト変数またはWithブロック変数が設定されてません。」

とでました。
どう対応すればよいでしょうか？

>>456
読んで字の如く

>>456
そっか。オートフィルターがかかってない状態でやるとそのエラーになるね。すまんかった。
それだとオートフィルタをかけるとこからスタートすればいいわけだから、こんなかな？

Sheets("Sheet1").Range("A1").AutoFilter Field:=1, Criteria1:="<>"
With Sheets("Sheet1").AutoFilter.Range
　.Offset(1).Resize(.Rows.Count - 1, .Columns.Count).Copy
End With

セルA1基点にオートフィルタしてるけど違う場所だったら変えて

>>458
ありがとうございます。
望み通り出来ました。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 1回講習に行ったが 詳しく理解していない
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 \　印刷されない （他 何パターンか試しました）


ググっても解決しないので質問させて下さい

会社の配置換えがあり プリンターがかわったのですが
エクセルのMSｺﾞｼｯｸの 半角\ が ＼(半角バックスラッシュ)
で印字されるようになってしまいました
数字が全体的に見た目がかわって細字な印象です

MSPｺﾞｼｯｸに変えたら \ のまま印刷されるのですが
見栄えが悪いので なんとか戻す方法はありますか？

プリンタはEPSONで ドライバはインストールし直しました

プリンタドライバのフォントまわりの設定じゃないのか？

>>441さん
どうもありがとぉございます＾＾とても助かりました!!

>>460
プリンタが何から何に替わったのか
プリンタの機種名ぐらい書きなよ

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

折れ線グラフ作成で質問です
連続した数値、#N/A、#N/A、#N/A、連続した数値
の時に連続した数値だけに線を引くことはできますか？

>>464
欠値のセルを#N/Aにしてしまったらできないんじゃないの？
#N/Aじゃなくそのセルの値をクリアしてしまえば、
勝手にお望みの形になると思うけど。

>>463
すいません　同機種への変更です
エプソンの LP-8600FXです

こんにちは。
VBAのパスワードを解析するツールとかってよく見かけるんですけど、
どうやらブルートフォースとか辞書検索ではないようですが、VBAのパスってそんなに弱いんですか？

弱いです。
もともとパスの存在理由が､他人の編集を不可能にすることではなく
初心者が誤って変更してはならない部分を変更してしまうことを防ぐこと
また､初心者が誤って保護(パス)を解除してしまわないようにすることだからです。
目的から言えばボタン一つで保護解除出来なくなればいいだけなので
どうやっても解除出来なくなるほど強力な暗号アルゴリズムは必要ないということ。

つまりは鍵ではなく安全装置であり､解除したいときに任意に解除出来なければならない。
中にはVBAごときでソース見られたくないとか言い出す自意識過剰者や
Excelアドイン程度を有償販売しようとする勘違いしたアホも居るけど
実務レベルから見れば､初心者が誤って編集しないようにするだけの機能があれば
あとはパスを知らないと絶対に編集出来ないようにすることより､万が一パスを紛失しても
解除する手段が有ることの方が重要ですから。一応解除出来ないようにする手段もあるけどね。

↑なんかやなことあったの？

>469
どうしたの？

いやいや、何もなければそれが一番
お体お大事に？

>>465
やはりそれしかないですか
関数で処理した数値なんでダメなんす
解答ありがとです

>>472
ん？なんか話が見えないぞ
#N/Aなら、グラフはそこを無視して、数値部分だけで線を引くでしょう、元々。
何が問題なんだ？

線を引いて欲しくないんだろ
データ要素の書式設定で線をなしとか

あー、#N/Aの部分は補完せずに空白を残すってこと？
なるほど。

・・・しかし、それなら何でわざわざ#N/Aなんか入れてるんだろ？

>>468
なるほど。セキュリティ的な意味はあまりないんですね。ありがとう。

環境設定にそのまんまズバリ
空白セルのプロット：
　プロットしない（空白を残す）
　値０でプロットする
　補完してプロットする
の設定がありますがな

>>477
NAエラーが発生してる時は、どれを設定していても「補完してプロット」されるよね

あれそうだっけ
それはスマン

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

EXCELでVisual Basic editerを起動し、標準モジュールを挿入し、
そこでマクロ文？を書き込んでたところ、そこでの日本語入力ができなくなりました。
Visual Basic editer以外での日本語入力はできている状況です。
もし解決方法のわかる方がいましたら、教えてください。
よろしくお願いします。

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

ユーザー設定でマクロボタンをツールバー上に設定したけど、
消すにはどうすればいいですか？

それはいえない

ボタンを右クリック

>>481
ツールの左端のを摘んで外に出して×で消す。
もしくは、ユーザー設定の画面にドラッグして戻す。

>>484
ありがとうがざいます

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

棒グラフを作成しているのですが、値の最大値が４なのでＹ軸が0.5単位になっています
単位を整数にしたい場合、どのように設定すればよいのでしょうか？

連続ですいません。
異なるシートの値を一つのグラフにすることは可能でしょうか？

例：シート１　今年の値
　　シート２　去年の値
２期比較を行いたいのです

DATEDIFなどの直接打ち込む関数を登録する方法はないのですか？

派遣でバイトしたいんですが、どれもエクセルができないとだめなところが多いので、エクセルが少しでも理解できるようになりたいです。
どういう勉強法がいいのでしょうか？
当方勉強嫌いなので、なじみやすい勉強方法とか安くてよい通信講座とかあれば教えてください。
お勧めの独学法でもけっこうです・・・
よろしくお願いいたします。

Microsoft Office Specialist（Excel）っていう試験を受けてみようと思っているのですが、
簡〜単な表計算や簡単な関数（Σのやつ）を少し大学で習った程度です。
そのくらいのレベルで独学で本を読めば、合格できるでしょうか？
それとも、講座などをうけたほうがいいでしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 office XP
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 ＯＫ
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード

モンテカルロシミュレーションをやってみたいんですが、正規分布する乱数発生関数ってＶＢＡにありますか？？

Q：こんなワークシート関数ありませんか？こんなVBA関数ありませんか？
A：ワークシート関数の場合､なんでも一つの関数で済ませようと考えず､
　 複数の関数を組み合わせて式を組んだり､作業セルを設けたりすることで対応することを考えましょう。
　 それでもわからなかった時は､自分で書いた式をここに貼った上で質問しましょう。
　 VBAでの関数とは作るものです。組み込み関数はヘルプに載ってるので､
　 それ以外の関数が欲しかったら自分で作ってください。関数の組み方の質問はVB6スレの方でどうぞ。

レスが付かなかったのでもう一度質問させてください。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 印刷　複数シート　1ぺージ　設定

1つのエクセルファイルで5つのシート構成で内容が
1ページで印刷できるものや、複数ページにわたるものなど大小さまざまなものがあります。
それらの複数のシートを「縦方向で1ページずつに印刷」（出力される枚数は5枚）したいのですが
作業グループでは一括で設定できませんでした。
どうすれば一括で設定できますか？
それとも1シートずつ設定しないといけないのでしょうか？

>>493
全てのシートを選んでページ設定

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 操作したらマクロ停止。スクリーンーセイバー作成

スクリーンセイバーみたいにほっとくとマクロが動いて、何か操作すると

マクロが止まるＶＢＡがあれば教えていただきたいです。

あったら教えていただきたいです

> スクリーンセイバーみたいにほっとくとマクロが動いて、何か操作すると
>
> マクロが止まるＶＢＡがあれば教えていただきたいです。

VB6での方法と同じ方法で可能
具体的な話はスレ違いなので伏せる

すみません初心者なんですが。エクセルファイルをダイレクトにメール送信できなくなりました
（ファイル→送信にて添付ファイル）ワードは添付可能ですエクセルのみ送れません
このやり方に慣れてしまっていたので困っています・・・助けてください
一度エクセルは入れなおしました・・・

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 否
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード

　1 2 3 4 5 ・・・・ 99
A
B
C

↑という表があったときセル幅にもよりますが、ある程度右に移動すると

10 11 12 13 14 15 ・・・



となり一番左のABCはスクロールして消えてしまいます。
これを
10 11 12 13 14 15 ・・・
A
B
C
と、一番左の行だけスクロールしないようにしたいのですが、どのようにやればよいでしょうか？

>>498
ウィンドウ枠の固定

>>499
サンクス

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

質問させてください。
入力してある文字の一部分をＢボタンで太字に
してあります。このシートを印刷するときに
太字のところだけ自動的に指定した色で印刷させたいのですが
どのようにすれば宜しいのでしょうか?
どなたかお願いいたします。

太字の部分の文字色を変更してから印刷して
また文字色を元に戻すマクロでも書けばなんとかなるが､
Excelにそういう機能は組み込まれてないので､VBA否だとどうにもならない

>>502
即レスありがとうございました。
あきらめます。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 表の分割　表の配置　表の設定

質問させていただきます。
枠線（セル？）に沿わない表を作りたいのですがどうしてもうまくいきません。
図形化してしまうと文字が入力できなくなってしまいます・・・
姉が実際に作成していたのを真似ようと努力したのですが、、、
どうか教えて下さい。宜しくお願いいたします。

オートシェイプにテキストは入りますが？
テキストボックスってのも有りますが？

姐に聞け

姐に挿入！？

>>505
罫線で作成した表なんですがオートシェイプ化できますでしょうか？
良ければお教えください。
>>506
姐は取り合ってくれませぬ・・・
>>507
近親相姦はあはあ

頭大丈夫か？

罫線？

意味不明〜ｗ

>>509
大丈夫じゃないお（ ＾ω＾）

オートシェイプをてけとうに配置しておく。
対象となるセル範囲をコピーする。
オートシェイプを選択してからペーストしる。

>>510
頼む。教えて暮れええくぁｗせｄｒｆｔｇｙふじこｌｐ；＠：「」

>>512
神。いわゆるＧＯＤ！！！！！！！！！！１１１１１１１
早速試してみます！！！！

なお、希望に沿えなかったとしても、一切の責任は持たないし
謝罪も賠償もしないニダｗ

>>515
もうだめぽ・・・

今度は妹が妙なことを・・・
妹「ctrlキーを押しながらクリックしてってあとはグループ化するんじゃない？」
おれ「(　ﾟдﾟ)」
おれ「( ﾟдﾟ )」

テケストボックスなんぞてけとうに配置しとけばよろしいかと・・・・？　

素直にオブジェクトをファイルから挿入しろ

妹にチョコレートパフェを与えて全部やってもらえ

妹とか姉とかてけとーに書けば食いつきの良いこと、良いこと w

グループイヒ

わかってるから踊らせてるんだろ。
ま､2chでは踊らせるつもりが踊らされてたなんてよくあることだから気にするな。

>>504
ツールバーをカスタマイズして「カメラ」追加しる

>>372
すげー適当に作ってみた。
シート名Sheet1で標準モジュール追加でコピペしてくださいな。
A列が空白になるとこまで動きます。

Sub 補完()
Set ws = Worksheets(1)
a = 1
Do Until ws.Cells(a, 1) = ""
ws.Cells(a, 2) = "2005年"
'C列に入れたいなら、ws.Cells(a, 3) = "12月"とかでここに追加
’Ｄ列はws.Cells(a, 4)ね
a = a + 1
Loop
End Sub

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

どなたか教えて下さい。
納税額と税率・控除額を合わせた計算を式にしたいのですが
どうも関数を忘れてしまって出来ないのでご教授下さい。
具体的に何がしたいかというと、、

所得税が200万以下ならその数字×0.15％−0
200万以上330万以下ならその数字×0.2％-100000
330万以上700万以下ならその数字×0.3％−430000

このような形で関数を作りたいのですがどのようにすればいいのでしょうか？
ifとandを組み合わせたりしたのですがどうもうまくいきません。

どなたか教えて下さい。

>>2 ・8
どう組み合わせて何がうまくいかないのか、こちとらエスパーじゃないんだからさっぱり分からんよ

>>525
IFよりVLOOKUP等で表を引くようにした方がいいと思います

>>527
それだ！
忘れちゃうんだよなぁ・・・・、この様な便利な関数

1.
A1からA20まで縦にずらっと数字が不規則に並んでます。
単純に、このすべての数字に「1」を足すにはどうやったらいいですか？
関数などを使わずに、単純な操作ではできないのでしょうか？

2.
A1からA20までとB1からB20まで数字が並んでいます。
C列にAとBの合計を出すためにC1=SUM(A1,B1)と入れました。
仮にこれをC20までそれぞれ出すとするなら、
C1のセルを下までドラッグしていけば自動でC20=(A20,B20)となりますが、
B行だけは常にB1を参照(C20=(A20,B1)となるように)したいのです。
これを一気にドラッグなどでコピー(入力)することはできますか？
B2〜B20までは計算には使いませんが空欄にはしたくありません。

>>529

1　どこか空いている列で

=　A1+1

2　絶対参照（$B$1)

Bの前にはいらないかもね。

1足すのは加算貼り付けでいいんじゃね？

>>531

正直、今の今までこんな機能あったの知らんかった。
問題は、529に理解できるかだね。

メモ帳の文章をエクセルに移したいのですが、メモ帳の方で改行してあると
エクセルの方に貼り付けた時２つ以上の枠に分割されて貼り付けられてしまいます。
１つにまとめるためにサイドエクセルでコピー、ペースト、オルトエンターをしているのですが
最初から１つの枠内で収められないでしょうか？
もしできるのでしたら教えてください、お願いします。

セルをダブルクリックして、貼り付け

初歩的な質問にもかかわらずありがとうございました。

>>530
絶対参照ですね。たしかに「$」を付けたら下にドラッグしてもそのままでした。

>>531
あ〜、なるほど。形式を選択して貼り付けですかね！？
適当なセルに「1」を入力してコピー。それを加算で貼り付ければいいということですね。
まさにこういう単純なのを求めてました。

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel2000(2003もありますが）
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード

特定セル内（結合分もふくめて）文字の天地を逆転させる事は出来ますか？
90度以上の設定がわかりません。
セル内で行単位での天地逆転が理想なのですが。
よろしくお願いいたします。

>セル内で行単位での
セル内改行があるということでしょうか。

あああ
いいい
ううう
　↓
ううう　 　←天地逆転文字
いいい　←天地逆転文字
あああ　←天地逆転文字

ということ？

いや文字を逆さまにしたいってことでしょ

Excelは表計算ソフトであってDTPソフトじゃないんで
そんな無茶なレイアウトはできませんよ

>>536
どうしてもやりたければ、コピーと図の貼り付けでセルを
「図」にするのが常道。

それ以外の方法もなくはないが、おまいさんの「理想」を
満たすものじゃないので省略。

536本人が出てこないので、537への答えが不明だけど・・・

単に文字を逆さまにしたいなら、
フォントを「@MSゴシック」のように@付にして、配置で方向を90度とすれば可能

>>540
確かに文字はそれで逆転するんだけど、536が言っている

＞セル内で行単位での天地逆転が理想なのですが。

には使えないような気がする。

セル内改行と組み合わせれば、１行分の見かけだけなら
できなくもないが…。

ｗｗｗ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】

xxx-01
yyy-05
zzz-08
これの文字列xxx,yyy,zzzを残してハイフン以降を消して
xxx
yyy
zzz
このようにするにはどうすればいいでしょうか?
よろしくお願いします。

>>543
編集-置換で検索する文字列に「-*」と入れて「すべて置換」でできるよ
検索の時の*はワイルドカードっていう特殊記号で「-以降を空白と置き換える」って条件に出来るよ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel97古くてすみません
【3 VBAが使えるか　 　 .】 いいえ　
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】列をつなげる

1つの列に31個セルがあって、Ａ列が1月分、　Ｂ列が2月分、、、とデータを入力しています。
（30日、28日しかないとかはかんがえないものとしてすべての列が31個）
月ごとのグラフ（折れ線）は表示できたのですが、3ヶ月ごと、6ヶ月ごと、1年全部の推移もグラフにしたいのです。
12個に分けてある列のデータを1つの列につなげて参照？させて表示させればいいとおもうのですが、どうすればいいのでしょう？
Ａ1からＡ31、Ｂ1からＢ31、Ｃ1からＣ31、、、を　Ｘ1からＸ472までだだだっと表示させる方法はありますか？

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

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 1回講習に行ったが 詳しく理解していない
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 \　印刷されない （他 何パターンか試しました）


会社の配置換えがあり プリンターがかわった（EPSON LP-8600-FXから同機種）
のですが エクセルのMSｺﾞｼｯｸが全体的に印字が細くなり
半角\ が ＼(半角バックスラッシュ)
で印字されるようになってしまいました

MSPｺﾞｼｯｸに変えたら \ のまま印刷されるのですが
なんとか戻す方法はありますか？

ちなみにプリンタドライバはインストールし直しました


ここに聞くの ｽﾚ違いですかね？

> ここに聞くの ｽﾚ違いですかね？
Excel以外でも再現するならスレ違い。
Excelのみで再現するならスレ違いじゃないけどここが最適とは言えない。

>>547
プリンタの設定で、プリンタのフォントを使うかPCのフォントを使うか選ぶところは無いかい？

ありがとうございます
>>548 とりあえず 明日また wordでも やってみます

>>549 どこから探したらよいでしょうか？
プリンタの設定で プリンタのフォントを選択するところが
あるかも 知らないんです・・・

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　散布図　要素名　
散布図を描くときに、それぞれの要素に名前をつけることは可能ですか？

初めて集計機能にトライしています。
ところが、集計欄だけを目で追おうとしてもなかなか見にくいんですね。
始終すぎてじゃっかん老眼入ってるせいもあるですが…(･_･;m

で、質問ですが、この集計欄だけ自動でセルに色を付けるとか、見やすく
する方法はあるんでしょうか？ どなたか教えて下さい。

セルにいろいろデータが入っている場合に任意に選んだデータの前に▲をつけて
他と区別したいと思ってます。データの前に▲を割り込ましてつける簡単な方法はあるのでしょうか。
何十個も▲をつけたデータを入れなおすのは大変なので▲をコピーで次々とデータの前につけたいのですがー

>552
条件付書式でどうぞ
>553
セルの書式でどうぞ

分かりました！ エクセル講座質問箱に書いてありました。
集計項目の「計」の字を見つけて、これがあった場合には
セルに色を付ける、などの条件付き書式でできました。

気になる方は http://www2.clis.ne.jp/cgi-bin/cbbs/cbbs.cgi?mode=alk&W=&no=3&page=25
で143番の清四郎さんのレスをご覧下さい。

お騒がせしました。

>>553
セルの書式の「その他」ってことにマイナス書式としてあるよねぇ。

まぁ単純になんか追加したいってなら、
ALT+F11でＶＢＡ出して、挿入から標準モジュール追加して
Sub ▲()
ActiveCell.FormulaR1C1 = "▲" + ActiveCell.FormulaR1C1
End Sub
とコピペする。
で、マクロメニューのオプションからショートカットキー設定してやると。
エクセル上の任意のセル選択してショートカットキー押せば入るよ。

>>553
どんなデータなのか、何をしようとしてるかにもよるが
▲を入力する列を別に用意した方がいいんじゃないかな。
データの中に入れてしまうと集計や分析などの応用が難しくなるよ。

>>543
544さんの方法が一番早いと思うけど、
頭のｘｘｘとかの桁が決まってるならこんな方法もあり。

１．データ　〜　区切り位置から区切る。
２．left関数

区切り位置だと書式とかもその時に設定できるから、結構重宝するよ。

>557
セルの書式で十分だろ、集計や分析にも影響ない。
何か勘違いしてないかい！
"▲"G/標準でも"▲"#.##でも好きにすりゃいい
後はコピーで書式貼り付け

>553
�@557さんが言うように、▲を入力するセルを別に用意するのが良い。
�AＡ１に▲を入力し、Ｂ１には553さんの任意のデータが入っているとする。
�Bずーっと右のどこか開いている列の一行目、たとえばＺ１に=a1&b1と入力。
�Cこれをコピーして、Ｂ１セル上で右クリック、
�D「形式を選択して貼り付け」を左クリック、
�E「値」をアクティブにして「ＯＫ」。
これでできると思いますが、質問の趣旨に合ってますか？

初めて答える側に立てたかも知れない。
選択。

質問です。
選択した範囲の合計を求めたいんですが、セルの色を条件にして
赤のみを合計、青のみを合計ということは出来ますか？

遅くなりましたが、みなさんありがとうございました。
>>540と>>741の2つを組み合わせてセル内で1行分を天地逆転できました。
用途的には会社で管理している図面の管理に使用するためのもので、
これで目的が達成できました。
入力を逆順にする事に気を付ければきちんと入力できました。

最初、文字を画像化して加工後、図（ファイル）の挿入で対応しようと思っていましたが
未熟さ故に思い通りにできませんでした。

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

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

管理者にプリンタのプロパティを変更できるように
設定してもらい　"フォント代替をしない"に
変更したら 直りました

>>553の質問だけでは何が最適とは簡単には言えない。
データが縦1列に並んでいて、▲を付けたデータの抽出やカウントなどに応用したいなら、>>557のように区別用の列を用意する。
そうでなければ>>559のように書式で対応するか、>>556のようにデータとして"▲"を挿入する。

>>561
色を条件に計算するのはVBAでも使わないと無理。
VBAを使えばそういう関数を書けるかもしれんが、
条件付書式を使ってデータを元にセルの色を設定した方が簡単。

>>561
例えば赤ならこんな感じ。
但し、条件付書式で付いている色はカウントされません。^^
Function SumRed(RR As Range) As Double
　　Dim R As Range
　　Dim S As Double
　　For Each R In RR
　　　　With R
　　　　　　If .Interior.Color = vbRed Then
　　　　　　　　S = S + .Value
　　　　　　End If
　　　　End With
　　Next
　　SumRed = S
End Function

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】
初歩的な質問ですいません、エクセルを使っているうちにいつのまにかメニューバーが表示されなくなってしまいました。
ヘルプなどで調べてみたんですが戻し方がわかりません。
教えていただけると助かります。
よろしくお願いします。

>>567
手作業でメニューバーを消してみようと試みましたが出来ませんでした。^^
行儀の良くないマクロを実行して消されてしまったのかもしれません。

Alt+F11でVBE画面を開き、Ctrl+Gで「イミディエイトウインドウ」を開きます。
そのウインドウに直接下記をコピペし、その行内でEnterを押してみてください。

CommandBars("Worksheet Menu Bar").Enabled=True

>>567
ツール→オプション　で何とかならない？

間違えた
ツール→ユーザー設定

>>567
http://www.juno-e.com/excel/waza/waza17.htm

何とか復活しました。助かりました。
どうもありがとうございます。

>>568
　　大　　恥　　トホホ

>>573
予想が外れたことが大恥ですか?
おもしろい日本語ですね。^^

あれあれ、どうしたんですか？
顔が真っ赤ですよ

一応補足しておきます。

先にも書いたとおり私の環境(Excel97,Excel2002)では手作業では
メニューバーは非表示に出来ませんでした。

[表示]-[ツールバー]-[ユーザ設定]で非表示にしても自動的に表示
に戻ってしまいました。

そこで、マクロで非表示になったのではと考えました。マクロで
.Enabled=Flaseに設定してしまうと[ユーザ設定]のリストには表示
されなくなってしまいます。

そこでダイレクトに.Enabled=Trueに設定を変えればよいのではと
回答したわけです。

マイドキュメントからエクセルのファイルを開くと３０秒ほど時間がかかってしまいます。
エクセルがひらいてファイルが開くまでも３０秒ほどかかってしまいます。
デスクトップのエクセルから開くと早いのですが、、、助けてください。
困っています。おねがいします。

マイドキュメントの中のマイピクチャも同じく反応が遅いです。
おねがいします。

スレ違い

>>565,566
レスありがとうございます！
しかし私VBAはわかりませぬ。書いてなくてすみません。

改めて、質問です。
A3:A20までの範囲にて奇数セル（A3,A5・・)の合計をA21、偶数セル(A4,A6・・)の合計をA22ということは出来ますか？

>>580
とても簡単に出来ます

>>580
ttp://pc21.nikkeibp.co.jp/tech/excel36/05/

皆様のご意見を参考に表を完成させました。
ありがとうございました。

VBAから、IEの操作も多少するようなマクロをつくったんですけど
IEをリロードして、リロード前の表示位置までスクロールバーを動かすようにしているので、ExcelVBAでいう
Application.ScreenUpdating = False
みたいなことってできませんか？

>>583
それだけかよ

>>584
>>2･7

累進課税の表みたいなデータがあります。
例にするとこんな感じです↓
＿＿＿所得＿＿＿＿＿税率
＿＿100,000以下＿＿＿0％
＿＿300,000以下＿＿＿10％
＿＿600,000以下＿＿＿15％
＿＿1,000,000以下＿＿20％
＿＿1,500,000以下＿＿25％
＿＿＿＿:＿＿＿＿＿:＿＿
＿＿＿＿:＿＿＿＿＿:＿＿
で、これを式にして、所得額から税率を求めたい場合、どのような方法が
あるか、どなたか教えて頂けますか？ ｉｆ関数ももちろん使いましたが、
累進の段階数が多すぎるために２ステップで計算せざるを得ず、ちょっと
困っています。

ＶＢＡ等は身の程知らずなので、できれば関数と表だけでどうにかしたい
です。

>>587

>>525-527

【1 OSの種類 　 　 　 　 .】 Windows　NT
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 棒グラフ　書式　項目

よろしくお願いします。初歩的な質問だと思いますが…

職場で棒グラフを使った資料を作るよう言われているのですが、
項目名がとても長いものがあります。
長い項目名は折り返しになりますが、どうやっても縦位置中央揃えになります。
コレを上揃えに出来ないでしょうか？
あと、出来るだけ折り返しをせずに済むように、項目のスペースを広げるにはどうしたらいいでしょうか。

項目名を短くする、斜めにする、横方向棒グラフにするのは不可です。

上げそこねました。すみません

>>588
そんなすぐチカクノ過去ログにあったのに安易に質問してすみません。
Vlookupですか。○○以上△△以下とか、範囲の検索できるんでしたッけ？
勉強してみて、解らなかったらまた相談させてください。
ありがとうございました。

どうやら525や552は何かの問題の解答をここで済ましてるみたいだな

>>587
解決しました。trueを使えば良いんですね。ありがとうございました。

【1 OSの種類 　 　 　 　 .】 Windows XP SP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可　がんばる
【5 検索キーワード 　 　 】 SUMPRODUCT　ずれる

=SUMPRODUCT(A1:A500,B1:B500,C1:C500)
この式をD列に数式を貼り付けると=SUMPRODUCT(B1:B500,C1:C500,D1:D500)にずれるのはなぜですか？

=SUMPRODUCT(A1:A500,B1:B500,D1:D500)　　
=SUMPRODUCT(A1:A500,B1:B500,E1:E500)とA列とB列は同じでC列以降を１つずつずらして連続で貼り付けたいのですが
どうしたらよろしいでしょう？

>>581,582
ありがとうございます！
参考になりました。

>>594
ヒント：絶対参照

(こんなのイルカの仕事のはずなのにろくな答えが返ってこない…)

>>596
ありがとう！！
=SUMPRODUCT($A1:$A500,$B1:$B500,D1:D500)で解決しました
明日までに仕上げなくちゃいけなくて手作業してました…
これで寝れますよ

【1 OSの種類 　 　 　 　 .】 WindowsXP ←★今までME使っていましたが、昨日ハードをXPに変えました。
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 アウトルック(メールへの貼り付け）

よろしくお願いします。
1.にも書きましたが、OSをMEからXPに変えました。

いつもexcelで作成した計算式が入った文面をOEのメールに貼り付けていましたが
XPに変えたら、メールに貼り付けた文面が
・HTMLメールのように文字もセルも色付きのままペーストされてしまう。
・エクセルではルビはふっていないのに､ルビ付きになってしまいます。

OEは｢テキストメール」の設定にしてあります。
メールを一度テキストメール→HTMLメール→テキストメールにすると
普通のテキストメールになりますが、漢字のルビが間に入ってしまいます。
（間アイダに入ハイってしまいます）←こんな感じに
どうやったら直るでしょうか。
うまく説明できなくてすみません。よろしくお願いします。

エクセルじゃなくてOE側の問題なんでしょうか？

すみません、>>598です。599も私でした。
アウトルックスレ見つけたのでそちらで聞きます。
ｽﾚ汚し失礼しました。

写真を貼り付けするとファイルサイズが巨大になってしまうのは
仕方ない事なのでしょうか？

小さな写真を貼れば小さなファイルサイズ
大きな写真を貼れば大きなファイルサイズ
、、、これ定説です。

1メガの写真を貼ればExcelのファイルサイズも1メガ以上になるのは仕方無い。
小さくしたければ写真のピクセル数を減らすとか画質を落とすとかするしかない。

初歩的な質問で申し訳ないのですが、


【1 OSの種類 　 　 　　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの 回答の可否】 否
【5 検索キーワード 　 　 】 印刷について、

　データの印刷時に数値がずれて印刷されてしまいます。

　自分なりに具体的に言いますと、入力データはすべて右詰め、入力モードは直接入力で行っております。次に、印刷プレビ
ューでの確認では、入力データはすべて右詰めになっております。　しかし、実際用紙に印刷しますと、数値がすべて右端で
はなく、右端が ０ 以外左側へ微小にずれて印刷されてしまいます。

　どのようにしたらズレを起こさずに印刷できるのでしょうか？どなたが教えていただけないでしょうか？

　（参考）
印刷プレビュー
0
15,260
2,805

印刷された用紙
15,260
2,805
0

こんな感じで印刷されてしまいます。

>>601
挿入−図−ファイルから−画像ファイルを選択、って方法はダメ？
同じ写真（画像ファイル）でも、コピーペーストだとファイルサイズがデカくなる。

さらにファイルサイズ小さくしたいなら
画像ファイルを右クリック−書式設定−「図」のタブ−「圧縮」
−解像度で「Web/画面」を選択するとか。
こっちはExcel2002・2003限定だけど、元画像によっては効果薄いかも知れない。

>>604
ちょっとぐらいのズレなんて気にするな
それがWindowsなんだよ

【1 OSの種類 　 　 　　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの 回答の可否】 可
【5 検索キーワード 　 　 】 パスワードロック、保存、セーブ

VBAのソースを閲覧不能にするためにパスワードロックをかけました。
しかしこの状態で保存しようとすると、エラーが出てしまって、保存できませんでした。
VBAのソースにパスワードを書けたまま、状態保存するにはどうしたらいいのでしょうか。
よろしくお願いします。

【1 OSの種類】 Windows98
【2 Excelのバージョン】 Excel2000
【3 VBAが使えるか】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 わかりません

ダウンロードしたブックを開いた後、VBEにプロジェクトが追加されてました
これを外したいのですがどうしたらいいですか

エクセルで04897とか数字を入力したら0が消えて4897になってしまうのですが
0を表示させる方法ってないでしょうか？

マジレスお願いします

>>609
最初に「'」をつけるか表示形式を「000000」にする。

>>607
どんなエラーメッセージでるのよ

>>608
Excel側のツール-アドインか、VBE側の参照設定でいらないの外せばいいんじゃないかな？
ダウンロードしたとこに聞くのが確実かもね

>>611

VBAプロジェクトが保護されているため、このファイル形式に保存することはできません。
VBAプロジェクトの保護を解除するには VisualBasicEditorの[ツール]メニューの[プロパティ]を選択し、プロジェクトのパスワードを入力します。
[OK]

ユーザーに使わせるんだけど、現状保存をさせたいのね。
でも、ソースコードの公開はしたくない。

>>609
君が使ってるのはエクセルだよ！
数字(文字)と数値を使い分けよう

>>613
xls形式で保存してそのメッセージ出るんだったら、ファイル自体が壊れてるのかも。
ロックしたら保存できないなんて考えにくい（そもそも、保存せんとロックかからんし）。

いったん別名で保存したり、新しいブックに内容をうつして保存でいけるんでないかな？

>>613
あ、それか上位バージョン（例えば2003）で作って保護かけたブックを
下位バージョン（例えば2000）で保存しようとしてるんだったら、一旦

１：上位バージョンでパスワード無い状態のまま下位バージョン形式で保存
２：１のブックを下位バージョンで開いてあらためてパスワードかける

ってしないと駄目かな。そっちの問題かもね。

>>615
パスワードロックをかけた初回の状態では保存できる。
次回起動して、VBAのパスワードロックを解除すると保存できる。
パスワードロックを解除しないで保存しようとするとエラーが出る。

別名保存も無理だった。
新しいブックはちっとやってみる。

>>614
えっと、それってどういうことで？

>>612
両方見たのですがだめです。VBEの方でチェックがついてなかったです
２ちゃんでダウンロードしました

>>617
サンクス。
Office2000だったから、97-2000形式で保存していた。
それをExcelWorkBook形式で保存したらいけるようになった。

上位バージョンでいじったことはないんだけどなぁ。

【1 OSの種類 　 　 　 　 .】 Windows2000 Windows98
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】EXCEL　同じ数値　同じ値　同じ数字が　リンク　自動的に　セル

たとえばA1のセルに‘4’と入力すると自動的にA5のセルの値も
‘4’になる方法があればおしえてください
よろしくお願いします

>>619
じゃあお手上げ┐(´∇｀)┌
それ拾ったスレで聞いたほうがいいんじゃない？

EXCEL　同じ値　セル　
で検索したところ解決しました
ありがとうございました

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 いずれか 含む　部分一致　excel 関数　countif　リスト　条件付き書式

セル内に30文字程度の文字列があります。
その中に指定の文字(200種類以上)が含まれる場合に
セルの色を変えたいのですが

この場合、指定の文字のリストから参照させる方法はありますか？
条件付き書式に

=IF(OR(COUNTIF(A1,"*あ*"),COUNTIF(A1,"*い*"),,,,,),1,0)

みたいな感じでしましたが、これでは容量が大きくなりすぎるので
何か良い方法はないでしょうか。

よろしくお願いします。

>>622
このスレです

>>624
エクセルの使い方を根本的に間違ってるとしか思えない。

>>626は道具にこだわりすぎて仕事が出来ないタイプ

>>624
=SUM(COUNTIF(A1,B:B))と入れてSHIFT+CTRL+ENTER
B列は *あ* *い* ....
かな

>>624
いやこりゃ使い方まちがってんだろ

>>628
ありがとうございます！
ばっちりできました。

使い方としては間違ってるかもしれないですが
誰でも使えるチェッカーになるんですよ。

【1 OSの種類 　 　 　 　 .】 Windows 2000
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel LEFT IF

今セルにA1に10000−01といった感じで「-01」という枝がついています。
これをB1：10000として表示させようと思い、=LEFT(A1,4)で表示させ、
それをもとにIFでC1に=IF(B1=10000,"ハズレ","アタリ")
といった表示をさせたいと思っています。

何度やってもB1=10000として認識してくれないようなのですが
どうやったら枝番以下を綺麗に削除することができるのでしょうか？

>>631
×=IF(B1=10000,"ハズレ","アタリ")
○=IF(B1="10000","ハズレ","アタリ")

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】2-D横棒グラフ　

商品名・数量・理由（例：りんご・3・カビ）という感じの表を2-D横棒グラフにしたいのですが理由の部分をうまく組み込めません。
なにかいい方法はないでしょうか？
理由の部分をX2軸に表示できないものかと思ったのですがうまくいきませんでした

速レスありがとうございます。

IFの計算はなんとかなりました。（こんな簡単なことだったのかOTZ)

あとD1:1000　D2：1500　D3:2000
とした場合、MATCH
=MATCH(C1,D1:D3,0)

ではC1と一致させられないようでエラーがでてしまいます。
なんとかならないものでしょうか・・・？

>>634
数値と文字列がごっちゃになってない？
たとえばC1に「1000」と表示されるけど実は文字列になってるとか。

セルの書式設定のことでしょうか？
標準を選択してるんですが。。。
他にもあるんでしょうか？

>>631

流れを見てみたけど、文字列操作てるでしょ。
C1は文字列として認識されているのかもね。

=MATCH(VALULE(C1),D1:D3,0)

としたらどうなる?

おはようございます。

すばらしく解決しました。かなり鱗が飛んでいきました。
ありがとうございました。

>>631　蛇足だけど･･･
書式設定の「標準｣ては、数値として扱えるものは数として
それ以外は文字列として扱いますよ。という意味。

しかし、LEFT関数などは文字列操作関数と呼ばれる一群。
これらで得た結果は、すべて文字列になってる。
たとえ、「123456」という数値から、左2文字を得て「12」として
一見数値として扱えそうじゃんと思っても、それは文字列。
これは、「123456」が右詰めになるのに対して、「12」が左詰になるのでもすぐ分かる。

まして、10000-01はもともと文字列、ここから切り出した「10000」は勿論文字列。
>>632の "10000"　も文字列としての「10000」を表し、
>>637のVALUE()関数は、文字列→数値に変換してから、MATCH関数にかけている。

【1 OSの種類 　 　 　 　 .】 WindowsXPsp2
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 ヘルプ（関数→一般的に使用される数式の例）を参考にしました
関数についての質問です。
手数料計算をしたいと思います。
取引した金額の0.1575％の手数料がかかるものとします。
40万円なら630円、50万円なら787円（少数以下切り捨て）という感じですが、
最低手数料が525円とします。ですから、30万円なら472円ではなく
525円となります。
よろしくお願い致します。

>>640
HLOOKUPとかVLOOKUPとかを使う手段もあるし。
IFを入れ子にする手段もあると思いますよ。

階段式じゃないから、この場合はIFでしょう。
入れ子にする必要もないし。

つFAQ>>7

>>641-642
ﾚｽどうもです。
IFでできました。
FAQにもありましたね。ｽﾏｿ。

>>639

どうもありがとうございます。
１週間くらいずっと悩んで、＝で別セルに飛ばして書式設定して･･･
みたいなアホなことしてました。
基本なしで関数扱うと痛い目にあいますね。

こんばんは
私、アルバイト先で従業員のシフト管理をしております
次期のシフトを作成しようとしたところ、
今年はじめに作ったBookのファイルサイズが異様に増えていました
1月は300k→昨日みたら4Mを超えていました
職場のPCがゴミスペックなので(CPUが667MHzくらいだった)印刷もままなりません」
何が原因なんでしょうか・・・


【1 OSの種類 　 　 　 　 .】 Windows98
【2 Excelのバージョン 　 】 忘れてしまいました
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

ずっと下（あるいは右）のセルにごみが入ってる、に一票。
要らんとこに書式設定がしてあったりとかしてないか？
列や行単位でいじってたりね。

>>646
あー一番上は作業時に確認しました
残りの二つを確認してみます

ファイルサイズが確か300k→1M→・・・4Mというペースで増えて非常に困る・・・

>>647
新しいbook作って、要るとこだけコピペすればいいのではないかな。
シート一枚一枚新しいbookにコピーしていちいち保存してサイズ計ってみるって手もある。

共有設定されてるとか

>>624

'sheet1のＡ列　検索対象文字列
'sheet2のＡ列　検索単語　例：*>>627 はいはい。*
Sub 検索君()
a = 1: b = 1
Do Until Sheet1.Cells(a, 1) = ""
If Sheet1.Cells(a, 1) Like Sheet2.Cells(b, 1) Then
Sheet1.Cells(a, 1).Select
With Selection.Interior
.ColorIndex = 37
.Pattern = xlSolid
End With
a = a + 1
b = 1
Else
If Sheet2.Cells(b, 1) = "" Then
b = 1
a = a + 1
Else
b = b + 1
End If
End If
Loop
End Sub

>>647
以前に同じ様な現象がありましたよ。
その時は図形が描画されているセルを列（もしくは行）削除、
というのを繰り返し行っていたのが原因でしたが。


新しいブックにコピペするのが最もよいでしょう。

やはり再インストールになりますかね

>>650 残念ながら >627に胴衣
Sub hoge()
　 For i = 1 To Sheet2.Range("A65535").End(xlUp).Row
　 　 For j = 1 To Sheet1.Range("A65535").End(xlUp).Row
　 　 　 If Sheet1.Cells(j, 1) Like ("*" & Sheet2.Cells(i, 1) & "*") Then Sheet1.Cells(j, 1).Interior.ColorIndex = 37
　 　 Next j
　 Next i
End Sub

VBAからcsvファイルを開く時に、
「2006/4/8」と記入されているセルのデータが
「2008/6/4」に変更されてしまいます。

ちなみに

「2006/4/8」→「2008/6/4」
「2006/4/9」→「2009/6/4」
「2006/4/10」→「2010/6/4」
「2006/4/11」→「2011/6/4」

というような感じで間違った値で表示されちゃいます。

VBAではなく普通に開くときちんと表示されます。
なぜなんでしょう？？？？

ちなみ2003です。

>>654
Excel97でさんざんそれに悩まされたのを思い出した。
結局俺はその日付については頭に「'」を入れて強制的に文字列に
することで済ましたけど。

全然解決策にはなってないんでスマンが。

Windows XP　で　Excel2003　を使っています。
セルの中の値によってセルの色を変化させたいんですが、
どうやったらいいんでしょうか？
たとえば60以下なら赤、70までなら黄色、
80以上なら青というようなことなんです
すみませんが、どなたかよろしくお願いいたします

>>654

VBAだと英語圏風にdd/mm/yyyyっていうふうに取得しなかったっけ?

>>656
条件付き書式で3つ(既定色を含めれば4つ)までは設定出来る。
それ以上はVBAで。

【1 OSの種類 　 　 　 　 .】 Windows XP HomeEdition SP2
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 はい(多少)
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel VBA 印刷

初めまして。
いま、訳あって、ちょっとしたプログラムをExcelのVBAで書いています。
内容は、Excelに投入したデータから必要なデータを抽出して、Form上に
格好良く表示するというものです。
Try & Errorを繰り返しながら、抽出・表示はできるようになりました。

今度は表示したFormに印刷ボタンをつけて、Formをそのままのイメージで
印刷したいと思っています。いろいろと文献をあたったり、上記キーワードで
ググったりしたのですが、WorkSheetの印刷はあってもFormの印刷は
ありません。

なにか裏技みたいなのがあるのでしょうか？
皆さんのお知恵を拝借させてください。宜しくお願いします。

657訂正

×　VBAだと英語圏風にdd/mm/yyyyっていうふうに取得しなかったっけ?

○　VBAだと英語圏風にmm/dd/yyyyっていうふうに取得しなかったっけ?

>>659
茨の道です。それ用にExcelのフォーマット用ファイルを作って、
開いてデータを放り込んで印刷して閉じる、っつー手順を
オートメーションで踏んでください。

つうか、抽出&表示&印刷ならAccessが得意です。

>>661
レスありがとうございます。
フォーマット用ファイルってなんでしょうか？f(^^;)
基本的なところかもしれませんが。。

>つうか、抽出&表示&印刷ならAccessが得意です。

はい、最初はAccessを使おうかと思ったのですが、そもそも
アプリケーションを持っていなかったので、プレインストール
されていたExcelを使ってます(汗あせ)

> ググったりしたのですが、WorkSheetの印刷はあってもFormの印刷は
> ありません。
そりゃそうだろうな。Formに関することはExcelではなくVB側を調べるべきなので
Excelユーザーフォームにも通用するVBのFormに関する解説が腐るほどあるのに
わざわざVBAユーザーフォームに限って事細かに解説することは少ない。
それに抽出の部分はExcelに関係するが､
｢Excelシート→<抽出>→VB Form(VBAユーザーフォームの実体はVB Formの簡易版)→<印刷>→紙面｣の場合
Formから先はExcel関係ないので>>2･7

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

フォームがいくつもあるエクセルのファイルを作りました。
それらを統括するフォーム(メインフォーム)を作りたいのですが
自動でフォームのリストをメインフォームのコンボボックスに追加する方法はないでしょうか？
今は
　cb.AddItem frmA.Caption
　cb.AddItem frmB.Caption
　...
という感じで自分で列挙してやっています。
よろしくお願いします。

>>658
Thanks!!

非保護のセル間で、切り取り→貼り付けをしたら、書式や数式も移動します。
書式のコピーや移動はまだしも、数式が移動するのは思わぬ計算ミスにつながります。
何かいい方法がないものでしょうか？

移動しない

>>660
テキストでCSVを開いて見て、
さっき自分もそれに気づいた。

しょうがないので、間違った日付を
修正する関数作ったので一応解決できました。

>>663
お助け、ありがとうございます。
おっしゃるとおり、Excelとは別ですね。
で、VB Form 印刷 をキーにしてググったら、いろいろ出てきまして、
これかなって方法を試したら、印刷できました。

その方法とは、「printform」この１行だけでした。

ただプレビューとかダイアログが一切なしで、いきなり印刷処理に
入ったので、その辺のところをもう少し何とかします。

アドバイスありがとうございました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 業務　集計
振り分けで数字を表示させる方法で質問です。
セル表示で（Ａ）なら１０００００×数字（Ｂ）なら１０００×数字、（Ｃ）なら１０×数字、
Ｄなら１×数字と言うふうに表示させたいのですが？
（　）には日本語が入ります。
数字に１〜６入力させて答えを出したいのですが？

>>670
よくわかｒん

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】Excel　登場回数？　出現回数？

例えば貸出票みたいなもので↓の様に
　　　　Ａ　　　　Ｂ
１　安倍さん　　１回目
２　伊藤さん　　１回目
３　安倍さん　　２回目
４　上田さん　　１回目
５　江川さん　　１回目
６　伊藤さん　　２回目

Ａ列に不特定多数の名前を入力→Ｂ列に何回目の貸出になるのか
といったことを自動計算で表示させたいのですが
ぐぐっても自力で見付け出せず。
rankやcount関連でも関数式を思い付けませんでした。
VBA全く出来ないのですが、やはりVBAになるのでしょうか？

>>670
=VLOOKUP(??,??,??)×数字

>>672
不特定多数のデータ処理はVBAが便利じゃないかな
まあCOUNTIF関数でも出来るけど
セルＢ２：=COUNTIF(B$1:B1,B2)+1　以下コピー

>>672
セルＢ２：=COUNTIF(B$1:B2,B2)
この方が良かったかな？
確かめてないので適当にやって

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 業務　集計
わかりにくいと言うことで再質問します。

セルで入力規制した文字（みかん）に１０００００×Ａ、（りんご）に１０００×Ｂ、
（ナシ）に１０×Ｃ、 ブドウに１×Ｄ の式があり、掛ける値を
別セル手動入力で１〜６の値のいれ数字を出したいのです。

>>673-674
ありがとうございます！ずっと悩んでいたのがこんなにもあっさり解決するとは…
セルＢ２：=COUNTIF(A$1:A1,A2)+1　もしくは
セルＢ２：=COUNTIF(A$1:A2,A2)
で出来ました。ありがとうございました。

>>675
見事に説明が下手だね。
今作ってる表から具体的に説明すれば！

結局、答えは >>673だったりして

名前の項目を基準にあいうえお順に並び替えさえるにはどうしたらよいのでしょうか？

>>678
ソート

ソート？

すいません、どこにあるのでしょうか？

質問に答えていらっしゃる皆さんは独学で学ばれてスキル身につけたんでしょうか？
これから本かって勉強しようと思っているのですが、このスレの内容が高すぎてさっぱりです。
やっぱりどこかスクールに通われたんでしょうか？

>>680
A　Zに↑とか↓の矢印付いたアイコン。

或いは
データ→並び替え

自宅に戻ったら早速試してみます、ありがとうございました

>>681
Excelは、そこまでのバカは対象外です
早々にお引き取りください

>681
入門書があればOK！仕事で使ってりゃ否が応でも覚えるよ
でも小学生レベルの算数が分ってなきゃ論外だね

というかVBA以外は適当に使ったりヘルプ見たりしてれば
自然と身に付くもんだと思うが

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

３〜５はおそらく関係ないと思うので省きます。

PC
　NEC VL370
症状
　Ｅｘｃｅｌの表示を改ページプレビューにしているファイルの読み書きに以上に時間がかかる
１シート当たり４秒程度かかる。そのためシート数が多くなると倍数で読み書きに時間がかかる

また表示を標準に設定してあっても　印刷プレビューを表示した後戻ると遅くなる

他のPCでは上記症状が出ないためPCのせいだと思います。
また他のソフト（業務用・JW-cad等）では症状が出ません。
同じofficeのWordは使用してないため確認が取れない。

Excelにしか現れない症状ですがNEC独特な物だと思います。
このような経験をされた方解決策を教えていただけませんでしょうか。

またここに質問するのもどうかと思いましたが、PC板を観ましたが
適切と思われるスレッドを見つけきれませんでした。
もし他のスレッドで適切だと思われるところがあれば誘導していただければ
そちらで伺おうと思いますので宜しくお願いします。

>>687
NEC持ってないしその現象は見た事無いけど、
プリンタドライバ側の問題な気が。

EPSONかどっかのドライバ適当に入れてみて、
そいつでプレビューでも再発するか確認をしてみれば？

私もプリンタードライバーを疑ってみた
キャノンから出ているSP2対応のドライバーに変更してみたが同じ症状

６年ほど前に９８２１であるCADが以上に重かった経験を思い出したが
その原因が常駐ソフトだったとおぼろげながら記憶している
ただなんともいえないので皆さんの力と経験を貸していただけたらと思います

指摘された方法は使用者の許可をとり明日試して見ます

Excel2003です。

DAVERAGE関数で
Criteria式の部分にセル範囲を選択するのではなく、
条件式を直接書き込みたいのですが、

例えば、

フィールド1　が　10以上
フィールド2　が　空白でない

のAND条件を指定するにはどうすればいいでしょうか？？

なるべく今日中でお願いします！

>>687
マクロが混入してない？

>>687
ツール/オプション/の
[表示][ウインドウオプション]の
[改ページ]チェックをはずす

遅くなる原因は印刷範囲の描画が、エクセルを操作するたびに
再描画しなおしているためだと想われる

>>691
わっはっは。変なコテハンつけちゃった。

>>690
無理。そういう関数じゃないから。

>>690
急ぐんならヘルプ見れば、、、

データベース関数は検索条件を複数設定できるから
すぐ解決するよ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 時間

A1にNOW関数で時間を入れておき、
B1にA１から持ってきた時間帯によって日常の挨拶が表示でるようにしたいです。
2〜10時・・・おはようございます
10時〜17時・・・こんにちは
18時〜2時・・・こんばんは
↓までは出来たんですが<3と>17のところが違うと思うんですが
どうしたらいいか、ずっと考えてもわかりませんorz
=IF(A1<3,"おはようございます",IF(A1>17,"こんばんは","こんにちは"))
宜しくお願いします。

>>696
HOUR関数を使え

以前打ち込んだ文と似た文を入れようとすると最初の数文字がそれと同じ場合、自動的に以前の文が表示されて
エンターを押すと以前打ち込んだ文が入力される機能がありますけど、あれはどういった名前の機能なんですか？
その設定を向こうにしたいのですが、教えてください。

>>698
オートナンタラ

ナンタラコレクト

質問なんですが、
１行目に項目名を入れて２行目以下に数字を入ったシートで、
シート全体を、たとえばA列の降順にソートしたいんですが、
１行目だけはソートしても動かないように固定したいんですが、
やり方あればご教示いただけませんでしょうか？

2行目から好きなだけドラッグしてうまく選べたらソート

>>702
すみません、行数が多く、
（A1セルの左上の四角い部分を左クリックして、シート全体を選択して）
シート全体でソートしたいんです。
すみませんが、よろしくお願いいたします

1行目を別シートに保存。
1行目を削除してシート全体でソート。
保存しておいた1行目を挿入。

並べ替えで先頭行をタイトル行にすればいいだけじゃないの？

702と704は、
恥ずかしくて恥ずかしくて
入る穴を探しています

>>691
マクロの存在はVBAと範囲名称も確認してあるので１００％ないとおもう。
それと今日ドライバーを入れ替る予定でしたが締め切り前で使用者の都合がつかず
延期となりました。

>>962
作業時は改ページプレビューでも標準でもそれほど変わりは有りません。
また保存時に改ページプレビューをはずすと保存が早くなることは確認済みです。
ただ一度印刷すると標準表示でも印刷範囲が破線で囲まれますよね。
その状態になると保存時に重くなる。
改ページプレビューの状態で保存してそのファイルを開くとシート数に比例して時間がかかる
おおよそ１シートあたり４〜６秒かかるので５シートあれば２０秒から３０秒

原因に思い当たるところが無く悩んでます。

>>707
>ただ一度印刷すると標準表示でも印刷範囲が破線で囲まれますよね。
>その状態になると保存時に重くなる。

よく読みな、692がその対処と原因の推測だろ

いや、思い当たるも何も。プリンタドライバとの通信の問題以外ありえないじゃん。馬鹿ですか？
もともとExcelはプリンタドライバとの通信に異常に時間がかかるアプリ。相性もあって、
ユーザー側ではどうにもならない問題。
改ページプレビューモードなんてExcelの一番苦手なことをいきなりやってんじゃ、遅いのは当然過ぎる。
めがねを頭の上に載せてどこにいったかわからないと深刻に悩んでるようなもんでしょ。

対策は簡単。改ページプレビューモードをやめる。
どうしてもやりたいなら、普通に保存しておいて手作業で毎回改ページプレビューモードにする。

>>703
何故にシート全体を選択するですぅ？
何を基準にソートしたいんですかぁ？
ソートする列を選択すればいいんじゃないのですかぁ？
ソート基準が複数あれば、データメニューから該当するコマンドを使えば良いんじゃないですかぁ？

以上、釣りに対するレスでした。ｗ

708,709
他のマシン（同じNECでsp1)ではその症状が出ない
プレビューを止めと良くなるって事は最初(687)に書きました
その上でそういうことになって解決した方がいないかって事です。

>707と回答者
共に気持ちが通じ合わないみたいですね



なんだか面白い

>>712
面白っちゃあ、面白いですね。こういう症状は初めて当りました。
この症状　何処に原因があるか確かめたいのですが
なんせこのPCにだけインストールしてあるソフトもあり締め切りが迫り
今ピークなので止めて試すってことが出来ないのです。
おもしろついでに先週末にチョット試した事を
何処に原因があるかってことでシートを一つ残し削除しました。
そしてシート全体を選択して削除しても同じく遅い
その後シート全体を選択して罫線を削除　それでも同じ
エクセルを終了し再起動後sheet1だけ残して保存すると瞬時に保存出来る
その状態で画面をドラッグして印刷範囲を設定すると保存に４秒程度かかる
多分マシン特有な物だと思う同じ症状に当った方はいないのだろう
この物件が落ち着き次第NECに連絡とってみる事にします。

質問です
指定した範囲に1,2,4,6,10など数字がある場合
その中で、例えば「２より大きくて７より小さいセルの数」を
数えたい場合の数式を教えて下さい！！

プリンタの機種名とドライバのバージョンぐらい書けばいいのに・・・

>>714
COUNTIFかもしれない

>>716
ありがとうございます
countifで調べてみました
=countif(b5:b11,">55")
というような例があり
この場合b5からb11の中で
55より大きい数のあるセルの数がわかります。
ただ、条件が「２より大きくて７より小さい」
といったような場合はどうしたらよいか･･･
わかりません（長くなりました･･･すみません）

7より小さいものから2以下のものを引く
あるいは、配列数式、SUM、IF等を組み合わせる

7より小さいものから２以下のものを引く･･･で
解決しました！
ありがとうございました

>>707は
まず「私は間違っていない」って
考えるタイプの人なんだろうな
忍耐強い人、教えてあげて