Excel総合相談所 72

[表示 : 全て最新50 1-99 101- 201- 301- 2chのread.cgiへ]
Update time : 01/24 15:40 / Filesize : 103 KB / Number-of Response : 308
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Excel総合相談所 72

1 名前：名無しさん＠そうだ選挙にいこう [2008/07/11(金) 17:39:04 ]: 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総合相談所 71
pc11.2ch.net/test/read.cgi/bsoft/1214204248/l50
2 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/11(金) 18:04:06 ]: ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･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 書籍や解説サイトの紹介依頼はスレ違い。ここは技術的な質問のみで。
3 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/11(金) 18:05:07 ]: ★ルールを無視すると…
　>>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分野の話ではないので､ここでは聞かないでください。
4 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/11(金) 18:05:47 ]: ★ 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セルを分割 (分割したいセル以外を結合)
5 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/11(金) 18:06:31 ]: 上記｢Excelで出来ないこと、仕様上の制限｣は､一般的に出来ないとされていること､出来ないと思われるものです。
間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。
Excel2007についても未確認な項目が多いので変更点が有ればご指摘下さい。

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

＞▼環境･書式
＞･セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
補足
2007ではページレイアウトビューの表示時に限り、幅・高さともｃｍ単位で表示され、
指定も同じくcm単位でできる。
ただし大元がインチ系なのでなかなかピタリの値は出ない。1cm→0.98cmのように
近い値に勝手に丸められる。
6 名前：名無しさん＠そうだ選挙にいこう [2008/07/11(金) 18:07:04 ]: 「路上で揉めるのも目立ちます。9800円のラブホに入りますか？」

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

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

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

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

ナレーター……このわたくし。みなさんよろしく。
9 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/11(金) 19:38:06 ]: 三重県民乙
10 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/11(金) 21:15:11 ]: >>8
先生、
テンプレ使わなくてもキレないけど、必要な情報が出てないと無視するというか回答を控えざるを得なく
VBAは万能だと信じてるというか知っているが、同時に「万能=全ての状況で最適」では無いことも知っており
ピボットも使うが、なんでも出来るとは錯覚しておらず、関数式では作業セル使って個々の式をシンプルにするのが好きだが
1つの式でとか作業列使わずにとか言われれば、数重ネストも配列数式も使い出す漏れは、何に該当しますか？
11 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/11(金) 21:37:52 ]: なんというウザさ
12 名前：名無しさん＠そうだ選挙にいこう [2008/07/11(金) 21:42:54 ]: >>9
なんでも言われたとおりに答えるやつはヴァカです。
ちゃんと啓蒙しましょうね。
13 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/11(金) 22:03:28 ]: >>10
自己満の役立たずと言います。いてもいなくても同じなので呼ばれ方を気にする事もないよ。
14 名前：12 [2008/07/11(金) 22:09:09 ]: アンカーミスったよ。
>>9ごめんな
15 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/11(金) 22:26:07 ]: 前スレ995がふがいないので、ずれてない表を作ってやったぞ

日付　　　　 1日　 2日　 3日　 4日　 5日　 6日
走行距離 15km 20km 30km 20km 30km 15km
給油　　　　　　　　　 5　　　　　　　　　　　　 20
燃費　　　　　　　　Ａ　　　　　　　　　　　　Ｂ

Ａ=(15+20)/5
Ｂ=(30+20+30+15)/20

俺からのアドバイスとしては、まず、横じゃなくて縦に並べるべき。
それから単位はいちいち入れずに数字だけを並べた方がいい。例↓

1 15
2 20 . 5 A
3 30
4 20
5 30
6 15 20 B
16 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/11(金) 22:32:12 ]: ぶっちゃけ、その式じゃ燃費は求まらない
17 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 05:10:44 ]: R3C2 の値はR2C3、R4C3 の値はR3C4、のように、m行n列のセルがn行m列を参照するようにするには、
どういった式にすればいいのでしょうか？

でたらめでエラーになる式ですが、なんとなくイメージはこんな感じで
=R( COLUMN() )C( ROW() )

要は、
　ABCDEF
A×
B ×
C   ×
D     ×
E       ×
F         ×
のような形式の表で、
右片側を埋めてある状態で残りの空白を自動的にコピーしたいのです。
18 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 06:21:37 ]: >>17
勝敗表みたいなもんかな？
=INDIRECT(ADDRESS(COLUMN(),ROW()))とかでいけんじゃね？
19 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 12:11:45 ]: >>15はアホか？
ここの回答者どもは燃費の計算もできないの？
20 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 13:08:16 ]: 燃費を計算するには給油量じゃなくて消費量が必要。
必ず満タン給油なら給油量＝消費量になるが、今までの質問内容から、これがちょっと怪しい。
現時点ではデータの素性が明記されていないので計算可能かどうかは不明。
21 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 13:08:38 ]: >>18
ありがとうございます!
できました。
22 名前：名無しさん＠そうだ選挙にいこう [2008/07/12(土) 16:10:18 ]: >>19
だったらどうすりゃ良いか教えてくれよ
あんた自信あんだろ、感心するような解答見せてくれ
それとも、チャチャ入れるだけで全力使い果たしたのか
23 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 16:39:19 ]: >>22

中途半端な知ったか君は無理して回答しなくてもいいんだよ。
24 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 16:54:29 ]: 噛み合わないなあｗ
ひょっとして懐かしの人口無能同士？
25 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 16:56:06 ]: >>22
常に満タンで給油しているか、十分長い計測期間のデータであれば燃料の給油量と消費量はほぼ等しいと考えられるから、
燃費＝走行距離÷給油量

ただし給油が満タンとは限らず、計測期間が短い場合にはこの近似は成り立たない。
26 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 17:02:23 ]: >>24

>>22は>>15の子じゃないの？
27 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 17:30:19 ]: >>15
>>22
ところで、燃費の計算するのにデータを横向きでなく、縦に並べたほうがいいのはなぜなの？
28 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 17:48:55 ]: 聞くだけ無駄だろ～

どうせ縦方向のが長いとかくだらない理由だろうからｗ
29 名前：名無しさん＠そうだ選挙にいこう [2008/07/12(土) 20:21:45 ]: >>27
エクセルの構造上、データは縦に並べた方が処理しやすいし、
処理方法も多いから

>>19
君はどう思う？
30 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 20:27:52 ]: データベースの基本だろ。
行はレコード、列はフィールドに対応する。
ttp://base.officehp.com/article/83221398.html
データは、特別な理由が無い限り縦に並べるもんだ。
31 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 20:38:21 ]: >16,19,24,26,28
この中で一番情けない人、だ～れだっ
32 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 20:48:58 ]: >>29
>>30
ところで、燃費の計算するのにデータを横向きでなく、縦に並べたほうがいいのはなぜなの？
33 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 20:59:22 ]: >>30
なんでURLを完全に書かずに
ttp://…
なんて書いてるの？
34 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 21:01:54 ]: >>32
あのねぼく、目的は関係ないんだよ。
データの配列方向は縦でも横でも本質的な違いはなく、ぶっちゃけどっちでもいいんだけど、
何かしら統一された記述ルールがあった方がデータベースの設計効率が良くなるの。

