Excel総合相談所 71

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総合相談所 70
http://pc11.2ch.net/test/read.cgi/bsoft/1213013614/

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･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で出来ないこと、仕様上の制限 (括弧内は代用法)

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

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

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

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

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

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

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

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

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

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

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

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

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

激しく乙〜（・з・）

>>8
的確すぎてﾜﾛﾀ俺はVBA厨。
だってエクセル関数にできてVBAでできないことないんだもんｗｗｗｗ

>>8
職場でふいたじゃねーか!
でも乙
>>1乙

>>8
ピボットの誉めすぎだよ。ありがとう。
ピボ厨もVBAが何でもできることは認めているんだよ。自身も必要なら使う。
問題はこのスレのVBA厨が何も解決できないことなんだ。

それは違う。質問者がVBAを×にしてるからだい

>>1乙
登場人物紹介GJ！www

>>13
それは事実と違うように思うが。
前スレの例えばどの質問のこと？

>>15
>>12にまずつっこめよ。
マクロ(VBA)スが質問を撃破できなかった事実はない。
よく考えずに安易に回答(反応弾使用)する者が多い事は
事実だと認めるところだがな。

>>16
カレンダーも勤務表もできなかったくせに

>>16
在庫管理もな。
>>17
カレンダーはどんな質問だった？
祝日自動計算とかだったらできなくて当たり前だからね。

保存時に、ある処理をやらせてから終了させる為に
以下のように記載したのですが、どうしても保存処理が
二回走ってしまいます…

　[ThisWorkBookシート]
　Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　
　 '保存(ファイル保存)処理
　 Call TyinKo
　
　End Sub
　
　
　[Module1]
　Sub TyinKo()
　
　　　（中略）
　
　 ActiveWorkbook.Save
　
　 ThisWorkbook.Saved = True　　'←これで標準の保存処理だますつもりだった
　
　End Sub


やりたいのは、上書き保存時に名前を変えて保存させることです。
それで保存処理が動いた時に、上で略された処理を動かし
ファイルを保存したいのですが前述通りになぜか二回…
もう死にたいです

Variable
Battloid
Answer

>>19
>もう死にたいです
心療内科を受診してみてはどうだろうか。

そういう煽りはいいんです。ただひたすら愛が欲しい、歌丸です。

>>18
実現してるカレンダーあるよ。仕事でも使わせてもらってる
http://www.vector.co.jp/soft/winnt/personal/se164767.html

>>23
それ来年もちゃんと使えるの？

>>23
君、けっこうVBA使えるだろ。
VBA使えるとうらやましいな。なんでもできて。

>>24
とりあえず来年の5月と9月の国民の休日が正しいことは確認した。

俺の首＜カレンダー

これがエク質ヌクモリティなの！？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 初心者
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA　ファイル操作　シート　ダイアログ　

A.xlsとB.xlsというブックがあります。
A.xlsにてマクロを起動すると、ファイルが選択できるダイアログが出てきて、
B.xlsを選択するとB.xlsの「シートC」というシートをA.xlsに追加するということを実現したいです。

・追加する場所はどこでもいいです。(できればA.xlsの先頭)
・選択するファイルの（例えばB.xls)のシート名は「シートC」という風に固定されていますが、今後変わる可能性があるので
できれば、シートを選択できればベターです。
・もしくは、選択したB.xlsのシートCの（A1：C10)をA.xlsのシートCのA1にコピーという仕様でもかまいません。
以上よろしくお願いします。

>>19
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
SaveAsUi [名前を付けて保存] ダイアログ ボックスが表示される場合 True が渡されます。

Cancel イベントが発生すると False が渡されます。イベント プロシージャでこの引数に True を設定すると、プロシージャが終了しても、ブックは保存されません。

>>28
マクロの自動記録

>>1は東海掲示板に同スレを立てた阿呆です
IPを調べると三重県からですた

http://tokai.machi.to/bbs/read.cgi/toukai/1214202491/l50
誤爆もほどほどに

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

いつの間にかに消えて、こいつ迷子になっちゃった！

画像から文字を読み取ってエクセルに出力したいのですが
どうすればいいですか？

>>1
ふつう、まちBBSと2ちゃん間違えるかぁｗ
三重県人痛いやっちゃな〜

>33
OCRソフトで画像→文字変換して、文字列コピーしてエクセルに貼り付けたらだめですか？
それをエクセルで自動化したいということですか？

>>35
ttp://ossan.fam.cx/up/gazo/src/1214226083261.jpg
これを読み込んで、エクセルで計算などしたいんですけど・・・

そのＯＣＲソフトっていうのでやってみたんですけど
１つのセルに縦の文字が全部はいっちゃって・・・orz

どうすればいいですかね？
自力入力・・・？

OCRソフトの出力みせれ。

それか聞いてる暇あったら手入力したほうが速いぞきっとw

>>37
http://www.dotup.org/uploda/www.dotup.org9840.txt.html
パス、1111です

>>1
デフォルトの名前で気づけよｗｗｗｗｗIP表示されてる時点で気づけよ

>>38
「１つのセルに縦の文字が全部」って、どういう意味？
一部の読み取りミスは仕方ないとして、コピペしたらちゃんとセルごとに数値が分かれて入ったけど。

あと、OCRソフトによっては設定で「英数字のみ」とか「数字と記号」みたいなのがあると思う。
それを使うと数字の読み取り精度が上がる。

再投稿します。
よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい（少々）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 EXCEL 置換　ワイルドカード

セル内の先頭にある半角スペースを消したいのですが

検索する文字列： *
置換後の文字列：*

では対象が全て*になってしまいます。
「置換後の文字列」には何を指定するのでしょうか？

>前スレ　984･987殿

対象は先頭にある半角スペースです。
それ以外の半角スペースは残します。

またsageてしもた（汗

よろしくお願いします。

sageの意味を知らないひとがいるな

>>41
a1にあるとしたら
=IF(LEFT(A1,1)=" ",RIGHT(A1,LEN(A1)-1),A1)

>44殿

置換のワイルドカードでの指定方法が分かればお願いします。

VBAから実行してセル内の文字列を直接変換します。
置換後の文字列の指定方法が分かれば自動記録でコードは得ようと
思っていましたので特にVBAでとは記述しませんでした。
後出しですみません。

また、回せばできるのですがこの様な場合のワイルドカード指定方法
があったような気がしたので質問させていただきました。

Selection.Replace What:=" *", Replacement:="*", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

>>28
Sub a()
　　Set b = ThisWorkbook
　　Sheets.Add before:=Sheets(1)
　　Workbooks.Open Application.GetOpenFilename("Microsoft Excelブック,*.xls")
　　Worksheets("シートC").Select　'保存時の状態によってはSelectしないとエラーになる
　　ActiveSheet.Cells.Copy Destination:=b.ActiveSheet.Range("A1")
　　ActiveWorkbook.Close
End Sub

>>41
TRIM()じゃだめか

WORDだとワイルドカードで行頭を指定できるからそっちでやる手もある

>>45
そういうのは「正規表現」というのを使うんだけど、それよりもこれじゃダメか？

Sub 選択範囲の先頭のスペースを消す()
　　For Each i In Selection
　　　 i.Value = LTrim(i.Value)
　　Next i
End Sub

>>47
末尾のスペースまで消えてしまう

>47,49殿

Trimがあったか！

あれから色々とサイトを巡ってみましたが、置換では無理で
回さないとだめみたいですね。

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

>50殿

ご心配ありがとうございます。
承知しておりますので大丈夫（？）です。

３５です。
>38　>40
Excel2003でやってみました。貼り付ける方法により結果が異なりました。貼り付け先をＡ１と仮定します。
[Ctrl]＋[V]だとＡ列にだけ貼り付けられました。
メニュー−編集−形式を選択して貼り付け−テキスト　だと４０さんの言うとおり各セルに分かれて格納
されました。参考まで。

>>53
うちも2003だけど、Ctrl+Vでちゃんと分かれたよ？
手順としては、まずExcelを起動してブックを開く
次にメモ帳でtxtを開くいてCtrl+A、Ctrl+C
エクセルに切り替えてA1をクリック、Ctrl+V

ポイントは、Excelを先に起動すること。先にメモ帳を起動するとコピペがうまくいかない。

前すれでLTrimってかなり一瞬ででてたきがするんだけど・・

>>55
元の質問がテンプレに沿ってなくて、あの時点ではVBAの可否が不明だった

>55殿

見落としてました（汗

遅くなりましたが前スレ998殿、ありがとうございました。
また、気が付かずに失礼しました。

また、>41でレス番を間違えました。
前スレ997殿、失礼しました。

すみません、簡単な質問かもしれませんが、
シートを10個作って、シート1の行４：列５あたりに『８：５０〜１０：００』と書いたら
シート４，７あたりの行４：列５にも『８：５０〜１０：００』と反映されていました。
関数は調べたらなかったのですが、これはどういった現象でしょう？
すみませんがお願いします・・・。

>>58
Ctrlを押しながらシートタブをクリックすると、複数のシートにいっぺんに同じデータを入力できるという機能がある。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 ほんの少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 EXCEL ０になる　計算結果　自作関数　関数　ファイルを開く　

VBAで自作した関数の入っているセルの値が
ファイルを開いた時に0になってしまっているときがあります
保存時にはきちんとした計算結果が入っていたはずなのにです。

この状態で手動で再計算しても0のままです
（引数の入っているセルに数字は入っています）
関数の引数になっている値を変動させると
正しい計算結果が表示されるようになります。

そのファイルはネットワーク上の共有フォルダに置かれています

どのような原因が考えられますか？

>>60
・自作関数が間違っている
・元の引数で計算すると０になるのが正しい

>>61

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

自作関数についてですが、返り値は想定した正しい値が返ってきます
もちろんもとの引数で計算したら０ではない数字になるのが正しいです

正しい計算結果が入った状態でファイルを保存＞翌日に開く
と、計算結果の欄（関数が入っているセル）が０になっている時があるんです
ファイルを開いた時に計算がされてないような状態になっているんです
もちろん、自動計算はオンになっていますし、
0になってる状態で手動再計算しても0のままです

毎回0になったり、決まったシートだけや決まったブックだけなら
なにか原因があるんだろうと思えるのですが、
今の状態は再現させる条件もよくわからなくて
途方にくれているような状況なのです

ファイルを名前を付けて保存する際にVBAで
A1セルの内容を初期表示させたいのですが
どうすればよいのでしょうか。

>>62
Excelのバージョン違いとか、複数のExcelから同時に開くとうまく動かないとか
とりあえずファイルをさらしてみるとわかる人がみつかりやすいかも

うｐした方が早いと思う

>>63
「初期表示」の意味がよくわからんが、カーソルをA1セルに合わせておきたいってんなら
Workbook_BeforeSave に Range("A1").Select って書いとけばいい

>>62
http://support.microsoft.com/kb/144508/ja
これに該当しているかどうかの確認も

>>66
例えば「shine.xls」を開いたら、名前を付けて保存を
押すと「shine.xls」が反転した状態で表示されますよね。
あれです。あれをA1セルの内容に変えたいんです。

>>64-65さん>>67さん
レスありがとうございます
まずは>>67さんの教えて下さったサイトをみていろいろ試してみます

いま、たまたま0になる現象が再現できたのでいくつか実験してみました
オプション＞計算方法で再計算ボタンクリックだと再計算されないんですが
ctrl+alt+F9をやったらとりあえず再計算できました
僕が手動再計算の方法を間違えていたのかな
お騒がせして申し訳ありません

あとはファイルオープン時にきちんと再計算するようになれば
よさそうなので、他の方法も試してみます

皆さん本当にありがとうございました

二つのグラフをそれぞれ右と左の軸に割り振って表示したとき
どっちのグラフが右でどっちが左かということが分からないと思うのですが
これはどうすれば良いのでしょうか？
論文などをみていると矢印などが書かれていますが
自分で書き入れるというの一般的なのでしょうか？
もっと良い方法があれば教えて下さい。

>>68
こんな感じかな？
ファイル名が " " で囲まれちゃうんだけど、これを消す方法がわからん。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　S = Application.GetSaveAsFilename(InitialFileName:=Range("A1"))
　If S <> False Then
　　Application.EnableEvents = False
　　ActiveWorkbook.SaveAs Filename:=S
　　Application.EnableEvents = True
　　Saved = True
　End If
　Cancel = True
End Sub

罫線が太くて嫌なんですがもっと細くなりませんか？
ギュウギュウってして痛いです(/ω＼)

>>72
罫線のスタイルを選ぶ画面で、「なし」の次にある点線が、印刷すると一番細い実線になります。
太さをもっと微妙に調節したい時はオートシェイプで枠線に重ねて直線を引くしかありません。

2003を使っています。
グラフにタイトルをつけるためにはどうしたら良いのでしょうか？

>>69
再計算にはF9、Shift+F9、Ctrl+Alt+F9、Ctrl+Alt+Shift+F9の4種類あって、
それぞれ再計算される範囲と条件が異なる。4番目がブック全体を強制再計算。
どの段階で再計算されるかを調べれば原因がわかるかも。

A1セルが">"の時B1に=C1>1
A1セルが"<"の時B1に=C1<1
というふうに式を変えたいときは、VBAを除けば
ifで分けるしかありませんか?↓のような感じで・・
=if(A1=">",C1>1,C1<1)

indirect等、関数で直接数式自体を戻り値として入れることは無理でしょうか

>>71
一週間悩んでいた問題が氷解しました。

＞ActiveWorkbook.SaveAs filename:=S
ちきしょぉぉおこんなことができたのかぁああ
と絶叫してみましたがどうみても神回答者です
本当にありがとうございました

>>74
グラフを右クリックして「グラフのオプション」→「タイトルとラベル」

>>77
違うぞ。保存ダイアログにファイル名の初期値を設定してるのはこの部分
S = Application.GetSaveAsFilename(InitialFileName:=Range("A1"))
　　　　　　　　　　　　　　　　　　　　　　------------------------

二つのグラフを同時に表示させたとき
片方のグラフがもう一つのグラフに覆い被さって部分的に
見えなくなってしまいます。
どちらが上に来るかというのはどうやって設定するのでしょうか？

>>80
クリックした方が上

>>80
グラフを右クリックして「最前面に移動」「再背面に移動」で順番を変更できる
3つ以上重なってる時はクリックする順番をよく考えること

>>76
別の所にあらかじめ記号と完成した計算式を並べておいて、
その中からVLOOKUPなどで計算結果を選択するという方法もある

>>76
EVALUATE()

とりあえずオフィスを使える（使いこなす、大手に就職しても困ることなく使いこなせる）ようになりたいんですけど
どうやってやっていけばいいですか？


関数など基本的なことは、高校のときにやったのである程度はできます。

持ち越しですみません。どなたかこれ分かる方いないでしょうか。
これのせいでもう4日くらい帰れていないんです


　982 名前：名無しさん＠そうだ選挙にいこう[] 投稿日：2008/06/23(月) 13:45:32
　money.csv (MoneyFile)
　　田中,貸した,12000,未納
　
　というデータを
　
　　Open MoneyFile For Binary Access Read Write As intFF
　　（中略）
　　buf2 = Split(buf, ",")
　で読み込み、
　　ReDim Preserve buf2(3)
　として「未納」の配列要素を切り捨てた後で書きだしているのですが
　思った通りのデータになっているものの「未納」の部分が消えません。
　更新前のデータがそのまま残っている状態です。
　つまり
　
　　田中,貸した,12000,未納
　　↓
　　田中,貸した,12000
　
　としたいのですが、どうすれば良いのでしょうか。
　バイナリアクセスでは、行のバッファを置き換える事はできないのでしょうか。

>>85
大手だと人の作ったシートにデータを入れて分析結果を見るだけ、みたいなことのが多いよ。
自分でいちいちマクロとか作ってるのは、むしろ小さい会社。
あと、仕事で必要なことは研修で教えてくれるから、Excelの知識なんかより社会常識を
しっかり身につけておいた方がいい。

>>86
> 思った通りのデータになっているものの「未納」の部分が消えません。

未納が消えないってことは、思った通りになってないってことじゃないの？
日本語がおかしいよ。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】 EXCEL スピンボタン 負の係数 マイナス

y＝ax^2+bx+cという式でスピンボタンを使ってaを負の値に指定出来るように
したいのですが、どうすれば良いのでしょうか？ かなり調べたつもりですが
分かりません。どなたかお助け下さい。

>87
わかりました。
エクセルの知識は放置してタイピングやったり
本読んだりします。

>>75

ありがとうございます！
今実験してみようと思ったんですが
障害が再現できないので、また障害が起きたときに試してみます

>>88
言葉が足りなかったです。つまり

aaaaa,xxx

の行バッファに対し、bbbbbの行バッファを
書き出せているのに、xxxがそのまま残っている
ということです。つまり

bbbbb,xxx

になってしまうのです。
この「bbbbbを出力できている処理」が思った通り
に動いているということです。

つまり思った通りのデータ(bbbbb)で上書いてるのに
消えないデータ(xxx)があるということです。

>>73
なるほど
ありがとう

>>92
バイナリでその部分の文字だけ上書きしてるんだから、当たり前の動きじゃないかな？
消すというのが無謀かと。
同じサイズの空白文字列で上書きすれば、見た目は消えるんじゃない？
余分な空白のゴミが残るけど。

そもそもは、CSVをバイナリで扱う意味が分からんから答えつかないんだと思うよ。

>>92
データを削ってそれ以降の部分を前に詰めたい、あるいは途中にデータを追加して全体を後ろにずらしたい時は、
ファイル全体を一度に読み込み、加工してまた全体を書き出すしかありません。

バイナリモードでできるのは、基本的にファイルサイズの変わらない置換だけ。
文字数が増えたり減ったりする場合はテキストモードでやる。

>>82
2003を使っているのですが
そのような設定項目は見あたらないのですが・・・
オプションのところにも見あたりません。

>>89
フォームのスピンボタンはマイナスにできない。
コントロールツールボックスのスピンボタンを使いなされ。

>>97
グラフエリアを右クリックだよ？
ttp://kissho.xii.jp/1/src/1jyou39254.png

>>99
私が言っているのは一つのグラフの中に２つのグラフを散布図として
乗せた場合という意味なのですが・・・
何卒よろしくお願い致します。

>>94
そうなんですよね。実は最初は固定長のデータを扱っていたので
書き変わるたびに書き直すと遅くなるなぁと思い、バイナリで
扱うようにしたんですけど、それから機能追加でユーザ名を
追記するようにしたんで、せっかくバイナリに合わせて処理を
盛り込んで（というかガラッと変わった）時間と手間をかけたのに
戻したくないなぁというかバックアップ取ってないなぁと思い
どうにかならないかなぁあの女子高生かわいいなぁとか思ってました。
どうもすみませんでした。

>>95
やっぱりそうなんですね。諦めがつきました。ありがとうございました。

>>96
それが基本ですよね。見よう見まねでググってコピペして辻褄合わせて
作ったソースがですがどう見ても破綻です
本当にありがとうございました

>>83>>84
ありがとうございます!
すごい!

92なんですけど別件なので数字コテ外します。

ファイル操作は、「読み取り」か「書き込み」の
どちらかしかおこなえないのでしょうか。例えば
　1234,5678,01
　2222,3333,14
　6666,4444,55

