Excel総合相談所 72

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
http://pc11.2ch.net/test/read.cgi/bsoft/1214204248/l50

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･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のように
近い値に勝手に丸められる。

「路上で揉めるのも目立ちます。9800円のラブホに入りますか？」

　　　　　　　　「はい」　　　　「いいえ」

　　　||
　　　||　━ 質問のしかた ━
　　　||
　　　||　★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行しかないこと、頭が薄くなってきたこと。

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

ナレーター……このわたくし。みなさんよろしく。

三重県民乙

>>8
先生、
テンプレ使わなくてもキレないけど、必要な情報が出てないと無視するというか回答を控えざるを得なく
VBAは万能だと信じてるというか知っているが、同時に「万能=全ての状況で最適」では無いことも知っており
ピボットも使うが、なんでも出来るとは錯覚しておらず、関数式では作業セル使って個々の式をシンプルにするのが好きだが
1つの式でとか作業列使わずにとか言われれば、数重ネストも配列数式も使い出す漏れは、何に該当しますか？

なんというウザさ

>>9
なんでも言われたとおりに答えるやつはヴァカです。
ちゃんと啓蒙しましょうね。

>>10
自己満の役立たずと言います。いてもいなくても同じなので呼ばれ方を気にする事もないよ。

アンカーミスったよ。
>>9ごめんな

前スレ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

ぶっちゃけ、その式じゃ燃費は求まらない

R3C2 の値はR2C3、R4C3 の値はR3C4、のように、m行n列のセルがn行m列を参照するようにするには、 
どういった式にすればいいのでしょうか？

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

要は、
　ABCDEF
A×
B ×
C   ×
D     ×
E       ×
F         ×
のような形式の表で、
右片側を埋めてある状態で残りの空白を自動的にコピーしたいのです。

>>17
勝敗表みたいなもんかな？
=INDIRECT(ADDRESS(COLUMN(),ROW()))とかでいけんじゃね？

>>15はアホか？
ここの回答者どもは燃費の計算もできないの？

燃費を計算するには給油量じゃなくて消費量が必要。
必ず満タン給油なら給油量＝消費量になるが、今までの質問内容から、これがちょっと怪しい。
現時点ではデータの素性が明記されていないので計算可能かどうかは不明。

>>18
ありがとうございます!
できました。

>>19
だったらどうすりゃ良いか教えてくれよ
あんた自信あんだろ、感心するような解答見せてくれ
それとも、チャチャ入れるだけで全力使い果たしたのか

>>22

中途半端な知ったか君は無理して回答しなくてもいいんだよ。

噛み合わないなあｗ
ひょっとして懐かしの人口無能同士？

>>22
常に満タンで給油しているか、十分長い計測期間のデータであれば燃料の給油量と消費量はほぼ等しいと考えられるから、
燃費＝走行距離÷給油量

ただし給油が満タンとは限らず、計測期間が短い場合にはこの近似は成り立たない。

>>24

>>22は>>15の子じゃないの？

>>15
>>22
ところで、燃費の計算するのにデータを横向きでなく、縦に並べたほうがいいのはなぜなの？

聞くだけ無駄だろ〜

どうせ縦方向のが長いとかくだらない理由だろうからｗ

>>27
エクセルの構造上、データは縦に並べた方が処理しやすいし、
処理方法も多いから

>>19
君はどう思う？

データベースの基本だろ。
行はレコード、列はフィールドに対応する。
ttp://base.officehp.com/article/83221398.html
データは、特別な理由が無い限り縦に並べるもんだ。

>16,19,24,26,28
この中で一番情けない人、だ〜れだっ

>>29
>>30
ところで、燃費の計算するのにデータを横向きでなく、縦に並べたほうがいいのはなぜなの？

>>30
なんでURLを完全に書かずに
ttp://…
なんて書いてるの？

>>32
あのねぼく、目的は関係ないんだよ。
データの配列方向は縦でも横でも本質的な違いはなく、ぶっちゃけどっちでもいいんだけど、
何かしら統一された記述ルールがあった方がデータベースの設計効率が良くなるの。

道路が右側通行か左側通行か、どっちがいいかって言うのと同じ程度のこと。
ほかの人と同じにしといた方が都合がいいのよ。

>>34
やっと正解にたどり着いたね。

びっくりするほど頭悪いのに上から目線で見たがるのなあ
なんかもう感心するわ。すげーなあんた

>>36
正直言って君たちの事が低く見えている。

ああ、>>8の人か。お大事に。

このスレおもろいな。もっとやれ。

　　　　　　　　　　r;;;;ﾐﾐﾐﾐﾐﾐヽ,,_
　　　　　　　　　,i':r"　　　　　 `ﾐ;;,
　　　　　　　　　彡　　　　　　　 ﾐ;;;i
　　　　　　　　　彡　⌒　　　⌒　ﾐ;;;!
　　　　　　　 　 ,ゞi"￣ ﾌ‐!￣~~|-ゞ, 　
　　　　　　　 　ヾi `ー‐'､ ,ゝ--､' 〉;r' 　
　　　　　　　　　`,|　 / "ii" ヽ　　|ﾉ　おまえら、もうすぐサマータイムくるから。
　　　　　　　　　　't　ト‐＝‐ｧ　 /　　よかったなぁ、サビ残増えるぞサビ残。
　 　 　 　 ,＿＿__/ヽ｀ニニ´／　　　
　　　　 r'"ヽ　　 t､　　　　　/　　　　　　
　　　　/ ､､i　　　 ヽ＿＿,,/
　　　 /　ヽﾉ　　j　,　　　j　|ヽ　　
　　　 |⌒`'､__ /　/　　　/r　 |
　　　 {　　　　￣''ｰ-､,,_,ﾍ＾　|
　　　　ゝ-,,,＿＿＿＿_）--､j
　　　 /　　＼__　　　　 　　/
　　 　|　 　　 　"'ｰ‐‐--

啓蒙先生のお小言にも耳を傾けるべきだよ。
ここの回答者のレベルが低いのは事実だと思う。
前スレの不等号のやつなんかありえない。

Excelがいくらバージョンアップしても「最大行数＞＞最大列数」の理由を考えてみるといいよ。
縦横どっちでもいいんならワークシートは「最大行数＝最大列数」の正方形でもいいはずだよね。

データを縦に並べる意味、それは・・・





ピ　ボ　ッ　ト　テ　ー　ブ　ル　！　！

これ以外あり得ないｗ

>>42
その理由とは？

>>42
別に正方形でもかまわないわけなんだが。
ほんとに考えてる？
啓蒙のいうこのスレの頭の悪さってこういうことなのかな。

>>43
燃費計算をピボットテーブルでやるのはありだね。
その場合はデータを縦に並べるのがいいといえるな。

>>34は明らかに間違ってる

問題

A列に外国語の単語が入っている。ときどき2語以上の句も混じっている。
この状態で、つい打ち込んでしまった前後の半角スペースだけを取り除いて
B列に表示するにはどうしたらよいか。

>>47
１、前後の半角スペースを取り除いたら単語がくっつくけどいいの？？
２、半角をＢ列に移動するってこと？移動しても表示はできないけど？移動する意味は？
３、Ａ列から半角スペースを取り除くだけでよかったなんて言わないよね？

これって宿題ですか？

>>47

Trim

いつからだ、ここが、ガキの溜まり場になってんのは
そろそろ夏厨が湧いて来るから、収拾付かないぞ！！

自己紹介乙

本当だなｗ
Q&Aの場と言うよりは、自己紹介の場になってるなｗ

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

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

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

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

複数のワークシートがあるブックで
ワークシートを一枚ずつめくって規定の作業を行い
最後まで終わったら終了するマクロとか出来ませんか？
アクティブシート内の編集程度でしたら組めるので参考にしたいです

>>48
日本語を理解できない方は無理に回答しようとしなくていいんですよ。

ってか、質問するやつも簡潔に質問しろよ。
たとえば「前と後ろのスペースを取るにはどうしたらいいですか？」とかね。
答えはすでに出てるけど=TRIM(A1)だが。

>>56
それじゃ全角スペースも取り除くから違うんじゃね？

>>57
そういう引っかけ問題なのか？
じゃぁ全角スペースを何かに置き換えておけばいいだろうね。
=SUBSTITUTE(TRIM(SUBSTITUTE(A1,"　","@hoge@")),"@hoge@","　")
とか

みなさんありがとうございます。
手入力によくある事態を解消する方法ということでした。
打鍵中に勢いで不必要な半角スペースを打っちゃうことがありますよね。
どこにあるか分からないそういう単語の前後にくっついた半角スペースを、
語と語の間の正当な半角スペースを傷つけることなく取り除き、
かつ、語と語の間の全角スペースもついでに拾い出して半角に直してしまうような式はできないかなという、
そういう相談でした。

trimは当然思いつくのですが、それだと語と語の間の正当なスペースも取れちゃいますよね。
仮に英語だとして、good moningもくっついちゃいます。それはまずい。
ではどうしたら？ってことでした。

Excelでやる必要はあるまい
Wordなら置換に行頭・行末記号が使えるからかんたん

申し訳ない。EXCEL指定なんです。
ほかのデータとの参照が張り巡らされているので、
できればエクセル上で処理したいんですね。
実際はＡ列に単語がずらーっと並んでいるだけのシートではないもので。
レスありがとうございました

>>59
ワークシート関数のTRIMは前と後ろのスペースは取るが、語と語の間のスペースは取らんだろ？

>>62
！すぐに確認してきます。

>>62
お！解決しました。ありがと！

正確には語と語の間のスペースが2個以上あれば、1個だけ残してあとは全部取っちゃうけどね。

>>65
なおよしです。あとは全角スペースを半角に置き換えちゃえばいいですね。

>>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

>>54
できると思うけど、どんな業務を想定してるのかがわかんないとなんとも。
アンケートみたいなのかな？それだったら、ハイパーリンクでシートを結ぶだけで
めくる感じでいけんじゃない？

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

具体的な処理は、なにをさせたくて、何をさせたくないかによっていろいろ変わってくるんじゃないかな。

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

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

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

をベースとしてやらせていただきたいと思います。
助かりました。ありがとうございました。

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 少々
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel プルダウン アクティブ カーソル&合わせる 等

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

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

コレを使えたらブックをもっとシンプルに出来ると期待しています。
指南いただけないでしょうか。

>>70
データ→入力規則じゃね？

何百もデータがあって
そのデータを別のシートの一部の場所に
一つずつ表示させたいんですができますか？

例えば年賀状の名前と住所の所だけ変えていく
みたいな感じです。

>>71
その通りです。
入力規則の使い方をググったところ見事同様のものが作成できました。
大変有難う御座いました！

>>72
リストはExcelでつくって印刷はwordで差し込み印刷をする

>>72
フリーソフトで「エクセルではがき作成」ってのがあるよ
中々の物です。参考にどうぞ

>>72
１つずつ表示、を詳しく説明しないと、
はがき印刷がらみのピンと外れのレスしかこないぞ。

>>74-76
ありがとうございます
解決しました

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

0:00の時表示しない方法はわかるのですが
入力されてないセルの合計を出すと#######と
表示されます。なにかよい方法ありますか？

>>78
セルの幅を広げる

>>78
セルの幅を広げても同じでした
負であるか、大きすぎる日付および
時間は######と表示されますとでます。

>>79の間違いでした

>>80
h:mm;;;

>>82
何も表示されませんでした

>>80
###の場合、[エラーチェックオプション]ボタンは表示されないし、
エラーチェックもスルーされるし、エラーのトレースも出ないし・・・？
>　負であるか、大きすぎる日付および時間は######と表示されます
ということだけれど、どこにどのようにそう表示されているのでしょう。

（念のため）セルの幅は自動で広げているのですか？
新しいブックで試してみても同様の症状になりますか？

>>84
たとえばA1に1:00、B1に2:00、C1=A1-B1ってして時間がマイナスになるようにしてみ。
セルの幅をどんだけ広げても###が表示されるから。

>>83
0:00を表示しなくさせる方法ってのを、どうやったのか詳しく書いて。
それによって対処方法が違ってくるから。

>>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)
の様な式です

>>86
A1=8:00
B1=17:00
A10=9:00

なら

C1=B1-A1-A10

は0:00になるから、何も表示されなくて正解だと思うんだけど。
もちろんC2も空白になるし、C10も空白になる。それで合ってるんじゃないの？

C10の書式がh:mm;;なら空欄だけど、[h]:mmだと###になった。
[負の日付または時間は####と表示されます]　と表示された。

>>85
サンクス！なったなった！

>>86
それはつまり、A10とC10は[h]:mm;;;にすればいいのでは

申し訳ない！教えてください。
その場合の　セミコロン　は、どういう役割を果たしているのでしょうか。
どういう状況で使われるものですか？
検索したのですがわかりませんでした。

>>90
正の数に対する書式 ； 負の数に対する書式 ； 0になった場合の書式 ； 文字列の書式
何も書かないと何も表示されなくなる

今回の場合、負の数はエラーになるし、当人の意向により0は表示したくないらしいので
2番目、3番目の書式に何も書かなかった。そのためセミコロンだけが連続する結果となった。
文字列を入力した場合の処理はなんとも書いてないので、セミコロンの最後の一つは
意味がない可能性もある。

【1 OSの種類 　 　 　 .】 Windows xp
【2 Excelのバージョン 】 Excel 2007
【3 VBAが使えるか　 　.】 いいえ
【4 VBAでの回答の可否 .】　否
セルA1にBOOKの名前（ファイル名）を表示させるような関数はありますか？

>>92
「名前を付けて保存」してから
=REPLACE(REPLACE(CELL("filename"),FIND("]",CELL("filename")),255,""),1,FIND("[",CELL("filename")),"")

先に式を入れちゃだめだよ。まず保存だよ。

>>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)って使えるようにしてほしいんだけどなぁ・・

アンカーは態とか？
いるよねぇ、こういう奴

>>91
「Excel　ユーザー定義　表示形式　セミコロン」、
という条件で検索をかけたとき、確かにそうした結果でしたのに、
そこまで頭が回りませんでした。
たとえが違うかもしれませんが、ＩＦ関数の""のような使い方ができるのですね。

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

【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で作成していますが、下記の「'エラーメッセージ」の行で、
「ファイルは既に開かれています」というエラーが出てしまいます。

どのようなコードを書けば、上記の処理を実現することができるのでしょうか。
よろしくお願い致します。

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

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

>>97
ここがまずい

> no1 = FreeFile
> no2 = FreeFile

FreeFile関数は「Openされていない」ファイルの番号を返すので、no1をOpenする前にFreeFileを呼んでしまうと
no2にも同じ値が入ってしまう。
対策としてはDo〜Loopの中にno2 = FreeFileを移す。

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

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

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

リンゴ　　　　　　　リンゴ　　2
リンゴ　　2　　　　みかん 　1
みかん 　1　　　⇒メロン　 3
メロン
メロン
メロン　　3

>>102
オートフィルタ

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

A〜E列の5列に1〜100まで合計500個の文字が入っています。
先頭の文字が全部同じなんですが、その先頭だけ文字の色を青くしたいんです。
セルにカーソルを入れて1っこずつやると日が暮れてしまうので、
なにか一発でドンと処理する方法はないでしょうか。

>>104
ない。部分的に色を付けるのはVBA使わないと無理。

>>105
そっすかあ。残念です。
マクロの自動記録でできないかなあと浅知恵発揮しましたけど、
駄目でした。自動記録あたりでなんとかなる方法はないでしょうか。

>>106
1個だけ色を付ける操作をマクロで記録して、あとはそれを500回繰り返すようにVBAを書けばいいだけだよ。

>>107
それが一個だけ色をつける記録が残らんのですよ。
残ってくれればそれは500回やるだけでも労力半減なんですけどねｗ
もしよかったらためしに記録してみてください。
私は、自動記録開始して、
セルにカーソル入れて、先頭の一文字を反転させて、
赤色ボタンを押して、エンターキー押して、記録終了ボタン押しました。
でも実行してもうまくいかない・・・・・・・・・・・・・・・

付け足すと、
実行するとセルの中の文字が全部赤・・・じゃなかった青になっちゃうんですよね。
カーソル入れて一文字だけ指定して、の部分が記録に残らないみたいです。

>>108
試しにやってみたら、全部で34行もあるマクロが記録されたよ？

>>110
あらあ。何が違うのかなあ。
それでほかのセルで実行しても先頭だけ色が変わります？

=LEFT(A1)で先頭1文字
=RIGHT(LEN(A1)-1)で残りの文字
に分割して、先頭1文字の列だけに色を付けるってのは駄目？

あ、できました。
セルじゃなくて、シートの上にある横長の白いところ、左端にfxって書いてる部分。
そこでカーソルを入れて色変えて保存したらできました。
これを編集して500回コピーすればいいんですよね

>>112
分割して先頭にだけ色をつけて、concatenateでつなぐってやってみましたけど、
くっつけるとそのセルの書式になっちゃうから、うまくいかなかったです。
レスありがとうございました。

>>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

>>115
行った！と思ったけどだめでした。
繰り返してみたら、こんどは全部最初に記録したセルの内容に代わっちゃいました。
つまり全部同じデータになっちゃう。。。。。。。。

ということでありがとうございます。
それ試してみます。

>>116
マクロの最初に

ActiveCell.FormulaR1C1 = "なんとか"

って部分があるでしょ。それがセルの内容だから、その部分を削除しないとみんな同じになっちゃうよ。

>>115
感動していいですか・・・・・・・・・・・感動しました。

>>117
後学のために試してみました。
なんとか、の部分を削除して""だけにして実行したら、なくなっちゃいましたｗ
なんか理解ができてないみたいです。
とにかく目的を果たすことはできました。
もう3回ぐらいやって感動し続けてます。
マクロができると本当にいいですねえ。
ありがとうございました。

>>100
上手くいきました！

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

>>119
データの部分だけじゃなくて、1行丸ごと削除するのよ

>>115
条件固定ならループ回す必要ないよ
Range("A1:E100").Characters(Start:=1, Length:=1).Font.Color = vbBlue
だけで、同じ結果な上に処理もループより遙かに高速
5行も使う必要無く、処理は1行、プロシージャ宣言含めても3行で済む

Rangeオブジェクトのメンバは、複数セルを対象に出来る物が多いから、覚えて損はないと思うぞ

すいません　前スレに質問したものの、答えを見る前にdat落ちしてしまいました。
どなたか、23-08時までのものを深夜として計算する方法をご存じないでしょうか。
(出勤20時･退社時間5時とか毎回違うのです)

>>123
終了<開始なら終了に+24hしてから計算(作業列でも、ifでも)
23時以前、深夜時間帯(23時以前開始で深夜時間帯終了・
深夜時間帯開始で深夜時間帯終了・深夜時間帯開始で32時以降終了)、
8(32)時以降と5つに列を分けて計算して合計するのが一番楽

23以前を例にすると
=if(開始時刻>=23/24,"",23/24-開始時刻)
って感じで

こんにちは、ちょっと質問テンプレにあてはまらなかったんでフリーで質問します。
こんな感じの表を使いたいんですけど
ttp://www.odnir.com/cgi/src/nup18041.jpg
Excelは全く素人なので無料テンプレートってありますか？探したんですけどなかなか合うものがなくて…

> なかなか合うものがなくて…
ドンピシャのものなんてそうそう有るもんじゃない。
ましてや>>125みたいに「計算表として不適切な構成」の場合は得にね。

>>126
>　計算表として不適切な構成

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

こんな感じならＯＫ？
http://pict.or.tp/img/66647.gif

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回分作ってあります。分割しないと文字数オーバーなので分割までしてあります。
分かりにくい説明ですみませんが、よろしくお願いします。

>>126
そうですね〜

>>127
そうです！そんな感じです！
用は得意先ごとの粗利が分かるようにしたいんです。

使っているのは2002SP3。

0001×10、0002×10、･･･0100×10まで1100行まで入力しなければならなくなったのですが、
ドラッグで一気に入力できませんでしたっけ。
一応、0001×10、0002×10の20行を左クリック選択してドラッグしてみたが、
0001と0002が10行ずつくり返されてしまう。

>>130
書式設定で0000
又はA1からドラッグした後
=TEXT(A1,"0000")
と入れてドラッグ。こっちならコピーして値で貼り付けすれば0001などの値が保持される

マクロの先頭に

　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するはず。
さらに速くしたい場合は、プログラムを根本的に見直すしかない。

アンカーつけるの忘れた。
>>132は>>128へのレスね。

ぐだぐだでごめん。それぞれ

　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

の間違いです。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 株価　結合　グラフ　エクセル　複数　などなど


株価チャートのグラフを複数作って、
それを一つのグラフ内に乗せたいのですが、コピー→貼り付けをやっても
高値安値終値を勝手に修正させられてしまします。
Ｘ軸１あたりで、４つの株価情報があると思ってくれると正しいと思います。
もう図にして透明化でもして合成するしか方法がないでしょうか？
ちなみにカレイダグラフではできるのですが、エクセルでも同じことがしたいです。

>>134
ありがとうございます！
明日試してみます(会社のbook・マクロは持ち出せない為・・申し訳ｱﾘﾏｾﾝ)

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

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

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

�@ 9.04→9.0
�A 9.05→9.1
�B 10.49→10
�C 10.50→11
�D123.45→120

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

上記の関数を思いついたのですが、�@が「9.0」ではなく「9」になってしまいます。
セルの書式設定やFIXED関数で小数点第1位までの表示にすると、�B〜�Dに小数点が入ってしまいます。
方法が分かる方、ご教授お願い致します。

>>129
データを以下のように入力してピボットテーブルを使う。
粗利は集計アイテムの追加で。

得意先　　月　　　区分　　　金額
○○商事　１月　　売上　　　2345
○○商事　１月　　仕入　　　1223
○○商事　２月　　売上　　　3456
○○商事　２月　　仕入　　　2111
××会社　１月　　売上　　　6543
××会社　１月　　仕入　　　3244
××会社　２月　　売上　　　8965
××会社　２月　　仕入　　　5336

自己解決できました。
もし解決策を考案中の人がいましたらごめんなさい。

>>139
どう解決したかぐらい書いてけよ

>>139
私も興味あります。

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行目から表を追
加するようなマクロかＶＢＡを組みたいのですが、いい方法が思いつきません。
どなたかご教授願います。一応Ａ１〜Ｅ６は罫線で囲っているつもりでお願い
します。あと印刷範囲も表がある範囲だけを自動で指定できたら幸いです。

>140

ｲﾗﾈｰﾖ

>>142
何を目的としてるのか分からんが、
「印刷タイトル」の機能を知ってれば単純に解決できるような問題のような希ガス。

>>144 確かにこの場合だと単純に印刷タイトルでＡ１〜Ｅ１を指定すれば解決
できますが、目的としては印刷タイトルが使えない様な複雑な表の場合にマク
ロを使って表を挿入したいのですが・・・

>>145
>>印刷タイトルが使えない様な

多分そこが間違い。
どーしてもマクロでやりたきゃ自動記録してみな。

>>140
>>141
以下のようにやりました。
=FIXED(ROUND((A1*10^(INT(LOG10(A1))*-1)),1)*10^(INT(LOG10(A1))),(1+INT(LOG10(A1))*-1))

結局FIXED関数で文字列にして、先ずは見た目上の体裁を整える方向に。
集計など、数値として扱いたいときは、さらにVALUE関数を用いて文字列→数値に戻すので、目的は達成したもののあんまりスマートな方法ではないように思いますが。

>>147
[<10]0.0;[>=10]00;G/標準

桁落ちとか考えなくていいの

>>148
ユーザー定義をすっかり忘れていました！
ありがとうございます。
>>149
どうせ極端な数字は入ってこないので大丈夫かと。

>>150
>>148の書式と組み合わせて、これでいけると思うんだが
=ROUND(A1,1-INT(LOG(ABS(A1))))

>>151
0.01が0になるぞ。有効2桁なら0.010にならないといけないのでは。

>>147はちゃんと0.010になるぞ。よく考えたなあ。

>>132
ありがとうございます！！感動！！
しかもコードの見直しよりもよっぽど確実ですね

>>142
新規シートでも作って6行ごとに2回挿入繰り返し、
んで目的のシートにコピーするとか
自動記録でもできると思う

>>131

感謝！！　おかげで終わりました。

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

質問させていただきます。
デスクトップにおいてあるExcelファイルを表示しようとクリックすると、以前までは一度で
入力されていたデータがはいったスタイルシートが表示されていたのですが、
ある日から、クリックしても一度目のクリックでは初期状態のスタイルシート(Excelのショートカットアイコンをクリックしたのと同じ状態)
しか表示されなくなりました。。その状態でもう一度デスクトップにあるファイルをクリックすると、
以前のように入力していたそのファイル内のデータが読み込めます。。
あるいは、左上のタブにある「ファイル」→「開く」の手順を踏めば開けるのですが、
デスクトップに置いてあるExcelファイルを以前のように一度で開けるようにしたいです。
原因がわかるかたがいらっしゃいましたらどうかご教授ください。。

>>157
アプリケーションのアイコンじゃなくてデータファイルのアイコンをダブルクリックする。

あと、スタイルシートじゃなくてワークシートな。

>>135　仕様のため解決できない問題でしょうか？

【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列は""というような処理をしたいです
簡単な方法ありませんか？

VLOOKUP()とかCHOOSE()とかをIF()と組み合わせる

>>161
イメージはつかめました
ありがとうございました

>>160
=CHOOSE(A1,1,1,2,"",1,"",2,2,"","","",2,1)

まちがえた
=CHOOSE(A1,1,1,2,"",1,"",2,2,1,"","",2,1)

まだ間違えてるよ
「A1に」ではなく「A列に」だからね
そのアプローチはNGだ

>>159
一言で言うと言ってることがわからん
ファイルをアップしてくれ

　 　　　 　　 　＿＿＿_
　　　　　　 ／ ＼　　／＼　ｷﾘｯ
.　　　　　／　（ー） 　（ー）＼
　　　　／　　 ⌒（__人__）⌒ ＼
　　　　|　　 　　　|r┬-|　　　　| 　　　　「A1に」ではなく「A列に」だからね
　　　　 ＼　　　　 `ー'´　　 ／　　　　　そのアプローチはNGだ
　　　　ノ　　　　　　　　　　 　＼
　 ／´　　　　　　　　　　　　 　　ヽ
　|　　　　ｌ　　　　　　　　　　　　　　＼
　ヽ　　　 -一''''''"~~｀`'ー--､　　　-一'''''''ー-､. 　 　
　　ヽ ＿＿＿＿(⌒)(⌒)⌒)　)　　(⌒＿(⌒)⌒)⌒))