道路が右側通行か左側通行か、どっちがいいかって言うのと同じ程度のこと。
ほかの人と同じにしといた方が都合がいいのよ。
35 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 21:03:31 ]: >>34
やっと正解にたどり着いたね。
36 名前：名無しさん＠そうだ選挙にいこう [2008/07/12(土) 21:04:56 ]: びっくりするほど頭悪いのに上から目線で見たがるのなあ
なんかもう感心するわ。すげーなあんた
37 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 21:07:42 ]: >>36
正直言って君たちの事が低く見えている。
38 名前：名無しさん＠そうだ選挙にいこう [2008/07/12(土) 21:08:03 ]: ああ、>>8の人か。お大事に。
39 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 21:13:03 ]: このスレおもろいな。もっとやれ。
40 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 21:17:12 ]: 　　　　　　　　　　r;;;;ﾐﾐﾐﾐﾐﾐヽ,,_
　　　　　　　　　,i':r"　　　　　 `ﾐ;;,
　　　　　　　　　彡　　　　　　　ﾐ;;;i
　　　　　　　　　彡　⌒　　　⌒　ﾐ;;;!
　　　　　　　　 ,ゞi"￣ﾌ‐!￣~~|-ゞ, 　
　　　　　　　　ヾi `ー‐'､ ,ゝ--､' 〉;r' 　
　　　　　　　　　`,|　 / "ii" ヽ　　|ﾉ　おまえら、もうすぐサマータイムくるから。
　　　　　　　　　　't　ト‐＝‐ｧ　 /　　よかったなぁ、サビ残増えるぞサビ残。
　　　　 ,＿＿__/ヽ｀ニニ´／　　　
　　　　 r'"ヽ　　 t､　　　　　/　　　　　　
　　　　/ ､､i　　　ヽ＿＿,,/
　　　 /　ヽﾉ　　j　,　　　j　|ヽ　　
　　　 |⌒`'､__ /　/　　　/r　 |
　　　 {　　　　￣''ｰ-､,,_,ﾍ＾　|
　　　　ゝ-,,,＿＿＿＿_）--､j
　　　 /　　＼__　　　　　　/
　　　|　　　　"'ｰ‐‐--
41 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 21:20:02 ]: 啓蒙先生のお小言にも耳を傾けるべきだよ。
ここの回答者のレベルが低いのは事実だと思う。
前スレの不等号のやつなんかありえない。
42 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 23:31:09 ]: Excelがいくらバージョンアップしても「最大行数＞＞最大列数」の理由を考えてみるといいよ。
縦横どっちでもいいんならワークシートは「最大行数＝最大列数」の正方形でもいいはずだよね。
43 名前：名無しさん＠そうだ選挙にいこう [2008/07/12(土) 23:33:28 ]: データを縦に並べる意味、それは・・・

ピ　ボ　ッ　ト　テ　ー　ブ　ル　！　！

これ以外あり得ないｗ
44 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/12(土) 23:51:48 ]: >>42
その理由とは？
45 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 01:23:13 ]: >>42
別に正方形でもかまわないわけなんだが。
ほんとに考えてる？
啓蒙のいうこのスレの頭の悪さってこういうことなのかな。

>>43
燃費計算をピボットテーブルでやるのはありだね。
その場合はデータを縦に並べるのがいいといえるな。
46 名前：名無しさん＠そうだ選挙にいこう [2008/07/13(日) 04:55:29 ]: >>34は明らかに間違ってる
47 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 05:07:23 ]: 問題

A列に外国語の単語が入っている。ときどき2語以上の句も混じっている。
この状態で、つい打ち込んでしまった前後の半角スペースだけを取り除いて
B列に表示するにはどうしたらよいか。
48 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 07:34:25 ]: >>47
１、前後の半角スペースを取り除いたら単語がくっつくけどいいの？？
２、半角をＢ列に移動するってこと？移動しても表示はできないけど？移動する意味は？
３、Ａ列から半角スペースを取り除くだけでよかったなんて言わないよね？

これって宿題ですか？
49 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 07:35:48 ]: >>47

Trim
50 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 08:33:24 ]: いつからだ、ここが、ガキの溜まり場になってんのは
そろそろ夏厨が湧いて来るから、収拾付かないぞ！！
51 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 08:53:07 ]: 自己紹介乙
52 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 08:59:36 ]: 本当だなｗ
Q&Aの場と言うよりは、自己紹介の場になってるなｗ
53 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 10:27:43 ]: 【1 OSの種類　　　　 .】 Windows XP
【2 Excelのバージョン　】 Excel2000・2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 Excel　VBA　WorkSheet　Undo　beforesaveなど

複数のワークシートがあるブックで特定のシートを更新した時にそのシートにのみ
更新日などの情報を指定のセル（どこでも可）に表示する方法はありますか？
現在はbeforesaveでブックを保存するときにシート2のA4に表示させていますが
シート3だけ更新したときでも当然ながらシート2の日付も変更されてしまいます。
条件として、編集中にマクロで表示させるのは元に戻すことができなくなるのでなしでお願いします。
（WorksheetChangeでやってみました）

よろしくお願いいたします。
54 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 10:38:51 ]: 【1 OSの種類　　　　 .】 Windows XP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】一応
【4 VBAでの回答の可否】可

複数のワークシートがあるブックで
ワークシートを一枚ずつめくって規定の作業を行い
最後まで終わったら終了するマクロとか出来ませんか？
アクティブシート内の編集程度でしたら組めるので参考にしたいです
55 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 11:27:02 ]: >>48
日本語を理解できない方は無理に回答しようとしなくていいんですよ。
56 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 12:27:23 ]: ってか、質問するやつも簡潔に質問しろよ。
たとえば「前と後ろのスペースを取るにはどうしたらいいですか？」とかね。
答えはすでに出てるけど=TRIM(A1)だが。
57 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 12:29:36 ]: >>56
それじゃ全角スペースも取り除くから違うんじゃね？
58 名前：56 mailto:sage [2008/07/13(日) 12:45:31 ]: >>57
そういう引っかけ問題なのか？
じゃぁ全角スペースを何かに置き換えておけばいいだろうね。
=SUBSTITUTE(TRIM(SUBSTITUTE(A1,"　","@hoge@")),"@hoge@","　")
とか
59 名前：47 mailto:sage [2008/07/13(日) 12:56:59 ]: みなさんありがとうございます。
手入力によくある事態を解消する方法ということでした。
打鍵中に勢いで不必要な半角スペースを打っちゃうことがありますよね。
どこにあるか分からないそういう単語の前後にくっついた半角スペースを、
語と語の間の正当な半角スペースを傷つけることなく取り除き、
かつ、語と語の間の全角スペースもついでに拾い出して半角に直してしまうような式はできないかなという、
そういう相談でした。

trimは当然思いつくのですが、それだと語と語の間の正当なスペースも取れちゃいますよね。
仮に英語だとして、good moningもくっついちゃいます。それはまずい。
ではどうしたら？ってことでした。
60 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 12:59:14 ]: Excelでやる必要はあるまい
Wordなら置換に行頭・行末記号が使えるからかんたん
61 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 13:02:06 ]: 申し訳ない。EXCEL指定なんです。
ほかのデータとの参照が張り巡らされているので、
できればエクセル上で処理したいんですね。
実際はＡ列に単語がずらーっと並んでいるだけのシートではないもので。
レスありがとうございました
62 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 13:02:46 ]: >>59
ワークシート関数のTRIMは前と後ろのスペースは取るが、語と語の間のスペースは取らんだろ？
63 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 13:03:42 ]: >>62
！すぐに確認してきます。
64 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 13:06:24 ]: >>62
お！解決しました。ありがと！
65 名前：62 mailto:sage [2008/07/13(日) 13:07:58 ]: 正確には語と語の間のスペースが2個以上あれば、1個だけ残してあとは全部取っちゃうけどね。
66 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 13:17:31 ]: >>65
なおよしです。あとは全角スペースを半角に置き換えちゃえばいいですね。
67 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 13:35:59 ]: >>53
更新情報を管理したいんであれば、「ブックの共有」機能の「変更履歴の記録」を使えば済むかもね。
ちょいと大袈裟で細かくなってしまうけど。

そうでなきゃ、別のシートに記録だけ書きこむとか
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　Application.EnableEvents = False
　Worksheets("変更記録").Cells(Sh.Index, 1).Value = Sh.name
　Worksheets("変更記録").Cells(Sh.Index, 2).Value = Now()
　Application.EnableEvents = True
End Sub

フラグ立てながら監視して、シート切り替え時と保存時に書きこむとか？

Private isChange As Boolean
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
　sChange = False
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal target As Range)
　isChange = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　If isChange Then Call record(ThisWorkbook.ActiveSheet)
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
　If isChange Then Call record(Sh)
End Sub
Private Sub record(target As Worksheet)
　target.Range("A1").Value = Format(Now(), "yyyy年m月d日")
End Sub
68 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 13:41:06 ]: >>54
できると思うけど、どんな業務を想定してるのかがわかんないとなんとも。
アンケートみたいなのかな？それだったら、ハイパーリンクでシートを結ぶだけで
めくる感じでいけんじゃない？

で、最後のシートで「登録」ボタンみたいなの押すと、必須項目のセルに値が入って
いるかどうかをチェックして終了とか。

具体的な処理は、なにをさせたくて、何をさせたくないかによっていろいろ変わってくるんじゃないかな。
69 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 15:33:32 ]: >>67さんありがとうございます。

別シートに書き込むのもありかと思いますが
今回は二番目に提示していただいた方法

>フラグ立てながら監視して、シート切り替え時と保存時に書きこむとか？

をベースとしてやらせていただきたいと思います。
助かりました。ありがとうございました。
70 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 18:36:26 ]: 【1 OSの種類　　　　 .】 WindowsXP SP2
【2 Excelのバージョン　】 Excel 2003
【3 VBAが使えるか　　 .】少々
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 excel プルダウンアクティブカーソル&合わせる等

フォームのリストボックスやコンボボックスはよく使用しますが
セルをアクティブにした途端にコンボボックスのように振舞うセルに出会いました。

ブック内を検索してもプルダウンに現れるリストがありません。
[データ]→[リスト]で作成できるリストは候補が必要で
少し違うのかなと感じています。

コレを使えたらブックをもっとシンプルに出来ると期待しています。
指南いただけないでしょうか。
71 名前：名無しさん＠そうだ選挙にいこう [2008/07/13(日) 18:39:18 ]: >>70
データ→入力規則じゃね？
72 名前：名無しさん＠そうだ選挙にいこう [2008/07/13(日) 18:42:00 ]: 何百もデータがあって
そのデータを別のシートの一部の場所に
一つずつ表示させたいんですができますか？

例えば年賀状の名前と住所の所だけ変えていく
みたいな感じです。
73 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 18:52:12 ]: >>71
その通りです。
入力規則の使い方をググったところ見事同様のものが作成できました。
大変有難う御座いました！
74 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 19:05:30 ]: >>72
リストはExcelでつくって印刷はwordで差し込み印刷をする
75 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 19:30:07 ]: >>72
フリーソフトで「エクセルではがき作成」ってのがあるよ
中々の物です。参考にどうぞ
76 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 19:37:02 ]: >>72
１つずつ表示、を詳しく説明しないと、
はがき印刷がらみのピンと外れのレスしかこないぞ。
77 名前：名無しさん＠そうだ選挙にいこう [2008/07/13(日) 20:29:23 ]: >>74-76
ありがとうございます
解決しました
78 名前：名無しさん＠そうだ選挙にいこう [2008/07/13(日) 21:45:17 ]: 【1 OSの種類　　　　 .】 Windows xp
【2 Excelのバージョン　】 Excel 2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否否

0:00の時表示しない方法はわかるのですが
入力されてないセルの合計を出すと#######と
表示されます。なにかよい方法ありますか？
79 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 21:48:38 ]: >>78
セルの幅を広げる
80 名前：名無しさん＠そうだ選挙にいこう [2008/07/13(日) 21:57:32 ]: >>78
セルの幅を広げても同じでした
負であるか、大きすぎる日付および
時間は######と表示されますとでます。
81 名前：名無しさん＠そうだ選挙にいこう [2008/07/13(日) 21:59:35 ]: >>79の間違いでした
82 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 22:04:09 ]: >>80
h:mm;;;
83 名前：名無しさん＠そうだ選挙にいこう [2008/07/13(日) 22:09:08 ]: >>82
何も表示されませんでした
84 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 22:53:57 ]: >>80
###の場合、[エラーチェックオプション]ボタンは表示されないし、
エラーチェックもスルーされるし、エラーのトレースも出ないし・・・？
>　負であるか、大きすぎる日付および時間は######と表示されます
ということだけれど、どこにどのようにそう表示されているのでしょう。

（念のため）セルの幅は自動で広げているのですか？
新しいブックで試してみても同様の症状になりますか？
85 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 23:33:31 ]: >>84
たとえばA1に1:00、B1に2:00、C1=A1-B1ってして時間がマイナスになるようにしてみ。
セルの幅をどんだけ広げても###が表示されるから。

>>83
0:00を表示しなくさせる方法ってのを、どうやったのか詳しく書いて。
それによって対処方法が違ってくるから。
86 名前：名無しさん＠そうだ選挙にいこう [2008/07/13(日) 23:35:40 ]: >>84
A1=8:00 B1=17:00 C1=B1-A1-A10(セルの書式h:mm;;)
A2=空欄 B2=空欄 C2=B2-A2-A10(セルの書式h:mm;;)

A10=9:00 C10=SUM(C1,C2)(セルの書式[h]:mm)
の様な式です
87 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/13(日) 23:43:15 ]: >>86
A1=8:00
B1=17:00
A10=9:00

なら

C1=B1-A1-A10

は0:00になるから、何も表示されなくて正解だと思うんだけど。
もちろんC2も空白になるし、C10も空白になる。それで合ってるんじゃないの？
88 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 00:02:12 ]: C10の書式がh:mm;;なら空欄だけど、[h]:mmだと###になった。
[負の日付または時間は####と表示されます]　と表示された。

>>85
サンクス！なったなった！
89 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 00:08:09 ]: >>86
それはつまり、A10とC10は[h]:mm;;;にすればいいのでは
90 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 07:48:22 ]: 申し訳ない！教えてください。
その場合の　セミコロン　は、どういう役割を果たしているのでしょうか。
どういう状況で使われるものですか？
検索したのですがわかりませんでした。
91 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 07:57:05 ]: >>90
正の数に対する書式；負の数に対する書式； 0になった場合の書式；文字列の書式
何も書かないと何も表示されなくなる

今回の場合、負の数はエラーになるし、当人の意向により0は表示したくないらしいので
2番目、3番目の書式に何も書かなかった。そのためセミコロンだけが連続する結果となった。
文字列を入力した場合の処理はなんとも書いてないので、セミコロンの最後の一つは
意味がない可能性もある。
92 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 11:55:11 ]: 【1 OSの種類　　　 .】 Windows xp
【2 Excelのバージョン】 Excel 2007
【3 VBAが使えるか　　.】いいえ
【4 VBAでの回答の可否 .】　否
セルA1にBOOKの名前（ファイル名）を表示させるような関数はありますか？
93 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 12:40:07 ]: >>92
「名前を付けて保存」してから
=REPLACE(REPLACE(CELL("filename"),FIND("]",CELL("filename")),255,""),1,FIND("[",CELL("filename")),"")

先に式を入れちゃだめだよ。まず保存だよ。
94 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 13:24:20 ]: >>93
=MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1)
結果は一緒だけど

CELL("bookname",A1)やCELL("sheetname",A1)って使えるようにしてほしいんだけどなぁ・・
95 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 13:30:03 ]: アンカーは態とか？
いるよねぇ、こういう奴
96 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 15:18:51 ]: >>91
「Excel　ユーザー定義　表示形式　セミコロン」、
という条件で検索をかけたとき、確かにそうした結果でしたのに、
そこまで頭が回りませんでした。
たとえが違うかもしれませんが、ＩＦ関数の""のような使い方ができるのですね。

ありがとうございました。
97 名前：名無しさん＠そうだ選挙にいこう [2008/07/14(月) 21:52:12 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 vba テキストファイル　複数開く

【前提条件】
・同一フォルダ内に、「Before」フォルダ・「After」フォルダ・「ツール.xls」ファイルがある。
・「Before」フォルダには、テキストファイルが格納されている。
・「Before」フォルダ内のテキストファイルの行頭は、必ず「AAA」・「BBB」のどちらかで始まる。
　（複数行に渡る場合、各行の行頭が上記のようになっている）
・「After」フォルダには、「AAA」フォルダ・「BBB」フォルダが格納されている。

【やりたいこと】
1 「Befor」フォルダ内に格納されている全テキストファイルと同一名称のテキストファイルを、
　「After」フォルダの「AAA」フォルダ・「BBB」フォルダ両方に作成する。
　（ファイル内は空でよい）

2 「Befor」フォルダ内のデータを見に行き、
　「AAA」で始まっている行は「After」フォルダの「AAA」フォルダ内に格納された同一名称のテキストファイルに、
　「BBB」で始まっている行は「After」フォルダの「BBB」フォルダ内に格納された同一名称のテキストファイルにコピーする。

以上の処理を実現するためのコードをVBAで作成していますが、下記の「'エラーメッセージ」の行で、
「ファイルは既に開かれています」というエラーが出てしまいます。

どのようなコードを書けば、上記の処理を実現することができるのでしょうか。
よろしくお願い致します。
98 名前：名無しさん＠そうだ選挙にいこう [2008/07/14(月) 21:53:50 ]: Sub FileMake()
Dim FileName As String, FileData As String
Dim no1 As Long, no2 As Long
Dim i As Long

FileName = Dir(ThisWorkbook.Path & "\Before\*.*")
Do While FileName <> ""
no1 = FreeFile

Open ThisWorkbook.Path & "\After\AAA\" & FileName For Output As #no1
Close #no1
Open ThisWorkbook.Path & "\After\BBB\" & FileName For Output As #no1
Close #no1

FileName = Dir()
Loop
99 名前：名無しさん＠そうだ選挙にいこう [2008/07/14(月) 21:54:21 ]: FileName = Dir(ThisWorkbook.Path & "\Before\*.*")
Do While FileName <> ""
no1 = FreeFile
no2 = FreeFile

Open ThisWorkbook.Path & "\Before\" & FileName For Input As #no1

Do While Not EOF(no1)
Line Input #no1, FileData

If FileData Like "AAA*" Then
Open ThisWorkbook.Path & "\After\AAA\" & FileName For Output As #no2　　'エラーメッセージ
Print #no2, FileData
Close #no2
ElseIf FileData Like "BBB*" Then
Open ThisWorkbook.Path & "\After\BBB\" & FileName For Output As #no2
Print #no2, FileData
Close #no2
End If
Loop

Close #no1

FileName = Dir()
Loop
End Sub
100 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 23:08:56 ]: >>97
ここがまずい

> no1 = FreeFile
> no2 = FreeFile

FreeFile関数は「Openされていない」ファイルの番号を返すので、no1をOpenする前にFreeFileを呼んでしまうと
no2にも同じ値が入ってしまう。
対策としてはDo～Loopの中にno2 = FreeFileを移す。
101 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 23:11:45 ]: Loopの中に入れるのは、さすがに無駄が多いか。こっちのがいいかな。

修正前

no1 = FreeFile
no2 = FreeFile
Open ThisWorkbook.Path & "\Before\" & FileName For Input As #no1

修正後

no1 = FreeFile
Open ThisWorkbook.Path & "\Before\" & FileName For Input As #no1
no2 = FreeFile
102 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 23:13:42 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】不可
【5 検索キーワード　　】重複セル　

データの重複したセルと空白のセルを削除して行を詰めるには
どうしたら良いですか？

リンゴ　　　　　　　リンゴ　　2
リンゴ　　2　　　　みかん　1
みかん　1　　　⇒メロン　 3
メロン
メロン
メロン　　3
103 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 23:19:52 ]: >>102
オートフィルタ
104 名前：名無しさん＠そうだ選挙にいこう [2008/07/14(月) 23:24:11 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】不可
【5 検索キーワード　　】書式

A～E列の5列に1～100まで合計500個の文字が入っています。
先頭の文字が全部同じなんですが、その先頭だけ文字の色を青くしたいんです。
セルにカーソルを入れて1っこずつやると日が暮れてしまうので、
なにか一発でドンと処理する方法はないでしょうか。
105 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/14(月) 23:48:30 ]: >>104
ない。部分的に色を付けるのはVBA使わないと無理。
106 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:00:15 ]: >>105
そっすかあ。残念です。
マクロの自動記録でできないかなあと浅知恵発揮しましたけど、
駄目でした。自動記録あたりでなんとかなる方法はないでしょうか。
107 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:02:01 ]: >>106
1個だけ色を付ける操作をマクロで記録して、あとはそれを500回繰り返すようにVBAを書けばいいだけだよ。
108 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:07:02 ]: >>107
それが一個だけ色をつける記録が残らんのですよ。
残ってくれればそれは500回やるだけでも労力半減なんですけどねｗ
もしよかったらためしに記録してみてください。
私は、自動記録開始して、
セルにカーソル入れて、先頭の一文字を反転させて、
赤色ボタンを押して、エンターキー押して、記録終了ボタン押しました。
でも実行してもうまくいかない・・・・・・・・・・・・・・・
109 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:09:01 ]: 付け足すと、
実行するとセルの中の文字が全部赤・・・じゃなかった青になっちゃうんですよね。
カーソル入れて一文字だけ指定して、の部分が記録に残らないみたいです。
110 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:12:02 ]: >>108
試しにやってみたら、全部で34行もあるマクロが記録されたよ？
111 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:13:46 ]: >>110
あらあ。何が違うのかなあ。
それでほかのセルで実行しても先頭だけ色が変わります？
112 名前：名無しさん＠そうだ選挙にいこう [2008/07/15(火) 00:16:36 ]: =LEFT(A1)で先頭1文字
=RIGHT(LEN(A1)-1)で残りの文字
に分割して、先頭1文字の列だけに色を付けるってのは駄目？
113 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:17:23 ]: あ、できました。
セルじゃなくて、シートの上にある横長の白いところ、左端にfxって書いてる部分。
そこでカーソルを入れて色変えて保存したらできました。
これを編集して500回コピーすればいいんですよね
114 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:18:30 ]: >>112
分割して先頭にだけ色をつけて、concatenateでつなぐってやってみましたけど、
くっつけるとそのセルの書式になっちゃうから、うまくいかなかったです。
レスありがとうございました。
115 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:20:00 ]: >>111
ちゃんと変わるよ。
セルを選択する前の状態からマクロの記録を開始して、Enterを押して確定させてから記録の終了してる？

つーか、もうめんどくさいから答えを書いといてやる。
VBAだとたった5行、こんなに簡単なプログラムで色が付けれるんだよ。覚えて損はないと思うぞ。

Sub Macro1()
　　For Each C In Range("A1:E100")
　　　　C.Characters(Start:=1, Length:=1).Font.Color = vbBlue
　　Next C
End Sub
116 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:25:10 ]: >>115
行った！と思ったけどだめでした。
繰り返してみたら、こんどは全部最初に記録したセルの内容に代わっちゃいました。
つまり全部同じデータになっちゃう。。。。。。。。

ということでありがとうございます。
それ試してみます。
117 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:27:41 ]: >>116
マクロの最初に

ActiveCell.FormulaR1C1 = "なんとか"

って部分があるでしょ。それがセルの内容だから、その部分を削除しないとみんな同じになっちゃうよ。
118 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:27:42 ]: >>115
感動していいですか・・・・・・・・・・・感動しました。
119 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:37:45 ]: >>117
後学のために試してみました。
なんとか、の部分を削除して""だけにして実行したら、なくなっちゃいましたｗ
なんか理解ができてないみたいです。
とにかく目的を果たすことはできました。
もう3回ぐらいやって感動し続けてます。
マクロができると本当にいいですねえ。
ありがとうございました。
120 名前：97 mailto:sage [2008/07/15(火) 00:37:56 ]: >>100
上手くいきました！

ありがとうございました。
121 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 00:41:52 ]: >>119
データの部分だけじゃなくて、1行丸ごと削除するのよ
122 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 12:28:55 ]: >>115
条件固定ならループ回す必要ないよ
Range("A1:E100").Characters(Start:=1, Length:=1).Font.Color = vbBlue
だけで、同じ結果な上に処理もループより遙かに高速
5行も使う必要無く、処理は1行、プロシージャ宣言含めても3行で済む

Rangeオブジェクトのメンバは、複数セルを対象に出来る物が多いから、覚えて損はないと思うぞ
123 名前：名無しさん＠そうだ選挙にいこう [2008/07/15(火) 13:52:55 ]: すいません　前スレに質問したものの、答えを見る前にdat落ちしてしまいました。
どなたか、23-08時までのものを深夜として計算する方法をご存じないでしょうか。
(出勤20時･退社時間5時とか毎回違うのです)
124 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 14:18:05 ]: >>123
終了<開始なら終了に+24hしてから計算(作業列でも、ifでも)
23時以前、深夜時間帯(23時以前開始で深夜時間帯終了・
深夜時間帯開始で深夜時間帯終了・深夜時間帯開始で32時以降終了)、
8(32)時以降と5つに列を分けて計算して合計するのが一番楽

23以前を例にすると
=if(開始時刻>=23/24,"",23/24-開始時刻)
って感じで
125 名前：名無しさん＠そうだ選挙にいこう [2008/07/15(火) 14:37:39 ]: こんにちは、ちょっと質問テンプレにあてはまらなかったんでフリーで質問します。
こんな感じの表を使いたいんですけど
ttp://www.odnir.com/cgi/src/nup18041.jpg
Excelは全く素人なので無料テンプレートってありますか？探したんですけどなかなか合うものがなくて…
126 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 14:47:19 ]: > なかなか合うものがなくて…
ドンピシャのものなんてそうそう有るもんじゃない。
ましてや>>125みたいに「計算表として不適切な構成」の場合は得にね。
127 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 16:14:47 ]: >>126
>　計算表として不適切な構成

横からスマン。
確かに行も列も・・・。

こんな感じならＯＫ？
pict.or.tp/img/66647.gif
128 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 16:33:03 ]: A1からI50の範囲に数式が色々入っており、それを行だけ相対参照で一つ下にずらし(列方向は絶対参照になっています)、
J1:R50の範囲にコピーペーストしたいと思ってます。

例としてA1には数式=sheet1!$A1が入っており、j1には=sheet1!$A2、S1には=sheet1!$A3と入力されるようにしたいのです。
このコピーペーストを横に27回分、28回目のコピーペーストからはA51セルから始まります。
これをおおよそ200回分繰り返します。

そして以下のマクロを考えたのですが、当方旧式のﾊﾟｿｺﾝのため処理が重く困っています。
もっと軽くしていただくことは出来ないでしょうか?

Range("A1:I50").Select
Selection.Copy
Range("J2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Cut Destination:=Range("J1:R50")
Range("J1:R50").Select
Selection.Copy
Range("S2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Cut Destination:=Range("S1:AA50")
Range("S1:AA50").Select
Selection.Copy
Range("AB2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Cut Destination:=Range("AB1:AJ50")
Range("AB1:AJ50").Select

・・これで三回分です。現状、これを500回分作ってあります。分割しないと文字数オーバーなので分割までしてあります。
分かりにくい説明ですみませんが、よろしくお願いします。
129 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 17:17:05 ]: >>126
そうですね～

>>127
そうです！そんな感じです！
用は得意先ごとの粗利が分かるようにしたいんです。
130 名前：NAME IS NULL mailto:sage [2008/07/15(火) 17:18:48 ]: 使っているのは2002SP3。

0001×10、0002×10、･･･0100×10まで1100行まで入力しなければならなくなったのですが、
ドラッグで一気に入力できませんでしたっけ。
一応、0001×10、0002×10の20行を左クリック選択してドラッグしてみたが、
0001と0002が10行ずつくり返されてしまう。
131 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 17:47:59 ]: >>130
書式設定で0000
又はA1からドラッグした後
=TEXT(A1,"0000")
と入れてドラッグ。こっちならコピーして値で貼り付けすれば0001などの値が保持される
132 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 19:11:50 ]: マクロの先頭に

　With Application
　　　.ScreenUpdating = False
　　　.DisplayAlerts = False
　　　.EnableAnimations = False
　　　.EnableAutoComplete = False
　　　.EnableEvents = False
　　　.EnableAutoFilter = False
　　　.EnableCalculation = False
　　　.EnableOutlining = False
　　　.EnablePivotTable = False
　End With

マクロの最後に

　With Application
　　　.ScreenUpdating = True
　　　.DisplayAlerts = True
　　　.EnableAnimations = True
　　　.EnableAutoComplete = True
　　　.EnableEvents = True
　　　.EnableAutoFilter = True
　　　.EnableCalculation = True
　　　.EnableOutlining = True
　　　.EnablePivotTable = True
　End With

これらを追加するだけで、かなりスピードうpするはず。
さらに速くしたい場合は、プログラムを根本的に見直すしかない。
133 名前：132 mailto:sage [2008/07/15(火) 19:13:00 ]: アンカーつけるの忘れた。
>>132は>>128へのレスね。
134 名前：132 mailto:sage [2008/07/15(火) 19:19:00 ]: ぐだぐだでごめん。それぞれ

　With Application
　　　.ScreenUpdating = False
　　　.DisplayAlerts = False
　　　.EnableAnimations = False
　　　.EnableAutoComplete = False
　　　.EnableEvents = False
　End With
　With ActiveSheet
　　　.EnableAutoFilter = False
　　　.EnableCalculation = False
　　　.EnableOutlining = False
　　　.EnablePivotTable = False
　End With

　With Application
　　　.ScreenUpdating = True
　　　.DisplayAlerts = True
　　　.EnableAnimations = True
　　　.EnableAutoComplete = True
　　　.EnableEvents = True
　End With
　With ActiveSheet
　　　.EnableAutoFilter = True
　　　.EnableCalculation = True
　　　.EnableOutlining = True
　　　.EnablePivotTable = True
　End With

の間違いです。
135 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 19:56:20 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】株価　結合　グラフ　エクセル　複数　などなど

株価チャートのグラフを複数作って、
それを一つのグラフ内に乗せたいのですが、コピー→貼り付けをやっても
高値安値終値を勝手に修正させられてしまします。
Ｘ軸１あたりで、４つの株価情報があると思ってくれると正しいと思います。
もう図にして透明化でもして合成するしか方法がないでしょうか？
ちなみにカレイダグラフではできるのですが、エクセルでも同じことがしたいです。
136 名前：名無しさん＠そうだ選挙にいこう [2008/07/15(火) 21:39:11 ]: >>134
ありがとうございます！
明日試してみます(会社のbook・マクロは持ち出せない為・・申し訳ｱﾘﾏｾﾝ)
137 名前：名無しさん＠そうだ選挙にいこう [2008/07/15(火) 22:06:13 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

数値を有効数字で表す際の質問です。

3桁目を四捨五入し、有効数字2桁までで表すようにします。
以下のようにすることが目的です。

① 9.04→9.0
② 9.05→9.1
③ 10.49→10
④ 10.50→11
⑤123.45→120

例：対象の数字がA1に入っている場合
=ROUND((A1*10^(INT(LOG10(A1))*-1)),1)*10^(INT(LOG10(A1)))

上記の関数を思いついたのですが、①が「9.0」ではなく「9」になってしまいます。
セルの書式設定やFIXED関数で小数点第1位までの表示にすると、③～⑤に小数点が入ってしまいます。
方法が分かる方、ご教授お願い致します。
138 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 22:17:03 ]: >>129
データを以下のように入力してピボットテーブルを使う。
粗利は集計アイテムの追加で。

得意先　　月　　　区分　　　金額
○○商事　１月　　売上　　　2345
○○商事　１月　　仕入　　　1223
○○商事　２月　　売上　　　3456
○○商事　２月　　仕入　　　2111
××会社　１月　　売上　　　6543
××会社　１月　　仕入　　　3244
××会社　２月　　売上　　　8965
××会社　２月　　仕入　　　5336
139 名前：137 mailto:sage [2008/07/15(火) 23:06:26 ]: 自己解決できました。
もし解決策を考案中の人がいましたらごめんなさい。
140 名前：名無しさん＠そうだ選挙にいこう [2008/07/15(火) 23:09:01 ]: >>139
どう解決したかぐらい書いてけよ
141 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 23:09:50 ]: >>139
私も興味あります。
142 名前：名無しさん＠そうだ選挙にいこう [2008/07/15(火) 23:10:43 ]: 1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可

　　Ａ　　　　Ｂ　　　　Ｃ　　　　　Ｄ　　　　　　Ｅ　　　
1　名前　　　性別　　　住所　　　　ＴＥＬ　　　携帯メール　　
2　山田　　　男　　　　東京都　090-1111-2222　yamada@docomo
3 田中　　　女　　　　大阪府　090-5555-6666　tanaka@docomo
4 鈴木　　　女　　　　北海道　090-1111-3333　suzuki@ezweb
5　古賀　　　男　　　　東京都　090-2222-4444　koga@softobank
6 山下　　　男　　　　宮崎県　090-3333-5555　yamashita@ezweb

　上記のような表があり、6行目まで埋まったら2行空けて9行目から上記の表を
追加し、以下同じように15行目まで埋まったらまた2行空けて18行目から表を追
加するようなマクロかＶＢＡを組みたいのですが、いい方法が思いつきません。
どなたかご教授願います。一応Ａ１～Ｅ６は罫線で囲っているつもりでお願い
します。あと印刷範囲も表がある範囲だけを自動で指定できたら幸いです。
143 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 23:10:53 ]: >140

ｲﾗﾈｰﾖ
144 名前：名無しさん＠そうだ選挙にいこう [2008/07/15(火) 23:15:14 ]: >>142
何を目的としてるのか分からんが、
「印刷タイトル」の機能を知ってれば単純に解決できるような問題のような希ガス。
145 名前：名無しさん＠そうだ選挙にいこう [2008/07/15(火) 23:25:53 ]: >>144 確かにこの場合だと単純に印刷タイトルでＡ１～Ｅ１を指定すれば解決
できますが、目的としては印刷タイトルが使えない様な複雑な表の場合にマク
ロを使って表を挿入したいのですが・・・
146 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/15(火) 23:32:57 ]: >>145
>>印刷タイトルが使えない様な

多分そこが間違い。
どーしてもマクロでやりたきゃ自動記録してみな。
147 名前：137 mailto:sage [2008/07/16(水) 00:14:12 ]: >>140
>>141
以下のようにやりました。
=FIXED(ROUND((A1*10^(INT(LOG10(A1))*-1)),1)*10^(INT(LOG10(A1))),(1+INT(LOG10(A1))*-1))

結局FIXED関数で文字列にして、先ずは見た目上の体裁を整える方向に。
集計など、数値として扱いたいときは、さらにVALUE関数を用いて文字列→数値に戻すので、目的は達成したもののあんまりスマートな方法ではないように思いますが。
148 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 00:20:42 ]: >>147
[<10]0.0;[>=10]00;G/標準
149 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 00:29:51 ]: 桁落ちとか考えなくていいの
150 名前：137 mailto:sage [2008/07/16(水) 00:38:09 ]: >>148
ユーザー定義をすっかり忘れていました！
ありがとうございます。
>>149
どうせ極端な数字は入ってこないので大丈夫かと。
151 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 00:42:06 ]: >>150
>>148の書式と組み合わせて、これでいけると思うんだが
=ROUND(A1,1-INT(LOG(ABS(A1))))
152 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 00:45:00 ]: >>151
0.01が0になるぞ。有効2桁なら0.010にならないといけないのでは。
153 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 00:50:15 ]: >>147はちゃんと0.010になるぞ。よく考えたなあ。
154 名前：名無しさん＠そうだ選挙にいこう [2008/07/16(水) 07:30:47 ]: >>132
ありがとうございます！！感動！！
しかもコードの見直しよりもよっぽど確実ですね
155 名前：名無しさん＠そうだ選挙にいこう [2008/07/16(水) 07:40:13 ]: >>142
新規シートでも作って6行ごとに2回挿入繰り返し、
んで目的のシートにコピーするとか
自動記録でもできると思う
156 名前：130 mailto:sage [2008/07/16(水) 09:44:33 ]: >>131

感謝！！　おかげで終わりました。
157 名前：名無しさん＠そうだ選挙にいこう [2008/07/16(水) 10:21:34 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 Excel 初期状態　まっさら

質問させていただきます。
デスクトップにおいてあるExcelファイルを表示しようとクリックすると、以前までは一度で
入力されていたデータがはいったスタイルシートが表示されていたのですが、
ある日から、クリックしても一度目のクリックでは初期状態のスタイルシート(Excelのショートカットアイコンをクリックしたのと同じ状態)
しか表示されなくなりました。。その状態でもう一度デスクトップにあるファイルをクリックすると、
以前のように入力していたそのファイル内のデータが読み込めます。。
あるいは、左上のタブにある「ファイル」→「開く」の手順を踏めば開けるのですが、
デスクトップに置いてあるExcelファイルを以前のように一度で開けるようにしたいです。
原因がわかるかたがいらっしゃいましたらどうかご教授ください。。
158 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 10:28:43 ]: >>157
アプリケーションのアイコンじゃなくてデータファイルのアイコンをダブルクリックする。

あと、スタイルシートじゃなくてワークシートな。
159 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 18:28:52 ]: >>135　仕様のため解決できない問題でしょうか？
160 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 19:24:34 ]: 【1 OSの種類　　　　 .】 Windows2000
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】一応
【4 VBAでの回答の可否】可
A列に1,2,5,9,13のどれかが入っていればB列に1
3,7,8,12のどれかが入っていればB列に2
その他の数字が入っていればB列は""というような処理をしたいです
簡単な方法ありませんか？
161 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 19:50:18 ]: VLOOKUP()とかCHOOSE()とかをIF()と組み合わせる
162 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 20:06:30 ]: >>161
イメージはつかめました
ありがとうございました
163 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 20:48:43 ]: >>160
=CHOOSE(A1,1,1,2,"",1,"",2,2,"","","",2,1)
164 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 20:53:43 ]: まちがえた
=CHOOSE(A1,1,1,2,"",1,"",2,2,1,"","",2,1)
165 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 20:56:44 ]: まだ間違えてるよ
「A1に」ではなく「A列に」だからね
そのアプローチはNGだ
166 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 21:00:19 ]: >>159
一言で言うと言ってることがわからん
ファイルをアップしてくれ
167 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 21:02:57 ]: 　　　　　　　＿＿＿_
　　　　　　／＼　　／＼　ｷﾘｯ
.　　　　　／　（ー）　（ー）＼
　　　　／　　 ⌒（__人__）⌒ ＼
　　　　|　　　　　|r┬-|　　　　| 　　　　「A1に」ではなく「A列に」だからね
　　　　＼　　　　 `ー'´　　／　　　　　そのアプローチはNGだ
　　　　ノ　　　　　　　　　　　＼
　／´　　　　　　　　　　　　　　ヽ
　|　　　　ｌ　　　　　　　　　　　　　　＼
　ヽ　　　 -一''''''"~~｀`'ー--､　　　-一'''''''ー-､. 　　
　　ヽ＿＿＿＿(⌒)(⌒)⌒)　)　　(⌒＿(⌒)⌒)⌒))