のようなcsvを読み込んで、処理の中で二行目のレコードの
14を15にしたい場合はバイナリモードで読んで書いてで良い
と思うのですが、

　1234,5678,01
　2222,3333,14,更新中
　6666,4444,55

のようにしたい場合はサイズが変わるのでバイナリモードでは
対応できず、Outputでアクセスして書き込むと思うのですが、
その場合一度INPUTで開いて読み込み、すぐにOutPutで書き込む
しかないのでしょうか。複数人が同時にアクセスする事を
想定しているため、できれば読んだ時点で処理して書き込みたい
のですが･･･

それとも、可変長の要素を追加したい場合は
あらかじめレコードの長さを確保して

　2222,3333,14,"　　　"　'←6バイト

バイナリモードで読み込み・書き込み

　2222,3333,14,"更新中"　'←6バイト

のようにした方が良いのでしょうか？

まぁ6バイト程度ならいいんですが実際のコードでは
20バイト（Winのﾕｰｻﾞ名）確保する必要があるんですが
他に上手い方法はないでしょうか…

また流れを止めてしまった…

>104の例は、""で括られた中が6バイトだということです。
2chなので全角スペース３つ入ってますが実際は半角スペースが6つです。

それを全レコード用意して、書きこんだりスペースで埋めたりした方がいいのかなぁ…と。
ついでに質問しますと、この6バイトのスペースに2バイトの文字を入れ、残り4バイトを
スペースでパディングしたい場合どうしたらいいんでしょうか。

無理
教えても無駄
DB使え
消えてくれうざいから

根本的な仕組みも分かろうとしないで
糞みたいな質問連発してる奴に何言っても無駄

すみません、どなたか教えて下さい！！

XP,Excel2003です。ＶＢＡはわかりません。

複数の関数の組み合わせなのですが、よろしくお願いします。
わかりにくい説明ですみません。


Aシートにコードが入力されています。
Bシートにコード、文字列、数値が入力されています。
AシートのコードでVLOOKUPを使い、Bシートから数値を呼ぶことはできるのですが、
数値が空白の場合は、空白にする。B列の文字も検索したい場合はどのようにすればよろしいでしょうか？

例

Aシートには、コード００１が入っています。
Bシートから、コード００１、「あ」の行を検索し、数値をもってきて、空白の場合は空白にしたいです。


　　　　A列　　　B列　　　C列　　　D列
1行　　００１　　　あ　　　１０　　　空白
2行　　００１　　　い　　　２０　　　３０
3行　　００２　　　あ　　　３０　　　空白

Dの空白のセルに’を入れておく

>>106-107
素直にわからないって言えばいいのに…
高度過ぎる質問してごめんね。
自己嫌悪に陥らないでね。

>>109

108です。
すみません、既に何ファイルもデータが入力済なので、
今から入れられないんです・・・

>>103
まさかと思うけど1つのファイルを共有して複数人で同時に開き、書き換えようとしてる？
だったらおとなしくAccess使え。

>>108
vlookupでDが空白なら空白を返すのは分かった
Aシートはコード、文字、数値、数値の並びでコードをかけばそれぞれを呼び出したいの？
Dが空白だと他全てが空白になるようにしたいの？

C列に空白はできるの？その場合は？
空白じゃない場合はB列の文字とCの数値をつなげればいいの？
CとDがある場合はどうするの？

>>108
=IF(VLOOKUP(A2,B1:C2,2)="","",VLOOKUP(A2,B1:C2,2))
ifでvlookup先のデータが空白「""」なら空白「""」、そうじゃなければ通常のvlookup
って感じでどう

>>100
そういうのを後出しって言うんだよ。>>3に書いてあるでしょ。

グラフエリアの中にプロットされた線や点を右クリック、データ系列の書式設定、系列の順序。
この中で下にある物が重なった時前に出る。上にある物は隠れる。

>>104
単に可変長のデータを置き換えたいだけなら

2222,3333,14,"更新中","　　　　　　　"

みたいに余った部分をコンマで区切って、5番目のデータを無視するという方法がある。
この方法なら高速にファイルを更新できるから、排他制御っぽいことも不可能ではない。
やめといた方がいいと思うけど。

xp 2003 vba？って何？
というレベルのものです

質問です
2009/5/20と表記されているセルを日にちの20とだけ表記したいんです
そのセルはDATEを使って2009/5/20と表しています
どなたか教えてください

書式設定でd

>>103
>>2の7あたり

素直にわからないって言えばいいのに…

>>117
どうしてDATEつかってるんだろ？
=DAY(DATE(2008,6,20))

>>110
偽者乙

>>112
SAW(ソウ)です。Access？使えたら苦労しません！ｲﾝｽｺされていません！

>>116
うーんちょっとおっしゃる意味がよくわからないです･･･
5番目を･･･えーと･･･

>>119
＞VBAはプログラム言語のVisualBasic(6以前)に近い処理が可能でExcelに関係ないことも出来ます。
VBAはすごいですよね。

>>120
偽者乙

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

>>122
フィールドは可変長だがレコードは固定長ってこと。
どこかしら固定長の部分がないとランダムアクセスは不可能。

別解として、アクセス中を示すフラグを別ファイルに置くという手もある。

つーても、>>103には理解できなさそうだなあ…

もっと単純に、1レコード1ファイルにするという力業もあるにはあるが…
そこまでしてExcelでデータベースもどきを構築する意味があるのかどうか。
開発にかかる人件費を考えたらAccessを買った方が早いと思うんだが。

それしかすることないんだよ

前スレの730ですが　以下に前回の質問を記します
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA　他のブック　参照　ファイル名

あるフォルダに　aa-01-斉藤.xls　aa-02-田中.xls　…　といったように　aa-**(連番)-**(名前).xls　といったファイルが複数あって
それぞれの「入力用シート」というシートの　A2〜A12　に　データが入っています。
しかし、A2〜A12にすべてデータが入っているわけではなく、例えば　aa-01-斉藤.xlsの　A2には「バナナ」A3には「リンゴ」といったデータがありA4〜は空欄
aa-02-田中.xls　にはA2には「卵」といったデータがあり　A3〜は空欄です。
これらのデータを　まとめ.xls　といったファイル　にまとめる。
例としては　まとめ.xlsの　「集計シート」の　B1に　「バナナ」　B2に　「リンゴ」　B3に　「卵」　・・・　のように
それぞれのブックのA2〜A12までの入力されたデータのみを抽出したいのです。
＊データは上につめてありますので　A2とA4にデータがあってA3が空欄ということは無いです。
＊ファイルは50個程度あります。フォルダの移動はいくらでもできます。
＊まとめるデータは　aa-01　→　aa-02　→　といったように連番順にまとめたいです。
以上を実現する方法をご教授願います。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
以上が前回の質問でこれは解決したのですが

別に　 aa-1斉藤.xls　aa-2田中.xls・・・　aa-10小倉.xls　aa-11中村.xls aa-**(連番)**(名前).xls
というファイルの処理もしたい場合、どうすればいいのでしょうか？

Sub データをまとめる()
　Dim DataFolder As String
　Dim FileNameCounter As Integer
　Dim SourceRow As Integer
　Dim DestinationRow As Integer
　Dim FullPath As String
　Dim SourceFileName As String
　Dim Work
　Dim Matome As Workbook

　DataFolder = "c:\excel-data\"　'処理したいデータを一ヶ所に集めておく
　If Right(DataFolder, 1) <> "\" Then DataFolder = DataFolder + "\"

'まとめ.xlsを開く。ない場合は作る。
　Work = Dir(DataFolder & "まとめ.xls")
　If Work = "" Then
　　Set Matome = Workbooks.Add
　　Matome.SaveAs Filename:=DataFolder & "まとめ"
　Else
　　Workbooks.Open DataFolder & "まとめ.xls"
　End If

　FileNameCounter = 1
　DestinationRow = 1

Do
　　SourceFileName = Dir(DataFolder & "aa-" & Format(FileNameCounter, "00") & "*.xls")　'Excelのファイルを検索
　　If SourceFileName = "" Then
　　　ActiveWorkbook.Close SaveChanges:=True
　　　Exit Sub
　　End If

　　FullPath = DataFolder & SourceFileName

'データのコピー
　　For i = 2 To 12
　　　Work = ExecuteExcel4Macro("'" & DataFolder & "[" & SourceFileName & "]入力用シート'!R" & i & "C1")
　　　If Work = 0 Then Work = ""
　　　If Work = "" Then Exit For
　　　Cells(DestinationRow, 1) = Work
　　　DestinationRow = DestinationRow + 1
　　Next i

　　FileNameCounter = FileNameCounter + 1
　Loop

End Sub

>>126
番号順じゃないとダメ？

>>129
できればその方がいいのですが、番号順ではなくても大丈夫です。

>>130
あらかじめ「まとめ.xls」「集計シート」を作って元データと同じフォルダに保存しておくこと。
データフォルダの部分は自分の環境に合わせて書き換えること。フルパスで書くこと。

Sub aaaa()
　　ChDir "C:\excel-data"　　'データフォルダ指定 ←ここを書き換える

　　Workbooks.Open "まとめ.xls" 'まとめ先準備
　　Sheets("集計シート").Select
　　Range("B:B").Clear
　　Range("B1").Select

　　Dim S(99) As String
　　N = Dir("aa-" & i & "*.xls")　　　'aa-で始まるExcelファイルの一覧を取得して
　　While N <> ""
　　　　S(Val(Mid(N, 4, 2))) = N　　　'番号順に並べる
　　　　N = Dir()
　　Wend

　　For i = 1 To 99
　　　　If S(i) <> "" Then
　　　　　　Workbooks.Open S(i)　　 '開く
　　　　　　Sheets("入力用シート").Select
　　　　　　Range("A2", Range("A" & Rows().Count).End(xlUp)).Copy 'コピーする
　　　　　　ActiveWorkbook.Close
　　　　　　ActiveSheet.Paste　　'ペーストする
　　　　　　Range("B" & Rows().Count).End(xlUp).Offset(1, 0).Select
　　　　End If
　　Next i

　　ActiveWorkbook.Save　'まとめを保存
End Sub

ごめん。致命的ではないんだけど1行だけ修正

　　N = Dir("aa-*.xls")　　　'aa-で始まるExcelファイルの一覧を取得して

VBAよくしらないけど　ここはなにやってるの？

　　　　N = Dir()

上の行でN = Dir("aa-*.xls")でファイル一覧取得してるから重複なのでは。
と思ってN = Dir()削除したら無限ループだし。ふしぎ。

>>133
MS-DOS時代からの伝統(?)で、MS製のOSではファイルの一覧を二段階に分けて取得することになっている。
「最初の1つ」はN = Dir("aa-*.xls")で取り出すが、ワイルドカードで該当するファイルが2個以上ある時は、
2個目以降は「1個ずつ」N = Dir()で取り出すことになっている。
だからループの中にN = Dir()が入っている。

>>131
動作確認できました。ありがとうございます。
ちなみに
aa-1-1斉藤.xls　aa-1-2田中.xls・・・　aa-1-10小倉.xls　aa-1-11中村.xls
aa-2-1尾崎.xls　aa-2-2佐々木.xls・・・　aa-2-14田中.xls
aa-3-1西.xls　aa-3-2北.xls・・・　aa-3-13東xls　
・
・
・
aa-12-1南.xls　aa-12-2山口.xls・・・　aa-12-25広島.xls

といったように aa-**(連番)-**(連番)**(名前).xls
の場合は
　　Dim S(99) As String
　　N = Dir("aa-" & i & "*.xls")　　　'aa-で始まるExcelファイルの一覧を取得して
　　While N <> ""
　　　　S(Val(Mid(N, 4, 2))) = N　　　'番号順に並べる
　　　　N = Dir()
　　Wend

このあたりはどうなるでしょうか？

>>135
もしかして連番は日付？

>>136
aa-**(連番)-**(連番)**(名前).xls
　　　↑　月　　　↑　その月の1番目、2番目といった感じです。

じゃあ2番目の数字は99までなのね？

　　Dim S(12, 99) As String
　　N = Dir("aa-*.xls")　　　'aa-で始まるExcelファイルの一覧を取得
　　While N <> ""
　　　　S(Val(Mid(N, 4, 2)), Abs(Val(Mid(N, 6, 3)))) = N　'番号順に並べる
　　　　N = Dir()
　　Wend

　　For m = 1 To 12
　　　　For i = 1 To 99
　　　　　　If S(m, i) <> "" Then
　　　　　　　　Workbooks.Open S(m, i)　　'開く
以下略

俺の若い頃は、こんな贅沢な配列の使い方はできんかった。わざわざ1引いて0〜11にしてたなあ。
この程度のデータをExcelのシートに入れるのも激しくディスクの無駄だし。
恐ろしい時代になったもんだ。色んな意味で。

Dim S(, ) As String
略
For Each i In S
略

こう書けばメモリの無駄が防げる>>139

おっと失礼

Dim S(1 To 12, 1 To 99) As String

Option BaseはN-BASICにもあったから、ジジイなら知ってるよな

Excelの履歴書で「男」に○をつけたいのですが
どのようにすればいいのでしょうか？

>>142
オートシェイプ

マジサンクス！！
やっと就職できるぜ！

>>138
なるほど。大変参考になり、勉強になりました。ありがとうございます。

>>139
昔は職人技が冴えてたというか職人じゃないとあっというまにフリーズしてたな
PCが高性能になるのはいいんだが、ベタなコードを見てるとちょっとイラってしてしまう俺

ジジイは自分の知らない事はみんなイラっとくるからな

>>142
履歴書をExcelで作るような奴は採用したくないな…

こちらへ誘導されました。
すいません、お尋ねします。
いま、町内の組織表(シート1)を作りました、それから受付表(シート2)を造りました。
受付表に、=SUM(組織表!A10)で数値は移せるのですが、組織表の個人の名前が写せません
０表示になります。どうすれば組織表の個人の名前を連動して受付表に写せるでしょうか?
よろしくお願いします。

>149

=を入力後、該当シートの「個人の名前」セルを選択

>>150
ありがとうございます。
=組織表!A10でいけました。

【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 なるべく使用しない方法で

インターネットのホームページで入力手間を省く為にマウスでクリック
すれば入力したいものがいくつか表示され、その中から一つ選択すれば
キーボードで入力不要というものがありますが、エクセルでのやり方を
教えて下さい。

例）月曜日の「月」という文字を入力するためにキーボードでの入力を
省略したいために、マウスでクリックすると「日、月、火、水、木、金、土」
が表示されてその中の「月」をマウスで選択すればキーボードで入力不要
ということをしたい。

>>152
こういうの？
ttp://office.microsoft.com/ja-jp/excel/HP100725991041.aspx

>>151
でーた　入力規則　設定の中に入力値の種類、リストを選択
バージョンによって多少変わるかもしれないけど

>>153
どうもありがとうございます。

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

セルの中にアルファベット（大小）、数字、記号の一部など、
ASCIIコードの&h00〜&H7F以外の文字が含まれているか
どうかを検証したいのですが、何か良い命令か方法はない
でしょうか？

自分の知識では下記で手一杯なのですがもっと間単な
方式があれば教えてください。
ちなみに下記はカウントしていますがカウントは不要です。

mytext = Range("A1").Value
mycnt = 0
For i = 1 To Len(mytext)
mycode = Asc(Left(mytext, 1))
mytext = Right(mytext, Len(mytext) - 1)
If 0 < mycode And mycode < 127 Then mycnt = mycnt + 1
Next i
Range("A2").Value = mycnt

数万のセルを検証するループ中で使用しますので処理時間を
早くしたいと思っております。

よろしくお願いします。

補足

最初はLenとLenBを比較していましたが半角カタナカに対応
出来ませんでした。

>>156
やりたいことがよくわからんな。

まず、調べたい文字の種類がわからん。
たとえば文字コード&h00は「ヌル文字」といって、画面には表示されない特別な意味を持つ文字だ。
これをアルファベットや数字と同列に扱うの？

さらに、例示されたプログラムを見ると「0 <」「< 127」という条件で判定しているが、これでは
前半の説明と矛盾しているので、結局何がやりたいのかがわからん。

あと、含まれていたら、または、含まれていなかったらどうするの？結果をどうやって返すの？
判定は文字単位？セル単位？シート単位？

そこらへん、もうちょっと詳しく書いて。

もひとつ。半角カタカナをどうしたいのかもわからんぞ。
アルファベットや数字などの仲間に含むのか、除外したいのか。

正規表現調べてみればいいんじゃね？
wshかvbsだったかな？

>158氏

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

>まず、調べたい文字の種類がわからん。

基本はASCIIコードの&h00〜&H7Fです。
コントロールコードは絶対に存在しないのでどっちでも良いです。
（自分専用の変換ツールです）

>前半の説明と矛盾しているので、結局何がやりたいのかがわからん。

対象はASCIIコードの0(&H00)〜127(&H7F)です。
あるかないかを調べたいので条件内を調べようが条件外を調べようが
どちらでもかまいません。矛盾してますか？？

>あと、含まれていたら、または、含まれていなかったらどうするの？結果をどうやって返すの？
>判定は文字単位？セル単位？シート単位？

何でもよいです。
検証方法さえ教えていただければ細工します。

>>161
0 < … < 127
じゃなくて
0 <= … <= 127
じゃないとおかしいって言いたいんでない？

>>161
いやだから、含む、または含まない文字コードの範囲を厳密に決めた方が、たいてい高速に判定できるんだってば。
どの関数とかじゃなくてアルゴリズムの問題だから。
文字列の中に&h20〜&h7eの半角文字が1文字でも含まれているかどうかを調べる、ってことでいいの？

>159氏

半角カタカナは&H7Fより大きいので除外です。

>160氏

ありがとうございます。
正規表現でググったらそれっぽい説明がありました。
ちょっと？ですが解読してみます。

>162氏

なるほど、誤記でした。
どっちでも良いです。

逆に、確実に除外したい文字のコードの範囲を書いた方が速いかもよ

>163氏
>文字列の中に&h20〜&h7eの半角文字が1文字でも含まれているかどうかを調べる、ってことでいいの？