　 　　　　 　　　＿＿＿_
　　　　　　　 ／_ノ 　ヽ､_＼
　ﾐ　ﾐ　ﾐ　　oﾟ(（●）) (（●）)ﾟo　　　　　　ﾐ　ﾐ　ﾐ
/⌒)⌒)⌒. ::::::⌒（__人__）⌒:::＼　　　/⌒)⌒)⌒)
|　/　/　/　　　　　|r┬-|　　　　|　(⌒)/　/ / /／　　だっておｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
|　:::::::::::(⌒)　　　　|　|　 |　　 ／ 　ゝ　　:::::::::::/
|　　　　　ノ　　 　　|　|　 |　 　＼　　/　　）　　/
ヽ　　　　/　　　　　`ー'´ 　 　 　ヽ /　　　　／　　　　　バ
　|　　　　|　　 l||l　从人 l||l 　　　　 l||l 从人 l||l　　バ　　　ン
　ヽ　　　 -一''''''"~~｀`'ー--､　　　-一'''''''ー-､　　　　ン
　　ヽ ＿＿＿＿(⌒)(⌒)⌒)　)　　(⌒＿(⌒)⌒)⌒))

>>158
レスありがとうございます。ワークシートの間違いでしたか。。どうもです。
説明が足らなかったようで申し訳ありません。データファイルのアイコンをクリックして、いまの状況となっています。。

>>167
顔が真っ赤だよ
そんなにモニター睨まないで…

夏厨、みっけ！！
「いち・ろく・なな」

このスレの住民のスルー力のなさは異常

=IF(AND(1<=A1,A1<=13),CHOOSE(A1,1,1,2,"",1,"",2,2,1,"","",2,1),"")

>>168
関連付けが壊れたかな。
フォルダオプション→ファイルの種類→XLS→元に戻す

>>171
なんでスルーできないの？

とスルーできない>>174が申しております

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

現在のシートのすべてのセルを対象とし、　「TC1」という文字を含んだセルの色を黄色にするということを実現したいです。
「ATC1」とか「CCTC123」といった　TC1を含んだセルです。

VBEにて　Ctrl　+　j　でリストが出てきたと思いますが、最近出てきません。
何か設定が狂ったのでしょうか？

>>176
条件付き書式で
=ISERR(FIND("TC1",A1))

×=ISERR(FIND("TC1",A1))
○=NOT(ISERR(FIND("TC1",A1)))

素でまちがえた
おはずかしい

>>178-179
実際は、複数の条件があるので、VBAで実現したいです。
「TB1」を含むセルは青にするといったような。。。

>>181
>>122をifで分岐させる

【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

>>183
ピボットテーブル

>>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を含んだセルの文字を青にするということができました。
自己解決しそうですが、
あとは、セルの範囲が固定というところが問題でしょうか？

>>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

>>186
ありがとうございます
For Each c In ActiveSheet.UsedRange.Cells
の部分が参考になり解決しました。

A列に150〜200行の文字列
1つのセルに20〜30文字

これをA4縦でできるだけ文字を大きく印刷するように
例えば3列に自動で振り分けるといったようにすることはできるでしょうか？

>>188
どの程度厳密にやるかによるけど。

セルの幅を紙のサイズに合わせて、フォントを適当に大きくしてから、
書式で「縮小して全体を表示する」ってのじゃだめ？

>>188の意味を色々考えてたんだが

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


違う意図の質問かなあ・・・
前から思ってたけどこのスレ、謎解きみたいで楽しいよね

段組したいって意図だと思うよ
謎解き頑張ってね

【1 OSの種類 　 　 　 　 】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【5 検索キーワード 　 　 】 Excel ドラッグ　1-A アルファベット A

「1-A」を下にドラッグしていったら
「2-A 3-A 〜 8-A」とかになってしまうんですが、
数字は1のままで、うしろのAのとこをBCDEと変えていけませんでしょうか。

すんません。理由はわかりませんができました。

既に用意してある複数のCSVﾌｧｲﾙから一つのﾜｰｸﾌﾞｯｸ(ｴｸｾﾙﾌｧｲﾙ)を作成するにはどうすればいいでしょうか？
ﾊﾞｰｼﾞｮﾝは2000です

エクセルで開いてコピーペーストするのが一番早いと思う
メモ帳で開いてコピーペーストでもいいけど改行などがずれる可能性があるため
あまりおすすめしない

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

ハイパーリンクでPC内のワードパッドやメモ帳を呼び出そうとすると
「セキュリティに影響を及ぼす可能性のある問題点が検知されました。
この場所は安全でない可能性があります
C:\（ワードパッドやメモ帳の場所）
ハイパーリンクはPCとDATEに被害を与える場合が〜続行しますか？」という
セキュリティに関する通知が毎回出てきます。
この通知を出ないようにする方法はないでしょうか？

>>196
メッセージを出なくする方法はあるけど、おすすめできない。
ttp://support.microsoft.com/kb/925757/ja

2007では試したことないけど、VBAから外部アプリケーションを起動すれば、たぶん警告は出ないはず。

>>196
VBAからメモ帳を開けば警告はでないので、マクロ登録するのが安全で確実

Sub メモ帳を起動()
　　Shell ("c:\windows\notepad.exe")
End Sub

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】郵便番号変換ウィザード
会社のパソコンが一切のインターネットプログラムDLを禁止しているので、
郵便番号変換ウィザードを導入してみたいんだけどできない状況です。
そこで、当該郵便番号変換ウィザードの住所から郵便番号への変換精度について知りたいのです。
たとえば住所データとしては都道府県で始まりマンションの番地で終わるものや、
いきなり市内の町名から（「〜町1-4」など）始まるものも考えられるわけですが、
変換可能なのは郵便番号辞書と完全一致のものに限るのか、
前方or後方の部分一致でもOKなのか実際に導入してる方、教えてください。

>>199
少なくとも都道府県名は省略可能でした。
どこまで変換可能かは、実際のデータで試してみないとわからないと思います。

>>197
>>198
レスありがとうございました！解決しました ヾ(*´∀｀*)ﾉ

>>199　自宅のPCで試せばいいじゃない

>>200
試してもらってありがとう。大体の場面で使えそうですね。
>>202
Excel持ってないので。VBAは会社のPCでコツコツ覚えました。

【1 OSの種類 　 　 　 　 .】 WindowsVista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel 2007 フォーム 削除

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

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

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

以前からずっと困っており、未だ解決方法がわからないのでご存じでしたら教えてください。
よろしくお願いいたします。

ペーストするときにテキストを選択してもだめなん？

>>203
30日使えるExcelの体験版がMSのサイトから無料でダウンロードできる。
VBだけならVisualStudioってのを入れれば無制限で使える。これも無料で公開されてる。
仕事で必要ならExcelの1本ぐらい買っとけ。自分への投資だ。

住所の変換精度はこんな感じ
ttp://aaabbbccc.s6.x-beat.com/upload/src/up18762.png

>>204
まず「Excelのオプション」で「[開発]タブをリボンに表示する」にチェックを入れる。
次に「開発」タブをクリックして「デザインモード」を選択すると、
チェックボックスなどのWEB要素の変更 (移動や削除など)ができるようになる。

>>204
メモ帳にでもコピペしてからコピペしてみては？

【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

結果は年月までわかればいいので文字列でもなんでもかまいません

>>207
その方法で希望の操作が行えるようになりました。
本当に助かりました。ありがとうございました。

>>205,208
どちらの方法も試しておりましたが、作業量が多いため少しでも手間を少なくしたかったのです。
207さんの方法で解決いたしました。ご回答ありがとうございました。

>>209
「日」が20より大きければ「月」に1を足す

=DATE(YEAR(A1),MONTH(A1)+IF(DAY(A1)>20,1),1)

A1に日付として
=IF(DAY(A1)<=20,A1,DATE(YEAR(A1),MONTH(A1)+1,1))

>>206
VBAとVB.NETはまるで別物なんだが
それともVB6以前が使えるVSが公開されてるのか？

> それともVB6以前が使えるVSが公開されてるのか？
無料公開どころか、もう一般販売すらされてない

しかしC#とか作るくらいなら、現在のVB.NET的な役目をそっちに任せて
VBは多少貧弱だろうと6以前の仕様で続けて欲しかったよな
現状じゃVB6からVB.NETに移行するのもC#に移行するのもハードルは対して変わらないし

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

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

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

調べ方が悪いのかなかなかでてきませんでした、よろしくお願いします。

>>215
Ctrlキー押しながらクリック

>>215
セルの場所を書くときはアルファベットが先ね。そういうルールだから。
8-F → F8

で、質問の内容をエスパーすると、F8をクリックしたらA8とF1の色が変わって欲しいと。
そういう機能はありませんのでVBAで自分で作るしかないです。

>>215
Aとか1とか書いてあるグレーの所をクリックする。

【1 OSの種類】WindowsXP
【2 Excelのバージョン】Dxcel2007
【3 VBAは使えるか】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード】Excel2007、オブジェクト(図形)を印刷(する、できない)、チェックボックスがない(無い)、グラフ内、グラフの中、などの組み合わせ

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

どうしたら良いでしょうか？
やはりXPは諦めてMeに戻したほうが良いでしょうか？

「【2 Excelのバージョン】Dxcel2007」
は
「【2 Excelのバージョン】Excel2007」
の間違いです…

「DexelやめてExcelにしたら？」と言われたら悲しいです

>>219
試しにグラフとテキストボックスを作ってみたけど、うちではちゃんと印刷できた。
「オブジェクトを印刷する」の選択肢が出ないのは確認できたが。

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

あと、XpからMeに変えても何も変わらないよ。
後ろ向きな解決方法としては、Excel2007をExcel2003に変えるってのが正しい選択。

【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分間隔(データを半分)にしてグラフ化するマクロを作成して
取り込む方法は思いついたのですが、何らかの方法で全データ取り込む方法ってありますでしょうか？
分かる方いらっしゃいましたら教えてください。

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

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

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

こういう式を入れたのですが、全部FALSEが返ってきてしまいます。
なんでうまくいかないのでしょうか。
お助けください。

>>223
=AND(A2=B2,B2=C2,C2=D2)

>>222
4万ポイントの折れ線グラフを作ったとして、それを忠実に表示したり印刷するのは不可能だと思うんだけど、
そのあたりはちゃんと考えてる？
1目盛りが0.1mm間隔のグラフが印刷できたとして、全長4メートルだよ？

>>224
ありがとうございます。出来ました。
＝の連続は条件式としては使えないものなんでしょうか。

>>226
基本的に大小や一致、不一致の比較は2つずつしかできません。
たとえば