　　　　　　　　＿＿＿_
　　　　　　　／_ノ　ヽ､_＼
　ﾐ　ﾐ　ﾐ　　oﾟ(（●）) (（●）)ﾟo　　　　　　ﾐ　ﾐ　ﾐ
/⌒)⌒)⌒. ::::::⌒（__人__）⌒:::＼　　　/⌒)⌒)⌒)
|　/　/　/　　　　　|r┬-|　　　　|　(⌒)/　/ / /／　　だっておｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
|　:::::::::::(⌒)　　　　|　|　 |　　／　ゝ　　:::::::::::/
|　　　　　ノ　　　　|　|　 |　　＼　　/　　）　　/
ヽ　　　　/　　　　　`ー'´ 　　　ヽ /　　　　／　　　　　バ
　|　　　　|　　 l||l　从人 l||l 　　　　 l||l 从人 l||l　　バ　　　ン
　ヽ　　　 -一''''''"~~｀`'ー--､　　　-一'''''''ー-､　　　　ン
　　ヽ＿＿＿＿(⌒)(⌒)⌒)　)　　(⌒＿(⌒)⌒)⌒))
168 名前：157 [2008/07/16(水) 21:06:43 ]: >>158
レスありがとうございます。ワークシートの間違いでしたか。。どうもです。
説明が足らなかったようで申し訳ありません。データファイルのアイコンをクリックして、いまの状況となっています。。
169 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 21:07:39 ]: >>167
顔が真っ赤だよ
そんなにモニター睨まないで…
170 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 21:19:43 ]: 夏厨、みっけ！！
「いち・ろく・なな」
171 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 21:25:31 ]: このスレの住民のスルー力のなさは異常
172 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 21:25:45 ]: =IF(AND(1<=A1,A1<=13),CHOOSE(A1,1,1,2,"",1,"",2,2,1,"","",2,1),"")
173 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 21:28:16 ]: >>168
関連付けが壊れたかな。
フォルダオプション→ファイルの種類→XLS→元に戻す
174 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 21:31:15 ]: >>171
なんでスルーできないの？
175 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 21:33:21 ]: とスルーできない>>174が申しております
176 名前：名無しさん＠そうだ選挙にいこう [2008/07/16(水) 21:40:28 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】検索　置換　

現在のシートのすべてのセルを対象とし、　「TC1」という文字を含んだセルの色を黄色にするということを実現したいです。
「ATC1」とか「CCTC123」といった　TC1を含んだセルです。
177 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 21:41:32 ]: VBEにて　Ctrl　+　j　でリストが出てきたと思いますが、最近出てきません。
何か設定が狂ったのでしょうか？
178 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 21:46:58 ]: >>176
条件付き書式で
=ISERR(FIND("TC1",A1))
179 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 21:59:43 ]: ×=ISERR(FIND("TC1",A1))
○=NOT(ISERR(FIND("TC1",A1)))
180 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 22:48:51 ]: 素でまちがえた
おはずかしい
181 名前：176 mailto:sage [2008/07/16(水) 23:03:42 ]: >>178-179
実際は、複数の条件があるので、VBAで実現したいです。
「TB1」を含むセルは青にするといったような。。。
182 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 23:12:16 ]: >>181
>>122をifで分岐させる
183 名前：名無しさん＠そうだ選挙にいこう [2008/07/16(水) 23:23:59 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】使えません
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 EXCEL　集計

個人毎にシートを作り日報を記録しているのですが、集計用のシートを一つ作り
月別に集計させるにはどのようなすればよいのでしょうか？
シートのレイアウトは下のような感じになってます

シート１　Ａさん
日付　　作業内容
5/14　　　　○○
5/20　　　　△△
6/10　　　　△△

シート2　Ｂさん
6/12　　　　○○
6/20　　　　□□
7/10　　　　△△

集計用シート
　　　　○○　△△　□□
5月　　　1　　　1　　　0
6月　　　1　　　1　　　1
7月　　　0　　　1　　　0
184 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/16(水) 23:56:28 ]: >>183
ピボットテーブル
185 名前：176 mailto:sage [2008/07/16(水) 23:59:30 ]: >>182
ヒントありがとうございます
Sub aaa()
For Each C In Range("A1:E100")
If C Like "*TC1*" Then
C.Characters.Font.Color = vbBlue
End If
Next C
End Sub

