Excel総合相談所 76

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

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

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

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

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

前スレ
Excel総合相談所 75
http://pc11.2ch.net/test/read.cgi/bsoft/1226470880/

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

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

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

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

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

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

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

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

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

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

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

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

　　　||
　　　||　━ 質問のしかた ━
　　　||
　　　||　★1 質問するときは、環境や条件をキチンと書くこと。情報後出しはダメ。
　　　||　★2 要望は具体例や図を使って明確かつ具体的にしる。
　　　||　★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
　　　||　★4 質問テンプレ(雛形)は必須ではないが、
　　　||　　　　OSやExcelのバージョン､VBAの可否などは必須情報。
　　　||
　　　||　 　 　 　　　　　　∧ ∧ 　 。
　　　||　　　　　　　　　　( ,,ﾟДﾟ)／　ｼﾞｭｳﾖｳ!!　　　　　　Ｅ[]ヨ
　　　￣￣￣￣￣￣￣ﾉ　　つ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　 　 　 　 　 　 　 / ￣￣￣ ./| ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　 　 　 　 　 　 　 　 |￣￣￣￣| | |
￣￣￣￣￣￣￣￣|＿＿＿＿|/｜
　　　　　　　　　　　　 　 　 　 　 　 ￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　＼　　　　は〜〜〜〜い　　　　　　／
　　　　∧ ∧　　　　∧,,∧　　　∧ ∧
　　　 ( ,,　∧▲　　ﾐ　 ∧ ∧　(　　∧ ∧
　　〜（＿(　　∧ ∧＿(　∧ ∧＿ﾐ･д･∧ ∧
　　　　＠（＿(,,・∀・)＠ (　　 *)〜ミ＿ ( 　　,,)
　　　　　　＠（＿__ﾉ　〜（＿__ﾉ　 　 〜（＿__ﾉ

エクセルの技術的な質問と関係ない議論・雑談は下記スレッドで。

【質問不可】Excel総合相談所スレの雑談・議論スレ2
http://pc11.2ch.net/test/read.cgi/bsoft/1151651536

【 このスレの登場人物 】
┌─質問者───────────
どこにでもいるごく普通の初心者だったり
会社で上司に無理難題を押しつけられて困っている人だったりする。
たまに学生が宿題を持ち込んでくることも。
┌─回答者───────────
テンプレを使わないと無視したり、質問を小出しにするとキレたりするくせに
自分は回答を小出しにして優越感に浸りニヤニヤしている嫌なヤツ。
┌─自称回答者─────────
質問者を煽ったり、回答者を煽ったり、とにかくスレを引っかき回すだけで
何の役にも立たない賑やかし。単なるヒマ潰しでこのスレを見ている。
┌─VBA厨 ───────────
VBAは万能と信じ、どんな単純な問題もついVBAで解いてしまう。
Module1がデフォルトで挿入されている世界を夢見るが、いまだ実現していない。
その実態はほとんどが理系の(元)学生。ピボット厨に目の敵にされている。
┌─ピボット厨──────────
ピボットテーブルの機能が強力すぎるため、なんでもできると錯覚している。
口癖は「データを正規化して出直せ」「ピボッと参上ピボッと解決」など。
弱点は大嫌いなVBAを使わないとテーブルのリアルタイム更新ができないこと。
┌─啓蒙先生──────────
ピボット厨一派の過激派。Excelはピボットテーブルだけのためにあり、
それ以外の機能はワークシート関数すら不要と言い切る。ピボットテーブルで
解決できない質問からは威嚇しながら逃げる。最初から出てこなきゃいいのに。
┌─そのほか──────────
ワークシート関数厨……何重にも入れ子になった複雑怪奇な数式を作り出し、
関数だけでどんな問題も解いてしまう。たまに自分でも何をやっているか
わからなくなる。悩みは数式バーが1行しかないこと、頭が薄くなってきたこと。

配列数式厨……意外と使えるやつだが滅多に出てこない、というか出番がない。
極めてマイナーな存在。見かけたらその日はいいことがあるかも。

ナレーター……誰か知らない人。

マクロを途中で一時停止させるにはどうしたら良いのでしょうか？
お願いいたします。

中断ボタンを押すか、Ctrl+Break
毎回特定の場所で一時停止させたいならMsgBoxでも使え

表を作るときに指数部分を揃える方法ってないでしょうか？
どうしてもE-02やE-01など混ざってしまいます

>>8
F8押せば一行ずつ実行できる
ステップインとかでぐぐれ

>>10
指数表示をやめればいいのでは？

>>10
##0.0E+00
のように#を好きなだけつける

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

以前はPCにあったエクセルが消えてしまったんですが、復活させる方法はあるのでしょうか？
また、消えてたってことは自分で削除したってことですよね・・・？

>>15
消えたってのはアンインストールされてるってこと？
デスクトップやスタートメニューにアイコンがないってこと？
具体的に書け

アンインストールされてるならインストールしなおすしかない
アイコンないだけならexeからショートカット作り直せばいいだけだからまた聞け

>>15
ウィンドウズキー+R、ボックスに
excel.exe
と入れてok
起動すれば残ってる、起動しなければ残ってない
ディスクが残ってなければOOoでもいれとけ

＞＞９

Ctrl+Break ってどうやるのですか？
Breakボタンってどれのことなのでしょうか？

Sub 自動グラフ作成()

For i = 5 To 32 Step 3
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=distance!R18C1:R1009C1"
ActiveChart.SeriesCollection(1).Values = "=distance!R18C" & (i + 2) & ":R1009C" & (i + 2)
Next
End Sub


上記のように表の中の決められたセルからデータを取り出して自動的にグラフを作成してくれるマクロを作成したのですが、奇数個めのグラフは正常に生成されるのですが、偶数個めのグラフになぜか
x=
y=distance!$M$18:$M$1009
x=
y={1}
みたいな必要なグラフ以外に上記の２つのグラフを混じってしまいます。これってどこがおかしいのでしょうか？
どなたか助けて下さい。
お願いいたします。

Excel VBAで有効数字ってどうやって指定するのでしょうか？

計算である有効数字以下全く計算しない設定にするにはどうしたら良いのでしょうか？

>20

つRound

>>21

小数点何桁以下の四捨五入とかではなく、有効数字で決める方法はないのでしょうか？

それと例えば24324342*453454353
みたいな計算があるとして、有効数字5桁目以下を全く計算せず四捨五入する
みたいな方法も教えて頂けないでしょうか？
お願いいたします。

PCから>>15です
レス有難うございます
曖昧な書き方でごめんなさい
>>17の方法で出なかったので、ファイル名を指定して実行をしました
あったので開こうとしたら、「オブジェクト ライブラリ(vbean32.old)が見つからないか、または壊れています。
セットアップ プログラムを実行し、インストールし直して下さい。」と出て開けませんでした
ok押すと、「Miclosoft excelは現在のユーザー用にインストールされていません。セットアップを実行してアプリケーションを
インストールして下さい。」と出ました
ちなみに、数ヶ月前まで使えていたWordも開けませんでした
これも「Miclosoft wordは現在のユーザー用にインストールされていません。セットアップを実行してアプリケーションを
インストールして下さい。」出ました
これらは修復可能なんでしょうか？
OSはXPで、6年以上前に購入したPCで古いです
どうかよろしくお願いします；；

マウスのダブルクリックを使わずにキーボードから、
選択セルを「編集モード」にするにはどうすればいいですか？

F2

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

>22

つRound/Rounddown/Roundup

>>22
値が必ず整数の場合
＝ＲＯＵＮＤ（値，有効数字−値の文字数）
その他の場合は上式を工夫する

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

一行にある入力済みの複数のセルの任意のセル間に空白セルを挿入する際に、
マウスやメニュー操作等を用いず、キー操作だけ（なんかのキー＋Tab等）で行う方法はありませんでしょうか？

例１：ここに空白セルを挿入したい
.　　　　↓
東京都｜西新宿｜1-1-1

　　　　　↓↓↓

東京都｜　　　　｜西新宿｜1-1-1

例２：ここに空白セルを挿入したい
.　　　　　　　　　　　↓
神奈川県｜横浜市｜1-1-1

　　　　　　　　　　　　　↓↓↓

神奈川県｜横浜市｜　　　　｜1-1-1

よろしくお願いします。

Alt i e i Enter

>>30
早速にありがとうございます。
確かにできますね。
ただ手間としてはマウス右クリック→挿入とそれほど大差ないですね、、、
もっと手間の少ない入力方法があれば・・・思ったのですが、諦めますorz
ありがとうございました。

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

Dim i As Long

みたいに変数の型を定義しなかった場合どうなりますか？
何に定義されるのでしょうか？

バリアント

>>29
挿入だけ続けてやるなら Ctrl + Y が便利だけど
それじゃだめなのかな

>>23について分かる方いませんか？
他スレで回答聞いた方がいいのでしょうかorz

グラフについて教えて欲しいのです
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ・まったく
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel総合相談所

普通の棒グラフなのですが、棒の色を半透明というか透過とうか
そういうことってできませんか？

単純な成績のグラフで、実績と挙績の数字があって
実績のグラフの中を挙績のグラフで塗りつぶしていこうという目論見なのです
棒の重なりを100にして重ねることはできたのですが
このままだと挙績＞実績になるとどこまでが実績かわからなくなってしまうので
挙績の棒を半透明みたいにスケレートンにしたいのです
よろしくお願いしたいのです

>>36
OSクリーンインストールして出直してこい。スレ違い。

>>38
すみません；；
ちなみに>>38の「vbaen32.olb」でした・・・

>>32
キーボードの右上あたりに、押したことのないキーが並んでるでしょ。
よく探してごらん。BreakとかBRKとかいうのがあるはず。

>>37
手前側になる方のグラフを塗りつぶしなしにして半透明のオートシェイプを貼り付ける。

別の方法としては、Mac版Excel2004でグラフを作ってインポートする。
Mac版2004ではワンタッチでグラフを半透明に出来て、しかもそれをWin版2002や2003で読み込むと
ちゃんと半透明のまま表示される。

>>40
うひょおおおおおお
ありがとうございます。

できれば一時停止の仕方もありましたら教えて下さい｡
何卒よろしくお願い致します。

Range(Cells(2108, 2), Cells(3108, 2)).Cut Destination:=Cells(13, 2)
を使ってあるワークシートから違うワークシートに決められたセルの内容をコピぺしたい場合には
どう記述したら良いですか？

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

以下のような源泉徴収票摘要欄のデータが数百行あります。
（ひとつのセルです）

前職:�鰍Qちゃんねる 給与654254 税10840 社保82380

ここから給与、税、社保それぞれ別なセルに金額のデータを取り出したいのです。
規則性があるといえば、給与でいえば、"給与" から　" "の間の数字になります。

>>42
Ctrl+Breakで一時停止、F5で一時停止したところから再開

>>43
Destination:=Worksheets("Sheet2").Range("B13")

>>44
=MID(A1,FIND(" 給与",A1)+3,FIND(" ",A1,FIND(" 給与",A1)+1)-FIND(" 給与",A1)-3)

給与
=MID(A1,FIND(" 給与",A1)+3,FIND(" ",A1,FIND(" 給与",A1)+1)-FIND(" 給与",A1)-3)
税
=MID(A1,FIND(" 税",A1)+2,FIND(" ",A1,FIND(" 税",A1)+1)-FIND(" 税",A1)-2)
社保
=RIGHT(A1,LEN(A1)-FIND(" 社保",A1)-2)

社保=MID(A1,FIND(" 社保",A1)+3,9)

給与=MID(A1,FIND(" 給与")+3,FIND(" 税",A1)-FIND(" 給与",A1)-3)
税　 =MID(A1,FIND(" 税")+3,FIND(" 社保",A1)-FIND(" 税",A1)-2)

>>47-48
感謝感謝です。

>>46

ありがとうございます。

開いている全てのワークブックからそのファイル名と決められた位置のセルの内容を
A1にファイル名、A2:A1001にデータ
B1にファイル名、B2:B1001にデータ
・・・
みたいな感じで、複数のファイルからの内容を一つのワークシートにまとめるような
マクロを作りたいのですが、どうすれば良いのでしょうか？
For eachだとうまく作れないのですが、どうすれば良いのでしょうか？

>>52
こんな感じでできるはずだけど
Sub Sample1()
　　c = 1
　　For Each W In Workbooks
　　　　Cells(1, c) = W.Name
　　　　c = c + 1
　　Next
End Sub

【1 OSの種類 　 　 　 　 .】 WindowsXP HE
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 勉強中・初心者
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】

BookＡにはシートが50個あります。BookＢはデータ処理し数値抽出用。BookＣは真っ白。

BookＡのシート1のデータをコピー（全抽出）してBookＢに貼り付け、抽出されたデータをBookＣに貼り付け。
次にBookＡのシート2のデータをコピー（全抽出）してBookＢに貼り付け、抽出されたデータをBookＣに貼り付け（BookＡシート1の時の下の段に）
次にBookＡのシート3を・・・　
というふうに自動でできるようにしたいのですが、どのようにマクロやＶＢＡを使えばいいでしょうか？
例や使うべき命令などを教えていただけないでしょうか？よろしくお願いします

BookBを何に使ってるのかよくわからない

>>55
すみません。
ＢｏｏｋＢはＢｏｏｋＡからコピーしてきた数値に特定の数値を足したり引いたりしているBookです

>>56
コピペには色々な方法があるけど、見た目でわかりやすいのはこう。
ブック名、シート名、範囲と、貼り付け先をこんなふうに書く。

Sub セル内容の一括コピー()
　　Workbooks("BookA").Worksheets("Sheet1").Range("A1:C100").Copy　　'コピー
　　Workbooks("BookB").Worksheets("Sheet1").Range("A1").PasteSpecial　　'貼り付け
End Sub

>>54
ワークシートは名称で指定するのが普通だけど左から何番目かで指定することもできるから
for i = 1 to Worksheets.Count 〜nextとか使って
Worksheet(i)の望みの範囲をコピー貼り付けすればいいんじゃないの

>>56です
>>57-58
ありがとうございます！とりかかってみます！

>>53

うおおお、できましたありがとうございます。

あと２つよろしいでしょうか？
いま001.xls、002.xls、003.xls・・・というファイルの中にそれぞれ001、002、003・・・というシートが入っているのですが、

Sub Sample1()
　　c = 1
　　For Each W In Workbooks
　　　　Cells(1, c) = W.Name
　　　　c = c + 1
　　Next
End Sub
でファイル名ではなく、そこに入っているファイル名と同じシート名を抜き出すためにはどうしたら良いのでしょうか？

それと、001.xls、002.xls、003.xls・・・というファイルの中の001、002、003・・・というシートから
それぞれ同じ箇所のセルからデータを抜き出したいのですが、
Destination:=Worksheets("Sheet2").Range("B13")
というのにどう書き加えれば良いのでしょうか？
何卒よろしくお願い致します。

>>53
質問者じゃないんだけれどこのWって何なの？
何の定義もせずに使えるものなの？

Sub Sample1()
c = 2
For Each W In Workbooks
For Each ws In Worksheets
Cells(12, c) = ws.Name
Range(Cells(2108, c), Cells(3108, c)) = ws.Range(Cells(2108, 2), Cells(3108, 2))
c = c + 1
Next
Next
End Sub


これでうまくいくと思ったのですが、
Range(Cells(2108, c), Cells(3108, c)) = ws.Range(Cells(2108, 2), Cells(3108, 2))
で定義エラーと出てくるのですが、なぜなのでしょうか？

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows Vista Ultimate x64
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 折り返して全体を表示　ずれる　印刷

「折り返して全体を表示する」で複数行になっているセルを印刷プレビューや印刷をすると
下の行の文字がかなりの確率で印刷時切れてしまいます。
印刷前は文字が隠れたりはしないように適宜改行しているのにです

１．一セルの文字数は４０字以上で減らすことは難しいです。
また、縮小表示も目視できずとり得ません。
その他にこれをなくすための改善策は２００３ではありませんでしょうか？

とくに、
現状調べた中ではAlt+改行を繰り返すというのがありますが、
これをまくろでやることってできるんでしょうか。

２．Excel2007以降では改善されているのでしょうか。

>>61
変数宣言は一応省略もできるけども、しないといろいろ困るよね

>>63
Chr(10)が改行に当たる文字コードだからこれをマクロで挿入すればいいんだろうけど
Alt改行は好きな位置で改行が出来るというだけで、編集画面と印刷プレビューでずれる問題は
折り返して全体を表示の時と変わらないと思う

2007ではページレイアウトっていう新しい編集画面が出来たからこれでズレは防げるんじゃないかなあ
自分は2007あんまり使ってないから断言できない、ごめん

どうしてもうまくいきません。

どうすれば良いのでしょうか？

どなたか何卒よろしくお願い致します。

つーか、また計算ソフトで文書作成してる頭の弱い子ですか．．．

>>66

どういうことですか？
他に何か方法があるのですか？

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

バージョンアップして解決できるならエクセル２００７明日にでも買うんですが。。。

2007はやめといたほうがいいような・・
2003で作って2007で最終仕上げ+印刷だけするってならわからんでもないけど

>>65
やはり前スレのあなたでしたか・・・

>>68
2007のヘルプより

>印刷機能の向上
>[ページ レイアウト] ビュー
>Office Excel 2007 では、[標準] ビューと [改ページ プレビュー] ビューに加えて、
>[ページ レイアウト] ビューが用意されています。
>このビューを使用すると、印刷時の見栄えを確認しながらワークシートを作成できます。
>このビューでは、ページのヘッダー、フッター、および余白の設定をワークシート内で直接操作したり、
>グラフや図形などのオブジェクトを目的の位置に適切に配置できます。
>また、新しいユーザー インターフェイスである [ページ レイアウト] タブでは、
>すべてのページ設定オプションに簡単にアクセスでき、用紙の方向などのオプションをすばやく指定できます。
>各ページに印刷される内容を簡単に確認できるので、何度も印刷を試したり、
>印刷時にデータの欠損が生じたりするのを避けることができます。

まあ2003と2007は一応共存できるし・・・2007だけ使おうとすると最初かなりイライラさせられるかも

>>62
作業してるシートをアクティブにすれば動くかもね

>>61
VBAは変数を宣言しなければシステムが勝手にバリアント型の変数を作ってくれる。
Dim W As Valiant を省略したのと同じ動作になる。
人間が楽を出来るかわりにパフォーマンスやメモリの利用効率が落ちる。
厳密にやるなら Dim W As Workbook と宣言する。

>>71
もちろんアクティブにしているのですが、うまくいきません。
どなたか助けて下さい。

>>62
シートを操作する時、どのブックの中のシートかをちゃんと書かないと常にアクティブワークブックが対象になってしまう。
For Each ws In Worksheets
　　　　　　　　　 ↓
For Each ws In W.Worksheets
これをふまえて修正すると、こんな感じになる。ブック名と、各ブック内のシート名の一覧表を作るサンプル。
Sub Sample2()
　　Dim W As Workbook
　　Dim ws As Worksheet
　　Dim r As Integer
　　Dim c As Integer
　　c = 1
　　For Each W In Workbooks
　　　　Cells(1, c) = W.Name
　　　　r = 2
　　　　For Each ws In W.Worksheets
　　　　　　Cells(r, c) = ws.Name
　　　　　　r = r + 1
　　　　Next ws
　　　　c = c + 1
　　Next W
End Sub
ブック名を文字列変数に入れて拡張子を切り取ればいい。シート名を指定してコピーする方法は>>57

>>21>>27>>28
君たち有効数字って知ってる？

>>74
ありがとうございます。
でも実行してもうまくいかないのですが・・・

それと全てのシートの全てのデータを抜き出したいのではなく、
全てのシートの
Range(Cells(2108, 2), Cells(3108, 2)) に該当するデータだけを
Range(Cells(2108, c), Cells(3108, c))のセルにそれぞれ移したいのですが、
どうすれば良いのでしょうか？
For each だと範囲を指定できないのではないのでしょうか？

それと　Next ws 　Next W って初めて見たのですが、
これってどういう意味があるのでしょうか？

>>76
つhttp://www.google.co.jp/
つhttp://office.microsoft.com/ja-jp/help/default.aspx

>>69>>70

ありがとうございます。
非常に悩ましいですが７０さんの説明だといけそうですね。

しまった。。。

大学で印刷する予定なのでOffice２００３と下位互換性があるかお聞きして良いでしょうか

それとも１シート毎PDFで保存してPDFとして印刷すればよいのでしょうか。

>>78
詳しい人出てこないから答えちゃうけど

97-2003形式のxlsファイルで保存すれば一応互換性は保たれる事になってる
でも細かいレイアウトとかに関してはちょっとわからない

2003でプレビューと行ったり来たりしながら調整していくか
2007で作って2003で最終確認してから持っていくか
2007で作ってPDF化するか、のどれかになるのでは

うおおおおおおおおおおお
どなたかお願いしますよおおおおおおおおおおお

>>80
Nextのあとに書くのは制御変数。なくても動くしバイナリの速度もサイズも変わらない。
バグよけのおまじない。

そういえばNextの後ろに書くべきって遺体子がいたな。

>>80
こうか？

Workbooks("BookA").Worksheets("Sheet1").Activate: Range(Cells(2108, 2), Cells(3108, 2)).Copy
Workbooks("BookB").Worksheets("Sheet1").Activate: Range(Cells(2108, c), Cells(3108, c)).PasteSpecial

シート名を指定する"Sheet1"ってのは単なる文字列だから好きに変えればいい。

>>80
>>62
Sub Sample1()
dim W as workbook
dim ows as worksheet
dim ws as worksheet
dim c as integer
set ows = activesheet
c = 2
For Each W In Workbooks
For Each ws In W.Worksheets
ows.Cells(12, c).value = ws.Name
Range(ows.Cells(2108, c), ows.Cells(3108, c)).value = Range(ws.Cells(2108, 2), ws.Cells(3108, 2)).value
c = c + 1
Next
Next
End Sub

かな。試してないけど。activate はしなくてもできるはず
省略なんて、省略するとどういう動作をするのかをちゃんと把握してからやるもんだ

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 メール　エクセル　背景色が変わる

メールにてエクセルの表を添付し送ってもらうと送信者の意図しない
背景色に勝手に変わって表示されてしまうのですが、
（背景色をなしで作成してメールを送ってもらうとこちらで開くと灰色に変わってたり）
この原因って何が考えられられますか？
分かる方教えて下さい。

>>41
棒の数が100や200ではないのと
デイリーに毎日作るグラフであること、
会社のPCなのでMAC版も無理なので
あきらめることにします・・・
お返事ありがとうございました

>>86
オートシェイプの貼り付けは棒の本数に関係なく、1つのグラフに1回やるだけ

>>86
作業列を作って、重なって見えなくなるときは作業列のデータを表示する
ttp://upload.jpn.ph/upload/img/u30793.png

>>84
ありがとうございます。
うまくいきました。
それと自分自身ファイルからはデータを転送する必要がないので下記のような書き加えをしたのですが、
なぜかエラーが出てきます。これは一体どこがまずいのでしょうか？

Sub Sample1()
Dim W As Workbook
Dim ows As Worksheet
Dim ws As Worksheet
Dim c As Integer
Set ws1 = ThisWorkbook.ActiveSheet

Set ows = ActiveSheet

c = 2
For Each W In Workbooks
If W.Name <> ThisWorkbook.Name Then

For Each ws In W.Worksheets
ows.Cells(12, c).Value = ws.Name
Range(ows.Cells(13, c), ows.Cells(1013, c)).Value = Range(ws.Cells(2108, 2), ws.Cells(3108, 2)).Value
c = c + 1

End If

Next
Next
End Sub

>>89
インデントちゃんと付けてる？End Ifを入れる場所がおかしいよ

Sub Sample1()
　　Dim W As Workbook
　　Dim ows As Worksheet, ws As Worksheet
　　Dim c As Integer
　　Set ws1 = ThisWorkbook.ActiveSheet
　　Set ows = ActiveSheet
　　c = 2
　　For Each W In Workbooks
　　　　If W.Name <> ThisWorkbook.Name Then
　　　　　　For Each ws In W.Worksheets
　　　　　　　　ows.Cells(12, c).Value = ws.Name
　　　　　　　　Range(ows.Cells(13, c), ows.Cells(1013, c)).Value = Range(ws.Cells(2108, 2), ws.Cells(3108, 2)).Value
　　　　　　　　c = c + 1
　　　　　　Next ws
　　　　End If
　　Next W
End Sub

>>90

ありがとうございます。
でも上記のものをコピペして使ってもまだ、自分自身のセルから
データを転送するようなのですが、
これはどうすれば良いのでしょうか？

こうかな？
If W <> ThisWorkbook Then

変な並びで作成されてしまった住所リストを普通のリストの形に並び替える方法がわかりません。

A1:１００−００００　B1:１００−０００１　C1:２０１−３０００
A2:住所ゴニョ０１　B2:住所モニャ０２　 C2:住所ホニャ０３
A3:社名ムニャ０１　B3:社名モニョ０２　 C3:社名ヘニョ０３
A4:　空　白　行
A5:次のデータ
　 　 ・
　 　 ・
のようになっており、非常に使いづらいのです。
しかも規則正しく並んでいるわけではなく、時々データが入っていなかったりします。
１レコード？分だけ飛び飛びで後から削除したような形です。
前任者に軽い怒りを覚えてます＞＜

よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 リファレンスを見ながら格闘して負ける程度です
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　テーブル　並び替え

>>93
質問者に軽い怒りを覚えてます

>>>92

このメソッドには対応していません。というエラーが出るのですが・・・

なんなんでしょうか？
これは？

>>93
オートフィルタで空白行以外
コピーして貼り付け

>>93
4セル1組で並んでるなら
2列目の先頭から最後尾を1列目の最後尾の1セル後に挿入(もしくは貼付)
1レコードずつ横に並べたければこの後、別シートにでも関数で並べれば？
縦になってるやつを横にするのはROWやINDIRECTやOFFSETとか使ってやってる例が
過去スレとかにいっぱいある

>>94
激しくではないが同意

>>95
.Nameで比較して問題ないはず
デバッグで条件通りに動いているか見てみるべき
Ifとその下のForにブレークポイント置いてその条件の時に
処理を飛ばしているか確認してみるんだ
Ifの条件をウォッチ式に追加しておくと分かりやすい

ごめんなさいよく解りませんでした。結局コピペするしかないって事ですね。ありがとうございました＜＞＜＞＜＞＜

・・・前言撤回して少し訂正
>>94
激しく同意

質問があります。
実験結果を散布図に表示したいのですが、点をグループごとに色分けしたいです。
「やろうとしていることは、Aグループに所属する点は赤色
Bグループに所属する点は青色」
というように色づけをして、あとはそれぞれの点を
x軸、y軸の値よりプロットするだけです。

形式は
「グループ,x,y」
という形のcsvファイルから読み込む予定です。
A,312,789,
B,546,111,
という感じです。

もしよろしければ、アドバイス頂けないでしょうか。よろしくお願いします。

>>97
ありがとうございます。
マクロのおいてある場所が、現在開いているファイルではなく、002.xlsファイルにあったため、
うまくいっていないことが分かりました。
でも一応ブレークポイント、ウォッチ式についても教えて頂けないでしょうか？

それと
If W.Name <> ThisWorkbook.Name And W.Name <> "PERSONAL.XLS" Then

でPERSONAL.XLSを除外できないのはなぜなのでしょうか？
何卒よろしくお願い致します。

Andでやるからだろ
そのマクロをPERSONAL.XLSに入れてる場合にしか引っかからないよ

ブレークポイント　ttp://www.vba-world.com/breakpoint.html
ウォッチ　ttp://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_040_025.html
少しはヘルプやネットで検索しような･･･

>>そのマクロをPERSONAL.XLSに入れてる場合にしか引っかからないよ

ではどうしたら良いのでしょうか？
皆目検討がつかないのですが・・

And→Or

motarouくんの応用力のなさはガチだな、、、

>>104
orにするとW.Name <> ThisWorkbook.Nameの方も無効になってしまったのですが、
なんなんでしょうか？

使用ソフト：EXCEL2003

ハイパーリンクについて質問させてください。

１．セルにハイパーリンクを設定して、名前を定義したセルに飛ぶ。
２．オブジェクトにハイパーリンクを設定して、名前を定義したセルに飛ぶ。

はできたのですが、

３．セルにハイパーリンクを設定して、特定のオブジェクトに飛ぶ。
４．オブジェクトにハイパーリンクを設定してオブジェクトに飛ぶ。

３．４．は可能ですか？
できる場合、方法も教えていただけると助かります。

宜しくお願いいたします。

>>106
よく見たら<>だからAndで合ってるのかｗ
もしかして条件が足りないのでは？
これならどう？
If W.Name <> ThisWorkbook.Name And W.Name <> ows.Parent.Name And W.Name <> "PERSONAL.XLS" Then

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

セルの中の文字とスペースを同時に何個か消したいのですが、
消したい文字は必ずセル入力の最初にありそのあとに全角スペースが
あります。文字数は一緒ですが文字は違う場合があります。例えば、

ABC　123456
ABC　2344567
ABC　44444
BBB　5568777

のようになっていて最初のアルファベット３文字だけ消して

123456
2344567
44444
5568777

というようにすることはできないのでしょうか？
宜しくお願い致します。

>>109
×　のようになっていて最初のアルファベット３文字だけ消して
○　のようになっていて最初のアルファベット３文字と全角スペースを消して

>>100
AとBのデータをきっちり分けないとだめ。
作業列に移してもいいし、ソートしてもいい。方法はいくつもあるから自分が一番簡単だと思う方法で。
たとえばこんなふうに。
A列=Aグループのx
B列=Aグループのy
C列=Bグループのx
D列=Bグループのy

>>109
最初の3文字を削るだけなら
=MID(A1,4,99)

>>110
アルファベット3文字と全角スペース1個、あわせて4文字を削るってことは5文字目以降を残すってことだから
=MID(A1,5,99)

>>103
抜き出したデータをまとめるブックがあるでしょ。そのブックにマクロを登録するんだよ。
VBEを起動して左側のツリーを見ると、モジュールがどのブックに属しているかがわかるから。

>>109
データ／区切り位置
ウイザードに沿っていけば簡単にできるよ
詳細はヘルプで確認してね

すいません、>>107ですが、テンプレ見落としてました。

【1 OSの種類 　 　 　 　 .】 Windows xp pro
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 ハイパーリンク　オブジェクト　excel

宜しくお願いいたします。


ハイパーリンクについて質問させてください。

１．セルにハイパーリンクを設定して、名前を定義したセルに飛ぶ。
２．オブジェクトにハイパーリンクを設定して、名前を定義したセルに飛ぶ。

はできるのですが、

３．セルにハイパーリンクを設定して、特定のオブジェクトに飛ぶ。
４．オブジェクトにハイパーリンクを設定してオブジェクトに飛ぶ。

３、４は事はできますか？
できる場合、方法も教えていただけると助かります。

宜しくお願いいたします。

>>106
Orで出来ることはAndでもできる。

If foo<>"hoge"x And foo<>"hage" And foo<>"huga" Then
　　　'処理
End If

これをOrで書けば
If foo="hoge" Or foo="hage" Or foo<> "huga" Then

Else
　　　'処理
End If

となる。
Select Caseで書いた方がいいと思うが。

すまん、最初の"hoge"の後ろのxはゴミだ。

>>108
うおおおお、うまくいきました。
ows.Parent.Name And W.Name って何なんですか？

>>116
ttp://www.kotaete-net.net/Default.aspx?pgid=14&qid=120459505264
解決にはなっていないが代案なら出てる

>>108
ows.Parent.Name

ows(アクティブなシート)のParent(この場合はブック)のName(名前)

安価ミスった
>>119

>>112>>113>>115
できました、助かりました。ありがとうございました。

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

もう一つよろしいでしょうか？
いまの状態だとこのマクロをPERSONAL.XLSにおいたままだと使うことができないのですが、
このマクロをどこのファイルにおいた状態であっても、開いているファイルに対して
このマクロが適用されるようにするにはどうしたら良いのでしょうか？
何卒よろしくお願い致します。

>>124
PERSONAL.XLSに入れて試したか？
除外してる条件は
　マクロが入っているブック
　マクロを動かした時にアクティブになっているブック
　PERSONAL.XLS

つまり「マクロが入っているブック」が「PERSONAL.XLS」だった場合も同じ動きのはず

>>>>>>>>>>>125555555555555

うひょおおおおおおおおおおおおおお
こりゃすげええええええええええええええ
ありがとうございます！！！！！！！！！

↑バカがきっ、もう来なくていいよ

結局全部人に考えてもらったな

結局、有効数字の件はどうなったのでしょうか？

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

IDが出ない板でよかったね

自分なりに有効数字の出し方を考えてみたのですが、
Function xxxxx(x)
xxxxx = WorksheetFunction.Round(Buffer, (3 - Int(Log(x))))
End Function




これってどこが間違えていますでしょうか？

>>129
一発で有効数字を設定する方法はない。たとえばこういう式を使っていちいち変換する必要がある。
=ROUND(A1,4-INT(LOG(ABS(A1)))-1)
　　　　.　　　↑
これが有効数字の桁数。この場合は4。

>>129 >>20
>>28、これじゃダメ？

>>131
変数Bufferが初期化されてないので常に0になる。
それだと負の数に対応できない。

>>133
質問者のレベルから判断して、「工夫する」の部分ができないと思われ

すいません、

Function xxxxx(x)
xxxxx = WorksheetFunction.Round(x, (3 - Int(Log(x))))
End Function
の間違えです。どこが間違えているのでしょうか？

>>136
それだとxがマイナスの時にエラーになる。
Log(x)の部分をLog(Abs(x))にする必要がある。

>>136
せめて
Function RoundX()
みたいな、もうちょっとマシな名前付けようよ

>135さん、なるほど分りました

>>129 >>20　これでどうぞ
A1に対象となる値があるとして（有効数字４の場合）
=ROUND(A1,4-ROUNDUP(LOG10(A1),0))

こうだな
=TEXT(A1,"0.000E+0")*1

>>137
すいません、負の数でなく正の数のときでもエラーが出るのですが・・・・
それと
>>139
Excel functionではなく、VBAでこれを行いたいのですが・・・

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

ここの回答者ってなんでこんなに有効数字のことに無知なの？

グラフの凡例マーカーの色や形の一括変更や凡例をまるごとコピペってできませんよね？
一括変更や任意選択した凡例項目の変更をするためにはVBAでマクロ作らないとダメでしょうか？

>>142
だったら、教えてくれよ、賢い解答を ( ´,_ゝ`)ﾌﾟｯ

>>142
そんなもん知る必要がまったくない
円周率を何桁まで言えるぜーとかと同レベル
まったく役に立たない金にもならない覚える必要なし
逆に教えて欲しかったら懇切丁寧に有効数字について解説してみろやクソガキ

>>142が居なくなったジャマイカ・・・／(＾o＾)＼ﾅﾝﾃｺｯﾀｲ

>>145
香ばしいな。

有効数字とかぐぐった方がよほど早くて正確で身になると思う
ここの回答者って実務以外にかなり弱いよなw

正解はわかるだろうけど身にはならないよね。ようするに質問者は答えを丸写しするんだから。

がんばって作ってみた。これでどう？
x=元の数、n=有効数字の桁数
Function RoundN(x, n)
　　s = Sgn(x)
　　x = Abs(x)
　　j = 10 ^ (n - Int(Log(x) / Log(10)) - 1)
　　RoundN = s * Int(x * j + 0.5) / j
End Function

質問者がExcelに直接関係ないVBAの有効数字型を作ってくれみたいな
丸投げで回答を求めてるようにしか見えないです
Roundなりで工夫して欲しいのです

>>149
自分で調べると、その情報の周りにある情報も見てしまう。それが非常に価値が高いらしい

例えばここで回答者に有効数字はxx桁、と言われるよりもwebで有効数字は云々〜と言われるほうが価値が高く、さらに辞書で有効数字の周りにある情報を見てしまうのが脳としては情報の価値が高いとか
眉唾
でも辞書で呼んだことはなかなか忘れないんだよなー

まぁ
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_050_06.html
有効数字一覧
データ型によるとしか

あきれたやつらだな。本当に有効数字知らないんだな。
>>150
つまらないプログラム組む前にまず有効数字をぐぐれ。

それで結局>>136のどこが間違えているのですか？
アルゴリズム的には間違えはないように思うのですが・・・

>>154
質問をよく読め

>>155
VBAのLog関数は底がeだから底が10の時の対数を求めるにはLog(x)/Log(10)としなきゃならない

>>155
VBAで作る前に、ワークシートにその式を入れて結果を見てごらん

>>156
>>20のことか？読んでるよ。
「ある有効数字以下の計算をしない」ことになんの意味があるんだと
思ってたところ、へんてこな回答がいっぱい出てきてびっくりしている。

>>159
意味とか…
おまえこそ有効数字の意味を調べて出直してこい

>>155
Function xxxxx(x)
　　xxxxx = WorksheetFunction.Round(x, 3 - Int(Log(Abs(x))/Log(10)))
End Function

有効数字で計算することの意味も知らない>>159はまちがいなく中卒。
しかも実際は学校へ行ってなくて、お情けで卒業させてもらった。

>>161
ありがとうございます。
でも0のところで#VALUEというエラーが出るのですがどうにからないのでしょうか？
何卒よろしくお願い致します。

>>162
Excelで「ある有効数字以下の計算をしない」ことにどんな意味があるの？

>>163
Function xxxxx(x)
　　If x <> 0 Then
　　　　xxxxx = WorksheetFunction.Round(x, 3 - Int(Log(Abs(x)) / Log(10)))
　　Else
　　　　xxxxx = 0
　　End If
End Function

さーせん。有効数字ネタに埋もれてしまったんですが、
設定かなんかで>>143が可能かどうかだけ教えてくれませんか？
無理そうなら今から徹夜でマクロ作らないといけないので。

おまいらやさしいな…
正解やヒントがこんだけ出てんのに、ロクに自分で考えようとしない>>20や
有効数字の使い所も知らない中卒の相手なんかしなくていいよ…

>>164
計算スピードは速くすることです。

>>166
ごめん。質問の意味がよくわかんない

>>167
正解出てる？どこに？
>>168
例えば>>150みたいなの？

>>168
残念ながらコンピューターは二進数、人間は十進数と、扱う体系が違うので、
人間基準で有効数字を操作するとかえって計算が遅くなる

>>152
の言うとおり薀蓄語ってるサイト探した方がいいと思う

有効数字って計算しても意味がない部分を切り捨てるとかどーたらこーたら〜って事でしょ
計算スピードが速くなるのは結果であって直接的には何の意味も無い

>>170
137でAbsを入れろとか、157で底はeだとか言ってるのに自分ではまったく修正してない

>>173
君ほんとに有効数字知ってるの？

>>140が一番シンプル
これをWorkSheetFunctionで呼び出せばいいんでね？

もう解決したみたいだから有効数字はNGワードでいいよね

>>175
例えば1と入れた時1.000にならないんだけど。

くだらない話してないで
おまえらもう寝ろよ。

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

をNGにすればいいのに・・・
ヘルプ見ないし調べないしエラーが発生するたびにしつこく連投してくるし
前スレからずーっと張り付いてるやつじゃないの

プロファイリング
中学校の理科の先生。40代。女性。

>>177
文字列にするか書式にするか

>>180
学生と思ってた。

>>20
有効数字は、指定するモンじゃなく、
体系の中で、決まるもの。
従って、具体的な例がないと、
有効数字は、求められない。

>>183
１行目から４行目までまったく意味がわからない。

Excel2003において、見積書の明細（罫線と見出しだけの入っている表）を必要時に簡単に挿入したいのですが
CAD等である「ブロック挿入」のように、内容を固定させてすぐに組み込めるようにする方法はありませんでしょうか？

現状だと出来上がった見積書の明細の途中の部分に後から挿入する際、非常にめんどいです・・・

CADとか使ったことないから「ブロック挿入」は知らんが
明細を「コピー」して「コピーしたセルの挿入」をするのとは何か違うのか？

表の行数を増やしたいってこと？
行単位でのコピペや挿入は簡単にできるけど、もっと簡単にやりたいならマクロを登録だな

>>185
まず何を何に対して、どのようにしたいのかを
大方の人に理解できるように
説明してください。

>>183
知らない世界に首突っ込むな
ピントの外れた坊やは、おとなしくしてろ

>>185
テンプレ100回嫁

セルを選択して、セルの右下にカーソル？を宛てて、
下方向などに、びーっと伸ばす動作の事を何と呼ぶのですか？
ドラッグ？

数式などをコピーしたいときに、びーっと伸ばす動作です。

>>191
オートフィル

価格表を作っています。
２社で安い方を赤字にしたいのですが、どの関数を使えばいいのでしょうか？


Ａ列　　　Ｂ列　　　Ｃ列
商品１ 価格 価格
商品２ 価格 価格


というような表です。



OS WindowsXP
Excelのバージョン Excel2002
VBAが使えるか いいえ
VBAでの回答 否
検索ワード
Excel 価格 比較表

>>193
関数というか条件付き書式だね

すみません、どなたかお願いします。
生徒のテストの点数一覧表を作っています。
それで、子供たちの取った点数の内で、満点の9割より低い点数の子のセルに、塗りつぶしで色が着くよう設定したいのです。

IF関数で、=IF(子供の点数セル<(満点のセル＊0.9),子供の点数を塗りつぶし,子供の点数セルそのまま)

という感じで、数式はなんとかうまくいったのですが、"真"の部分、塗りつぶしの命令？の入力がよくわかりません。

私の説明が下手かもしれませんが、どなたかお願いします。

条件付き書式

>>194
ありがとうございます。
やってみたんですがうまく反応してくれません。
数式が =B2=MIN($B2,$C2)
とやってみました。
２つの値で小さい方を赤字にという指示はどうすればいいのでしょうか？

>>196さん
ありがとうございます。
ちょっと試してみました、条件付き書式のほうが簡単そうですね！想像してた一覧表が作れそうです、頑張ってみます。
本当にありがとうございました(^-^)v

>>197
試さないで書いちゃうけど2つ値で比較するだけなら
B2=B2<C2
C2=B2>C2
で良くない?

>>197です。
お騒がせしました！
なんとか無事出来ました。
:を,にしてしまっていたので直したら反応してくれました！
本当にありがとうございました(´；ω；`)


>>199さん
ありがとうございます！
試してみます！
簡単なやり方があったんですね。
無知なもので恥ずかしいです。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル ヒストグラム　N/A

#N/Aを含むデータを入力範囲としたヒストグラムを作りたいのですが、どうすれば良いのでしょうか？

同じデータから平均や標準偏差は
=average(if(isna(E2:E1000),"",E2:E1000))
=STDEVP(if(isna(E2:E1000),"",E2:E1000))
↑を入力後、Ctrl キーと Shift キーを押しながら Enter キーを押すと出来たのですが、ヒストグラムでは入力範囲で受け付けてくれず、【入力した参照が正しくないか、また必要な参照が入力されていません。】と表示されます。

よろしくお願いします。

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

読んでみたら分かりにくいところがあったので追記します。
入力範囲で受け付けてくれずとは、平均や標準偏差だと｛｝（半角の？）が式の両側に出るのですが、それが出ないことです。

B列とC列で小さい方に条件付き書式を適用する
=B2=MIN($B2,$C2)

>>203
配列数式は使える関数と使えない関数がある。使えるかどうかはやってみないとわからない。

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

A1・・・A1001にx軸の値が
B1・・・B1001にy軸の値が入っているとします。
このデータをグラフ化したのちに、ガウシアン関数y=a+b*exp(-(x-c)^2/d^2)に対してフィッティングを行い、それぞれの定数を算出及び、その算出されたグラフを上に乗せるということをしたいのですが、
Excel VBAを使ってどのようにすれば良いのでしょうか？

また、ピークが１本ではなく2本ある場合Multipeak Gaussian fittingというものでそれぞれのピークに対してフィッティングすることもできるそうなのですが、できればその方法についても教えて頂けないでしょうか？

自分でひな形くらい作って質問したいところですが、全くどうやって作れば良いのか検討もつかないのでどなたかよろしくお願い致します。

>>206
無理

>>206
数学板行ってその関数についてよく聞いてきた方がいいと思う
フィッティングのうまく行った度合いとかをどう判断するかとかもさ

>>206
・・・
ttp://okwave.jp/qa4545701.html

>>206
教えてGooの方の回答No.2ちゃんと読んだか？
いいこと書いてあるぞ

どれだけマルチしてんだよｗｗｗｗｗｗｗ

質問します
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 オートフィルタ 関数
棒グラフを作ったのですが棒の数が多かったものですから
元データをオートフィルタで絞込みますと見やすいグラフになりました
さてここからが質問なのですが
オートフィルタで何を選んだのかをグラフに(タイトルの横あたりに)表示したいのです
またVBAはよくわかりませんので何か関数での解決はできないでしょうか
調べている時にSUBTOTALという関数が上手くオートフィルタの抽出に対応してくれそうだったのですが
これを使ってできますか？

りんご|青森|100円
みかん|愛媛|40円
りんご|長野|90円
なし|鳥取|120円
ぶどう|長野|200円
みかん|和歌山|60円
こんなのがたくさんある中からりんごを抽出してグラフを作った時に
「果物：りんご」みたいに表示させたいのです

そういう専用の機能があるのかもしれないけど・・・とりあえずマクロでなら出来そう・・・

sheet1のA列に果物の名称があってA列全体にオートフィルタが掛けてあるとして抽出条件を表示したいセルをD1としたとき

D1にツール→入力規則→リスト→元の値=$A:$Aと設定

VBAエディタを開いてsheet1の中に

Private Sub Worksheet_Change(ByVal Target As Range)

Range("A1").AutoFilter Field:=1, Criteria1:=Range("D1").Value

End Sub

と入れれば一応望みのことは可能・・・
A1はオートフィルターのボタンが表示されているセルなのでフィルタの範囲を変えた場合はここを変更して
予想外の動きをしてしまうときはモジュールにして任意で実行をしてもいいし・・・

使うかどうかわからないけど一応マクロ修正してみた

Private Sub Worksheet_Change(ByVal Target As Range)
If targetcell = D1 Then
　If Range("D1").Value="" Then
Selection.AutoFilter Field:=1
Else Range("A1").AutoFilter Field:=1, Criteria1:=Range("D1").Value
End If
End If
End Sub

○ B列に数値が入っている。

○ A列はB列を常に参照するようにしたい。（A1に「=B1」）

○ B列の任意のセルの数値を、同じ行の、C列に移したい。
この時、切り取って貼り付けをすると、この行のA列は、C列を参照してしまう。

ーーーーーーーーーーーー
A1に「=$B1」としてみても、「切り取って貼り付け」をすると、
A1は、[=$C1]となり、C列を参照してしまいます。

B列のセルの数値をC列に移す時に、切り取りでなく、コピーにして、
その後、B列の数値を削除すればよいのですが、
作業が2動作になります。もし、これより短い動作でする方法が
あったら知りたいのですが、ないですよね？

ありがとうございます。
数学版で聞いてみます。

>>215
=INDIRECT("B1")

>>215
少しかぶるけど

=$B1の代わりに
=INDIRECT("B1")か=OFFSET(A1,0,1)を使えば
カットアンドペーストで参照先が動くことはない

>>213-214
ありがとうございます
しかしうまくいきませんでした・・・
入力規則のリストから何を選んでも全データ行が非表示のように見えなくなってしまいます
当方マクロにはかなり疎いために操作を間違えているのかもしれません・・・

> VBAエディタを開いてsheet1の中に
とのことですがAlt+F11でVBAエディタを開いた時にデータ入力できそうな窓がなく
左側にあるツリー表示みたいなところのSheet1のところをダブルクリックしたのですが
そのマクロを貼り付ける場所はここで正しかったでしょうか？

またこのSheet1の各データはいわゆる単純な値ではなくて
よそのシート(データベース貼り付け用)から関数で引っ張ってきて
「りんご」や「青森」、「100円」と表示させているのですが
これがまずかったのでしょうか
(しかしコピーして値貼り付けにしても挙動は変わらずでした・・・)

>>212
フィルタオプションを使えば?

>>217-218
有難うございます！

A列は、A1を下方にドラッグして、数式を複製したいのですが、
INDIRECTではそれが出来なかったので、OFFSETを使う事にします。

>>219
これはひどいな･･･
突っ込みどころ満載にもほどがある
1回も動かさずに貼ったんじゃね？

Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Address = "$D$1" Then
　　If Range("D1").Value = "" Then
　　　Selection.AutoFilter Field:=1
　　　ChartObjects("グラフ 1").Chart.ChartTitle.Text = "価格"
　　Else
　　　Range("A1").AutoFilter Field:=1, Criteria1:=Target.Value
　　　ChartObjects("グラフ 1").Chart.ChartTitle.Text = "価格：" & Target
　　End If
　End If
End Sub

バグ取りしてこんな感じでどうかと改造してみた
「グラフ 1」は実際のグラフ名に変えてくれ
ソース貼る場所はSheet1のところでOK

少し修整
= "価格：" & Target
↓
= "価格：" & Target.Value

お世話になっております。
さっきの続きなのですが、

行方向は、日付となっており、
条件付き書式で、日曜と土曜日の行だけ背景色を青色にしています。

さきほどのOFFSET関数で、
B1を切り取り、C1へ貼り付けしても、
A1はB1を参照することができましたが、
土曜か日曜の場合、B1の背景色がなくなってしまいます。
欲を言えば、切り取る動作をしても、背景色をそのままにしたいのですが、
方法はありますでしょうか。
やっぱり、セルを切り取ってしまうなら、書式も必ず切り取ってしまって、無理でしょうかね。

コピーしてから削除すれば、背景色がなくならないので、これでもよいのですが、
少しでも単純な作業でする方法があれば、それにしたいので。

なんでTargetを使わないでRange("D1")を使うんだろ。

>>220
フィルタオプションについて調べてみましたが・・・
たしかにできそうな気がしましたがこれはちょっと複雑すぎます
後出し情報で申し訳ないのですが完成後社員に配布するものですので
ここまで複雑なものはNGです・・・大変申し訳ありません

>>222-223
すみません、書き換えてみたのですが今度はエラーが出ます
　実行時エラー'1004':
　'ChartObjects'メソッドは失敗しました: '_Worksheet'オブジェクト
と表示され、デバッグボタンを押すと8行目の
　　　ChartObjects("グラフ").Chart.ChartTitle.Text = "価格：" & Target.Value
が黄色く表示されます
マクロはさっぱりなので何がおかしいのかもわからず・・・
聞いてばかりですみませんがどこがおかしいのでしょうか

>>226
ChartObjects("グラフ")
↓
ChartObjects(1)
でもエラーになる？
これでいけるなら"グラフ"という名前が間違えてるんだろうが・・・
グラフが1つならこれでもいいかｗ
他にも自分で気になった部分を修整しとく

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D1")) Is Nothing Then Exit Sub
If Range("D1").Value = "" Then
Selection.AutoFilter Field:=1
ChartObjects(1).Chart.ChartTitle.Text = "価格"
Else
Range("A1").AutoFilter Field:=1, Criteria1:=Range("D1").Value
ChartObjects(1).Chart.ChartTitle.Text = "価格：" & Range("D1").Value
End If
End Sub

ダメですねまったく同じエラー文章と8行目が黄色です・・・
ぶっちゃけグラフのほうには後でセルのリンク表示ができるので
オートフィルタで選んだ言葉がD1なりE1なりに出てくるだけでいいのですが

あとやっぱり元データとなる表をVLOOKUPだとかで作り上げてるのも問題なのでしょうか・・・

>>228
グラフに出す必要はなかったのかｗ
ChartObjects〜
を2行とも削れば解決

>>224
そこまで行くとマクロに頼るしかないな

例えばこんな感じに

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim rg As Range
　If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
　For Each rg In Intersect(Target, Range("B:B")).Cells
　　If Not rg.FormatConditions() Is Nothing Then
　　　rg.FormatConditions.Delete
　　End If
　　rg.FormatConditions.Add Type:=xlExpression, Formula1:= _
　　　"=OR(WEEKDAY($A$" & rg.Row & ")=1,WEEKDAY($A$" & rg.Row & ")=7)"
　　rg.FormatConditions(1).Interior.ColorIndex = 8
　Next rg
End Sub

For Eachで分ける必要はなないかも知れんが念のため入れた

ChartObjects〜を削ってもダメでしたが
なんとかマクロを使わずに作業列などの追加で自己解決いたしました
数々の人にご迷惑をかけ大変申し訳ありませんでした

いえいえ！　
役にたってもらえてうれしいです(≧▽≦)

お前は答えてないだろうが！

Excelのソルバーのアルゴリズムについて教えて下さい｡
これは変数にいろいろな値を代入することで、条件に合ったもっとも最適な値を探すというものですが、
これはモンテカルロを使っているのでしょうか？
詳細なアルゴリズムを教えて下さい｡
よろしくお願い致します。

>>234
ソルバーについてヘルプで調べたのか？
調べたならここにくるはずはないわけだが･･･

エクセル2000
VBA勉強中

VBAでセルAD1(セル結合してます)をコピーして
他のエクセルファイルのセルBC1(セル結合してます)にペーストしたいのですが
セルの大きさが違うと言うエラーがでます
セルAD1の文だけコピーしてセルBCにペーストしたいのですが良い方法無いでしょうか？
解るかた教えてください、お願いします。

range("〜").valueじゃなくてrange("〜").mergearea.valueとすると結合セルを指定できるよ

〜の部分はセルアドレス(A1とかB2とか)を入れるんだよ

>>235
はい、見てみました。
どこに書いてあるのでしょうか？
よろしくお願い致します。

>>235
私も教えて下さい。
どうやってるのか興味がありまして。

Excel2003の場合だけど
ヘルプを「ソルバー」で検索、「ソルバーについて」の項目を開くと使用しているアルゴリズムが書いてある

>>236
もしセルの内容だけコピーできればいいんならコピペじゃなくて普通に代入すればいい
値の代入だけなら結合されてても関係ない
Range("BC")=Workbooks("Book1").WorkSheets("Sheet1").Range("AD1")

>>241
Microsoft Excel のソルバー ツールでは、テキサス州オースティンのテキサス大学の Leon Lasdon 氏とクリーヴランド州立大学の Allan Waren 氏が開発した
GRG2 (Generalized Reduced Gradient) 非線形最適化コードが使用されています。

線形問題と整数問題では、Frontline Systems, Inc. の John Watson 氏と Dan Fylstra 氏が実装した、束縛変数を用いたシンプレックス法と分枝限定法が使用
されています。ソルバーが使用する内部解決プロセスの詳細については、以下の連絡先にお問い合わせください。

調べてみたのですが、非線形用と線形用と整数用の３種類があるということなのですか？
そしれぞれぞれのアルゴリズムが異なるということなのでしょうか？
それと最後の内部解決プロセスというのはいきなり出てきているのですが、
シンプレックス法と分枝限定法とどういう関係にあるのでしょうか？
よろしくお願い致します。

以下の連絡先ってのに問い合わせたほうが確かな答えが返ってくると思う
ここに居るのは自己満足で回答する奴だけだから
そういう画一的で自分を出せない回答は誰もしたがらない

したがらないっていうか「出来ない」だろうな。
数学板とかで聞いた方がいいと思う。

>>237>>238>>242
どうもありがとうございます、色々解決出来そうです。

SUMIFとか配列数式の時は威勢がいいくせにソルバーの話題には食いつき悪いなあ。

ここをなんだと思ってるんだｗ
雑談したいなら余所に行けと

じゃあ流れをぶった切って質問だ
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
棒グラフを作ったんだがひとつ表示に納得がいかない
実績と挙績とその進捗率の数字を使った集合縦棒とかいうシンプルなやつなんだが
進捗率の数字を挙績の棒のてっぺんに表示させたいんだ＜挙績の値が普通に出せる位置に
もちろんひとつひとつドラッグで動かすことはできるんだが
できれば設定か何かで自動的にてっぺんに乗るようにしたいんだ
よろしく！

おれなんか3、４年前は配列数式の回答がしたくて自分で質問して答えてたｗ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ(勉強中)
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel VBA 変数 利用 使い方

例えばですが、=COUNTIF(A1:A100)という式があります。
式を使って集計するにあたって、集計の度に範囲を変えたい。

今回は=COUNTIF(A1:A150)、次回は=COUNTIF(A1:A200)
この、Aの後ろの150や、200に変数を利用したい。
例えばB1セルに数値を入力し、その数値をAの後ろの数値に代入する、
というようなことがしたいのです。

VBやらCなら簡単なことだと思うのですが、ExcelにからむVBAとなったとたん
実現方法がわかりません。Cは配列ぐらいまでは勉強して、ポインタで頭が沸騰した
程度の知識なので、単純に知識不足かもしれませんが…。

もし実現可能ならご教授頂けますでしょうか。

これができればExcel活用の幅が広がるかなと思っております。

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

>>251
関数でいいなら
=COUNTIF(INDIRECT("A1:A"&B1),"")

>>251
Sub a()
Dim i As String
i = Range("b1").Value
Range("A1").Formula = "=COUNTIF(a1:a" & i & ")"
End Sub

i = Range("b1").Valueの部分はinputboxなんかに変えたほうが使いやすいかもね

循環参照になってしまった
Range("A1").Formula =のA1の部分はテキトーに変えて使ってね

>>251
=COUNTIF(INDIRECT("A1:A"&B1),検索条件)

【1 OSの種類 　 　 　 　 .】 Window2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】関数　入れ子　短縮
ifのネストを短く書きたいと思っています。

例として、vlookupを使い、N/Aエラーが出たときは別のもの(あああ、という文字列とします)
を表示しようと思っています。
第四引数はFALSE固定です。

この条件のとき、
=vlookup(A1,A2:D10,2,0)
という式は
=if(iserror(vlookup(A1,A2:D10,2,0))=true,"あああ",vlookup(A1,A2:D10,2,0))
のように書けば目的どおりの動きをするのですが、
もう少し短くまとめる記述の仕方はないでしょうか?

とりあえずiserror(〜〜)のあとに「=true」はなくてもいい

sage忘れｽﾏｿ
ついでに誰か>>249に答えてくれないか

2007にアップしてIFERROR

使っていないセル(仮にB1)に
=vlookup(A1,A2:D10,2,0)
としてから
=if(iserror(B1),"あああ",B1)
とかやってみるのは？

A2:D10に名前を定義する
vlookupを作業列でやる

IFの条件と結果にVLOOKUPを入れるのはいやだ
条件見るのにVLOOKUP、結果返すのにVLOOKUPと負荷が2倍になると思ってるから

>>257
確かに!ありがとうございます。ずっと気づかず=TRUE入れてました
>>259
今のところ入れる予定はありませんが、あるとすごく便利そうですね
>>260-261
ありがとうございます。試してみます
>>261すごく同意見です。それに、式自体も非常に長くなるんですよね・・

皆様お答え頂きありがとうございました。
お答頂きました、関数を使用するINDIRECTをひとまず使用させて頂き、
やりたかった動作を実現できました。
しかし、ひとつ問題が発生しました。

=IF(INDIRECT($C$4&"○○店データ.csv!$P12")="","",IF(ISERROR(VLOOKUP(INDIRECT($C$4&"○○店データ.csv!$P12"),INDIRECT("旧"&$C$4&"○○店データ.csv!$A$1:$A$1800"),1,0)),"新規会員",
((VLOOKUP(INDIRECT($C$4&"○○店データ.csv!$P12"),INDIRECT("旧"&$C$4&"○○店データ.csv!$A$1:$A$1800"),1,0)))))

これだけでは非常にわかりにくく申し訳ないのですが、上記のようにINDIRECTを組み込み、
予定していた動作を実現させることができました。

これは、「○○店データ」というデータから「旧○○店データ」のデータを検索し、見つかればそのデータを表示、
見つからなければ「新規会員」と表示する式になっております。
○○店データの1行目のデータが旧○○店データのすべての中にないかどうか、次に
○○店データの2行目のデータが旧○○店データのすべての中にないかどうか、
対応づけてデータを表示させていきます。

どんな問題がおきたかといいますと、INDIRECTを用いファイル名を指定
できるようになったのはいいのですが、文字列として組み込まれたため、
INDIRECT($C$4&"A.csv!$P12")左記の$P12の部分がオートフィルで動作してくれません。
全ての行に手動で13、14、と変更すれば対処できますが、2000行程度あるので
とても厳しい作業になります。

何か良い対応方法はございますでしょうか。

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

１つのシート上に２つのグラフを載せたいのですが、１つ目のグラフ（折れ線）を完成したあと２つ目のグラフ（円）を作ると何故か１つ目のに上書きされて消えてしまいます。どうやれば出来るのでしょうか？

>>263
INDIRECT($C$4&"A.csv!$P12")
↑が2行目にあるとして
INDIRECT($C$4&"A.csv!$P"&(ROW()+10))
とすればオートフィルでもいけるようにならなくもない

>>264
円グラフをドラッグ

>>258
設定でグラフ内に表示できるのは値とタイトルとラベルだけ。
VBA使え。

266さんありがとうございます(＾＾)
ドラッグで出来ました。

いえいえ！　
お役にたててうれしいです(≧▽≦)

>>267
そ、そうなのか・・・
VBAは難しいから諦めるよ・・・ありがとう

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

スクロールマウスを使っているのですが、ちょっと設定に苦労しています。
OSのマウス設定について、ブラウザに合わせるとエクセルのスクロールが早すぎます。
エクセルに合わせるとブラウザのスクロールが遅すぎます。
これを解決するうまい方法はありませんでしょうか？

vbvb

>>271
WindowsやOfficeの設定では無理なので何らかのフリーウェアを使う。
ソフト板へ。

>>273
ありがとうございました

ここのスレに常駐でしている人ってどういう人ですか？
フリーターか何かですか？
それともベンチャー立ち上げた若い兄ちゃんですか？
全く年齢層を読み取ることができないのですが・・・

自宅警備員(夜勤)です

テンプレ使わない質問には答えない

>>275
昼間でもネットで遊べる事務員(♂)
例え見つかっても「エクセルの勉強中です><」で済むからいいことづくしだぜ
実際に仕事にも役立ってるｼﾅ

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

入力した文字によって背景色を変えたくて色々調べていたら条件付き
書式で出来たのですが４つまででした。それで検索したら下記のリンク
にある VBA が見つかり実験してみたら B 列に文字を「田中」「阿部」
などと入れると文字色が変わるのを確認しました。
そこで質問なんですが、私の場合は文字色を変えるのではなく背景色を
変えたいと思ってます。それと B 列だけではなく E H K 列も同じように
背景色を変えたいです。この VBA をどのように変更したらそのような
事が出来るのでしょうか。

4色以上の条件付き書式
http://www4.ocn.ne.jp/~yy3/Sub33.html

土曜日なのに仕事なの？

>>275
半年前に会社を辞めたニート

書き忘れ

>>279
RR.Font.ColorIndex　→　RR.Interior.ColorIndex
範囲には気をつけよう！

>>282
ありがとうございます。教えて貰った場所を書き換えたら文字色じゃなく背景色が
変わるのを確認しました。あと、これを E 列だけじゃなく E H K も同じように文字に
よって背景色を変えるようにするにはどうしたらいいでしょうか。

>>279
For Each…

こんな最悪ソースやめとけ

>>284
ソースの善し悪しは私には分からないのですが実現出来る例がありましたら
ぜひお教えください。

>>284
横から割り込みで気は引けるが、
釣りか?
釣りでないなら、おまいがコードアップしてみwww

Range(Range("B1"), 以下略 )
↑
まあ、間違いじゃないけど……
おかしいと思わんか？

そうゆう意味で!? orz
折れはFor each文を使ってることで何か言っているのかと思ったよorz
むしろ、この文の方が見る機会は少ないけど、この人(279)にとってもいいと思う。
>>279
Set LastCell = Range("B" & Rows.Count).End(xlUp)
For Each RR In Range(Range("B1"), LastCell)
範囲指定文の書き方をこの際、勉強して試してみるといい。
やりたいことは直ぐに出来、貴方なら、すぐそばにあるはず。
例えば、Range("E:E,H:H,K:K")

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


グラフの縦棒-集合棒グラフで、x軸一つに対して２種類のデータを並べたとき、
この２つのデータが同じくらいのオーダーであれば、同じy軸を共有すれば良いのですが、
1桁、２桁くらい離れていると同じ軸では見にくいため、軸を分けます。
すると２つの棒グラフは同じ位置に重なるため、小さい方が隠れてしまって極めて見づらいのですが、
これを位置をx軸方向に位置をずらして見やすくするにはどうしたら良いのでしょうか？
もちろんy軸の範囲を500〜-500、500〜-50みたいにずらしてやれば重ならないのですが、
どうしても見づらいため良い方法がありましたら教えて下さい。
よろしくお願い致します。

すいません、棒の重なりという項目がオプション画面に見つかりました。
でもこの値を-100とか+100にいじっても何も変化しないようなのですが、
棒の間隔のほうはちゃんと機能しているんですが・・・

こんばんは。
初歩的な質問かもしれませんが、
皆さんの広い心でカバー出来るものと存じます。
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003

Excelを使って表を作り、印刷プレビューで確認したのですが
表が左側に、よってしまいました。
表を中央に配置するにはどうすればよいでしょうか？

よろしくお願いします。

ページ設定の余白タブで水平・垂直の中央配置を有効にする

>>292さんありがとうございました。

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

Excelで一つのブックが所持できる最大シート数を教えて下さい。
よろしくお願い致します。

【1 OSの種類 　 　 　 　 .】 WindowsXP HE
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 折れ線グラフ　凡例　固定したい　線

自分が設定・変更した折れ線グラフの線の形・色を
別のグラフでも固定値として使用したいのですが、なにか方法はないでしょうか。
（具体的には、商品売上数ランキングのグラフで、
月ごとに順位は入れ替わるが同一商品ごとに常に同じグラフの線の形・色を使用したいです）
今は系列が更新されるたびに線の形・色が変わってしまうので
ひとつひとつ手作業で直していて、もっと手間の少ない方法があればと思い質問させて頂きました。
※図も添えさせて頂きます（ヘタクソですいません）http://kjm.kir.jp/pc/?p=67020.jpg

どうか宜しくお願いいたします。

>>294
256

>>290
それは気のせい。ちゃんと重ねたり並べたり自由に設定できる

>>297
y軸を共有した状態ではできるのですが分けた状態では
どうしてもできません。

>>286
言葉足らずですまん
For Eachが悪いって言ってんじゃなくて、
For Each RR In Range(Range("B1"), LastCell)で
変更もしてないセルまで全部塗りなおすのが無意味だろと思ったんだ

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim RR As Range
　　Dim R As Range

　　Set RR = Intersect(Target, Range("E:E,H:H,K:K"))

　　If RR Is Nothing Then
　　　　Exit Sub
　　End If

　　For Each R In RR
　　　　Select Case RR.Value
　　　　　　Case "田中"
　　　　　　　　R.Interior.ColorIndex = 3
　　　　　　Case "阿部"
　　　　　　　　R.Interior.ColorIndex = 5
　　　　　　Case "細越"
　　　　　　　　R.Interior.ColorIndex = 4
　　　　　　Case "山田"
　　　　　　　　R.Interior.ColorIndex = 46
　　　　　　Case "藤井"
　　　　　　　　R.Interior.ColorIndex = 29
　　　　End Select
　　Next R
End Sub

>>294
環境依存(主に物理メモリ)

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

メールアドレスから＠より左側（ツマリアカウント）を隣の行に出力させたいのですが、どのような関数を書けばいいですか?

=LEFT((A14),LEN(A14)-SEARCH("@",A14,2))
までできました。

=LEFT(A14,SEARCH("@",A14)-1)
じゃダメなの

>>301
データ-区切り位置じゃダメなのか?

>>302
>>303

ありがとうございました、できました。感謝しております。

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


家計簿をつけているのですが、 集計が上手くいきません。

たとえば、A列で交際費・交通費等の科目、B列でその値段、C列で費用を使った個人名、
という感じで記録していますが、
例として、田中が使った交際費（A列が交際費、C列が田中）を抜き出して、
その条件でのB列の値段の合計を出すにはどうすれば良いでしょうか？

A列で交際費、C列で田中、でオートフィルタをかけてB列の数字をSUMで
足しこむ方法で今までやっておりましたが、データが膨大で手間がかかり
すぎてしまうので、関数で解決できる方法はないものかと悩んでおります。

よろしくお願いします。

>>305
=SUMIFS(B1:B20, A1:A20, "=交際費", C1:C20, "=田中")

家計簿なのに田中？
いったい何世帯で同居してるんだろう

>>306
ありがとうございます！
さっそくやってみます。

>>305
集計したい項目が確定してるならsumif,sumproductとか
その時々で集計項目が変動とか集計表作るまでもないとかならオートフィルタとsubtotalというやり方も
こっちはフィルタ掛けたあと集計したい範囲を指定して�買{タン押すだけ

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

文字を逆さに表示する方法ってありますか？
書式の設定で文字を90度までなら動かせるのですが
180度回転させることはできますか？
よろしくおねがいします。

>>306
できました！
本当にありがとう。

>>307
家計簿っていうか、個人事業の経理です。
今年から始めたばかりの事業なので、わからないことだらけです・・・

>>310
Ctrl＋Alt＋↓

>>299
どこかで最近Target使わないやつがいたが、そのサイトの人と同じ人かもね。
回答者ももっと基本を勉強しないとね。
俺もだけど。

>>288
ありがとうございます。サイトに書いてあった例では B 列しか反映しないので B
と書いてあるあたりが範囲指定の場所だろうというのはわかるのですが具体的に
どうすればいいかが分かりませんでした。参考に書いてある部分と範囲指定の
方法を勉強します。

>>299
ありがとうございます。今はなぜそうなるかは分からないレベルですが今回はこれを
使わせてもらってゆっくり覚えていこうと思います。

>>305
帳簿か
http://www.google.com/search?client=opera&rls=ja&q=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB+%E5%AE%B6%E8%A8%88%E7%B0%BF&sourceid=opera&ie=utf-8&oe=utf-8
作るより拾ったほうが早いよ
>>310
>>312の回答がよく分からないや
ごく一部だけならワードアート作って回転させると早いかも

>>314
マルチ先も解決済みにしとけよ
ttp://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200812/08120058.txt

どこで聞いたらいいか分からないので、ここで質問させていただきます。
KingSoftについてですけど、シートを開いても一番下のタスクバーに一番手前のものしか
表示されなくて困っています。
どなたか複数表示させる方法わかる方いらっしゃいませんか？
また、間違えて画面を閉じてしまった場合、編集状態になってても「保存しますか？」と出てこないでの困ってます。

教えて下さい、よろしくお願いします。

>>315
たしかインテルチップセットのグラフィックドライバに画面を回転させるショートカットがあるから・・・

もう1個質問追加で・・・
Excel2007についてですが、「WEBページとして保存」のブラウザはどこにあるのでしょうか？
よろしくお願いします

>>315
312はExcelと関係ない。インテルのチップセット使ったマシンで画面全体を上下逆にする方法。
初心者向きの質問スレでよく書き込まれるイタズラ。

>>319
ブラウザってのはインターネットエクスプローラのこと。

>>321
ごめんなさい、メニューバーでした

メニューバーじゃなくてメニューじゃねーの
2007の見た目を2003に戻すソフト使ったほうがいいよ
多分当分何がどこにあるか分からないと思う
>>320
そういう意味か、イタズラはほどほどに><
VBAでやってみたけどセル内の文字を上下逆にはできそうにないな
変則的な解決方法としては全体を90度にして、さかさまにしたい部分だけを-90度にすれば解決できるがかなりおすすめできない
http://okwave.jp/qa3097737.html
http://oshiete1.goo.ne.jp/qa2023712.html

>>323
ありがとうございます
どこにそのソフトがあるのでしょうか？
試用版でもできますか？

文字を拡張メタファイルに変換すれば変形も回転も自由自在だけど、
XPの画面上では他の文字と違って見えるのが欠点か。
印刷した物は違和感ないんだけどねえ。
あと数式にも使えないし。

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


セルA1〜D1001にいろいろな数値がはいっているとします。
これらのセルの数値にそれぞれの別の0.1〜0.0001までランダム数字を足し算したいのですが、
どうすれば手っ取り早くできるでしょうか？


C2セルに=B2みたいな関連づけが入っているとします。
その状態でB2のセルを移動させるとC2セルの内容も合わせて、その移動先のセルに変更されるのですが、
これを変更されないようにするためにはどうしたら良いのでしょうか？
$B$2みたいにすればされないと思うのですが、これ以外に方法がありましたら教えて下さい。
何卒よろしくお願い致します。

>>326
形式を選択して貼り付け→加算

=INDIRECT("B2")
=OFFSET(B2,0,0)

>>295にもどなたか救いの手を…つД｀）

>>327
一つ目の質問なのですが、
例えば2が入っているセルにRAND()を形式を選択して貼り付け→加算 すると
=2+(RAND())になってしまいます。
それではなく数式のかたちではなく2.12379みたいに数値を違うものに変えたいのですが、


２つ目の質問なのですが、
=INDIRECT("B2") だと動かないようなのですが、=B2という数式を変えることなく
移動することはできないのでしょうか？
何卒よろしくお願い致します。

きましたね宿題君

>何卒よろしくお願い致します。

>>324
ttp://www.google.com/search?client=opera&rls=ja&q=2003+%E3%83%A1%E3%83%8B%E3%83%A5%E3%83%BC%E3%83%90%E3%83%BC&sourceid=opera&ie=utf-8&oe=utf-8
2007はもってないのでどれがいいかまではわからん
>>328
まずコピーして、
右クリック→場所で範囲変えればいいんじゃないの

>>329
一つ目
足す数字がランダムなら、元の数字はなんだって関係ないじゃん。最初からランダムな数字を入れとけば

二つ目
数式バーをコピペ

>>329
とりあえずさ
1から100まで何をやりたいか先に書いてちょうだい
質問の小出しするなら答える気はない

>>328
VBAで書式をコピーとか
いっそのこと好みの形式でグラフを作るマクロを作っとくとか

>>329
応用力のないやつだな
もう一回形式を選択して貼り付けで値

先輩方、よろしくお願いいたします。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 並び替え、交互、ピボット、マクロ、関数

部品番号　　納入場所コード　　組み合わせコード　　納入時間
831-AA 03AA A 09:00
831-BB 03DD B 10:00
644-DF 03AW A 07:00
645-DE 03BW B 07:00

の、並び替えで。。。。
1-納入時間　（昇順）
2-組み合わせ（交互・・・A,B,A,B,・・・・）
3-部品番号（昇順）

上記のように、一部だけ交互並びと言うのは可能ですが？

ずれているので、修正

部品番号　　　納入場所　　　組合せ　　　納入時間　
８３１−ＡＡ　　０３ＡＡ　　　　　Ａ　　　　　　　０７：００

>>336
条件が3つ書いてあるけど、それは並べ換えの優先順位？

＜肛門体操＞

毎日、入浴の際や排便後に、
肛門を上に引き上げるような感じで、ギュッとすぼめます。
すぼめた状態を10秒ほどキープしてから、
その後力を抜いてゆるめた状態を10秒。
これを10回ぐらい繰り返します。

数ヶ月ぐらい行うと、肛門括約筋が鍛えられ、
便のゆるみなどの症状が改善されるそうです。

そして、デスクワーク等で、肛門がうっ血しやすい方の、
うっ血防止にも役立ちますので、ぜひお試しくださいませ。

これでいいのか

>>336
イマイチ分からないけど
その四列を選択した後、右クリックでデータの並べ替え
でいけそう?

>>338
優先順です。

一番目が納入時間
二番目が組合せ（交互）
三番目が部品番号

最低、交互の方法だけでも分かれば。。。。もし分かるようでしたら
ぜひ、教えてください。

>>341
まず昇順でソートしたあと、組み合わせがAなら作業列に奇数、Bなら偶数の連番を入れて
こんどは納入時間、作業列、部品番号を指定してもう一度ソート

どなたか>>317>>319>>324答えて下さる方いませんか？；；

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

勤務時間の計算をしています。

始業　　終業　　拘束　　実働　　深夜就業(22:00以降）
19:00　 23:30　　 4:30　　4:30　　　1:30
16:00　 26:00　　10:00　 10:00　　 4:00

実働時間のセルには、拘束時間が8:00以上の場合には
休憩時間1:00を引いた時間が出るようにしたいのです。
拘束時間が8:00以下の場合は、そのままの拘束時間を出します。

また、深夜就業（22:00以降に働いた時間）を出す方法も
できましたらお願い致します。

>>343
Kingsoftはスレ違い

>>343
素直に下のスレで聞けばいいのに
http://pc11.2ch.net/test/read.cgi/bsoft/1203176678/

あと>>331の回答ではお話しにならないということであれば
がんばって2007に慣れるしかないね
今後2007のインターフェースが定番になるのであれば
いずれ通る道なんだから

>>344
始業=A列、終業=B列 以下略、として
D2=C2-(C2>=8/24)/24
E2=IF(B2>22/24,B2-22/24)

>>342
OKです！
ありがとう。

なるほど、別の要素を付加してsortすればいいということですね。
お世話様でした。

>>346>>345
聞いてみます

あと、2007での「WEBページとして保存」の場所のみ教えてください

>>347
できました！
時間を表現するのって、○/24でいいんですね・・・
(8,0,0)とかやってました。無知だなぁ、自分。

どうもありがとうございました！

>>349
名前を付けて保存→その他の形式

officeボタン(左上の丸いやつ)-名前を付けて保存じゃなくてワンボタンでやりたいの?
ユーザー設定の中簡単に見たけど見つからないから・・・判らない

エクセル
20081210071200
なデータを
7：12
って時間変数に変換するには？

>>353
MID関数で切り出してTIME関数に入れる

おｋやってみる

>>353
=DATEVALUE(TEXT(A1,"0000!/00!/00 00!:00!:00"))
で、表示形式をh:mm

さんきゅ
=TEXT(MID(A13,9,4),"0!:00")

祝！！解決！！

TIME関数は使い方がわかんなかった。

>>356
それでやるなら
DATEVALUE ではなく
TIMEVALUE だろ

>>351
ありがとうございました

>>357
それだと文字列になっちゃう。時刻を表す数値にするなら
=TIME(MID(A1,9,2),MID(A1,11,2),0)

グラフタイトルに参照って使えない？？

>>361
なるほど。やってみるお

>>362
(1) グラフのタイトルをクリック
(2) 数式バーに「=」を入力
(3) タイトルの入ったセルをクリックしてEnter

記号の「・」(中点、というのでしょうか)についてですが、
みなさんは半角と全角どちらを使ってますか?
それとも気にしてないでしょうか

それは全角。

変換された方。特に気にしてないかな
統一する必要があるなら置換すりゃいいし

case by case

Excel2000を使用していますが、入力規則のリストの先頭や最後に空白（ブランク）の選択肢を
設けたいのですが、カンマで区切ったりしても空白の選択肢が出来ません。
リストの中に空白を入れるにはどうしたら良いんでしょうか？

Excel2003を使用してます。

印刷しようとすると文字が途中で切られた感じで、上半分(下半分)しか印刷されなかったり、
セルの中の文字が3行分あるのに、
2行分しか印刷されず、文章が途中になってしまったりします。

どのように対処したらいいでしょうか？よろしくお願いします。

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

一定の大きさの容器に、縦Xセンチ×横Yセンチの箱（サイズはその都度変わります）が
最大何個入るかを求める方法はありますか？

箱を重ねることはありませんので縦横のサイズのみで計算できると思うのですが、
容器になるべくたくさん入れたいので、向きを縦にしたり横にしたりして詰められる最大数を求めたいので、
やり方がわからなくて悩んでます。

1つの容器に詰める箱のサイズは一定なのですが、その箱のサイズが毎回変わるので、
縦と横のサイズだけを入力して最大数を求めるやり方があればどうか教えてください。

>>369
直接書くのではなく=A1:A2とかさんしょうにしてみる

Excel2002,VBA×です。よろしくお願いします。

A列に日付が入っていて、
B列ではA列を参照して曜日(書式設定でaaa)を表示しています。

�@B列で土曜を青、日曜を赤に色づけしたいのですが、
　条件付書式で
　「セルの値」が「次の値に等しい」=「"土"」としても色がつきません。
　どのように設定すればよいでしょうか？

�AABCD列でそれぞれ、B列の曜日を参照して、
　土日の行を条件付書式で背景色を青や赤に変えることはできますか？

>>373
＞�@どのように設定すればよいでしょうか？
B列を=TEXT(A1,"aaa")

＞�A土日の行を条件付書式で背景色を青や赤に変えることはできますか？
できる。ヒント「数式が」「相対参照」

「数式が」=$C3="土"
こんな感じでいけました！ ありがとうございます。

もうひとつだけ、「土か日のとき背景色を赤くしたい」場合
「数式が」=$C3="土"
「数式が」=$C3="日"
のふたつの設定を1行で済ませることはできますか？

>>371
それは「ナップサック問題」と言って、スーパーコンピュータを使っても
答えが出るまでに何百年もかかったりする。詳しくは「NP完全」でぐぐれ。

もっと具体的に容器と箱の大きさを限定すればなんとかなるかもしれないが、
どちらかと言うと数学板向きの問題だな。

>>370
セルを広げる

>>375
「数式が」=OR($C3="土",$C3="日")

ありがとう、できましたー！
ORの位置を根本的に間違っていました。

>>371 全部同じ向きに並べるものとする。
　 　 Ａ　 　 　 Ｂ　 　 　 　 Ｃ
1　 　 　 　　 容器タテ　 容器ヨコ
2　箱ｘ　=INT(B$1/$A2)　…
3　箱ｙ　 　 …　 　 　 　 　…
4　箱ｚ　 　 …　 　 　 　 　…

容器タテヨコ、箱ｘｙｚには具体的数値を入れる。
…の部分は数式をコピー
最大数は =MAX(B2*C3,B2*C4,B3*C2,B3*C4,B4*C2,B4*C3)

>>377
レスありがとうございます。

セルの大きさを必要十分にするためにはどうすればいいでしょうか？
大きさがあっていないセルがたくさんあるので、
一挙に適切な大きさにしたいのですが、可能でしょうか？

>>381
不可能。
印刷した結果を見ながら手作業で一つずつ調整するしかない。

>>370 >>381
前スレで似たような質問をして教えてもらった者ですが
１．目的の行をすべてドラッグして選択、
　　選択した中のどれか適当な行番号の間（たとえば行番号１と２の間）をWクリック

２．目的の列をすべてドラッグして選択、
　　選択した中のどれか適当な列番号の間（たとえば列番号AとBの間）をWクリック

３．もともとのセル内容によってはやたらと幅広い行/列ができたりするので
　　適当に縮めたりのばしたり

でもこれを印刷プレビューで見てぎりぎり入ってるように見えても
印刷すると文末が切れているセルも出てくる。
Excelは表計算ソフトなのであってテキスト編集にはむかない、
そういうものなのだと思っています。

自分は手順３の後で、表全体をコピーしてWordに貼り付けて整形し印刷します。
370の書類の内容に合うかはわかりませんが・・・

>>380
371が欲しいのは例えば
10×11のサイズの箱に2×5のものを最大何個詰め込めるか
だと思うんだが
それで求められるか？
ちなみに例の正解は11個
バカなのでこれを箱のサイズ可変で求めるのは難しいわ

>>381
そもそも何故そうなったのかが少し気になるが･･･
すべて選択して
[書式]→[行]→[自動調整]もしくは行の境界線をダブルクリック
[書式]→[列]→[選択範囲に合わせる]もしくは列の境界線をダブルクリック

これで思い通りにならないなら諦めて手作業かVBAになる
もしかしたらフォントを｢MS ゴシック｣にするだけでもいいかも知れん


っとかぶってても気にしないで書き込むやつ

皆さんレスありがとうございました。
ややこしい書き方だったようですみません。
384さんの仰る通り、定型の容器の中に同じ大きさの箱が最大何個入るか、を求める式です。

例えば、
底面のサイズが縦30cm×横50cmの容器Aに箱Bが何個入るかを求めたいのですが、箱Bの底面のサイズは今週は縦5cm×横7ｃｍ、翌週には縦4cm×横6cmという風に毎週変わります。
ケーキのような柔らかい物なので、2段に積み重ねて入れたりすることはないのですが、
容器Aに入るだけ入れるために、一定の向きではなく、隙間があれば横向きに入れたりもします。
そのやり方で入る最大数を求めたいのです。

毎週末に翌週使う容器の仕入れ数を決めるために箱の数を計算しないといけないんですが、計算方法がわからないので今は1/10のサイズに紙を切って組み合わせて数えたりしてます。
それが面倒なので、Excelで何とかできないかと思ったんです・・。

具体例を書かなかったのでややこしくなってすみません。

この場合、ナップサック問題と言うのに当たるのでしょうか？
もし良いやり方があればぜひご教示ください。
無理なら諦めます。
お騒がせしてすみません。

>>385
平面充填問題ってのは一般化がとても難しく、片手間のプログラムで解けるようなもんじゃない。
容器と箱の組み合わせが数種類に限定されるなら解けないこともないけど、
ぶっちゃけ、紙をならべて自分で考えた方が早い。

コンピューターを使った方がいいのは、容器に入る箱の数が数十個程度までで、箱の種類が
何百もあるような場合。

数式で求める方法は思いつかないけど
行の高さ:13.5
列の幅:2
で方眼紙みたいになるからこれで数えるのはだめ？
紙でやるよりは幾分かましじゃないかと思うけど

数学板の賢い人たちならいい方法を思いつくかも知れんが･･･

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

VBAの記述で
「a」がエラーだったらという記述はどのようになるのでしょうか。
If a = Error(2042) Then など

>>388
シート上で出るのと同じものを判定したいならワークシート関数のISERRやISNAとか
例外処理なら「On Error GoTo」とかで検索してみ

>>388
If IsError(a) Then

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

>>385 それくらいなら縦か横に並べるしかないから
縦１列残り横に並べた時、縦２列残り横に…という
表を作っておけば良いと思うよ。

B1：容器タテ寸法　 　 D1：箱タテ寸法
B2：容器ヨコ寸法　 　 D2：箱ヨコ寸法　とする。
　 　 　A　 　 　 　 B　 　 　 　 　 C　 　 　 　 D　 　 　 　 　E
3　 タテ列数　 　タテ数　 　 ヨコ列数　 　 ヨコ数　 　 　合計 　 　 　 　
4　 　 　0　 　 　 　式�@　 　 　 式�A　 　 　 式�B　 　 　 式�C　 　
5　 　 　1
6　 　 　2
7　 　 　3
…　 　 …

式�@　=IF(D$2*A4>B$2,0,INT(B$1/D$1)*A4)
式�A　=IF(D$2*A4>B$2,0,INT((B$2-A4*D$2)/D$1))
式�B　=INT(B$1/D$2)*C4
式�C　=B4+D4
必要なだけ下へコピー

>>392　それでもダメなんだよな

>>371
数学板で式を作ってもらってきな、
その式をエクセルでどうやるか、
これだったら解る人いるかもしれない。

パズル板でもいいかもしれないな

決まったブロックで平面を埋める問題は大学でやったけどめちゃめちゃ大変だった。
当時はCPUクロックがわずか10MHzだったし、すべてアセンブラだけでプログラムを書いて、
それでも計算開始から答えが出るまで2週間ぐらいかかった。
いっぺん途中でブレーカーが落ちて泣いてから、途中経過を自動で保存するプログラムも追加した。

>385
単純な考えかもしれないけど、下の方法でダメな場合があるんでしょうか？
　　　　Ａ　　　　　　　Ｂ　　　　　　Ｃ
１　容器縦寸法　　　サイズを入れる　=B2
２　容器横寸法　　　　　　同上　　　=B1
３　箱縦寸法　　　　　　　同上　　　=B3
４　箱横寸法　　　　　　　同上　　　=B4
５
６　縦個数　　　　　=INT(B3/B1)　　 =INT(C3/C1)
７　横個数　　　　　=INT(B4/B2)　　 =INT(C4/C2)
８　縦余　　　　　　=B3-B1*B6　　　 =C3-C1*C6
９　横余　　　　　　=B4-B2*B7　　　 =C4-C2*C7
10　縦余/箱横寸法　 =INT(B8/B2)　　 =INT(C8/C2)
11　横余/箱縦寸法　 =INT(B9/B3)　　 =INT(C9/C3)
12　余部分収納数　　=B10*B11　　　　=B10*C11
13　
14　全体収納数　　　=B6*B7+B12　　　=C6*C7+C12

パラメータを入れるのはＢ１：Ｂ４です。
Ｂ列とＣ列の違いは容器の向きを変えた場合の収納数を計算するためです。

事務机の上にハガキを横向き(どちらも作業者側から見ると横長)に並べることを
想像してみてください。
左上端から並べていけば右側と下(手前)側が余りますね。余った右側にハガキを
縦長方向で並べることができるかもしれません。そこらへんを10行目と11行目で
やってます。

ここまで書いて>395さんの書き込みを見てみましたが、数学的に厳密な最大値
云々の並べ方はジグソーパズルのように縦、横とか複雑に並べるということで
しょうから、そうなると最大何個並べられるという数字だけではなく、並べ方
をグラフィックで示さないといけなくなるけど、そういう「大層な」問題では
ないと思うんですが。

大事なことを忘れてた。
収納数はB14とC14に表示されるので、どちらか大きい方を採用してください。

もうひとつＣ１２の計算式は=C10*C11です。

質問がもっと具体的なら効率のいいやり方も思い付くだろうけど、
はっきり言って条件があいまいすぎる。
これだと問題を一般化してどんな条件でも解けるように考えるしかない。

容器の大きさと箱の大きさを思い付く限り全部書いて欲しい。

>>392
容器縦寸法 1 3
容器横寸法 3 1
箱縦寸法 7 7
箱横寸法 4 4
だとうまくいかない
正解は9だが7か8になる

それに大量にある場合、入れ方分からなきゃ意味ないし
もうこれは人がやったほうが早いって結論はずっと前に出てるんだよ・・

遅レスすいません
>>331
右クリック→場所で範囲変更ですね。
今帰宅したので明日会社でやってみます。
>>328
VBAもマクロもさっぱりのド初心者なので…
せっかくアドバイス頂いたのにすいません。

お二人ともありがとうございました！
明日チャレンジしてみます。

>400
容器の投影面積：１３×３１＝　４０３
箱の投影面積：　７７×４４＝３３８８
３３８８／４０３＝８．４０６９・・・・
なので正解が９はあり得ませんが？

ただ、このパラメータで計算すると>396の表では５と６になる。
エクセルの図形でやってみたら７個はいる。余りの部分が変だ、
表がなんかおかしかった。作り直してみます。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 95%信頼区間

Excelで95%信頼区間を求めるためにはどうしたら良いのでしょうか？
よろしくお願い致します。

容器に入る箱数の質問をした者です。
たくさんの回答ありがとうございました。

ややこしい質問ですみません。
箱Bのサイズは一応長方形とは決まってるんですが、サイズが本当にまちまちで
数パターンに絞るのも難しいんです。

でも皆さんにいただいたご意見を元に、少しでも効率良くできないか考えてみます。
社内に相談できる人もいないので、いろんなご意見いただけるだけでもとても助かりました。
本当にありがとうございました！

>402の続きです。
自分で「右側と下側が余る」と書いていながら、表ではごっちゃになってしまった。
それから箱と容器もごっちゃになっていた。
↓のようにすると>400さんのパラメータでＢ列、Ｃ列とも７になります。
面積比は８．４０６９・・・だけど８個はどうやっても無理だと思う。

　　　　Ａ　　　　　　　　　Ｂ　　　　　　　　Ｃ
１　箱縦寸法　　　　サイズを入れる　　　=B2
２　箱横寸法　　　　　　　同上　　　　　=B1
３　容器縦寸法　　　　　　同上　　　　　=B3
４　容器横寸法　　　　　　同上　　　　　=B4
５
６　縦個数　　　　　　　=INT(B3/B1)　　 =INT(C3/C1)
７　横個数　　　　　　　=INT(B4/B2)　　 =INT(C4/C2)
８　下側縦余　　　　　　=B3-B1*B6　　　 =C3-C1*C6
９　下側横　　　　　　　=B4　　　　　　 =C4
10　下側縦余/箱横寸　　 =INT(B8/B2)　　 =INT(C8/C2)
11　下側横/箱縦寸　　　 =INT(B9/B1)　　 =INT(C9/C1)
12　下側収納数　　　　　=B10*B11　　　　=C10*C11
13　右側縦　　　　　　　=B3　　　　　　 =C3
14　右側横余　　　　　　=B4-B2*B7　　　 =C4-C2*C7
15　右側縦/箱横寸　　　 =INT(B13/B2)　　=INT(C13/C2)
16　右側横余/箱縦寸　　 =INT(B14/B1)　　=INT(C14/C1)
17　右側収納数　　　　　=B15*B16　　　　=C15*C16
18　余部分収納数　　　　=B12+B17　　　　=C12+C17
19
20　全体収納数　　　　　=B6*B7+B18　　　=C6*C7+C18

数学的な最大値と、この表で計算した値で矛盾が出る例って何かありますか？

■▲■▲
■▲■▲
■▲■▲
▲■▲■
▲■▲■
▲■▲■
●●●□

>>405
5x5の容器に2x3の箱は4つ入る
パレットに荷物を載せる時のもっとも定番の組み合わせが解けない
■■■□□
■■■□□
□□　 □□
□□■■■
□□■■■

>>406
それは解ける
1 3 4 7で9って出たぞ

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

>>402
ああ、すまんそのままコピペしたら見にくかったな
容器縦寸法 1
容器横寸法 3
箱縦寸法 7
箱横寸法 4
だと、9にならないってことで
でも>>405で直ってるね
とりあえず>>407はほしい
>>406
xxxu
pppu
xxxu
pppw
xxxw
pppw
xxx
の方が楽じゃね

>>409
数学や統計学は全然知らないけどググったらそれらしいのあるジャマイカ
↓ので期待通りの結果が得られるか？
ttp://www.efcit.co.jp/cgi-bin2/exqalounge.cgi?print+200603/06030135.txt

>>403
http://www.cog.human.nagoya-u.ac.jp/~ishii/toukei/shinrai.html
の式でいいのか?
それならPQNをそれぞれA1-C1に入れて、D1とE1に計算式を入れればいい
↓平方根の出し方
http://www.relief.jp/itnote/archives/000619.php
上のリンクの√と分数部分がどこまでなのか分からんので後は自分でつくって

RAND()を使ったセルを
ソートするにはどうすればいいですか？

>>413
式のままじゃソートした後に再計算されるので値にしてからソートする

マクロの中でRANDセル欄を
ソートしたいので
F9で値に出来ません

どう値にすればいいでしょう？

F9は再計算だろうがｗ

つPasteSpecial

これ以上何か言ってきてもスルーだな

つーかマクロの記録使いなよ

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 マクロの記録を改変できる程度
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】for next　ループ　
fornextで1行目から最終行までの処理をしています
Private Sub CommandButton1_Click()
For x = 1 To 16
a = a + i + (x - 1) * 34
For i = 8 To 33
a = i

'処理

Next
Next
End Sub

処理自体は、色を塗ったりする単純なものです。
Range("A" & a ).value・・というように変数aを行に見立て、
8-33行目を処理、42-67行目を処理、76-101行目を処理・・とこれを16回分繰り返したいのですが、
もっとスマートな書き方はありますか?
iを直接行番号にできると色々便利なのですが・・

自動再計算を止めてみるとか
Application.Calculation = xlCalculationManual

>>418
Cells(a, 1) って書けば変数が行番号になるけど、たとえば
Range("A8:A33").Interior.Color = vbRed
みたいに書けば、たった1行のプログラムでたくさんのセルを一気に塗りつぶせる。
何がやりたいのか具体的に書いてみ。ほかにもっといいやり方があるかもよ。
とりあえず自分で作ったプログラム晒せ。

>>418
何が問題だかよくわかんないんだけど「1回」に (42-8) 行処理したいわけ?
そうだとすれば
for i = 8 to 33+(42-8)*(16-1)
　　x = int(i-8)/(42-8)+1
next
こうすれば x が「回目」になるよ

>>418
セルの指定をCells(i + (x - 1) * 34, 1)にすればいいんじゃない?
８〜３３をまとめてやるなら
Range(Cells(8 + (x - 1) * 34, 1), Cells(33 + (x - 1) * 34, 1))
でiのループは不要になるはず(検証してないｗ)

>>418
こう書けば範囲が飛び飛びでも一気に塗りつぶせる。For Nextとか一切必要なし。
Range("A8:A33,A42:A67,A76:A101").Interior.Color = vbYellow

>>421>>422
ありがとうございます、これは滅茶苦茶使えそうです(妙にしっくり来ます)
カウンター部分に変数を使えば良かったんですね、納得
>>420>>423
すいません!範囲選択を忘れていました
範囲選択すると一瞬で終わりました・・お騒がせしましたorz

なんやとー

Excel総合相談所
　　
　 -　完　-

For x = 1 To 16
For i = 8 + (x - 1) * 34 To 33 + (x - 1) * 34

'処理

Next
Next
End Sub
追記　当初考えていたことはこれで実現できました!
もっと応用ができるようになりたいです・・

>>418
For x = 8 To 518 Step 34
For i = 0 To 25

'処理 Range("A" & x + i).value・・

Next i
Next x

綺麗にまとめるなあ

何度もｽｲﾏｾﾝ
>>331
ダメでした…場所って書式をコピーってことだったんですね。
>>295の図に書いたんですが、商品の順位が入れ替わるので
書式コピーでは対処できないみたいんです…

大人しくVBAの本買ってきますつД｀

>>430
ttp://kjm.kir.jp/pc/?p=67128.jpg
じゃだめ?
コピーはグラフごとコピーってことだと思うよ

>>431
あ〜なるほど！>>331さんが教えて下さったのもきっとこういうことなんですね。
しかし系列内は順位どおりには出てこないんですね…
でもでも、凡例マーカーが引き継げるだけで大変ありがたいです。
助かりました！ありがとうございました。

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

スレ違いの気もしますが質問させてください（学生です）
実験データをエクセルに入力して二つのグラフを得、
そのグラフの交点を求めたいのですが、
log_[72.99e](-1.68Ln(x)+30.88)=-49.82x　という式を解かなくてはならない
という結果になりました。
これをエクセルを用いて解くには、どういう式を使えばよいのでしょうか？

>>433
一次方程式はソルバーを使えば解ける可能性が高い。
まず移項して
f(x)=log_[72.99e](-1.68Ln(x)+30.88)+49.82x
という関数を作り、f(x)が0になるようなxを求めればいいわけだから
適当なセルをxとして、ソルバーの「変化させるセル」に指定すればいい。

>>433
学生は言い訳にならねぇ
ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/itiran.html
関数をうまく使いなー

ゴールシークで足りるかも

エクセルより数学ソフトのほうが向いてないか?

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

http://kogolab.jp/elearn/hamburger/chap1/sec2.html

上のページのようなことがしたいのですが、どうすれば良いのでしょうか？
例えばA1〜A1001にいろいろなポテトの長さの値がはいっており、
それを0cm以上1cm未満
1cm以上2cm未満
2cm以上3cm未満
3cm以上4cm未満
みたいにそれぞれの長さに何本あるかというのをヒストグラム下化したいのですが、
どうすれば良いのでしょうか？

>>438
分析ツールのヒストグラムを使う
COUNTIFで数える
など

>>438
これか？
ttp://hp.vector.co.jp/authors/VA014071/tips/countif.html

>>434-437　ありがとうございました！

ゴールシークで出来るかと思い、数式（f(x)）を立てて
xに適当なセルを指定したのですが、
解答が見つかりません　となってしまいました。
目標値を０にしたのがいけなかったかと思い、他の数字にも
変えてみましたが、同じになります。

数式自体はできたので、予想した値を
ちまちま代入してxの値を出すことは出来ました。
ありがとうございました。

>>419さん
出来ました　ありがとうございます

セルに今表示されてる数値を
Getするような関数はないのでしょうか？

セルにセットされている関数しかコピー出来ないのでしょうか？

>>443
Cells(1, 1).Value

>>444
ありがとうGet出来ました

普通は数式を取り出す方法で悩むもんだけどなあ…

=(MAX(C2:C6)

この範囲の幅を選択できるようにしたい！↑この場合「5」
どうすればいい！！

>>447
indirect?

>>447
日本語でおｋ

>>447
=COUNT(C2:C6)

>>447
COLUMNS

>>447
=ROWS(C2:C6)

>>452
おそらくあんたので正解

それでいのか？だとしたらどんな領域でも対応できるように
=ROWS(C2:C6)*COLUMNS(C2:C6)
じゃね？
セル範囲を2回書かなくちゃならないのが面倒だけど。

オレは「=MAX(C2:C6)」と入ったセルから「C2:C6」を取り出す問題かと思ってたが。

>範囲の幅を選択できるようにしたい！↑この場合「5」

>>447の質問が日本語でOKな状態だから解はない
質問する前にまず何がしたいのかはっきりしないとなｗ

1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excelxp
【3 VBAが使えるか　 　 .】 使えない
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】sum　エラー　非表示
A1-A2-A3、の計算をします
このセル単独もしくは全体が空白の時はエラーになってしまうので、それを表示しないようにしたいのですが、
どのように記述すればよいでしようか?
sum(A1,-a2,a3)でもｴﾗｰが出ますし、sum(a1)-sum(a2)-sum(a3)だとなんだか間抜け&手間ですし・・
別の場所でエラーをわざと表示させているところがありますので、シート全体のエラー非表示はしない方向でお願いします

>>456
=A1-A2-A3
で何か不都合があるの？
「空白」が何も入力されていないってことならエラーにはならないはず
「空白」にスペースとかを入れてるなら
=IF(ISNUMBER(A1),A1,0)-IF(ISNUMBER(A2),A2,0)-IF(ISNUMBER(A3),A3,0)
などという方法もあるしA2〜A3を範囲にしたいなら
=ISNUMBER(A1),A1,0)-SUM(A2:A3)
とすればいいだけでは？

>>457
ありがとうございます。
そしてごめんなさい・・・空白が入ってることに気づきませんでした

ゴールシークとソルバーって同じもののように思えるのですが
どこが違うのでしょうか？
よろしくお願い致します。

>>459
ググった結果を見て理解できないなら
ここで説明しても君には理解できない

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


ずっと疑問なのですが、散布図やヒストグラムでグラフの元のデータの系列の順番を変えることって出来ないのでしょうか？

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

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

分析ツール統計量で計算した標準偏差と=STDEVP()で計算した標準偏差の値が違うのですが、
違うのですが、これはなぜなのでしょうか？
具体的には
2.5
3
3
2
1
2
1.5
3
2.5
3
というデータが分析ツール統計量だと1.42062726222673
=STDEVP()だと0.931540979
になります。
よろしくお願い致します。

>>461
データ系列の書式設定→系列の順序
ではないか？

>>462
何が原因でどっちが正解なのかは知らんが
そういう小難しいことをExcelでやるとひどいことになることがあるのは知っておいたほうがいいかも
ttp://aoki2.si.gunma-u.ac.jp/Hanasi/excel/index.html

STDEVじゃね?

>>465
なぜか分析ツールだとSTDEVのちょうど２倍になります。
なんなんでしょうか、これは？

>>466読んだら書いてた

>>462
標準偏差というのはデータが大量にないと正確に計算することができない。
で、STDEVはデータの個数が不十分なときに標準偏差を「推定」する関数で、
STDEVPはデータが十分たくさんあるときに標準偏差を「計算」する関数。
この違いがわかるかな？
データがたった 10個では、「推定」と「実際の計算」で大きな誤差が出るのは当たり前。

すいません、教えてください

下記のようなデータが大量にあるのですが
http://www2.vipper.org/vip1030486.jpg

No.１〜１０の下に項目いれずに20〜endまで
表をまとめたいのですが

表を全部選択して簡単に出来る方法はないでしょうか？

>>469
番号から数字を抜き出して普通に昇順で並び替えではどうよ？

>>464
では、こういった小難しいことは何でやったら良いのですか？
Excelよりも良いソフトがありましたら教えて下さい。

>>471
数学ソフト
で調べてみてください。もしかしたらものすごく役に立つかもしれない
>>469
オートフィルタ、フィルタオプションで
番号　　　と等しくない
and
""　　　　と等しくない
でコピーペースト
すると中が消えてる

>>468
何言ってるのか理解できないんだが。

可哀想な頭だね

>>474
君はわかるの？

>>475
エクセル様は全能!エクセル様は全て正しい!
エクセル様が全ての基準!
と思ってると思った

>>475
なぜ、わからないのかわからない。
推定すると脳細胞は108つだな。

>>477
なぜデータが大量にないと標準偏差を正確に計算できないの？

>>478
1万人センター試験を受けてるとしましょう
その内一人のデータを取りました。満点の100点でした。偏差値は50です
もういいかい

>472さん
ありがとうございます

>>478
偏差という字をひとつずつ考えてみるといい

>>479
よくありません。
その偏差値はどうやって求めたのですか？

>>481
それで？

それだよ

>>482
いいかげんウザいからググレ

>>485
さっさと答えろよ。まぬけ。

STDEVは標本を使って計算する
STDEVPは母集団を使って計算する

前者はどちらかと言うと、データが多すぎて計算が困難だったり、データそのものを集めるのが困難な場合に、
その一部を使って計算の手間を省くというのが本来の用途
統計学的に標本数が十分なら標本は母集団と同じ傾向になるという考えによるもの。
無作為抽出のアンケートとか、国勢調査の速報なんかは標本を使って計算する。

ワークシート関数なんていうブラックボックスを使うからややこしいことになる。
アルゴリズムを調べてVBAで計算すれば納得のいく結果が出るんでない？

…みんな、ちょっといいか？
盛り上がってるとこすまないが、試しにセルに「=STDEVP(2.5,3,3,2,1,2,1.5,3,2.5,3)」って
入れてみたら0.672681202って出たんだが…

>>462が操作ミスをしたか、Excelの使い方をわかってない可能性ってのは、ないか…？

やってみた。ホントだ…
ttp://aryarya.net/up/img/2162.png

さらに追試。
分析ツールとワークシート関数の結果も一致した。
というわけで>>462の勘違いということでFA

Excel総合相談所
　　
　 -　完　-

ここの回答者がバカだらけということがばれたな。
おまえらはSUMIFとか配列数式の話だけしてろよ。

自己紹介しなくていいです＞＜

なんだなんだ、ひよこ達が大騒ぎしてるじゃないか
ここんところ無かったから、なんだか懐かしいね。

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

他のセル同士を対応させて、違う作業に反映させる方法はありますか？

東京都 　500
京都府 　600
佐賀県 　700
↑のデータが存在して、これと別に

東京都
京都府
佐賀県
↑既に入力されたこのようなデータがあった場合に一々対応で数値を出せますか？
検索用の単語も分からず困っています。
よろしくお願いします。

>>496
LOOKUPという関数でできますよ
ttp://pc.nikkeibp.co.jp/article/NPC/20060213/229142/

>>497
なぜ、LOOKUPをすすめるんだよ・･･
あの関数の使用条件厳しいぞ。
きっと君はどこかで「LOOKUP関数がうまくいきません。」とか質問してるんだろ？

>>496
VLOOKUPの方がいい。

>>498
どっちも似たようなものだと思うが･･･

>>496
どちらを使うにせよその例で言うと元になる数値が入ってる表は
都府県に当たる列でソートかけるの忘れるなよ

>>499
＞都府県に当たる列でソートかけるの忘れるなよ
それがあるから VLOOKUPにしろというのがわからないのかい？

>>498
多くの社会人は「LOOKUP」と提示されると
その関数を調べVLOOKUP,HLOOKUP,INDEX,MATCHと
関連する関数がある事を知る。
そして何が最適かは自分で判断する。
与えられたままに事を進めるのは、あんたぐらいだ。

>>501
まず、サンプルになる人間１万人くらいに聞いた回答を発表してもらおうか？

相談所で回答者叩いたり煽ったりする奴ってなんなの？
そういうことは雑談スレでやってくれ

Excel2002、VBA×です。

部門名・商品名・個数・使用期限月 のリストがあり、
A部門のB商品で使用期限がC月の個数はいくつ、
という集計をして集計行のみの表にしたいのですが、

集計行に部門名・商品名を表示させるにはどうしたらよいですか？
集計行のみ表示したときに部門名・商品名が表示されるようにしたいです。

現在の設定は下の通りです。
グループの基準：使用期限月
集計の方法：データの個数
集計するフィールド：商品名と使用期限月

○年○月 データの個数 の表示になります。

>>503
ここが２ｃｈだからだ。
そしてお前も(ry

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel 含まれる行は表示しない

エクセルで"平日"と入力された行が複数行ある場合、Ctrlで全部の行を選んで表示しないではなく、
簡単に検索かなにかして、表示しないようにすることはできますか？
できるとしたら、その方法を教えてください。

補足訂正
集計行のみの表示にしたときに、

A部門｜B商品｜使用期限C月｜個数X
A部門｜B商品｜使用期限C月｜個数X
A部門｜B商品｜使用期限C月｜個数X
・・・

というリストになるようにしたいです。
個数は「合計」です。

>>506
VBA ならできそうな気はする

>502
>人間１万人くらいに・・・
( ´,_ゝ`)ﾌﾟｯ 　ガキ丸出しだな

>>506
範囲を選択してから、[Ctrl+F]→[検索する文字列：平日]→[全て検索]
→[Ctrl+A]→[閉じる]　としてから行の非表示処理

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

ところが、複数行が選択された状態になりますが、メニューバーから表示しないにすると、
シート全体が表示されなくなり、行をシフトを押しながら表示しないにしようとすると、
選択解除になってしまいます。

どうしたらいいでしょうか？

>>511
それ、シートの非表示にしてるんだろ。
[書式][行][表示しない]だよ。

>>512
できました♪
ありがとうございます。
その非表示のやりかたは知りませんでした。
すいません。
無事解決です。

よくExcelにゴミがたまってファイルが大きくなるって聞きますが、どう言うことですか？

>>514
データを追加したり変更すると、もともとデータの入っていた領域をそのまま放置して
新たにデータを入れる場所を追加していく場合がある。
すると、未使用の領域がどんどん溜まっていく。

新規ブックにシート全体をコピペすると空き領域が整理されてファイルが小さくなる。

VLOOKUPで解決しました。
複数での回答ありがとうございます。

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

範囲指定内(例えばd4〜z4)のセルの背景色が全て無色か、何かしらの背景色が1セルでもあるかの判別がしたいです

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

エクセルの学習ソフトについて質問があるのですが>2のBでスレ違いとなるそうで
どちらのスレで尋ねれば良いでしょうか？

>>517
マクロを使わずに背景色を判別するには
GET.CELLを使う
ttp://keep-on.com/excelyou/2001lng2/200110/01100049.txt
あとはググれ

>>518
そのソフトのメーカーに聞く

>520
あ、いえそうではなくてすいません
お勧めのエクセル学習ソフトとか伺いたかったんです

>>503
今回はさすがに回答が微妙だったからなぁ
>>518
教えてgooとか
たぶんまぁ、しょーもない内容だろうとは思う

ベクターで調べたら結構あるね
ttp://www.vector.co.jp/vpack/filearea/win/edu/comp/
ttp://www.vector.co.jp/soft/winnt/edu/se368389.html
タダだし、使ってみては?
有料だとソースネクストがいいらしい、以前このスレで言ってたな
俺は嫌いだけどなー

>>504
ごめん
何度も読み返したけど意味が判らない
集計結果で合計なのに全く同じ項目をリストにするってどういう??

項目別の集計ならピボットテーブルが手軽で、たしか2002以降はピボットテーブルと
リンクさせる関数が出来たからそれを使って好きな形の表を作れようになったし・・・

または関数だけでも可能だよ
>>306とか,条件を複数重ねる場合は>>309、あるいは配列数式かな

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
＜やりたいこと＞
www.yaboo.ko.001.html〜200html
などのように、末尾だけが違う複数のHPのテキストデータを
全て一枚のエクセルのシートに貼り付けたいです。
一つ一つ開いてマウスで文字をドラッグし、コピーするには
時間がかかりすぎます。

>>525
「VBA-否」なので�_

>>526
VBA頑張ります！

>>525
ダウソソフトで一括ダウソしたあとコマンドプロンプトからcopyコマンドで1つにまとめればコピペは1回で済む
Excelのテクニック何も必要なし

>>528
ウチはIT系会社なんですが、ソフトを勝手にDLするのは
禁止されているのです。会社のPCでやりたいと思っております。
社内イントラのデータなので家ですることが出来ないのです。

>>529
じゃあftpで丸ごと拾ってこい

>>530
FTP？ITの新人にはちょっと分からないです。
すみません

ftp/?

>>525
FTPがちょっと分からないITの新人受けたｗ

社内イントラならそのhtmlファイルが置いてあるとこから
まるっとコピーできそうなもんだが無理なの？
ここで分からないまま情報小出しにしてる暇に先輩か上司に相談したほうが早そうだが

まぁ俺の友人のプログラマ(当時4年目くらい)にも、
「レジストリって何？」とか言う奴もいた

ただ>>525はIT系云々以前にものの聞き方がアレなので
どっちにしろ無理っぽい
大人しく上司にでも相談してくれ

複数のページなのにホームページとは？
ホームがそんなにたくさんあるのか？

IT系の会社であって総務系とか

役員の秘書とか完全に文系だしなあ

>524 レスありがとうございます。

集計行のみの表示にしたときに、
「集計の設定」で「グループの基準」に指定した列の項目一つしか表示されませんが、
それを複数表示したかったんです。

例
「グループの基準」に使用期限月を指定、集計行のみ表示
（空欄）｜（空欄）｜2000年1月の合計｜40個
（空欄）｜（空欄）｜2000年2月の合計｜80個
（空欄）｜（空欄）｜2000年1月の合計｜50個
・・・
　　↓
A1部門｜B商品｜2000年1月の合計｜40個
A1部門｜B商品｜2000年2月の合計｜80個
A2部門｜B商品｜2000年1月の合計｜50個
（このように「グループの基準」に指定した以外の項目も集計行で表示したい）

集計行のみ表示 → AB項目列を列選択（編集→ジャンプ→可視セルのみ）
　→ Ctrl+Dで下向きコピー
でできるかと思ったらできませんでした。

ピボットテーブルを初めて使ってみて、そこそこの結果が得られたのですが、
このスレでときおりピボットテーブルが避けられている（「またピボット厨か」など）のは
なにか理由があるのでしょうか？

【1 OSの種類 　 　 　 　 .】 Vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 保護、オートフィルタ、並び替え、テーブル

≪やりたいこと≫一部を保護してあるテーブルで並び替えをしたい。

≪詳細≫
現在、Excel2007 からの機能である
テーブル(オートフィルタ標準装備/解除可能だが一部だけというのは不可)
を用いて、下記のような出納長を作っています。
A(月日)、B(収入)、C(支出)、D(残高)

D列は事情により式を複雑に作ってあるため、数式の保護をしました。
チェックボックスの『並び替え』『オートフィルタ』はチェックしてあります。
オートフィルタで抽出するのは問題なくできるのですが、並び替えができません。

>>538
きっちり1対1で対応してるんならVLOOKUPで引っぱってくる

嫌われてるのはピボットじゃなくてピボット厨。理由はピボットとか関係なく厨だから

簡単な話ですまんが、現在の満年齢を計算する計算式を教えてください。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2003
【5 検索キーワード 　 　 】 エクセル　ワード　貼り付け　プリントアウト

エクセルの表をワードに貼り付けました。
ワードの作業画面や「印刷プレビュー」では
貼り付け範囲内にエクセル表が全て収まっているのに、
実際にプリントアウトすると、全て収まっていません
（エクセル貼り付け部分のみ、ＰＣ上ワード画面より拡大されてプリントアウトされる）。
プリントアウトを、ＰＣワード上の画面表示と同じにしたいのですが、
どこの何をイジれば調整できるものでしょうか？

ご存知の方おいででしたら
よろしくお願いいたします。

↑
失礼、ＯＳはＸＰです。

>542

仕様です。
自分で微調整してください。

>>541
A1に誕生日
本日の満年齢=DATEDIF(A1,NOW(),"Y")

>>542
セルの幅や高さをギリギリに調整すると間違いなく中身が切れます。
手動で広げてください。
十分な余裕を取るか、ひたすら試行錯誤するしかありません。

やっと複合参照がわかった・・・
要するに動かしたくないとこに$つければいいんだな
参考書&サイトを2時間眺めてやっとわかった

>>544>>546
早速ありがとうございます。
仕様とは初めて知りました。ふざけてますね。
量がかなりあって面倒なので、
bmpにして貼り付けてみようと思います。
ありがとうございました。

>547

普通の人は複合参照なんて言わない。
駆け出しなら言葉は正確に覚えましょう。

>>549
駆け出しの意味がわからないけど「複合参照」って
書いてあるよ？

>>547
ここで質問しないと理解できないレベルなのに
「ふざけてますね」はどうかと思うね。
もうちょっと謙虚になりなさい。

ごめん>>547じゃなくて>>548だった

駆け出しさんは相対参照と絶対参照は知っていても
複合参照って言葉は知らないこと多いね

A1　相対参照
$A$1 絶対参照
$A1絶対列参照(列絶対参照)
A$1絶対行参照(行絶対参照)

このうち後者2種をまとめて複合参照と呼ぶ
行と列のいずれかに絶対参照と相対参照を複合して使っているからだ
これはExcelのヘルプにも載ってる正式な名称なので覚えておいた方がいい

まぁ、イバちゃって
オコチャマね！

顔が真っ赤だよw

複合参照っつってもどっちのことかわからないし
どっちか説明することになるなら最初から使わないよな

必死な言い訳恥ずかしい

556は今日始めての書き込みなんだぜ

俺は今日が生まれて初めての書き込みなんだぜ



と、書くだけなら何とでも書ける

そもそも件の本人じゃなきゃ誤解されたとしてもわざわざ言い訳がましく他人宣言なんてしない
本人だからこそ、過剰に気にして墓穴を掘ってしまう

俺は今日が生まれて初めての女の子をデートに誘ったんだぜ

複合参照なんて言葉初めて知ったけど
たしかに知っていてもいいとは思う

ただ会社では使い道がないのは確かだな・・・まず誰にも通じないから説明しなきゃならないし
絶対参照も覚えたての時は使ってたけど絶対なんて名前が付いてるのに
indirect程絶対ではないので迷ってダラー使うやつって言ったりする

まぁ、現実に使うかどうかは別として

> 普通の人は複合参照なんて言わない。
> 駆け出しなら言葉は正確に覚えましょう。

が間違いであり恥ずかしい事実だけは変わらないな。

しかし、うちの会社では指示書などでは複合参照って結構使うよ。
複合参照が何か解ってる奴なら、どっちの複合参照使うべきかは
自分で判断できるし、何処にどっちの複合参照使うかなんてのは、
指示する方ではなく指示される方が、要求仕様に基づいて考える
べき事だからな。

どんな会社なのか本気で興味がある
エクセルで総務のお仕事お助けします!とかFAXで来る、あんな系統の会社?

　 ┏┳┳┓ 　 　 ハイ. 　 　　┏┳┳┓
┏┫┃┃┃ 　 　 雑談は 　　┃┃┃┣┓
┃┃┃┃┣┓ 　 ここまで ┏┫┃┃┃┃
┃　 　 　 ┃┃┏━━━┓┃┃　 　 　 ┃
┃　雑談 　 ┣┫ . ･∀･ ┣┫. STOP！┃
┗━━━━┛┗┳━┳┛┗━━━━┛
　 　 　 　 　 　 ┏┻┓┃
　 　 　 　 ┏━┛　 ┣┻┓
　 　 　 　 ┗━━━┫　 ┗━┓
.　　　　　　 　 　 　　┗━━━┛

>>562
>>指示書などでは複合参照って結構使うよ。

どんな会社やねんｗ

自演擁護はもうウンザリです。

>>538
君のやってることは無意味なんだよっていわれて、むちゃくちゃ怒るやつ。
多分内心ではそのことに気付いているんだよ。でも認めたくないんだ。

ピボット厨は素直にVBAを認められない奴だと思うんだな
両方使えば、両方の長所がはっきりわかると思うんだけどねぇ
どっちも便利なんだから両方使えばいいのに

認めないんじゃない

さっぱりわかんないんですよーだ！！

【1 OSの種類 　 　 　 　 .】 ＸＰ
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 ほんの少し（猛勉強中）
【4 VBAでの回答の可否】 少し可（がんばって解読します）
【5 検索キーワード 　 　 】 エクセル　図形　セル　関連付け　差込印刷

エクセルのみで、社員の健康診断票を作成しています。
社員ＩＤを、拾ったバーコード生成マクロでバーコード化
→差込印刷マクロで雛形所定位置に印刷。

名前、部署、生年月日など文字・数字は差し込めるのですが、バーコード（bｍｐ）を
差し込むことができません。この図（バーコード）をセル内の値として認識させることは
可能でしょうか？
ド素人なりに『セルの書式設定』『表示形式』『ユーザー定義』を怪しみましたが
それらしいとこに辿り着けませんでした・・・

以上、宜しくお願いします

>>569
超てっとり早くするならそのバーコードをペイントで開いて、ctrl+A→ctrl+cでコピーしてエクセルの画面にもどり、
ctrl+vで貼り付け
セルのはばを大きめにしておくとよい

図形を選んでそこから挿入するのもいい
よ
対利ょうにあるならvbaだな。今はよってるので翌日か他の人の回答　を　まて

>>569
画像をセルに入れることはできない。
ワークシートに画像を貼り付けて、大きさをセルと同じにしてごまかすしかない。

バーコードの形式にもよるけど、バーコードフォントというのを入れれば
バーコードを文字列として扱うことができるようになる。

>>567
ピボットとVBAを比較の対象にする事事体あほくさい。
ピボット厨のダメな所は何でも無理やりピボットでやる事。
ＶＢＡ厨のダメな所はピボットを認めない所。
どっちもバカだな。

【1 OSの種類 　 　 　 　 .】 ＸＰ
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 使えません
【4 VBAでの回答の可否】 わかりません
【5 検索キーワード 　 　 】 レコード、抽出、COUNTIF

あるテーブルから条件にあったものだけカウントしたいんですが、
条件を絞り込んでカウントする数式がわかりません。

具体的には、競馬のデータなんですが、H7:H33に晴れの日や曇り、雨など天気のデータがあります。
そしてK7:K33には1着、2着、3着、4着、など着順のデータがあります。

このデータを使って、別のセルに晴れの日は1着が何回で2着が何回か、晴れ以外の日は1着が何回2着が何回かなど
条件を絞り込んでカウントしたいんですが、どんな数式を入れればいいんでしょうか？

>>573
ピボット厨のダメな所は何でも無理やりピボットでやろうとしてできない事。
ＶＢＡ厨のダメな所は何でも無理やりVBAでやる事。
だと思うが
VBAでピボットテーブルは作れるがピボットでVBAは実現できない
だがVBAで1時間かけて作ったピボットはピボット使える人にと取っては10数秒でできること
両方できるが、VBA使うほうが割かし便利なんでVBAばっかり使ってる
ピボット使えるほうが便利なんだろうけどなー
一言で言うと、PCオタクって奴なんだろうけどなw.

>>574
作業列を使うか、countifかな
作業列は表がH列ならI列に=if(H1="晴れ"=h1,"")
といった感じでj、k列も同様に曇り、雨とするもの
countifはぐぐったほうが早い。が、やはり作業列のほうが早いと思う

>>575
お前みたいに使い分けができない奴が一番クソ。

>>574
=SUMPRODUCT((H7:H33="晴")*(K7:K33="1着"))

>>570-572
レス有難うございます。社員が200人もいるので手動は厳しいです・・・
かといってＶＢＡの知識はほぼないに等しいので、バーコードフォント
でとりあえず進めてみます。

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

>>576
ありがとうございます。
countifは晴れの日の1着のセルだけ範囲指定して検索値に1と入力してみたんですが
ダメでした。晴れの日の出走回数だけはcountifで出来たんですが…

作業列と言うのは初めて知りました。カウントした数値が出せるかどうかググってやってみます。

>>577
まーそのレスも予想通りだったわ
ただこのスレを見てる俺としてはできるだけピボットで答えて欲しいと思うけどね
(見たこともない使い方なんていくらでもあるだろうから)
がんばってね

>>576
何その作業列数式の作り方？ｗ

>>578
ありがとうございます。やってみたんですが０になってしまいました…

>>580
ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/itiran.html
関数一覧ね
ユーザー書式で「0"着"」とかなってたりしない?ちなみにこの場合は1着なら「1」で検索しないと見つからない

>>581
生粋のＶＢＡ厨だったかｗ

>>583
>>578の式は、セルに入っている通りの文字列を入れないとダメだよ。
たとえば順位に「着」が付いてなくて数字だけなら
=SUMPRODUCT((H7:H33="晴")*(K7:K33=1))
みたいにしなきゃいけないし、天気に送りがながあれば
=SUMPRODUCT((H7:H33="晴れ")*(K7:K33=1))
とかね。

ありがとうございます。一応着順は数値の［1］で[1着]とは入力してないです。
フィルタ使って数を数えればわかるんですが、関数使って何とか出来ないものかと思って
まだ初心者なんで皆さんの意見がすごく勉強になります。

>>585
まぁ、環境にもよるだろうね・・・
総務なんだけど、基本的にはピボットで出した表を提出すればそれでokと思うんだけどね
何故かそれを前年比で出してだの、取引先AはXXとyyで7:3に分けてだの
さらにその前はXXがいないからzzでその比は・・とか言われたらVBAもうまくなりますよorz
逆にその資料を一瞬で出せるのが目障りなのかもしれないけどね。まぁなんだ。零細企業の俺乙
>>582
そもそも競馬のデータをエクセルで時点で
ああいうのはパドック(当日の調子)が最重要だと何度言えば

>>586
ありがとうございます！出来ました！本当にみなさんのおかげです。
いくつか条件をかえてまたやってみます。

>>588
すいません好きな馬の成績表作ってデータ調べたりして遊びたいなぁって思ったんで…

この関数がデータにホント役に立ちます！重ね重ねありがとうございました！

>>588
どっちかというとVBAよりピボット使うほうがいい典型例のようにみえる。

ピボット厨はVBA使えるがあえて使わない。
しかしVBA厨はどうやら本当にピボットが理解できないらしい。

>>574
条件が反映されずに難儀するなら=SUMPRODUCT((H7:H33="晴")*(K7:K33="1着"))の
="晴"の部分を=H35とか、="1着"の部分を=K35とか別セルを指定して
そこに集計対象のセルから条件をコピぺするか、入力規則のリストを使うと簡単で確実に集計できるよ
リストは集計表にデータを入力するときにも、表記揺れによる集計ミスを減らせるからお勧め

>>569
少し違うけど前にここで相談して作った奴
かなり適当なのでもし参考になれば程度のものです

Sub バーコード貼り付け()
Dim Filename As String
'面倒なのでエラーが出ても出てもいちいち止まらないようにレジュームしてます
On Error Resume Next
'まずシート内にあるオブジェクトをすべて消す
ActiveSheet.DrawingObjects.Delete
'エクセルファイルと同じフォルダ内にある"バーコード"という名前のフォルダから
'C2に入力した番号と同じ名前のbmpファイルを拾ってきて
Filename = ActiveWorkbook.Path & "\バーコード\" & Range("C2").Value & ".bmp"
'A6の結合セルの中央にはみ出さないサイズに拡大縮小して張り付ける
With ActiveSheet.Pictures.Insert(Filename).ShapeRange
.LockAspectRatio = msoTrue
.Height = Range("A6").MergeArea.Height
If .Width > Range("A6").MergeArea.Width Then
.Width = Range("A6").MergeArea.Width
End If
.Top = Range("A6").Top + (Range("A6").MergeArea.Height - .Height) / 2
.Left = Range("A6").Left + (Range("A6").MergeArea.Width - .Width) / 2
End With
End Sub

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 】 レーダー 円 グラフ

データが３つあり、そこからレーダー図を作成したいです。
データを選び、レーダー図を選択すると、自動的に三角形のグラフができますが、
これを円グラフにすることは可能でしょうか。

ttp://oshiete1.goo.ne.jp/qa4389551.html を
一度参考にしましたが、データを重ねているわけではないので、実行できませんでした。

よろしくお願いします。

>>595
「レーダー図」と「円グラフ」ってのは普通別物だけど、レーダーチャートを円形に表示したいってこと?

>>596
遅くなってすみません。

はい、その通りです。
三角でなく円形のレーダーが作りたいのです……

ご教授お願いいたします。

教授ー！
読んでますよーっ

たまに>>598みたいなウザい奴が出てくるよな。
http://dic.yahoo.co.jp/dsearch?p=%E6%95%99%E6%8E%88&enc=UTF-8&stype=0&dtype=0&dname=0na
思い込みで煽るんじゃねえ、カス。

ご教授はダメ、ご教示だろうがっていうやつ２ｃｈに多いよね。

>>597
むずいな
設定にはなさそうだから、項目数を増やして間を補完するとかしかないんじゃね?

gnuplotで描いちゃうとかもアリか。

皆様、遅くなりましたが、ありがとうございます。
いろいろやってみて、自分には無理そうだったら三角で行こうと思います…

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

>>594
ありがとうございます。参考になる部分がかなりあります

>'C2に入力した番号と同じ名前のbmpファイルを拾ってきて

以下をコピペ、Ａ６をＨ１にしてそのままいけそうな気がします！

>>599
おまえ、恥ずかしいなw

http://www.tt.rim.or.jp/~rudyard/torii009.html

教えてもらう内容が高度かそうでないかなんて誰がどうやって判定するんだよ。

俺

>>608
つまり「ご教授」と「ご教示」のどちらが適切かを判定する客観的な基準は
存在しないということでいいですね？

そうでもないか

例えば「教諭する」という表現は辞書にのっていませんが誤用でしょうか？

>>611
辞書に「スル」という活用で載ってるんだが

>>612
そうなんですか！
私の見た辞書にはのっていませんでした。辞書にはないからてっきり間違いだと思ってました。
ご教授ありがとうございました。

エクセルの回答は全て高度です。
よって、教授で問題ありません。
>>606
クソスレｗ

>>606
クソスレである事の根拠
http://www.tt.rim.or.jp/~rudyard/index.html

＞WEBサイトを何気なくながめているだけで、誤字等はたくさん見つけることができます。
＞そういった誤字等を検索エンジンにかけてみて、どれくらいヒットするかを調べて考察を加えたものがこの「誤字等の館」です。
＞考察といっても、そんな大層なものではなく、適当な推論です。
＞当方、言葉の専門家でも研究者でもありませんので。

＞考察といっても、そんな大層なものではなく、適当な推論です。
＞考察といっても、そんな大層なものではなく、適当な推論です。
＞考察といっても、そんな大層なものではなく、適当な推論です。
＞考察といっても、そんな大層なものではなく、適当な推論です。

スレ…？

>>616
スマン…ｗｗ
逝ってくる。。。。

間違い指摘を受け入れられずに必死に抵抗するも
更に間違いを重ねて墓穴を掘り続ける

はてさて、どこまで逝くきやらw

>間違い指摘を受け入れられずに必死に抵抗するも

それはお前だｗｗｗ

>>618
あわてものがスレとか言ってしまいましたが、無関係な間違いなのでスルーしてください。
あなたがご教授は間違いと考える根拠は何？

もうやめとけ

「老師、どうか私に、剣の極意を御教授下さい。」

「いやいや、私に出来るのは極意を御教授などと大層なものではない
せいぜいを心掛けを教示するまで、それでも良いか？」

「お願いします。」

的な、あなたの知識は尊いですといった謙遜を込めた御教授

>>622
で、「ご教授ください」は間違いなの？間違いじゃないの？

自分で判断しろよ

質問するほうは
御教授と言えば失礼ではないと思う

もちろんたいした事でも無いのに御教授と言えば
逆に失礼な、馬鹿にした印象与える場合も

>>625
頭の中が分裂しているようだな。
どっちなの？

エクセルファイルをCSV（タブ区切り）に変換したいのですが、
セルの計算式が値で出力されて困っています。

式のまま出力できないでしょうか？

「ご教授は間違い」派ってなんなの？
何を根拠に間違ってると主張しているの？
根拠もないのに言ってるの？

>>626
頭悪いな

>>627
ツール／オプション／数式にチェックしてから保存

>>628
間違いかどうかは各個判断なんだよ
受け手が判断するだけなんだから
OKと思う人はOKだしNGと思う人にはNG
「ご苦労様です」って言われて「ありがとう」と思うか「何様だテメェ」と思うかの違い
わかったかクズさっさと死ねボケチンカス逆蛍

>>631
やっとまともな意見が出てきたか。
まあそういうことだよね。

「教授ください。」が嫌な奴は黙って回答しなければいい。
気にならないなら回答すればいい。
「教授」と書いてあるからといって煽る奴が一番カスでおｋ？

>>631
それは違うだろ
ご苦労様ですは同等以下の人に使う言葉だから何様扱いは当たり前
持ち上げた表現を使われて、いやこの場合
他人が他人に尊敬表現を使っているのを見てキレてる基地外がいるだけだ

たとえ当たり前でも何様扱いすると空気読めないやつだとしか思われん
物事の真理よりもそちらのほうが大事である

そういう意味でもご教授にぐだぐだ言う奴が一番空気読めてないよね
真理という意味ではなおさら

勘違い誤用指摘厨はもちろんアレだがそろそろまとめて空気読め

おまいら暇だな。
もっとやれ。ファイヤーｗ

つまりどういう場合が正しくてどういう場合が間違いなんだ?
教示って使っておけば問題はなさそうだが

まあ経験則として言えるのは、この手のスレでご教授下さいとかご教示下さいとか書く質問者は丁寧な言葉使えば何書いても許されると思ってる馬鹿が多いって事かな。

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

教授 教示 になります おります おりません よろしいので あたりをNG
マジで鬼嫁

>>640
正解

この討論をエクセルで解決するんだ！

if 質問者 and xlBAKA then
　　レス = 質問内容 & vbcrlf & "ご教授下さい。"
else
　　レス = 質問内容 & vbcrlf & "ご教示下さい。"
end if

call 投稿(レス)

【1 OSの種類 　 　 　 　 .】 WindowsXP Pro PS3
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 マクロの記録を改変できる程度
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 グラフ　双曲線　"y=1/x" "x=0"

双曲線y=1/xのグラフ(平滑線で繋いだ散布図)

A列　B列
x　y=1/x
a2　b2=1/a2
------------
-1　-1
-0.99　-1.01010101
-0.98　-1.020408163
(中略)
-0.02　-50　←(1)
-0.01　-100　←(2)
1.97758E-16　5.05667E+15　←(3)
0.01　100　←(4)
0.02　50　←(5)
(中略)
0.99　1.01010101
1　1

グラフを表示させるとポイントがこんな感じで結ばれます。
−(1)−(2)−(3)−(4)−(5)−

これをこんな感じに結びたい場合はどうしたら良いですか？
−(1)−(2)　　　　(4)−(5)−

【やってみたこと】B列(例えばB5)に「=IF(a5=1,"",1)/a5」を入れてみた。

>>646
(3)の部分をA列もB列も空白にする

>>646
こうだな
ttp://www.hsjp.net/upload/src/up55890.png

>>647-678
THXです。
でも(3)を空白にする以外に方法ありません？
B列あるいはC列に式を作るとか。

>>649
ない。
見た目をごまかしたいなら、Sheet2にもう一組座標のデータを入れといて、そっちでグラフを書く。
Sheet1を参照するような数式にしておけば、方程式の変更にも対応できる。

(3) を 0 にしてエラーだしたらダメなのかな?

>>651
エラーだとグラフがつながってしまう

Excel使いの方におたずねしたいのですが、Ｅｘｃｅｌで旧暦と潮汐を表示させるような式ってくむことができますでしょうか？

何月何日といれたら、旧暦と大潮・中潮・小潮・若潮・長潮などの表示ができるようにしたいのです。

実現された方やこういうプログラムがあるよ〜などご存じの方がいたら教えてください。

>>653

全部登録してvlookup

>>651
そうそう。君はそうやって人の言うことを聞いとくべきだよ。
六年生とは思えないほど稚拙な文章だったけど、面白かったよ。

>>653
国立天文台HPでデータが手に入るか調べてごらん

>>653
アドインがあるらしい
ttp://okwave.jp/qa434666.html

潮汐
ttp://www.google.com/search?client=opera&rls=ja&q=%E6%BD%AE%E6%B1%90+%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB&sourceid=opera&ie=utf-8&oe=utf-8

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　 ＿_、　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　.,ｰ'"′ `'''‐,、　　　　　　　　　　　　,!　　　　　　　　　　　
　　 ,,!　　　　　　 ヽ　　　 .r‐--,,,,,,,―へ　ヽ　　　　　　　　ｒ　　
　　 |　　　　　　　 │　　　|　　　　　　　　　＼　　　　　 丿　　
　　 （　 　 　 　 　 ″　　 .|　　　　　　　　　　 ヽ、　　　,/　　　
　　 ｀'-,__　　　 　 　 　 　 |　　　　　　　　　　　 ‘i､　 .,i´　　　
　　　　　‘'ｰ---､,,,　　　　|　　　　　　　　　　　　 ｀!,,,i´　　　　
　　　　　　　　　　 ﾞﾞl、　 -|,,,,,,,,,,,,,／　　 　 　 　 　 八　　　　　
　　　　　　　　　　　 ﾞl　　 .|　　　　　　　　　　　　,,″｀i､　　　　
　　　 :i､　　　　　　　|　　 .,!　　　　　　　　　　　,/　　 ｀'i､　　　
　　　 ‘i､　　　　　　 lﾞ　　.,!　　　　　　　　　　 ,r′　　　 `-,　　
　　　　 .ﾞl、　　　 ,,／　　.{――ｰ'''''ﾞ＾　　 ー'"｀　　　　　　 ｀　
　　　　　 ﾞ―-''''"　　　　　　　　　　　　　　　　　　　　　　　　　

孤独な冬厨が湧いてくる年末です。
皆様、ご辛抱です。

質問です。よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい(多少は…という程度)
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 オートシェイプ　削除
　　　　　　　　　　　　　　　　 削除　トリガー
　　　　　　　　　　　　　　　　VBA　オートシェイプ　削除


＜やりたいこと＞
　オートシェイプ内にテキストが記載されていて、
　付箋紙のように使用しています。(ワークシート内に複数存在することも多々あり)
　そのオートシェイプを選択し、Deleteキー等で削除した場合に、
　オートシェイプの中のテキストを指定のワークシートに保存したい。
　ここで言う指定のワークシートは任意で決めてもらってもかまいません。
　(履歴が記載されているワークシートだということがわかればOKです。)
　
よろしくお願いします。

>>660
オートシェイプを削除するにはDelキーを押す以外に右クリックや編集メニューから切り取りを選ぶ
という方法があるが、これをオートシェイプが消えるよりも前にVBAで感知するのはかなり難しいので、
何か別の方法を考える必要がある。
もっとも簡単に実現できるのは削除ボタンを作り、それ以外の方法では削除しないこと。

多少操作的に面倒になってしまいそうですが、
削除ボタン使用でも問題ないと思います。

指定したオートシェイプの中のテキストをバックアップできればOKです。

>>660
タイマーで一定時間ごとにシート全体をチェック、すべてのテキストの一覧を作業用シートに書き出しておく。
この一覧に変化があったら、その部分を目的のシートに書き込む。
みたいな感じかなあ。
はっきり言ってかなり難易度が高い希ガス。俺の知識が足りないだけかもしらんが。
オートシェイプの変化ではChangeイベントとか発生しないんだよなあ。

>>662
オートシェイプからテキストを取り出したあと図形を削除するマクロ

Sub a()
　　If TypeName(Selection) = "TextBox" Or TypeName(Selection) = "Rectangle" Then
　　　　MsgBox Selection.Characters.Text
　　　　Selection.Delete
　　End If
End Sub

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


http://sakuratan.ddo.jp/imgboard/img-box/img20081224203800.jpg

よく見かけるこういう散布図グラフを書きたいのですが、
どうすれば良いのでしょうか？
よろしくお願い致します。

>>647-652
レスTHXです。
百戦錬磨のここの住人が無理というのなら無理なんでしょう。
あきらめて(3)を空欄にします

【1 OSの種類 　 　 　 　 .】 WindowsXP Pro SP3
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 まだまだ勉強中の身です
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 "マクロ　差込印刷"　"マクロ　データ参照　印刷"など印刷に関して

印刷用テンプレートのシート、及び元データのシートを作りVLOOKUPで元データとなるシートから値を引っ張り
[1] [058][12-315][3]
[2] [128][18-584][4]
[3] [096][98-219][8] ←このような感じで
元データには、アンカーとなる通し番号、引っ張ってくる各種数値を用意し、
「番号を入力するとテンプレート上に必要な情報を出して、印刷」できる所までは作ったのですが、
元データの数が増え、頻繁に印刷をせまられる状況になってきました。（例えば3,5,15,28番のデータで３枚ずつップリントアウト、とか）
そこで、データに新しくフラグ立てする（○を入れる等）ための行を加え、フラグを立てた分のデータをテンプレートに入れて印刷する方法を探しています。

もしご存知でしたらどなたかご教授下さい。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 素人
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 "セル"　"行を追加"　"文字数"など

エクセルのシートに大量のテキストデータをwebクエリで取得しましたが、
A4に収まりませんでした。一つのセルに対する文字数を制限し、一定数
を超えるセルがあれば、行を追加し、すぐ下のセルから途中を続ける、
という方法を探しております。
無知ですが、よろしくお願いします。

>>668
セルに入る文字数を正確に求めるのは非常に難しいので、
最善の回答は「Excelで印刷することは考えるな」。

どうしてもExcelで印刷までやりたいなら、その「一定数」をまず自分で決めること。
その際にある程度余裕を見ておくしかない。余裕が小さいと文章が切れる。
場合によってはセルの右の方に大きな余白ができる可能性もある。
完全に日本語だけなら固定ピッチフォントでなんとかなるけど、
アルファベットが混じってる場合はどうにもならない。

それでもよければ回答できるかもしれけないけど、それでいいかな？

>>667
For〜Nextでフラグの入ってる行を端からチェックして、
あとは今までに作った印刷のマクロを呼び出せばいいんでね？

>>665
マーカーを右クリックしてデータ系列の書式設定から
系列ごとに折れ線の有無やマーカーの種類を選択できる。
東京、千葉、神奈川、平均の4つのデータ系列を用意して、
個別のデータはマーカーのみ、平均は折れ線のみにすればいい。

>>669
それでも十分でございます。

>>670

ありがとうございます。てか寝落ちしてしもたｗ
早速試してみます！

>>672
詳しい状況がわからないので、とりあえず最低限のサンプル。
A1セルの文字数が20を越えていたら空白行を挿入し、21文字目以降を一つ下のセルに移す。
これをデータ領域全体でループさせればいい。

s = Range("A1").Value
l = Len(s)
If l > 20 Then
　　Rows("2:2").Insert Shift:=xlDown
　　Range("A1").Value = Left(s, 20)
　　Range("A2").Value = Mid(s, 21, l)
End If

文字数じゃなくて文字の幅で改行ってことでしょ
これは諦めた方がいい

>>671
ありがとうございます。
それは、散布図での話ですよね？
何度も試してみたのですが、横軸の名称を「東京、千葉、神奈川」みたいな名称にしようとしても
1,2,3・・・といった行番号になってしまうのですが・・・
もしかしてこの名前だけをテキストボックスを上に貼り付けて使うということなのでしょうか？

>>676
グラフオプションで「X/数値軸」を消して「X/数値軸ラベル」に「東京　　千葉　　神奈川」と入れる

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

何度も申し訳ないのですが、
「X/数値軸」の場所は分かるのですが、「X/数値軸ラベル」という設定項目は見あたらないのですが、
バージョンは2003なのですが、もしかしてバージョン違いなのでしょうか？
お願いいたします。

>>678
グラフエリアを右クリック→グラフオプション→タイトルとラベル→X/数値軸

>>678
途中までだけどこんな感じ
ttp://petite-soeur.dyndns.org/cgi-bin/up2/src/ps21340.png

>>680

ありがとうございます。
それってつまりはテキストツールで書くのと全く同じことですよね？

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル グラフの先を表示しない　ＩＦ関数

折れ線グラフを作りたいです。
セルＡ１〜Ａ３０に日付を入力
セルＢ１〜Ｂ３０には収支を打ち込む入力欄
セルＣ２〜Ｃ３０には『=IF(B4="","",B4+C3)』
を入力しています。

そこでセルＣ１〜Ｃ３０までを折れ線グラフにしたいのですが、
Ｃ１５まで入力したところでグラフの先が０値になってしまいます。

Ｃ１５に入力した数値のところでグラフを止めたいのですが、何か方法はありませんか？

間違いがありました。

セルＢ１には『IF(B1="","",B1)』
セルＣ２には『IF(B2="","",B2+B1)』
セルＣ３〜Ｃ３０はＣ２をオートフィルでコピーしています。

>>681
厳密に言えばラベルはチャートオブジェクトの一部だからテキストボックスを重ねるのとはちょっと違う。
どうしてもラベルの内容をどこかのセルから持ってきたいのなら、数式で文字列を連結してから、
それを参照するって手もある。

>>683
式がおかしい気がする。
C1は「=B1」
C2は「=B2+C1」以下オートフィルじゃないの？
で、折れ線グラフを途中で切りたいなら軸の範囲とデータの範囲をあとから修正するしかない。

>>685
レスサンクスです。
指摘されたところはその通りですorz

細かくやるしかないんですね…

こんな問題がありました。

「何人かの残業時間が32・24・17・22時間だとします。

残業手当ては、20時間までは一時間当たり2000円、20時間を超える分は一時間当たり1500円とする。」

となっていた場合、エクセルにはどのように入力すれば残業手当てが計算できるのでしょうか？

>>687
=A1*2000-(A1>20)*(A1-20)*500

冬休みの宿題？

>>688
パソコン教室の宿題で…すいません、レスありがとうございます。

すいません、まだ慣れてなくて分からないのですが、それはIFで入力でしょうか？

>>689
ifを使ってって宿題だったのね

>>689
=IF(A1>20,A1*1500,A1*2000)

>>690
いえ、どちらでも良いのですが、パッと見てなるほど!と言える理解力が無かったので、すいません。
とりあえずそのまま書いてみます。

ありがとうございました!
>>688の式で上手く全て埋まりました。

次になんですが、

通勤時間がそれぞれ55分・60分・95分・80分・120分だとして、

通勤手当は、通勤時間が90分未満は15000円、90分以上120分未満は20000円、120分以上は30000円とする。

何度も式を変えてやってるつもりなのですが、完成させられません。
どなたか宜しくお願いします。

パソコン教室の宿題ってことは復習だよね？
習った内容を元に自分で考えないと意味ないんじゃないか？

>>694
正月過ぎまで行けないので沢山宿題を貰いました。
宿題の中には出来ない物も含まれている、と言われたのです。

でも、できれば理解してからまた通いたいのでご教授願えませんか？

>>695
教えていない範囲まで宿題として渡してしまう教室もどうかと思うが･･･
答えだけ教えて理解できるのか？
=LOOKUP(A1,{0,90,120},{15000,20000,30000})

細かい解説とかはそれこそ教室の守備範囲だろうからあえてしない

教えてない範囲まで問題渡したなら、
関数のヘルプ見ながら、これかなあれかなってやらせるのが目的だろ
それができるようになれば一般レベルのコースに通う必要もなくなる

ここで答えもらっちゃダメだろ

そうだよな。
ここで普通に全て答えちゃってる回答者もなんだかなー。
本当の回答者ならヒントは与えても答えを教えちゃいけないと思うんだ。

>>697
生徒：○○ってどうやるの？
教室：ググレカス

ってことか？
基本的な(と思われる)関数とセルの参照ぐらいは習ったんならヘルプで十分だろう
しかし、IFの使い方分かってないしIFの入れ子かLOOKUP使うって発想もできないレベルのようだし
実は教室の人間もエクセルとか全然使えない奴だったりｗ

>>698
696の回答を元にLOOKUPの使い方を調べるようになればいいな〜
とか思ってあえて初心者向きじゃない回答したんだがダメか？

【1 OSの種類 　 　 　 　 .】 Windows XP Pro SP2
【2 Excelのバージョン 　 】 Excel2000 SP3
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マクロ 強制終了、マクロ 問題が発生したため、等

EXCEL万年カレンダー
http://www.vector.co.jp/soft/winnt/personal/se164767.html
上記のブックが開けません。
[問題が発生したため...]となり、強制終了してしまいます。

作者にもしばらく前にメールを送ったのですが、返事がありません。
開くにはどうしたらいいですか？よろしくお願いします。

>>700
そういう怪しいファイルは開いちゃいかん。

>>699
おまえ、考え方根本的におかしいよ。

＞生徒：○○ってどうやるの？
＞教室：ググレカス
パソコン教室は金もらってるんだからここの回答者と一緒にする事事体無意味。

＞696の回答を元にLOOKUPの使い方を調べるようになればいいな〜
そんな普通じゃない使い方（一般的ではないって意味であってヘルプに
載っている事から間違った使い方ではない。）を教えるくらいならLOOKUP調べてみな、
という回答の方がいい。

>>699
ググレカスってなんだよ…
本人がほしがったからいっぱい宿題渡したんだろ、
同レベルの大量に渡してもしょうがないから少し先のテキストまで
教室こないんなら宿題だしてやったって一銭の得にもならんのに

出来なくて当たり前だけど、やる気があるなら自分で考える勉強になるからよかったら、
って意味ととるのが普通じゃないの？
その宿題の答えを他人が出してやってちゃ意味ないわ
基本が分からんのならそこまでの復習をすべきだろ

パソコン教室のあり方論ﾜﾛﾀｗｗｗ

使命感を持った回答者達、乙

くだんない煽り乙

エクセルの使い方がわかりません。

答えたいやつが答えてりゃいいだけだろｗ
なにそのボクの考え方ご披露パーティはｗｗｗ
やっぱり質問は全部俺宛てと思っちゃう病気の方ですかｗｗｗｗｗｗ

そういう病気の人ばっかりだしここ

周りに迷惑かけないし、別にいいんじゃねーの

なんか必死なのがわいてるな

次の質問マダー？

わ〜い、冬厨だらけで、いごごち最高〜

>>695
1問目)
まず、20時間以下なら時間に2000をかけるだけでいい。
20時間を超えたら、越えた分だけ1500円ということは、元の時間から20を引いてから1500をかける。
だから、20時間以下か越えているかをIFで判断して分ける。
=IF(A1<=20, A1*2000, 20*2000+(A1-20)*1500)
これなら理解できるかな？
まさかIFの使い方がわからないとか言わないよな？

>>693
それはIFを重ねるんだよ。
=IF(条件式1, 結果1, IF(条件式2, 結果2, 結果3 ))
条件というのは、90分と120分。

教えるのも冬厨だから、もうヘロヘロ

ホントもうヘロヘロですよ

(;ﾟдﾟ)ｪ..

ExcelみたいにVBA的な機能がついてExcelよりもよりこういった数学に特化された
ソフトを知りませんか？

どういった数学じゃｺﾞﾙｧ

暇な奴多すぎﾜﾛﾀ

ぼくの右手を知りませんか？行方不明になりました。

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

slkをxlsに変えたり、
xlsをsikに変えたりしたいんですが、
sik⇔xlsな変換ソフトってフリーでありませんか？

>>722
Excelスレで唐突にslkだかsikだか言われても意味が分からんよ。
多分拡張子の事を言ってるんだろうが、どういうソフトなのかを詳しく書いてくれ。

名前を付けて保存の時にファイルの形式をＳＩＫにしたら？

>>722

>>724をVBAで書けば、それが変換ソフト
しかしVBAでの回答の可否が無いので
http://www.vector.co.jp/soft/win95/business/se065920.html
↑これはCSVに変換するらしい

>>718
数学ソフト
でぐぐると良い
小数誤差もほとんどない
>>722
SYLKとは、表計算ソフトやデータベースソフトで扱うデータ形式のことである。

SYLKは、MicrosoftがExcelを発売する前に開発・発売していた表計算ソフトのMultiplanで導入された形式で、Windowsでの標準的な拡張子は.SLKである。

Excelはもちろん、他の表計算ソフトでもSYLK形式を使えるようになっていることが多く、
データ交換用途に使える。ASCIIコード（漢字はシフトJIS）だけで構成されるテキスト形式だが、
セル位置や、データが数字か文字かを示す情報などを記録しているので、少々冗長だが確実にデータを交換することが可能である。

ふむ。SLKの形式がCSVに相当するなら色んなフトてせ使えると思う

知らないなら答えなきゃいいのにｗｗｗｗであるｗｗｗｗｗｗ

いつも解説ご苦労さん
たまには答えてもいいんだよ

>>718
「表」がなくていいなら maxima とか。
Rも楽しい。

エクセルデータにてシート上の　-　をすべて　―　に
変換したいのですがうまい方法はないでしょうか？

>>730
編集→置換

>>730
数式の中の引き算も変わっていいんなら>>731だけど、それで大丈夫？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 OOo calc 3.0
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 countif ＋　カウントされない
OOo calcですが質問です
COUNTIFで[]や+が入っている文字列がカウントされず0となります
これらが入っている文字列を正しくカウントする方法はありますか？
またExcelなら問題なくカウントされるのでしょうか？

↑
スレタイを500回くらい読んでみようｗ

OOoも使ってるのでcalcに付いても回答できるが
スレ違いなのでExcelいついてのみ回答しよう

> またExcelなら問題なくカウントされるのでしょうか？
カウントされる

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

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

二つのセルの間に罫線を斜めに引きたいのですが、セルとセルの間の罫線は消したくありません。
結合なしで斜めに罫線を引く方法はないですか？

>>737
オートシェイプ

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

if文で、現在午前か午後かで処理を変えたいのですが
わからなくて困ってます。

if(now()>"12:00",処理1,処理2) とかでは駄目ですよね。
どなたか教えて頂けないでしょうか？

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　指定条件　抽出

お願いいたします。
今手元にあるエクセルが以下のようになっております。

　　Ａ　　Ｂ　　Ｃ　　
１　成績　生徒　教師　
２　１　　山田　加藤　
３　２　　吉田　松岡　
４　９　　簗岡　加藤　
５　１５　村田　松岡

こんな感じで、１０００行ぐらいあるのですが
これらを、例えば生徒村田は教師松岡が担当をした場合に
成績が５位〜１位になる率が４０％以上あるなら★　３０％以上４０未満なら☆
というように印を付けて別シートに抽出できないでしょうか？

シート１にデータ　シート２に生徒名と教師名を入力　シート３に生徒名と教師名とマーク
こんな感じが理想なのですが、お願いいたします。

>>740
=IF(MOD(A1,1)<0.5,"午前","午後")
=IF(MOD(A1,1)<"12:00"*1,"午前","午後")
=IF(MOD(A1,1)<VALUE("12:00"),"午前","午後")

すまん、まつがった。
上の式のA1の部分はNOW()に変えれ。

またまつがったよ。
上は>>742だよ。

>>740
「任意のセルの時刻値が」ではなく「現在時刻が」なら、VBA使わないとまずいのでは？
数式だと再計算されない限り、正午を回っても午前のままだぞ

>>741
「生徒：村田&教師：松岡&成績：5以下」の数を、「生徒：村田&教師：松岡」の数で割って
それを条件にIFで★なり☆なりを返せば良いだけだろ
確か2007なら複数条件でカウント出来る関数が加わったから
配列数式とか作業列とか使わずに簡単に処理できるはず

2007の複数条件でカウント出来る関数(COUNTIFSだったか?)は内部的には配列数式だから、配列数式でも同じ。

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

>「任意のセルの時刻値が」ではなく「現在時刻が」なら、VBA使わないとまずいのでは？
あっ、そうなんですね。　では任意のセルに時刻値を取るようにしてみます。
ありがとうございました。

> 内部的には配列数式だから
ハズレ

> 配列数式でも同じ。
例え内部的には配列数式でも、Ctrl+Shift+Enterで確定するとか
論理演算が必要とかの制約が違うから同じとは言えない

Ctrl + Shift + Enterなんてたいした意味ない。
重さ調べりゃ分かる。
SUMPRODUCTみたいなもんだな。

配列数式だからどうのこうのっていう奴が一番バカ。
配列数式には大した意味はない。
配列計算をしているかどうかだ。
ただ、ほぼ確定なのは {=SUM(IF())}とSUMPRODUCTは同じ結果がでるが
処理スピードの速さは
{=SUM(IF())}＜SUMPRODUCT

SUMIFSも同じ
配列計算を前提に作られている関数なんだから当然といえばとうぜんだな。

で、
今のPCだとそんなに時間かわんねーだろ長くて1秒ぐらいですか(笑)
→膨大な計算をする表だと大きな差が出る
→普通そんな表あつかわねーよそれはそもそも表が悪い
→膨大な計算をする表が必須な場合がないとは言い切れない
辺りで無限ループだろ。そろそろ止めようぜ

よろしくお願いします。

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

　　　Ａ列
１行　あ
２　　い
３　　う

という感じで、列に入力されているものを

　　　　Ａ　Ｂ　Ｃ
１行目　あ　い　う

というように変えることはできますか？

よろしくお願いします。

>>749-750

新しいパソコン買ったが、EXCEL2007って糞だな。
2003と互換性も限られるし本当に糞！

　　 A　　　B
1　=$B$1
2　=$B$2
3　=$B$3
　：
　：
10　=$B$10


みたいな感じで「絶対参照なんだけど1つずつ数字をずらす」ようにしたいのですが
簡単に入力する方法はないでしょうか？

A1セルが=$B$1じゃなくて=$B1ならばそのままセル枠を下に引っ張れば
=$B2
=$B3
と続いてくれるけど、数字にも$をつけてるので引っ張ってコピーしても当然数字が変わらない

この例はセルに直接記入していますが、条件付き書式で同じようなことをしたいとも思っています。

>>752
形式を選択して貼り付け→行列を入れ換える

>>755
=$B1で引っぱってから「B」を「B$」に置換

>>755
数式なら>>757でいいが、条件付き書式ではVBA使うしか無い
まあ具体的に何がやりたいのかが解れば、他の解決方法が有るかも知れないが

>>757-758
レスどうもです。やっぱり簡単な方法はないんですね。

やりたいことは、
　中身が全く同じの表が2つあり、各々が別の基準で行をソートする。
2つ共にある1列をflagとして見ていて、そのflagが立ってたら背景色を変えたい。

A列をflag列とすると
　　A　　　　B　　　　C　　　　 D　　　　E
1　あいう　　1　　　あいう　　　a　　　たちつ
2　かきく　　2　　　かきく　　　b　　　あいう
3　　　　　　3　　　さしす　　　c　　　さしす
4　　　　　　4　　　たちつ　　　d　　　かきく

BC列が表1、DE列が表2、C列とE列は中身は一緒だけどそれぞれB列とD列という異なる基準で昇順ソートされてる
A列でflagが立っている「あいう」と「かきく」が含む行だけを背景色を変える、
つまり、セルB1/C1,B2/C2,D2/E2,D4/E4の背景色をA列のflagを見て条件付き書式で変えたい
flagに使うA列の順序はB列と同じ基準で昇順になっている

表の作り方は、最初にBC列を作って、それを丸々コピーしてDE列を作る
そして後からD列のソート基準を1234からbdcaと書き換え、
DE列だけをD列でソートしなおす(bdcaからabcdに変わる)時、参照するA列を絶対参照にしたい
そうしないと、DE列の参照先が全然違うとこに行っちゃう

分かりにくいかと思いますが… 上記のような感じです。

>>756

ありがとうございます。

>>750
同意だな。
処理スピードは、SUMPRODUCTの式の書き方によっては配列数式とまったく同じになるね。

例えば
式1　=SUMPRODUCT((A1:A50000="A")*(B1:B50000=1),A1:A50000)
式2　=SUMPRODUCT((A1:A50000="A")*(B1:B50000=1)*A1:A50000)
式3　{=SUM((A1:A50000="A")*(B1:B50000=1)*A1:A50000)}

これは式１がごくわずかに速いが、式2と式3はまったく同じ。
式2のように*で計算してる式はSUMPRODUCT使う意味なし。
式が短い分だけ式3がまだマシってもんだ。
式2みたいなのが巷にはあふれてるが。

下みたいな長い式を書くドュソもいるが。ｗ
=SUM(INDEX((A1:A60000="A")*(B1:B60000=1)*(C1:C60000),))

すまん
式1　=SUMPRODUCT((A1:A50000="A")*(B1:B50000=1),C1:C50000)
式2　=SUMPRODUCT((A1:A50000="A")*(B1:B50000=1)*C1:C50000)
式3　{=SUM((A1:A50000="A")*(B1:B50000=1)*C1:C50000)}
のまちがいな。

>>759
マクロの記録使えば一瞬で終わるよ

ただ>>755は
=INDIRECT("$b$"&ROW())
で解決じゃねーの
ちなみに上記式だと$は合ってもなくてもいい

>>746
2007のCOUNTIFSは配列数式より速いみたいだよ？
A列が"A"でB列が1の複数条件のカウントの場合

式1　=SUMPRODUCT((A1:A60000="A")*(B1:B60000=1))
式2　{=SUM((A1:A60000="A")*(B1:B60000=1))}
式3　{=SUM(IF((A1:A60000="A")*(B1:B60000=1),1))}
式4　{=SUM(IF(A1:A60000="A",IF(B1:B60000=1,1)))}
式5　=SUM(INDEX((A1:A60000="A")*(B1:B60000=1)*1,))
式6　{=COUNT(1/((A1:A60000="A")*(B1:B60000=1)))}
式7　=COUNTIFS(A1:A60000,"A",B1:B60000,1)

Ｂ1をループを回して1〜10まで変更して計ってみたら、ぶっちぎりで式7が速かった。
式1や式2の４倍くらい速い。

速い順に
式7　ぶっちぎり
式1=式2
式4
式3
式6
式5

2007のCOUNTIFSの式7以外はたいした差じゃないが。
SUMPRODUCTもこのケース(*で乗算)では意味なし。Excel 2003までは式2の配列数式で充分。
式5のINDEX使うやつは馬鹿。

>>762
式３より式２の方がわずかだが速いよｗ

式5はよくみたら*1は不要だな。余計な計算したら遅くなるのは当然か。
=SUM(INDEX((A1:A60000="A")*(B1:B60000=1),)) としたら
速い順に
式7　ぶっちぎり
式1と式2ほぼ同じ
式4と式5ほぼ同じ
式3
式6
だった。
式5が一番遅いわけではないが、無意味に長いから馬鹿には違いなし。

>>765
俺もそう書いてるんだが？

>>767
式2と式3はまったく同じって書いてあるじゃん！
式2より式3を推してるし。

>>764じゃなくて>>761の話か。
俺の環境では変わらん。
昔から何度も計ってるんだが、いちもほとんど同じ。
それぞれ５回計ってみたが
式2
0.640625
0.65625
0.65625
0.640625
0.65625

式3
0.65625
0.640625
0.65625
0.640625
0.640625

誤差範囲だろ？
timeGetTimeで計れなんて言うなよ。分解能は1/18秒で変わらんからな。

>>768
>>764と勘違いだすまんね。
>>769読んでね。
やっぱ*で乗算する場合はSUMPRODUCTは推せないよ。
ちなみに上の分解能は精度の間違いね。

>>769-770
勘違いねー
えーよー

それからここ参考になるかも
http://msdn.microsoft.com/ja-jp/library/aa730921.aspx

>>771
そんなのとうの昔に読んでるよ。
っていうか俺の知識とたいして変わらんからまるで俺が書いてるみたいだが、間違いもチラホラとあるから俺じゃない。ｗ
SUMPRODUCTのくだりは間違い。
上に書いてるようにう使い方による。、

>>765=>>771は
http://msdn.microsoft.com/ja-jp/library/aa730921.aspx
これを鵜呑みにして書いてたのか？
馬鹿杉。