IF(A2=B2=C2, 以下略

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

IF(A2=TRUE, 以下略

という式になるため、A2がTRUEでなければ、この式の結果はFALSEになるというわけです。

>>227
逆だよ。この場合の計算は左から。

こんな感じ。
ttp://kissho.xii.jp/1/src/1jyou41919.png

今、会社の年寄りどもが
Excel2008をインストールしろだとか何だとか言い出しているんだけれど
2008ってあるのかどうか誰か教えてくれ。

>>229
あるが、Mac用

http://www.microsoft.com/japan/mac/products/office2008/system.mspx
＞ Office 2008 必要システム
オペレーティングシステム　日本語版 Mac OS X 10.4.9 以上

だよねぇ。
うちWinなんだけど、出てないはずなのに何言ってんだろ。

さんきゅう！！

2007の間違いだとしてもでもやめとけよ
死ぬぞ

2007はだめなのか？？

年寄りには向かないかもな
リボンへの対応が厳しそう

今年が2008だから間違ってんだろうけど

若者にも向かないよ・・
2003のまま関数とか増やすだけでよかったのに

今2007使ってるけど慣れれば別に気にならなくなったけど
確かに2003のほうが使いやすかったね。
一見のデザインから「使いやすくなったのか？」と思わせられたけど
やっぱり昔のが良かったなぁ。。。

リボンの困るところは、よく使う機能がホームタブにあるから、
別のタブを見ているときに一々ホームタブに戻さないといけないところだな

全部クイックアクセスうんたらに登録すればいいって話か

いきなり2007から使い始めるとなると使いやすいかも知れないけどね。

他のアプリケーションと大幅に違うという点からして、そういうのはほとんどいないと思う

2007に旧タイプのメニューバーを追加するソフトって有料なんだっけ？

あと気にくわないのはタイトルバーが無いところ
タイトルバーに常駐するタイプのランチャを使ってたんだが、
タイトルバーが無いせいで表示されず使い物にならなくなってしまった。

2003で2007のファイルを扱えるようにするアドインてどうよ？
MSで無料公開されてるけど。
あれなら見た目2003のままパワーアップするんじゃない？そういうもんでもないのかな？

そういうもんでもないんです

>>124
=IF(開始時間<=23/24,23/24-開始時間-2/24)で23-0が取れました。
が。
IF(終了時間>=32/24,終了時間-24/24)
IF(終了時間>=32/24,,終了時間-24/24)　
で0-8が取れます。なぜ真と偽を入れ替えねば出ないのかがわかりません。

>>245
もうちょっと論点を整理して、誰でも理解できる日本語で書いてください

>>243
しかし、行列数が65536*256を超える部分は表示出来ないし
4つ以上の条件付き書式など、2007で強化された機能は再現されないし…

というわけで、単に2007側で旧形式保存しなくても、互換性のある部分に限っては
扱えるってだけで、全然パワー(機能)はアップしてない

2003を使っています。
Excelで平方2乗平均を計算するにはどうしたら良いのでしょうか？
手っ取り早い方法を教えて下さい。

>>248
平方2乗平均の定義はどんなの？

数学の質問はスレ違い

>>250
例えば
「Excelで偏差値を求めたいのですがどうしたらできますか？」
という質問はスレ違いか？

スレ違いだね
偏差値の概念を理解してれば、関数の検索とヘルプだけで情報は事足りる
Excelとは関係ない偏差値の算出概念をここで解説する必要は無し

概念（笑）

エクセルで１００個の数字を一度に１００倍したいのですが。どうしたらいいですか？？

Excelで平均値を求めたいのですがどうしたらできますか？

>>252
「関数の検索とヘルプだけで情報は事足りる」質問はスレ違い！
こりゃ驚いた

>>254
定数倍したい目的のセルがA1:A100と仮定。
まずB1に100を入力し、そのセルをコピー。
んでA1:A100を選択しAlt→E→S→M→Enter

>>252
例えば
「正規分布に従う乱数をExcelで発生させたいのですが、やり方を教えてください。」
という質問もスレ違いかな？

表計算ソフトの質問スレなんだから計算の話題が出てきて当然だと思うがな。

＞＞２５７　
ありがとうございます。めちゃくちゃ助かりました。

エクセルで地球の表面積を求めたいのですが、どうしたらいいですか？

>>261
正確な表面積を計算するのは不可能なので、まずは計算方法(精度や妥協点)を決める必要があります。
この段階ではまだExcelの出番はありません。地学板等で相談してください。

>>255
AVERAGE

http://www.nicovideo.jp/watch/sm4000901

>>261
その質問の仕方はスレ違い、正しくは
「このような方法で地球の表面積をエクセルで求めたいのですがどうしたらいいですか？」
といった具合に、式もしくは計算方法を提示しなさい

>>259
ばーか
数学板いけよ

>>265
そうだね。それがいいんじゃないかな。
だから>>248も平方2乗平均の定義を示してからExcelの質問をすれば？

絶句

>>268
何に対して？

http://oshiete1.goo.ne.jp/qa4187951.html

>>270
そこの回答者は
「平方２乗平均は、各要素を２乗した物の和を要素数で割った物の平方根です。」
と決め付けているが本当にそれでいいのかな。
そこがみんな不安だからここでは回答つかないんじゃないのだろうか。

っていうかマルチポスト

良く見つけるなあ。気持悪い。

>>272
別にそれは気にならない。

マルチとかテンプレとかスレ違いとかに執着するやつはキモイ。

もっと、言ッテ

>>273
http://www.google.co.jp/search?q=%e5%b9%b3%e6%96%b9%ef%bc%92%e4%b9%97%e5%b9%b3%e5%9d%87

>>227
>>228
ありがとうございました。合点しました。

>>246
前述の通り深夜勤務の時間数を求めようとしています

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

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

真と偽を入れ替えると出たり出なかったりするのかがわかりません。

>>275
ガキ

>>279
Excelでは日付と時刻をまとめて「シリアル値」という連続したデータとして扱うことになっている。
時刻のデータには、表示されていないだけで年月日も情報として含まれている。
エラーが出たデータの書式を変えて、年月日まで表示させてみると違いがわかるかも。

俺の予想では時刻が文字列になってしまっているか、計算した結果がマイナスになっているかどちらか。

>>279
24時間を超える場合のセルの書式はh:mmじゃなくて[h]:mmだよ。
たぶんマイナスになってるんじゃない？

こんばんは。VBE初心者のものです。

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

自分はIFやDim等までしか習っていませんがそれで解ける方法があったら
誰か助けてください。

マルチ乙

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

すいません、エクセル初心者ですが質問があります
エクセルでグラフを書こうとしてるのですが単位の入ったセル【100m】などをドラックしてグラフを作ろうと思っても
単位が入っているためかうまく作れません。
数値のみならグラフを作れるのですが単位つきのセルを利用してうまくグラフをつくれるほうほうはありますか？

>>285
左上から右下の斜めの合計がおかしいな

>>285
ttp://www.ne.jp/asahi/suzuki/hp/houjin3.htm
このとおりにすればいけるみたい
>>286
=substitute(a1,"m",)なんかでmを抜いた列を作ったあとグラフ

それか最初から書式設定でmをつけるのが基本
A1に100、B1にmといれるようにしててもいいけどね

スレ違いかもしれませんが、
Excel使うのにおすすめのマウスありませんか？
横スクロールの使い勝手のいいものです。

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

奇数専用だね

>>289
logicoolなら大体外れないでしょ
あとは無線や有線、重さなど人によって違いすぎるのでなんとも
ゲーム用のも悪く無いと思う

>>289
俺は安いので、
Ａ4ｔｅｃｈ　使ってる。

Excel2003を使用しているのですが、下記のグラフを作成したいと思うのですが
やり方がわからないので質問致します


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


上記グラフのように、A社は1970年から始めて2008年まで継続しているのに対して
B社は1985年から開始して2008年まで継続しているということを表したいです。
B社のようにグラフ途中の1985などを起点とするにはどのようにすれば良いのでしょうか？

すみませんグラフがズレました・・・

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

>>294
youtubeで Gantt Chart で検索してみるんだ。

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


色を消すという発想がなかった…
先人頭良すぎ

XP VAIO VGNE Excel2007

絶対参照について。

セルB4に「B1」と入力しました。ここでF4キーを押すと$マークがつくらしいのですが
セルにカーソルがあっている状態で押してもタブキーを押したようにカーソルが右に
移動してしまいます。どのようにすればマークがつきますか？お願いします

=B1と入力してからF4

【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まで複写します

>>299
=がなかったんですね・・・・・
無事マークを付けることができました。
ありがとう

>>300
なんで小数点の記号にカンマつかってんの

文系の子は整数以外理解できないから、しかたがない

>>303
なんでお前そんなにガキなの？

夏だモン

なぜかフランスではコンマと小数点の使い方が逆なんだよな。
1.234.567,89
みたいに書く。
声に出して読むときは日本人の理系でも小数点のことをコンマって言うし。とくに機械科の人。

ここは日本だよ
理系にもバカはいる

町工場(こうば)の人は普通にみんなコンマって言うよ。
0.1mmのことを「コンマ1ミリ」とか。業界用語みたいなもん。
事務系の人は知らない世界だと思うけど。

大昔、「コンマ1秒の、エクスタシー」なんてのを
宣伝文句にしてる映画がありました

コンマが小数点って普通に国語辞典にも載ってるな

ここExcelスレなんだけど

もしかしてロケールをフランスに切り替えるとコンマと小数点が逆になる？

結局誰も300に答えてない件

>>312

A4が空？

>>302の指摘が正解なんだけど

指摘されてもフランス人だったら一生わかんないんじゃないの

じゃあ元金1,000ってのは1ユーロか

なにいってんのこいつ

たとえユーロでも複利の計算方法は変わらんだろ

(　ﾟ,_･･ﾟ)

>>316
フランス人バカにすんなよコラ

元金が1.000で利率が0,02ならなんとなくつじつまも合うんだけど、元金も1,000だからなあ…
ユーロの補助単位は2桁だから1ユーロにしてもおかしいし。

いいからもう寝ろ

ｵﾔｽﾐ

こんばんわ。
小数点以下を四捨五入して表示しています。
しかし、このセルを使って他で計算すると当たり前ですが、小数点以下全てを使って
算出されてしまいます。表示ではなくて、完全に小数点以下を四捨五入したい場合は
どうすればいいんでしょうか？

2003です。

>326

Round

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

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい（出来れば関数で解決したいです）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】複数条件　lookip　抽出
シート1
A　B　C　　
1　あ　AA
2　あ　BB
3　あ　CC
1　い　DD
2　い　EE
3　い　FF
上記のような表を作成した際に、「"あ"の"1"ならAAを抽出」「"い"の"1"ならDDを抽出」
というのを作りたいのですが、VLOOKUPでやるとA列の条件でしか探してくれませんでした。
サムプロダクトですと、合計値しか求めてくれないようで詰まってしまいました･･･。
どうかよいアイディアかヒントなどご助言いただけませんでしょうか？
お願い致します。

なんどもでる質問だけど
D列にあ１、あ２、あ３、い１、い２、い３を入れてE列にC列を再掲すればVLOOKUPが使える。

＞330
なるほど。全然思い浮かびませんでした！ありがとうございます。

ちなみに後学の為に、Ａ且つＢのような条件を抽出したい場合は
どのように対処したらよろしいのでしょうか？
VLOOKUPでなくても、関数で求めることができるのであれば知っておきたいですので･･･。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 選択　VBA　フォーム　エクセル
VBAのフォーム　にて　たとえば　CommandButton1 というボタンをクリックすると、シートのセルが選択できる状態になり
マウスでドラッグして複数箇所を選択する。
選択は単列もしくは　A2〜A11　と　B3　と　C4〜C12　といったように　、複数列の場合がある。　
複数列の場合は　Ctrl+ドラッグを用い　必ず1列づつ選択する
（各セルには1行しか入力されていない)
選択が終了したら　フォーム　の　CommandButton2　というボタンをクリックする。
すると　フォームの　TextBox1　というテキストボックスに　選択したセルのテキストが、表示される。
テキストボックスへの表示は、選択した列の順でも　A　B　C　といったように名前順でもかまいません。

以上を実現したいと思っています。

>>332
2000だったらRefEditコントロールってのを調べてみると
それっぽい事が出来るサンプルたくさんあるんじゃないかな？

>>331
配列数式使えば可能だが、重くなるだけなのでやめた方がいい
こういうことに配列数式使うなんてのは後学にもなんにもならないからな

>>331
複数条件で検索したいってのはExcelのFAQみたいなもんだな。
いろいろな方法があるけど状況に応じて使い分けるしかない。
ttp://www.geocities.jp/chiquilin_site/data/051029_more_conditions2.html

>>333
ありがとうございます。
RefEditコントロールは選択する部分では、自分が実現したいものそのものでした。
しかし、サンプルをいくつか見ましたがわからない点があり、
1つだけの選択だとできるのですが、複数のセルの場合、選択したセルの値をテキストボックスに表示するということができません。

>>281
>>282
理解しました。
ありがとうございます

そして新たな質問です。
残業の開始時間は取れました
しかし終了時間がよくわかりません

たとえば夜勤の人が8時半や3時半に帰った場合なのですが、
深夜帯は22時から5時としました場合、
開始時間は=IF(出勤<=22/24,,25/24-出勤)で出ます。
終了時間はどう出せばいいのでしょう。

>>332
選択セルのアドレスを取得するだけなら
Application.InputBoxメソッドのType:=8で出来る

InputBox関数じゃないよ

生年月日が入力してある表があるのですが
これを元に生まれ月だけ抜き出してグラフを作成する事は可能でしょうか？

また、どんな関数を使ったらいいでしょうか？
宜しくお願いします。

>>339
month関数で調べてみてください。

>>337
終了-開始<0の時、終了に24/24を足す

>>338
アドレスではなくて、セルに入っている値です。
たとえば選択した　A1に3　A2に5.8　A3に神奈川　B5に5　B6に6.0　C2に6　C3に新潟
だとすると　テキストボックスに　「　3　 5.8　 神奈川　　5　 6.0 　6　 新潟」
(できれば1つのセルの値ごとに　& vbCrLf &　改行したいです）　

>>340
ありがとうございます。
調べてみます。

>>342
Sub aaa1()

Dim c As Range
Dim unko As String
For Each c In Selection
unko = unko & c.Value
Next c
Cells(1, 1) = unko
End Sub

とりあえず選択したセルの文字列連結をA1に出力
後はテキトーに変えておくれ

若い野球ファンのことは知らんけど、団塊世代なんてのは、大抵
平日は仕事から帰ってきたらﾋﾞｰﾙを飲みながら野球中継、
週末は接待でマージャン、日曜はこれまた接待でゴルフ、休みなら競馬にパチンコ
あとはこれといって趣味と言えるものもない、そういう人が結構多い

一昔前の野球人気なんてものの正体はこれ
みんな会社員、みんな一緒にとりあえず無難な話題
その対象が野球だった

それが徐々に崩れてきたのが現在の状況
もう絶対に元には戻らない

お前はヨソでも啓蒙してるのかｗ
もう病気だなｗ

啓蒙じゃなくね・・？

しかも啓蒙の使い方間違ってるし>346
知らないくせに粋がって馬鹿をさらす
まるで団塊だな

ごめんなさい誤爆しました
が先だろｗ
ほんとどうしようもないなｗｗｗ

>>344
Private Sub CommandButton1_Click()

Dim c As Range
Dim unko As String

Range(RefEdit1).Select

For Each c In Selection
unko = unko & c.Value & vbCrLf
Next c

TextBox1.Text = unko

End Sub

これでうまくいきました。ヒントありがとうございます。一応ご報告させていただきます。

【1 OSの種類 　 　 　 　 .】 macOS10.5
【2 Excelのバージョン 　 】 Excel2008
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 officemac2008 オートコンプリート
セルへの入力にオートコンプリートが働いて候補を出してくれるのですが、
今はマウスでカーソルを移動させてその候補の中から選択しています。
それをキーボード操作でやりたいのですが出来るのでしょうか。

>>342
解決したならいいけどRefEditにはこんな事もあるらしいよ
ttp://www.h3.dion.ne.jp/~sakatsu/Excel_Tips08.htm

参考にどうぞ

>>351
Macのことはわからんけど下矢印キーで選べない？

>>342
Private Sub CommandButton1_Click()
　Dim C As Range, X As Range
　Dim hoge As String

　On Error Resume Next
　Set C = Application.InputBox(Prompt:="セルを選択してみろ", _
　　　　　　　　　　　　　　　 Title:="選択セルを１セルに書き出す", _
　　　　　　　　　　　　　　　 Type:=8)
　On Error GoTo 0
　
　If C Is Nothing Then
　　MsgBox "キャンセルしたよ"
　Else
　　For Each X In C
　　　hoge = hoge & X.Value & vbCrLf
　　Next X
　End If
　TextBox1.Text = hoge
End Sub

InputBoxメソッドを使った場合のやり方
アドレスが取れればそれを使ってセル参照も取れるだろ

>>351
リスト履歴だとAlt+↓で入力履歴がずらっと出る。

>>354
なるほど。先ほどは理解力不足で理解できませんでした。
>>352さんの指摘された件もあるのでこちらの方が良いみたいですかね？

ちなみに、

TextBox1.Text = hoge

のデータをテキストファイルにて保存するにはどうしたらよいでしょうか？

>>356
テキストファイルの作成はこんな感じ

F = FreeFile
Open "C:\aaa.txt" For Output As #F
Print #F, hoge
Close #F

関数をつかって
もし〜ならば〜を出すってのがやりたいんですけど
このもし〜の部分がひとつのセルではなく隣の列のセル
にも別の条件を加えたうえで二つのセルに対してかつ条件
することもできますか？

>>358
条件によるだろ？
具体的に言ってみろよ

A1が1かつB1が2の時に○、違う場合は×と表示
=if(and(A1=1,B1=2),"○","×")

たとえば下のように英文字と数字の２列のテーブルがあると
すると左の列でＡに該当する右側のセルの数字を全部合計したい
場合はどうすればいいですか？

Ａ２
Ａ４
Ｂ２
Ｂ１
Ｃ２

計算結果＝６

>>361
それらがA列にあるとすると
B1に
=IF(LEFT(A1,1)="Ａ",RIGHT(A1,1)*1,"")
それで下にオートフィル、後は合計

>>362
ありがとうございます
でも、できればＣＯＵＮＴＩＦ使って計算したいのですが
できませんか？

xp 2003 ＶＢＡの回答依頼です。
sheet1のA2からA5にアルファベットの文字データ（半角文字250）が入っています。
この時、aa aaa aaaa… aaaaaaaaaaaa …　とaが２〜３０個続いている場合、
この部分を""で置換して削除したいのですが、発想が浮かびません。
できるように、よろしく、お願いします。

レスどうもです
>>353
下矢印キーでは「ことえり」というかな漢字変換ソフトが機能してしまい
たとえば、「お」と入力して「沖縄旅行」と履歴が出ても「尾・緒…」と漢字の
次候補が出てしまいます。

>>355
リスト履歴だと矢印キーで選択、エンターで決定と出来ました。
ただ、履歴がたくさん出過ぎてしまって常時使うにはちょっと。

>>363
COUNTIFは数を数える（カウントする）関数。
SUMIFを使いなさい。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel　オートフィルタ　抽出　コピー　失敗

Excelのデータベースで、ある条件をオートフィルタを抽出しています。
その抽出した部分だけのデータおよび書式を全部変更したかったので、
抽出されている部分にコピペで全部貼り付けました。

しかし、オートフィルタを外したら、抽出していなかった部分にもデータおよび書式がコピペされていることがあります。
これを回避する方法はないでしょうか？
また、どういったときにそういうことになるのか、条件や原因を教えてください。

宜しくお願いします。

>>367
オートフィルタで抽出されたセルだけを選択するのはAlt+; 。それから書式などを変えればいい。

>>364
Sub mac()
Dim i As Long
For i = 2 To 5
Range("a" & i).Value = Replace(Range("a" & i).Value, "aa", "")
Range("a" & i).Value = Replace(Range("a" & i).Value, "aaa", "")
Range("a" & i).Value = Replace(Range("a" & i).Value, "aaaaa", "")
Range("a" & i).Value = Replace(Range("a" & i).Value, "aaaaaaa", "")
Range("a" & i).Value = Replace(Range("a" & i).Value, "aaaaaaaaaaa", "")
Range("a" & i).Value = Replace(Range("a" & i).Value, "aaaaaaaaaaaaa", "")
Range("a" & i).Value = Replace(Range("a" & i).Value, "aaaaaaaaaaaaaaaaa", "")
Range("a" & i).Value = Replace(Range("a" & i).Value, "aaaaaaaaaaaaaaaaaaa", "")
Range("a" & i).Value = Replace(Range("a" & i).Value, "aaaaaaaaaaaaaaaaaaaaaaa", "")
Range("a" & i).Value = Replace(Range("a" & i).Value, "aaaaaaaaaaaaaaaaaaaaaaaaaaaaa", "")

Next
End Sub

なんで俺のコードはいつもこう汚いんだろう

>>364
処理したいセルの数も文字列の長さも大したことないので、全置換パターンをずらっと並べても
大した手間ではない

スマートにやるなら正規表現

アドインを使わないなら、aaaをaaに置換というのを28回繰り返して、最後にaaを消す

>>364
不明な部分があるので確認。
aが1個だけの場合は？31個以上連続した場合は？

たとえば、こういうこと？
a1aa2aaa → a12

>>368
ありがとうございます。
明日会社で試してみます（今適当なデータが手元にないので）

どういうときに、フィルタを掛けて非表示行になっている行にも影響があるかの
条件や原因はわからないでしょうか？

自分が以前、フィルタを掛けて表示行にコピペを掛けたら、非表示行にも影響が及んでいて
ゲゲ！ってなったのですが、今日説明を受けているときに先輩がやったときには非表示行にまで
影響が及んでいませんでした。
もちろん、先輩はAlt+; など使っていません。

>>372
切り取りだと不可視部分も全て切り取り
コピーだと見えてる部分だけコピー
だったと記憶する。逆かもしれんが

>>369
単純に置換を繰り返すなら、こういうパターンにした方が効率がいい。ヒントは二進法。

Sub a()
　With Range("A2:A5")
　　.Replace What:="aaaaaaaaaaaaaaaaaa", Replacement:="aa"
　　.Replace What:="aaaaaaaaaa", Replacement:="aa"
　　.Replace What:="aaaaaa", Replacement:="aa"
　　.Replace What:="aaaa", Replacement:="aa"
　　.Replace What:="aaa", Replacement:="aa"
　　.Replace What:="aa", Replacement:=""
　End With
End Sub

>>373
説明がわるくてすみません。

フィルタを掛けた表示部分のデータを他のシート等にコピー＆ペーストしたいのではなく、
表示になっている部分自体にデータをペーストしたいのです。

（例）　フィルタが掛かった状態（左端の数字は行番号）

1　A
5　A　　　　←このAをBに置き換えるため
6　A　　　　1行目のAをBに書き換え、それをコピー＆ペーストする
10A　　　　（非表示の2、3、4、7、8、9行目はCが入っているとする）　

だけど、フィルタを外すと、非表示の2、3、4、7、8、9行目のデータまでBになっているときがある。
本当は、Cのままでなければならないのに。

処理時間は増えるけど、ソースの見た目スッキリ

Sub a()
　With Range("A2:A5")
　　For i = 1 To 8
　　　.Replace What:="aaa", Replacement:="aa"
　　Next
　　.Replace What:="aa", Replacement:=""
　End With
End Sub

自分と似たような疑問を相談してるurlを見つけました。
http://q.hatena.ne.jp/1188424422

結局、この回答者の回答内容が正しいかどうかわかりません。

例えば、「●非表示部分も有効」のところに「ペースト」をあげていますが、
今日先輩がペーストをやっていまいたが、「表示部分にのみ有効になっていました。

たくさんのヒントとコード例、ありがとうございます。
奇数個、偶数個でうまく書くことを考えていましたが、できなかったので、
質問させていただきました。
thanks for all

>>371
aが1個だけの場合は？　　残します。
31個以上連続した場合は？ 発生しないという与件です。

>>369
aが3個の時消えなくね？

>>364
Sub hoge()
　 For i = 2 To 5
　 　 DstStr = Cells(i, 1)
　 　 TarStr = ""
　 　 For j = 1 To Len(DstStr)
　 　 　 If Mid(DstStr, j, 2) = "aa" Then
　 　 　 　 For k = j + 1 To Len(DstStr)
　 　 　 　 　 If Mid(DstStr, k, 1) <> "a" Then
　 　 　 　 　 　 j = k - 1
　 　 　 　 　 　 Exit For
　 　 　 　 　 End If
　 　 　 　 Next k
　 　 　 Else
　 　 　 　 TarStr = TarStr & Mid(DstStr, j, 1)
　 　 　 End If
　 　 Next j
　 　 Cells(i, 1) = TarStr
　 Next i
End Sub

>>380
うpする前に動作確認ぐらいしようよ。

正規表現使えると楽だべなそれは
With CreateObject("VBScript.RegExp")
　.Pattern = "aa*a"
　For Each r In Range("A1:A5")
　　Set m = .Execute(r.Formula)
　　If m.Count > 0 Then r.Value = Replace(r.Value, m.Item(0), "")
　Next
End With

＞334.335
ありがとうございます！
サイトがとても判りやすく、参考になりました。
配列はなんとなくわかるのですが、使い方がよくわかりませんが
エクセルならあまり覚えなくてよさそうですね

>>382
"a+a"でよくね？

>>384
おー、そっちのがいいね
aa*aは冗長だべな。すまんすまん

>>382
それだと"aaaZaaaaa"みたいなパターンで後半のaが残る。

Sub regexp2()
　Set E = CreateObject("VBScript.RegExp")
　E.Global = True
　E.Pattern = "a+a"
　For Each r In Range("A2:A5")
　　r.Value = E.Replace(r.Value, "")
　Next
End Sub

記述
△ "aa*a"
△ "a+a"
○ "a{2,}"

解釈
△ aと0個以上のaの連続とa
△ 1個以上のaの連続とa
○ 2個以上のaの連続

処理
△ 「文字 文字 数量子 文字」
△ 「文字 数量子 文字」
○ 「文字 数量子」

>381
一応動かしたんだけど、最後の…a が残りますね。
確認が不十分でした orz

Sub hoge()
　 For Each r In Range("a2:a5")
　 　 r.Value = DelChr(r.Value)
　 Next
End Sub

Function DelChr(str As String) As String
　 tmpstr = ""
　 For i = 1 To Len(str)
　 　 If Mid(str, i, 2) = "aa" Then
　 　 　 For j = i + 2 To Len(str) + 1
　 　 　 　 If Mid(str, j, 1) <> "a" Then
　 　 　 　 　 i = j - 1
　 　 　 　 　 Exit For
　 　 　 　 End If
　 　 　 Next j
　 　 Else
　 　 　 tmpstr = tmpstr & Mid(str, i, 1)
　 　 End If
　 Next i
　 DelChr = tmpstr
End Function

エクセル2000ですが、
VBAのフォームでチェックボックスを20個作ったんですが、
（名前はデフォルトの　CheckBox1 　〜CheckBox20　です）
それぞれのcaptionを例えば
CheckBox1.caption　=　hoge(1)
CheckBox2.captiopn　= hoge(2)
・・・
といったように配列　hoge　の値にしたいのです。
Forでやろうとしましたがうまくいきません。

>>389
VBAのフォームで配列を使うのはちょっとややこしいのよ。もっと簡単に書ければいいのにね。

For i = 1 To 20
　UserForm1.Controls("CheckBox" & i).Caption = hoge(i)
Next i

うまく動きました。ありがとうございます。

>>390-391
たびたび配列としてアクセスする必要があるんなら、
自前でオブジェクトの配列を作ってしまうという手もある

Dim CB(20) As Object
For i = 1 To 20
　Set CB(i) = UserForm1.Controls("CheckBox" & i)
Next

For i = 1 To 20
　CB(i).Caption = hoge(i)
Next i

EXCEL2007です。

図形オブジェクトをグループ化する操作を教えて下さい。

よろしくお願いします。

>>393
2003だけどctrl押しながら複数クリックしていって→クリックでグループ化
できなかったらまたレスして下さいな

>>394

レスありがとうございます。
ctrl押しながらオブジェクトをクリックして、
右クリックするとメニューが出るのですが、
「グループ化」がグレーになっていて、出来ません。
どうしてなのでしょうか。

>>395
ctrl押しながら「複数の」図形を一個一個クリックしたあと右クリックだけど、それでも出来ない?

2007だけど>>394の方法で普通にグループ化できるぜ
新規ブックで試してみてもできない？

>>396,397
レスありがとうございます。新規ブックでも同じです。
「グループ化」メニューが、なぜグレーになってるのでしょうか？
ちなみに、オブジェクトは長方形オブジェクト2つです。

うちも2007だけど、普通にグループ化できるなあ。
選択した図形にアンカー付いてる？こんな感じで。
ttp://aaabbbccc.s6.x-beat.com/upload/src/up18999.png

間違えた。アンカーじゃなくてハンドルね。

>>399
レスありがとうございます。
図形の選択とハンドルは、同じようになってます。

ただ、右クリックで出るメニューの一番下が、
>>399では[オブジェクトの書式設定]ですが、
私の場合は、[図形の書式設定]になっています。

この辺りが原因のように思うのですが、
どうすれば[オブジェクトの書式設定]表示（たぶん、
その時[グループ化]が選択可になるのでは）に
なるのでしょうか？

よろしくお願いします。

>>401
メニューの一番下が「図形の書式設定」になるのは、
図形やグループが1個しか選択されてない時だったと思うんだけど。

左の長方形にハンドルが付いてないでしょ。
ttp://aaabbbccc.s6.x-beat.com/upload/src/up19000.png

>>402

レスありがとうございます。
二つの図形にハンドルがついてます。
ＥＸＣＥＬの不具合でしょうか？

>>403
「ページレイアウト」の「オブジェクトの選択と表示」を開いた時、
両方の長方形がちゃんと一覧に並んで出てる？名前の間に区切り線とか入ってない？
ttp://aaabbbccc.s6.x-beat.com/upload/src/up19002.png

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

名前の間に区切り線は、入っていません。

Ctrlを押して選択→右クリックでは、うまくいきません（原因？）が
できる方法が分かりました。

　Ctrlを押して選択→[ページレイアウト]（または[書式]）
　　→[配置]→[グループ化]→［グループ化]

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

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード 　 　 】 条件付き書式　計算式が入力されているセル
【5 検索キーワード 　 　 】 条件付き書式　計算式　入力　セル

すいません。検索ワードの通りなんですが、エクセルで計算式が入力されているセルだけ
書式を変える条件付き書式を設定することは可能でしょうか？
ググると、「そんな事するより計算式が入ったセルを一括選択してロックをかけろ」、という答えが多いのですが
計算式を保護したいのではなく、印刷した時に計算式が（数字に）上書き入力されているかどうかを
判別できる様にしたいのです。

>>406
たぶんVBA使わないと無理

>>406
ウィンドウオプションで数式にチェックを入れるのはだめ？

>>408
いや、それは・・・・
数式が入っているかを確認したのではなく
数字を見て、それが計算式の結果表示されたものなのか、直接入力された
ものなのかを判別したいので・・

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel200
【3 VBAが使えるか　 　 .】 少々
【4 VBAでの回答の可否】　可（むしろVBAで）
【5 検索キーワード 　 　 】 条件分岐　ＩＦ　値　条件一致


【やりたいこと】
・Ｈ列に1〜30の値が入っている行の、Ｖ列に50％という値を入れたい
・Ｈ列にAA、ＢＢが入っているときは、その行のＷ列に15％という値を入れたい
・どれも当てはまらない場合はブランク
・最後に、Ｖ列・Ｗ列両方ともブランクの行を赤で網掛け

if〜thenなど調べて書いてみたりしたのですが、躓きっぱなしですorz
ぐぐっても、ぐぐればぐぐるほどわけわからなかったり、
何故か自分のところでは動かなかったり・・・。
会社からはホスト規制で書き込めないので、次の反応は明日夜になってしまいますが、
ネットチェックは出来る（むしろそうやって調べて今まで作ってきた）ので、宜しくお願いいたします。

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

【やりたいこと】
ページのどこか（できればヘッダー・フッター内）に
a)［シート毎のページ番号］
b)［ブック全体の通しページ番号］
を同時に入力・印刷したいです。
例えばシート1,2にそれぞれ3ページずつ存在するとき、
シート2の2ページ目には「(a)2, (b)5」が表示されます。
(a)、(b)どちらかだけ表示することは簡単なのですが、
同時表示を実現する方法がわかりませんでした。
よろしくお願いいたします。