みたいな感じで　TC1を含んだセルの文字を青にするということができました。
自己解決しそうですが、
あとは、セルの範囲が固定というところが問題でしょうか？
186 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 00:13:20 ]: >>185
セルの色を変えるならこんな感じ

　For Each c In ActiveSheet.UsedRange.Cells
　　If InStr(c, "TC1") > 0 Then c.Interior.Color = vbYellow
　　If InStr(c, "TB1") > 0 Then c.Interior.Color = vbBlue
　Next
187 名前：176 mailto:sage [2008/07/17(木) 00:29:36 ]: >>186
ありがとうございます
For Each c In ActiveSheet.UsedRange.Cells
の部分が参考になり解決しました。
188 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 00:37:18 ]: A列に150～200行の文字列
1つのセルに20～30文字

これをA4縦でできるだけ文字を大きく印刷するように
例えば3列に自動で振り分けるといったようにすることはできるでしょうか？
189 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 00:50:31 ]: >>188
どの程度厳密にやるかによるけど。

セルの幅を紙のサイズに合わせて、フォントを適当に大きくしてから、
書式で「縮小して全体を表示する」ってのじゃだめ？
190 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 03:31:56 ]: >>188の意味を色々考えてたんだが

作った表をB2縦くらいの大きさで印刷したいけど
そんなでっかいプリンターはねぇよってんなら
①データをプリンターのある店に持っていく
②どうしても自分のプリンターでやりたいなら
「次のページ数に合わせて印刷」→縦3横3とかではどうか