その辺もどちらでもいいんです。
実際には逆(全文字が範囲内であること）を行いたいのですが、
それなりに応用して使用します。

範囲も&h20よりも（<&h20は存在しないので）&h00の方が
やりやすいのではと思っただけですので&h20でもかまいません。

１文字づつ切り出さなくてもINSTR命令みたいなモンで検証する
方法がないかを伺っております。

>>166
「全文字が範囲内であること」よりも「1文字でも範囲外の物があるかどうか」を調べた方がたぶん速いよ
こんな感じで一覧表を書いて↓

00〜20 どっちでもいい(ないことがわかっている)
21〜7e 含む
7f どっちでもいい
80〜ff あったら困る

>>166
正規表現使うとこんなかな。速度は自分で比べてみて。

Dim str
With CreateObject("VBScript.RegExp")
　.Pattern = "^[ -~]+$" '←ここ適当に変えて
　.Global = True
　For Each r In ActiveSheet.UsedRange
　　If .Test(r.Value) Then str = str + r.Address & vbCrLf
　Next
End With
If Len(str) = 0 Then str = "ありませんでした"
MsgBox str

>168氏

ちょうどhttp://officetanaka.net/excel/vba/tips/tips38.htmを
見ておりました。
自動記録の細工程度しか脳がないのでまだ？状態ですが
応用させていただきます。

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

ってか、コレくらいのことはInstrとかStrcnvとかでできるんじ
ゃないかと思って質問させていただきましたが、それほど簡
単な内容ではないみたいですね。
ご協力いただいた方、ありがとうございました。

遅かったか… せっかく作ったので貼り

Function MojiCheck(s As String) As Boolean
　　With CreateObject("VBScript.RegExp")
　　　　.Pattern = "^[!-~]*$"
　　　　MojiCheck = .test(s)
　　End With
End Function

>170氏

お手数をおかけしました(^^)
ありがとうございました。

>>156
質問の意図とは違っちゃうと思うけど、可視文字かどうかを判別したいだけなら
CLEAN関数で不可視文字を削除した文字列と元の文字列を比較すればいいんじゃないかな。

スレ読み返したけどやっぱ全然違うよなｗスレ汚しｽﾏｿ

さらにいくつか作って試してみたけど、>>170よりこっちのが少し速い。
もちろん>>170はそのままじゃなくて、オブジェクトの生成とパターンのセットを事前にやっておいて、
純粋にパターンマッチングだけの時間で比較した場合の話。

Function MojiCheck3(s As String) As Boolean
　Dim c As Byte
　For i = 2 To LenB(s) Step 2
　　c = c Or AscB(MidB(s, i, 1))
　Next i
　MojiCheck3 = c = 0
End Function

VBA厨ヒマそうだな

>174氏

今はVBScript.RegExpと格闘しておりますので
それなりに吸収できたら試してみます。

色々と検証いただき、ありがとうございました。

【1 OSの種類 　 　 　 　 .】 MacOS9
【2 Excelのバージョン 　 】 Excel98
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 矢印　excel 勝手にでる

エクセルデータからの流し込み作業をしているのですが、
データのメールアドレスの行の、メアドの後ろに、勝手に矢印
（→向きで、先がくるっと回ってる感じ）のものが入ってしまい、
困っています。
すべて消去して、上書き保存したにもかかわらず、また入っていたりします。
ファイル形式は普通にxlsです。
症状に心あたりある方がおりましたら、ご助力お願いします。

追記：すべてのメアドの後ろにつくわけではなく、
ところどころにあります。
メアドが最も右端の行になるのですが・・・

>>177
Windowsで作ったCSVを読み込んだ？

>>177
エクセルから「何に」流し込んでんの？

縦に２つのセルを結合させないまま
その中央に文字を表示させる事は可能でしょうか？

ちなみに横２つの場合は
セルの書式設定で、選択範囲内で中央を選択してできました。

よろしくお願いします。

>>181
無理
テキストボックス使え

>>182
了解です
ありがとうございました！！！

>>179
読んだのはあくまでxslファイルです。

>>180
Quarkです。ですが、エクセルの時点で症状がでてしまいます。

CRLFくさいなあ
xlsファイルはmacで作ったのかwinで作ったのか
改行コードが違うから変な表示になってんじゃない？

なるほど・・・
確かにexcelファイルは、Winで作られ、支給されてきたのもなのです。
改行が関係していそうな記号（矢印）なので、
確かにその可能性は高そうですね。
そうなるとmacでの作業を前提とした場合解決は難しいでしょうか・・・

改行コードを取り除けばいいじゃない

>>187
>すべて消去して、上書き保存したにもかかわらず、また入っていたりします。
>ファイル形式は普通にxlsです。
だそうだ。CSVかと思ってたんだがなぁ・・
>>177
メアドがA1に入ってるとすると、B1辺りに=CLEAN(A1)
でも消えない？
消えるならこれで値でコピーすれば解決と思うんだけど

excelで６月１２日と６月１３日を合計すると１１月２５日になるのはなぜ？

excelで６月１２日と６月１３日を合計すると１１月２５日になるのはなぜ？

>>189
シリアル値で計算するから

>>190
シリアル値で計算するから

>>191
　　　　　　＿,,../⌒i
　　　　 ／　　 {_ｿ'_ヲ,
　　　 /　　　`'(_t＿,__〕　　>>ｸﾞｯｼﾞｮﾌﾞ!!
　　　/　　　　 ｛_i＿,__〕
　 ／　　　 ノ　 {_i＿_〉
／　　　　　　＿,..-'"
　　　　　　／

>>189
6月12日は5ヵ月と12日、6月13日は5ヵ月と13日
足すと10ヵ月と25日、すなわち11月25日だから

1900年も忘れないであげて

>>191->>194
こんなくだらない質問にお答え頂きありがとうございました。
とても分かりやすく勉強になりました。

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

図形のあるシートで、縦の列で印刷範囲を設定すると、図形が見えなくなります。
印刷範囲の設定をクリアしたり、行と列で印刷範囲を設定すれば、図形が見えるようになります。
列で印刷範囲を設定し、図形が見えなくならない方法がないでしょうか？

>>196
2003だと印刷範囲内に入ってれば消えないし普通に印刷できるんだけど・・

>>197
図形は、画面で見えなくなりますが、存在はしています。
印刷すると、ちゃんと印刷されます。
Excel 2000、2003では、こんなことはありませんでした。
縦に伸びていくページでは、印刷範囲を列で指定しますよね。
みなさん、このような問題はないのでしょうか。

>>198
範囲指定せずにシート全体を印刷した場合はどうなりますか？

>>198
みつけた。これか。
ttp://support.microsoft.com/kb/944042/ja

修正プログラムで直るそうだ。

1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 ほんの少々
【4 VBAでの回答の可否】 できればVBA以外で

A2以下の文字数が４文字のデータだけE列のE2以下に取り出したいのですがどうしたらいいですか？

>>124
つまりは全てのレコードに20バイト分の領域を
確保するということでいいのですよね？
処理としては
2222,3333,14,"　　　　　　　　　　"　 ←（分かり易く括弧ついているが実際は無し）
↓　　　　　　　↑20バイト
を用意して、
「更新中,」を書き込む
↓
2222,3333,14,"更新中,　　　 　　　"
↓　　　　　　　↑20バイト
とすることで、要素を区切る。


仮に
2222,3333,14,"12345678901234567890"
↓　　　　　　　↑20バイト
のようなデータがあっても、

2222,3333,14,"更新中,8901234567890"
↓　　　　　　　↑20バイト
とし、"8901234567890"を処理で無視する
ことで、必要な「2222,3333,14,更新中,」を
過去のデータに依存せず取り出す事が
できる、と。

なんか勘違いしてますか？

>201

=IF(LEN(A2)=4,A2,"")

４文字が半角４文字相当ならLENB

>>203
私の書き方が悪かったですね。
C2以下に詰めて抽出したいのです。

関数で詰めて抽出というのはかなりしんどい
オートフィルタ使うといい

しんどい以前にエクセル関数で他セルへの出力はできない

>>204
201　＞E列のE2以下に取り出したいのですが
204　＞C2以下に詰めて抽出したいのです。

書き方が悪いっていうと、どちらでも取れるような表現とか
誤解を招きやすい表現だと思うが・･･･問題外だろこれ

考えすぎだと思うよ。
E列かC列に結果が表示されるように関数を入れたいんでしょ。
単なるタイプミスじゃないの？

時間がないので詰める直前まで。あとは誰かよろしく。
ttp://kissho.xii.jp/1/src/1jyou39477.png

>>201
4文字の物だけを詰めて取り出す
ttp://www1.axfc.net/uploader/He/so/113501.xls&key=excel

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

パーセントの表示で一定の数値以下（以上）の数値の色が変えられないでしょうか？

例えば、目標の１００％（この数値は毎月変わる）という数値を
どこかのセルに入力しておいて、その数値より低い場合は赤色で表示して
超えている場合は青色で表示することは可能でしょうか？

↑この場合だと　９０％だったら赤で表示　１１５％なら青で表示

宜しくお願い致します。

>210

条件付書式の設定

[Alt]+[O]→[D]

大変勉強になりました、ありがとうございす。

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

EXCELで行列の1/ｎ乗はどうすればよいでしょうか？
関数POWERで行なって数値が出てきたのですが、
間違いなく数値がちがっていて…。

宜しくお願いします

>>213
質問が良く分からんが
二の三乗分の一
=1/2^3
列*列
=ROW()^ROW()
行*行
=COLUMN()^COLUMN()

列や行と組み合わせたければ数字のところにrowなど置き換えればよろし

>214
質問が分かりにくく申し訳ないです。
Aという行列があるとすると
A＾（1/6）といったことをやりたいのですが…。

宜しくお願いします。

>>215
数学の行列を計算したいって事なら
計算の定義を詳しく書いた方がいいんじゃないかなあ
ここでは数学の専門的な知識まで持ってる人少ないと思うから（俺も分からんけど）

>216

なるほど…、もっともな話です。
ちょっと数学板のほうで聞いてみます。
エクセル上でやるとなった段階でまたお尋ねするかもしれませんが、
そのときはまたよろしくお願いします。

>>200
ありがとうございます。これで解決できそうです。
Microsoft Updateしていたんですが、この修正プログラムは入らないようです。

【犯罪告発】　吊り上げ疑惑の荒稼ぎストアに電凸しました　【ヤフオクの闇】

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

標準正規分布の密度関数・累積分布関数のグラフを作成する
グラフは−３．５〜３．５の範囲で作成すること。台形の面積を求めるきざみ幅は０．０１にする。
正規分布表を作成する
これは０．００〜３．４９まで作成する。

ただし、これらの計算を行う際には、Ｅｘｃｅｌに用意されている関数のうち以下のものを使用しない
* normdist
* norminv
* normsdist
* normsinv
* lognormdist


無理です・・・
意味すらわからない

よくわかんない積分のグラフ？みたいなのと
表が４つ与えられているんですけど
もうどうしよう

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
マクロを使っているファイルを開けると
「addinクラスのinstalledプロパティを設定できません」
とメッセージが表示され、計算が正しくされません。
マクロの知識は一切ありません。我が家の3台のPC（いずれもExcel2003）
で見ても同じ状態です。エラーとしていろんなセルが「NAME」と出ます。
いつの間にかこのような症状になってますが、元通り計算ができるようにするにはどうしたら良いのでしょうか？

>>220
宿題は自分でやったほうがいいと思うけど、それらの関数の変わりにその表を使って計算するのだろう？
何で表を隠すんだ？

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
職場でエクセルで計算式を作っているのですが、私には複雑で上手くできません。
マクロは2年ほど前にちょっとだけ触れましたが、ほとんど覚えていません…
皆様にご指導いただければと思います。
行いたい計算は、

１、7桁の数字列の各桁に、1桁から順に、「２、１、２、１…」と乗じていく。
例）「１２３４５６７」だとしたら、７×２、６×１、５×２…
２、１で出した各桁の値の和を求める。ただし2桁の数になる場合は、その数の1桁と2桁の
和とする。
例）上の例の続きで行うと、（１＋４）＋６＋（１＋０）…
３、2で出した和の1桁の数字を１０から引く
例）５６だとしたら、１０−６＝４

このような計算を行いたいと思っています。
手作業で計算しているので、膨大な時間が掛かっており、少しでも簡略化できればと思っています。
分かりにくい質問で申し訳ありませんが、どうぞよろしくお願いします。

>223

簡単だが説明するのがめんどくさい。

1.MID関数で一桁づつ分解して２なり１をかけて各桁を計算する。
2.1の計算結果を.=rounddown(n/10,0)+mod(n,10)で10位と1位の和を得る。
3.2の計算結果を=10-mod(n,10)

こんなところか？

変態的手法を考えてみた
=10-MOD(SUMPRODUCT(MID(A1,{2,4,6},1)*1)+SUMPRODUCT(MOD(ROUND(2.1*MID(A1,{1,3,5,7},1)*1,0),10)),10)

オッサンのオナニー勘弁してくれ

>>223
バーコードのチェックサムがよく似た式だったな。あっちは1つ置きに3を掛けてたけど。

Function keisan(N As Long) As Byte
　For i = 1 To 7
　　w = Mid(N, i, 1) * (1 + i Mod 2)
　　c = c + w \ 10 + w Mod 10
　Next i
　keisan = 10 - c Mod 10
End Function

エクセルのグラフをワードに
貼り付けて、90度回転させようとしてもできません。
ボタンがあるのですが、押しても回転してくれません
どうすればいいでしょうか

>>221
会社で作った資料を持ち帰ったのでしょうか？
そのファイルを作成したパソコンに入っているのと同じ「アドイン」を自宅のパソコンにもインストールしないとだめですね。

>>228
形式を選択して貼り付けで画像として貼り付けるんだハゲ

229さん、ありがとうございます。
ホントに素人で、その「アドイン」とは何でしょうか？
どうしたらｲﾝｽﾄｰﾙできるか御教授いたでけますでしょうか。

>>231
アドインというのはExcelに関数やいろいろな機能を追加するためのソフトで種類がたくさんありますし
自分で作ることも出来ます。
どんなアドインが必要かは、元のパソコンを調べるしかありませんから、そのファイルを今夜のうちに
開くことはたぶん不可能です。

アドインはExcelの追加機能だよ
ケータイのデコシールとかと同じ感じで個人で追加する機能
だからもう追加してないPCで動いたファイルでも、追加してないPCじゃ動かない場合もある
アドインいるかどうかは、そのExcelのファイル作った人に聞くのが一番
つーか他の人じゃ分からん。聞かれても知らん

難しいのですね。
自分のPCで以前まで動いていたのですが、コピーして別の数字を入れようと
元のファイルを開けたらエラーメッセージが出てきたんです。
付録に付いていたエクセルファイルを自分で加工（と言っても見栄え程度）した
ものを再度使おうとしてただけなんです。
officeはアップデートした覚えがありますが、そんなので影響が出る場合もありますか？

>>234
ファイルが破損してるか、何か別のファイルとセットでコピーしなくちゃいけないのか、
考えられる要員は色々あるけど。
ウィルスのチェックはちゃんとやってる？

お世話になります。教えてください。

ExcelのVBAにて、double型の変数に、その変数が許容する、
正の最大値、又は、負の最大値を設定したいです。
double_maxのような特別な変数か、最大値を設定するメソッドありましたら、教えてください。

>>236
負の最大値？最小値？
そういう関数や定数はたぶんないと思う。
環境と型が決まっているなら、資料を見て自分で作るといいんじゃないかな。
ここに最大値と最小値が具体的に書いてある。
ttp://msdn.microsoft.com/ja-jp/library/cc344089.aspx

>>221
ツール、アドインで全てにチェック入れてok
分析ツール辺りツカッテルと思う

それでも動かない場合はオリジナルのアドインだろうから、
会社から持ってくるしかない

>>221
#NAME?エラーの表示されてるセルの式ではどんな関数を使ってる？

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可（VBAを使わなくてもいいのであれば否で）
【5 検索キーワード 　 　 】 excel エクセル ヘッダー フッター 印刷

一つのフォルダにたくさんのエクセルファイルがあり、全てのファイルを左下フッターに
現在開いているファイル名（拡張子有り）で印刷したい場合はどうすればいいのでしょうか？

一つのファイルが１シートだったり30シートだったりします。
２万ファイルあり、現在一個ずつ手作業で入れています；；
お忙しい所申し訳ありませんがご伝授お願いいたします。

>>240
ちゃんと動くかどうかチェックしてないから、テスト用のフォルダを作って実験してみて。

Sub 全ファイル全シート印刷()
　　ChDir ("C:\フォルダ\エクセルデータ")　 ' フォルダ指定
　　N = Dir("*.xls")
　　While N <> ""
　　　　For Each S In Worksheets
　　　　　　S.Activate
　　　　　　ActiveSheet.PageSetup.LeftFooter = N　 ' フッタ左にファイル名設定
　　　　　　ActiveSheet.PrintOut
　　　　Next
　　　　N = Dir()
　　Wend
End Sub

ごめん。いきなり大ポカやってた

Sub 全ファイル全シート印刷()
　　ChDir ("C:\フォルダ\エクセルデータ")　 ' フォルダ指定
　　N = Dir("*.xls")
　　While N <> ""
　　　　Workbooks.Open N
　　　　For Each S In Worksheets
　　　　　　S.Activate
　　　　　　ActiveSheet.PageSetup.LeftFooter = N　 ' フッタ左にファイル名設定
　　　　　　ActiveSheet.PrintOut
　　　　Next
　　　　ActiveWorkbook.Close
　　　　N = Dir()
　　Wend
End Sub

チェックはしてあげたほうがいいんじゃないの

>>241
>>242
ありがとうございます。動作確認できました。非常に助かります！
もう一点だけよろしいでしょうか？「保存をする」の窓を出ないようにするには
できないでしょうか？保存なしで実行したいのですが・・・。

221です。皆様ありがとうございました！
訳はわかりませんが、ツール→アドインで全てにチェックをしたら、
計算が進みました。
なぜエラーが出るようになったかわかりませんが、今のところ解決しました。

紙切れに注意
200枚ぐらいしかセットできないプリンターだと軽く200回は補充しなきゃならん計算だな。
これだけでも気が遠くなるわ…

>>244
これでよかったかな

ActiveWorkbook.Close
　　　　↓修正
ActiveWorkbook.Close SaveChanges:=False

>>243
自分の部屋にプリンターなくて。出力室まで行くのがめどい。

>>247
まじで神様だ・・・。
本当にありがとうございました。助かりました。

2万ファイル印刷ってどんな嫌がらせだw
そんないっぺんに出力してもチェックできんだろうに。
あんまり簡単にやり遂げちゃうと、なんかまた別の無理難題を押しつけられそう。

紙足りなさそう・・
20,000ページとしても4箱いるよな

今までで最大50シートあったこともありました・・・。

1シートが1枚に収まるとも限らないし。
シート名やページ番号も印刷しとかないと、うっかりプリントアウトの束をひっくり返したら終わりだぞ。

>>252
指示ではシート名とページ番号はいらないみたいなんです。
ご忠告ありがとうございます。

その書類の厚みだけで1M以上の高さになるんだが・・
まぁ他所の会社だから口出しは出来ないが、なぜかドキドキするぜ

マンガでよくあるよな。
手に持った書類の山で前が見えないの。
ぶつかったイケメン社員と恋の予感。

あの…僕男なんですが…

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

印刷を実行しても印刷しない方法はありますか?

シートが二つあり、入力用と出力用と用途を分けているのですが、
誤って入力用シートで印刷してしまうことが多々あり、
紙がもったいないので是非防ぎたいのですが・・
今は隅のほうのセルにだけ印刷範囲を設定していますが、
プリンターを通してしまうとどうしても黒い点が残ってしまうので
印刷自体防ぐ方法があればと思い質問しました。宜しくお願いします。

VBA使う以外あるわけないだろ

オートシェープで使用する○とかデフォルトで塗りつぶしを透明にする方法を教えてください。
Windowsxp　Excel2003

解決しました

>>257
解決とまではいかないが、うちで不慣れなジジイ達用に
エクセルのアイコン設定を変えている。
つまり、プリンターのアイコンを「ボタンの表示/非表示」で
消して印刷プレビューのみにしてる。
こうすると必ずプレビューで確認することになるので、
多少はミスプリントが減るようだ。

素直にVBA仕込んどいた方が簡単だと思うぞ。
どのシートを開いた状態でも出力用シートを印刷とかできるから。

どっちが簡単かっていったらあきらかに>>261だろ
入力用と出力用でシートの背景の色を変えておくというのもよく使う手だ

簡単だけど確実じゃないよね。
慣れてくるとプレビューの画面をよく確認せずに機械的に続けて印刷ボタンを押すようになっちゃうから。

あるあるw

ダイアログが出たらメッセージはよく読めって言ってんのに、何も考えずに脊髄反射でOK押しちゃうやつの多いこと

ありがとうございます
>>261のさんの方法試して見ます
無理ならVBもちょっとかじったことあるので勉強してみます

>>264
一見そう思うだろうけど、実際にはその逆なんだ。
はじめは、よく確認もせず印刷しちゃうんだけど、ミスプリントという結果が付いて回るから、
やがてプレビューのチェックをちゃんとする様になってくるんだ。

確かに完全にミスプリントを防げるわけじゃないけど
本人の自覚を向上させるほうが結果的に良いだろ。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　データ　重複　-フィルタオプション

GARNETの２年目弁護士日記
GARNETの２年目弁護士日記

EU労働法政策雑記帳
EU労働法政策雑記帳

Binwa Diary
Binwa Diary

と言うデータがあるのですが
上2つは、フィルタオプション-重複するレコードは無視する
にしても、1つになりません。
一番下のデータは、フィルタオプション-重複するレコードは無視する
にすると、1つになります。
この違いはどこにあるのでしょうか。
また、３つとも、一つのデータにするにはどうしたらよいのでしょうか。
よろしくお願いします。

>>268
文字列の後ろにスペースの数が違うので同じにするかどうにかすればいいです

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


エクセルのファイルAとBがあります。
ファイルA、Bには1番から連番が振られているのですが、
ファイルBのX番を切り取ってファイルAに貼り付けるみたいなことは
VBAでできますか？
できるならVBAのコード教えて

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】
エクセル　グラフ　無料
エクセル　チャート
エクセル　グラフ　きれい



時系列データをグラフで表す必要があるんですが、質問させてください。

普通のデータを入力し、範囲をドラッグしてグラフ作成ボタンを押して作成したグラフだと安っぽいというか、あまりキレイじゃないので、これをキレイに作りたいんですが、何か方法はありますか？


どこかのサイトから作成された見栄えの良いものをダウンロードし、データだけ入力しなおすというものがあれば教えていただきたいです。
最終的にパワーポイントに貼り付ける予定なので、パワポのサイトでもかまいません。
パワーポイントのリソースとしてはプリントアウトファクトリーを使っているので、あんな感じのものを希望します。




サイトがなくても、キレイな見栄えの良いグラフを作る方法でもかまいません。


どなたかお願いします。

>>271

1. Excel2007にアップデートする。
2. デザインタブの「グラフのスタイル」から好きなのを選ぶ。

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

=IF(F4=6C2,"○","×")
と入力するとエラーが出てしまいます？？？
　「6C2」のような数列は使えないのでしょうか？
解決策あったらお願いします。

>>273
6C2って何を意図してるの。
組み合わせ?

商品の製造コードです

>>273
数列じゃなくて文字列。決め付けないように
=IF(F4="6C2","○","×")

>>270
ファイルを開いてセルを指定してカット&ペーストはこんな感じ

Workbooks.Open "ファイルB.xls"
Range("A1:A10").Cut

Workbooks.Open "ファイルA.xls"
Range("B1").Select
ActiveSheet.Paste

ROUND関数は納得できない。
ROUND(1234.567,2)→1234.57になるが
普通小数点以下第2位で四捨五入するものと勘違いしてしまう。
本来は1234.6になるべき
1234.6を求めるにはROUND(1234.567,1)とせねばならない。
これはROUND関数をわざわざ四捨五入して小数第(引数2)位まで求めよと読み変えなければならない

まったく不満だ。

>>278
カチンコチンだね、やわらか頭になんな！

>>278
小数点以下第2位「までになるように」四捨五入する
というのがアメリカ人の感覚らしい
諦めれ

>>280
私はそっちの方が感覚に合うな。
どっちにせよ>>278は本質的でないことに不満をもっている。

もっと大きい問題は日本人が未だに数字を３桁区切りにしていることだな。
なんで誰も４桁にしようって言い出さないの？

釣りは程々に・・

？？？？？？？？？？？？？？毎日新聞社による日本人女性への誹謗中傷？？？？？？？？？？？？？？

・母親は受験勉強をする息子の学力向上のためにフェラチオをする
・日本人女性の55％は、出会ったその日に男と寝る
・ファストフードは女子高生たちを性的狂乱状態におとしいれる
・ティーンたちはバイアグラを使ってウサギのようにセックスをする
・女子高生は、刺激のためにノーブラ・ノーパンになる
・日本の最新の流行 : 70歳の売春婦
・老人の売春婦の人気にもかかわらず、日本では小学生の売春婦にも仕事がある
・日本の若い看護婦は売春婦に勝る
・２４時間オルガズムが止まらない病気で苦しむ日本人女性の数が増えている
・15未満の子供を対象とした疑似ポルノが日本に蔓延している
・OLの72％が、セックスをより堪能するために何らかのトレーニングを受けている
・人妻は気分転換の目的で昔の恋人に抱かれに行く
・主婦は郊外のコイン・シャワーで売春をしている
・日本男子は柔道や空手の部活で男相手に童貞を捨てている
・ほとんどすべての漁師は海でマンタとSEXしている
・まだ10代の少年から退職した老人までみんな2980円の手コキを利用している
・六本木のあるレストランでは、食事の前にその材料となる動物と獣姦する

※同社が全年齢向けコーナーで七年以上にわたり世界に向けて配信していたものの一部です
※同社の行為は日本人への偏見や人種差別、婦女暴行、幼児虐待を助長するものです

◆毎日新聞の英語版サイトがひどすぎる　まとめ＠wiki
　http://www9.atwiki.jp/mainichiwaiwai/
◆毎日新聞問題の情報集積wiki
　http://www8.atwiki.jp/mainichi-matome/

つまり日本国民は
http://www.vipper.net/vip552788.jpg

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel　勤怠　小数点以下　切り捨て

出退勤の管理表を作ろうとしています。
うちのローカルルールで、退勤時間が
0分〜7分　→0分
8分〜22分 →15分
23分〜37分→30分
38分〜52分→45分
53分以上　→切り上げ
(例えば18時37分に退勤した場合、給与計算に反映される退勤時間は18時30分となる）

上記のように退勤時間をいい感じに切り捨て・切り上げしたいのですが
どうしたらいいでしょうか。

０−５９のテーブルを作ってVLOOKUP()で参照

>>285
A1に実際の時刻が入っているとして、15分単位で四捨五入する式はこう。
=FLOOR(A1+"0:07:15","0:15")

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

Excel2007で、シートの右端に「ワークシートの挿入」ボタンが表示される
ようになりましたが、これって非表示にできないでしょうか？

　　　人生は自分で切り拓け　　　現状に甘えない
　　　　　　 　／￣￣￣＼　　何もやらなかった、今までの自分
向　　　　　／＼　 　 ／　＼　　　　　両親へ、感謝の気持ち
上　　　 ／　 <●> 　<●>　 ＼　未
心　　　|　　　　（__人__）　　　　|　来　　人生をあきらめない
　　　　 ＼　　　　`ー'´　　　 ／　 へ　常に自分を鍛える
　　　　／ 　 　　　　　 　 　 ＼
＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿／
　　 　Ｏ　　　　　 .＿＿
　　　　ｏ 。 n_　／ -　-＼
　　　　　　 (_／ （●　●）＼ 　＜寝る前にこんな決意してたけど
　　　　 　　（　::::　(_人_)　::: ）　　　朝おきたら元に戻ってたお
　　　　　　　ヽ　　　ヽﾉ　 　ヽ
　　　　　　　　l 　 　 　　 　l､_つ
　　　　　　　　|　　　x　　　|

>>287
FLOOR使うと小数の誤差で正確に計算されない場合がある
>>286のほうが良いよ

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

Rangeオブジェクトを値渡しで直接他のRangeにCopyできないでしょうか。
Rangeオブジェクト1.Copyとするとクリップボードに貼りつき
Rangeオブジェクト2.PasteSpesial xlPasteValues :Paste=xlPasteValues
とするとクリップボードの値が貼りつきますが
Rangeオブジェクト1.Copy（Rangeオブジェクト2）
のような形式でうまく値だけ貼り付けることはできませんか。

>>290
15秒足してるところがミソ

>>291
例) クリップボードを使わずにA1:A3をB1:B3にコピーするには

Sub aaa()
　　Range("A1:A3").Copy Range("B1:B3")
End Sub

>>293
ご回答ありがとうございます。
その方式で昨日もやっていましたが
コピー元のセルに=cell2!A4 というような参照式があれば
参照式としてコピーされ、そのうち異常終了するように
なってしまったんです。

クリップボードの中身を書き換えたくないなら変数を経由するとか

よくわからんが
range("A1").value = range("B1").value 'formulaでもtextでも好きなのどーぞ
で済む話？

>>292
そこまで見てなかった。細かいな

アホな質問なんですが

　　　食費　　雑費　　家賃
A1　　100　　　200　　　300
・　　　100　　　100　　　100
・
・
計　　200　　　300　　　400

みたいな表があって円グラフで一月の合計額を表示させたいのですが
グラフ作成をやってもうまく作れないっす。。どこまでを選択したらよいものか
よくわかりません。
単純に　項目（食費、雑費など）を選択して合計額の部分だけ選択すればよいものかと
おもってたのですがうまく表示できないです。

誰かご指南をよろしくお願いします。


　　　

>>298
8行目が合計とすると
データ範囲で
=Sheet1!$A$1:$C$1,Sheet1!$A$8:$C$8
って感じ

>>296
Rangeオブジェクト2.value = Rangeオブジェクト1.value　ですか、
試してみます。

ここって自分で質問して自分で回答してる人いるよね　昔から

どのスレにもいるよ。気にしない

「自己解決しました」よりいいんじゃね

困っています
Excel2007にアップグレードしたのですが、均等割付がめんどくさいです
前までのはボタン一つで出来てたのに、2007は三手間ほど掛かってしまいます
ボタン一つで出来る方法はないでしょうか？
XPです。VBAってのはちょっとわからないです。

自己解決しました。

>>305
ちょwww 70秒で自己解決wwwwwwww

2003以前もデフォルト設定じゃ均等割り付けのボタンは出てないし。ツールバーをカスタマイズしないと。

>>307
そうでしたか
いちおうツールバーもいじってみたんですが…どないもなりません

もしかして305は偽物？

気づけよｗ

>>308
Officeボタンの右上にあるフロッピーディスクのアイコンを右クリック→
クイックアクセスツールバーのカスタマイズ→左ペインの「ユーザー設定」→
コマンドの選択から「リボンにないコマンド」を選んで、その下のリストの上から2/3あたりにある
「均等割り付け」をクリックして「追加」ボタンを押してOK

これで均等割り付けボタンがクイックアクセスツールバーに追加される

>>311
うおおおお
できました
ありがとうございます

>>288
VSTOあたりを使えばできそうな気もするけどできないかもしれない
タブのIdは固定だと思うんで、最悪プロパティを書き換えればたぶん消せる

>>269
お答えありがとうございます。
半角スペース1文字が入っていたので
関数使って消去しました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007・2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　データ　リンク　変更　異動　なんか変

検索ワードが思いつかないです。アドバイスｷﾎﾞﾝﾇ。


デスクトップに、仕事\やる仕事\やな仕事\超やなプロジェクトというような（捨てたので良く覚えていません）、フォルダを作り、
その中にブックAと、ブックB（ブックAのデータを参照するブック）を作りました。

プロジェクト終了後、
ブックAとブックBを新規フォルダにまとめて、マイドキュメント\仕事\終わった仕事フォルダにいれました。


後日ブックAを開くと、数字はみれるのですが、
ブックBへの大量のリンクが切れているといいますか・・・リンクの更新が出来ません。

セルの場合、行を挿入すると参照していた所がその分自動で動いていたのですが、
外部へのリンクは手作業で書き換えないといけないのでしょうか？
変更箇所が1000とか2000ではすまないので、困っておりますorz
しかも、やな仕事\超やな仕事というリンク先の名前・・・部下にやってもらう訳にも行かずorz
どうか解決策を教えてくださいまし・・・。

後日ブックBを開くと、数字はみれるのですが、
ブックAへの大量のリンクが切れているといいますか・・・リンクの更新が出来ません。

済みません、↑AとB逆でした。

>>316
置換を使うといい
範囲選択後CTRL+H。

>>317
レストンクス！
置き換えですか、そう言えば検索の枠の裏に置換タブが出てきたような・・・。
フォルダ名の所を置き換えるという事ですね。

(;｀･ω･´)だいぶﾏﾝﾄﾞｸｻｻが軽減されました。ありがとうございました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 別のセルを参照　条件付き書式

左のセルを参照して、右のセルの書式を設定した表を作ろうとしています。
具体的には左に○が入力されていたら、右の文字色を変えるという内容です。

書式を設定したいセルを全て選択して
「条件付き書式」で「数式が」「=R2C1="○"」「設定したい文字色」
と設定しようろしても、○以外のデータが入力されているものも文字色が変わってしまいます。
（R2C1は左のセルの先頭です）

どうすれば別のセルを参照して条件付き書式を設定できるのでしょうか。

>>319
R1C1形式でやってんの？そうでなければ数式は=A2="○"でいいんだよ。
別のセルにコピーすれば、条件の数式のセル名も自動的に変わるよ。

R1C1形式なら「左のセル」を参照する式は=RC[-1]="○"

A1形式はデフォルトが相対参照、絶対参照にするには$A$1のように、記号を付けて区別する。
R1C1はデフォルトが絶対参照。相対参照にするにはR[1]C[1]のように記号を付けて区別する。

=R2C1="○"だと、条件を設定した全部のセルが自分の左ではなくR2C1をチェックすることになってしまう。

2003を使っています。
「系列の順序」で表示されているグラフの順番を変えたいのですが
「系列の順序」を選択しても選択したグラフしか表示されないため
変更することが出来ません。
どうすれば良いのでしょうか？
どなたか教えて下さい｡

>>323
状況とやりたいことがよくわからない
ttp://aaabbbccc.s6.x-beat.com/upload/src/up18279.png

散布図でやっています。
いま分かったことなのですが、２つのグラフのうち片方を２軸を使って表示しているのですが
これを１軸にすると表示されることが分かりました。
２軸を使ったまま系列の順序を変えるためにはどうしたら良いのでしょうか？

>>325
散布図の仕様で、系列1は2軸にできないようです。
VBAで強制的に軸や順序を変更しようとしたらすべてエラーになりました。

つまり２軸グラフの上に１軸グラフを乗せることは不可能ということなのでしょうか？
絶対に２軸グラフが上にくるということなのですか？

どちらが上とか言うものでもないとおもう

>>327
そういうことになりますね。

>>328
上下は重要ですよ。グラフの見栄えがけっこう変わってきます。

>>320>>321>>322
ああ！　ありがとうございます。
R1C1形式というものを知らなくて、なんだか家のと表示が違うな
ぐらいにしか思っていませんでした。
最初に疑問に思ったことを調べるべきでした、ごめんなさい。

分かりやすい説明で、勉強になりました。

【1 OSの種類 　 　 　 　 .】 Windowsｘｐ
【2 Excelのバージョン 　 】 Excel２００３
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 セル　個数　マクロ

Ａ列が入力用セル（数値）なんですが入力データ自体が連続データなんで補佐用に同Ａ行には関数が入っております。
実データを入力し、数値入力された個数をマクロに割り当てたいのですがよい方法をお願いします。

※関数の都合上例えば５行までのデータとしても
１１１
２２２
３３３
４４４
５５５
”空白”←手動で消去
０
０
・
・
・

上記のような形になるんですが、上から下にセル個数を見てマクロの中の変数に代入したいんですが・・・・
（この場合だと空白までの数値”５”という数値を代入）

お力添えお願いします。

>>331
空白セルを検索して、その1個手前が何行目かを調べればいいんだから
X = Cells.Find("", SearchOrder:=xlByColumns).Row - 1

これで変数Xにデータの個数が入るはず

>>331
COUNTIFで0以外とか。

Excel2003で
メニューバー、ファイル からのメニューで出てくる
最近開いたbookのリスト、デフォルトで４つですが
これを１０こに増やしたいのですが方法ありますか？

エクセル昨日から使い始めた初心者です。
なんとかググッたりヘルプ見て最低限簡単に使うぐらいはできたんですが
セル内で文字を書いてそれを太字と色を変えた後に、追記する文章があって改行しました。
ところで改行後も太字と文字色が継続してしまうのですが、これは手動で戻すしか無いのでしょうか？
どうもググり方が悪いのか全然方法が出てこないのでよろしくお願いします。

>>334
できない
ユーザー設定の全般で増やせるのは9個まで

>>335
手動で戻すしかない

>>336
ユーザー設定じゃなくてオプションだった

VBAでネットワーク上の共有ファイルを読み込ませているのですが
一度ファイルを読んで判定し、その後追記処理を行う場合、一度
ファイルを閉じてAppendで開き直すことになると思うのですが
その際、閉じてすぐに開く場合でもFreeFile関数でファイル番号を
取得すべきなのでしょうか？処理で言うと


　Open NetworkFile For Input As #ReadFile
　　　(ファイル読み取り処理略)
　Close #ReadFile

　（判定処理略）
　　　Open NetworkFile For Append As #ReadFile　←FreeFileを使わず開きたい


ということをしたいのですがおかしいでしょうか。
判定後、誰かに開かれる前にすぐにファイルを書き変えたいのです。

おかしい。閉じなきゃいい。
誰かに開かれるのを許可したくないなら、ロックをかけて開くか、ロック用のファイルを用意するのがセオリー。
そもそも多人数が同時にアクセスするようなデータなら、テキストファイルで何とかしようとする考えが頭おかしい。

>>340
確かにあまりいい運用ではないと思います。
ですが、頻繁にアクセスするファイルではなく
そのアクセスも一瞬なので問題は無いと考えています。

上では面倒なのでInputとしていますが、
実際の処理としてはレコードが存在するものは
バイナリモードで書き換え、存在しないものは
レコードを追記したいのですがバイナリモードでは
追加ができないため一度閉じてAppendで開き
追加保存している状態です。

閉じなきゃいいというのはどういうことなのでしょうか？
Closeさせなければ追加モードで書き込めないと思うのです。
何か方法があるということでしょうか？
たとえばバイナリモードでもレコード追加ですとか…

またお前か。好きにやってれば？

>>342
あなたは>>340さんですか？そうでなければ、少なくとも
あなたには聞いていないです。
ここは一つ黙っていて頂きたいのです。

わたしはスレ違いな事を書いてはいませんし、今までもらった
アドバイスを無碍にするようなこともしていません。
もちろん無理な処理を実現するために解決策の無いような
質問を繰り返しているわけでもありません。

根っこが腐ってるんだよ

自分の理解できない単語を並べて他人が会話してるの聞くと
仲間外れになった気分でイライラして煽りたくなっちゃうんだろうな・・・
気持は分からないでもない・・・

いやもう必要な情報書いてるし、黙ってから好きにすれば？って事なんだけど。
理解できないと煽ってるように見えるんだろうね。てんてんてん。

しかし困ってるのに自分で解答者を敵に回すとは・・・

>>347
>>342=346のような輩に教わる事はなにもありません。
そもそも>>343の質問にすら答えないような奴ですし。

立場の違いを利用して威張る奴に大した知識が有るとは思えません。
あってもそんな奴から学びたくはありません。

それにわたしが聞いているのはファイルナンバーを保持したまま
Open＆Closeを繰り返しても問題ないか否か、ということです。
ファイルのロックはそのファイルを開いている間の話であって
OpenとCloseの間には無関係のはずですし。

こういう自分の知識を過信して、話もよく聞かず、理解もせず
ただ自分の感情のみで相手を批判する人は最低だと思います。
これだけは言っておきたい。質問者は尊厳を捨てているわけではないのです。

回答者は相手が人間だということを忘れないでほしい。
弱い者をいたわり、互いに助け合い、どこの国の人達とも
友達になろうとする気持ちを失わないでほしい。
例えその気持ちが何百回裏切られようとも。
それが私の変わらぬ願いです。

>>348
藻前は2ch向いてない
gooとかyahooで質問してろ

>>349
そういう煽りは不要です。わからないなら黙っていたらいかがですか。
己の無恥さを晒す事もないと思います。

>>348
あのな、うちらは、人間じゃなくて「名無しさん」を相手にしてるの。
質問者の尊厳を大事にして欲しかったら、
「名前」欄に本名書け。

質問者も回答者もExcel関係無い事でスレ消費してんじゃねーよ馬鹿

>>351
ﾜﾛﾀw
正論だなー

>>348
VBA版で質問すること
多くの人がこの板を暇つぶしで見てるだけだから

>>351
なにが”うちら”だ。相手に対して不遜な態度を取っているのはおまえだけだ。

他の回答者は相手の力になるべく、親身になって尽くしてくれている。
それはレスを読めばわかることだ。
だからこそ感謝と敬愛の気持ちを持って質問者達は集うのではないのか？
そしてその受け継がれた英知が質問者を回答者へ成長させ次の世代へと
知識を継承させていくのではないのか？

俺はこのスレで質問する者たちの代弁者だ！俺はお前を含めた全ての住人の為に戦っている！


>>353
わかりやすい自演ｷﾓｲです。誰もあんたに賛同なんかしませんよ。
品位を落として加担する理由がないｗ
もっとも、長文をだらだら書いてる私にも加担する者はいないでしょうけどね。
多くの住人の感想は>>352だと思いますよ。

355はわたしです

すみません、熱くなっちゃいました。

私もたいがい不遜ですね。
頭冷やしてきます。

>>357は偽物だ！

俺は断固として戦う！
相手をおとしめることでしか自己のアイデンティティを確立できない
偽回答者をこのスレから叩き出すために。
「英知の輪廻」をこのスレに遍く広めるのだ！

吹いたw
面白いから知識があれば回答してやるところだが生憎VBAは使えん、残念だ

>>357
偽物乙

>>358
偽物だけど言ってる事は素晴らしい。

かうしてExcel総合相談所スレ初のクソコテがたんじゃうした。

シカトしやすくなって便利だな。大歓迎だよｗ

以前「せんせい」って言うのがいたけど
今度は「せいと」だね

トリップを付けなければ騙られ、つければ無視、またはあぼーんされる…

例えるならExcelスレとは終わらないワルツのようなものです。
挑発・憤慨・冷静、この三つのレスが終わることなく回り続けるのです。

スルーできないひとがいるとそうなるだけだよ

このスレの回答者はバカばかりと言うことが前スレで完全にばれてしまった。
在庫管理
シフト作成
部品管理

こんなありふれた問題にも回答できない連中だ。

>>366
　　 ∧＿∧　　／￣￣￣￣￣
　　（　´∀｀）＜　オマエモナー
　　（　　　　） 　＼＿＿＿＿＿
　　｜ ｜　|
　　（＿_）＿）

WindowsVISTA
Excel2007
VBAもマニュアルみればなんとか…

質問です。
AAAAA
AAAAA
XX
ZZZZ
ZZZZ
BB
ああああ
ああああ
ああああ
222
222
222
222

のように文字の種類も桁数も違う値が34000行くらい並んでます。
その中で重複してる文字列の数を数えたいのですが、良い方法ありますか？
↓のように。
AAAAA:2
XX:1
BB:
ああああ:3
222:4

>>368
ピボットテーブル

>>368
データ→集計→個数

>>368
最初のAAAAAがA1とすると
B1に=COUNTIF(A:A,A1)
で下までオートフィル
後はA列でオートフィルタ、フィルタオプションで重複するデータは無視にチェック

>>370
並べ替えしてるならそれが一番早いな
してなくてもコピーすればいいし

>>368
2007だと集計じゃなくて小計なんだよな。なんで名前を変えたんだろう。

まず先頭に1行追加して、なんでもいいから適当にタイトルを付ける。そうしないと集計してくれない。
で、列全体を選択してから、データ→小計→OK→OKで同じ物がいくつ並んでいるか数えてくれる。
ワークシートの左にツリーが表示されるから、その一番上の「2」をクリックすれば、目的の結果が得られる。

集計なんて34000行もあったら使い物にならんだろ？

>>374
ピボットが普通だわな。

>>369-371
別に何使っても同じ結果になると思うンだけど
368には全部試してどれが一番良かったか聞かせて欲しい

なるほど！感謝です
答えてくれた方ありがとうございます！
とりあえず、集計＝小計で試して無理そうなら
ピボットとやらを使ってみたいと思います。
>>371なんて方法もよいかもしれないです。

時間を簡単に入力できる書式ってないのでしょうか？

0700と入力すれば7：00になるような

膨大な量をこなすことになったのでつらいです

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

グラフで一つのデータを固定しもう一方のデータをコマンドボタンを押すと
マクロ操作によりグラフの重ね書きがされるという操作をしたいです。最後は、「次へ」という
ボタンをクリックすると重ねるデータが変わるようにしたいです。

半角カナ→全角カナ
ひらがな→全角カナ
をまとめて変換ってできませんかね？

できるよ〜（・з・）

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

文字列の頭３文字だけ残して残りは切り捨てるようなことはできますか？

”あいうえお”→”あいう”

>>378

>>382
=LEFT(A1,3)

>>380
PHONETIC

>>378
=(A1/100)&":"&TEXT(MOD(A1,100),"00")

>>378
無い
7.3で7:30、ってのなら7.3をA1に入力するとして
=TIME(INT(A1),(A1-INT(A1))*100,0)
って感じ。後は書式設定を適当に
>>380
=JIS(A1)
で半角を全角に
ひらがな→カナは>>385

ダミーデータ作って試してみた。
34000件の小計はCPU1GHzのサブノートパソコンで約40秒。
待てないほどの時間ではない。使い物になるかどうかは状況による。

a
a
b
b
a
a
をピボットで集計したら
a:4
b:2
になっちゃった。2007で
a:2
b:2
a:2
にするにはどうやるの？

>>378
=TIME(A1/100,MOD(A1,100),)

>>388
40秒で待てない時間ではないって…
どんだけ暇な仕事してんだよ…

>>389
それこそ小計(集計)

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

＞384　あり

ちなみに文字列の中間を取り出すことはできますか？

”あいうえお”→”いうえ”

MIDです。
そして次の質問の答えがRIGHTです。

>>391
40秒が待てない人は、答えが返ってくるまで何時間待たされるかわからない2ちゃんねるなんかで
質問しないと思わない？

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

＞393　あり×2　もうひとつおねがいします。

あ　　10
い　　20　
う　　30
え　　40
お　　50　　　こういう表があった場合

セルの文字が”う”だった場合”30”を返す式お願いします。

>>395
VLOOKUP

宿題は自分でやれ

>>382
それをすてるなんてとんでもない

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

Excel2007において、散布図に近似曲線を追加したのち、
数式を表示して出てきた数式ともとの近似曲線が
合わないんですけど、これって僕だけですか？
多項式近似すると、後半部分で大きくずれます。

>>398
言わんとするとこは分かる。

>>395 うざいからExcelの関数の本一冊読んで来い　逆引きがいい

>>391
ピボットでできなかったのが悔しいんですね、分かります
>>389の条件だと小計でしか出来ないし、40秒待つしかない
VBAなら処理は早いけどそこまでするほどでも、ねぇ

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

「2008年6月30日」という文字列を数値の「2008/6/30」と表示させたいのですが。
数値として扱えるようにするにはどういう関数を使えばいいですか？

>>402
オツムを使えば手作業でもチャチャっとできるだろ？
B2に1を入力、B3以下に=IF(A3<>A2,1,B2+1)
としておいて、フィルタオプションで一つ上と違うものを抽出すりゃ簡単。
集計みたいなクソ機能使う必要なし。

ところで集計とか統合とかピボットテーブルって開発チーム違うのかね。
関数などはいろんなところにそれぞれ作らせたって聞いたことあるが。

まつがった。
ひとつ上じゃなくて、ひとつ下と違うものを抽出な。

>>403
文字列を表示させるのは無理。その日付だけでよければ出来るがね。
データ、区切り位置、次へ、次へで「日付」にチェックを付けて完了でシリアル値に変換汁

>>403
A1に文字列が入ってるとして、
「A1+0」でもいいし、「=DATEVALUE(A1)」でもいいんじゃね？
で、表示形式を変更

>>371
A列の重複するレコードを無視して、計算式のあるB列も一緒に抽出するにはどうしたらいいですか？
選択範囲内に抽出して、コピペするのかな？
ところで「重複するレコードは無視する」って一番上を残すんじゃなかったっけ？

>>408
=COUNTIF($A$2:A2,A2)じゃなくて、=COUNTIF(A:A,A2)だから一番上を残してもok
ほんとはクソ重いCOUNTIFは問題ありまくりだがな

>>409
あそうか。勘違いしてた。

>>402
流れが読めないほど頭が悪いんですね、分かります

>>411
VBAで>>404みたいなこと考えてるだろうから、それほど頭が悪いわけじゃないだろう。
どうやったらできるか考える力がなくて集計でしかできないと思ってたら終わりだがね。

>>412
VBAで考えてる人がみんな頭がいいと考えるほど何も知らない方なんですね、わかります
そしてあなたも流れが読めないほど頭が悪いんですね、こまります

なんか40秒にこだわってるけど、
しょぼいノートで40秒なんだから、デスクトップならもっと速いんじゃないの？みんなノートで仕事してんの？
画面やキーボードちっさいと、それだけで能率悪くならねえか？

紙（下の方）がペラっとめくれたような感じの枠組みにするにはどうしたらいいのですか？

オートシェイプ

そんなことはウチの総務に言ってくれ
最近マシになったが二年前まではNT4+ブラウン管使ってたぜ

>>389
ピボットテーブルでできるよ。
まったく無意味にその順番に並んでいるわけじゃないんでしょ？
ソートの優先順位が高いデータが他にあるんじゃないかな。
それを利用すればいいよ。

>>418の続き
例えば
担当　商品
　１　　ａ
　１　　ａ
　１　　ｂ
　１　　ｂ
　５　　ａ
　５　　ａ

のように商品より担当を優先してソートしているデータだとする。
ピボットテーブルで行のフィールドに担当と商品の両方をドラッグしたらいい。そしたら担当別、商品別に集計できる。

>>414
そんなのは慣れです。
それにデスクトップだからと言って重い式を乱立するような
社員は役立たずです。
また、総務として考えると全員にパソコンを持たせるにあたり
電気代やキュービクルの増設のような設備投資を考えると
ノートの方がはるかに会社にも環境にも優しいです＾＾

エスパーしすぎｗ
ピボットテーブルを使いたくてしょうがないみたいだなｗ

パソコンが速くなると馬鹿が多くなるね。

１回こっきりの問題なのか、ルーチンワークなのか、それによって違ってくるのに
処理が早けりゃいいと考えてる人って何なの？馬鹿なの？

処理速度はピボットよりVBAのが速くないか？
単に同じ物をカウントするだけのプログラムならそれこそ1分もかからず作れるし。
2回以上同じ仕事やるんなら間違いなくVBAのが有利だな。

>>413
VBAがどうのこうのじゃなく、どういうロジックならできるかということを考える力があるかどうかなんだよ。
今回は上と同じなら1を足して、下と違ったら抽出するという超簡単なロジックだがね。
中身を理解せずただピボットテーブルの使い方を知ってるだけの人よりは馬鹿じゃないことはたしか。

ヘイッ！ベーベー
ぞろぞろ集まって楽しそうだな
そろそろ仕事始めろバカ！！

昔はVBA厨変態がいたがピボット厨に鞍替えしたのか?

>>425
君らの考えるロジックなんぞ所詮グループ別抽出か集計じゃないか。

だから超簡単なロジックって書いてるね。

>>425
412の文章を読んでそんな確信をもって決めつけるとはｗ
そーかそういうことかーー

本人自演乙ｗｗｗ

>>421
結局はグループごとに分けて集計するんだよ。
ピボットテーブル使わない人はそういう本質に気付くのが遅い。

ん？.俺は>>412じゃねーよ。
今回は手作業でもVBAでも超簡単じゃん。
VBAって書いてるだけでやろうとしてること分るだろ？
VBAでもCountif使うようなやつも稀にいるけどな。

>>426
安心しろ！俺はニー
じゃなく今日は休みだ！

■■■■■戦況報告■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

毎日：すばらしい・・！最高の記事だと思わんかね・・・ふっはっは、見ろ！！日本人が変態のようだ！！
既女：・・・！
毎日：っ、何をする！！
既女：（電凸）
毎日：やめたまえ・・・いい子だから。さあ！
既女：お願い、スポンサーさん話を聞いて〜
毎日：はっはっはっは、無駄なことをするというのかね？
Ｎ＋：今北！祭り会場はここか！
既女：毎日が・・・削除を・・・保存してぇ・・・
毎日：その魚拓を大事に持ってろ！２ちゃんの命と引き替えだ！！・・・立て！電凸ごっこは終わりだ！！・・・
　　　終点が、報道フロアだとは、上出来じゃないか。ここへ来い！
既女：これが報道ですって？！！ここはお墓よ。あなたとあたしの。・・・捏造がバレたのに、削除で済まそうなんてこっけいだわ。・・・
　　　あなたは広告主にも見捨てられて、私と死ぬの！！
オカ：・・・・
既女：・・・いまは、・・日本のマスコミがなぜ滅びたのかあたしよく分かる。ゴンドアの谷の歌にあるもの・・
　　　事実を報道し国民とともに生きよう、公正な記事を心がけ国歌くらいはうたおう・・・
　　　どんなにひどい捏造をしても、たくさんの偏向した記者をあやつっても 国民からはなれては生きられないのよ！
毎日：毎日は滅びぬ。何度でも甦るさ！マスコミの力こそ、社会の正義だからだ！！次は法的措置だ。・・・
　　　ひざまづけ！命ごいをしろ！！誹謗中傷を取り消せ！！！
VIP：ちくわ大明神
Ｎ＋：待てーーーっっ！！魚拓は取った！既女を訴えてみろ、祭りは止まらないぞ！！
既女：祭りを止めちゃ駄目、どうせこの人は２ちゃんねるを潰す気よ！
毎日：小僧。既女板と引き替えだ！魚拓を消せ！！・・・それとも、その田代砲で、私と勝負するかね？
Ｎ＋：誰だ今の
オカ：パルス！！！！！！！！！１１１１１１
毎日：目がああぁぁぁああああああああああ！！！！！！！！！！！！！！！１１１１１１１１１１

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

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

例えば、２つのセルの値が　(A1，B１) = (123, 456)　である場合、C1に
A1*100+B1+500　という数式を入れて計算したいとします。

この場合、C1は　13256　になるのですが、ある特定の列のセルでは計算
が行われず、単に　=A1*100+B1+500　という文字列が表示されてしまいます。

どうしたら良いでしょうか。
この症状は、既に数式が入ったセルの下に行を追加したセルで起こります。

質問させて頂きます

OSはXPで、ﾊﾞｰｼﾞｮﾝは2002、VBAはいいえ、なんで解答も否です。
検索には【関数　文字列　追加】みたいな感じで調べました。


LEFT関数で文字列をもってこれますが
さらにその文字列たとえば『1234』の頭に『AAA』という文字列を
付け足して、『AAA1234』といった感じに出来る関数ってあるのでしょうか？

>>435
書式が文字列になってる

>>436
="AAA"&"1234"

なんでもいいからExcelの本一冊かって読んで来い

>>438
どうもです。

ちょっと書くのが足りてなかったです。
例えば、A列に『1234』があって『AAA』を付け足して
B列に『AAA1234』としたい場合でした。

="AAA"&A1

たのむからExcelの本一冊かって読んで来てください

="AAA"&A1

質問です。
Microsoft Office Excel 2003を使用しています。
A2:E10に入力されてる数値の中で、A1と同じ数値が何個あるか数える場合は
どの関数を使用すればよいでしょうか？

>442

テンプレ使うかググれカス
http://www.google.co.jp/search?hl=ja&q=excel+%E5%90%8C%E3%81%98%E6%95%B0%E5%80%A4%E3%81%8C%E4%BD%95%E5%80%8B%E3%81%82%E3%82%8B%E3%81%8B%E6%95%B0%E3%81%88%E3%82%8B%E5%A0%B4%E5%90%88&lr=

>>442
COUNTIF

>>443,444
すみません、ありがとうございます。

>>437
さんきゅう。
明日、会社のPCで試してみます。

countifかな

COUNTIFでいいんじゃね？

countifだろ？

作業列を作ってSUM

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

もし、よいお答えがありましたら
ご回答をお願いいたします。

店舗の売場レイアウトをエクセルで作成しています。
そして、その棚一つ一つに番号を振っていきたいと考えています。

そこで質問なのですが、一つのセルに数値（例として1001）を入力
し、その隣り合うセル、または隣り合わない任意のセルに自動的に
+1された数値（例の場合、1002）が入力されるように効率的にすることは
できませんでしょうか。

現在、関数の挿入からSUM関数を選択、任意のセルを選択、+1と入力・・・
ということを延々とやっていましたが、どうも効率が悪いもので。

ググってみましたが、上記のような状況ですのでどう検索したらよいか
分かりませんでした。

もし、もっと効率のよい方法がありましたらご教授いただきたいと
思います。

お願いいたします。

=A1+1

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

　　A 　　　B　　C　 D　 E........　
1　title1　 2　　3　　4　 23.........
2　title2 　32　16　　　 20..........
3　title3　　　　22　　　　　　........
〜

上記データに対し、指定した数値が含まれる行のA列のデータを取り出したいです。
例えば、X1に23と入力されてるとしたら、Y1にtitle1と表示されるような数式を入力したいのですが、良い方法はないでしょうか。
できれば作業列を使わず実現したいです。

直感的に
=INDEX(A1:A3,MATCH(Y1,B1:E3,0),1)
としたのですが、MATCHは範囲参照は受け付けないんですね。
範囲から指定した文字列を検索して位置を返すような関数があればいいんですが・・。

> =INDEX(A1:A3,MATCH(Y1,B1:E3,0),1)
MATCH( X1 , B1:E3, 0)
　　　　　　~~
でした。すみません。X1は検索したい文字列(この例では数値)です。

>>451
+1するのに何でSUM関数を使うのが分からないし、
自分の選んだセルに順々に数字を入れていきたいだけなら数式とかややこしい事を考えずに
そのまま数字を打ち込んでけばいいだけじゃないか？

何か規則性があってその規則性に基づいて自動で入力したいという事なら理解できるが、
質問の意味がいまいち不明なんで。
隣り合うとか隣り合わないという事に何か意味はあるの？

>>451
今打ち込んである数字に１を足したい（バラバラとあるセルに対して）なら

どこか離れたセルに１を入力
コピー
１を足したいセルを選択（離れているならctrlキーを押しながら選択）
形式を選択して貼り付け→加算

>>453さん

451です。
そうですよね、自分もそのまま打ち込んでいけば
よいと思いました。
ただ、それだと一部売場変更（棚を一つ増やす、もしくは減らす）
をしてしまうと、全ての棚番号を入力しなおさなければ
いけなくなるかと。

数式で入力しておき、変更箇所のみのセルをいじれば
続くセルも一気に変更できるかな、と思いまして。

できれば、フォーマットとして長く使いたいと考えています。
たとえ自分がいなくなっても、他のスタッフが効率よく仕事が
できるようにしたかったもので。。。


>>456さん
今打ち込んである数値に、と言うより続いている任意セルに
「+1」を効率よく入力していきたいと思っています。
フォーマットにしたく、これからなので要するに白紙なんです。。。

もし、何か良い案があれば、お願いします。

>>453さん→>>455さん
の間違いでした。。。

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

関数で返された結果だけ残して、関数の式を消すことってできますか？

>>459
形式を選択して貼り付け→値

>>457
=A1+1

>>457
A1に1001
B1に=A1+1
C1に=B1+1

じゃあ駄目なの？

ついでに補足しておくと、B1に=A1+1って入れた後B1をコピーして、C1、D1をまとめて選択してから貼り付けしてみ。

>>440、441
どうもです。そんな感じなんですね。

それでは、さらにその『AAA1234』に『-』を付け足して
C列に『AAA1-234』みたいにするにはどんな感じでしょうか？

うぜーーーーーーーーーーーーーーーー

>>464
leftとrightで切り取って真中に"-"をつれて＆でくっつける

おれがカネ出しますからExcelの本買って読んでいただけませんか

気持ち悪い

誰か453を・・・・

>469

複数hitした場合はどうしたいの？

>>469
色々な配慮は無しで
=INDEX(A1:A3,SUMPRODUCT(MAX((B1:E3=Y1)*ROW(B1:E3)-ROW(B1)+1)))

>453

１列づつ検索して並べればいい。

=INDEX(A1:A3,MATCH(X1,B1:B3,0),1)&･･･

>>470
データの前提として、重複データは無いものとしています。

>>471
ありがとうございます。配列数式でできるんですね。

>>472
例ではA3までしかありませんが、実際はもっと多いので入力に際する手間とミスの怖さから、それだとちょっと・・・。
ありがとうございました。

A列に「人物名」，B列にその「ふりがな」をそれぞれ入力して。
B列の内容をA列のふりがなへ反映させる方法はありませんか？

A列へ自動でふられるふりがながほとんど当たっていないもので。

>>474
Phonetics.Add
テンプレさえ使わないよなやつにはこれで充分。

2003で突然矢印キーの動きがおかしくなりました
アクティブセルが変わるのではなく、アクティブセルがそのままにスクロールしてしまいます
どうしたら元に戻るのでしょうか？

テンプレ必須ってわけじゃないんだから2行目みたいな余計な事書く必要無いだろ

>>476
ScrollLockキー

>>478
即レス助かりました。ありがとうございます

>>477
言葉が足りなかったね

＞★4 質問テンプレ(雛形)は必須じゃないけど、
　　　OSやExcelのバージョン､VBAの可否など(下記テンプレ1〜4の情報)は必須情報。

わざわざ煽るような書き方する必要はないんだよ。

>>481
だって煽ってんだもん
こういう場合はあとからVBAはダメとか言い出すやつが多いんだ。

スミマセン、お力お貸しください。

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

ええと、以下の図↓のように、
ttp://www-2ch.net:8080/up/download/1215012603105375.JDpwi3
商品名と商品単価が2列に渡って表記されているというリストを作成しているのですが、
図の赤い矢印のように左の列の1番下と右の列の1番上が繋がっているとみなして
ソートしてくれるようなことはできるんでしょうか？
エクセルは全く不慣れなので物凄い初歩的な質問なのかもしれませんが、
ずっとできずにホトホト弱っています。
エクセル以外でも「このツールでできる」という情報など頂ければ助かります。
よろしくお願いします。

>>483
普通はその2列*n行の表を作り、ソートしてから半分を切り取るなりコピーで貼り付け
その表が随時追加or順番は保持したいというなら一旦シートごとコピーするなりしてから並び替えて切り取り貼り付け

ちと変わった方法としては・・
条件がよくわからないが、とりあえず5行ごとに改行とする。つまり6行目がC1にくるわけだな
で、9種類あるとする

A1、B1からA9、B9の範囲に入力
C1に=A6、D1に=B6
A1からD5を印刷範囲に設定

で完了
11を越えるようならE1に=A11って感じで
もしフッダーつかわずに何とか商事を入力したければ別のシートにA1からD5をリンクさせればいい
別にコピーでもいいし

ただもう一度言うけど、普通は一行目の方法を使うと思うよ

昔同じ事をやろうとしたけど挫折した。少なくともエクセルの標準機能には無い。
関数ゴテゴテに盛れば出来ないこともないけど、結果に対してやることがややこしすぎて実用的じゃない。
印刷用途オンリーであれば、一番近いのはAccessのレポートで同一ページ複数列表示。

何行目で改行するか、条件を決めるセルを決めておいて、
後は別シート作ってrowを組み合わせればすぐに解決しそうなもんだがなぁ

>>483
そのままじゃ無理。
どっか別のシートに1列に並べてソートした結果を参照するか、VBA使うしかない。

>>471
無意味なSUMPRODUCTは使っちゃいかん。

>>483
入力用のシート、閲覧・印刷用のシートを分けて
閲覧・印刷用のシートから入力用シートの各セルを単純に参照すればいいだけで
何も複雑な事じゃないと思うんだがなあ。
皆ややこしく考えすぎじゃね？

それかデータファイルはExcelで作っておいてWordで差し込み印刷でもいいんだよね。
全部をExcelの中だけで処理したいというこだわりでも無ければそれが一番楽だし、いろいろ応用も効く。

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

10　　　10　　　上下の重複するセルのみ一度に結合させることはできますか？
20　　　20
20　→
30　　　30
30　　
40　　　40　　　

>>475 ありがとう。第１段階は解決しました。

A列に「人物名」，B列にその「ふりがな」をそれぞれ入力
B列のふりがなにカーソルを置いた状態で以下を実行

Sub ふりがな追加()
ActiveCell.Offset(, -1).Phonetics.Delete
ActiveCell.Offset(, -1).Phonetic.Text = ActiveCell.Value
End Sub

第２段階は，入力済みの行数分，連続して処理を行う記述です。
でも今日は眠いので寝ます。

>>491
複数の結合を一気にやりたいなら、条件にかかわらずVBA使わないと無理。
たとえばA2〜A4を結合するには
Range("A2:A4").Merge

>>491
そういうセルの結合の使い方は感心しないな。
条件付き書式を使って「上の数値と違う場合だけ上罫線を引く」みたいにすれば望みの事は出来ると思うよ、たぶん。

＞494　
どうやるの？

ＯＳはビスタで、エクセル２００７で作ったファイルが、ＯＳがＸＰのエクセル２００３のパソコンで開けません。どうしたら開けるの？初心者ですみません

DQNは結合セルとか好きだからな。

>>496
2007を買えばいいと思うよ。

>>496
これ入れろ
ttp://www.forest.impress.co.jp/article/2006/11/09/office2007converter.html

すみません、自力で色々と調べたつもりではありますが、力尽きました。
お力をお貸し下さい。

【1 OSの種類 　 　 　 　 .】 WindowsXP　professional
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 作業ウインドウ、非表示など

時々（例えば、ファイル→新規作成など）出てくる作業ウインドウをまったく表示させないということはできますでしょうか？
ツールのオプションで起動時の非表示のみは設定できるのですが、上記の作業などをすると現れてしまいます。
あらゆる作業において作業ウインドウがまったく必要ないどころか、邪魔でしかありません。

よろしくお願いします。

ちょっと質問ageさせてください

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 [ユーザー定義 1だったら 2だったら]

とある個人情報の表がありまして、(とある届出の)提出日という項目があるのですが
文字列の状態で3551001や3601009、4020608、4100402などずらーっと縦に並んでいます
これの意味するところは、頭の数字が年号(3なら昭和、4なら平成)を表しており
それ以下2ケタずつ使って年、月、日となっています
(上記の4つであればそれぞれ昭和55年10月1日、昭和60年10月9日、平成2年6月8日、平成10年4月2日です)
ここで、7ケタの数字だと少しわかりづらいので表示だけをカッコ内のようにしたい(02月とかはOK)のですが
あとで並び替えたりすることも考えて、
また組織的なデータベースなので数字を直接変えたり(エクセル日付的な5ケタのあれとか)せずに
できれば書式を変える(ユーザー定義をいじるとか)程度だけで行いたいのですが無理でしょうか
単品の3や4であれば　[=3]"昭和"　とかできるらしいのですが頭についたままでできないかなと・・・
そこさえクリアできればあとは　00"年"00"月"00"日"　とかできるかなぁと思うのですが・・・

ユーザー書式で条件付けできるのは
正の値か、負の値か、ゼロか、文字列か、
という区分けだけなので別のセルに関数を使って表示させるしかない

>>501
無理。
他のセルに関数使って表示するのがいいんじゃない。

>>484,485,486,487,489,490

こんなにレスを頂いてありがとうございます。
484,487,489さんのおっしゃる通りリストを2列に分けてコピペするのが簡単そうですね。目からウロコです。
早速この方法で作成してみます。

本当に助かりました。ありがとうございます。

>500

で、新規作成の場合はどうするの？

ありがとうございます。
新規作成→空白のブックです。

以前のバージョンでもウインドウは出ていましたが、
作業ウインドウ（ヘルプ）のワークシートの表示エリアを巻き込んだ表示をやめさせればと思います。

超初心者質問で申し訳ないのですが、
行と列が数字になってしまいました。
どうすれば片方をアルファベットに直せますか？

>>502,503
そうですか、お返事ありがとうございました

>>507
メニューからツール＞オプションと入って
全般タブの中の一番左上の
「R1C1参照形式を使用する」のチェックをはずす

>506

選ばなきゃいいんじゃね？
腐ったmyルールのカスタマイズはやめとけ。

>507

ﾂｰﾙ→ｵﾌﾟｼｮﾝ→全般→R1C1参照形式を使用するのﾁｪｯｸをｵﾌ

>>509
できれば選びたくないのですが、何せ強制的に現れるので…
EXCEL2003の売りは作業ウインドウというキャッチフレーズも見つけてしまって、
もしかしたらそういう設定はないのかなあなんて思い始めて来ました。
慣れるしかないのかなあ…

>>508-509
ありがとうございます。
再起動しても直らなくて、一人で汗ってました。
助かりましたm(_ _)m

>>501
書式に(0)00"年"00"月"00"日"って入れれば

(3)55年10月01日
(3)60年10月09日
(4)02年06月08日
(4)10年04月02日

みたいな表示になる。元号は日本語で出ないけど、7桁の数字だけよりはよっぽど見やすいんじゃない？
どうしても日本語で出したかったら作業列を使う、VBAを使う、Excel2007を使う、のどれか。

>510

ちなみに[Ctrl]+[F1]で表示/非表示を切り替えられる。

ﾏｸﾛで強制的にけすことも出来るがお勧めしない。
必要だから出てくると考えるべき。

>>505,>>509,>>513
そういうものだと考え、気持ちを切り替えて付き合っていこうと思います。
お忙しい中、ありがとうございました。

【1 OSの種類 　 　 　 　 .】 WindowsXP　professional　ver2002　SP2
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　読み取り　共有

親PCに共有ファイルを作ったつもりでしたが
自分のPCだけ単独で開いても読み取り専用になってしまいます
どうやったら解除できるでしょうか？

ちなみに他の人は問題なく使えてます
【1 OSの種類 　 　 　 　 】 Windows　2000
【2 Excelのバージョン .】 Excel2003

>>515
親のパソコン側で共有にしたフォルダを右クリック→共有とセキュリティ→
ネットワーク ユーザーによるファイルの変更を許可する

>>516
出来ましたぁ！！
元々親PCのほうでセキュリティのユーザーでEveryone追加してからその設定をし忘れてました＾＾；

改めて端的に指摘して頂いたおかげです！ありがとうございました！！＾＾

うわあ・・・

>>501
=DATE(IF(LEFT(A1,1)*1=3,1926,IF(LEFT(A1,1)*1=4,1989,1))+MID(A1,2,2),MID(A1,4,2),RIGHT(A1,2))
1、2(明治と大正)はでない前提だけど

文字列でいいなら
=MID("明治大正昭和平成",(LEFT(A1,1)-1)*2+1,2)&MID(A1,2,2)&"年"&MID(A1,4,2)&"月"&RIGHT(A1,2)&"日"

このスレで見たmidの使い方は本当に便利だと思った
よく思いつくよな

2003を使っています。
セルの端っこをダブルクリックすると行の一番下にとばされるのですが
この機能ってオフにすることは出来ないのでしょうか？

vbaを使えば出来なくもないけどオプションでは、無い

軒並みだけどダブルクリックしなきゃいいじゃん。
カーソルが通過しただけで飛ばされるなら大変だけど。

>520

それ、二文字限定やん。
何故素直にCHOOSEを使わないの？

便利じゃなくてアホとしか思えん。

ってかCHOOSEを知らなかったんだろうね。
これで>>520も成長することでしょう。

生暖かく見守ってあげなよｗ

一文字・三文字以上の年号を使うきっかけがあるのか？

>>526
天平勝宝 749-757

>526

逆に何故CHOOSEを使わない？

>>526
それを屁理屈と人は言う。

後の人（将来の自分を含む）のことも考えて適切な関数を使う方が良い。
それにCHOOSE知ってたら絶対に>>520のような数式は書かないだろ？

>>520はただ使いたかっただけと予想
基本的に問題もないと思うんだが

>>504
>>リストを2列に分けてコピペするのが簡単そうですね。
まあそれはそれでいいんだけど、>>484の人が「基本」と強調してるのは「特別な知識が無くてもコピペだけで出来る」という程度の話です。
ページ数が少なくて商品の更新頻度も少ないなら手作業のコピペでも十分だろうだけど、そうでないなら他のやり方が有利です。
参考までに。

>>520

ﾜﾛﾀｗ

回答者のレベル落ちたな〜

>530
>基本的に問題もないと思うんだが

人に紹介するのはどうかと思う･･･

こうですね！
=CHOOSE(LEFT(A1),"明治","大正","昭和","平成","正化")&TEXT(RIGHT(A1,6),"00年00月00日")
でも、いつのまに作業列を使っていいことになったんだ？

>>521
［ツール］［オプション］［編集］
　↓
［ドラッグアンドドロップ編集を行う］チェックボックスをOFF

ってことではないの？

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

B1の値をA2に、A3の値をC1に　といった感じでワークシートの行と列を交換したいです
簡単な方法ありませんか

>>536
形式を指定して貼り付け→行と列を交換

>536

形式を選択して貼り付け→行列を入れ替える

>>537-538
どうもありがとう
こいつは簡単でいいね

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

　同一の項目の場合だけ数値の合計を返すことってできますか？

商品Ａ　10個　　　　　10個
商品Ｂ　5個　　　　　　
商品Ｂ　10個　　　　　15個
商品Ｃ　10個　　→
商品Ｃ　10個
商品Ｃ　5個　　　　　　25個　　　　　
商品Ｄ　20個　　　　　20個

>>540

ビポッ

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

いきなりExcelの既存ファイルが開けなくなってしまいました。
新規で使う場合は普通に使えます。

なのに保存ファイルを開こうとするとエラーが出てしまい、今までのすべての既存ファイルが
開けません。仕事で使う為の大切なデータもあるだけになんとかしたいのですが・・・。

どなたか理由または解決方法がわかる方いますか？
ヨロシクお願いします。
ＯＳが古くてすいません。

>>540
C列に数式のみでそのようにしたければ、かなり無駄な計算式になってしまう
1行目が見出しだと、C2の式は=IF(A2<>A3,SUM($B$2:B2)-SUM($C$1:C1),"")でできるが、計算ロジックに無駄があり不合格。
=IF(A2<>A1,B2,B2+C1)として、条件付き書式で 数式が =A2=A3 フォント白 とした方が良い。
スタイルを変えてよければもちろんピボットテーブル。

>>542
エラーメッセージを「そのまま」書き写してください。(勝手に省略したり、英語を日本語に翻訳したりしないこと)
長い数字やアルファベット、記号なども重要な手がかかりですから、間違いのないよう。

COUNTIF使っても簡単だが、同じく不合格。

COUNTIFじゃなくてSUMIFか。

>>534
作業列使わないと無理だから出してみたんじゃない？
質問者が欲しがってるようには見えなかったけど、でもこれしか解決方法無いんだけど

折角なんで
>>540
データ→集計→個数
後は左の+と-をいじれば目的のものが手に入る
ってすぐ上にも同じような質問があったな

３個以上同一項目があるとうまくいきません。

商品Ａ　10個　　　　　10個
商品Ｂ　5個　　　　　　15個
商品Ｂ　10個　　　　　
商品Ｃ　10個　　→　　20個
商品Ｃ　10個　　　　　15個　　←
商品Ｃ　5個　　　　　　5個　　　　　
商品Ｄ　20個　　　　　20個

>>540
　　　A　　　B　　　C
1 品名　　個数　合計
2 商品Ａ　　10　　10
3 商品Ｂ　 .　5　. 　5
4 商品Ｂ　　10　　15
5 商品Ｃ　　10　　10
6 商品Ｃ　　10　　20
7 商品Ｃ 　.　5　　25
8 商品Ｄ　　20　　20

C2セルに =IF(A1=A2,C1,0)+B2 という式を入れ、条件付き書式で「数式が」「=A2=A3」「文字を白」に設定してから
フィルハンドルをダブルクリック

EXCELエラーが発生しました。
そのまま作業を続ける場合は無視を・・・

GDIEXEにエラーが発生しました。

みたいな感じみたいです。（途中わからず）

実は自分ではなくて友達が悩んでいたもので詳しい状況まではわからず。
とりあえず一回アンインストしてからもう一回インストールしてみるそうです。
ちなみに別のＰＣにデータをうつしてみたら既存ファイルが開けたようなので緊急ではなくなりました。
ご迷惑おかけしましたm(__)m

>>544を百回読んで出直し

＞550　
　できました。ありがとうございました。

>>551
GDIエラーはWindows自体の問題。ハード的な故障の可能性もある。
Excelは関係ないので、Windows板かハード板か該当機種の板へ移動推奨。

>>554
ありがとうございます。
そうしてみます。

なんだ？
>>550と>>543はどう違うんだい？

読みやすさか親切さの違いじゃない？
知識自慢しつつ選択肢をいろいろ提示するのもいいけど、今回は
そのものズバリの回答だけを書いた方がよかったってこった。

30分後に同じ回答したってしょうがねーだろ？

俺は
=IF(A2<>A3,SUM($B$2:B2)-SUM($C$1:C1),"")
みたいなロジックの方が好きだな。
条件付き書式で、存在するデータを「見えなく」するのって、なんか気持ち悪い。

見えないデータに気付かずに項目(列)と式を追加したような場合、計算ミスにつながると思う

独りで勝手に合格とか不合格とか忙しい奴がいるなあｗ
俺も条件付き書式でフォントを白にするとかはあくまでも最後の手段にしたいな。

あれ…項目ごとに集計する質問ってつい最近どこかで見たような…
気のせいかな…

条件付き書式がいやなら作業列ひとつ作ればいいだけの話。
>>543の最初の式なんか論外。

やはりなぜ論外かは書けない

>>543に書いてあるな。
DQNはどこが無駄かわからないんだろ。

表が無駄に大きくなるし、計算の過程は見せたくない。
作業列を使うぐらいならVBAを使って一気に答えを求める方を選ぶ。

作業列の幅を0にするのも却下。文字を白くするのと同じで、
見えない部分があるとミスにつながる。

とかくDQNは作業列をきらうね。
結合セルは大好きなやつが多いがｗ

啓蒙厨は極論が大好きだけどな

ヴァカが多すぎるからどうしても啓蒙する羽目になってしまうんじゃね？

そもそも啓蒙になってない
理由も説明せずに自己完結して煽ってるだけ

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

会社で文書を作成し、社員で共有するのですが、
編集、印刷は可能でも、保存は不可の状態にしたく思います。
そのような処理は出来るのでしょうか？
出来るとしたならばどのように処理するのでしょうか。
文書自体はEXCELで作成しています。

理由を書かないと分らないほど低レベルってことか
excelやめて田舎に帰った方がいいなｗ

何にしても質問者は>>550の数式と条件付き書式で解決したっていってるよ。

VBA使えても作業列の方が早いなら作業列使うけど
さすがに入力行と入力行の間に非表示で作業列、とかはあぶなっかしいのでやらないけど
>>571
右クリックでセキュリティor共有、後は権限だかを読み取りのみにすればok

理由を書いて返論されるのが怖いでけだろ

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

2　　　2
3　　　5
1　　　6
3　　　9
とＢ列に累計を出すにはどうしたらいいですか？

なんでもいいからExcelの（ｒｙ

>>575
1列目は=A1
2列目は=A2+B1
以下コピペ

>571
ＣＤ−Ｒに焼いて各人（のパソコンの光学ドライブ）に配布したら？

>>574
ビンゴ
あいつら自分が中途半端だって事は気づいてるんだよｗ
でも啓蒙したいという悲しい生き物
一流は学びたがり、二流は教えたがるを地で言ってるゴミ屑だなｗ
中途半端な事はうすうす気づいてるくせに、二流な事を認められないんだよｗｗｗ

＞573
ありがとうございます。
読み取り専用で開いた際に編集→印刷は可能で保存の際に
既存Bookに保存では無く新規Bookで保存されると認識しておりますが
間違いないでしょうか？

と三流がいいましたマル

>>580
はいそうです
ちなみに読み取れされてもコピーはされたくない、ってーのは無理よ

VBA可なら自分自身のフォルダを調べて、既定の場所になかったらすぐ閉じる、
みたいな処理をWorkbook_Openに書くとか。
それだけじゃ不親切だから、一応閉じる前に「コピーはできません」とメッセージを出して。

>>566
外野からすみませんが、VBAならどのようになるのでしょうか？

＞582
重ね重ねありがとうございます。
もちろんコピーはされても仕方ないとは思いますが、
原本を移動されたり、上書きされるのが嫌らしいので・・・。
（コピーして使ってねと言っても聞いてくれない人が多い）

＞583
これは私へのレスで良いのでしょうか・・・？
別のお方へでしょうか？

>>583は>>571宛だろうけど分からないならアクセス権の設定だけでokよ

>>584
Sub Macro1()

Dim i As Long
Dim GYO As Long
Dim goukei As Long
GYO = Range("A65536").End(xlUp).Row

For i = 2 To GYO
If Range("a" & i).Value = Range("a" & i + 1).Value Then
goukei = goukei + Range("b" & i).Value
Else
goukei = goukei + Range("b" & i).Value
Range("c" & i).Value = goukei
goukei = 0
End If
Next
End Sub

汚いコードだと言う事はわかっている
だが・・・これでも使えるんだ・・・

後はオートフィルタでもかませばok

2003を使っています。
一つのExcelファイルの中に複数のグラフが入っているのですが
これらのグラフの縦軸横軸の名前や軸の書式などを一括して変えることって可能なのでしょうか？

>>584
Sub B列の小計をC列に()
　 R = 2
　 V = Cells(R, 1)
　 While V <> ""
　 　 Cells(R, 3) = ""
　 　 If V <> Cells(R - 1, 1) Then C = 0
　 　 C = C + Cells(R, 2)
　 　 If V <> Cells(R + 1, 1) Then Cells(R, 3) = C
　 　 R = R + 1
　 　 V = Cells(R, 1)
　 Wend
End Sub

For EachやXlUpを使わないのは、文章や別の表などが同一シート内に並んでいた場合を考慮して。

>>588
たぶんVBAが必要

>>590
出来れば教えて下さい｡

質問テンプレ使おうぜ

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

一つのExcelファイルの中に複数のグラフが入っているのですが
これらのグラフの縦軸横軸の名前や軸の書式などを一括して変えることって可能なのでしょうか？

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

>>585
テンプレートで保存してみる。

>>593
一つ質問
グラフは複数シートにある？同じシート内？

>>593
例えばこんな感じ。すべてのグラフの軸ラベルを全部赤にする。

Sub sample1()
　 For Each G In ActiveSheet.ChartObjects　　'すべてのグラフを処理する
　 　 G.Chart.Axes(xlValue).TickLabels.Font.ColorIndex = 3　　　'横軸の文字色を赤に
　 　 G.Chart.Axes(xlCategory).TickLabels.Font.ColorIndex = 3　'縦軸の文字色を赤に
　 Next
End Sub

>>587,>>589
おう、すごいですね。
配列使った方法も教えてくれない？

>>577
ここのレベルじゃ=SUM(A$1:A1)って回答もあるかと思ったが、そこまでアフォはいなかったかｗ

アフォはお前ですね

>>598
お前ずっとその形にこだわってるな？
何かトラウマでもあるの？

なんか悪い方法を悪いと認識できないやつがいるな
だからいつまでたっても三流なんだよ

まあ出来りゃいい、サンプルとして提示するだけなら適当でよかろ。

お前は皆から優良サンプルとして崇め奉られたくてこのスレにいるのか？ｗ

一流の人は言う事が違うよねー

低脳どもを啓蒙したいだけだろ？
パソコンが高性能になってくるとヴァカが増えるのは必然なんだからあきらめろ。

>>604
意味がわからん。
何を持って高性能と区切りをつけてるのかもな。

敷居が低くなったからっていうのならwindowsあたりからだろうが
むしろいうのであれば敷居が低くなると、
「知ったか程度でちょっと上流気取った馬鹿が増える」て言った方が正しいと思う。
お前も煽ってるやつもその口だろうなｗ

このスレにゃ一流なんていねーよ。
二流と三流ばっか

「知ったか程度でちょっと上流気取った馬鹿が増える」
？？？

おはよう

ここで煽ってるやつの言ってることって基本中の基本じゃん
こんなの知らないやつが馬鹿すぎ

>>607
とっつきにくい分野では知ったかは少ない。

Excelあたりの相談スレに常駐して他人煽ってるようなやつの
正体なんぞ知れたもの。

なにか癇に障ったか？

今までより簡単になるならそれでいいのにな
何と戦ってるんだろうな啓蒙してる人は？

>>609
脱初心者の知ったか君ほど、初心者＝昨日までの自分を否定したがるという法則。


昔は掲示板でえらそうに説明すれば総スカンくらったのだが
お前みたいなのが人口増えすぎて誰も構わなくなっただけ。

すみません、エクセル初心者でこのスレ見ながら勉強してる者なんですが
前スレあたりから「論外」とか「全然だめ」とか言う指摘が何度も出てきていますが、
一度も具体的な説明が無いように思えます。
初心者でも分かるようにもう少し具体的に説明していただけないでしょうか？

例えば>>543で=IF(A2<>A3,SUM($B$2:B2)-SUM($C$1:C1),"")が「不合格」な理由は何なんでしょう？

前スレとこのスレを「論外」と「全然だめ」で検索してみたが
「論外」が1回ずつで「全然だめ」はヒットしなかった
「何度も」というほど出てきてはいないようだが…

だめだこのスレｗ

>>613
式の最適化がなされていない・・
ということは計算量が多いという事。
それはpcにかかる負荷を増大させ、結果放出される熱量が増大し、
つまりは地球の温暖化、ひいては人類の絶滅に繋がる

excelの環境破壊から人類を守るために啓蒙先生は戦ってるんだよ!!

>>488
＞ よけいなSUMPRODUCT
とありますが、SUMPRODUCTを外してCtrl*Shift+Enterでおｋですか？
そもそもこのSUMPRODUCTはどんな働きをしているのでしょうか。

ええと無理と言われたのでそれからしばらく見てなかったのですが
当方が作業列を使いたくなかった理由は
・会社のデータベースのデータなので新しい列を使いたくなかった
・同様にデータ数値そのものも弄りたくなかった
・上司が古い人間でコンピュータに弱く作業列のせいでなにかやらかしそう
という理由からでした

入力規則のリストを同じシートに作ろうものなら
平気でそこを含む行・列を削除してくれますので・・・

と言いつつも俺も作業列を使うとしても
きっと上のほうで言われていたMIDよりもさらに無駄な式を使いそうですけどね
SUBSTITUTEとか・・・ｗ

何はともあれ皆様お相手ありがとうございました

>>617,453
関数名が分かってんだから自分で調べろや

最後に一言。
「おまえら大したことないね」

だからお前は病院行け

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　値を範囲内に　< > 最大値以内　範囲　収める etc

文字列を　[h] mm ss.0 にして角度の計算を行っていますが

365度42分44秒を　5度42分44秒に変換するなど　値を0=<X=<360に収めたいです。

>>622
つ　MOD関数

>>622
ユーザー書式で条件付けできるのは
正の値か、負の値か、ゼロか、文字列か、
という区分けだけなので別のセルに関数を使って表示させるしかない

後は
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/abs.htm
関数で角度に関するものもつ考慮に入れてみては?

>>624
別に正の値か、負の値か、ゼロか、文字列かだけじゃないだろ？
[ ]の中に二つまで条件を入れられる。

>>623は不親切か？
=MOD(角度,"360:00:00")なんてやるんだよ。

windowsxp、ｴｸｾﾙ2003、vba不可で質問です
シート見出しの名前をキーボードだけで変更することは出来ますか?
アクティブシートの変更はページダウン/アップ+Ctrlキーを使えば変更できることは分かったのですが・・・・

>>626は丁度360度のとき0度となるな。
0=<X<360ならいいんだけどね。

以上って=>じゃなく>=だったか？

>>627
Alt→O→H→R

方向キーでセルが移動できなくなってしまいました。シート全体が
該当方向に移動してしまってカレントセルが移動しないです。
オプションをみてもどこを触ればいいかわからず、
すみませんがどなたか直し方教えてください。

>>631
ScrollLockキーを押す

>>632
どうもです！
あーそうだったんですね。それを解除してから
Excel再度起動して直ったことを確認できました。
大変ありがとうございました！！

なんでわざわざExcel再起動すんの？
Scroll Lock押してカーソル動かせば確認できるだろ？何なの？馬鹿なの？死ぬの？

>>629
どっちでもOK
>>630
ありがとうございます

無事解決しました

360=0度でも大丈夫だったんでMOD関数を使いました

ありがとうございます

莫大な量の測定データを収縮するために、３つごとに平均を取りたいのですがどうすればできるでしょうか？
A1〜A3までの平均を取って、次はA4〜A6までの平均を取りたいというわけです。

すみません。単純な質問かもしれませが、0001をセル内に表示するにはどうしたらいいでしょうか？
エクセル2003使用の初心者です。

>>638
表示したいセルを右クリックして[セルの書式設定]→[表示形式]タブの"ユーザー定義"で
種類(T)の下のテキストボックスに0000を入力すると幸せになれるが貴様に教える事は
何もない。さっさと立ち去れ！

>>638
'0001
って入力すると幸せになれるだろうけどもう来なくていいよ

>>637
C2に
=IF(MOD(COLUMN(),3)=0,AVERAGE(A1:C1),"")
後は右にオートフィル

》638》6393さん
ありがとうございます。幸せになりました！

最後にセルを結合した後にセル内に縦文字を表示する仕方を教えてもらえませんか？
エクセル200使用です。

>>639-640
どうしたの？僕たち
何か会社で嫌なことあったのか？ｗ

>>638
0001を表示したいセルに0001を1000回入力する。
とても面倒なので初心者にはおすすめしない。

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

>>645
できるわけねーだろｗ　自演乙

>>645
私にはとても無理です....
結合した後にセル内に縦文字を表示する仕方を
教えていただいたら光栄です。
よろしくお願いします。

=TATEGAKI(A1)

>>646
ちょ、ちょっと待って！>>641が今何か言った

>>647
右クリック→書式設定→配置、方向で縦餓鬼の「文字列」をくりっくだよカス

>>646>>649
釣りでしたｗ
雑魚共乙ｗｗｗ

なにこの流れ(;´Д`A ```

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

啓蒙できないストレスがたまってるんだな
かわいそうに

たぶん始めは、ついでに教えるくらいの「余分なもの」だったはずなのにな
今では啓蒙しないとイラついて気になってしょうがない、「無くてはならない物」になってんだな
しかもヤク中といっしょでどんどん刺激が強くないと満足できなくなってる。末期だ
おかげで無意味な罵倒になりすまし、しまいにゃ叩かれるのが怖くて偉いのを仄めかすだけとか。病院行けよマジで

それってつまり典型的なにちゃんねら

なんかほんと病人がいるな。
末期か？
本人は叩いてるつもりだろうが馬鹿にされてるのわからんのかな？

winxp excel2003
ハイパーリンクの質問です

例えばsheet1のA1にリンクを作って
sheet２のＧ１０に飛ぶようにします。
その結果、sheet2が開いてＧ１０のところが選択された状態になってますが
そうではなく、Ｇ１０が左上になった状態で開くように出来ますか？
常にA1が左上になったままＧ１０が選択されますよね。

いろいろリンクを貼って、そのつどそのリンク先が左上に表示されるようにしたいのです

>>657
誰が末期っていってるの？

>>659
>>655にきまってるだろ？
なに一人で自演してるんだか、一日中暇だね。

>>658
VBAです使えないならムリ

>>655はほんと病気じゃねーか？

病気だろうけど診断行かない限り普通の人として通るんだろうね
サイコパス怖い

651=655か？

m9（＾Д＾）プギャー >>655

>>664
違う

>>639
教えてんじゃねーか



ってレスを期待したのになんだこの流れ
ネタさえも逆手に取られるこんな世の中じゃポイズン

つまらん
とにかく病人多杉
病院行けと言ってるやつも病人なんだからもうgdgd

次の方どうぞ

セルの結合をしたときに例えばA1とA2それぞれ文字が入ってるときに結合した後にA1とA2の文字をつなげられる方法はありますか？

>>670

セルを結合するやつはクソ。

印刷用ページとして分けてるなら別にアリとも思うが

>>670
VBA使わないと無理

そうですか・・ありがとうございました
良い機械なのでVBAも勉強してみます

見栄えのためにやたらとセル結合する奴がいるけど
そのせいでコピーやメンテがとても面倒になる
おれの知ってるのはデータの活用という概念が全く無いやつだった

俺が知っているのはバーの片隅にいる奴だった。
いつも同じ席について笑ってた。

悲しそうに笑ってた。

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

セルの書式設定で　配置→方向で文字列を縦にしたのですが
数字の部分だけ横に並べたいのですが可能でしょうか？
例）　新宿１００−１００だと
↓理想

新
宿
10
｜
100

↓現実

新
宿
1
0
|
1
0
0

すいません
×例）　新宿100-100
○例）　新宿10-100

無理だから横書きのままセル内改行(Alt+Enter)で頑張れ

VBA不可って奴はエクセル関数で何とかなると思ってんのかよ

　月給：100万以上
　内容：エッチなサービス不可
　休日：月の半分くらい
　備考：加齢による解雇なし。
　罰則：公務員に準じる
　
　↑のような求人ないですか？

って聞かれてる気分だぜ

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

誰もがExcelの全機能を把握してるわけじゃないから。
できるかできないかがまずわからない。膨大なメニューのどこかに隠れてるかも知れない。
そう考えても不思議じゃない。

Excel使うだけが仕事じゃないのよ。

VBA不可という条件は無理の無い話だと思うよ。
たかが文字を縦書きするのにプログラム組まなきゃならないなんて普通思わないよ。
VBAならできるぞ！っていう発想は不健全。

でもココで聞いてみると初めて分かる機能とかもあるわけで・・
特に機能、というより機能の一部を上手く組み合わせれば簡単にじつげん可能な機能とかもあるわけで・・

そのために相談所があるんでしょ。
どんな質問も「ぐぐれ」で終わってたら意味がない。

病気の人は自分の知ってる事は相手も全部知ってないと苛立ってしまうんだよ。仕方ない。

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

A列とB列にソート済みのデータ（数字または文字列）があります。
同一の行のデータを比較します。
比較の結果、
１．データが同じならば、trueを表示。
２．データが一致しなければ、挿入を行い空白セルにします。
※C列にTRUEまたはFALSEで結果を表示。

これまで比較方法は"=A列=B列"をC列のセルに入力し、
オートフィルで同一関数をコピーしていましたが、
比較データが膨大なため、自動化を検討しています。

VBAでの回答希望です。

以下、《比較前》と《比較後》です。
※△は空白です。
《比較前》　　
A列B列
12　
23
3X
YZ
54
△5

《比較後》
A列B列C列
1△FALSE　
22TRUE
33TRUE
△XFALSE
△ZFALSE
Y△FALSE
△4FALSE
55TRUE

>>687
オートフィルで同一関数をコピーすれば、比較データが膨大だろうと
一手間で出来ると思うんだが。

趣旨がよく分からない。
具体的にどこが面倒?

>>689
空白の挿入を手作業でやってるんでしょ。

>>687
ちょっと気になるのは、ソート済みのデータが
1　2　3　X　Y　Z　4　5
という順番で並んでること。どうして
1　2　3　4　5　X　Y　Z
じゃないの？
法則がわからないと、プログラムを作るのは無理。

>687

>688のサンプルを念のため書き直しておくれ。
半角スペースを使っちゃダメよ。

あと２の挿入はA/Bどっちの列に挿入するの？

「挿入を行い空白セルにします。 」の意味がよく分からないな。
>>688見ても規則性があるようで無いようでよく分からん・・・

つーかさ、A列とB列両方に存在しているデータを探したいんでしょ？
両列ソートして空白挿入だの言うから面倒になるが
MATCHやCOUNTIFで検索すれば良いだけなんじゃないの？

=NOT(ISERROR(MATCH(A1,B:B,FALSE)))
=COUNTIF(B:B,A1)>=1

A列とB列両方に存在しているデータを探したいのでは無いなら話は別だが

つまりこういうことだね。元のデータがこうだとして

　A　B
1 1　2
2 2　3
3 3　5
4 6

空白をB1に挿入して、B1以下を1つ下げる

　A　B
1 1　
2 2　2
3 3　3
4 6　5

次に、A4に空白を挿入して、A4以下を1行下げる

　A　B
1 1　
2 2　2
3 3　3
4　.　5
5 6

こうやって、A列とB列に同じ物がある場合は並ぶようにしたいってことでしょ。

説明が下手で申し訳ありません。

>>689
A列とB列の比較を行い、手作業で空白（挿入）を入れています。
挿入の作業をマクロにしたいです。

>>691
挿入は同一行に同一データがないために
隣の列（セル）を空白しています。

<<比較前>>
A列　B列
1/etc /etc
2/tmp /dev
3/var /bin
4/home /home

<<比較後>>
A列　B列
1/etc　/etc
2/tmp
3　　　　/dev
4/var
5　　　　　 /bin
6/home　/home

>>693
両方に存在しているファイルを探すのではなく、
比較？（チェック）を行い、差異のチェックを行います。
チェックの結果、TRUEかFALSEを返しています。

>>694
説明で合っています。


同一構成で作成したサーバ2機のUnixのファイル（ディレクトリ）を
比較する作業でexcelを使用し、手作業で行っていました。
ですので、以前の例のように数字ではありません（例えで使用しました）。

作業の流れは
１．データをソートする
↓
２．比較する
※方法は問いません。
↓
３．比較の結果、
差異（ファイルが存在しない）する部分を空白セルにする
↓
４．わかりやすく色をつける。
※FALSEの部分や空白セルに対して

主に３の部分で時間が掛かっています。
ここをどうにかしたいです。

>>687
ほい

Sub aaa()
　　R = 1
　　While (Cells(R, 1) <> "") And (Cells(R, 2) <> "")
　　　　If Cells(R, 1) > Cells(R, 2) Then
　　　　　　Cells(R, 1).Insert
　　　　Else
　　　　　　If Cells(R, 2) > Cells(R, 1) Then Cells(R, 2).Insert
　　　　End If
　　　　R = R + 1
　　Wend
End Sub

>>696
元がUNIXなんだったら
diffとかuniqとか使え〜

っていうのはこのスレ的にNG?
Windowsならwindiffとかな。

>>698
「差分だけ」じゃなくて、「差分もわかる一覧」が欲しいんでしょ
まあsed使えって話はあるが

またダメ質問者か

UNIX系ならsortしておいてsdiffすれば近いものがテキストで得られるね
余計な記号が入るけど

>>695
何度も言うけど、<<比較前>>がソートされてるように見えないんだけど…
それじゃ希望の処理を自動でやるのは不可能だよ。

根本的に何もわかってないんだな。なんでこんな素人がUNIXなんか使ってるんだろう…

>>702

いや、ソートはもう関係ないと思うんだがどうよ？

もうスキル不足でショックです。
まあ、sedとかdiff使えって話なんですが、
テキストもらって、それをexcelで加工していたので
この作業してました。

でも一応

> 作業の流れは
> １．データをソートする

って書いてるし。
気持ちだけが先走ってんのかな
単純な大小比較では無理だから、リスト全体をスキャンして、
同じ物があるかどうか1つずつ調べていけばいいんだろうけど。

>>704
で、>>697は試したの？
ちゃんとソートされてれば、これでいけるはずなんだけど。

>>687は説明が下手過ぎかなwww

>>706
kabuのデータ処理だろから、行で書いてやらないとこいつにはわからないし、
試しも出来ないだろうwww

2003を使っています。
下付き上付きの文字ってExcelで入力することは出来ないのですか？

できますよ

書式設定の配置

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

軸の書式設定で「下端／左端」を選ぶと目盛りの値が外枠に表示されますが、
目盛り自体や補助目盛りも一緒に外枠に表示する方法はないのでしょうか？

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


日付　／　出勤時刻　／　退勤時刻　／　勤務時間　／　時給　／　給料

バイトの給料を記録するためにこういう表を作ってるんですが、うまく「給料」に数値を出力してくれなくて困っています

具体的に言うと、

日付　／　出勤時刻　／　退勤時刻　／　勤務時間　／　時給　／　給料
7/5　　／　　9:00　　　／　　19:15　　　／　　10:15　　／　\800　　／　\342　　　（←　こういう風に出力されてしまいます）

たぶん、「勤務時間」のセルの書式設定を「時刻」から「標準」に変えると「0.427083333」となるので、
800*0.427083333をしてしまってるのが原因だと思うんですが、
私のやってほしい式は

10.25 * 800 = \8,200　　（←15分＝0.25時間という計算です）

なのです・・・
どうやれば上記のような式を実行してくれるでしょうか？
よろしくお願いします

軸の書式の変更をマクロに保存しようとしたら下記のようなエラーが出てきたのですが
なぜなのでしょうか？
オブジェクト変数またはwithブロック変数が設定されていません。
デバッグをコピぺするとこんな感じになります。
Sub Macro1()
' Selection.TickLabels.NumberFormatLocal = "0_ "
ActiveChart.PlotArea.Select
With ActiveChart
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = _
"Potential (V vs. Au/AuOx)"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Current (μA)"
End With
ActiveChart.Deselect
End Sub
Sub Macro2()
'' Macro2 Macro
'' Selection.TickLabels.NumberFormatLocal = "0_ "
End Sub

何が問題なのでしょうか？

>>713
24をかければいい
=D1*E1*24

>>709
どんな文字を上／下付にしたいかによるが、数字なら「挿入」「記号と特殊文字」「上付き／下付きの文字」

>>687
データの数がそんなに多くなければピボットと関数で出来るけど。

>>714
「保存しようとしたら」じゃなくて、実行しようとしたら、じゃないの？
グラフエリアを1回クリックして選択状態にしてから実行した？

>>715
レスありがとうございます
お風呂行ってました
やってみますね

>>717
私もピボ厨なんだがこの問題は苦労している。
どうやればいいのか教えて。

完全外部結合を実現するためにこんな方法を考えてみた。
A1から順番に
dir1　dir2　left　right
/etc　/etc
/tmp　/dev
/var　/home
/home　/bin
と入力しておく。

leftの下に
=INDEX(A:B,MATCH(A2,B:B,0),2)
と入力してオートフィル。
rightの下に
=INDEX(A:B,MATCH(B2,A:A,0),1)
と入力してオートフィル。

するとこんなデータになる。
dir1　dir2　left　right
/etc　/etc　/etc　/etc
/tmp　/dev　#N/A　#N/A
/var　/home　#N/A　/home
/home　/bin　/home　#N/A

続き

このデータからdir1とleftをどこか好きな場所にコピペ（値貼り付けで）
dir　result
/etc　/etc
/tmp　#N/A
/var　#N/A
/home　/home

そしてその下にさらにdir2とrightをコピペ（値貼り付けで）
dir　result
/etc　/etc
/tmp　#N/A
/var　#N/A
/home　/home
/etc　/etc
/dev　#N/A
/home　/home
/bin　#N/A

このデータからフィルタで重複を取り除くと
dir　result
/etc　/etc
/tmp　#N/A
/var　#N/A
/home　/home
/dev　#N/A
/bin　#N/A
となって完成。

セル内の書式（標準字体と太字が混在）を維持したまま、
特定の文字（●）だけを全部消去したいのだけど、
どうすればいいでしょうか。VBA使ってもOKです。
Excel2003, XPです。

Columns("A:A").Sort Key1:=Range("A1")
Columns("B:B").Sort Key1:=Range("B1")

これで各列がソートされるから、元データがソートされてなくても大丈夫

>>722
●を空白に置換

>>724
それだと書式情報が消えて、関係ない太字の所まで全部標準字体になってしまうのです。

>>725
別の場所にコピーしてから置換、
元の表からコピーして形式貼り付けで書式のみ、でいけると思う

>>726
俺もそれは考えたけど、試してみたらだめだった。
VBAで意外と面倒なコードを書く必要がありそう。

同一セル内でフォント変えてるやつはクソ

フォントは変えてないっぽいけど

>>725
Excelだと難しいから、WordがあればいったんWordに貼り付けて、Wordで置き換えてから
Excelに戻すのが楽なんじゃないかな？

>>730
な、なるほど。できました。ありがとうございます。

>>687>>720

<<比較前>>
A列　B列
1/etc　/etc
2/tmp　/dev
3/var　/bin
4/home　/home

Ｂ列をＡ列の下に持ってくる。これをシートコピーして二つ作る。
　A列　B列　C列
1　/etc
2　/tmp
3　/var
4　/home
5　/etc
6　/dev
7　/bin
8　/home

一つの表をピボット、データは個数(シート名ピボット)
　A列　B列　
1　/etc　2
2　/tmp　1
3　/dev　1
4　/var　1
5　/bin　1
6　/home　2

もう一つの表の別の列に連番とA列B列の区別の為に下のように記入
　A列　B列　C列
1　1　A　/etc
2　2　A　/tmp
3　3　A　/var
4　4　A　/home
5　1　B　/etc
6　2　B　/dev
7　3　B　/bin
8　4　B　/home

A列B列でソート
　A列　B列　C列　D列　E列
1　1　A　/etc
2　1　B　/etc
3　2　A　/tmp
4　2　B　/dev
5　3　A　/var
6　3　B　/bin
7　4　A　/home
8　4　B　/home

C列の重複データ削除
　A列　B列　C列　D列
1　1　A　/etc
2　2　A　/tmp
3　2　B　/dev
4　3　A　/var
5　3　B　/bin
6　4　A　/home

D列にVLOOKUP(C1,ピボット!$A$1:$B$6,2,FALSE)

1　A列　B列　C列　D列　E列　F列
2　1　A　/etc　2
3　2　A　/tmp　1
4　2　B　/dev　1
5　3　A　/var　1
6　3　B　/bin　1
7　4　A　/home　2

E列に=IF(D2=2,C2,IF(A2=A1,"",C2))
F列に=IF(D2=2,C2,IF(A2=A1,C2,""))

2003を使っています。
A1に数値が入っていたとして
他のセルの数式でA1を使うとA1をどこかに移動したとしても
そのセルの数式も一緒に更新されます。
これを更新されないようにして移動させたいのですが
どうすれば良いのでしょうか？

移動ではなくコピーと削除を使うか
数式側でINDIRECT("A1")を使うか

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

>>736
コピーしてから削除するとクリップボードにコピーされた内容は破棄されてしまいます。
一度別のところに貼り付けると数式のリンクもそこにとばされてしまいます。

>738

この場合のｺﾋﾟｰとはﾍﾟｰｽﾄまで含んでいる。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2002
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】Excel　入力規則
他人の作ったエクセルの改修をしていますが
目に見えない、見えにくい項目に苦労しています。
そこでVBAで探索したいのですが、A1:Z100を検索する例では

dim ix as long,iy as long
dim sRange as string
for ix=1 to 26
for iy=1 to 100
sRange=chr(ix+64) & iy
if ?????????? then
debug.print sRange & "入力規則"
end if
next
next
---------------------------
???????の部分を
Worksheets(2).Range(sRange).Validation <> ""　とか
Worksheets(2).Range(sRange).Validation.Type = xlValidateList
Worksheets(2).Range(sRange).FormatConditions(1).Type > 0
で実行すると
「実行時エラー'1004':
アプリケーション定義またはオブジェクト定義のエラーに
なるのですが、どうすればいいのでしょうか。

dim ix as long,iy as long
dim sRange as string

Dim t As Long

for ix=1 to 26
for iy=1 to 100
sRange=chr(ix+64) & iy

On Error Resume Next
t = Worksheets(2).Range(sRange).Validation.Type
If Err.Number = 0 Then Debug.Print sRange & "入力規則"
On Error GoTo 0

next
next

とか

>>741
なるほど、エラートラップを入れないといけないんですね、
それを参考に煮詰めていきます。
ありがとうございました。

>>734
おー。できてる。すごい。
原理的には左外部結合と右外部結合のユニオンとるのといっしょだね。

やっぱり簡単にすることは出来ないのでしょうか？

自分の読み返してたら間違いに気付いた。自己満足のために訂正します。
>>721
続き

このデータからdir1とleftをフィールド名をdir1,dir2として、どこか好きな場所にコピペ（値貼り付けで）
dir1　dir2
/etc　/etc
/tmp　#N/A
/var　#N/A
/home　/home

そしてその下にさらにdir2とrightをフィールド名をdir2,dir1としてコピペ（値貼り付けで）
dir1　dir2
/etc　/etc
/tmp　#N/A
/var　#N/A
/home　/home
/etc　/etc
#N/A　/dev
/home　/home
#N/A　/bin

このデータからフィルタで重複を取り除くと
dir　result
/etc　/etc
/tmp　#N/A
/var　#N/A
/home　/home
#N/A　/dev
#N/A　/bin
となって完成。

>>535
その方法を使うとオートフィルまでオフになってしまうのですが
どうにかならないのでしょうか？

>>746
ダブルクリックをやめたらどう？
F2キーを押すとかで代用。

OriginProだとグラフをガウス関数やローレンツ関数にフィッティングすることが出来るそうなのですが
Excelでは無理なのでしょうか？

うん。無理。

あるアプリが吐き出すログ（CSV方式）を見やすくするマクロを組んだbookを作りました。
このログのアイコンをクリックすると、自動的にこのbookが起動する様に出来るんでしょうか？
（この場合、bookのマクロはAuto_Open記述だと思いますが・・）

出来る
でもAuto_Openに記述するのは別として、そのログファイルをクリックで
任意のアプリを立ち上げるのはExcelではなくWindowsの設定なのでスレ違い

それとExcelの質問じゃないついでに少し脱線するが
プレーンテキスト(CSVはカンマ区切りのプレーンテキスト)の整形程度なら
わざわざExcel立ち上げないでスクリプト使った方がいいでしょ
PerlでもRubyでもSedでもいいが、VBA使えるならWSHのVBSが取っつきやすいだろう

XPを使っています。
グラフ上でのテキストボックスの挿入の仕方を教えて下さい｡

グラフにテキストボックスを重ねるだけ

>>750
アドインにしてしまえば？

>>751
>>754
レスありがとうございます。
Excelにしたのは、オートフィルタを使いたかったのと、読み込んだログの内容から計算値も表示させたかったためです

もう少し自分で調べてきます

Public Function FldInputDlgDsp() As Variant
Dim myFld, Shell
On Error Resume Next
Set Shell = CreateObject("Shell.Application")
myFld = Shell.BrowseForFolder(&O0, "情報を取得するフォルダを選択して下さい", &H251, "")
FldInputDlgDsp = myFld
End Function

----
Private sub フォルダ情報を取得する()
Dim FSO, objFld
Set FSO = CreateObject("Scripting.FileSystemObject")

　　Set objFld = FSO.GetFolder(FldInputDlgDsp.Items.Item.Path)

以下略

フォルダ参照のダイアログをFunctionでまとめたくて試行錯誤してるんですが、うまく行きません…。
選択したフォルダの文字列は返せるのですが、フォルダパスとして返すには
どのようにすればよいのでしょうか？何方かご教示＆ご解説お願いします…。

>>756
　>>2･7
　>>3★VBAについて

>>756
パスの文字列が欲しいなら
CreateObject("Shell.Application").BrowseForFolder(0, "選択して下さい", &H251).self.Path
なんじゃね？

>>758
ありがとうございます！

myFld = Shell.BrowseForFolder(&O0, "情報を取得するフォルダを選択して下さい", &H251, "") .self.Path

Set objFld = FSO.GetFolder(FldInputDlgDsp)

に修正してパスが取得できました。
これでソースが纏められます。感謝m(__)m

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

ログファイルから各種括弧(または類するもの)→　() [] 【】 <> 《》 「」
で囲まれた文字列を取り出したいのですが、どのように処理すれば
よいのでしょうか？ログなので、取り出すのは任意の文字列です。

例：
***(aaa)** → aaa
**[bbbb]*** → bbbb
月火【水】木金土 → 水

>>760
3個上のレスを読もう

>>757も>>761も何が言いたいのかよく分からん

>>762
Excelと直接関係のない質問はVBA専用のスレで聞けってことよ。

>>406は相談所で自演ばかりやってる基地外だからねぇ。

相談所
　　574 名無しさん＠そうだ選挙にいこう sage 2008/07/03(木) 22:58:30
　　理由を書いて返論されるのが怖いでけだろ

時間帯的にこいつだろうが正論への反論が怖いわけないって。
あきれ果ててあれ以上詳しくは書かないだけ。

誤爆すまんね
質問不可の板のつもりだったわ

>怖いでけ
方言?

【質問不可】Excel総合相談所スレの雑談・議論スレ2
　　406 名無しさん＠そうだ選挙にいこう sage 2008/07/03(木) 22:57:26
　　相談所でわざと誤字を書いてみる。どこまで食いついてくるかな。

こういうことらしいからわざと書いたんじゃね？
俺は返論がわざとだと思ったが、ググってみると返論って使ってるやつもいるようだな。

かわいそう

教えて欲しいことがあります。
A B C D
1 1 10 100 1000
2 2 20 200 2000
というセルの状態から
　E
1 1
2 10
3 100
4 1000
5 2
6 20
7 200
8 2000
という状態にセルを移動させるにはどうすればよいでしょうか。どなたか教えてください。
できればVBAを使わないでやりたいです

>>769
行列を入れ替えて貼り付けを２回

>>770
ありがとうございます。たしかにそれだと短い行列ならできますが、
問題はセルの行が2000行近くあり、行列の変換をおこなうだけで
エラーがおきてしまいます。他に方法がありましたらよろしくお願いします

>>769
'=A1
'=B1
'=C1
'=D1
を下に引っ張って、データ、区切り位置、完了で数式に戻せばいいんじゃね？

>>771
INDEX($A$1:$D$2,1,1)
INDEX($A$1:$D$2,1,2)
INDEX($A$1:$D$2,1,3)
INDEX($A$1:$D$2,1,4)
INDEX($A$1:$D$2,2,1)
INDEX($A$1:$D$2,2,2)
INDEX($A$1:$D$2,2,3)
INDEX($A$1:$D$2,2,4)

INDEX(参照領域,行番号,列の連番)
行番号は row で引いてきても良いような
連番は、適当な場所に作って参照しろ

>>773
別シートに以下を作成
　　　Ａ　　　Ｂ　　　　　　　Ｃ
1　　　1　　　1 =INDEX(参照領域,A1,B1)
2　　　2　　　1 =INDEX(参照領域,A2,B2)
3 　 =A1 =B1+1 =INDEX(参照領域,A3,B3)

で３行目を FILL して全体を値複写して
A列B列を昇順にソート

772.773
ありがとうございます。
773の方法でやってますが、うまいこと参照できません。
参照の方法としてどんな方法があるのか教えてください。

>>775
772じゃないが、=A1じゃなくて'=A1ってやってる？
頭に接頭辞の「'」をつけるんだが。