>>410
VBAなんか使わなくても
V1=IF(AND(1<=H1,H1<=30),50/100,"")
W1=IF(OR(H1="AA",H1="BB",15/100,"")
書式をパーセントにする。
セルの色は条件付き書式で。

カッコが抜けた
W1=IF(OR(H1="AA",H1="BB"),15%,"")

>>411
全自動で2種類のページ番号を付けるのは、VBAを使わないと無理。
手動でやるには、シート1を編集したらページ数を確認して、
シート2のヘッダーを書き換えて開始ページ番号を4にする。

>>410
どうしてもVBAでやりたいんなら

If Range("H1").Value = "AA" Or Range("H1").Value = "BB" Then
　Range("W1").Value = "15%"
Else
　Range("W1").Interior.Color = vbRed
End If

Sub TEST()
I = 1
Do While Cells(I, 8) <> ""
Select Case Cells(I, 8)
Case 1 To 30
Cells(I, 22) = "50%"
Cells(I, 23) = ""
Case "AA", "BB"
Cells(I, 22) = ""
Cells(I, 23) = "15%"
Case Else
Cells(I, 22) = ""
Cells(I, 23) = ""
End Select
I = I + 1
Loop
For R = 1 To I - 1
For C = 22 To 23
If Cells(R, C) = "" Then
Cells(R, C).Interior.Pattern = xlGray25
Cells(R, C).Interior.PatternColorIndex = 3
End If
Next
Next
End Sub

>>416
関心するほど無駄に長いプログラムだな。
おまけにバグまで仕込んであるし。

バグどこ？

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

A1：出勤時間
A2：退勤時間
A3：拘束時間
A4：実動時間
としたいのですが、休憩時間を自動計算して実動時間を算出したいのです。
4H勤務で休憩1H。
12H勤務で休憩2H。
とするために、素敵な式はないでしょうか？
よろしくお願いたします。

>>419
A3=A2-A1
A4=A3-IF(A2-A1>=4,1)-IF(A2-A1>=12,1)

でも本当はそういう時は
A1：出勤時間
B1：退勤時間
C1：拘束時間
D1：実動時間
みたいに横並びにしといた方があとあと便利だよ。

すまん。時間の計算だってこと忘れてた
A4=A3-IF(A2-A1>=4/24,1/24)-IF(A2-A1>=12/24,1/24)

12時間勤務って許されてるの？

もっと簡単にできる
A4=A3-INT((A3+4/24)*3)/24

>>419
休憩時間の定義がよくわからないんだけど、
拘束が4時間00分〜11時間59分の時に1時間てことでいいの？

%記号を一度書くと、その欄の値をDELキーで消しても、次に値を入力すると勝手に％が
復活してしまいます。これはどうすればいいですか？行や列ごと消すと消えるのですが、、

出勤前に家から
レスありがとうございます。

>>412さん
　それはわかっているんですが、とある業務を自動化することになり（時間の短縮化）
　ＶＢＡでまとめて書くのが一番早い、ということになったのです。
　その作業の前後にも、列挿入、行削除等、タイトル行作成などが入っているのです･･･。

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

>>415さん
　ありがとうございました！
　会社で早速試してみます。　

>>422
36協定読んで恋
>>425
書式設定が勝手に設定されてしまう
ブック全体を選択(CTRL+A)して、書式設定で数値にでもしておけば回避できなくも無い
それか%付きの数値を入れてしまった場合は、元に戻すを使えば書式設定も解除される

>>425
そのセルを右クリック、書式設定で「標準」に戻す
日付や時刻を入れた場合も同様に書式が勝手に変わってしまう

>>406
>>印刷した時に計算式が（数字に）上書き入力されているかどうかを
判別できる様にしたいのです

なぜそうしたいか、を書いた方が
すてきな解決方法があるかもしれません。

はぁ!?

>>119です。
ご返答いただいた皆さま本当にありがとうございます。
昨日質問して、いくつかお答いただいたのですが、間違いがありました。
重複してしまいすみませんが、よろしくお願いします。

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

A1：出勤時間
A2：退勤時間
A3：実動時間
A4：休憩時間

A2-A1-A4=A3としたいのですが、休憩時間を自動計算して実動時間を算出したいのです。
4H勤務で休憩1H。
12H勤務で休憩2H。
(〜3：59勤務は休憩0H・4：00〜11：59勤務は休憩1H・12：00以上の勤務は休憩2H)

こちらの式を作ることはできますか？
よろしくお願いします。

ifで条件わけしてもいいけど
列や行を分けて休憩その1、休憩その2、その3って感じで出して最後に合計するのが早いし分かりやすい

勤続年数を、満で出す関数を教えてください。

今は、=NOW()-A1と入っていますが
1か月未満でも、1か月と表示されてしまいます。
よろしくお願いします。

エクセルを使ってファイナンスを勉強するという本を読んでいるのですが、その中で、
関数の引数を入力させる小さなウィンドウが出てます。これってどうやればでるのでしょうか？
ポップアップは自分の環境（windows Vista,Excel 2007）でも出てます。
どうかよろしくお願いします。

>>433
始日と終了日との日数差を調べて、指定した単位で表示します　　　　topへ
　デイトディフ
=DATEDIF(開始日,終了日,"単位")
　　　　　　開始日と終了日との日数差を調べて、指定した単位で表示します
　　　　”単位”　Y：年数　　Ｍ：月数　　D：日数
　　　　　　　　　YM：年数表示での端数の月数
　　　　　　　　　YD：　　　　　　　　　端数の日数
　　　　　　　　　MD：月数表示での端数の日数
　　　　　(注)単位は「 ” 」(二重引用符）でくくります。
ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/today.htm#datedif
>>434
2003だと
=sum(
まで打ったあとに数式バーの横に「fx」ってのがあるからそれをクリック
2007でもあるかはしらん

>>431
A4=INT((A2-A1+4/24)*3)/24

メールアドレス収集ソフト maget
http://www.geocities.co.jp/katayama_hirofumi_mz/maget/

>>434-435
2007でも一緒だよ。数式バーの左にfxって書いてあるから、そこをクリックするとウィンドウが出る。

>>435
ありがとうございます。
やってみます。

【1 OSの種類 　 　 　 　 .】 WindowXP
【2 Excelのバージョン 　 】 Excel２００７

Aボタンを押して色を変えたいのですが、真っ青がないので「その他の色＞ユーザー設定」を使って作っています。
が、起動するたびに作らなきゃいけません、色の登録はどうやればいいのでしょうか？
できれば「標準の色」に任意の色を追加したいです。

>>440
2003だとツール　オプション　色で変更を選べばいいんだけど2007はどうだろう

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

テストで　http://www2.uploda.org/uporg1565754.xls.html　のデータを作りました
そのデータを違うBOOKから”外部データの取り込み”でデータを引っ張りますと
列の最後のabcabcの部分が取り込めないのです
クエリに追加しているのは"imex=1;"だけです　ほかは編集していません
どうしたらいいですか？

できたけど？？

まじっすか
ぼくのだと　http://www.uploda.org/uporg1565903.jpg.html　ってなるんですが
どこかいじってるところがあるんですか？

もしかして　レジストリの
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel
の　TypeGuessRows　の値をいじってますか？
レジストリをいじるのは端末依存になるので避けたいんです

勘違い。できてなかった。すまぬ。

>>440
まず空のブックを開きます。そして
ページレイアウト→テーマ→配色→新しい配色パターンの作成 で、よく使う色を登録します。
このときアクセント 1〜6のところに自分の使いたい色を入れます。それ以外の色は変更しない方がいいでしょう。
次に、このブックを名前を付けて保存します。この時、

保存先のフォルダ C:\Program Files\Microsoft Office2007\Office12\XLSTART
ファイルの種類　　 Excel テンプレート (*.xltx)
ファイル名　　　　　 book

とします。なお保存先のフォルダ名は環境によって変わる可能性があるので、「Office12」というフォルダ名を
手がかりに検索してみてください。
こうすると、次からExcelを起動した時に、自分で作った色が「テーマの色」の中から一発で選べるようになります。
色の設定を元に戻したいときは、今保存したbook.xltxを消すなり別のフォルダに移動するなりしてください。

もう少し手軽にやるなら、字を青くするマクロを作ってボタン登録しておくという手もあります。

>>442
「外部データの取り込み」では、ExcelのデータをExcelから読み込むような場合でも「データベースエンジン」を
経由して読み込むようになっています。
Excelのワークシートと違って本来のデータベースというのはレコードとフィールドが厳密に決められているため、
1つの列に文字列と数値データを混ぜることが出来ません。

読み込みたいデータが本来のデータベースではなかった場合、データベースエンジンは先頭から一定の行を
読み込んで、列ごとにデータの形を自動判別するようになっています。
そのため、階段状に数値と文字列と空白が混ざったようなデータは正常に取り込むことが出来ないのです。

まずはここを読んで勉強してみてください。
ttp://www.f3.dion.ne.jp/~element/msaccess/AcTipsExcelLinkDataType.html

検索しててこんな質問を見付けたんだが、偶然か？
画像のアップロード先も同じだし…
ttp://www.moug.net/faq/viewtopic.php?t=28020

>>448
そのページは見てたんですけど内容がよくわからなくて。。。
できないってことはわかりました
会社のデータのつくりがこんなもので。。。。。。。

>>449
多分おそらくおんなじ人だよ　本人がゆうんだから　間違いないよ

エクセル2000を使用しています。
わかる方教えてください。

セルを以下のように設定する。

書式→セル→配置→文字の制御の｢折り返して全体表示する｣
書式→セル→配置→文字の配置を中央揃え
セルを縦に結合させて、セル幅を、8.38(初期設定)くらいにする。

このセルに
例えば、｢ABCDEF　　　　　GHIJKL｣と、書き込むと、
表示は、
　　　　　　ABCDEF
　　　　　　GHIJKL　　　となると思います。

これを、スペースで間をあけずに、エンターでセルの中の行換えを
する方法を教えてください。

alt+enter

もう一つ質問です。
セルに、｢0.110｣と記入すると、
表示は、｢0.11｣　になると思います。
小数点以下を、3桁表示にしたいので、｢小数点表示桁上げ｣をクリックすると、
右揃えにしているのに、左に数値が、ずれてしまいます(1/4角くらいずれます)。
初期設定では、このようなことは、起こらないようです。
たぶん、自分で設定してしまっていると思います。
どうしたら良いでしょうか。

>>453
「セルの書式設定／ユーザー定義」が、どうなってるか確認してみな
後はヘルプ見りゃ分るはずだ

>>450
Excelのデータなら普通にそのまま開けばいいじゃん。
なんでクエリを使うのかわからん。

>>455
1000〜、2000〜、・・・、・・・
っていういろんな連番があってそれに対する　お金1、2、3、４
と条件A　B　C　D　E　ってあって
でもってまた別の条件O　P　Q　R　あって
（この条件が123xyzって6種類くらいあって）
ってな感じの条件が組み合わさったものを
DSUM関数でガッツリ雛形を作っておいて計算させてます
このDSUM関数はSUMと違って直にｘｌｓを指定できないので
クエリを使って別のシートにデータ引っ張ってから　DSUMで計算しています

って書いてたらマクロ（VBA）で雛形作ったらいいじゃんって思えてきた

> このDSUM関数はSUMと違って直にｘｌｓを指定できないので
そのxlsも同時に開いていればできると思うけど、それは嫌なのかな

>>456
作業シートを何枚か用意しといて、そこにVBAでワークシートを丸っと読み込むのが早い希ガス。
シートをそのまま読むだけなら数行で書けるし、クエリなんか使うより処理スピードも速い。

つーか、今まではどうやって計算してたのよ。少なくとも5月からずっと悩んでるみたいだけど。
まだ作成中なら考え方を変えた方がいいぞ。

あと、複雑な条件で集計したいんなら、ピボットテーブルを使うか、それで間に合わないときは
ちゃんとしたデータベースを作って、それこそクエリで処理した方があとあと楽だぞ。

>>457
それも考えたんですけれども
複数のxlsを開くとそれだけでテンパっちゃう方がおられるので・・・
やめといたほうがいいと考えました

>>458
いえいえ一応は完成はして便利に使われておりました
（最近この条件xyzも使いたいぞよって上から降って来たもので）

データベースもピボットテーブルもまだまだわからないもので・・・

>>459
手続き指向は条件が増えたりルールが変わったりすると大変だね。
早くピボットテーブル覚えるといいよ。

ピボットテーブルがもうちょっと柔軟にデータや項目数の増減に対応してくれればいいのに。

>>451
Alt+Enter

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

１行ごとに3桁の数字を入力してあります。（例：A列1行=123やA列2行=456など）

その3桁を、百の位 + 十の位 + 一の位にし、
和を表示させ、
オートフィル的なもので自動で数百個処理したいのです。

何か簡単なやり方はないでしょうか？よろしくお願いします。

>>463
B1に
=LEFT(A1,1)+MID(A1,2,1)+MOD(A1,10)
って入れて、Ctrlを押しながらフィルハンドルをダブルクリック

>>464
ありがとうございます。
left関数とright関数があるのを今知ったところで、真ん中はどうしようと悩んでいたところでした。
ありがとうございました。

LEFTとRIGHTしか知らなくてもRIGHT(LEFT(A1,2),1)で真ん中の一文字が取れる

1個だけMODなのがなんか気持ち悪ー

これはひどい

わざとじゃないの
こんな方法もあるよーってことで

こんな方法もあるよーってことならこんなのどうよｗ

=SUMPRODUCT(VALUE(MID(A1,COLUMN(A1:C1),1)))

文字列計算じゃなく数値で計算するなら
=SUM(INT(MOD(A1,10^{3,2,1})/10^{2,1,0}))
Ctrl + Shift + Enter

すまん、Ctrl + Shift + Enterじゃねーな。

OS：XP

エクセルを開いてどこか１つクリックすると
クリックしたところから範囲選択になって
以降、クリックがすべて効かなくなり
閉じることもできなくなるんですが･･･
ＥｓｃもＥｎｔｅｒも効きません

>>473
理由はわからないけどシフトが押しっぱなしになったような状態なんだな
キーボードを抜き差しすれば戻る場合がある
他の対処法は知らないが、俺はなったら諦めて再起動かけてたよ

>>474
再起動で直りました！
ありがとうございます。

夏にはよくあることだよな。
熱で不安定になる。

夏も冬も、PC,WS,鯖等を置いてる部屋の気温は2,3度しか違わない(21〜24℃)

じゃあPC自体は何度なんだよって話

マウスorHDDより
どうやらキーボードがおかしいっぽいです
ワイヤレスだからかな？
電池一回抜いて、戻すと直ります

>>479
新しい電池入れてやれ。
あと、電池入れる場所の内側が茶色や緑に汚れてないかも確認。

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

Sheet1のA1にスイカと入力してあったとして
Sheet2のA1にIF関数でSheet1のA1に入力があったらそのまま
スイカと表示させるようにしてるのですが、

Sheet1のB1に出荷or入荷の項目を作り
出荷ならSheet2のA1にいままで通りスイカと表示させ
入荷ならSheet2のA1は非表示とさせたい場合、どのように式を組めばよいでしょうか？

>>479
シフトを8秒押しっぱなしにした時の機能じゃない？（シフトロック）

>>481
ifのネストだと
=IF(Sheet1!B1="出荷",IF(Sheet1!A1="スイカ","スイカ",""),"")
andを使うと
=IF(AND(Sheet1!B1="出荷",Sheet1!A1="スイカ"),"スイカ","")
他にはシート1のC1にスイカと出荷なら1、と表示させてそれが1ならスイカを表示って手もある

勘違いしてる…

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 してない
データXにYを足して100を超過したら超過した分(U)をデータZから減算するという数式は作れないでしょうか？
IFじゃ作れない気がして困ってます
よろしくお願いします

ありがとうございます。
>>483
ありがとうございます。
"スイカ"の部分は多種あるのですが
その場合はどのようにすればよいでしょうか？

品種改良して種無しスイカ作ればいいじゃない

XYZがA1B1C1として
D1=IF(A1+B1>100,C1-((A1+B1)-100),"")

>>486
質問小出しにすんじゃねーよボケ

>>485
エスパー
U1=IF(X1+Y1>100,X1+Y1-100)
=Z1-U1

>>486
一つ目のifの中身をor

= Z1 - max(X1 + Y1 - 100, 0)

>>488-492
ありがとうございました
なんとかなるもんですね
excelすげぇや

>>486
=IF(AND(Sheet1!B1="出荷",Sheet1!A1<>""),Sheet!A1,"")

はじめてここきました

http://p.pita.st/?wzwxc0s3

この灰色の枠を知らないうちに付けてしまいました。
取る方法を教えて！

初めて見た。なんだこれ？

予測できることはいくつか有るが
この画像だけでは断定出来ないので回答は控えておこう

すいませんおしえてください。仕事でQ&Aを作成しています。

番号　　　　　Q&A　　　　　区分
--------------------------
1 Q：ふぉいｓｇｈ 障害　←「障害」のところだけ、上下セル結合
A：ｂじょふぉぐ　　
--------------------------
2
3

こんな感じで作成しています。
区分の「障害」となっているところは上下のセルが結合されています。
そして、区分にはオートフィルタが適用されています。
「障害」となっているところはセルが結合されているので、普通に文字列を記入したのでは、
内部的に上のセルにしか文字列が記述されていません。
オートフィルタを使用したときに、Qしか出なくなってしまいます。

どこかに「障害」と2行分作っておいて、それをコピー
そして結合セルに数式だけ貼り付けた場合、オートフィルタを使用してもQとA両方でてきます。
数式をコピーしてますが、特に数式というわけでなく、内部的に文字列が1行分か2行分かの違いだけだと思ってますが、
それで正しいでしょうか？
また、毎回手作業で、数式だけコピー&ペーストが必要になるので、
もっと効率よく出来る方法があれば教えていただきたいと思います。

>>498です。
ちょっと、表がくずれてますが、
番号の列には数字

Q&Aの列にはQ：
A：

区分の列には障害←ここは上下セル結合
となってます。

>>498
QとAを二列にすれば解決

>>500
うーん確かにQとAの列を別にすれば、区分の列は結合いらなくなるんで
問題なくなるのですが、どうにも見栄えが・・・

>>498
障害と入れた後、下のセルに移動してCTRL+D
これは一つ上のセルをコピーしてくれる

じゃなきゃ
1行目が見出し、2・3行目に一つ目の質問、4・5行目に二つ目・・と続いてるとすると
c2に
=IF(AND(MOD(ROW(),2)<>0,C1="障害"),"障害","")
と入れて下にオートフィル
そうすれば偶数行に障害と入れるだけで奇数行にも出てくる

でもこの二つより>>500の方が理想
書式設定で折り返しでもなんでもすればいいと思う

すみません、エクセルでエラーが出たときにシートに「１」と表示させ
それを感知して動画を再生させたいのですが
=if(a1=1,動画再生関数,"")
動画を再生できるような関数はありませんか？

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可･否
【5 検索キーワード 　 　 】 動画　再生　エクセル
すみませんこれ忘れました。

エクセルで空を自由に飛びたいな

ハイパーリンク関数
それか゜無理ならもうわかんねーす

>>503
VBAじゃなきゃ無理じゃない？

>>504
ここ参照
ttp://209.85.175.104/search?q=cache:GIR5ZA3DWYYJ:blogs.wankuma.com/ch3cooh/archive/2008/04/04/131535.aspx

しょうがないなぁ、のび太くんは

ぴぼーっと てぇーぶーるーー

プリントの時にファイル名も一緒に
どこかに自動で打ち出すことはできますか？

>>506-508
ハイパーリンク関数、一回つかってみます。とはいえ
ＶＢＡじゃないとやっぱ無理なんだろうなあと・・・はぁ。ありがとうございました。

【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ActiveCell FormulaR1C1
結構大きなワークシートを作ったのですが、その中である１個のセル(以下Aとします)をX軸にして、ワークシートのほかのところの
セル(以下Bとします)の値をY軸にしてグラフを作成したいと思ってます。そこで、引数を１つとる関数を作成して、引数の値をAに入れて
Bの結果を返すというものをつくりたいと思ったのですが、以下のようにコーディングしても、結果は#VALUEとかになってしまいます。
どうすればよいですか？どうかよろしくお願いします。
Function func1(rate)
Range("B13").Select 'セルA = B13
ActiveCell.FormulaR1C1 = rate 'ここで引数をセルAに代入して
Range("L15").Select 'セルB = L15
func1 = ActiveCell.FormulaR1C1 'ここでセルBの値を返しているつもり
End Function

上の質問をした者です。読み返してみて分かりづらい内容だと思ったので、、、
VBの関数で、引数を１つ受け取って、それをあるセルに代入して、それによってほかのいくつかのセルの値が変化するので、
その中の１個のセルの値を返す、という関数はどうやれば作れますか？
上の例だと、B13に引数を入れて、L15の値を返す、という関数です。
何度もすみません。

ここは日本語でコミュニケーション出来ない方お断りです

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel 偶数日 日付　フィルタ vba　etc

A２〜A10セルにyyyy/m/d表記（書式設定を見たわけではない）の日付が入力されていて、
B２〜B10セルに偶数日か奇数日かを判断する為の数値（０か１）を入力しようと思います。
（後でフィルタを実行するため）

sub test()
dim r as integer
for r=2 to 10
　cell(r,2)=format(cell(r,1),"d") mod 2
next
end sub

で上手く動いたように見えますが、「format(cell(r,1),"d") mod 2」で大丈夫でしょうか？
除算時の小数点がどうこうという記述（よく理解できない）もあったので、いまいち自信が持てません。

>>510
ヘッダまたはフッタに&[ファイル名]

>>515
計算としては間違ってないけど、
カウンタ変数はInteger型ではなくLong型の方が良い(Integerで足りる範囲でも)
あとcellではなくcellsだ
ついでにデフォルトプロパティは省略しない方が良い cells(r,1).value cells(r,2).value
最後にformatよりdayの方がスマートかも day(cells(r, 1).value) mod 2

以上

>>512
Functionの中から別のセルの中身を書き換えることはできない。
なんでかというと、その関数を1つのシートの中で2回以上使うとセルを書き換える処理が衝突するから。
だからエラーを出すようになっている。
1回しか使わないつもりなら、普通に数式を書け。

>>515
VBA使わなくてもB2セルに=MOD(DAY(A2),2)って入れるだけで同じことができるよ

>>517
カウンタはlongの方がいいんですか、知りませんでした。
cellsは間違えちゃいました。
他の二点に付いてもありがとうございました。

>>519
そうなんですが、他の処理との兼ね合いでVBAの方が都合が良かったんです。
はしょっちゃってすみません。

>>518
ありがとうございます。でも、別のセルに値を代入しないと計算が始まらないんです。
B13というセルに値を入力すると、結構沢山のセルの数値が変更されて
その最終結果がL15のセルに出てくるのですが、このB13に色々な値を入れて、それぞれのL15の
値とでグラフにしたいと思ってます。
P1〜P200にB13に代入したい値の列があるのですが、それぞれの場合の結果をQ1-Q200に入れたいです。
シナリオを使おうかとも思ったのですが、変更するのは値１個だけなので、適当じゃないかと。
手動でやってみましたが、50分くらいかかりそうなので、やめました。
どうかいい方法があったら教えてください。お願いします。

>>521
P1をB13に入れて計算結果(L15？)をQ1に入れる
P2をB13に入れて計算結果をQ2に入れる
P2をB13に入れて計算結果をQ3に入れる

みたいな作業を繰り返したいってこと？
だとしたら、本来ならQ列に=func1(P1)みたいに書けるように関数を作っとくもんだけど、
それができないならVBAでループさせるしかないと思う。

>>521
こんな感じ

Sub Macro1()
　For r = 1 To 200
　　Range("B13").Value = Range("P" & r).Value
　　Calculate
　　Range("Q" & r).Value = Range("L15").Value
　Next
End Sub

すみません初歩的な質問かもしれませんが、助けてください。

Excel2007（SP1)で、数字のセルを指定して
通貨表示に変更しても全く変化がありません。
どういった原因が考えられるでしょうか？？

Excel2003以前ならこういうことはなかったのですが・・・。

524です。
すみません、自己解決しました。
数列の前に半角スペースが入っていました。
Webからのコピペで勝手に入ったみたいです。失礼しました。

2000には数式バーに＝があって、押すと数式の計算結果が表示されたんだけど
2003には＝がないんです。どうすれば計算結果が得られますか？

【1 OSの種類 　 　 　 　 .】 WindowsXPPro
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel VBA オートシェイプ 速度

大量のオートシェイプを素早く描く方法について質問です。
（当然ですが、Application.ScreenUpdating=Falseを指定しています）

VBAを用いて、同一のオートシェイプを大量に描くプロシージャを作成しています。
１、Activesheet.Shapes.AddShapeメソッドを使用して追加する。
２、最初に１つAddShapeメソッドを使用して作成したあと、Shape.Dupplicateメソッドを
　　使用して複製し、位置などを変更する
という２つの方法を試しました。
ところが、どうやら同一シート（orブック？）上に存在するオートシェイプの数に比例して
AddShapeメソッド及びDupplicateメソッドが重くなっていくように思われます。

（続く）

>>526
これ試してみ
ttp://www.relief.jp/itnote/archives/000595.php

（続き）

具体的には、オートシェイプが一切ないシートに１０００個追加するときにＮ秒かかったと
しますと、
既に１０００個のオートシェイプが存在するシートに１０００個追加するとき：２Ｎ秒
既に５０００個のオートシェイプが存在するシートに１０００個追加するとき：５Ｎ秒
の時間がかかっているように見えます。
その影響で、大量のオートシェイプを描画しようとしたとき、描こうとするオートシェイプの
量の２乗に比例して処理時間が増えていってしまうようです。

動作が遅くなる原因は、新たなオートシェイプを追加する際、Shapesコレクションの末尾
（次のオートシェイプを追加する場所）を検索するために、Shapesコレクションを先頭から
シーケンシャルに検索しているのではないか？と思い、
１、Application.Shapesに対してWithステートメントを使用する
２、Application.Shapesをオブジェクト変数に代入してアクセスする
なども試してみましたが、時間計算量のオーダーを減らすことが出来ませんでした。

描画量が多くなるにつれて実行時間がかかるのは当然であるため、やむを得ないと
考えているのですが、何とか時間計算量をO(n^2)からO(n)に落とせないものかと悩んでおります。

どなたか解決法or解決案などありましたら、よろしくお願いします。

>>529
まず>>134にある、余分な処理を止めて高速化するコードを追加してみ。
オートシェイプの追加は、先にオブジェクトだけ配列で作っておいて、
あとからプロパティをいじるようにしてみたらどうかな。

メモリ上で作成して一気に貼れ
O(n)になる上にO自体も小さくなる

>>529
この場合withは人間がプログラムを書く手間を減らすためのもので、実際の処理が減るわけじゃないから。

>>528
すばやいお返事ありがとう。
ｻｲﾄ見たんだけど、やりたいことがちょっと違うみたい。


要はセルに式を残しておきたいんです。たとえば 6*3
で、その計算結果18を手間をかけないで知りたいんですけど。

>>533
それだと古いExcelを使い続けるしかないね。
今のバージョンだと多少なりとも手間をかけないと同じことは出来ない。

素早い回答ありがとうございます。

>>530
>>134のコードを追加してみましたが、速度は殆ど変化しませんでした。
（ピボットテーブルや計算式等はシート内で使用していません。）

>>532
そうなのですか…
withステートメントを使用したほうが、実行時に毎回親オブジェクトから
メンバを辿り直さずに済むから（少しだけ）高速になる、と思っていました…

>>531
なるほど…。確かにそれが出来ればO(n)で素早く出来そうです。
自分はＣ言語の知識は十分あるため、メモリ＆ポインタについての知識は
あるつもりなのですが、VBAでどのようなＡＰＩ・関数を使えばよいのか
についてがよくわかりません…
「VBA　メモリ 操作」辺りのキーワードで検索してみましたが、Win32APIの
関数を使うのかな？くらいしかよく分かりませんでした。
大変恐縮ですが、もしよろしければＶＢＡで直接メモリ操作を行う上で
参考になる資料等をお教え願えませんでしょうか？

また、作成したメモリデータを「貼る」上で、「どこに」「どうやって」貼れば
よいか、ということも合わせてご教授願えれば幸いです。
（MSDN見るしかない…とかでしょうか…？）

すみません、質問させて下さい。

ABC.xls（Excel2000）というファイルでピボットテーブルを作成しようと思い
ウィザードに従って進めていくと
範囲指定後に下記の
"ピボットテーブルの集計元ファイル'ABC.xls'を開くことができません。"
というメッセージが出てしまいます。
原因などご教示いただければと思います。
よろしくお願いします。

質問の趣旨が違いますが　

表計算ソフトの将来的な可能性についてどう思いますか？

>>536
指定した範囲のどこかに、ABC.xlsというファイル名の書いてあるセルがある、
テーブルの一部を範囲指定して名前が付けてある、
ピボットテーブルを作ってからABC.xlsを別のフォルダにコピーや移動する、
などの操作でそのエラーが出る場合がある。

>>537
携帯電話がどんどん便利になっているので、デスクを占領するような大きなパソコンは
いずれ家庭内からは姿を消すだろうという予測があります。
オフィスやマニアだけの物になるわけです。
そうなると、一般人や素人には縁のない物になるため、実務に無関係な「親切すぎる機能」
「見栄えの良い外観」などは開発コストもかかるので、真っ先に削られていくんじゃないでしょうか。

もう少し近い将来の展望を書くと、ブラウザと完全に統合されてシームレスに使えるようになるでしょう。

>538
教えたいただいた内容に該当する点がありませんでしたため
該当するワークシートを新規ブックにコピーしてみたところ
全く問題なく作業が出来ました。
何かすっきりしないのですが、とりあえずこのまま進めてみます。
ありがとうございました。

>>539
お答えいただきありがとうございます。

興味b買い考えでした

>>539
真逆の予測もあるね
この先携帯電話の機能がどんどん削られてコストも安く料金も安い携帯電話にってーの
表計算ソフトは2007で一度スリム化を目指すべきだったと思うんだがねぇ

よく外国人の名前を打ち込むので「・」をよく使うのですが、
ふとした拍子に「・」が打てなくなります。
打とうとしても「/」になってしまいます。
再起動すると直るのですが、原因がよく分かりません。
誰か教えてください。

半角/全角キーを押す

エクセルをとてもよく使う仕事をしています。
液晶モニタを24インチワイドWUXGAに買い換えたいのですが、
表示範囲が広がってもパネルはTNでも堪えられますか？
端っこの色が歪んだりすると使いにくそうなのは想像できるものの
VAパネルのモニタは高い、、、、、
ご利用の方のいたら使用感など教えてください

>>543
英数キーを押す
カタカナひらがなキーを押す

マシンによって違うので色々押してみる

>>545
慣れだね
色が変でも画面は広い方が使いやすいのは間違いない

>>545
目が疲れにくい・目に優しい液晶ﾓﾆﾀ Part34
ttp://pc11.2ch.net/test/read.cgi/hard/1216647317/
おすすめ

みなさん、こんな経験したことありますか？何が原因か
分かる人いますか？

エクセル作成の一つのファイルを電子メールで受け取って開いたんですけど、
５０シートのうち、３シート以外は、空白になってたんです

マイクロソフトに聞いても「聞いたことがない」って言うんです

>>549
送信前の元ファイルと受信後のファイルサイズを教えてください。
圧縮しましたか？したならその形式を教えてください。

>>549
やろうとすればいくらでも出来るけど？

>>549
そのファイルをアップロードしてほしい

>550

圧縮していないんです。ファイルは一つです。データはテキスト（１０５ｋｂ）
です。A4程度の大きさのものが、５０枚（Sheet）あるという感じです。

送信元では異常は無かったんです。受け取って開いたら、
４〜５０Sheetはまったくの空です。

送り返したら、送信元でも異常が確認されたそうです。

こんなとこでぐだぐだする前に圧縮して送信するとか、どっかのサイトにFTPでうｐするとか
すればいいのに

＞送信元では異常は無かったんです。

それは送信済メールに添付されたファイルを
あなたが開いて確認したのですか？

＞５５５

送信元の人が、自分が送信したファイルを開いて確認したのです。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード
どなたか教えて下さい。
あるセルの値を変えるとある表を参照し、それに連動して数値が変わるようにする関数を教えてください。
vlookupに似た感じだと思うんですが。

あるセルの1を2に変えると、10が20に　30を50にしたい。
　名前、重さ、値段
1、酒、10、30
2、塩、20　50
3、酢、30　100

=if(a1=2,20,10)
こんな事をする意味がわからん。

なぜそうしたいのか言えば違う答えが出るかもな

vlookupでいいじゃん。だめな理由を書け

酒は重さ２０、値段５０になるけど
酢は重さ５０、値段は１００のままでいいの？

なにをしたいのだろう？？

みなさん返答ありがとうごさいます。
*1の値を2に変えると他が下のように変わるようにしたいのです。
表1
番号、名前、重さ、値段
　1　　　酒　　　10、　　30
　2　　　塩　　　20　　　50
　3　　　酢　　　30　　100
------------------
番号　*1　名前　酒

重さ　10

値段30
-----------
番号　2　名前　塩

重さ　20

値段50

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

日付 可否
2006/8/1 ○
2007/5/2 ×
2007/6/15 ○
2008/3/18 ×
2008/8/22 ○

上記のような表で下記のような条件を満たす行数を求めたいです。
2006/6/1〜2006/12/31の間で可否が「○」の行
2007/1/1〜2007/5/31の間で可否「○」の行

表の日数は飛び飛びで、かなりの行にわたっています。
また、条件となる日数範囲は半年おきという規則性があります。
dcountaで条件表を大量に作る方法しか思いつかなかった
のですが、他に良い方法あるでしょうか？

作業列をつくって条件を満たせば１、そうでなければ０を返す式をつくる

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

Ｃ列にあらかじめ検索でVLOOK関数が入っております。
別の列に入力すると代入されるのですが、デフォルトでは＃Ｎ／Ａとなっております、この#N/Aの個数を最終的にチェックできる事をしたいのですが・・・
業務で使用してるんですが入力漏れがあってすごい怒られてます・・・

多いときには6000行とか超えてしまうんでマウスホイールで目視チェックしてるんですが歯抜けみたいに#N/Aがあると実際漏れてしまいます。
せめて個数をカウントできればなと・・・
※入力業務で使用している為　行数は日々変動しています。
COUNTIF(C1:C5,#N/A)　見たいな感じでいけるかな・・と思ったんですが行数が固定じゃなくて・・・

ISNA テストの対象がエラー値 #N/A (使用する値がない) を参照するとき TRUE を返します。

>>563
ありがとうございます。
ifとandを使って各行の判別をするところまではわかるのですが、
それを条件である年月日範囲別にカウントする方法がわかりません・・・。

>>561
=VLOOKUP(*1のセル番号,表の範囲,列番号（名前なら2,重さなら3),FALSE)
番号が1からの連番で歯抜けがなく、行数に変更がないなら事前に
表の範囲を選択してから、Aｌｔ I N C （挿入→名前→名前の作成）で、
上端行 を選択して、各列に名前を設定してから、
=index(名前,*1のセル番号,1)
でもOK

>>566
作業列１列でやろうと思ってるの？条件ごとに複数の列に分ければいいじゃない

つまり　C1に範囲の開始日、D1に範囲の終了日があるとして
C2=IF(A2>=C$1,1,0) 以下下へコピー
D2=IF(A2<=D$1,1,0)　以下下へコピー
E2=IF(C2+D2+(B2="○")=3,1,0)　以下下へコピー

E列の合計が求める値になるはず。C〜E列は1列にまとめることも可能

>>562
=SUMPRODUCT((日付範囲>=DATEVALUE(開始日))*(日付範囲<=DATEVALUE(終了日))*(○×範囲="○"))
でできますが、
作業列に
=if(○×セル<>"○","",YEAR(日付)&IF(MONTH(日付)<=6,"上期","下期"))
としといてcountifでもOK
○×チェックはせずにピボットテーブル使ったほうがいい場合もあります。

=COUNTIF(INDIRECT("C1:C"&COUNTA(C:C)),#N/A)
あるいは
=COUNTIF(OFFSET(C1,0,0,COUNTA(C:C),1),#N/A)
で可変範囲対応

でも条件見る限り、オートフィルタかけたほうがよさそう

>>567
ありがとうございます。
うまくいきました。

間違えた、開始日とかはシリアル値になってると思われるので、Datevalueは不要だ

=SUMPRODUCT((日付範囲>=開始日)*(日付範囲<=終了日)*(○×範囲="○"))

四則演算では
 TRUE は １ として
 FALSEは 0 として
計算されるということを理解していると
意外と応用が効きます。

>>572
お役に立てて何より

余力があるなら、
INDEX関数とMATCH関数も覚えておくことをお勧めします。
この2つの組み合わせで、汎用性の高いVLOOKUPみたいな働きができます。

>>571
たぶん私への回答と思います。
ためさせてもらいましたが、完璧でした。

エクセルの神様　遅くなりましたがありがとうございました

>>569
ありがとうございます。条件範囲ごとに列を作る必要があるのですね。
E2=IF(C2+D2+(B2="○")=3,1,0)の(B2="○")の使い方は初めて知りました。
これはdcountaよりもわかりやすく良さそうです。

>>570
ありがとうございます。
sumproductはこんな風に使えるとは知りませんでした。
すごいスマートで気に入りました。

どちらも思いつかなかった上に、どちらもdcountaよりも管理面で
便利そうなので大変参考になりました！

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


以下のようなデータを処理したいのですが、excel初心者のため、何から手をつければよいのかわかりません。
宜しくお願い致します。

ID 使用物質 使用量 その他 日時
1 A 100ml **** 2000/01/01
1 B 50ml **** 2000/01/01
1 C 50ml **** 2000/01/01
2 A 50ml **** 2000/01/01
2 B 50ml **** 2000/01/01
2 D 50ml **** 2000/01/01
2 E 50ml **** 2000/01/01
3 B 50ml **** 2000/01/01
3 C 50ml **** 2000/01/01
3 D 50ml **** 2000/01/01
4 A 50ml **** 2000/01/02


のような一年分のデータがあります。

使用物質の組み合わせは4種類程度
ABC,ABDE,BCD,ABCE等。

これから
2000年1月 ABC ○件
ABDE ○件
BCD ○件
ABCE ○件


2000年2月 ABC ○件
ABDE ○件
BCD ○件
ABCE ○件

っていうデータをつくりたいのですが、色々調べてみてもこのような表記の元データから
上のようなデータに変換しているページがみつかりません。
ご教授宜しくお願いします。

>>576
570みたいなくそ重い式なんか使わない方がいい。
すでに出てるがピボットか作業列を使うべき。

>>577
件数の数え方が不明だから無理

>>577
作業列に年月だけ抽出する式をいれてピボットテーブル

>>580
件数の数え方はID　1種類につき1件です。

>>581
ちょっとｸﾞｸﾞってやってみます。

お二人ともご親切にありがとうございます。

>>582
件数だけでいいの？

>>583
件数だけでOKです。

>>582さんに教えていただいたピボットテーブル、検索してやってみました。

ここで問題点が2つ。

元データの使用量のセルに 0も表記されているため、それを1と数えてしまうこと。
元データの使用物質名に表記ゆれがあり、別の物質とみなされてしまうこと。

の2点です。後者は同じAという物質にも拘らず、入力者によってAだったり、A"だったりａだったりするということです。

表記ゆれは手作業ででも統一するしかないよ。他にどうしようもない。
ピボットを使う場合、件数はIDの数を数えることになる。使用量は関係ない。
なのでIDが２のABDEが１組あるとID２の個数は4件と表示される。

表記ゆれは関数で解決できる

>>585
データ数が軽く10000を超えているので、手作業は無理っぽいです。orz...
ピボットは使えないということでしょうか。
使用物質の種類は5種類程度、組み合わせも5種類程度。
今回はその5種類の組み合わせがそれぞれ何件あるか、というデータを月ごとに出したいのです。



>>586
関数ですか・・・。それもちょっとｸﾞｸﾞって見ますが、参考になるページなどあれば、教えていただけると幸いです。

>>587
B2に大文字小文字・半角全角どれが入ってても半角大文字
=ASC(UPPER(B2))

件数数えるだけなら、さっきも書いたとおりIDの数を数えるだけなので表記ゆれは無関係

>>577
をエクセルに放り込んだあと
F2に=ASC(UPPER(B2))
G2に=IF($A2=$A3,$G1&$F2,"")
H2に=IF($A2<>$A3,$G1&$B2,"")
これでH列に出来た物質(？)を表示できる
後はﾋﾟﾎﾞｯﾄで個数で集計すればok

G列にタイトルをつけた場合は
=IF(ROW()=2,B2,IF($A2=$A3,$G1&$F2,""))
か

>>588
実際のデータは大文字、小文字だけでなく、カタカナだったり、物質名＃％＊（のように物質名のあとに変な記号が
ついているものもあったりで様々なのです。
>>590
出来た物質、というか使った物質の組み合わせなので
それだと、同じ組み合わせでも

物質1 ブッシツ2 ﾌﾞｯｼﾂ3
ﾌﾞｯｼﾂ1 bussitu2 物質＾＃（＄3

のようになってしまうので、ここから個数を出すのは難しくなってしまわないでしょうか。

>>592
表記ゆれは半角全角、大文字小文字までしか対応できない。そこまで来ると無理
直すつもりならID/物質名のテーブルを作って、IDからVLOOKUPなどで拾うのが確実

>>592
そういう曖昧な判断はコンピュータの最も苦手とするところです

つまり今の表はデータベースとしては使い物にならないということなので、
元データの表記統一を先にやるしかないよ

作業列に
=SUBSTITUTE(ASC(UPPER(B2))," ","")
としておいて、その結果の名前を対象に置換（bussitu→物質　とか）した後
並び替えやオートフィルタをかけて処理したら多少は楽かな

>>594
そうですよね・・・。
質問しながら色々見ているうちに、余りに酷いデータに困惑し、
こつこつ表記ゆれを直しておりました。
オートフィルでなんとかなりそうです。ってこの杜撰なデータは何なんだ。

また表記訂正できたら質問させて戴くと思います。そのときはまたよろしくお願い致します。

【1 OSの種類 　 　 　 　 .】 Mac OS X 10.3.9
【2 Excelのバージョン 　 】 Excel2004
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 microsoft excel xlsx 変換
Excelでxlsxのファイルを開きたいのですが、OSが古くて、開けないらしいので、変換をしたいのですがどのようにしたら良いでしょうか。
ファイルは、
http://www1.axfc.net/uploader/File/so/9222
にあります。

エクセルで回帰分析を行おうとしたら
空白のセルがいくつかあるためか
回帰分析入力範囲に数値以外のデータがあります
とエラーが表示されます。
どうしたらよいのでしょうか？

削除するか0にすれば？

削除または０にするにはどうしたら良いのでしょうか？

膨大な数のデータから空白のセルだけを見つけ出し
その値を０にする方法を教えてください

置換

>>596
ttp://www.microsoft.com/downloads/details.aspx?FamilyId=941B3470-3AE9-4AEE-8F43-C6BB74CD1466&displaylang=ja

それMacじゃ使えないから

そうか、スマン
じゃあこれか？
ttp://www.microsoft.com/downloads/details.aspx?FamilyID=6b9238e1-cf69-48c4-bf2d-c4a8aceee520&DisplayLang=ja
とりあえず左にMAC用何とかってあるので自分で探した方が早いかも

>>604
どうも。今ダウンロードしてます。

マクロを含んでいますっていう警告を無効にしたいのですがやり方を教えてください

セキュリティを低に

ありがとうございました

低はお勧めしないが…

>>577です。表記ゆれを何とか直し、ピボットテーブルで
>>577のデータから

　　使用物質 A B C D E
ID
1 　　　　　　　1　1　1　
2　　　　　　　 1　1 1 1
3 　　　　　　　　 1　　　　1 1
4 1


のような表をつくりました。

ここから1 ABC
2 ABDE
3 BDE
4 A

のような表示をさせたいのですが、関数が全く分かりません。
=IF($C3>0,"A"$D3>0,"B",…）
(もしC3セルが1だったらA,空欄なら何も出力せず、かつ、 D3セルが1だったらB、空欄なら何も出力せず、E3セルが・・・
のようなことをしたいのですが、どうも違うようです。
ｸﾞｸﾞってみても、関数一覧からどれをみればいいのかさっぱりなのです・・・。

>>610
表記ゆれ修正お疲れさん
とりあえず、
使用物質AがC列
ID１が行3とすると

=IF(C3=1,"A","")&IF(D3=1,"B","")&IF(E3=1,"C","")&IF(F3=1,"D","")&IF(G3=1,"E","")
=IF(C3,"A","")&IF(D3,"B","")&IF(E3,"C","")&IF(F3,"D","")&IF(G3,"E","")
=REPT("A",C3)&REPT("B",D3)&REPT("C",E3)&REPT("D",F3)&REPT("E",G3)

以上3つのうちどれかでOKです

ヘッダーや印刷タイトルの機能を
選択ページにのみ適用するというような方法は無いですか？
通常は全てのページに適用されると思うんですが、
それを、このページには必要ないというようにページを選択指定する方法を探しています。
色々探したんですけど、見つかりません。無理なんでしょうか。

VBA使うしかないな

>>612
素直にシートを分けるのが吉と思われ

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

1234　というデータがあったとして

4213
1324
1432
1243
のように同じじゃない配列を自動でする方法は
あるのでしょうか？

>>615
ない
関数を組み合わせて工夫するかVBAが必要

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

例えば、セルA1に5って数値が入ってるとして、
セルB1に、C列でA1の中の数値の行を見たい場合はどうしたらよいでしょう？

A1→5
B1→参照するのはC"5"　表示されるのは10
C5→10

こんな感じです。是非ご教授願います

>>617
=OFFSET(C1,A1-1,0)
=INDIRECT("C"&A1)
=INDEX(C:C,A1)

どれでも好きなのをB1に入れろ

有難うございます！

>>613-614
遅くなりました。
やはり無理ですか・・・
ありがとうございます。

2003使用です。
携帯の最適プラン分析用で、繰越しの計算をできるだけ簡単にやりたいです。
マクロ等使わずに。
2か月繰越しを反映させたい。
どんな関数を使えばよいか・・・
基本料
通話料
パケット代
各プランの無料通話
を出しつつ繰越を計算に含めたいです。

>>621
四則演算
関数なんていらん。

>>611
ありがとうございます。今日は仕事が今終わったので、試すのは無理そうですが、明日くらいにやってみます。

ご丁寧な返答に感謝致します。

>>621
a1に1月目の使用料金、a2に2ヶ月目・・
b列に基本料金
c・d・e列に無料通話分と繰越、if関数で分岐させれば良い
夕方まで分からなかったら作ってやるよ

【1 OSの種類 　 　 　 　 .】 Windowsvista
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】グラフ上　要素名　表示　excel　直接

　　　　要素１　　要素２
太郎　　５０　　　６０
次郎　　４０　　　７０
〜
つば九郎　　７０　　　９０

要素１、要素２で散布図を作成したのですが、
グラフ上の各点に要素名（太郎、次郎等）を直接表示することはできませんか？
系列名や要素の値を仮に表示させて要素名をそこに放り込んでいくしかないのでしょうか？

チェックボックスのフォントや
チェックボックス自体のサイズを大きくできないのでしょうか？
□check

途中で送信してしまいました。。
□CheckBox ←　これの□とテキスト部分を大きくしたいという意味です。

>>626
まず、Altを押しながらチェックボックスの位置を決める。
次に右クリック→コントロールの書式設定で「セルに合わせて移動やサイズ変更をする」
で、セルの幅と高さを変えるとチェックボックスの大きさも変わる。

大きさを変えたら「セルに合わせて移動やサイズ変更をしない」にして
ドラッグすれば好きなところに配置できる。

【1 OSの種類 　 　 　 　 .】 WindowＸＰ
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】表　関数　範囲　取り出す　一覧

すみません、御願いします。
説明が下手なのでワークブックをＵＰしました。
http://www.csync.net/service/file/view.cgi?id=1218000554
シート1のセル：Ｃ２に入力された値に対して
シート２の表をとりだしたいのですが、どのような処理をしたら良いでしょうか？
表に名前等を付けたりしてＶＬＯＯＫＵＰを使用したりしたのですが、
うまくいきませんでした。ご教授を御願い致します。

>>629
Sheet1!B4 = INDEX(Sheet2!B:B,MATCH($C$2,Sheet2!$A:$A,0)+$A4-1)
右と下にフィルコピー

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

質問です。
１列目、２列目にデータが数百個ずらーっとデータが並んでいたとします。
一セルには　「リンゴ 1個　200円　良」このまま、複数のデータがスペース挟みで入っています。
たとえばA1「リンゴ 1個　200円　良」　b1「リンゴ 0個　100円　良」とエータがあったとしたら
これを比較し、c1には変更箇所「1→0 200→100」d1には「リンゴ 0個　100円　良」と
このように出力がしたいです。

それぞれの行を比較して、変更のある行を抽出して、その隣に変更のあった箇所、変更されたデータすべてをコピー
するようなことです。
つまり、変更があった箇所をわかりやすいように表示し、変更があった項目を抽出したいです

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

>>631
仮定の話なら、まずは1つのセルに複数のデータを入れるのをやめなさい。
考えを改めたら相談に乗りますよ。

A列に全ての名簿があって、B列にはその中から今回不要な名簿が並んでます
A列のデータからB列にあるデータを引いて
必要なデータだけの名簿を出したいのですがどうやればいいでしょうか？

>>633
全名簿と不要名簿を１列に並べてピボットテーブルで名簿の件数を集計する。
同じ人が２件いたら削除。

>>633
A列の各データをVLOOKUPでB列から検索したあとオートフィルタで空白セルを除外

excel2003です。一つのセルに文字を多く入力して
そのセルを入力フォーカスすると、文字でセルの右下が隠れて
フィルハンドルが出せないんですがこの場合どうしたら出せるんでしょう。

メニューバーの編集→フィル

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

エクセルのワークシートに貼り付けられている画像データを、
JPEG形式で抽出する方法で、簡単な方法はないでしょうか？

今行っているのは、以下の方法です。
１．.[Ctrl]+[C]キーでデータコピー
２．ペイントを起動して、[Ctrl]+[V]で貼りつけ
３．JPEG形式で保存

取引先から画像データをもらう業務があるのですが、その時にエクセルファイルに貼り付けている人がいます。
そのとき、いちいち上記の作業を行うのが手間です。（数が多いので。）
マクロを組んででも手間が省けないかと思いまして･･･。

>>638
VBAでやれないことは無いと思うけど
クリップボード管理ソフトを
探してみるといいかも

検索するとき、特定の文字列や数字を除外したいんですがどうやればいいですか？

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

作成したデータを他の人に渡したりする時などに
ワークシート全体を書式と値だけ丸々と別のシートにコピーする簡単な方法ないですか？

>>641
ctrl+aの後、形式を選択して貼り付けで書式のみ

縦書きで読点をうつと左側に寄せられ不自然になります。
読点を右寄せする方法はないですか？

>>638
1シートに多くのファイルが貼られてるなら、
HTML形式で保存すると、写真が1枚ずつ別ファイルとして、保存されます。

Excelで縦書き読点・・・・・・・・・・さすが夏休みw

>>639
アドバイスありがとうございます。ちょっと探してみますね。
何かあるといいんですが・・・。

>>644
これは盲点でした。ちょっと試してみます。
ありがとうございます。

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

For Each C In ActiveSheet.UsedRange.Cells
〜
next　c

ですべてのセルを対象とし、

セルに「aaa」があった場合そこから下に検索し、「bbb」という値がある場合、
aaaの入っている　A4　から　bbbの入っている　A10までを削除し、上方向にシフトする方法はをおしえてください。

A列のみにデータはあります。

fornextでrangeに変数を組み合わせるのが早い
具体的に言うとA1.valueがaaaか否か、A2がaaaか否か・・って感じで
後の削除何タラはマクロの記録で

>>645
サンクス　Excelの設定では無理なのか
大した量じゃないし別のソフトで処理してみる

webページからexcelにコピペしたら、茶色い巻物と、緑色のJが描かれている小さなアイコンのようなものがくっついているのですが、
これはなんですか？
取り除くにはどうすればいいですか？

>>643
ならないけど？
でもフォントによってはなるかも

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

初歩的なことかもしれませんが
ＶＢＡで集計処理をして、シートのみを別名で保存したいのですが、
どうしたらいいでしょうか、
基ブックにシート３ページうちグラフ、ＶＢＡが入っており、
その内のグラフの入った１ページを別の名称として保存したいと思っています。

新規ブックを追加し、保存対象のページを全体コピペしましたが、
グラフに対して、基ブックとの自動リンクが張られてしまい失敗しました。

>>653
ブックごとコピーして他のシートを削除とか
数が多いと面倒だけど

Sub yattemiyo1()

Range("B6:B8").MergeCells = True
Range("B6").Borders (xlDiagonalUp)

End Sub

B6からB8を結合して斜線を引きたい場合
上のコードが間違ってるのはなぜなんでしょうか？

    With Selection.Borders(xlDiagonalUp)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With

.LineStyle とかの指定が無いから。

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

こういう2つの列があったとします。
A列　B列
-------------
あ　　い
い　　え
う　　お
お

これをA列,B列それぞれ空行を挿入してそろえたいのです。

A列　B列
-------------
あ　　
い　　い
う　　
　　　え
お　　お

こんなことは出来るでしょうか？

できます。難しいです。

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

自作のマクロが使えない状態になり
編集も削除も出来ません。
セキュリティレベルを下げても駄目。
メッセージに出る「デジタル署名」を取得する方法も分かりません。

>>659

2003は使ったこと無いからわからないですけど、
共有モードにしたとかはないですか

ちょっと情報がすくないかと思うのですが

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マクロ　VBA　文字　読み取り
x行目のCxの全角文字列を判別して指定する複数の文字列を一つも含んでいなかった場合にFxへ数字を入れ次の行へ
それをシートの最後まで自動で実行することはできますでしょうか？

>>658
あほか？
簡単だろ。

>>662
ぜひ教えてください

>>657
同じ文字列をそろえるってころ？
例の意味がよくわからない。

同じ文字列は同じ行になるように空行を入れてそろえる。
A列だけにある文字列やB列だけにある文字列もあります。

>>665
もうちょっと待って。
今誰かがVBAで作ってるから。
決め台詞は「VBAくらい使えるようになっといたほうがいいYO」

VBAは多少はわかります。
どう作ったらいいかがわかりません。
ひょっとしたらExcelの機能で簡単に出来るんじゃないかと淡い期待もあり質問しました。

単純な例でロジックを考えてみましたが分かりませんでした。
A列の値＝B列の値...空行挿入なし。A列,B列共に次の行を見る
A列の値＞B列の値...A列に空行挿入
A列の値＜B列の値...B列に空行挿入
とやれば出来るだろうとは思っていざ机上でやってみようとしたら

　A　B
------
1:a　b

↓こうしたい

　A　B
------
1:a　□
2:□　b


(1)a < bなのでB列に空行挿入
まで考えて、そこから先でつまってしまいました。
終了判定もどうやったらいいかわかりません。

>>667

行を変数で回して65536までやればOK。

まずすべての値を並べて、vlookupを使うとできる

>>661
句読点を入れてくれ。何が言いたいかさっぱりわからん。

x行目の、Cxの、全角文字列を、判別して、指定する、複数の、文字列を、一つも、含んで、いなかった、場合に、Fxへ、数字を、入れ、次の、行へ、それを、シートの、最後まで、自動で、実行する、ことは、できますで、しょうか？

Sub VBAなんてどうでもいいYO()
For I = 1 To 100
If InStr(Cells(I, 3), "検索文字列1") + InStr(Cells(I, 3), "検索文字列2") = 0 Then Cells(I, 6) = 1
Next
End Sub

Sub 適当()
    Dim MyArray() As String
    Dim MyRng, MyRngTenki As Range
    Dim RowCount As Long
    Dim lc0, Lc1, Lc2, lc3 As Long
    Dim MyStr1, MyStr2 As String
       
    Set MyRng = Selection
    RowCount = MyRng.Rows.Count
    ReDim MyArray(1 To 2, 1 To RowCount)
    lc0 = 1: Lc1 = 1: Lc2 = 1
    Do
        ReDim Preserve MyArray(1 To 2, 1 To lc0)
        If Lc1 > RowCount Then
            MyArray(1, lc0) = "": MyArray(2, lc0) = MyRng.Cells(Lc2, 2).Value
            lc0 = lc0 + 1: Lc2 = Lc2 + 1
            GoTo Mynext
        End If
        If Lc2 > RowCount Then
            MyArray(1, lc0) = MyRng.Cells(Lc2, 1).Value: MyArray(2, lc0) = ""
            lc0 = lc0 + 1: Lc1 = Lc1 + 1
            GoTo Mynext
        End If
       
       
        MyStr1 = MyRng.Cells(Lc1, 1).Value: MyStr2 = MyRng.Cells(Lc2, 2).Value

        Select Case True
        Case MyStr1 < MyStr2
            MyArray(1, lc0) = MyStr1: MyArray(2, lc0) = ""
            Lc1 = Lc1 + 1
        Case MyStr1 = MyStr2
            MyArray(1, lc0) = MyStr1: MyArray(2, lc0) = MyStr2
            Lc1 = Lc1 + 1: Lc2 = Lc2 + 1
        Case MyStr1 > MyStr2
            MyArray(1, lc0) = "": MyArray(2, lc0) = MyStr2
            Lc2 = Lc2 + 1
        End Select
        lc0 = lc0 + 1
Mynext:
    Loop Until Lc1 > RowCount And Lc2 > RowCount
   
    Set MyRngTenki = ActiveWorkbook.Sheets(2).Range("A1").Resize(lc0 - 1, 2)
    For lc3 = 1 To lc0 - 1
        MyRngTenki.Cells(lc3, 1).Value = MyArray(1, lc3): MyRngTenki.Cells(lc3, 2).Value = MyArray(2, lc3)
    Next
End Sub

>>673-674 は
>>657 でした

VBAくらい作ってもらえる人を確保しといたほうがいいYO

削除したファイル復旧は出来たが修復できないんです。
フリーソフトでファイル修復ソフトないかなぁ〜

復旧も修復も、元となる情報が有って初めて可能なのだよ
だからいくらPCやOSが高性能になっても、原始的な複製バックアップの重要性は叫ばれ続け、
昨今のWinではシステム復旧の元となる情報を定期的に溜めている

削除したファイルが復旧出来たのは、消されたのは管理情報だけでファイル自体の情報は残ってたから
しかし、管理情報が消されたファイルは、破損お構いなしの扱いになるし、
修復の方は元となる情報もまず無いのでおそらく修復は不可能です

諦めて、きちんとバックアップを取らなかった自分を戒め、今後の教訓としましょう

>>677
参考とし教訓とします。
修復のプロを探します。

>>675
ありがとうございます。
目的通りの動作をすることを確認しました。
このまま使わせていただきます。
時間を見てじっくり解析したいと思います。

>>679
ピボットテーブルを覚えるといい。
元データをこういう形にするんだ。

文字　区分
あ　　Ａ
い　　Ａ
う　　Ａ
お　　Ａ
い　　Ｂ
え　　Ｂ
お　　Ｂ

データを文字別、区分別に集計してからIF()とかでちょっと整形すればできあがり。

>>678
プロ(業者)に頼むのか？

一部が別データの上書きなどで破損したファイルの復旧は
HDDを分解して、磁気学顕微鏡などでの読み取り作業となるので
昨今の容量の多いHDDだと、数百万とかザラだぞ

NASAが墜落したスペースシャトルのHDDの全データを
サルベージしたっていうけど、一体幾らかかってるんだろうな

関数について質問です
作業列を作らずに、2行に一列足し算をするにはどうすればいいですか?

意味不明…

2行に1行ならsUMPRODUCTでぐぐれ

「全シートのF2セルに入っている値の和」
を１つの数式で表すことはできますでしょうか？

>686
エクセル　串刺し　でぐぐると幸せになれるよ　

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

Excel VBAでシート上に貼り付けたjpg画像をは
どうやって取得するのですか？
このオブジェクトを動かしたいのですが
うまくいきません。

お願いします。

VBAで画像を操作する場合、直接貼らずにImageオブジェクト使った方が融通が利くよ

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

セルへの数値入力の際、他のセルへの入力数列データとしては使うけど
入力したセルそのものは非表示にできますか？

一応、ユーザ定義で；；；と設定すれば数値を非表示にできるのですが
000024と入力した際、非表示にはなるのですが、数値24として認識されてしまい0は無視されてしまいます。
また、G/標準;G/標準;G/標準; とした場合も　000024と入力すると、24と表示され数値24と認識されるみたいです。

他に、ユーザ定義で何とかなる方法あるのでしょうか？(項数6の数列と認識させたうえで、入力セルは非表示)

表示形式を文字列にしてフォントの色を白にすればいい

>>689
レスありがとうございます。
そうですか。
オートシェイプだとうまくいったんですが
ｊｐｇはどういう指定をするのかと思ったものですから。
imageオブジェクトで調べてみます。

>>690
数値と文字列の使い分けに注意しよう
そのまま数字をを入力すると「数値」になる 000024→24
入力の先頭に［'or^or"］をつけて入力すると「文字」になる '000024→000024

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
ぐぐった内容「フィルタ、設定、オートフィル、コピー」

所々空欄のある表に対して「フィルタ」を使って
空欄を抜き出し、その空欄に対して「オートフィル」もしくは「コピー」で
空欄埋めを行おうとした時、フィルタで縮めてる部分まで潰されます
2003では設定をいじることなく出来ていました

これを解決するためにはどこの設定をいじれば良いのでしょうか？
ご教授願います

複数コピーしたセルを行順を逆にして貼り付けたいんだけど、どうしてもやり方がわかりません。
だれか教えてください。

貼り付けてから作業セルに連番振って逆順でソート

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
オートフィルタをCtrl+zで戻したいのですが、できません
オートフィルタごと解除したり設定しなおすしかないのでしょうか?

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

ファイルが保存された際にある処理を実施したいのですが、上書きはともかく
名付け保存(「名前を付けて保存」を縮めてみた)だと、本当に保存するかどうか
聞かれてキャンセルすることができますよね？

あれでキャセルされるとどうもうまくいかないのでWorkbook_BeforeSaveはダメです。
本当に保存された時のみ処理を実行するにはどうすればいいんでしょうか？

カンフーダンクをエクセルで表現したいです。

げっとぉおお

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

セルの内容を逆にして他のセルに入力したいのですが、どうやればよいでしょうか?
以下例です
セルAに "1 2 3 4 5" と入力されているのを、
セルBに "5 4 3 2 1" と入力したい
よろしくお願いします

>>701
Sub test()
    Dim MyStr1, MyStr2 As String
    Dim MyLen, Lc As Integer
    Dim cl As Range
    For Each cl In Selection
        MyStr1 = cl.Value
        MyLen = Len(MyStr1)
        MyStr2 = ""
        For Lc = 0 To MyLen - 1
            MyStr2 = MyStr2 & Mid(MyStr1, MyLen - Lc, 1)
        Next
        cl.Value = MyStr2
    Next
End Sub

>>701
標準モジュールに
Function StrRev(S)
StrRev = StrReverse(S)
End Function

セルBに
=StrRev(セルA)
↑ここの「セルA」は「A1」とかそーゆーことね、念のため

>>698
WorkBookのSavedプロパティを見る

>>704
議論が何段階か飛んでないか？

>>703
VBAにそんな関数あったのね^^;

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

あるシートAに、会員番号、氏名、住所、電話番号、性別のリストがあります。

このシートAから特定の会員番号だけを抽出した、会員番号、氏名、性別だけのリスト、シートBを
作りました。

ところが、後になって、シートBには電話番号も必要なことが分かりました。

さて、、、何かうまい操作で、抽出会員番号の電話番号をリストBに追加する方法はないものでしょうか？

よろしくお願いします。

>>707
VLOOKUP

>>708
あんがと。
助かりますた。

>>702-703
有り難うございました

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 それなりに
【4 VBAでの回答の可否】 どしどしお待ちしています
【5 検索キーワード 　 　 】Excel 印刷範囲

シートにアクセス(鯖)からデータ引っ張ってきてローカルのエクセルにデータ表示させてんだ。
テーブルだとエクセルのバグで張り付けられなかったんでフィルタオプションでやってます。
データは20列で行は1000〜2000前後くらいだ。見出しやらなんやらで12行目から表示させてる。
前置きがこおね。
で、フィルタオプションでフィルタしたやつをね、非表示になったやつは印刷したくないんだ。
2003なら1ページめに勝手に合わせてくれてたんだが2007はオムツ弱いから無理みたい。
"フィルタされたデータ(範囲)を表示されているものだけ印刷する"
みたいな感じだ。よろしく頼む。

一応あるんだが・・・
別シート使っててね、嫌なんだ。

'ワークシート内で定義してます
'印刷範囲コピーメソッド予定
Public Sub PrintCopy()

'保護されていたら
If Me.ProtectContents = True Then
Me.Unprotect '保護を解除
End If
Sheets("元データ").Select '現在のシート

'見出し以下最後に編集されたセル(一番最後のデータ)の範囲を指定
Me.Range(Range("A12"), Selection.SpecialCells(Type:=xlCellTypeLastCell)).Select
Selection.SpecialCells(xlCellTypeVisible).Select '見えている範囲のみ
Selection.Copy 'コピ
Worksheets("印刷シート").Range("A1").Select '印刷シートの方に移動

'貼り付けオプション　値のみで、再計算せず、空白のセルも含み、行列は入れ替えない
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("元データ").Select 'ただいま

'ロックされたセルの範囲を許可し、編集させず、フィルターは使えて、並び替えもおっけ
Me.Protect DrawingObjects:=True, AllowSorting:=True, _
Contents:=True, Scenarios:=True, AllowFiltering:=True

Me.Range("A1").Activate '一番左上にアクティブセルを移動
End Sub

悪けりゃこっちになるかもしれないし、もっと改善できるとこあるだろうから頼んだ！

>711...........必死にツパッてて可愛いね

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

人と行き先ごとに単価がかわる
(Aさんがeに行けば1500円だけどBさんがeに行くと1800円、そして人も行き先もいろいろあります)
それを設定したいのです
A1,B1,C1,D1,E1,
人,行先,単価,行先,単価,

という表を作りA2から入力なのです。

で、別シートに設定を作りたいと思ってます。
=IF(Sheet1!B2="洛南コース",Sheet1!C2='1500')　こんなふうにやればいいのか?と思ったのですがエラーでした
どうかよろしくお願いします

>>714

eって行先だよね？

>>715
はい、行先です

とりあえずやってみた

表を作るときさ、

名前　 行先1　　　行先2　 行先3　・・・←見出しね
Aさん　1000 1200 1300
Bさん　1200 1400 1000

みたいなのつくってね、

=IFERRER(VLOOKUP(ここに人,作った表,MATCH(行先,作った表の見出し,FALSE),FALSE),"")

を金額にセットしたら人と行先入れりゃあ金額でるっしょ
あとはがんがれ

人と行先はデータの入力規則→リストにしておくとやさしいよ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 該当するもの　すべて表示

会員番号　氏名　購入日付　購入金額
１０００　山田　４月１日　２２０円
１００１　田中　４月３日　３２０円
１００２　村田　５月９日　１８０円
１０００　山田　６月２日　５１０円

というデータがあり、会員番号「１０００」を入力すると

１０００　山田　４月１日　２２０円
１０００　山田　６月２日　５１０円

となるようにしたいです。
出来れば検索シートとデータシートは別々のシートがいいです。
よろしくお願いします。

>>711
わかってても答える気がしないな。

>>718
関数で組むとめんどくさくて重いからピボットテーブルおすすめ

>>710

ピボットテーブルで処理するのが一番てっとり早いと思われます。
次のページなどを参考に試してみてください。
http://sweety.jp/honobono/faq/pibo/index.htm#ouyou

仮に今回の作業に最適でなかったとしても今後かなり役に立ちますよ

おっと、ピボットは嘘
オートフィルタオプションで直接入力するのがおすすめ

721=719
ピボット厨とは一緒にしてくれるなよ・・・

あたいの股間にVLOOKUPして

>>723
VLOOKUPだと上の口しか満足できないんだよ。

ここでVBA厨登場
F11でVBエディタを開いて 検索シートをダブルクリック
次の式をそこに入れてくれたまえ
元データがSheets("データシート").Range("A1")から始まっていて、
検索シートの"$B$1"に会員番号を入れて、結果をRange("A4")以降に書き出す仕様になってます。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim MyRngMoto, MyRngSaki, MyCellKaishi, Cl As Range
    Dim MyStr As String
    Dim MyCol As Integer
    Dim MyRow, Lc As Long
   
    If Target.Address <> "$B$1" Then Exit Sub
    Set MyCellKaishi = Me.Range("A4")
    MyStr = Target.Value
    Set MyRngMoto = ThisWorkbook.Sheets("データシート").Range("A1").CurrentRegion
    MyCol = MyRngMoto.Columns.Count
    MyRow = MyRngMoto.Rows.Count
    Set MyRngSaki = MyCellKaishi.Resize(1, MyCol)
    Application.EnableEvents = False
    MyCellKaishi.CurrentRegion.Clear
    For Lc = 1 To MyRow
        If MyRngMoto.Cells(Lc, 1).Value = MyStr Then
            MyRngSaki.Value = MyRngMoto.Rows(Lc).Value
            Set MyRngSaki = MyRngSaki.Offset(1, 0)
        End If
    Next
    Application.EnableEvents = True
End Sub

見出しも書き出すなら、
    For Lc = 1 To MyRow
を
    MyRngSaki.Value = MyRngMoto.Rows(1).Value
    Set MyRngSaki = MyRngSaki.Offset(1, 0)
    For Lc = 2 To MyRow
に変えてね

P,S. VBAは我流もいいとこなので添削してくれる人募集中です(^^;)

変数名をMyから始めるのって、あの本から入った人だよね

VBAおＫだったのね。。

VBA素人だけどこんなのは？
抽出シートのA1に"会員番号"、A2に抽出する番号を入れる。


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$A$2" Then Exit Sub
Sheets("データシート").Range("A1:D5").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:D4"), Unique:=False

End Sub

>>725
とりあえず
> Dim MyRngMoto, MyRngSaki, MyCellKaishi, Cl As Range
結構こういう風に書いてる人がいるみたいだけど、
これだとClだけRangeで残りはVariantになるよ。
わざとならいいんだけど、指定したいならひとつひとつ指定しないとダメだよ。
↓
Dim MyRngMoto As Range, MyRngSaki As Range, MyCellKaishi As Range, Cl As Range

ああ、追加を考えるとこうか？

Private Sub Worksheet_Change(ByVal Target As Range)

　　　 Dim r As Long
　　　 r = Sheets("データシート").Range("A" & Rows.Count).End(xlUp).Row

　　　If Target.Address <> "$A$2" Then Exit Sub
　　　　　Sheets("データシート").Range("A1:D" & r).AdvancedFilter Action:=xlFilterCopy, _
　　　　　CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:D4"), Unique:=False

End Sub

>>719
ありがとうございます。
若干イメージと違う気がしますが、便利そうな機能ですね。
勉強してみます。

>>725,>>728
ありがとうございます。
思っていた通りの動作をしてくれました。
もうひとつ教えていただければと思うのですが
会員番号を入れる度に、出力されるセルに隣接するセルの文字が消えたり
出力セルの書式設定がデフォルトに戻ったりするのですが
それらを保持するのは難しいことなのでしょうか？

簡単

>>731
725ベースだと
MyCellKaishi.CurrentRegion.Clear
を    
Me.Range(MyCellKaishi, Cells(MyCellKaishi.End(xlDown).Row, MyCol)).ClearContents
に変えればOK

>>729
　そうだったのか orz
>>727
　参考にさせてもらってるサイトやファイルを作った人がそうなのかな(^^;)

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 チェックボックスをラジオボタン　オプションボタン　レ　

おはようございます。よろしくお願い致します。
エクセル2003で使用できるチェックボックスをラジオボタンのように
どちらか一方を選択できるようにできますか？
または、ラジオボタンの画像◎をレに変更できますか？
VBAでレの画像をラジオボタンのように機能させる方法でもかまいませんので
よろしくお願い致します。

>>731
728はエクセル機能のフィルタオプションを使ってるから
その仕様により書式はデータシートに依存しちゃうので
書式の保持はできないかも。
ただ、隣接セルに文字を入れてもそれが消える事はないはず。

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

突然失礼します。
昨日エクセルを立ち上げたら、ツールバーが全て反転しており何も入力できなくなっています。
セルにカーソルを持って行っても入力できません。
新規に立ち上げても、ドキュメントから立ち上げても、以前作ったものを閲覧するのみになっています。
突然こうなってしまいまして、何も出来ずに途方にくれてます。

なにか対策は無いでしょうか。困っています。直す方法を教えてください。
よろしくお願いします。

>>736
保護はかかってないよね？

>>737
新規でも同じ症状ですね。
かかってはいません。

>>734
CheckBoxのChangeイベント使えば出来るけど

チェックボックスは複数選択
ラジオボタンは択一選択
というのが、一般的なルールで、これに反すると利用者に不要なストレスをかけることになります。
よっぽどの理由がない限り素直にラジオボタンを使いましょう

>>736
windows updateやった？
俺はそれでwordがおかしくなって、msの日本語用パッチみたいなの落として当てたら直った。
OSもバージョンも違うけど、心当たりあるなら試してみるとうまくいくかも。

ＯＳはＸＰ、　Ver2000です。関数の処理を教えてください。
次のような表があり、２種類のコード別に売上計上日を実績月に変換したいのですが見当がつきません。
売上計上日　　コード 　金額 　実績月
2008/07/10 15　　　　　　10000　　　　　7
2008/07/15 30　　　　　　50000　　　　　7
2008/07/26 15　　　　　　30000　　　　　8
2008/08/24 15　　　　　　30000　　　　　8
2008/08/11　 30　　　　　　10000　　 　 8
2008/09/11　　30　　　　　　50000　　　　　9　　

また、土日の関係で毎月締め日が異なるため、実績の集計期間が月により数日違います。例えば、
次のような感じで期間の始期終期が同日ではありません。
実績月7月の種別15の期間は6月25日から7月25日
　　同　　　種別30の期間は7月11日から8月9日
実績月8月の種別15の期間は7月26日から8月24日
　　同　　種別30の期間は8月10日から9月10日

そこで別表にコード別の実績月別カレンダーを作成しVLOOKUPを使ってと考えたのですが、
コード別に検索を分ける方法が分かりません。
また、別表カレンダーを作らなくても2008/06/25<2008/07/25と期間指定だけしてより簡単に
処理できないかなと考えましたが・・・
お知恵を貸してください。

>>741
思ったこと
・要件が不明確だなあ
・なんで質問テンプレ使わないの？
・挙げている例の意味がわかりづらい。というかわからない
・金額欄って意味あるの？（本文からは不要データにしか見えない）
・コードが２種類しかないのが確定してるならIF使えばいいだけでは？
・日付範囲は手入力でいいの？自動判定するの？

兎に角、すべてが分かりづらすぎる。
表も日本語もズレまくりだし。

>>733
ありがとうございます。
無事に設定が残るようになりました。
ただ、会員番号１０００を入力し、データ（仮に４行）が出力された後に
会員番号１００１を入力し、データ（仮に２行）が出力されたとき、会員
番号１０００のデータの一部まで残ってしまいました。
でも、手動で消しても大した手間ではないので大丈夫です。

>>735
すみません。隣接セルが消えるのは>>725の方だけです。
>>730では、書式設定の保持が難しいんですね。残念です。

調子に乗って、データシート２（会員番号、住所、生年月日）を作って
そちらからも検索シートに出力しようと>>725や>>730を雰囲気でさわっ
てみましたが、できませんでした。まあ、当たり前なんですが。

とにかく、皆さんありがとうございました。

>>741
関数式は式が入れられたセルに値を返すだけで、変換(値の書き換え)は出来ないよ
作業セルに式入れて、結果をコピペするとかなら可能だけど
また別表無しでやると、「別表」相当の物を式の中に組み入れなければならないから
式が複雑長大になる

VBAの使用が否ならば別表の使用は諦めよう
あとはIFでもいいし、HLOOKUPやINDEX,MATCHなどを組み合わせるとかすれば良い

出直します。

>>743
>会員番号、住所、生年月日
答えが常に一つなので、VBAを組むより、VLOOKUP関数を使ったほうがいいですよ。

>データの一部まで残ってしまいました
出力後に会員番号を消してませんか?
もしそうなら、End(xlDown)　の意味を調べて適当に修正してください。

>雰囲気でさわってみました
そこから始めるのはいいですが、725のコードはいろいろ問題がある可能性があるので、他のサイトで探したコードで勉強したほうがいいと思います。
あと変数の概念とか、オブジェクトの階層構造とかをあらかじめ入門サイトで調べておくと勉強がスムーズに進みますよ

>>739
CheckBoxのChangeイベントのやりかた、良ければ教えて下さい
お願いします。

>>747
少しは頭を使えよ、Changeイベントのヘルプは読んだのか？

例えば、CheckBoxAを押したら他の対応するCheckBoxのValueプロパティを
Falseにすりゃいいだろ

>>746
ありがとうございます。
実は、住所のが変更になった際に、その履歴を…と思っていまして。
とにかく、入門サイトを見て少し勉強してみます。

>>741
コード別にソートしなおして
=SUMIF(…)-SUMIF(…)
で出来そうな気がするが…

>>748

ありがとうございます

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

セルA "2008/1/1" を&で他のセルとつなげたらシリアル値になってしまうのですが、
そのままつなげるにはどうしたらいいですか?

=text(A1,"yyyy/m/d")&"文字"
text関数は数値を指定した形式の文字列として返す関数

数値の書式はセルの書式設定で、指定したい形式を一度指定してから
ユーザー定義書式を選択すると見ることができます。

>>753
有難うございました
出来ました

WEEKDAY関数で曜日をわりだし、土日の場合のみ、セルを塗りつぶしたいのですが、分かる方いますか？

はい、居ます

>>756さん
教えてください。

>>755
書式／条件付書式／数式が
=WEEKDAY(対象セル,2)>5

http://best100.jp/link.php?carrier_id=3&category_id=21&site_id=yatiju

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

今、試合形式の結果をエクセルで自動計算させたいと思っています。
総当りの対戦表で

○2-0｜●1-2｜●3-0｜・・・・

としています。※1試合の結果を記入するのに4列つかっています。これで
特定範囲の白星、黒星の数は、
　
白星　=COUNTIF(K7:CA8,"○")
黒星　=COUNTIF(K7:CA8,"●")

で出せました。次に特定範囲の得点数、失点数の合計を出したいのですが、
色々試したけど出来ません。たぶん、特定の文字（○とか−とか）の
後の数字を合計させる方法があれば出来そうなのですが、やり方がわかりません。。
どなたか良い方法を教えて下さい。