違う意図の質問かなあ・・・
前から思ってたけどこのスレ、謎解きみたいで楽しいよね
191 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 05:36:57 ]: 段組したいって意図だと思うよ
謎解き頑張ってね
192 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 15:01:47 ]: 【1 OSの種類　　　　】 WindowsXP
【2 Excelのバージョン　】 Excel2002
【5 検索キーワード　　】 Excel ドラッグ　1-A アルファベット A

「1-A」を下にドラッグしていったら
「2-A 3-A ～ 8-A」とかになってしまうんですが、
数字は1のままで、うしろのAのとこをBCDEと変えていけませんでしょうか。
193 名前：192 mailto:sage [2008/07/17(木) 15:10:31 ]: すんません。理由はわかりませんができました。
194 名前：名無しさん＠そうだ選挙にいこう [2008/07/17(木) 15:59:51 ]: 既に用意してある複数のCSVﾌｧｲﾙから一つのﾜｰｸﾌﾞｯｸ(ｴｸｾﾙﾌｧｲﾙ)を作成するにはどうすればいいでしょうか？
ﾊﾞｰｼﾞｮﾝは2000です
195 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 16:12:22 ]: エクセルで開いてコピーペーストするのが一番早いと思う
メモ帳で開いてコピーペーストでもいいけど改行などがずれる可能性があるため
あまりおすすめしない
196 名前：名無しさん＠そうだ選挙にいこう [2008/07/17(木) 16:44:21 ]: 【1 OSの種類　　　】 XP、VISTA
【2 Excelのバージョン】 Excel2007
【3 VBAが使えるか　】否
【4 VBAでの回答の可否】否

ハイパーリンクでPC内のワードパッドやメモ帳を呼び出そうとすると
「セキュリティに影響を及ぼす可能性のある問題点が検知されました。
この場所は安全でない可能性があります
C:\（ワードパッドやメモ帳の場所）
ハイパーリンクはPCとDATEに被害を与える場合が～続行しますか？」という
セキュリティに関する通知が毎回出てきます。
この通知を出ないようにする方法はないでしょうか？
197 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 18:50:47 ]: >>196
メッセージを出なくする方法はあるけど、おすすめできない。
ttp://support.microsoft.com/kb/925757/ja

2007では試したことないけど、VBAから外部アプリケーションを起動すれば、たぶん警告は出ないはず。
198 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 18:55:58 ]: >>196
VBAからメモ帳を開けば警告はでないので、マクロ登録するのが安全で確実

Sub メモ帳を起動()
　　Shell ("c:\windows\notepad.exe")
End Sub
199 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 19:07:49 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】郵便番号変換ウィザード
会社のパソコンが一切のインターネットプログラムDLを禁止しているので、
郵便番号変換ウィザードを導入してみたいんだけどできない状況です。
そこで、当該郵便番号変換ウィザードの住所から郵便番号への変換精度について知りたいのです。
たとえば住所データとしては都道府県で始まりマンションの番地で終わるものや、
いきなり市内の町名から（「～町1-4」など）始まるものも考えられるわけですが、
変換可能なのは郵便番号辞書と完全一致のものに限るのか、
前方or後方の部分一致でもOKなのか実際に導入してる方、教えてください。
200 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 19:13:30 ]: >>199
少なくとも都道府県名は省略可能でした。
どこまで変換可能かは、実際のデータで試してみないとわからないと思います。
201 名前：名無しさん＠そうだ選挙にいこう [2008/07/17(木) 19:16:43 ]: >>197
>>198
レスありがとうございました！解決しましたヾ(*´∀｀*)ﾉ
202 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 19:21:54 ]: >>199　自宅のPCで試せばいいじゃない
203 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 19:27:14 ]: >>200
試してもらってありがとう。大体の場面で使えそうですね。
>>202
Excel持ってないので。VBAは会社のPCでコツコツ覚えました。
204 名前：名無しさん＠そうだ選挙にいこう [2008/07/17(木) 19:31:37 ]: 【1 OSの種類　　　　 .】 WindowsVista
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 Excel 2007 フォーム削除

質問内容：
WEB上のフォームなどからテキストをコピー&ペーストすると、
付近のフォームの要素(テキストボックス、チェックボックスなど)がそのまま貼りついてしまい、削除できません。
これを削除するにはどのようにすれば良いのでしょうか。

上記の【5】以外のワードでも検索を試し、［excel 2007　削除できない]で同じような症状の方の質問を発見しましたが、回答がない状況です。
Excel2003以前だとデザインモードへの切り替えやツールバーからの操作で解決できるようですが、2007ではそれらに対応する機能が見当たりません。

[ページレイアウト]＞[オブジェクトの選択と表示] を選択するとリストが表示され、中には[control n] (nは1からの連番)と
斜体で列挙されています。ここで"目のマーク”をクリックすると
非表示にはできますが完全に削除はできません。

以前からずっと困っており、未だ解決方法がわからないのでご存じでしたら教えてください。
よろしくお願いいたします。
205 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 19:35:47 ]: ペーストするときにテキストを選択してもだめなん？
206 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 19:38:18 ]: >>203
30日使えるExcelの体験版がMSのサイトから無料でダウンロードできる。
VBだけならVisualStudioってのを入れれば無制限で使える。これも無料で公開されてる。
仕事で必要ならExcelの1本ぐらい買っとけ。自分への投資だ。

住所の変換精度はこんな感じ
ttp://aaabbbccc.s6.x-beat.com/upload/src/up18762.png
207 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 19:44:04 ]: >>204
まず「Excelのオプション」で「[開発]タブをリボンに表示する」にチェックを入れる。
次に「開発」タブをクリックして「デザインモード」を選択すると、
チェックボックスなどのWEB要素の変更 (移動や削除など)ができるようになる。
208 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 19:46:04 ]: >>204
メモ帳にでもコピペしてからコピペしてみては？
209 名前：名無しさん＠そうだ選挙にいこう [2008/07/17(木) 20:11:28 ]: 【1 OSの種類　　　　 .】 WindowsＸＰ
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 Excel 20日締

日付のデータを20日締めで月ごとに分けたいのですが、どのような関数を組めばいいのでしょうか？

H19/12/20　→　H19/12
H19/12/21　→　H20/01
H20/01/01　→　H20/01
H20/01/21　→　H20/02

結果は年月までわかればいいので文字列でもなんでもかまいません
210 名前：204 [2008/07/17(木) 20:25:26 ]: >>207
その方法で希望の操作が行えるようになりました。
本当に助かりました。ありがとうございました。

>>205,208
どちらの方法も試しておりましたが、作業量が多いため少しでも手間を少なくしたかったのです。
207さんの方法で解決いたしました。ご回答ありがとうございました。
211 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 20:34:06 ]: >>209
「日」が20より大きければ「月」に1を足す

=DATE(YEAR(A1),MONTH(A1)+IF(DAY(A1)>20,1),1)
212 名前：>209 mailto:sage [2008/07/17(木) 20:36:20 ]: A1に日付として
=IF(DAY(A1)<=20,A1,DATE(YEAR(A1),MONTH(A1)+1,1))
213 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 21:19:10 ]: >>206
VBAとVB.NETはまるで別物なんだが
それともVB6以前が使えるVSが公開されてるのか？
214 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 22:10:38 ]: > それともVB6以前が使えるVSが公開されてるのか？
無料公開どころか、もう一般販売すらされてない

しかしC#とか作るくらいなら、現在のVB.NET的な役目をそっちに任せて
VBは多少貧弱だろうと6以前の仕様で続けて欲しかったよな
現状じゃVB6からVB.NETに移行するのもC#に移行するのもハードルは対して変わらないし
215 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 22:47:50 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】エクセル　行　列

仮に8-Ｆをクリックすると、一番左の8と一番上のＦの所が色が変わって位置がわかるんですけど、
これを、例えば１の行とかＡの列でも同じように色が変わって位置がわかるようにできないですか？

それか、指定した場所の列と行全部色が変わるとかないでしょうか？

調べ方が悪いのかなかなかでてきませんでした、よろしくお願いします。
216 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 22:54:07 ]: >>215
Ctrlキー押しながらクリック
217 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 22:57:31 ]: >>215
セルの場所を書くときはアルファベットが先ね。そういうルールだから。
8-F → F8

で、質問の内容をエスパーすると、F8をクリックしたらA8とF1の色が変わって欲しいと。
そういう機能はありませんのでVBAで自分で作るしかないです。
218 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/17(木) 23:06:53 ]: >>215
Aとか1とか書いてあるグレーの所をクリックする。
219 名前：名無しさん＠そうだ選挙にいこう [2008/07/17(木) 23:18:38 ]: 【1 OSの種類】WindowsXP
【2 Excelのバージョン】Dxcel2007
【3 VBAは使えるか】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード】Excel2007、オブジェクト(図形)を印刷(する、できない)、チェックボックスがない(無い)、グラフ内、グラフの中、などの組み合わせ

Excel2007で作ったグラフの中にテキストボックスを作ったのですが、印刷されません。
(グラフの中に作ったので、グラフから外に出ないタイプのオブジェクトになってます)
別のPCに入っているExcel2003でファイルを開いた所、書式設定→プロパティに「オブジェクトを印刷する」のチェックボックスがあり、それにチェックを入れたら印刷できました。
(もとは付いていなかった)
あらためて2007で見てみるのですが、プロパティにどうしても「オブジェクトを印刷する」のチェックボックスが見当たりません。
グラフはシート、オブジェクトの両方で試しましたが、結果は同じでした。

どうしたら良いでしょうか？
やはりXPは諦めてMeに戻したほうが良いでしょうか？
220 名前：219 [2008/07/17(木) 23:22:28 ]: 「【2 Excelのバージョン】Dxcel2007」
は
「【2 Excelのバージョン】Excel2007」
の間違いです…

「DexelやめてExcelにしたら？」と言われたら悲しいです
221 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 00:14:52 ]: >>219
試しにグラフとテキストボックスを作ってみたけど、うちではちゃんと印刷できた。
「オブジェクトを印刷する」の選択肢が出ないのは確認できたが。

たしか、印刷関連の不具合を解消するパッチがあったような気がするんで、
いっぺんOffice Updateしてみ。

あと、XpからMeに変えても何も変わらないよ。
後ろ向きな解決方法としては、Excel2007をExcel2003に変えるってのが正しい選択。
222 名前：名無しさん＠そうだ選挙にいこう [2008/07/18(金) 00:40:56 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】　Excel　グラフ　32001以上

質問です。 Excelで1系列のデータが32001以上のデータをグラフ化するいい方法あるでしょうか？
詳細は以下の通りです。
グラフの種類：　折れ線グラフ
データ：　1分間隔のデータでを1ヶ月分（60分(1時間)×24時間(1日)×1ヶ月(とりあえず30日間)）＝43,200 行データ
その他：　Accessは環境の都合で使用不可

とりあえず、1分間隔を2分間隔(データを半分)にしてグラフ化するマクロを作成して
取り込む方法は思いついたのですが、何らかの方法で全データ取り込む方法ってありますでしょうか？
分かる方いらっしゃいましたら教えてください。
223 名前：名無しさん＠そうだ選挙にいこう [2008/07/18(金) 00:50:00 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】エクセル　関数　条件

横並びの4つのデータの内容が同一かどうか調べるために、

　　=IF(A2=B2=C2=D2,"ok",FALSE)

こういう式を入れたのですが、全部FALSEが返ってきてしまいます。
なんでうまくいかないのでしょうか。
お助けください。
224 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 01:05:24 ]: >>223
=AND(A2=B2,B2=C2,C2=D2)
225 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 01:14:51 ]: >>222
4万ポイントの折れ線グラフを作ったとして、それを忠実に表示したり印刷するのは不可能だと思うんだけど、
そのあたりはちゃんと考えてる？
1目盛りが0.1mm間隔のグラフが印刷できたとして、全長4メートルだよ？
226 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 01:33:24 ]: >>224
ありがとうございます。出来ました。
＝の連続は条件式としては使えないものなんでしょうか。
227 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 01:39:05 ]: >>226
基本的に大小や一致、不一致の比較は2つずつしかできません。
たとえば

IF(A2=B2=C2, 以下略

という式を書いた場合、まず「B2=C2」が比較され、その結果としてTRUEという答えが出ます。
次にこれが元の式に代入されて

IF(A2=TRUE, 以下略

という式になるため、A2がTRUEでなければ、この式の結果はFALSEになるというわけです。
228 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 01:49:57 ]: >>227
逆だよ。この場合の計算は左から。

こんな感じ。
ttp://kissho.xii.jp/1/src/1jyou41919.png
229 名前：名無しさん＠そうだ選挙にいこう [2008/07/18(金) 12:50:44 ]: 今、会社の年寄りどもが
Excel2008をインストールしろだとか何だとか言い出しているんだけれど
2008ってあるのかどうか誰か教えてくれ。
230 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 12:59:51 ]: >>229
あるが、Mac用

www.microsoft.com/japan/mac/products/office2008/system.mspx
＞ Office 2008 必要システム
オペレーティングシステム　日本語版 Mac OS X 10.4.9 以上
231 名前：名無しさん＠そうだ選挙にいこう [2008/07/18(金) 13:01:01 ]: だよねぇ。
うちWinなんだけど、出てないはずなのに何言ってんだろ。

さんきゅう！！
232 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 13:25:59 ]: 2007の間違いだとしてもでもやめとけよ
死ぬぞ
233 名前：名無しさん＠そうだ選挙にいこう [2008/07/18(金) 13:29:30 ]: 2007はだめなのか？？
234 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 13:31:43 ]: 年寄りには向かないかもな
リボンへの対応が厳しそう
235 名前：名無しさん＠そうだ選挙にいこう [2008/07/18(金) 13:33:08 ]: 今年が2008だから間違ってんだろうけど
236 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 13:44:47 ]: 若者にも向かないよ・・
2003のまま関数とか増やすだけでよかったのに
237 名前：sage [2008/07/18(金) 13:47:33 ]: 今2007使ってるけど慣れれば別に気にならなくなったけど
確かに2003のほうが使いやすかったね。
一見のデザインから「使いやすくなったのか？」と思わせられたけど
やっぱり昔のが良かったなぁ。。。
238 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 13:52:51 ]: リボンの困るところは、よく使う機能がホームタブにあるから、
別のタブを見ているときに一々ホームタブに戻さないといけないところだな

全部クイックアクセスうんたらに登録すればいいって話か
239 名前：sage [2008/07/18(金) 13:56:01 ]: いきなり2007から使い始めるとなると使いやすいかも知れないけどね。
240 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 14:02:04 ]: 他のアプリケーションと大幅に違うという点からして、そういうのはほとんどいないと思う
241 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 14:05:28 ]: 2007に旧タイプのメニューバーを追加するソフトって有料なんだっけ？
242 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 14:05:57 ]: あと気にくわないのはタイトルバーが無いところ
タイトルバーに常駐するタイプのランチャを使ってたんだが、
タイトルバーが無いせいで表示されず使い物にならなくなってしまった。
243 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 14:11:10 ]: 2003で2007のファイルを扱えるようにするアドインてどうよ？
MSで無料公開されてるけど。
あれなら見た目2003のままパワーアップするんじゃない？そういうもんでもないのかな？
244 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 14:14:03 ]: そういうもんでもないんです
245 名前：名無しさん＠そうだ選挙にいこう [2008/07/18(金) 14:59:21 ]: >>124
=IF(開始時間<=23/24,23/24-開始時間-2/24)で23-0が取れました。
が。
IF(終了時間>=32/24,終了時間-24/24)
IF(終了時間>=32/24,,終了時間-24/24)　
で0-8が取れます。なぜ真と偽を入れ替えねば出ないのかがわかりません。
246 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 16:08:49 ]: >>245
もうちょっと論点を整理して、誰でも理解できる日本語で書いてください
247 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 17:12:04 ]: >>243
しかし、行列数が65536*256を超える部分は表示出来ないし
4つ以上の条件付き書式など、2007で強化された機能は再現されないし…

というわけで、単に2007側で旧形式保存しなくても、互換性のある部分に限っては
扱えるってだけで、全然パワー(機能)はアップしてない
248 名前：名無しさん＠そうだ選挙にいこう [2008/07/18(金) 19:30:35 ]: 2003を使っています。
Excelで平方2乗平均を計算するにはどうしたら良いのでしょうか？
手っ取り早い方法を教えて下さい。
249 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 21:55:17 ]: >>248
平方2乗平均の定義はどんなの？
250 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 21:55:27 ]: 数学の質問はスレ違い
251 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 22:00:09 ]: >>250
例えば
「Excelで偏差値を求めたいのですがどうしたらできますか？」
という質問はスレ違いか？
252 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 22:15:46 ]: スレ違いだね
偏差値の概念を理解してれば、関数の検索とヘルプだけで情報は事足りる
Excelとは関係ない偏差値の算出概念をここで解説する必要は無し
253 名前：名無しさん＠そうだ選挙にいこう [2008/07/18(金) 22:23:00 ]: 概念（笑）
254 名前：名無しさん＠そうだ選挙にいこう [2008/07/18(金) 22:25:43 ]: エクセルで１００個の数字を一度に１００倍したいのですが。どうしたらいいですか？？
255 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 22:28:48 ]: Excelで平均値を求めたいのですがどうしたらできますか？
256 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 22:31:38 ]: >>252
「関数の検索とヘルプだけで情報は事足りる」質問はスレ違い！
こりゃ驚いた
257 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 22:53:06 ]: >>254
定数倍したい目的のセルがA1:A100と仮定。
まずB1に100を入力し、そのセルをコピー。
んでA1:A100を選択しAlt→E→S→M→Enter
258 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 22:55:13 ]: >>252
例えば
「正規分布に従う乱数をExcelで発生させたいのですが、やり方を教えてください。」
という質問もスレ違いかな？
259 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/18(金) 22:58:30 ]: 表計算ソフトの質問スレなんだから計算の話題が出てきて当然だと思うがな。
260 名前：名無しさん＠そうだ選挙にいこう [2008/07/18(金) 23:08:43 ]: ＞＞２５７　
ありがとうございます。めちゃくちゃ助かりました。
261 名前：名無しさん＠そうだ選挙にいこう [2008/07/19(土) 00:14:55 ]: エクセルで地球の表面積を求めたいのですが、どうしたらいいですか？
262 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 00:25:21 ]: >>261
正確な表面積を計算するのは不可能なので、まずは計算方法(精度や妥協点)を決める必要があります。
この段階ではまだExcelの出番はありません。地学板等で相談してください。
263 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 00:27:38 ]: >>255
AVERAGE
264 名前：名無しさん＠そうだ選挙にいこう [2008/07/19(土) 05:30:49 ]: www.nicovideo.jp/watch/sm4000901
265 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 09:57:42 ]: >>261
その質問の仕方はスレ違い、正しくは
「このような方法で地球の表面積をエクセルで求めたいのですがどうしたらいいですか？」
といった具合に、式もしくは計算方法を提示しなさい
266 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 10:22:48 ]: >>259
ばーか
数学板いけよ
267 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 10:48:38 ]: >>265
そうだね。それがいいんじゃないかな。
だから>>248も平方2乗平均の定義を示してからExcelの質問をすれば？
268 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 11:06:46 ]: 絶句
269 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 11:24:55 ]: >>268
何に対して？
270 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 11:37:14 ]: oshiete1.goo.ne.jp/qa4187951.html
271 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 11:47:30 ]: >>270
そこの回答者は
「平方２乗平均は、各要素を２乗した物の和を要素数で割った物の平方根です。」
と決め付けているが本当にそれでいいのかな。
そこがみんな不安だからここでは回答つかないんじゃないのだろうか。
272 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 11:51:59 ]: っていうかマルチポスト
273 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 11:58:54 ]: 良く見つけるなあ。気持悪い。
274 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 11:59:24 ]: >>272
別にそれは気にならない。
275 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 12:01:49 ]: マルチとかテンプレとかスレ違いとかに執着するやつはキモイ。
276 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 12:17:39 ]: もっと、言ッテ
277 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 12:20:55 ]: >>273
www.google.co.jp/search?q=%e5%b9%b3%e6%96%b9%ef%bc%92%e4%b9%97%e5%b9%b3%e5%9d%87
278 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 13:09:07 ]: >>227
>>228
ありがとうございました。合点しました。
279 名前：124 [2008/07/19(土) 14:27:28 ]: >>246
前述の通り深夜勤務の時間数を求めようとしています

=IF(開始時間<=23/24,23/24-開始時間-2/24)で
「もし23時から0時までの間勤務していればその時間」が取れました。

今度は「もし0時から8時までの間勤務していればその時間」
IF(終了時間>=32/24,終了時間-24/24) としても取れることもあればエラーのこともあり←これが真ですね
IF(終了時間>=32/24,,終了時間-24/24)としても取れることもあればエラーのこともあり←これが偽ですね

真と偽を入れ替えると出たり出なかったりするのかがわかりません。
280 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 15:22:57 ]: >>275
ガキ
281 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 18:46:55 ]: >>279
Excelでは日付と時刻をまとめて「シリアル値」という連続したデータとして扱うことになっている。
時刻のデータには、表示されていないだけで年月日も情報として含まれている。
エラーが出たデータの書式を変えて、年月日まで表示させてみると違いがわかるかも。

俺の予想では時刻が文字列になってしまっているか、計算した結果がマイナスになっているかどちらか。
282 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 18:49:58 ]: >>279
24時間を超える場合のセルの書式はh:mmじゃなくて[h]:mmだよ。
たぶんマイナスになってるんじゃない？
283 名前：名無しさん＠そうだ選挙にいこう [2008/07/19(土) 23:11:09 ]: こんばんは。VBE初心者のものです。

講義の宿題で７×７の魔方陣をVBEで解いてこいといわれました。
しかしながら自分のスキルでは動にもなりませんでした。

自分はIFやDim等までしか習っていませんがそれで解ける方法があったら
誰か助けてください。
284 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/19(土) 23:14:51 ]: マルチ乙
285 名前：どこの課題か知らないけど良問だねこりゃ mailto:sage [2008/07/20(日) 02:00:30 ]: Sub 応用してみた()
Cells.ClearContents
E = 7 '** INPUT 辺の長さ(奇数) **
R = 1 '** INPUT 開始行 **
C = (E - 1) / 2

For I = 1 To E ^ 2
R = R + 1
If I Mod E = 1 Then R = R - 2
C = C + 1
If I Mod E = 1 Then C = C - 1
Cells(R Mod E + 1, C Mod E + 1) = I
Next
End Sub
286 名前：名無しさん＠そうだ選挙にいこう [2008/07/20(日) 07:04:19 ]: すいません、エクセル初心者ですが質問があります
エクセルでグラフを書こうとしてるのですが単位の入ったセル【100m】などをドラックしてグラフを作ろうと思っても
単位が入っているためかうまく作れません。
数値のみならグラフを作れるのですが単位つきのセルを利用してうまくグラフをつくれるほうほうはありますか？
287 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/20(日) 07:12:20 ]: >>285
左上から右下の斜めの合計がおかしいな
288 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/20(日) 07:18:04 ]: >>285
ttp://www.ne.jp/asahi/suzuki/hp/houjin3.htm
このとおりにすればいけるみたい
>>286
=substitute(a1,"m",)なんかでmを抜いた列を作ったあとグラフ

それか最初から書式設定でmをつけるのが基本
A1に100、B1にmといれるようにしててもいいけどね
289 名前：名無しさん＠そうだ選挙にいこう [2008/07/20(日) 12:08:47 ]: スレ違いかもしれませんが、
Excel使うのにおすすめのマウスありませんか？
横スクロールの使い勝手のいいものです。
290 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/20(日) 12:10:26 ]: Sub MAHOUJIN()

E = InputBox("辺の長さは？")
R = E
C = (E - 1) / 2

For I = 1 To E ^ 2
R = R + 1
If I Mod E = 1 Then R = R - 2
C = C + 1
If I Mod E = 1 Then C = C - 1
Cells(R Mod E + 1, C Mod E + 1) = I
Next

End Sub
291 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/20(日) 13:08:42 ]: 奇数専用だね
292 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/20(日) 14:14:33 ]: >>289
logicoolなら大体外れないでしょ
あとは無線や有線、重さなど人によって違いすぎるのでなんとも
ゲーム用のも悪く無いと思う
293 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/20(日) 15:02:43 ]: >>289
俺は安いので、
Ａ4ｔｅｃｈ　使ってる。
294 名前：名無しさん＠そうだ選挙にいこう [2008/07/21(月) 00:42:24 ]: Excel2003を使用しているのですが、下記のグラフを作成したいと思うのですが
やり方がわからないので質問致します

A社　■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
B社　　　　　　　　　　　　　　　■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
---------------------------------------------------------------
　　1970　　1975　　1980　　1985　　1990　　1995　　2000　　2005（年）

上記グラフのように、A社は1970年から始めて2008年まで継続しているのに対して
B社は1985年から開始して2008年まで継続しているということを表したいです。
B社のようにグラフ途中の1985などを起点とするにはどのようにすれば良いのでしょうか？
295 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/21(月) 00:44:28 ]: すみませんグラフがズレました・・・

A社　■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
B社　　　　　　　　　　　　　　　■■■■■■■■■■■■■■■■■■■■■
-----------------------------------------------------------------------------------------------------------
　　1970　　1975　　1980　　1985　　1990　　1995　　2000　　2005（年）
296 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/21(月) 00:55:17 ]: >>294
youtubeで Gantt Chart で検索してみるんだ。
297 名前：名無しさん＠そうだ選挙にいこう [2008/07/21(月) 01:19:21 ]: >>296
ありがとうございます

色を消すという発想がなかった…
先人頭良すぎ
298 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/21(月) 15:20:21 ]: XP VAIO VGNE Excel2007

絶対参照について。

セルB4に「B1」と入力しました。ここでF4キーを押すと$マークがつくらしいのですが
セルにカーソルがあっている状態で押してもタブキーを押したようにカーソルが右に
移動してしまいます。どのようにすればマークがつきますか？お願いします
299 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/21(月) 15:29:34 ]: =B1と入力してからF4
300 名前：名無しさん＠そうだ選挙にいこう [2008/07/21(月) 15:33:30 ]: 【1 OSの種類　　　　 .】 WindowsXpsp2
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 VALUE

　A B C D E F
1 元金 1,000
2 利率 0,02 0,025 0,03 0,035 0,04
3 年数
4
5
6

複利利息早見表を作成したいのですが、B4に=$B$1*((1+B$2)^$A4-1)
と入力すると#VALUE!と表示されてしまいます。何がいけないのでしょうか
B4の式はB4からF6まで複写します
301 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/21(月) 15:34:37 ]: >>299
=がなかったんですね・・・・・
無事マークを付けることができました。
ありがとう
302 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/21(月) 15:52:25 ]: >>300
なんで小数点の記号にカンマつかってんの
303 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/21(月) 16:34:25 ]: 文系の子は整数以外理解できないから、しかたがない
304 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/21(月) 17:30:30 ]: >>303
なんでお前そんなにガキなの？
305 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/21(月) 17:41:42 ]: 夏だモン
306 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/21(月) 18:51:05 ]: なぜかフランスではコンマと小数点の使い方が逆なんだよな。
1.234.567,89
みたいに書く。
声に出して読むときは日本人の理系でも小数点のことをコンマって言うし。とくに機械科の人。
307 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/07/21(月) 19:02:59 ]: ここは日本だよ
理系にもバカはいる

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef