Excel総合相談所 55

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

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

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

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

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

前スレ(54)：http://pc11.2ch.net/test/read.cgi/bsoft/1172140808/

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･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
　　｜　 ｜└Worksheets
　という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で出来ないことはたくさんあります。
ここに書かれてないからといって必ず出来るはずだなんて思わないように。

>>6
＞▼環境･書式
＞ ･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する

補足
2007ではページレイアウトビューの表示時に限り、幅・高さともｃｍ単位で表示され、
指定も同じくcm単位でできる。
ただし大元がインチ系なのでなかなかピタリの値は出ない。1cm→0.98cmのように
近い値に勝手に丸められる。

前スレに下記の質問をしたのですが、９９５番の為、以降「ume」で終わってしまいました・・・。
もう一度質問させて下さい。お願いします。


995 名前：名無しさん＠そうだ選挙にいこう[sage] 投稿日：2007/03/27(火) 19:58:11
すみません、稚拙な質問ですが宜しくお願いします。
当方エクセル２０００を使い始めました。
組織図を作成しようと思い、図→組織図を選ぶのですが、下記の様な表示が出て、
全然うまくいきません＝ＥＭＢＥＤ（”　Ｏｒｇｃｈａｒｔ”、”）

会社のエクセルＸＰだとすんなり作れるのですが、どうしてなのでしょうか？
教えて頂けると助かります。

>>8
ume

>>8
>>1-7

Excel2000だと組織図って追加インストールしないと使えないんじゃなかったかな？

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

URLの入ったセルがあるのですが、ハイパーリンクとして認識してくれません
セルを選択→Ｆ2→Ｅｎｔｅｒ　でもダメでした
ちなみに、同ファイルの別シートではきちんとハイパーリンクとして認識されています
何がいけないのでしょうか…

自己解決しました
ツールバーからの「オートコレクトのオプション」→「入力オートフォーマット」タブでの設定ですね
下らない質問でスレ汚し申し訳ありませんでした

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 文字幅、インテンド等でしてみました

質問なのですが、上下のセルで文字数が違ものを
中央揃えで同じ幅にすることは出来るのでしょうか？
例えば上のセルに「あいうえ」と打って
その真下のセルに「あいう」とうったときの
中央揃えでの文字列の幅を同じにしたいのですが
（上の段の「あ」の位置に下の段の「あ」がきて、上の段の「え」と下の段の「う」が同じ位置）
このようなことは出来ますでしょうか？
説明が上手にできていませんが、どうぞよろしくお願いいたします

>>14
全角文字ならセルの書式設定の均等割り付けで近いことできるんじゃないかな

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 近い数字、抽出、条件中最大・最小etc...

質問です
表の1行から特定の数字に近い最大・最小を他のセルに出したいです
表は
｜-30｜-84｜-111｜-151｜-180｜-215｜-226｜-239｜
｜-39｜-45｜-105｜-150｜-170｜-195｜-204｜-224｜のようになっていて
50、100、150...と50毎に抜き出して別々に表示させたいです
（2行目だと50であれば-45と-105、100でも-45と-105、150ならば-150と-170）

一応試したみたのは
=MAX(IF($F$3>=!B4:I4,!B4:I4))こんなのですが
1行目の-30くらいしか上手くいきませんでした
ややこしい説明で申し訳ありませんがよろしくお願いします

>>16
分りにくいな
書き出し条件を、「以上・以下・未満・超える」等の表現で説明しなおして

>>17
書き出しを50の場合にα、βで分けているので
α：50以下で最大
β：51以上で最小
になります

なので、>>16の表でいくと150の欄は
1行目　α：-111、β：-151
2行目　α：-150、β：-170
となります。列は無視して行の中で抽出して表を作り直す事になります

｜　　　50　　　｜　　　100　　｜　　150　　｜　　　200　　｜
｜　α｜　β　｜　α｜　β　｜　α　｜　β｜　α｜　β｜
｜ -30｜　-84｜-84｜-111｜-111｜-151｜-180｜-215｜
｜ -45｜-105｜-45｜-105｜-150｜-170｜-195｜-204｜

こんな感じです

こうかな？
=-MAX((-A1:H1<=50)*-A1:H1+(-A1:H1>50)*MIN(-A1:H1))
=-MIN((-A1:H1>=51)*-A1:H1+(-A1:H1<51)*MAX(-A1:H1))
ctrl+shift+enterで入力

>>18
降順に並んでるみたいだからindex+matchでいけるんでない？
A1:A8が検査したい範囲
A9が検査したい値（50とか100とか）
だとすると、直近の値は「=index(A1:A8,match(A9*-1,A1:A8,-1))」
そのひとつ上の値は隣のセルだから「=index(A1:A8,match(A9*-1,A1:A8,-1)+1)」かな？

>>19
出来ました！ありがとうございます

ただ、50以下がない場合
｜-51｜-93｜-135｜-178｜-194｜-231｜-237｜-230｜
の場合、α・β両方とも51が返されてしまうのですが
何か対処法はありますでしょうか？

ここまで出来たので難しいようであれば手作業で行うつもりです
今までは全て手作業だったので大幅な進歩です

>>20
レスありがとうございます
降順が多いのですが全てではないんですよね

後、場合によっては
｜+24｜-41｜-87｜-111｜-146｜-176｜-173｜-159｜
のように＋の数値がある表が出てくるので

これを
｜　　　0　　　｜
｜　α｜　β　｜
｜ +24｜　-41｜
のようにもしたいです

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

1列に500行くらい、数字が入力してあります。
この数字の数別ランキングみたいな、集計をしたいのです。
例）
　　　0000　｜0000｜１｜　　
　　　1111　｜1111｜３｜
　　　8888　｜2222｜１｜
　　　1111　｜3333｜１｜
　　　1111　｜8888｜１｜
　　　2222　｜↓続く
　　　3333　｜　　　　
　　　↓500行続く

データの並べ替えとオートフィルタでトップテンはすぐ出るのですが、
全ての数字に対して、これがいくつあるのか、という集計をしたいので
関数でできる方法がないかと思って質問させて頂きました。

よろしくお願いします。

>>24
関数はちょっとすぐに思いつかないけど、それより
ピボットテーブル作るのがてっとりばやいんじゃないかな

>24
A1〜A500がデータとすると
B2に　=IF(ISERROR(MATCH(A2,A$1:A1,0)),A2,"")
C2に　=IF(B2="","",COUNTIF(A$1:A$500,A2))
B1〜C500にコピペ
式の埋め込みでは上詰めにできないから
値貼り付けしてソート

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 代入、参照、クラス

sheet1のIDとnameをsheet2に代入したいのですが、
sheet2のIDには抜けがあるのでそのままコピペできません。
IDとnameをリンクさせて2に代入する方法はありますでしょうか？

sheet1
ID | name　
1　| hoge
2　| foo
3　| bar

sheet2
ID | name
1　|
3　|
4　|

代入は無理かなVLOOKUPかMATCH,INDEXなどで我慢してくれ

ご回答ありがとうございます。
VLOOKUPなどでやってみます。

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

計算式の関係で隣と同じ数値が出た場合、表示しない方法を探しています。
条件付書式の関係で色がついているので、
白いセルにして文字も白にしたかったのですが条件付書式は使い切ってます。
よろしくおねがいします。

>>30
IF関数

>>31
すでにそのセルには配列数式が入っているのですが、
IFでくくればよろしいのでしょうか？
自分なりに試してみましたが出来ません。

アドバイスお願いします。

エクセルの使い方から誘導されてきました。

行数が4000で・A固有名詞・B〜Fのデータが随時更新しているのですが、Gの列に計算式を入れてます。
G列の数値が3.0以上になったらA固有名詞をＪ1〜Ｑ30に抽出させる方法ないでしょうか？
（3.0以上になる確率は3%くらいで、120個程度だと思います）

以上、お願いします。

>>33
補助列を使えば、かなりのことができるが、
それが不可なら、具体的なデータを示してください。

>>３４　は　>>３２でした

>>33
VBAを使えば可能だろう。
Worksheet_Chengeか Application.OnTimeで数値を拾って、
拾ったA固有名詞をＪ1〜Ｑ30に書き込んでいく。

テンプレもないから後はほかの人にまかせる

>>32
その配列数式と数式が参照しているセルの値を書け。(>>2参照)

>>33
数式だと面倒なんでVBAでループ回そう。(>>3参照)

>>34
補助列は空いているセルの事ですよね？
使用可能です。そのやり方でいいので御教示お願いします

>>37
失礼しました。きちんと読んでいませんでした
なので表は>>18のもの、配列数式は>>19のもので

表の1行目
｜-30｜-84｜-111｜-151｜-180｜-215｜-226｜-239｜
において
=-MAX((-B4:I4<=250)*-B4:I4+(-B4:I4>250)*MIN(-B4:I4))と
=-MIN((-B4:I4>=251)*-B4:I4+(-B4:I4<251)*MAX(-B4:I4))を使った場合

250の欄で
｜　　 250 　　｜
｜　α ｜ β　｜
｜-239｜-239｜
となってしまいます

こちらを何とか非表示にしたいのです
どうかよろしくお願いします

>>36
>>37

ありがとうございます。VBA勉強します。

>>25
普通にできなかったので関数でやるしかないと思ったのですが
ピボットテーブルという物があるのですね。
試してみたら、理想に近い形で出てきました。

>>26
関数だと2段階になってしまうのでしょうか
すみません。教えて下さった関数がうまく反映できなくて
今もやっているのですが集計できません・・・
例でいくとC行に集計結果が出るんですよね？
もう少し自分で調べて試してみます。


回答下さった皆様、ありがとうございました。

>>39
とりあえず計算シートと表示シートを分けて、
ifつけて引っ張ってくるのが理解しやすいんじゃまいか？

【1 OSの種類 　 　 　 　 .】 WindowsXP 
【2 Excelのバージョン 　 】 Excel2003（Office2003Pro）
【3 VBAが使えるか　 　 .】 ほとんど使えません
【4 VBAでの回答の可否】 簡単なものならば可
【5 検索キーワード 　 　 】 保存　マクロ　アーカイブ　etc...

エクセルのファイルを保存しようとしたら「保存できませんでした」ってメッセージが出てしまって 
保存できなくて困ってるんですがどうすればよいでしょうか？ 
マクロとかベーシック言語とか使ってあってＣ言語をちょっとかじったくらいなので 
まったく分かりません。 
とにかく作業をしていたので保存だけでもしたいのですが、 
何か心当たりは無いでしょうか？？ 
普通のエクセルのファイルは保存できるのですが。。。 

>>43
エラーメッセージや画面を隠さず全てここに書き出せば誰かがわかるかも

>>43
取り敢えず保存するファイル名を変えてみたら？

>>43

ありがちなパターンとしては、
開いたExcelファイルは、リムーバブルメディアにあったやつで
そのメディアを取り外してしまったとか、
ネットワーク上ならば、ネットワークが何らかの理由で
切断されてしまったなどが考えられる。
とりあえず「名前をつけて保存」で、確実にあるであろう
デスクトップ等に保存してみる。

>>42
遅くなりましたがそうしてみます
ありがとうございました

>>47
ついでに、計算シートで
=-MIN((-A1:H1>=51)*-A1:H1+(-A1:H1<51)*MAX(-A1:H1))
のところを=-MIN((-A1:H1>=51)*-A1:H1+(-A1:H1<51)*9999)
にして（9999のところは出てくることのありえない数字）、if式で条件付ければ、
>>22でいってたことも実現可能

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003（Office2003Pro）
【3 VBAが使えるか　 　 .】すこしなら
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 組み合わせ　etc...

１６人が４卓でそれぞれ４回麻雀をやる時、４回とも違うメンバーでやる組み合わせを
考えなければならないんですが、excelで簡単にできませんでしょうか。

簡単かどうかは君の能力次第だが､出来るのは間違いないよ。
ただ計算ソフトの話ではなくアルゴリズムの話になるので具体的な話はスレ違い。

｢簡単に｣というのが､Excelが機能､関数､メソッドなどとしてその機能を備えていて
ボタン1発や命令1文で結果を出せないかということなら｢出来ない｣と答えよう。

>>49
毎回違うメンバーで、ということなら、下記5通りしかない。
(a,e,i,m)　(b,f,j,n)　(c,g,k,o)　(d,h,l,p)
(a,f,k,p)　(b,e,l,o)　(c,h,i,n)　(d,g,j,m)
(a,g,l,n)　(b,h,k,m)　(c,e,j,p)　(d,f,i,o)
(a,h,j,o)　(b,g,i,p)　(c,f,l,m)　(d,e,k,n)
(a,b,c,d)　(e,f,g,h)　(i,j,k,l)　(m,n,o,p)

わざわざExcelで面倒な関数を使わなくても、例えば1行目に
参加者の名前を入れ、2行目以降に=$A$1、=$E$1・・・といった
フォーマットを作っておけば、簡単でいいのでは？

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

折れ線グラフを作成した際に、Y軸の値によってプロットエリアの背景色を
変えたいのですがどのようにしたらいいのかわかりません。
（0<Y<50の領域は赤、50<Y<80は黄色、80<Yは青とプロットエリアを分割して色指定したい）
検索するうちに、プロットエリアの幅指定などがVBAでできるらしいということはわかりましたが、
当方まったくVBAわかりません。
グラフ上で各領域の色が塗り分けられているように見えればよいのですがなにか方法はないでしょうか？
よろしくお願いします。　

>>50,51

ありがとうございました。
おかげで助かりました。

神様！

棒グラフとの複合グラフにして、１つの棒グラフの幅をすんごい広げてその色で塗り分ける。

Excelのバージョン2003インストールしたんだけどネットつなげてるのに接続してください
ってでてライセンス認証ができないんだけどどうすれば認証できる？

>>54

なるほど！　おめえ、意外と頭いいな。

>54
コペルニクス的なすばらしい回答をありがとうございました。
おかげさまで目的のグラフが作成できました。
ありがとうございます。

55はマルチなので放置の方向で

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】勉強中
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 勤務シフト作成

　質問です。　一ヶ月ごとの勤務シフトを作成してるのですが、基本のパターンが決まっていて
土曜、日曜祭日と違うシフトになります。
今はベースの流れを作って、毎月コピー、ペーストしてますが、土日の流れを間違えたりミスをしてます。
　　　　　１　　２　　３　　４　　５　　６　　　７　　８　　９　　１０　　１１　　１２　１３　　１４
　　　　月　　火　　水　　木　金　　土　　日　　月　　火　　祭　　木　　金　　土　　日
　Ａ　　01　　02　　03　　04　　　　　11　　22　　03　　04　　　　　01　　02　　13　　24
　Ｂ　　02　　03　　04　　　　　01　　12　　23　　04　　　　　21　　02　　03　　14
　Ｃ　　03　　04　　　　　01　　02　　13　　24　　　　　01　　22　　03　　04　　　　　21
　Ｄ　　04　　　　　01　　02　　03　　14　　　　　01　　02　　23　　04　　　　　11　　22
　Ｅ　　　　　01　　02　　03　　04　　　　　21　　02　　03　　24　　　　　01　　12　　23

　こんな感じです。アルファベットが人で数字がシフトです。　空白は休みです。
ＶＢＡで出来そうかと勉強してますが、さっぱりわからなくていきずまってしまいました。
どなたかご教授いただけたら幸いです。　よろしくお願いします。

>>59
4勤1休で初日から1,2,3,4､土曜は+10､日曜祭日は+20ってことか？
とりあえず､>>2･8に従って出来てる部分のコードを貼ろう。
丸投げする気ならブックのうpをよろしく。

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 キーワードが思いつきませんでした

商品の部品展開表の作成について教えてください。

セル 内容
A1 ※
B1 食品
C1 ※
C2 ※
C3 ※
C4 ※
D1 穀物
D2　　　野菜
D3　　　果物
D4　　　飲料

61の続き
A1とC1が同じであれば（※）Cの列と同じ数の※をA2以降に追加して
Ｂの列はＢ２以降にＣにある（※）と同じ行数分の空白を作りたいのですが可能でしょうか？
最終的には
セル 内容
A1 ※
A2 ※
A3　　　 ※
A4　　　 ※
B1 食料
B2 (空白）
B3　　（空白）
B4　　（空白）
C1 ※
C2 ※
C3 ※
C4 ※
D1 穀物
D2　　　野菜
D3　　　果物
D4　　　飲料
の形にしたいです。
よろしくお願いします。

>>60　
　早速の対応ありがとうございます。
基本は４勤１休でその通りです。　コードはＶＢＡの本を買って勉強してますがどういう風に
入力していいのか、ついていけていません。
　ブックのうｐとはどうしたらよろしいのでしょうか？　素人ですいません。

>>61-62
IF関数でいいじゃん。それと空白を作るってどういう意味だ？
Excelのセルはデフォルトで空白だが､そのままじゃまずいのか？

>>63
ttp://www.1rk.net/
ここでブックのサイズに合った適当なアップローダを探して。
zip圧縮したブックをアップロードし､ファイルの番号なりURLなりをここに貼れ。

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

日付や時刻の表示形式に＊がついているものがあり、
下に説明が書いてますが、
Excelの表示形式なのにオペレーテイングシステムの日付の並びが
変わるとか意味がわかりません。
詳しい方教えてください。

申し訳ありません実はもう少し複雑になります
よろしければ私もブックのうＰの仕方を教えていただければ幸いです

64>>早速のれすありがとうございました。
いろいろ複雑でして・・
うＰさせていただきます。m(__)m

ttp://onishibata.ddo.jp/2/download.php?id=00026
Down Key AAA
初めてのうＰなのですが大丈夫でしょうか？

Downloadリンクがない。

DL完了

>>69
パスの下にある

こりゃめんどい

>>65
ttp://www.relief.jp/itnote/archives/001071.php

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

鹿児島
福岡
宮崎
熊本
大分

など・・・北から順番に並び替える方法ってないですか？

>>74
県のコードがあるので、それをつかえ

69>>
Down Keyに「AAA」をいれて、Down Keyの下のDownloadを押すと
Download出来るみたいです
70>>ファイルをうＰするのは初めてなので一安心です
よろしくお願いします。
71>>補足ありがとうございます
72>>すみません、不可能ということですか？

すみません２ちゃんもかなり久しぶりで間違えてました

>>69
Down Keyに「AAA」をいれて、Down Keyの下のDownloadを押すと
Download出来るみたいです
>>70
ファイルをうＰするのは初めてなので一安心です
よろしくお願いします。
>>71
補足ありがとうございます
>>72
すみません、不可能ということですか？

彼には不可能

ttp://a-draw.com/uploader/src/up19219.zip.html
とりあえずアップしてみました。　お暇なときにでもお願いいたします。

>>61.62
VBAで出来る。適当に書いた

Sub Macro1()
Dim ws_s1 As Worksheet
Dim ws_s2 As Worksheet
Dim i As Long, j As Long, k As Long
Dim my_Row_ws_s2 As Long

Set ws_s1 = Worksheets("Sheet1")
Set ws_s2 = Worksheets("Sheet2")

ws_s2.Select
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight

Sheets("Sheet1").Select
Range("A1:C1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste

j = 2
my_Row_ws_s2 = ws_s2.Range("d65536").End(xlUp).Row
'ws_s2を基準として考える
For i = 2 To my_Row_ws_s2 '最後までループ
If ws_s1.Cells(j, 1) <> 1 Then '1以外の場合
If ws_s2.Cells(i, 4) = ws_s1.Cells(j, 1) Then
'数値の書き込み
ws_s2.Cells(i, 1) = ws_s1.Cells(j, 1)
ws_s2.Cells(i, 2) = ws_s1.Cells(j, 2)
ws_s2.Cells(i, 3) = ws_s1.Cells(j, 3)
ws_s1.Cells(j, 4) = 1
j = j + 1
End If
End If

'空白の場合、コードを書き込む
If ws_s2.Cells(i, 1) = "" Then
Debug.Print
ws_s2.Cells(i, 1) = ws_s2.Cells(i, 4)
End If
Next i

'1を消す
ws_s1.Select
Columns("D:D").Select
Selection.ClearContents
ws_s2.Select
End Sub

改行うざいってJaneに怒られた

> 改行うざいってJaneに怒られた
この板は32行までしか書き込めないからな。
そもそも無駄な処理ばかりやってるから行数増えるんだよ。

ws_s2.Select
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
↓
ws_s2.Columns("A:C").Insert

Sheets("Sheet1").Select
Range("A1:C1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
↓
ws_s2.Range("A1:C1").Value = ws_s1.Range("A1:C1").Value

ws_s2.Cells(i, 1) = ws_s1.Cells(j, 1)
ws_s2.Cells(i, 2) = ws_s1.Cells(j, 2)
ws_s2.Cells(i, 3) = ws_s1.Cells(j, 3)
↓
ws_s2.Cells(i, 1).Resize(, 3).Value = ws_s1.Cells(j, 1).Resize(, 3).Value

ws_s1.Select
Columns("D:D").Select
Selection.ClearContents
↓
ws_s1.Columns("D:D").ClearContents

へぇ、32行までなんだ。
面倒だったからマクロ記録のコード貼り付けたからなー。
ギアス見るまでの時間つぶしだし。

>ws_s2.Cells(i, 1).Resize(, 3).Value = ws_s1.Cells(j, 1).Resize(, 3).Value
なるほど、こういう使い方もあるのか。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows　XP
【2 Excelのバージョン 　 】 Excel 2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 表示形式　ユーザー定義

質問をさせて頂きます。

以下の様な文字と数字が混ざった入力（MACアドレス）をした際に、
間に「-」が入った状態で、表示される様にしたく、
表示形式を色々いじっていたのですが、上手くいきませんでした。


【入力】0a0a0a0a0a0a
【表示】0a-0a-0a-0a-0a-0a

上記の様に表示させるには、どの様にすれば良いのか、
ご教授頂けませんでしょうか。
宜しくお願い致します。

> 上記の様に表示させるには、どの様にすれば良いのか、
> ご教授頂けませんでしょうか。
表示形式では不可能

12345を1-2-3-4-5にするなら0-0-0-0-0でいいが
文字列(16進も文字列扱い)はこういった桁単位での指定は出来ないので

関数で別セルにというなら､
=MID(A1,1,2)&"-"&MID(A1,3,2)&"-"
って感じでいける

エクセル勉強したいのですが、入門〜中級くらいまで網羅している本で、
お勧めの書籍があったら教えてください。
osはxp、Excel2002。プログラムは素人です。

>>86
人それぞれだから、本屋で流し読みして探せ
大体どれも似たようなもんだｙ

時折探すけど「合計するときはSUM関数を使おう！」っていうのから
「VBAでゴリゴリ」っていうのの間が無いんだよなぁ、結構。（苦笑）

中間が無いってあたりまえじゃない？
辞書的な分厚い書籍を買えば一通りの使い方は乗ってるわけだし、
基本を理解したらあとはその人の応用力というか、組み合わせの問題だし。

その組み合わせを考えるもの面倒なら、小学生からやりな（ｒｙ

VBAで「ゴリゴリ」って表現は似合わないなぁ
アセンブラとかだったら「ゴリゴリ」って感じがするけど

>>86
初心者なら流し読みしても何がいいのかわからんだろう
ひとつだけアドバイスするなら「やりたいこと、できること」ごとに
例題が載ってて詳しく解説してあるものを薦める
のちの応用力にも影響するよ

定番的なのがあればと思ったのですが、ないようですね。
アドバイス、ありがとうございます。参考にして選んでみます。

同じ出版社、同じシリーズ名で2000→2002→2003→2007と
バージョンアップのたびに新刊が出ているものは、
ある意味定番と呼んでいいかもしれない。

ただエクセルの場合は、そういうシリーズだけでも複数あるし
読む側の理解度やPCの習熟度で、「よい本」というのはまるで異なるから、
おすすめしようがないんだわな。自分にとっての「よい本」が、
他人にもよい本である保証はどこにもないからね。

以上、チラシの裏。

>>86
とりあえず５月号の「日経ＰＣ」でエクセルの特集をやってるから参考にすれば！
（付録で事典も付いてるよ）

>>94
読んでないけど、それって2007でないかい？
質問者は2002

ただ図書館行って、雑誌のバックナンバーをあさるってのは
ひとつの手かもしれないな。

>>95
2000以降のエクセルで解説してるよ

>>96
了解。
そうなると逆に、あれだけ操作系の違う2003までと2007とを
どうやって分けて説明しているのか興味があるな。
数式とかはほとんど変わりないからいいとしても。

ほんと馬鹿だなあ

違うのは操作系ではなくインターフェイスね。
それに､同ソフトのバージョンアップと見れば大きな違いだが
完全別ソフトを併説するわけではないので､解説観点からはこの程度の違いは
さしたる問題にはならない。ちょこちょこっと注釈入れておけば良い程度。

日経PCいいよね。俺はINDIRECTをそこで初めて知った。

>>61-62
参考：再帰クエリ
ttp://msdn2.microsoft.com/ja-JP/library/ms186243.aspx
OracleかSQLServer2005限定の技だけど、MRPとかに手を出すならこっちになる。

>>80 >>81 >>82 >>83
皆様ありがとうございます。
>>82
Sub Macro1()
以下コピーして「↓」マークを消して
End Sub
で実行してみたのですが
MSBがでて
実行時エラー424
オブジェクトが必要ですと言われます
何かを省略されているのでしょうか？お手数ですが教えて頂けますか？

>>101
変更以前のスーテーと麺とも消さないと…

>>102
レスありがとうございます
コードの中にはその他になにも書かれていません
何処でけせますか？

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

コントロールオブジェクトのコンボボックスやチェックボックスをシート上に配置すると、フォーカスのあたった状態とあたっていない状態とで、文字の大きさや太さが変わってしまいます。(あたっている状態のほうが綺麗な感じです。)
これは仕様でしょうか。
改善させる方法があれば教えてください。

関数の戻り値（結果の値や文字）をただのデータ（直接入力した文字や値）
として変換できませんか？？

>>105
関数だとできないよ。
値だけコピーして貼り付けるとかしないと駄目。
VBAだったら、その操作を自動化するとかでいけるんじゃないかな？

>>103
ttp://support.microsoft.com/kb/417966/ja

昔からある現象だけど、解決策は無いみたい。
[フォーム]のツールバーからのに置き換えて使うしかないかな？

あ、107は104さん宛てです。ごめんごめん。

形式選択して張り付ければいいんですね
簡単な質問してすいません　どうもありがと
＞１０６

マクロで他のエクセルデータの一部だけを
インポートするにはどうしたらいいでしょうか

そういうVBAを書けば良い。


-以上-

>>110
バージョンにもよるけど、外部データの取り込み機能で、データ元を
読み込みたいデータのあるブックにするだけで、読み込めるよ。

普通はシート単位でしか読み込めないけど、読み込みたい範囲に「名前」
つけておけば、その範囲だけ読み込むこともできる。
元のデータ更新したら、読み込み先でも更新ボタン押せば反映されるから
楽っちゃ楽。

ただ、この方法だとロックかかって同時には開けないんだけどね。

検索範囲のなかで同じ値を知らせるような関数ってありますか？
ご存知の方いらしたら教えて下さい。

EXACT

>>114
ありがとうございます。　やってみたんですがEXACTは複数セルの場合は
出来ないのでしょうか？　複数の値の中で同じ値が出たらわかるように
したいのですが・・・　

【1 OSの種類 　 　 　 　 .】 Windows　ＸＰ
【2 Excelのバージョン 　 】 Excel*２０００
【3 VBAが使えるか　 　 .】 限りなくいいえ
【4 VBAでの回答の可否】 可･

A1〜BZ1までのデータに、数字が入っている時にアベレージを出したいのですが、
（数字は必ず+数字になります）
１つづつ、IF(AND(A1>0,B>0,C>0・・・・・・・・・),AVERAGE(A1:BZ1),"")
とBZ1まで書かない方法を教えてください。

>>116
＋の数値だけを抜き出して、その平均を出したいというコト？

>>117
いえ違います。

A1〜BZ1までのデータは必ず＋の整数が入ります。

ただリアルタイムに変動しているので、空白になる場合があり
その時は、平均値をださずに空白にしたいのです。

=IF(COUNTBLANK(A1:BZ1)>=1,"",AVERAGE(A1:BZ1))

=IF(COUNTBLANK(A1:BZ1)=0,AVERAGE(A1:BZ1),"")
こっちの方がスマートだた。

>>119
>>120
ありがとうございます。大変助かりました。

>>115
できる。がんばれ。

>>120
=IF(COUNTBLANK(A1:BZ1),"",AVERAGE(A1:BZ1))

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい（極々僅かです。）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel vba 並べ替え 数値 漢字 含む

A列に1,2,3,4,5,・・・と番号が入力してあり、B列に点数が59,42,48,63,欠席,・・・と入力してあります。
B列を最優先されるキー、降順で並べ替えを実行すると欠席と入力されているセルが一番上に
来てしまいます。並べ替えた際に欠席と入力されたセルを一番下にして並べ替えるにはどうしたらいいのでしょうか？
どなたかご掲示お願い致します。

その方法では無理。

>>123
「欠席」を -1 に書き換えてソートする。

※今日、質問された方には100％正確な回答が返ってきます

>>123
セルの表示形式を､ユーザー定義で｢0;"欠席";0｣に設定する。
この状態で正数か0を入力すると数値がそのまま表示され
負数を入力すると｢欠席｣が表示されるので､以後欠席は-1などを入力する。
あとは普通に降順ソートすれば､欠席セルは実値が-1なので一番下になる。

あとは一度昇順でソートすると､欠席は一番下になるから
次に欠席以外の範囲を選択して降順ソートするという手もある。

>>123
セルの表示形式を､ユーザー定義で｢0;"欠席";0｣に設定する。
この状態で正数か0を入力すると数値がそのまま表示され
負数を入力すると｢欠席｣が表示されるので､以後欠席は-1などを入力する。
あとは普通に降順ソートすれば､欠席セルは実値が-1なので一番下になる。

あとは一度昇順でソートすると､欠席は一番下になるから
次に欠席以外の範囲を選択して降順ソートするという手もある。

応用力の差を見た気がする

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003（Office2003Pro）
【3 VBAが使えるか　 　 .】 ほとんど使えません
【4 VBAでの回答の可否】 できればさけたいです
【5 検索キーワード 　 　 】 エクセル　web　共有

現在、数名で1つのエクセルファイルを利用しているのですが、
メールでファイルをやり取りしています。

これを一元管理にして、ブラウザなどでファイルを開いて
編集できるようにしたいのですが、どのようにすればよろしいでしょうか。.

レンタルでもなんでもいいから鯖立てて､普通に共有すればいい。
ちなみに鯖に関してはスレ違いなのでここでは聞かないでね。

>>130
そんな曖昧な質問の仕方だと、>>131のようなザックリした
回答しか返してもらえないよ。

▼━質問テンプレ ━━━━━━━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 少しかじった程度
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 CSV　書き込み　マクロ　VB　etc

機器から出力したCSVファイルが印刷する用紙の表と行と列が反対なので
行と列を入れ替えるマクロを作っています。さらに処理をするファイル数が１００個以上
あるので全自動化にしたいです。
例　　 １　　　　　１　２　３
　　　 ２　 　→　　
　　　　３　
行と列を入れ替えるだけは簡単なのですが、データ元ファイルを開き、出力用のファイル
に書き込むことができません。
他には
・OpenFileDialogを利用したファイル読み込み
・ファイルパスからファイル名を抽出後セルに入力
・連番のデータファイルを順に読み込んで出力用ファイルに書き込みの動作
の３つです。
ただでさえ仕事で忙しくて家に帰ってこない親を少しでも楽にさせたいのでどなたかご教授お願いします。

>>133
マクロを作ってるのにＶＢＡでの回答否って何を答えれば良いんだ？

>>134
あ、ごめんなさい。可です。。

>ただでさえ仕事で忙しくて家に帰ってこない親を少しでも楽にさせたい

だったらてめえで勉強しろ。カスが。二度と来るな。

形式を選択して貼り付けじゃいかんの？
もしくは形式を選択して貼り付けをマクロの記録すればいいじゃん。

>>133
Excelでやるべきことじゃないね。適当なスクリプトで充分。
少なくともExcelに関する質問じゃない。>>2･7､>>3★VBAについて

>>136
知識もないのに口だけは達者なオバカさんは
2度と来なくていいよ。

>>133
自分ではコード書いたのか？
書いたならまずそれを晒してみな

環境　OS：Windows98SE、Office2000Pro

いつの間にか・・・、Excel を起動すると "インストールの準備中"と警告して、FDをガチャガチャするようになりました。
その後一応問題なく起動するのですが、毎回うるさいので
警告とFDへのアクセスを回避したいのですが、偉い人解決策を教えてください。

ググったところ、CD-ROMからOFFICEのレジストリーを上書きすればOKみたいなことが書いてあったのですが、
↓
【メッセージ】「インストールの準備中です」

【原因】
[原因1]Office2000のインストールが正常に完了していない。
[原因2]レジストリ情報に矛盾が生じている。

【解決方法】
処置方法1または処置方法2を行う。
［処置方法1］Office2000をアンインストールし、再インストールする。
［処置方法2］以下の手順でOffice2000のレジストリ情報のみを再インストールする。

＜作業手順＞
1.Office2000のCD-ROMを挿入する(autorunが起動したら閉じる)
2.[スタート]-[ファイル名を指定して実行]より以下のコマンドを実行する。
　「*:\setup.exe/fumdata1.msi」(*にはCD-ROMドライブのドライブ文字を入力する)

とか言うのを例にならって試してみましたが、
「ファイルまたはその構成ファイルが見つかりません」と言われて実行できません。
ドライブから、setup.exeを実行しようとすると、FDをガチャガチャします。

>>133
なんかサンプルになりそうなマクロを書こうとしたんだが、
くだらないところでつまずいて、納得できる物が書けんかった。
役に立てなくて申し訳ない。

ご両親を大切に思う心はこれからも無くさないようにして欲しいな。

> ご両親を大切に思う心
彼にはそんなもの無いよ

『おまえら､俺の両親を楽させてやってください(俺の手柄として)』

って言ってるだけで､自分で努力して楽させてやろうなんて気は無いからw

>>143
お前の腐った根性だけは痛いほど伝わってきた。
せいぜい死なない程度に生きろ

でもまぁ、技術的な意見を交換する場なのにご両親云々を持ち出してくる必要は全く無いな
あざとく見られても仕方ないと思う。
大甘に見てもそれ書くなら、まず自分でやった努力を知らしめるべき

いちいち反応して嫌味言うおまえも相当腐った根(ry
そして漏れも…

やりたい事を細かく分かっているのに、それをすべて丸投げの態度はいただけない・・・
ひとつひとつは技術的に難しいことでもないから尚更。
「できる大事典 Excel VBA 2000/2002/2003対応 」買えばすべてやりたいこと書いてあるから、
それで親のために、自分で勉強してみたら。

>>133　考え方の例
[0] csv をひとつのフォルダ(例: D:\source) にまとめて入れてしまう。
　　出力先もひとつのフォルダ(例: D:\dist)に決めておく。
[1] fn=Dir("D:\source\*.csv") で最初の csv の filename を取得する。
[2] fn=""なら Exit Sub
[3] Workbooks.Open ("D:\source\" & fn) でファイルを開く。
[4] [3] のBook を Activate して、ActiveSheet を対象にやりたいことをやる。
[5] Workbooks(fn) SaveAs ("D:\Dist\ & fn)
　　xls で保存するなら fn の拡張子を xls に変更してから保存。
[6] Workbooks(fn).Close
[7] fn=Dir で次のファイル名を取得する。
[8] [2]〜[6] の繰り返し。

ファイル保存時の問合せがうざいので、
Application.DisplayAlert=False を設定しておくとよい。

2002です。

IF関数で前者だった場合の数値と後者だった場合の数値を
違う色で返すようにしたのですが
どうすればいいんでしょう

>>149
この場合「IF関数」じゃなくて「条件付書式」

少々お伺いします
【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 JIS SHIFT-JIS CODE EXCEL 関数 変換
文字のJISコードはCODE関数で表示できますがSHIFT-JISコードを表示するにはどうすればいいのか教えて下さい。
宜しくお願いします。

VBAのAsc関数

複数の同じフォーマットのシートから、特定の行だけを抽出したいと思っています。
VBAを使わずにできますでしょうか？
方法があればおしえてください。

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

↑　コピペ

>>153
あまりの情報の無さにﾜﾛﾀｗ

エクセル2002を日常的に使い出して3ヶ月
大事なファイルを壊され、修復不完全
文字情報全焼、シート1枚完全消失
軽く欝んでます。

エクセル最新版では壊れにくく、かつ修復の完全性アップしてますか？

データが壊れるのは､大抵ソフト(Excel)の問題ではなく､ハード(主にメモリ､HDD)の問題や操作の不備だし
修復なんて出来ないのがデフォ。例えば､うちの電話番号は｢0**-*6*-9***｣だと言われて
君はこの情報から正しい電話番号を修復出来るか？虫食い部分を予測する為の情報などが無ければ無理だろ。
それはPCも同じで､修復するには､壊れた部分を予測するに足る情報が必要。その方法はソフトによって違っていて
自動的に差分を取ってそれを元に修復したり､ファイル毎に修復情報を付加(ファイルサイズが余分に大きくなる)したりするが
Excelの場合は修復用の補完データではなく､実体のバックアップを取る形だ。バックアップを取ってなかったら
他に修復用の情報が無いから修復は不可能。
(特殊な状況ではメモリ上のデータから修復を行うこともあるが､その機能が発動する時点で異常事態なのでどうしても修復は不完全)


なんか長くなったが､要は壊れるのも､修復できなくなるのも､Excel以外の問題で発生してる場合が殆どなわけで。
メモリエラーやHDDの不良セクタチェックなどを定期的に行い､バックアップをきちんと取るようにすればなんの問題も無いことだ。

メーカー製だから問題なしとかOSが起動すればOKとか思って､メモリやHDDのチェックをしない人や
痛手を見るまでバックアップを意識しない人も多いからな。
何でもソフト任せじゃなくて､大事なデータは自分で守りましょう。消失したときに困るのは､自分なんだから。

パソコンに完全性を求められても･･･
定期的に別の媒体、今ならUSBメモリを買ってそれにコピーするのが一番確実。
バックアップの重要性を説かれても、右から左にスルーしてそうだ。
まぁ、誰でも一度は通る道だから次から気をつけれ。

Wordはともかく、Excelってそんな落ちるかね？
まぁ、得体の知れんスクリプトをガンガン走らせてるとかなら分からんが…。
Excelが落ちまくるって、かなり環境を見直したほうがいいと思うんだが。

相変わらず文句になると生き生きしだすな

すごく初歩的な質問で申し訳ないんですが、エクセルってワードのように文字幅を〜％って指定できないんですよね？

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

D1に文字が挿入されたら、A1の文字色を変える事できる関数を教えてください。

無理

>>163
その回答は私の質問でしょうか？

もしダメならVBAでお願いできないでしょうか？

>>162
条件付書式で
数式が=$D$1<>""のときと入れて書式で色を指定すれば似た様なことが出来るかも。
これだとD1に何か入力するとA1の文字色が変えれる。

>154
コピペじゃないですー！

>155
例えば、
シート1
りんご　　|１００円
みかん　　|２００円
ぶどう　　|３００円

シート2
りんご　　|２００円
なし　　　|１５０円
ばなな　　|３５０円

シート3
もも　　　|４００円
りんご　　|８０円
かき　　　|１２０円

上記のようにとなっていたばあい、
りんご　　|１００円
りんご　　|２００円
りんご　　|８０円
と、抽出したいんです。
方法があったら教えてください

>>162
関数では無理。
VBAを使わないのなら、条件付書式で設定するしかない。

>>164
EXCEL関数でぐぐれ。

>>166
フィルタ

EXCEL入門でぐぐって、最初にヒットしたページを眺めれば、
ほとんどの事が解決出来るんだけどね。

>168
フィルタは知っていますが、それだと各シートでいちいちやってコピペしてこないと
だめじゃないですか？
全シートから一回で抽出する方法ってないですか？

>>170
VBA否だから仕方がない。最初のレスが「コピペ」だっただろ。

>>165
>>167

了解です、探してみます。

>171
あー！あのコピペってのは、そういう意味だったんですね！！

もしVBAでやる方法があったらおしえてください。
VBAってまったく触ったこと無いんですけど、ちょっと勉強してみます。
お願いします。

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


ヘルプがブッ壊れて質問とかキーワード入力できませんたすけて

>>164
ごめんよー　m(__)m　>>161宛てだったんだよー(^_^;)

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

VBAで毎分同じ秒にマクロを実行しようと考えています。

例えば15時00分00秒なら、
『指定時刻 = TimeValue("15:00:00")』の形を使用してできたのですが
本当はXX時XX分00秒に実行したいのですが、できませんでした。
この場合はどうすればいいですか・・？

>>174
再インストール

>>176
XX & XX & "00"　でどう？

ちがうわ XX & ":" & XX & ":" & "00" かしら

>>177
それ以外で

>>180
バージョンアップ

>>153 >>166
VLOOKUP関数じゃダメなの？

オヒス削除して入れなおしたらなおりました

>>166

With Worksheets("Sheet4")
Cells(i, 1)=Worksheets("Sheet" & s).Cells(1, 1)
まで書いた

win2000, Excel 2000
シートの隠れている右下角を出すにはどうしたらいいでしょうか。
枠の大きさを変えたり、シートを動かしても出てこないので掴めず、
シートの大きさを変えたり、シート見出しを見ることができません。

つ 画面の解像度

>>185
最大化されていませんよね？
されていなければ左上の角をつまんでやれば大きさは変えれます。

>>187
どうもありがとうございます。
できました。
今までどんなに苦労したか。

-1で対処する様にしたいと思います。
ありがとうございました。

本を（三冊目）買ってこの時間まで勉強してますが、私の頭では無理みたいです。
先生方、忘れられかけている私にせめてヒントでもいただけたら光栄です。
そもそも素人レベルでは厳しいのでしょうか？　

>>190
総務部のくせして情けないなぁ。
ttp://www.uploda.net/cgi/uploader4/index.php?dlpas_id=0000011772.zip

DLパスワード　君の会社名(漢字8文字で)

>>191
ありがとうございました。感謝しております。
これをベースに精進いたします。
うちの会社の先輩（おじさん）達、アナログ派なもんで・・・

>>191
０ │　A　│ Ｂ│　C
─┼──┼─┼────
１ │ 　　 │ １│　２　　←シリアル値
─┼──┼─┼────
４ │名前│月│　火
─┼──┼─┼────
５ │ 　　 │　 │　祭
─┼──┼─┼────
６ │ 　Ａ │01│=IF(RIGHT(B4,1)="4","",IF(C$3="祭","2",IF(WEEKDAY(C$1,2)<6,"0",WEEKDAY(C$1,2)-5))&IF(B4="","1",RIGHT(B4,1)+1))

関数式だったらこんな感じ。

すまん、流れ読んでないんだけど、

＞DLパスワード　君の会社名(漢字8文字で)
これは大丈夫なのか？ｗｗｗｗｗ
会社名入ったファイルうｐったのか！？ｗ

くだらねえよな

関数の返り値が、#VALUE!かどうか判定したいのですが、
IF関数で、どう記述すれば良いのでしょうか？

>>196
=IF(ERROR.TYPE(A1)=3,〜,〜)

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

> 会社名入ったファイルうｐったのか！？ｗ
そうじゃなかったら､会社名でパスを設定することすら出来ないのでは？

わざわざドキュメントプロパティ見る奴もウザければ、
すぐログ流れするロダにオナニーファイル挙げる奴もウザい。
しかも会社名がパスですか。ガキくせえ。
お前ら2人でやってろよボケ。キミとボクしかいないわけじゃねーんだよ士ね。

で､なんで怒ってるの？
何か嫌なことでもあったのかな？

とりあえず､茶でも飲んで落ち着け

つ 旦

きっとイヤな思いででもあるのだろう。自分の本名入りのファイルをうpしちゃって､それをバカにされたとかw
それに､2chの質問スレには､元からオナニー(自己満足)回答しか無いよ。
仕事として2chでの回答をしてる奴なんか居ないわけで､全て回答者が答えたいから答えてるだけ。
200みたいにカリカリして心に余裕のない子は2chには向かない。もっと真面目な掲示板とかあるから移ってみてはどうかな。

http://vista.crap.jp/img/vi7542179514.jpg
おまいらも仲良くな。

別に仲はどうでもいいんだが､
興奮してキレちゃってる200が落ち着いてくれれば

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000 2003
【3 VBAが使えるか　 　 .】 使えない
【4 VBAでの回答の可否】 不可能
【5 検索キーワード 　 　 】 最大　データ容量

仕事で商用のデータベースからデータをダウンロード
して、エクセルでデータ加工して、資料を提出しました。

約５００件くらいのデータをエクセルで加工したのですが、
エクセルでは何件くらいのデータを処理できるのでしょうか？

宜しくお願いします。

>>205
6万件くらいとちゃう？
前半は質問とは関係ない文章

>>200
こんなところで匿名を傘に日頃の憂さ晴らしか。
くだらない人生だな。

>>205
Ver.2002だと「Excel の仕様および制限」ってとこに書いてある

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 駆け出しですが可
【5 検索キーワード 　 　 】 抽出　数字　文字列

[1][5][6]
[none][none][1]
[1][7][7]
[2][5][1]

こんな感じで数字と文字列が混ざったシートがありここからグラフを作りたいのですが
文字列が混ざっているためうまくグラフ化できません
文字列の行はグラフには不要なので上詰めで数字だけ抜き出す方法を教えてください

データが数万行あるので出来ればメモリーや容量を食わない方法で教えてください

>>209
ほらよ
　編集　→　ジャンプ　→　セル選択　→　定数　→　「文字」以外のチェックを外す　→　OK

dell inspiron 1501
os vista
cpu AMD Turion 64*2 1.6GHZ
メモリー　２ＧＢ
office xp
エクセルまったく駄目ですがなんで？？
保存に１分かかるんですが・・・・

winXP ,excel2003 です。vbaは最近はじめました。
教えてください。
ユーザフォームの中の
マルチページ１の中の
フレーム１の中の
フレーム２の上にある
チェックボックス１〜5をチェックするには
以下のコードではダメなんですね。
正解をご教示下さい。宜しくお願いいたします。
Private Sub OptionButton1_Click()
Dim i As Integer
Dim A(5) As String
A(0) = "CheckBox_1"
A(1) = "CheckBox_2"
A(2) = "CheckBox_3"
A(3) = "CheckBox_4"
A(4) = "CheckBox_5"
For i = 0 To 4
MultiPage1.Frame1.Frame2.Controls(A(i)).Value = True
Next i
End Sub

>210
複数の文字列のセルが選択された状態で
削除＞上方向にシフト
ってことでしょうか？
これだと不要な行の数字が入ったセルが残ってしまう為、行にズレが出来てしまうんですが

[1][5][6]
[none][none][1]
[1][7][7]
[2][5][1]
↑これが

[1][5][6]
[1][7][1]
[2][5][7]
[][][1]
↑こんな感じになってしまう

[1][5][6]
[1][7][7]
[2][5][1]
[][][]
↑こうなってほしい

>>212
Private Sub OptionButton1_Click()
with userform1
.checkbox1.value = true
.checkbox2.value = true
.checkbox3.value = true
.checkbox4.value = true
.checkbox5.value = true
end with
end sub

>>212
Private Sub OptionButton1_Click()
Dim i As Integer
For i = 1 To 5
UserForm1.Controls("CheckBox" & i).Value = True 'Controls(A(i)).Value = True
Next i
End Sub

>>213
削除ダイアログをよく見てみましょう^^；
行全体
ってあるはずですｗ

すみません教えて下さい。

Ａ列に名前、Ｂ列に出身県が並んでいるデータがあります。

名前１,北海道
名前２,大阪
・・・

これを使って出身県ごとに何人いるかをカウントさせたいのです。

北海道,12
青森,6
・・・

ヒストグラムみたいなもんですが、数字データじゃないので
ヒストグラムではできないようでした。
やりかたを教えて下さい。

>>217
ピボットテーブル

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

>>214
>>215
レスありがとうございます。
コンテナはUserForm1でいいんですね。
とりあえずマルチページもフレームも取っ払って組み始めましたが、また戻してやってみたいと思います。
>>215
解説ありがとうございます。

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

>>216
うまくいきましたありがとうございました

左のフィルも右のフィルと同じように 4 3 2 1 の連続データは出来ますか？

>>222
自分で試してみろ！このバカちんが

お世話になります
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 多少
【4 VBAでの回答の可否】 可(必要ないと思われますが)

A1に数字、B1に単位を入力して
CONCATENATE（A1,B1)でC1に返すという作業をしたのですが
A1が1.0など小数点以下が0で終わった場合
C1には０が省略されて返ってきます
C1に0も付けた状態で返したいのですが
別の関数か何かの表示形式になるんでしょうか
C1ではなく、C1にデータを返した上で別列で表示、という形でも構いません

　　　A　　　B　　　　C
1　　10.0　　%　　　10.0%
2

という感じで出したいです。わかりづらくてすみませんがよろしくお願いいたします

>>224
C1=TEXT(A1,"0.0")&B1
または
C1=FIXED(A1,1)&B1

もう10年以上使ってるのに印刷プレビューの設定でヘッダ/フッタの
左右割付が上手くできない私はボケなんでしょうか？

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

グラフで、グラフはあっても凡例を表示しない、ということは可能でしょうか？
折れ線グラフを想定しています。

（すべての凡例を表示しないのではなく、系列Ａは凡例に表示し、系列Ｂは凡例に表示しない、ということが可能かどうかです。
　というのは、凡例のスペースを節約したいからなのですが・・・。）

詳しい方、どうかよろしくお願いします。

>>227 可能です

ありがとうございます。具体的な方法等は、どこを調べればよいでしょうか？

【1 OSの種類】 WindowsXP
【2 Excelのバージョン】 Excel2003
【3 VBAが使えるか】 多少
【4 VBAでの回答の可否】 可
エクセルの時間計算で整数分（１,２,３…）を計算式を入れて
違うページに１００分の１秒まで表示（０：０１．００）に
したいと思うんですが、どのような計算式を入れればいいか
教えてもらえますか。お願いします。

>>230
日付時間関数とセルの表示形式を調べなさい

>>231
表示形式をいじっても出来ませんでした。
どうしたらいいですか？

>>232
表示形式を『いじれば』出来る。

>>230 こんな感じか？
=TEXT(A1,"h:m:s.00")
※A1は結果のセルか任意の式

＞＞２３４
ありがとうございます。任意の式ってなんですか？
一応その式(=TEXT(A1,"h:m:s.00") )入れてみたんですけど、
A1が整数やったら、0：0：0.0になってしまいました。

=TEXT(TIME(0,0,A1),"[h]:m:s.00") か？
やっぱり小数も入れるとか言わないでね

>>235
おおスマン。分で表示か。だったら
=TEXT(A1/1440,"h:m:s.00")
で良いはずだ。

236さん
237さん
ありがとうございます。
整数はできました。少数も入れる方法もあるんですか？？

面倒やったみたいですね。
すいません。

この流れでは
>>230の釣りとしか思えない

馬鹿にはそう思えるんだろうな

230は、ただの教えて君だよ
自分で何も調べないからトンチンカンな質問を繰り返してるだけ

質問者は、名前欄に最初に質問したレス番号入れて欲しいね。

というか､>>2に書いてあるじゃん。
> ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
> ･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。

そんなチマチマした事はどうでもいいんだよ
変に騒ぐとテンプレ・ルール厨が湧いて出てくるから
気をつけろ！！

あんなゴミみたいに垂れ流してるテンプレ、誰も読む気しないから仕方ねーよ。

読まないのも従わないのも勝手だし､そういうお馬鹿な子を叩くのも勝手。
少しでもスムーズな回答を得たい奴だけが従えばいい。ただそれだけのこと。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excelｘｐ
【3 VBAが使えるか　 　 .】 不可
【4 VBAでの回答の可否】 できれば不可　

√a で表された数を、b√c にしたいのですが、
丁度いい関数などありませんでしょうか？

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

A1のセルの内容によって10個ある図の中の一つを
B2:f10の中に表示させる。
図は同一ワークシート内の隅っこに有る。

例えば「りんご」「みかん」｢バナナ」・・・などの図があり
A1に「りんご」と入力するとB2:f10の中に「りんごの図」
A1に「みかん」と入力するとB2:f10の中に「みかんの図」
が表示される。
A1の内容を変更すると図も変更される。

これは可能でしょうか？

>>248
あるよ。ヘルプ見てね。

ところで､Excel XPってのは存在しないから注意してね。
XPってのはOfficeスイートパッケージのみの名称で､OfficeXPに含まれるExcelは2002。

>>249
可能か否かと言うなら､VBA使えば可能だよ。
コード書いて欲しいならブックうpしようね。

あ、実際に√で表しているわけではなく、あるセルに√の中身にあたる数があり、
それを別の2セルにbとcとして出力したい、ということです。

例）
A1　　B1　　C1
50　　　5　　　2

のような感じです。√50→5√2のような意味合いで・・・。

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

>>250
すいません、ところでキーワードはなんと打ってみればよいのでしょうか？
”ルート”で調べたところ、それらしき関数は見当たりませんでした。

素因数分解するがよろし

XP　エクセル２０００です。

Private Sub CommandButton1_Click()
'K7からN250までの範囲でセルが空白なら青色、空白でなかったら無色に変えます。
Dim 範囲, 要素
Set 範囲 = Range("K7:N250")
For Each 要素 In 範囲
If 要素.Value = "○" Then
要素.Interior.ColorIndex = 5
Else
要素.Interior.ColorIndex = 0
End If
Next 要素
End Sub

2つ質問があります。
�@「If 要素.Value = "○" Then」の時に行は要素の変数を使って列をAにする方法を教えてください。

�AK7:N250には、計算式が入っているのですが、#####になるとエラーになります。
　　#####になっても、「要素.Interior.ColorIndex = 0」　になるようお願いします。

>>225
ありがとうございました！
本当助かりました

聞き方が悪かったです。
左へいく場合マイナスになるじゃないですか、
そうさせずに右にフィルするのと同じように
1 2 3 4 ・・・　のようにするのはどうしたらいいですか？

>>257
おまえのやろうとしてる事に必然性を感じられない
どう云う場面でそんな操作が必要になるのか具体的に説明してみな

>>257
普通に
0　1　2
と入力して、0と1だけ選択して左方向にドラッグすればいいんじゃない？
最初の1回だけルール教えてあげればおｋ

エクセル　で、図形とかに入力した文字列を、検索するにはどうしたらいいですか？
探したら、なんか方法があるあるみたいですが、これがシェアウェアで６８００円！（ｗ。

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

Excel2007の散布図で、X・Y軸それぞれに指定の誤差範囲（エラーバー）をつけたいのですが、
以前のバージョンのように、X軸誤差、Y軸誤差のように項目がなくて困っております。
縦軸（Y軸）誤差は指定できるのですが、X軸方向の指定方法がわかりません。
どなたかご存知の方御助言をいただければと思います。

>>260
VBAで図形のコレクションにループ処理で検索できるんじゃない？
難しすぎるとか、時間がないとかだったら6800円払ったほうが早いかもね。

すいません。再度質問です。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excelｘｐ
【3 VBAが使えるか　 　 .】 不可
【4 VBAでの回答の可否】 できれば不可　

√a で表された数を、b√c にしたいのですが、
丁度いい関数などありませんでしょうか？

実際に√で表しているわけではなく、あるセルに√の中身にあたる数があり、
それを別の2セルにbとcとして出力したい、ということです。

例）
A1　　B1　　C1
50　　　5　　　2

のような感じです。√50→5√2のような意味合いで・・・。

ヘルプを見ろ、とのことでしたが、キーワードで検索してみてもうまく引っ掛かりません。
キーワード的には素因数分解、因数分解、ルート、平方根などです。

キーワードだけでも結構ですので、どなたかご教授お願い致します。

>>263
素因数分解を勉強しろ

>>264
いえ、手動で素因数分解することとルートを変換することは可能なのですが、

エクセルの関数としてどう表現するのかよくわからない、ということです。
よろしくお願い致します。

たとえばB1に =MAX((ROW(A:A)*ROW(A:A)<=A1)*(MOD(A1,ROW(A:A)*ROW(A:A))=0)*ROW(A:A))
としてCTRL+SHIFT+ENTER
この例はものすごく遅いけどね

>>266
MathematicaLinkForExcelを使えば…(嘘。

降参するんでその関数の意味を説明プリーズ。

理解した。勉強になった。ありがとう。

▼━質問テンプレ ━━━━━━━━━━━━━━━━ 
【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel 2003 
【3 VBAが使えるか　 　 .】 いいえ 
【4 VBAでの回答の可否】 否 
【5 検索キーワード 　 　 】 Excel Webクエリ データ 取り出し 高速化 形式 指定 他

Webに吐き出される10000行*20列程度の表がありまして
そのデータをそのままExcelに移動したいのですが1時間以上かかってしまいます。
原因はおそらく上の表のうちの2列のデータに存在するリンクだと思うのですが(画像等は無い)
リンク等を無視して取り出すことはできないでしょうか？

テキストで取り出そうと思ったのですが表組みが複雑な為、崩れて修復不能な雰囲気になります。
ご回答下さると助かります。

【1 OSの種類 　 　 　 　 .】 WindowsXP 2000 で動作希望
【2 Excelのバージョン 　 】 Excel2000 2002 2003 で動作希望
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マクロ　削除　vBComponents.Remove

ブックを保存する前に、”シートマクロのみを削除する”方法を探しています。
「マクロ削除のマクロ」は結構見つかったのですが、モジュール削除であったり、
ブック全体のマクロ削除であったりで、シートマクロのみを削除する方法が見つかりませんでした。

ThisWorkbookやModule1マクロはそのままで、
シートマクロのみを削除する方法をお教えください。

ヒストリー・センターで15分足とかダウンロードすると、十数万行のデータになるんですけど
エクスポートしたファイルを開くのに皆さんはどうしておられるのでしょうか？

僕はExcel2000とOpenOfficeしかないので、6万行ほどしか表示できません。

↑
すんません。
誤爆です。

>>269
テキストにコピペ→httpを置換→Excelへコピペ

>> 259
マイナスにしかなりませんでした。

　2 1
として

>>275の方法でできるじゃん。
十字を左に引っ張れば

最近は応用力の無い奴が増えてる様な気がする。

ゆとり世代って言うんだよね

ゲームを買っても自分で問題を解くこともなく、攻略本で他人のプレイを辿って行くだけのは何て言ったっけ。
あれと同じ気がする。

>>264の阿呆っぷりに苦笑い
何を偉そうに勘違いトークを炸裂させてるんだか

そう言うオマエ>>279も思慮の浅いネンネだな

>>262
定理１
　たったそれだけの為に６０００円も払う馬鹿は存在し得ない。

はじめまして、PC初心の者です。
官公庁等からもらってきた申請書にパソコンを使って、金額や日付を
入力してプリント出力したいと考えています。
なにか、フリーソフトでそのような文字埋め込み機能があるソフトはないでしょうか？
あれば是非、教えてください。
宜しくおねがいいたします。

すみません。記載が漏れていました。
使っているOSはWindows2000です。

>>282
スレ違い氏ね

↑
「氏ね」は必要ない、ガキが面白がって使うんじゃねぇ

>>282
その昔「文字ピタ」なんてソフトがあったが、その辺りでググれば
なんにしろ、スレ違い

ぴったん♪たんたもじぴったん♪

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

セルにチェックボックスを入れて、クリックしたらチェックマークが入るようにするには
どうしたらいいですか?初心者的な質問ですが、よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 セル　範囲　選択　グローバルオブジェクト

グラフのマクロを作っているんですが、IFでtrueの場合作成するようにします
そしてグラフの元データ範囲を変数から取得させたくてまずRange("A1:B2")の部分を
Range(Cells(1, 1), Cells(1, 1)).Select に変えた所「cellsメソッドは失敗
しました　globalオブジェクト」と出ます。アドバイス下さい。

If Range("K1") = "A" Then
ActiveSheet.ChartObjects.Add Left:=0, Top:=0, Width:=300, Height:=200

ActiveSheet.ChartObjects(1).Activate

ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=ActiveSheet.Range("A1:B2")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "a"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "a"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "a"
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = False

Else
Range("K2") = 0
End If

End Sub

Range(Cells(1, 1).value & ":" & Cells(1, 1).value).Select

ってしたいってことかな。
おかしい箇所がわかってるならブレークポイントと
イミディエイトウインドウの使い方学んだ方がいいかと。

>>289
下の2行をはじめに書いてifの前に書いて
Dim sh As Range
Set sh = ActiveSheet.Range(Cells(1, 1), Cells(3, 2))

ソースのところをshに書き換え。
ActiveChart.SetSourceData Source:=sh

この場合、Set出来てなかったからエラーが出た。

>>290
ブレークポイント等の使い方の問題じゃないだろ

携帯からすみません。
要はセルの範囲をA1方式からR1C1方式にしたいんです。
そうすればグラフ元データの範囲に変数でセルの位置を代入できますよね？
それで単純に変換したらエラーが出てはまってます。

ﾃ､ﾃｽﾄw

表の中のデータを集め鯛のです。教えてください。
８

３

７
これらの中の未入力部分が１０数行に渡り、数字だけを並べる方法がワカリマセンｗ
データの表以外のとこに表示しようと思ってますです。

>>294
一個づつコピペすればイイやん

並び替えしたらイイやん

>>295−298さん
半年ぐらいやってるけど自動計算で済ませ鯛。ﾋﾟﾁﾋﾟﾁ☆
クアシイ人お願いします。

半年じゃ無理だろ。一年くらい寝かせて味が出てくるもんだよ。

>>289
試してから物いえよ。
cellsに変数入れれば好きなように弄くれるだろ。

>>297
ﾋﾟﾁﾋﾟﾁじゃねーよ！可愛く書けば優しく教えて貰えると思うんじゃねー！
自動化させるならVBAしかないじゃないか？

どこどこの範囲の計算結果をどこへ出すようにしたいとかもっと詳しく書け

>>296
お前よりも詳しい奴がほとんどだから心配するな。

>>301
>>296申し訳ない。>>297へのレスだ。

もぉグダグダ

>>297
オートフィルタって知ってる？

あるセルの数値が一定数以上になったらあるマクロを実行するにはどうしたらいいのでしょうか
(たとえば、A1のセル値が10以上になったらマクロ1実行)
　

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

あるセルの数値が一定数以上になったらあるマクロを実行するにはどうしたらいいのでしょうか
(たとえば、A1のセル値が10以上になったらマクロ1実行)
　

Worksheet_Changeイベントなどで監視して自前で呼び出す

>>307
やはりマクロ内でプログラムを組み込んでおこないと無理ですか

そうしておこないと無理だと思います。

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

＝SUM（IF（A1：A5＝”12345”）＊（B1：B5＝”5001”）、C1：C5））

＝SUM（IF（A1：A5＝”りんご”）＊（B1：B5＝”バナナ”）、C1：C5））

上の配列数式は×で、下の配列数式は○なんだけど、
”名前”に数字って駄目なの？

>>310
その数字は文字列なのか？
数字なら""はいらないんじゃね

>>311
文字列です。
なるほど、数字に””はいらんのね。
失礼しました。

いや、数字が文字列として入力されてるなら""はいるよ

エクセル2003で質問です
写真を貼り付けた時に、指定したセルの範囲に自動でサイズが変更するようにしたいのですが可能でしょうか？
また可能であれば方法を教えてほしいです

ｗｗｗ
ってどんな意味ですか？

エクセルに画像を挿入。その画像の一部を元画像内に拡大して表示したいんだけど。やり方分かんないんで、教えて神！

>>316
団塊世代のジジィみたいに
「コンピューターなのに出来ないの！」
「コンピューターはなんでも自動で出来ちゃうんだろ」
なんて言わないでね

よく分からんけどカメラ機能？を使えば出来るのではないかと。図(画像)の一部を切り取って元画像に張り付ければ… それのやり方がわかんねぇんだ。

VBAのコードを記述する部分がおかしくなったので質問させてください。
非常に説明しづらいのですが・・・

1.VBAで日本語入力する際、入力できない（＝表示できない）文字が出ます。
2.その文字は決まっており、かなり多く存在します。（例：ラリルレロは全て無理）
3.テキストエディタ等に不具合部分をコピー後貼り付けて確認すると、まともに表示できます。
4.逆にテキストエディタで正しく入力したものをVBAエディタに貼り付けると、先ほどの不具合が出ます。
5.直入力の場合は特定文字は全て、エディタからの貼り付けの場合は文末のみで不具合が出ます。
6.不具合の内容は特定の文字を入力すると、表示されないもしくは"・"で表示されます。（例：マクロ→マク）
7.不具合が発生するよりかなり以前に作成したものを確認しても表示に不具合があります。
8.ExcelだけでなくOfficeをアンインストールし、再インストールしても同じ結果でした。
9.エクセルのバージョンを2000から2003に変更しても同じ結果でした。

非常にわかりづらくて済みません。
おそらく再現できなければ回答もしづらいかと思いますが、もし前例等がありその解決策を
ご存じであればよろしくお願いします。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000 2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ラリルレロ　VBA
検索によりヒットした近い事例（下の掲示板の”[B] ＢＡＳＰ２１で文字化けするんですが・・・。”の投稿 ）
ttp://www.bea.hi-ho.ne.jp/byoko/bnewslog23.html

>>319
フォント周りの問題かな。ＶＢＥの[ツール]-[オプション]で[エディタの設定]でフォントを確認。
そのフォントが壊れているのかもね。

まず、メモ帳のフォントをそれにかえてチェック
おかしくなったらフォントキャッシュのクリア
メモ帳では正常に表示される場合はもうOSから再インストール

>>320
なるほど。そんな項目もあったのですね・・
ちなみに今試してみたのですが、やはり無理でした。MSゴシック→MS明朝
他では問題ないんですがねぇ。
困りました。

教えてください
技術的な相談ではないのですが、エクセルとワード、用途を明確にしたいのです。
うちの会社は、何でもかんでもエクセルを使う。
見積書も、請求書も、報告書も、依頼書もすべて。
確かに、数字を記入するものについては、関数を用いるのであれば、必要かと。
でも、関数など使わない。
皆さんはどうですか？何でもかんでもエクセルですか？

>>316
挿入したのコピーして、トリムして拡大かなあ？
マクロだとこんなかな？

'そーにゅー
Set pic = ActiveSheet.Pictures.Insert("unko.jpg")
'コポー
Set p = pic.Duplicate
'調整
With p.ShapeRange
　'切り取り
　.PictureFormat.CropLeft = 40
　.PictureFormat.CropTop = 40
　.PictureFormat.CropRight = 150
　.PictureFormat.CropBottom = 80
　'拡大
　.ScaleWidth 1.5, msoTrue
　.ScaleHeight 1.5, msoTrue
　'位置調整
　.IncrementLeft 30
　.IncrementTop 30
End With

位置や場所は適当に変えて

>>323
アンケートスレじゃないよここは。

>>314
手作業でやるなら、[Alt]キーを押しながら画像を移動させたり
拡大/縮小させるとセルに沿って変形するよ。

マクロなら、こんなかな？セルB4にフィットさせる例。

Set pic = ActiveSheet.Shapes("画像名")
'読み込みもマクロでやるならこんな
'Set pic = ActiveSheet.Pictures.Insert("unko.jpg")

Set r = Range("B4")

pic.Top = r.Top
pic.Left = r.Left
pic.Width = r.Width
pic.Height = r.Height

>>323 パート２を立てて下さいです。
http://pc2.2ch.net/test/read.cgi/bsoft/1025524380/l50

そんなスレいらねぇ
↓ここで十分
【質問不可】Excel総合相談所スレの雑談・議論スレ2

そうでもないか

>>322
Excel2000あたりだったと思うけど、たしかVBEのフォント周りで妙な不具合が
あったことがあったと思う。いきなり変なフォントで表示されてるとか。
サービスパックをきちんと当てればその不具合は解消されたと思うけど、
ちょいと手元に情報がないや。
MSのサイトで調べてみるとなんか情報あるかもね。

あったあった。これこれ。
ttp://www.microsoft.com/downloads/details.aspx?FamilyID=781fa2e1-205a-4310-9be8-113a473f98c6&displaylang=ja

フォントキャッシュが壊れているだけかもな

どう考えても文字コードだろ。
フォントもそこら中で使われているフォントで、MSゴシック→MS明朝で駄目だったんだろ？
フォントキャッシュも糞もねぇ。

ああ、そうだねえｗｗ
えらいえらいｗｗｗ

ｗ
これ何です？なんて読むのｗ

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel*2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可･否
【5 検索キーワード 　 　 】 保存名　日付　ファイル

質問です。今、日報を作ってます。たとえばＡ1のセルに日付を入力して保存したときに、ファイル名にＡ1で入れた日付が
入るといいなと思ってるんですけど、そんなこと出来るんでしょうか

やりたいイメージとしては今なら「2007年4月」というフォルダを作って、毎日、日報を書いたらそこに保存していきたいんです。

「そんなこと出来るんでしょうか」の回答としては、
「できる」が回答。

ただし、VBAマクロは必須だろうけど。

>>337
やり方をおしえてもらえないでしょうか
ＶＢＡマクロは今は使えませんが検索したりして使ってみたいと思ってます

>>334
必死だなｗ

>>333
可能性としてお前の意見を検証するのは充分ありだが、推論の域を出ない話を
「どう考えても」とか平気で吠えちゃうような思いこみの強い阿呆は、いつまで
経っても仕事を片づけられない出来損ないがやたらと多い。

いや、現象を見るに文字コードなわけがないんだが
どうやったらそういう結果に行きつくか興味あるよな

>>338
手取り足取り説明するのも面倒なので、超シンプルな例を作ってみた。

http://www4.uploader.jp/dl/musashi/musashi_uljp00577.zip.html
(パスワード：pass)

ファイルをダウンロード＆解凍した後の動かし方

　�@解凍した「日報テンプレート.xlt」をダブルクリックで開く
　�AA1セルの日付を適当に編集する。
　�Bsheet1シートの「保存」ボタンを押す

　　→ファイルが
　　　　C:\temp\YYYY年MM月\日報-YYYY年MM月DD日.xls
　　　という名前で保存される。

　※保存先のフォルダを変更したい場合：
　　　Module1のBASE_DIR、SAVE_DIRを適当に書き換える。

　※保存先ファイル名を変更したい場合：
　　　Module1のSAVE_FILEを適当に書き換える。

UPしたファイルはあくまでサンプルなので、これをそのまま使おうと
思わないように。かなり適当に作ってある上に、エラーハンドリング等も
何も考慮してないので、全く実用には堪えないはず。

VBAの使い方、編集方法等については回答する気はないので、独学でよろしく。

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


表1で
A氏ｰ001
B氏ｰ002
C氏ｰ003
と登録

その数字を表2に打ち込むと、表2と同様の枠組みで作った表3に数字に対応した名前が表示されるようになる方法を教えていただきたいのですが、どなたかご存知ないですか？

ふつーにvlookupでいいんでね？

すいません質問です

会社で使ってたoffice xp パーソナルなんですが、ソフト整理のときに貰ってきました。
で、会社でもまだそのプロダクトキーで使っているPCPCがあるんですが、自分のPCでエクセルのライセンス認証をしたら、
出来たんですよ。。。

普通は、２台目は出来ないんですよね？

先日、OSを入れなおしたので、今日またライセンス認証を同じキーでしたら
認証出来たんですが、使ってて大丈夫でしょうか。。。

エクセルにカメラ機能が付いてますよね。デジカメで撮った画像の一部だけをそのカメラ機能を使って範囲を指定して撮してセルに貼る事は普通に出来るですか？くだらん質問でｽﾏｿ

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

質問です。よろしくお願いします。
年間のスケジュールを作っています。A列に日付、B列に業務内容を入力しています。
土日・祝日の行には、色を付け、また、B列の業務内容は基本的には入れていません。
しかし、変則的に入ることもあります。

この状態で、急な変更があって業務をスライドさせる（セルの挿入・削除）と、
月曜の内容が、日曜に食い込んでしまったり、金曜の内容が土曜の内容になって
しまったりします。

土曜・日曜・祝日をうまくよけながら、スライドできる方法はないでしょうか？
うまく、説明できてないかもしれませんが、よろしくお願いします。

>>346
できません。
普通に画像貼ってからトリミングするしかないです。

>>347
行ごと挿入or削除すれば良いのではなくて？
質問の意図と違う答えだったらスマソ。

>>347
VBAならA列の色で判断して出来そうだが、VBAでの回答のが否なので、手動でシコシコやってください。

>349
１行消してしまうと、特定の曜日がなくなってしまいまする。
>350
土日の行には入力されずに、よけるというのはなかなか難しいのですね。
ありがとうございました。シコシコシコシコ

sageってなんか意味あるんですか？

>>345
犯罪報告はスレ違いだ。
とっとと警察にでも相談してきなさい。

>>353
普通は認証されないようなので、自分が所持してるのは複数のPCで認証できるタイプのものなのかな？と思ってたので質問しました

少しだけ使ってたけど、次も認証できて不安になりました

12-18
19-22
のように入力したデータがあって、
エラーが左上隅に出るセルと出ないセルがあるんですが
違いはなんですか？
セルの書式設定でどちらも文字列で　MSPゴシックなどであることは確認したんですが・・

>>354
だからさ、「スレ違い」だって言ってるの、理解できないか？

>>356
残念ながら犯罪者に日本語は通じないみたいだ。

総合のスレでしょ？だから書き込んだんですけど？
インストールに関することはだめって書いてありますか？
同じようにしたい人がいたら、出来るよとかそういう意味で書き込んだんでもない

本当はつかっちゃだめなのなら、アンインストールしようかなと思ってきいてみたまでです。

自分がここで書き込んでも、嫌な気分になる方も多いでしょうし、
自分もあなたに聞きたくないので去りますわ。

Officeの話じゃなく?

>>355
たぶん日付と見做せるものと
見做せないものの違いかと

12-18 は 12月28日を意味します

>>355
12-18　日付と見做せる(12月18日)
19-22 　日付と見做せない
って違いかな？

>>358
Ｅｘｃｅｌ総合だからＯｆｆｉｃｅはスレ違いと言っているのが理解できないのか？

自分かんけいないけどさあ、スレ 違いくらいでそんな文句口調にならんでも・・・
認証画面はエクセル開いてもでるしね。
もうちょっと普通にいえばいいじゃない

>>358
認証の取り消し作業はしてないってどっかのスレで見たな〜。アンインストールで認証取り消しとおなじみたく書いてあった
心配ならマイクロソフトに電話してきいてみたら？

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

Cells(1, 2) = "=COUNTIF(C[-1]," & Cells(1, 32) & ")"

これが通りません
正しい記述を教えてください
よろしくお願いします

>>364
ワークシート上の式ではどうなってる？

すまんミスった
どう入るようにしたい？

>>364
エラー出ませんが。

>>365

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

VBA実行中にはじかれるので
おっしゃっている意味がよくわからなかったため、
＆を使わずに直接書いてみると正しくない数式だといわれました

Cells(1, 32)　には文字列が入っていて
それがエラーの原因でした

"=COUNTIF(C[-1],"" & Cells(S2縦行管理, 32) & "")"
でいけるようです

すみませんでした
ありがとうございました

>>368
いやVBA実行してからじゃなくてさ
実際のワークシート上のB1に入る式はどう入るようにしたいの？
それを聞きたい

>>369

レスありがとうございます
369のレスを踏まえて見返してみると
希望通りの式が入っていませんでした…
Cells(1, 2) = "=COUNTIF(C[-1],"" & Cells(1, 32) & "")"
と書くと
=COUNTIF(C[-1]," & Cells(S2縦行管理, 32) & ")
こう入っていました
希望のB1式は
=COUNTIF(C[4],"11432.ZX")
です
11432.ZXはCells(1, 32)に入ってます
よろしくお願いします

>>348
トリミングの意味がわからんかったけど、ググったら分かりました。レスありがとう。

すいません
当方の書き込みがむちゃくちゃです

B1に入れたい式は
=COUNTIF(C[-1],"11432.ZX")
です

11432.ZX
はCells(1, 32)に入っています

よろしくお願いします

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

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

IF文で、午前9:00〜午前11:00だったら、A3*C3
という計算式を作りたいのですが、午前9:00〜午前11:00を計算式で表現できないので
教えてください。

>>373こんなんでどう？

=IF(AND(A1*24<=11,A1*24>=9),A3*C3,"")

>>373
ANDを使って午前9:00〜と〜午前11:00を書けば良いです

>>374
>>375
早速のレスありがとうございます。
A1は、現在時刻だと思うのですがNOWじゃダメみたいです。
何を入れれば宜しいでしょうか？

>>376
条件になかったから時間はA1セルへの手入力しか想定してなかった。
現時点の時間で判断なら
A1=TEXT(NOW(),"h:m:s")
で良いはず。

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

=IF(AND(HOUR(NOW())>=9,HOUR(NOW())<=11),A3*C3,0)

で駄目？

>>379
ありがとうございます。
私が一番求めていたものです。
HOUR(NOW()勉強になりました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい（ほんのちょっと）
【4 VBAでの回答の可否】 可

A列のセル値*+.txtがあるフォルダに存在する場合のみ
そのテキストファイルを別フォルダに移動するには？

よろしくです。

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


A列には8桁の数字があり、その数字の末尾が担当者を表します。
B列、C列にもそれぞれデータが入っています。
200行くらいあります。

担当者ごとにデータを3列ごと抜き出してそれぞれ新しいシートに
抜き出したいですが、どのようにすればよいか分りません。
よろしくお願いいたします。

>>382
文字列ならRightで末尾だけ取り出せるし
数字なら10で割ったあまりで末尾が取り出せる
取り出した末尾でフィルタ

>>382
IF関数でやるか､データを1列にまとめるか分けるかしてフィルタ掛けるかお好きなように。
IF関数でやる場合は､IF関数だけだと抜き出したデータに隙間が出来ることになるから
上詰めしたければ式を値に書き換えてソートするとか､過去ログに書いてある上詰め式を使うかで対応しな。

>>383
>>384

早々のご回答ありがとうございます。
頑張ります。

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


A1に生年月日を入れて年齢を求めるサンプルで=DATEDIF(A1,TODAY(),y)としました。
しかし、Excel2007ではこれではだめなのですか？
検索で見つかったのはこれでしたが、直接入力してもだめでした
http://support.microsoft.com/kb/414668/ja

>>386
=DATEDIF(A1,TODAY(),"Y")
だと思う。

>>387
それでも無理でした。（1900/2/1と表示されるようにはなりましたが）
一応こちらのサイトのも試してみたのですが、関数自体が使えてない？です
ttp://ufuidotcom.web.infoseek.co.jp/PcKatsuyo0/excel_datedif.html

オンラインヘルプ開いても関数自体が見つからず、
Excel2007でDATEDIF関数使えてる人いますか？？
初めて使うExcelが2007なので前のはわかりません

あ、すいません出来ました。
表示形式が・・

>>270
どうでしょうか？もしご存じの方がいれば・・

あのさ、おれも君たちの大嫌いな在日だが。在日３世。
別に嫌われようがこっちはどうでもいいよｗ

日本という国における「楽して稼げる職業」は在日・帰化人が握ってるし（笑）
脱税もしまくりで、相続税も免除なのよw。闇口座も仮名で作り放題w。
世代を経るにしたがって金が増えてく寸法さw。パチンコ、サラ金、日本の長者番付にのってるのは在日なんだよw。
金あるから在日でも日本人女とやりまくり。さらにはレイプしても全然バレないｗ
あと数年で日本の参政権も取得できるし（爆） 既得権益最高！

俺達はもうお前達みたいに毎日毎日職業とか将来とか金の心配なんかしなくていいんだよｗ
バックに朝鮮総連や創価学会がついてるし、働かなくても行政から月２０万の金入ってくるしねw
今俺達が考えてるのはもっと大きいこと。
いかにしてこの日本という国をボコボコにいじめ抜いてやるか、ってこと。

つまり、日本の中に、俺たち朝鮮人、韓国人の血を増やして在日を増やす。
んで日本人を少数派にしてその日本人をいじめたおす。んでこの国を乗っ取る。
今はもうその最終段階に入ってるわけ。
平和ボケした危機感ゼロのお間抜け日本人は気づいてないがｗ

例えば韓流ブーム。あれは在日が作ったって知ってる？
あれだけ大規模なブームを作れるくらい、もう日本の中で在日の力は最強なんだよ。

自分達を地獄に導いてるとも知らずに毎日毎日テレビで韓国をヨイショしてくれる日本人ｗ
韓流ブームのお陰で在日や韓国人へのマイナスイメージがプラスイメージになった。
そして日本人が韓国人や在日と結婚する数も圧倒的に多くなった。
つまりもうあと３０年で日本は完全に在日主体の社会になるよ。

たった１００万人に満たない在日に使われる１億人の日本人ｗ お前ら糞日本人に一生地獄の生活を見せてやるよｗ

どう？ムカムカする？（爆）
でもせいぜい今みたいに２ちゃんで数十人ぐらいがチョン死ねって言うぐらいだろうね（爆）

この↑痛々しい書き込みはドコの誤爆なんだろう？

>>392
コピペを適当に貼りまくってる馬鹿なんだからスルー汁

>>390
With ActiveWorkbook.VBProject
For i = 1 To .VBComponents.Count
If .VBComponents(i).Name = "Sheet1" And .VBComponents(i).Type = 100 Then
With .VBComponents.Item(i).CodeModule
.DeleteLines 1, .CountOfLines
Exit For
End With
End If
Next i
End With

>>394 通りすがりですが･･･。
こんな事も出来るんですね!!

質問です。範囲選択でコピーしたシート内の表を別のBookのシートに縮小して張り付ける方法がありますか？教えて下さい。

>>396
「縮小して」の意味が分からない。

>397
別シートに張り付けたい表を小さくしたいんです。縮小と違ったらｽﾏｿ

>>396
カメラ機能のことかな？

>399
即レスどうも。カメラ機能を使ったら解決しました。ｽﾏﾇ

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

エクセルで名簿みたいなのを作りたいのですが，
電話番号の始めの0の値が無視されてしまいます．
入力を文字列にしてもダメですし，，
このような場合はどうすればよいでしょうか？
よろしくお願いします．

>>401
セルの表示形式が「文字列」になってれば、0が消えるのは考えににくいんだけどね。

とりあえず、数字の前にシングルクオート「'」を書けば、続く文字は入力したとおりに
表示されるのでお試しあれ

例：03→'03

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

仕事でエクセルを使って簡単な図面を作ってるんですが
オートシェイプではなくて、直線を繋ぎ合わせて作った形をを、一つの図形と認識させて
色の塗りつぶし等できるようにする方法はありませんか？
会社のＰＣにＣＡＤソフトが無い為どうしてもエクセルで作らなければいけないんですが
オートシェイプだと立体をつくるのが上手くいかなくて。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 char code
例えば　char(31854)　と　char(38700)　は両者とも計算結果が　�K　になります。
ちなみに　code(�K)　は　38700　なので前者は間違えのよう。
気になって全コード調べてみたら似たような現象が2000以上あるのですが
char関数には扱い上の注意が必要なのでしょうか？それともバグ？

>>403
エクセルでは直線もオートシェイプの一種。などというツッコミは置いといて。

これまたオートシェイプの一種だけど、フリーフォームってやつを使うくらいしか
ないような気がする。終点でダブルクリックすれば閉じた図形になる。

>>404
31854は本当は何ですか?
実は �K じゃないですか?

ハイパーリンクで他のファイルのシート指定、セル指定は
どのように設定したらよいですか？

>>406
31854 = 0x7C6E
は未定義のようです

>>408
とりあえず、IMEパッドで見るんだ!

>>405
それでやってみたら上手くいきそうです
ありがとうございました！

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

Excelにてネットからダウンロードしたcsvファイルを開き、編集、保存したところ、
以下のような変更を勝手にしてくれます。

"hoge", "", "", ""(行末) <のような項目が保存後

"hoge"(行末) <となる。

該当部分は編集を加えていません。
発生しないようにする方法はありますでしょうか？

>>394
ありがとうございます。
シート1のマクロが無事に消えました。
このマクロをbefore saveイベントで動かそうと、
そのままSheet2、Sheet3・・・・Sheet20の分までマクロのコピペで対応したのですが、
やはりスマートではなく、サイズが大きくなってしまいました。

このマクロを、シート数不明のブックでも使えるようにするにはどうすればよいでしょうか？
どうぞよろしくお願いします。

そのくらいは自分で書き換えようよ。
というか固定環境で使うならブック毎に置く必要すら無いじゃん。
個人用マクロブックとかから使えばいいだけだし。

>>413
頭の2行は書くべきじゃなかったな。

そうでもないか

【1 OSの種類 　 　 　 　 .】 WindowsXP Home
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 配列数式　データ範囲

excelは基礎的な関数がわかる程度で、配列数式は理解しきれていない感じです。

現在、業務で行単位でデータを投入し、他のシートで集計をかけています。
集計は配列数式とcount()を使って自動で計算しています。

データがある行のみを配列数式のデータ範囲として指定したいのですが、
どうすればデータ範囲をデータがある行数に応じて変更させられるでしょうか？
集計をかける値が多いので、自動で変更したいのですが。

よろしくお願いします。

'A2:A3 {=SUM(INDIRECT(A1)*INDIRECT(A1))}
こんな感じ？

>>416
=SUM((INDIRECT("A1:A"&COUNTA(A:A))<=5)*INDIRECT("B1:B"&COUNTA(A:A)))
とかで、一応いけますが、
重くなるので、
マクロの記録で、
挿入　名前　作成　上端行　
とかで、名前管理するほうが、いいのではないかと思われます^^；

あ、挿入の前に
CTRL＋Shift＋：で、
カレントリージョン（テーブル）選択が必要だった^^；

VBAって何ですか？釣りじゃありませんから。

>>420
ぐぐれ、このタコ

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

=IF(K14="B",L14,"")

セルにこの計算式を入れるとＫ１４がＢの場合にＬ１４の数値が表示されます。
０（ゼロ）だけは表示したく無いので、どの様にすればいいでしょう。
教えて下さい。

>421
＞ググれタコ 　は？
言い方きをつけろ！

>>422
セルの書式設定で表示形式のユーザー定義を選んで
「#」にする

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

質問です。
期限日数についてです。
１から３１日までシートがありリンクしています。
Ｔｏｄａｙで比較して期限内なら可と表示しますが、
期限を過ぎた日にリンク開くと日数の変動に左右される
ことなく可を保持することはできますか？

TODAYと比較して動作を決定しているなら結果はTODAYによって変動する
常に可と出したいなら可と書く

４２４さん、ありがとう
問題解決しました。善い朝を向かえることができて嬉しいです。
早起きは3文の得ですね!!

>>425
＞期限内なら可
＞期限を過ぎても可
？？？なんだそりゃ、いつ不可なんだよ？？？

>>423
ググってください。
タコ野郎さん。

> １から３１日までシートがありリンクしています。
> Ｔｏｄａｙで比較して期限内なら可と表示しますが、

この2行で日本語が破綻している。

2003を使ってます。
初期設定の変更で文字の大きさを変えられることができるなら
最初から、セルの大きさを変えてしまうこともできるんでしょうか？

セルの大きさをいじる方法は、テンプレートを作らないとだめですか？

>>412
VBProjectでシートモジュールのVBComponent名は、必ず"Sheet"x となる
Leftで切り出せばOK

おおもとの条件で
>>ThisWorkbookやModule1マクロはそのままで
とあるが、標準Moduleを挿入してModule2で動かすのは？

>>425
さっぱりわからん

日本語が。

2003を使ってます。
DSUM関数の検索条件について教えてください。
検索条件を指定する表で、
　　　　
　　 　 　A 　　 B C
１　　　仕入先　　商品　　　金額
　２　　　甲社　　　あめ　　　
　３　　　乙社　　　ごはん　　　　　　　　　としています。

このとき、A社から購入したあめの金額合計はきちんと反映させられるのですが、
Ｂ社から購入したご飯の金額合計はエラーになるのです。
検索条件の指定範囲が飛ぶ場合、つまり上記のように
A1からC１とA3からC3というような指定はできないのでしょうか？
甲社、乙社それぞれ別のセルに複数の条件（3つが最高）
に見合った金額合計を表示させたいのです。

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

お尋ねします。Excel2003使ってます。
各ワークシートのインデックス番号を、そのシートに表示させる方法って無いでしょうか？

ググって見たりしたのですが、「アクティブなシートの」っていう例ばかりで、うまくいきません。
それだと再計算したら、そのときのシートのインデックス番号が、全シートに入っちゃいます。
それ以外だと、インデックス取得にシート名が必要だったり。(シート名はバラバラなのです。)

>>434
離れた位置のセルだと検索条件範囲に指定できなかったんじゃないかな？
ピボットテーブル作ってしまって、GETPIVOTDATA関数を使うのが、いちばん楽かな。
配列数式がわかればそっちでもいけないことはない。

>>436
さんきゅう！

>>435
VBA?
指定したセルのワークシートインデックス番号を取得
Function WsIndex(r As Range)
WsIndex = r.Parent.Index
End Function

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

質問です

エクセルで指定日がすぎれば、特定の列、行、セルにアクセス禁止設定はできますか？

>>438
おお、できました。ありがとうございます。
再計算でもばっちりです。(当たり前ですね。)

なるほど〜。
ネットで調べてて「シート名任意なのにそれを指定させるとはどういう事やねん！」
って勝手に憤ってましたが、そのシート中のセルをキーに辿れば、シート名を指定
しなくてもシートが特定できるってわけですね。

>>432
ありがとうございました。
上の条件でできました。すっきりしました。

>>425 = >>439　なの？
それともなにかの課題をここで解いてもらおうとしてるの

エクスプローラーから保存しているエクセルファイルを読み込みできない。最初にエクセルを開いて[ファイル]→[開く]から保存しているファイルは読み込める。何で？誰か教えてください。

ツールオプション全般他のアプリケーションを無視するのチェック変更

さんきゅうです

小数点以下二桁まで有効で3桁で切り捨てる方法はどうするんでしたっけ？
式で教示お願いします

>>446
例えば
=ROUNDDOWN(PI(),2)

>>447
サンクスです！

>>417,418
参考になりました。ありがとうございます。
なんとかできそうなのでがんばってみます。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 VBAでお願いします
【5 検索キーワード 　 　 】 VBA　フォーム　コピー

a.xls に保存されているユーザーフォームを
マクロを使ってb.xlsにコピーする方法はあるでしょうか？

普通のコードであれば、
標準モジュールじゃなくてシートにコード書いて、
シートをコピーすればいいのですが、ユーザーフォームは・・・？

よろしくお願いします。

>>439
VBAでしか無理です。
基本的にVBAを使わずに自動計算で変更できるのはセルの値しかありません。（例外:条件付き書式　他何かあったっけ？）

あと、テンプレどおりに書いてるのに反応が悪いのは、
できるわけがないことを聞いてるのと（分からなくても仕方ないですが）
検索キーワードに自力で何とかしようと頑張った痕跡が見受けられないからだと思われます^^;

>>450

>>394あたりが参考になりそう

>>439
入力規則でユーザー設定で「=NOW()<DATEVALUE("2007/5/1")」で四月までなら入力おｋ

>451　撃　沈　ドｯカーン

>>439
嘘こいてすみませんでした orz
>>453
そんな使い方があったとはびっくりです。
非常に勉強になりました^^
なんかほかにも特殊な入力規則の使い方あれば
教えていただければ幸いですm(_ _)m、

５００行近いデータがあって空白の行だけ削除する効率的な方法ありますか？

>>456
１．　編集／ジャンプ／セル選択／空白セル
２．　削除／上方向にシフト

>>457
サンクスです
助かりました

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

列の一番下の空白以外のセルを検索・抽出したいのですが
良い方法はありますでしょうか？

よろしくおねがいします。

>>459
値が数値のみなら
=MATCH(MAX(A1:A10)+1,A1:A10)

文字列もあるなら
{=MAX(IF(ISBLANK(A1:A10),0,ROW(A1:A10)))}

これで最終データがある行の番号が返るので､あとはお好きなように

>>460
ありがとうございます、試してみます。

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

たとえば１１日しか読めなくするようにしたかったのですが
いろいろ調べましたがわかりませんでした。

セルに入力した数値を読みに行くだけなので、
例=IF(today=today,１の処理,２の処理)
で工夫してみます。

　

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

とある一覧表のデータが存在するExcelを開きます。
あるセルにポインタを合わせた際に、その縦軸と横軸全体の色が変わるような設定ってできますでしょうか？
例：M18にポインタを置く→M列と18行全体の色が変わる／若しくは反転

お願いします。

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

1つの列に降順?(最新の順です）でならんでいる日付を
その列内で年と月で検索して、列内の上側のセルを選択したいです。
例　列A
2007/1/20
2006/12/11
2006/12/3
2006/11/25
2006/11/3
例えば上の列では、列A内で"2006/12"で検索して、2006/12/11の
セルを選択したいです。
findメソッドでなぜかうまくいくこともあったのですが、
大抵の場合うまくいきません。
どなたかご教授おねがいします。

【1 OSの種類 　 　 .】Windows XP
【2 Excelのバージョン】Excel2003
【3 VBAが使えるか　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード 　】条件　満たさない場合


A1/B1　　　　　　結果をC1に。
（A1+A2）/B1　　結果をC2に。
（A1+A2+A3）/B1 結果をC3に。

この数式を
=SUM($A$1:LA3)/$B$1
で入力しているのですが
A3が未入力の場合C3にC2までの結果が反映されて
しまうのですがC3の表示を空白で返すことはできるのでしょうか？

文章下手ですいません。お願いします。


といった感じで

自分も初心者なんで、わかるやつだけですまんが、
>>
=If(C2=""､""､計算式)
あいもなからだとカンマ＝改行だから、句読点ですまそ。

ごめん>>465宛てね。

>>466
試してみたのですがC2に数値が入っている場合は
やはりC3に反映されてしまいました。

>>466

C2の部分をA3に変更したら出来ました！
ありがとうございました！

A3が空白ならｃ３のセルに下の式じゃね
=If(A3=""､""､計算式)

すいません。セル内に「枚」などをつけて
SUMで計算したいのですが"枚"でくくっても計算してくれません。
どうすればいいのでしょうか？

>>471
>>1-7

>>471
表示形式で「枚」を付ければ数値だけになるから計算出来るんぢゃない？

･･･って質問はコレと意味が違うのか？？

>>464
Sub てけとー()
Const first_row = 2
Const myclm = 1
Dim mysh As Worksheet
Dim tmp As String
Dim lc As Long
Dim mydate1 As Date
Dim mydate2 As Date

Set mysh = ThisWorkbook.Sheets(1)
tmp = InputBox("検索する年月を入力してください。", "条件入力")
mydate1 = DateValue(tmp & "/1")
mydate2 = mydate1 + 32 - Day(mydate1 + 32)

lc = first_row
Do While Cells(lc, myclm) <> ""
   With Cells(lc, myclm)
      If .Value <= mydate2 Then
         If .Value > mydate1 Then
            .Select
            Exit Sub
         End If
      End If
   End With
   lc = lc + 1
Loop
MsgBox "見つかりませんでした"
End Sub

初心者ですが、営業資料の表を作ってるんですが、
セルの書式からユーザー定義で dd(aaa) として日付と曜日を表示させてるのですが、

例:12(木)
13(金)
14(土)

と並んだセル内の木,金,土をそれぞれD,E,Fに簡単に置き換える事は出来るでしょうか?
月〜土をA〜Fで表示したいんですが。
アルファベットの場合、連続データとしてのコピーが出来ないようなので、
今は一つずつ手で打ち込んでいますが、調べてみたところSUBSTITUTE関数というのが見つかったんですが
これでは指定範囲内(一ヶ月分)を一度に置き換える事は無理なようです。

エクセル2003を使っています。
よろしくお願いします。

分かりにくい書き方になってしまいましたが、要するに

月→A
火→B
水→C
木→D
金→E
土→F

と、置き換えたいです。
何かの関数(?)もしくは設定で、簡単に置き換える方法は無いでしょうか？
先ほどは書式を dd(aaa) の型で指定と書きましたが、置き換えが出来るようなら
特に拘らない(各セルに独立して日付と曜日を分けて入力)ことにしました。

>>476
検索値をTEXT(A1,"aaa")のような形にすればVLOOKUPで可能だろ

>>477
お答え有り難うございます。
ただ、それだと本来の表とは別に参照する表を作っておかないとダメなんじゃないでしょうか？
VLOOKUP関数というのを調べてはみたのですが
正直、よく理解できていないのかもしれませんが…。
そうでないのでしたら、具体的に教えていただけないでしょうか？

本来の表のみで、条件設定とか、自動で書き換えてくれる方法を探しています。
単純に、そのセル内の文字列を書き換えてくれる(別のセルに表示するのではなく)方法は無いでしょうか？

>>478
ヘルプ読めばわかるしググってもすぐ出てくる
非常によく使われる関数だから君自身で調べてください

＞VLOOKUP関数による自動入力を行うためには、まず検索（LOOKUP）の対象となる商品情報リストを別に用意しなければならない。
ttp://www.atmarkit.co.jp/fwin2k/win2ktips/317vlookup/vlookup.html

検索したどのサイトを見ても↑のような事が書いてあります。
この”対象となる商品情報リストを別に用意しなければならない”を無しに処理したいんです。

もしくは、アルファベットA〜Fをオートフィル出来るルールを作るような設定とか…。

なら12（木）と表示させている列をコピーして一旦メモ帳に
貼り付けそれをまたコピー、その後、元のセルの書式を標準か
文字列にしておきそこに貼り付けて置換を行えば？

オートフィルでABC〜と入力したいなら
ツール→オプション→ユーザー設定リストに、a,b〜,y,zと入れとけば出来るよ

>>482
うわぁ。
まさにコレがしたかったのでした。有り難うございます！

>>478
＞ただ、それだと本来の表とは別に参照する表を作っておかないとダメなんじゃないでしょうか？

ご認識の通り。それが要件的にNGなら、VLOOKUP関数をいくら調べても回答には到達しない。
>>479のレスは無視しといてOK。

> ご認識の通り。それが要件的にNGなら、VLOOKUP関数をいくら調べても回答には到達しない。
嘘を教えるな。外部の参照表は｢(式の簡素化やメンテナンスの為に)作った方がいい｣であって｢作らなければ使えない｣ではないぞ。

つ =VLOOKUP(A1,{"月","A";"火","B";"水","C"},2,FALSE)

とはいえ
> そのセル内の文字列を書き換えてくれる(別のセルに表示するのではなく)方法
の方に引っかかるからどっちみちNGだし､こんな長ったるしい式を何十セルもに入れなくはないけど
外部の参照表無しでもVLOOKUPが使えるという事実だけは示しておく。
ただ､今回のようなものをデータ内蔵の式にする場合はMID使った方がスッキリするがな。
=MID("ABCDEFG",WEEKDAY(A1,2),1)

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel２００３
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 表作成　抜き出し　抜き取り　

半年分の商品の売買記録がありまして
それを月ごとに日付と商品で抜き出し
月間販売履歴みたいなものを作りたいのですが
今は
2月1日　　りんご　　
2月1日　　バナナ　
2月1日　　いちご　
2月1日　　みかん
のようにソートしてから1日分をコピーして別シートの表に
並べるというのを繰り返してます。
激しく面倒なのですがVBAを使わない場合これがスタンダードな方法なのでしょうか？

>>475 >>478
関数でやるなら、dd(aaa)のセルがＡ１とした場合
=CHAR(WEEKDAY(A1,2)+64)

くだらん質問なんですが、会社のパソコンでエクセル使ってる時、イルカが出てくるようになりました。誰かこのうっとうしいイルカの消し方教えて下さい。

>>486
たぶんピボットテーブルが貴方を救ってくれると思うです

>>488
いるかを右クリックで表示しないを選択する

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

セル内で改行する時に下のセルに移動するのではなくて
セル内で改行したいのですがわかりません。
質問もわかりにくくてすみませんがよろしくお願いします。

>>491 ALT+ENTER

>>485
お前、質問の内容をもう少し良く読め。

その関数で、日付型のデータが入っているセルを入力にして
アルファベットの値が帰ってくるか自分でやってみろ、阿呆。

>>493
>487が正解出してんだから、もういいじゃん

【1 OSの種類 　 　 .】Windows 2000
【2 Excelのバージョン】Excel2000
【3 VBAが使えるか　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード 　】データベース　抜き取り　抽出

質問します。

355
288
5744
9060
5060

のように縦にランダムに数字が並んでいるところに
どこかのセルに6099と入れると
355と5744を抜き取ってくれるような関数もしくはマクロはないでしょうか？
よろしくお願いいたします。

>>493
お前､書いてある内容もう少し良く読め。
｢外部の参照表無しでもVLOOKUPが使える｣ってことを主張してるだけだぞ。
何ムキになってるんだかw

>>496
人のことが言えるか。
浅慮で見当違いなレスを入れてるお前の方が鬱陶しい。

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

>>462
でＩＦ（today＝１〜３１の数字,"○""×"）をいろいろ試したのですが
todayから日にちだけを取り出して参照させた場合×となります。
回避する方法をお願いします。

>>496
つまり、お前はスレの趣旨とは無関係な揚げ足取りに躍起になってたと
言いたいわけだな。

質問者何の役に立たない、使えない無駄書き込みをした挙げ句に、
偉そうなツラでふんぞり返るとは、見上げたバカだ。

>>495
ユーザー定義関数作ったよー
Function CHINKO(r As Range, v As Long) As String
　Dim v1 As Long, v2 As Long, rng As Range, flg As Boolean
　flg = False: v1 = r.Cells(1).Value
　　For Each rng In r
　　　v2 = rng.Value
　　　If v1 + v2 = v Then
　　　　flg = True: Exit For
　　　End If
　　Next
　　If flg Then
　　　CHINKO = "(" & v1 & "," & v2 & ")"
　　ElseIf r.Count = 1 Then
　　　CHINKO = "ないっス"
　　Else
　　　CHINKO = CHINKO(r.Offset(1).Resize(r.Count - 1, 1), v)
　　End If
End Function

A1からA5に数があって、B1が判定したい数値なら、
ワークシート上で「=CHINKO(A1:A5,B1)」

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

これで仕事がかなり楽になります。
なんせ１万行以上あるなかから探しているのでほんとに
時間かかっちゃうんですよ、、、

でも関数名はさすがに変えちゃいますけどｗ

スレ違いかもしれませんが・・
デスクトップやフォルダ上の、エクセルのロゴ（緑の）が
表示されなくなってしまいました。
どうしたら元に戻りますか？
会社のPCなんで、戻さないとやばいです＞＜
ご指導下さい。

俺は単に
> 外部の参照表無しでもVLOOKUPが使えるという事実
を示しただけだよ。

式はそれを示すためのサンプル式で､実用の話なんか全くしてない。実用するとしたら､このままの式で参照を
TEXT(A1,"aaa")とするより､こちらもも,WEEKDAY使って数値対英字のデータを埋め込んだ方がいいが､
> 外部の参照表無しでもVLOOKUPが使えるという事実
が伝われば良いだけなので､数値対英字より曜日対英字の方がデータが埋めてあることが解りやすいかと思ってそうしたし
無駄な物は入れずに曜日も水曜までにした。実用の話なら参照値が曜日文字列ではなくシリアル値である件以前に
曜日が水曜までしか入ってないことの方が問題だろうに。

で､実用の話はその下ね。
> =MID("ABCDEFG",WEEKDAY(A1,2),1)
の方は､今回のようなことを実際やるとしたらという実用面での話をしてるんで式も実用出来るようにシリアル値を参照することを
考慮して書いてある。


なんでこんなことまで説明しなきゃならないんだか…

>>501
１万行以上あるなら､更に関数も高速化したほうがいいかも。

Function CHINKO(r As Range, v As Long) As String
　Dim vs() As Long, v1 As Long, v2 As Long, i As Long, j As Long, k As Long
　k = r.Count: ReDim vs(1 To k)
　For i = 1 To k: vs(i) = r.Cells(i).Value: Next i
　For i = 1 To k - 1
　　v1 = vs(i): v2 = v - v1
　　For j = i + 1 To k
　　　If vs(j) = v2 Then CHINKO = "(" & v1 & "," & vs(j) & ")": Exit Function
　　Next j
　Next i
　CHINKO = "ないっス"
End Function


使い方は500が書いたのといっしょ。平均して10倍以上は速いと思う。
数行目同士ならいいけど9999行目と10000行目の組み合わせとかも発生しうることだからな。
負数が無いという条件なら､平均値ではもうちょこっと速くなる。v1がvを越えたら､2段目のループ飛ばせるわけだから。

せめてちゃんと読んでくれよ。おせっかいくん。

>>505

なんでそんなに突っかかるのかな?
VBAの方はよく解らないけど間違ったことは書いてないのでは?

春だから仕方ない

>>504
ありがとうございます！

すいません、更なるわがままを書いたら怒られるかな、、、

500
250
300
450
100
100
250

という縦のランダムな数字があって（実際には伝票内の金額が並んでるんですが、、）
どこかのセルに500と打ち込むと
500　
250
300
100
100
250
のセルが着色されるもしくは横のセルに記号を付ける
みたいなのは無理でしょうか？

というか最初からこっちで質問すればよかった、、、

春だから？春夏秋冬よく聞くぞ。この手の輩は一年中どこかで盛っるんじゃねぇの

>>509
条件付書式でOK

>>509
条件付書式またはIF関数

>>511,512
レスありがとうございます。
すいません、条件付書式の式はどういうのにすればよいのでしょうか、、
式が全然想像できないです。

　　　A　　　　B
1 500 500
2 250
3 300
4 450
5 100
6 100
7 250

として
A1の条件付書式はどういう記述をすればいいのでしょうか？
重ね重ねで申し訳ありませんがよろしくお願いします。

>>513
A1〜A7を選択しておいて

書式→条件付き書式
セルの値が　　次の値に等しい　　=B1
として書式は好きなように。

>>514
すみません、それだとA1しか拾えないような、、、
A2＋A7＝500　、A3＋A5＋A６＝500なので
A2、A3、A5、A6、A7も着色させたいのです。

わがままな条件ですがお願いいたします。

>>515
それはねナップザック問題といって、と〜てもメンドウなんだよ

>>516
ナップザック問題でググってみました。
エクセルというよりも数学的に難しい問題なんですね。

やはり無理なのかな、、、

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

=A1 =A2 =B2
セル一つづつに（=A2）これがあり一覧表にそれぞれの数値が表示されます。
一覧表の中の数値だけを他のシートに持って行きたいのです。
（=A2）から数値だけに変換する方法はありますか？

>>487
すごいです。当初の目的そのものです。
オートフィルで大方の部分は作ってしまいましたが、
この関数だと何も考えずとも入力が可能になりました。

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

その他、レスくださった皆さんも、ありがとう。

>>518
コピーして値を貼り付けだとダメなの？

>>503
もういいよ、お前。
誰がいつVLOOKUPのウンチクなんぞ垂れて欲しいと言ったんだ。

表を別のとこ（このワークシート以外）にコピーすると数値が無くなるんです。
数値の入った表をもって行きたいのです。

今はワークシートごとコピーして表の数値のうえから同じ数値を入力しなおしてます。
なんとしてでも数値だけが欲しいです。なんとか…お願いします。

>>503
＞なんでこんなことまで説明しなきゃならないんだか…

誰もお前にby name指定で「教えてくれ」なんて言ってないだろう。
文句があるなら何も言わずROMってろ。

無駄なウンチクで偉そうなツラがしたいなら失せろ。スレ違いだ。

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

　　　A　　　B　　　C
　　実績　　目標　達成率
1　　20　　　20　　100%
2　　10　　　50　　20%
.
…
.
10　total　　　　　

という表があるとして　
目標(A列)最初から入力されていて、実績(B列)一日ごとに入力していきます。
C列は【=A1/B1】などとして、その日一日だけをみた達成率を表示します。
D列に過去分も考慮に入れた達成率を示していきたいのですが
どのような式にすれば良いんでしょうか？
例えばD1は43%になると思います。

あともう一つなのですが、E列にその日までの過去分と考慮に入れた
売り上げの差額(プラスなら青色マイナスなら赤色)を入れたいのですが
どのような式になるでしょうか？


お願いします。

>>522
コピー元を選択→編集→コピー→コピー先を選択→編集→形式を選択して貼り付け→値→OK
でも消えるって言う事？

>>524
D1=SUM($A$1:A1)/SUM($B$1:B1)

※D1は100%でD2が約43%になると思うけど･･･？

E1=SUM($A$1:A1)-SUM($B$1:B1)
条件付き書式で
条件１に
セルの値が　次の値より大きい　0
で書式のフォント色を青
条件2に
セルの値が　次の値より小さい　0
で書式のフォント色を赤

･･･だめかなぁ？

誘導されてきました　よろしくおねがいします

if関数で

数字なら　○　それ以外なら×という式を

組みたいのです

おしえてください

>>527
A1を判定する場合
B1=IF(ISNUMBER(A1),"○","×")

>>528
ありがとうございました。
解決しました
ありがとうございました。

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

セルに現在時刻しとてシステム時刻の秒を表示させたい
=second(time(,,))をどうなおせばいいのでしょうか　

>>530
=SECOND(NOW())
とか？

>>523
帰れ

一定以上の数値の色を変えるのはどうしたらいいんですか？

>>533
表示形式か条件付き書式で

>>533
一定以上の数値の入ったセルを選択して
書式→セル→フォント
で色の設定を変更する。

５３３さんへ
『書式』クリック→『条件付き書式』クリック→『条件付き書式の設定』

『条件付き書式の設定』ココで数値の範囲や色を選べます。
その１その２…何個でも条件をつけれます。
例）０％〜４０％は赤、４１％〜８０％青、８１％〜１００％は緑　など

2007限定の話かよ

>>531
thanks
リターンした後の表示が動きません。秒表示が刻々変わるようにしたいのですがうまくいかないので。

>>538
関数では無理だと思う。

>>538
VBA可という事で、OnTime メソッド使えば？

【1 OSの種類 　 　 　 　 .】 Windows*XP
【2 Excelのバージョン 　 】 Excel*２０００
【3 VBAが使えるか　 　 .】 ちょっと
【4 VBAでの回答の可否】 可

A列の数値がリアルタイムで変動しています。
　　IF　9時〜11時　THEN　IF　5分毎に　THEN　A1:A225の値をD1:D225に挿入

これをVBAで表現したいのですがお願いします。
9時〜11時で計24回、値を取得するので9:05のデータがAAに移動するような感じでお願いします。

>>463をお願い致します。

行を挿入するのをキータッチのみで行うにはどうすればよいでつか？

>>543
挿入を希望する場所で
行挿入なら Alt+I → R
列挿入なら Alt+I → C
だったかな･･･。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel２００3
【3 VBAが使えるか　 　 .】 ほとんど不可
【4 VBAでの回答の可否】 可

前にも質問したのですが、申し訳ない。再び質問させてください。

√Aをｂ√ｃにしたいのですが、素因数分解が必要です。
そのやり方をすべて教えて、というのはムシがいい考え方ですので、
これを読め！という本を紹介していただけないでしょうか。

なるべく、初心者にもわかりやすいものであるとありがたいです。
よろしくお願いいたします。

>>463
Excel 行列　条件付書式、でググッてみるといいかも

>>524です。
>>526さん、ありがとうございます。
確かに、言われる通りです、書き違いをしてしまってました。
すいません。

ところで、教えていただいた式で思惑通りの計算が出来ましたが
売り上げデータが未入力の日にエラーが書き込まれてしまうのですが
これを非表示にするようなことは出来ないでしょうか?
エラーが表示されていても実用上は何の差し支えもないんですが、
出来れば、という事で。。。

↑のは間違いです。
エラーではなく、達成率が一番下まで(実績未入力日)までズラッと出てきてしまいます。
未入力日は何も表示させないようには出来ないでしょうか？

>>547 良かったみたいですね。
C1=IF(AND(ISNUMBER(A1),ISNUMBER(B1)),A1/B1,"")
D1=IF(ISNUMBER(C1),SUM($A$1:A1)/SUM($B$1:B1),"")
E1=IF(ISNUMBER(D1),SUM($A$1:A1)-SUM($B$1:B1),"")
あたりでいかがでしょうか？

>>534〜>>535 の人たち
ありがとうございました

>>463,>>542
VBA不可なら、おそらく無理。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ(ただしマクロの記録程度は使います)
【4 VBAでの回答の可否】 可

BookAを保存するとき、
BookAを開いた日と同じ日に保存するならマクロ1を実行。
BookAを開いた日より日が経っていれば（0時を過ぎ日付が変更されていれば）マクロ2を実行。

といった内容を動作させたい場合、どのように記述すればよいでしょうか？

>>545　ユーザー定義関数　√12⇒2√3　12⇒2√3
Private Function chinko(test As String)
Dim moto As Long, lc As Long, i As Long, tmp As Long, a As Long, b As Long, tbl As Variant
 test = Replace(test, "√", "")
 If test = 0 Then chi = 0: Exit Function

 moto = test: i = 0: lc = 2: ReDim tbl(i): tmp = 1: a = 1: b = 1
 Do
   If moto Mod lc = 0 Then
      i = i + 1
      ReDim Preserve tbl(i): tbl(i) = lc
      moto = moto / lc: lc = lc - 1
   End If
   lc = lc + 1
 Loop While moto > 1
 For i = 1 To UBound(tbl)
  If tbl(i) = tmp Then
     a = a * tbl(i): tmp = 1
  Else
     b = b * tmp: tmp = tbl(i)
  End If
Next i
b = b * tmp
    chinko = a & " √" & b
End Function

>>552
>BookAを開いた日と同じ日に保存するなら〜
>BookAを開いた日より日が経っていれば〜

BookAを開いたままで数日後に保存するのか、前回の保存日時と比較してやるのか質問の意味が不明。

>>554
ありがとうございます。
保存日時との比較ではなく、>>552の通り、開いた日との比較になります。
状態は開いたままです。

>>543
挿入　Ctrl  + （Shift　;）
削除　Ctrl   -
ってのも覚えやすくていいですよ^^

>>554
メロンとバナナどっちが高価ですか？
の質問に、
メロンとバナナなのかミカンとバナナなのかどっちか意味不明。
と返すくらい意味不明。ミカンなんて出てきてない。
つか、質問の意図聞いたなら回答してやれよｗ

>>552
WorkbookOpen
適当なセルに=Day(now())を入力させる

WorkbookBeforeSaveには
Day(now())とさっきの適当なセルを比較させる

こんなのだったらシンプルで簡単。
入力したセルは値のみに変えんと比較しようないからな。

>>552

ThisWorkbookに

Dim 開いた日 As Integer
Private Sub Workbook_Open()
開いた日 = Day(Now())
End Sub

Private Sub WorkbookBeforeSave()
If 開いた日 = Day(Now()) Then
まくろ1
Else
まくろ2
End If
End Sub

標準モジュールに
Sub まくろ1()
MsgBox "ﾏｸﾛ1を実行します"
End Sub

Sub まくろ2()
MsgBox "ﾏｸﾛ2を実行します"
End Sub


>>557
これでいいか？

>>552  具体的には thisworkbook に次のコードを
Private Sub Workbook_Open()
 ThisWorkbook.Sheets(1).Range("A1").Value = Date
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If ThisWorkbook.Sheets(1).Range("A1").Value = Date Then
    Call マクロ1
  Else
    Call マクロ2
  End If
End Sub

>>557-559
ありがとうございます。
パソコンの日付を変えてテストしてみようと思います。
シートに書き込む事がないという点で、>558のマクロを使ってみようと思います。

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

横に５つの数値が並んでいて，そのうち大きい順に２つの値を合計するには
どうすればよろしいでしょうか。
５つの数値は複数同じになることがあります。

例えば，A1からE1，A2からE2にそれぞれ数値があって，G1,G2にそれぞれの
行の上位２つの値の合計を出力するようにしたいのです。
実際のデータは１５００行ほどあります。

-----------------------------------------------------------------
__|_A_|_B_|_C_|_D_|_E_|_F_|_G_
_1|_50|_40|_80|_95|_90|___|185
_2|_70|_55|_80|_70|_40|___|150
-----------------------------------------------------------------

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

解決しました。

large関数を発見しました。

>>561
=LARGE(B1:F1,1)+IF(COUNTIF(B1:F1,LARGE(B1:F1,1))>=2,LARGE(B1:F1,1),LARGE(B1:F1,2))

>>553
そのコードを参考に勉強すればいいわけですね。ありがとうございます！

あと、おすすめの参考書籍などありましたら、お教え願えませんでしょうか。

あるセルに
0か1の時は"甲0"、"甲1"
乙と入力されている時は"乙"という文字列を表示させたい時は、どのようにすればいいでしょうか？
書式設定だと乙と入力されている時にも"甲乙"となってしまい詰まってしまいました

>>565 書式設定にコレぢゃダメ？

"甲1";;"甲0";"乙"

>>565
コレで十分みたいだね

"甲1";;"甲0"

ただ１以上（2でも3でも〜）だと「甲1」になるけど。

・規格値100〜200
・測定値は2個あり、規格値に対して悪いほうの値を表示させる

absを不等号で比較してif文を作ろうとしたんですがものすごい長い式になってしまって
訳分からなくなってしまいました

これを関数で表現したいんですが良い方法ありませんか？

>>566->>567
ありがとうございます！

>>568 式がチョット長いけど。。。

A1=下限値
A2=上限値

A4=測定値1
A5=測定値2

B1=IF(ABS((A1+A2)/2-A4)>ABS((A1+A2)/2-A5),A4,IF(ABS((A1+A2)/2-A4)<ABS((A1+A2)/2-A5),A5,A4&"と"&A5&"は等誤差"))

>>570
断念したのより随分短くなってますありがとうございました

>>541　をお願いします。

はい

>>572

「A1:A225の値をD1:D225に挿入」

　と言ってるかと思えば、

「9:05のデータがAAに移動するような感じ」

　と言ってみたり。

A列の値を、どこにどのような手順で移動したいのかが今ひとつ
理解できない。

的確な回答を素早く受けたければ、質問する側にもある程度の文章力、
説明力が求められる。自分だけに理解できる言葉を書きつづっても、
今回のようにスルーされるのが関の山だよ。

>>546,>>551
なるほど、そうでしたか。
一応そのキーワードでググってみましたが、なかなか難しいんですね。
私の頭で理解出来るか分かりませんが、難しいという事が分かっただけでも
助かりました。

お世話になりました。
ありがとうございます。

エスパーな漏れは､D列に右シフトで24回挿入を繰り返すと
最初のデータはAA列に移動するという意味だと察したが。

因みに
> IF　9時〜11時　THEN　IF　5分毎に　THEN
一つ目はIfでもいいが､5分毎の処理はIf使うべきところじゃないぞ。

>>574

失礼しました。
「9:05のデータがAAに移動するような感じ」は、24回データを挿入した結果、
D→E→F→G→H→I・・・・・・・・AA
と一番最初のデータ(9:05)がAAにと書いた次第ですが、混乱の元なので
下記の表記で再質問お願いします。


A列の数値がリアルタイムで変動しています。
　　IF　9時〜11時　THEN　IF　5分毎に　THEN　A1:A225の値をD1:D225に挿入
これをVBAで表現したいのですがお願いします。

>>576
すみません、そこを何とか教えてもらえないでしょうか？
FORNEXTで、秒をカウントとかでしょうか？

=IF(D5:D26,H5:H26,L5:L26<>0,SUM($D$5:D26,$H$5:H26,$L$5:L26)/SUM($C$5:C26,$G$5:G26,$K$5:K26),"")

この式でエラーが出るんですが、間違いを正してもらえませんか？

>>578
Application.OnTime TimeValue("09:05:00"), "まくろ1"
かな？

>>580
ありがとうございます。検索してみます。

>>579
目的が解らないですが、これならエラーはでないと思います。

=IF(AND(D5:D26<>0,H5:H26<>0,H5:L26<>0),SUM($D$5:D26,$H$5:H26,$L$5:L26)/SUM($C$5:C26,$G$5:G26,$K$5:K26),"")

>>578
とりあえずこれを標準モジュールに貼って、9:00になる前にタイマープロシージャを起動してみ

Option Explicit
Sub タイマー()
    callTimer TimeValue("9:00:00"), TimeValue("11:00:00"), TimeValue("0:05:00"), "copyData"

    '以下、動作テスト用コード
    'テストしたい場合は、上の行をコメントアウトして、下の行のコメントアウトを外す。
    'callTimer Now() + TimeValue("0:00:10"), Now() + TimeValue("0:01:10"), TimeValue("0:00:04"), "copyData"
End Sub

Sub callTimer(start As Date, finish As Date, interval As Date, procedure As String)
    Dim d As Date
    d = start
   
    While d <= finish ' 11:00:00ジャストにプロシージャを実行しない場合は不等号を「<」に変える。
        Application.OnTime d, procedure
        d = d + interval
    Wend
End Sub

Sub copyData()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    With ws
        .Range("A:A").Copy
        .Range("D:D").Insert Shift:=xlToRight
        Application.CutCopyMode = False
    End With
End Sub

（続き）
普通にコピペすると半角スペースの代わりに「&#160;」がペーストされるので、
Visual Basic Editorに貼る前に、半角スペースへ置換してくだせい。

>>582
ありがとうございます。感謝感激です。

>>584
>>582のコードが何をしてるか、多少なり読み解くことも忘れずに。

ちなみに、以下のプロシージャの組は、今回に限らず汎用的に使える
ようにしてあるので、他の要件でも使えるようなら使い回してやってくだ
せい。

　・タイマー
　・callTimer

>>585
本当に色々とありがとうございます。
今現在も手を加えて、加工中です。
ほんと勉強になりました。

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

C1に「=A1+$F1」の計算式をいれているのですが、Eに列を挿入するとC1が「=A1+$G1」になってしまいます。
Eに列を挿入しても、「=A1+F1」か「=A1+$Ｆ1」になるような方法を教えてください。

Dim 列 As Long

For 列 = 10 To 1000 Step 4
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 ちょびっと
【4 VBAでの回答の可否】 可

「行6:8」をコピーして、行10：13に「行6:8」を挿入→ 「行14:16」に「行6:8」を挿入→・・・・・ 1000まで
を行いたいのですが、下記の文体かなり間違いがあると思うので訂正箇所をお願いします。

Dim 行 As Long
For 行 = 10 To 1000 Step 4
　　　 Rows("行:行+3").Select
　　 　　　 Selection.Insert Shift:=xlDown
　　　 　　ActiveWindow.LargeScroll Down:=-1
　　　 　　 Rows("6:8").Select
　　　 　　Selection.Copy
　　　　　 ActiveWindow.LargeScroll Down:=1
　　　 　　 ActiveWindow.SmallScroll Down:=-2
　　　 　　 Range("A行").Select
　　　 　　ActiveSheet.Paste
Next 行

Rows(行 & ":" & 行+3).Select

>>589
ありがとうございます。
早速、検証してみます。

かなり大き目の表のテンプレがあるのですが
現在は、入力のたびに該当セルまで目視で移動してます。A1からA10のように順序よく
入力できればそれでも構わないのですが、とびとび（例A１→F50→Z33）で
入力しているのでかなりの手間と時間がかかります。

そこでフォームを使用して簡易化できないものかと考えました。
予想するに、列と行をフォームで指定出来れば、該当セルを抽出できると思うのですが、
列と行を指定するコマンド？がわかりません。

例えば、
日付 4月1日 （列指定）
顧客 ○○ （行指定）
とした上で入力できればとOKです。
また行に関しては重複する可能性はありますが、
列に関しては重複しません。両方が重複した時のみ、入力できないように調整するつもりです。
（重複に関しては自身で出来ます。）

列と行を指定する方法を教えていただければと思います。伝わりにくいとは思いますが宜しくお願いします。

>>589
すみません、この「Range("A行").Select」文体もおかしいみたいなんですが、
どう変えればよいでしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 集計、列・行の指定

質問テンプレが抜けていました。
宜しくお願いします。

>>591
行列を指定と言っても､いろんな指定方法があるわけだが
行番号､列番号で指定するならCells使えばいいし
ある値に一致する行･列という指定がしたいならFind使えばいい。
CellsやFindの具体的な使い方はヘルプにのってるからそっち見てね。

>>592
そりゃ"A行"なんてアドレスは存在しないからな。("A列"でも同じ)
A列のアドレスは"A:A"だから。又はアドレスではなく列番号を使って
Columns(1).Selectでもいいし､他にもいくつか表現方法はあるけど。

９条は改憲してはならない。日本の為にならない。
日本人ではない朝鮮総連や民団でさえ、日本を心配して改憲への反対運動を行ってくれている。
私は日本人だが、「改憲すべき」などという者は、日本人として彼らに恥ずかしいと思います。

Ｑ．中国から身を守る為、戦争に対する抑止力が必要では？
Ａ．前提から間違っています。そもそも、中国は日本に派兵しようと思えばいつでもできました。
　　なぜなら、日本には９条があるため、空母や長距離ミサイル等「他国を攻撃する手段」がない。
　　つまり日本に戦争を仕掛けても、本国の、命令をだした幹部の命は絶対に安全なのです。
　　「安心して戦争を仕掛けられる国」を、中国は、今まで攻めずにいてくれたのです。

Ｑ．それは日米安保によるものでは？　そして、その日米安保も絶対ではないのでは？
Ａ．中国の良心を信じられないのはなぜですか？　そして、日米安保は絶対です。
　　知り合いの韓国人の評論家も「絶対だ」と言っていますし、私も同じ考えです。
　　更に、９条が消えても米国の戦争に協力する義務は発生しませんが、米国が被害者の場合は別です。
　　米国は日本を守る為に戦っても、（９条があれば）日本は米国を守る為に戦う必要がないのです。

Ｑ．９条が本当に「平和」憲法なら、世界中で（日本以外に）１国も持とうとしないのはなぜか？
Ａ．これは、日本以外のすべての国が誤っているとも言えます。
　　「敵国に攻撃が届く国は攻められづらい」というのは、誤った負の考え方です。
　　（もっとも韓国や中国の軍に関しては、日本の右傾化阻止の為でもあるので例外ですが）
　　更に日本の場合、隣国が韓国・中国・ロシアと、GDP上位の安定した信頼できる国ばかりです。

Ｑ．「９条改憲派」は「戦争反対派」。侵略者に戦争を挑発する、戦争憲法（９条）を撤廃したいのです。
Ａ．それは、貧しい考え方ではないでしょうか？　　　
　　中国や北朝鮮を信じる「強さ」があれば、そんな考えにはならないはずです。
　　日本が信じれば、彼らも信じるでしょう。そして、真に美しい関係が始まるのです。

>>587
お願いします

＞596　
Fの行を切り取り、Gの行に貼り付ける。じゃ、ダメ？

＞596
ごめん、だめだったね。

>>596
計算式を=INDEXとか=INDIRECTとかの関数を使って書き直す

>>597
>>598
そうなんです。

>>599
ありがとうございます。
今からいじってみます。

>>599

INDEXとかだと、計算式を何処に入れればいいか解らないですorz
INDEX（E1:N1)にしたとして、C1の計算式をA1+F1をどう表現すれば良いのか・・・・・

もうちょっとヒントお願いします。

>>601
ここからは有料です。あまえるな！関数をヘルプで調べれば、使い方は載ってる。

しかし、ここには親切な人がイッパイいるから、一杯やってテレビでも見ながら、
のんびり待ってると、いい事が起きるかもね。

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

初歩的な質問ですみません
例えばセルに1800と入れるだけで18:00と表示させたいのですが上手くいきません
書式設定の時刻で「13:30」を選択しているのですが、実際には0:00(1904/12/4 0:00:00)と表示されます
回答を宜しくお願いします

>>603
1800と入力すればそれは1800でしかない
時間はシリアル値で入力しなきゃダメ
Excelは日時に関していろんなルールが有るから
ヘルプで「時間の入力」を検索してごらん

>>603
見た目だけ18:00と表示されれば良いの？

1800というのを数値ではなくシリアル値として扱うと､1900年1月0日から1800日後という意味になる。それが1904/12/4だな。

無理矢理1800を18:00として扱わせることも可能だが､入力したセル自体に18:00として反映したいならVBA必須。
VBA無しでやるならシリアル値の概念を理解した上で変換数式を作って､入力セルとは別セルに18:00を返すようにしろ。

シリアル値の18:00を返したいのではなく､表示だけ18:00にしたいなら､表示形式のユーザー定義で｢00":"00｣としておけ。

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

セルＤ１に＝Ｂ１を入れると、セルＢ１に入力した数字　８００　が
セルＤ１に８００とでます。
セルＤ１にある＝Ｂ１を無くして８００だけにする方法はありますか？
（８００と手で上書する以外でお願いします。）

>>607
コピーして値として貼り付け

ここはエクセル総合相談所スレではないですか？IF関数、VBA、マクロ等のみの質問解答スレなんですか？他の基本操作や素朴な疑問なんか聞いたらダメなんですか？そうなら次スレタイ変えて下さい。バカにされて惨めな思いしたくありませんから。

>>609
どうしたの？

どのバカか分かりづらいんで名前に質問レス番入れてね

どのスレの流れで、そう思ったのか？変な子だね
被害妄想の激しい子の相手は嫌いじゃない、
モット何か言ってみな

609じゃないんだけど、

>>599
なかなか出来ないです。

Eに列を挿入するとどうしてもF1がG1に変わってしまう。
CELLにRC[3]みたいな表現できないでしょうか？
バカな質問者にご慈悲を

>>587
試してないんだけど、Excelの阿呆に「列方向は絶対参照」とわからせる意図で
思い切って =$A1+$F1 にしてみたらどうだろうか。

>>614

>>587にも書きましたが、$F1でダメでした。

>>613
えっ、いままでテレビ見てたの
ヘルプ見てたら、とっくの昔に出来てたのに残念だね
過ぎた時間は戻ってこないもんなぁ
インデクス（セル範囲，セル範囲の左上から何行目，セル範囲の左上から何列目）
ここでセル範囲は挿入する列位置との関係をよく考えて設定する事
でも簡単なのはインダイレクトの方なんだけどね・・・・・

Ver.2002だけど
=A1+OFFSET(A1,0,5)

>>615

=A1+INDIRECT("F1")

VBAを覚えようと思うのだがオススメの参考書を教えてくれ。
VC++6.0やActionScriptでプログラムは結構作っているのだが
Excelの知識が殆どない場合BVAを使いこなすのは難しいだろうか？

Excel仕事で使ってますがエンター押すと
しゃべります。どうしたらOFFにできます？

>>616
返答ありがとうございます。
列を挿入すると、ずれます。

例：F1:AZ1000をEに列を挿入すると、G1：BA１０００になってしまいます。

>>621
条件は全部かきましょう

=SUM(OFFSET(INDIRECT("f1"),0,0,1000,47))

>>617
ありがとうございます。
私が求めていたのは、これです。

>>618
試したのですが、F1に数値をいれても変化がないようです。

>>623
ちゃんと設定すれば
>>616
>>617
>>618
は同じ結果が出るけど？

やつ(>615)は、丸々の答えが欲しかっただけなんだよ
考える気もヘルプで調べる気もなかったのさ

エクセル2000です。あるエクセルFileを別のフォルダにコピー→張り付けしました。そのコピーしたFileをまた別のフォルダに張り付けました。初めにコピペしたFileを削除したら元Fileも削除されるんですかね？誰か分かる？

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

セルA1から次はC1、E1,と言ったようにひとつ飛びで２５セル分に、数字を記入させたいと思っています。
数字は1〜25で、重複がなく、毎回ランダムに順番が変るようにしたいと思います。
１列目が終わったら次は３列目で同様の処理をし、それが終わったら５列目で処理をし、これまた全部で３０回同じ処理を繰り返したいと思っています。

おそらく、ループやIFでVBAを使うといいのだろうな、と思いましたが、効率のいいやり方がわからなくて困っています。
具体的にはコマンドボタンを押すと実行、という形にしたいと思っています。

どなたか教えていただけませんでしょうか。

>>605
見た目上だけでよかったんです
>>604,606
遅くなりましたが、ありがとうございました

丸投げうぜー

すいません。では質問を変えます。

一番良くわからないのは、ランダムに1〜25の数を並べ替える部分です。
やはり変数を２５個用意して、乱数を生成し、順に照合していくループを組む、ということでしょうか。

>>626
テメェで試しな、それだけですぐ分るはず。
そしてその結果をここで報告しろよ、それが礼儀だ。

>>627
「マクロ記録」して、そのコードがどんな構造になってるか理解できたら
また聞きにおいで。でないと、せっかくのアドバイスが理解できないよ。

>>631
そもそもどうやって自動生成される数をマクロに自動記録したら良いんでしょう？

頻繁にきかれる質問だな、教科書にでも載ってる問題なのかな?

>>631

このスレは、回答者が実生活のストレスを解消するスレです。

>631
オマエには聞いてねえから。いちいちレスるな。うっとうしい

【1 OSの種類 　 　 　 　 .】 Windows2k
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 いいえ
【5 検索キーワード 　 　 】 エクセル ラベル 価格

A列とB列の二項目をヒサゴ等のラベルに印刷したいですデータは数百件です
名前と住所 のような感じです
どのようにしたらよいですか
どこからてをだしてよいかわかりません

先ずラベルの説明書に従ってソフトやデータを取得するとよいです

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　ヘッダー　セル　（ヘッダーとしてセルを）　

セルで作成した一定の範囲をヘッダーとして利用したいのですが……。
OpenOfficeだと利用できたので、EXCELでも利用できればと思い、調べています。
よろしくお願いします。

>>635
大丈夫か？イライラしてると禿げるぞ

レスありがとうございます
エクセルではできないようでした
ほんとうにありがとうございました

>>619
大村あつしさんの本
基礎編、コントロール・ユーザーフォーム編・応用編とある。

荒れているようだけど・・・・・・ちょっと質問。

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

合計値を出したいのだが、−の数字も＋として加算したいです。
例：SUM(A1:Q60)

ABSで対応しようとしたが、チンプカンプン。
お願いします。

SUM(ABS(A1:Q60))
配列数式として入力

>>643
早速のレスありがとうございます。
自分がやった時エラーでたのですが、もう一度チャレンジします。

>>643

自分のエクセルだとエラーになってしまう・・・・・・

>>645
ちゃんと『配列数式』として入力してる？

>>644-645
>>643にあるように、「配列数式」になってないとか。

>>646
>>647

ありがとうございます。
初めての言葉だったので無反応してしまいました。

今から調べます。

できた！！

>>646
>>647

ありがとうございます。

>>642オメ！！

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 フォントの種類の最大数を超えたため

他の人が作成したExcel(3個)を自分のPCで開いた場合、
1つめは開きますが、2つ目と3つ目を開いたときに
「フォントの種類の最大数を超えたため、ファイルの書式設定が一部変更された可能性があります。
現在開いているほかのドキュメントを閉じて再度実行してください。」
と表示されます。

これは何故なのでしょうか？
出ないようにするにはどうしたら良いのでしょうか。

ちなみに、作成した人のPCでは出ないそうです。

>>626
>>631の頭の悪い煽りは無視してもらって構わないが、君にも問題がある。
それはExcelの質問ではない。

他を当たるか、自分で解決するかどちらかにしてくれ。
以上

>>627
手っ取り早いのは、
ダミーのシート用意して
A1:A25に　1から25
B1:B25に　=RAND()
をいれておいて、
calculate⇒A1:B25をB列をキーに並べ替え
A1:A25から目的のシートに転記
の繰り返しかな？

>>627
Sub てけとー()
Dim shdm As Worksheet, shout As Worksheet
Dim lc As Integer, i As Integer
Const mx = 25
Set shout = ThisWorkbook.ActiveSheet
Set shdm = ThisWorkbook.Worksheets.Add
For i = 1 To mx
  shdm.Cells(i, 1).Value = i
  shdm.Cells(i, 2).Formula = "=rand()"
Next i
For lc = 1 To 30
  Calculate
  With shdm
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Cells(1, 2).Resize(mx, 1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
      .SetRange Cells(1, 1).Resize(mx, 2)
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
    End With
  End With
  For i = 1 To mx
    shout.Cells(lc * 2 - 1, i * 2 - 1).Value = shdm.Cells(i, 1).Value
  Next i
Next lc
shdm.Delete
End Sub

>652
質問しますけど、ここはエクセル総合相談所スレではないのですか？別にレスしたくなければスルーでもいいんです(煽りは特にﾑｶﾂｸ)。他をあたりますから。でも、掲示板の代名詞である2ちゃんねるだから質問するんです。紛らわしので次スレタイは変えて下さい。

すれ違い

>>626の質問はExcelの問題じゃ無いでしょ
それ位は、自分で試してみればいいんだし

スレチなんですか？別に訳の分からん計算式なんか知らなくても生きていけますから。俺は暇が有ったら2ちゃんねるを携帯で見てます。最近はなるべくググるようにしてます。エクセルなんて知ってるか否かの違いで、知ってる=頭が良い訳？英数文字並べられてもｷﾁｶﾞｲになりそう。

と、デブが唾を撒き散らしながら力説しております

いくらなんでもつりだろ、本気だったら馬鹿が原因で数年中に死亡するぞ。

少なくとも自分でやってみない奴より脳味噌の程度はまともだな。

書き込み内容だけで、デブが唾を吐きながら力説して釣っていると決め付ける椰子が住人に居るのか〜もっと良スレかと思ってたけど。知らない奴に教えてやって優越感に浸り、自己満するスレってどうでしょう？終わってますね。結論→２ちゃんでエクセルの事は聞くなですか。

図星だからって怒るなよｗ
おまえの質問はパソコンの操作方法であってExcelは関係ない。

>>662
お前、見苦しいからもう消えた方がいい。
あまり親御さんを泣かせるなよ。

涙目で上から目線ｗｗ

>>655
同じことをテキストファイルでやってみろ。
で、同じ現象が起きたら「Notepad総合相談所」でも探して質問してろ。

お前みたいなバカは、どこに行っても鼻つまみ者だろうがな。

>>662

屑。

っ　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　り　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

>>609 = >>626 = >>655 = >>658 = >>662 って感じか？

>664 結果的に荒らしてるみたいなんで、そろそろあぼ〜んします。今１人だし親も知らない。>663ﾀﾞｻﾒﾝかもしれないけど当たってないよ。決め付けたがる椰子が多いｷｶﾞｽ。まあ、頑張ってエクセルの勉強して下さい。会社で適当に使えりゃいいだけの話。

>>626

削除されないですよ。
今度からその手の質問はウィンドウズXP関係で。

みんなあんまり虐めるなよ。
626は、まだはじめたばかりの人なんだから。ルールが解らないだけだよ。
トイレでうんこをするのは当然のルールだろ。
でも1歳の子供が食事中にうんこしたらそんな態度をするのか？

１歳の子供はかわいいよ。

子供だろうと文句つけるチャンスは逃さないんだよ。回答者様は。
上から目線でオナニーするのが生きがいだからな。

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

テキストファイルを読込み、行単位で比較して同じ行があれば
削除(消去)するにはどうすればいいでしょうか？
テキストファイルを引き算するようなイメージです。
txtA - txtB - txtC

具体的にはtxtAの各行よりtxtBに存在する行と同じ行は削除、
更にtxtCに存在する行も削除。
なお、削除後は空行は削除し、上詰めで表示したいです。

先にB,Cを読み込んで比較しながらAを読めばいいと思う

>>674
LINE INPUTで
行単位でB・C取り込み⇒比較しながらA取り込み
SPLITで割りながら書き込み
って感じかな？

EXCEL２００３と２００７って大きな違いあるんでしょうか？
パワポは随分機能アップしてるらしいですが

>>677
扱える列が増えた
条件付き書式をいっぱい設定できるようになった
関数が若干増えた
半透明でグラフィカルなグラフが作れるようになった
インターフェイスが大幅に変わった

などなど。
詳しくはマイクロソフトのサイト見たほうが早いですよ。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
AM2〜AZ2までのセルの数値をそれぞれ-10〜10の範囲で変化させて
それに関連したBQ14の最大になる組み合わせの検証をしたいと思っています。
AM2〜AZ2からBQ14まではIF関数がいくつかあります。そのせいかソルバーでは
できませんでした。
よろしくお願いします。

>>679
うまい設定をすればソルバーでもできるかも・・
だけど基本、総当りかな。

>>680
総当たりで時間かかってもいいんですが
VBAが全く分からないので･･･。

そうゆうことなら-10〜10の範囲での変化量とBQ14の数式くらい晒しなよ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 word Excel 変換
Excelデータをwordとリンクさせると言うのはよく検索結果が出てくるのですが
wordデータで作られた表をExcelに変換する結果が出てこないので教えてください
　word自体に手を加えずExcelから「ファイル」-「開く」でwordファイルを開いて
拾ってきたwordデータの表をそのままExcelの表になるようにしたいです

よろしくおねがいします

ワード、エクセルを０から学ぶのに適したサイトってありますか？

>>682
BQ14は実際やってみないとわかりませんが-10万〜+10万くらいだと思います。
BQ14の数式は=SUM(BC3:BC1798)です。
各行AM〜AZの合計がBAにきてそこでIF関数でBCに結果がでます。
そのBC列の合計がBQ14となります

>>684
まず、ワープロと表計算の概念をして、
次に、ひたすらヘルプを読破することを激しく勧める。

面倒くさいし時間がかかると思うけど、OFFICEのヘルプは読んでしまうとすごく使える。

小技的な質問は、質問系のBBSを利用すればいい。

>>684
助けになるようなところはあるが、
サイト”だけ”で学べるようなところは存在しないと思うぞ。

せめて入門書の１冊でも読んでからサイト探せや。

>>684
エクセル（コンピュータも）、道具ですから、
身近なことから、使いましょう。
使い道がないなら、今のところ必要ないと言うことでしょう。

>>686
× 概念をして
○ 概念を理解して

ユーザーフォームを作成し、対応するセルに入力出来るようにVBAを組んでいたのですが
行き詰まりました・・・。
↓の方法だと空白行が追加されてしまい、常に1行余分にある状態です。
これを修正して、見出しのすぐあとに追加していくような形にすることは可能でしょうか？

根本的に違うというのであれば、解説サイト等に誘導していただければ幸いです。
エクセル2003使用です。

Private Sub Add_Click()

Dim insertRow As Long '挿入する行位置

'シートの保護を解除する
Sheets("顧客").Unprotect

'最下行に1行挿入する
insertRow = Range("データ一覧").Rows.Count
Range("データ一覧").Rows(insertRow).Insert Shift:=xlDown


'データをセルに入力する
Range("データ一覧").Cells(insertRow, 1) = CarBox.Text
Range("データ一覧").Cells(insertRow, 2) = MonthBox.Text
Range("データ一覧").Cells(insertRow, 3) = NumberBox.Text
End Sub

>>686
>>687
>>688
あざーっす！！！頑張ります！

先ほど質問した件なのですが、
Range("データ一覧").Rows(insertRow).Insert Shift:=xlDown を
Range("データ一覧").Rows(2).Insert Shift:=xlDown
とすることで空白行は消せたのですが、連続でデータを入力してみると
同じ行で繰り返し上書きをするようになってしまいました。

上書きではなく、追加していくような形にはどうやって修正すればよろしいですか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 オートコンプリート タブキー 入力確定

Excel2002（officeXP）から2007にアップグレードしたのですが、
これまで出来ていた事が出来なくなったので質問させてください。

『出来ていた事（Excel2002）』
文字を打って、オートコンプリートが表示されている状態でタブキーを押すと
オートコンプリートの内容で入力確定およびセルの右移動。

『出来なくなった（Excel2007）』
上記の条件でタブキーを押すとオートコンプリートの内容が反映されずに入力確定。


これまで慣れていたやり方で使いたいのですが、良い方法はありませんでしょうか？


ちなみにExcel2003では・・・
タブキーを押すと「省入力候補」のメニューが現れます。
（候補が存在しなければ、キー無効）

バージョンによって使い方がコロコロ変わるなんて使いにくいですね〜(´Д`;)

> 良い方法
Excel2002に戻す。

俺は2007入れてから2003に戻したぜ。

キンタマがｷｭﾝとするＶＢＡコードおしえて

>>690
あんまりうまくはないけど
insertRow+1にしとけば？

>>690
それだと追加された空白行は「データ一覧」という範囲から外れるわけだが…

>>690
最後に空白行を削除したらダメなん？

追加した空白行に入力するんじゃないの？

>>699
1行余分にあるんでしょ？

じゃあなんで1行挿入する必要があるの？

>>693
どっちかってえと、確定させてからTabで次のセルに移るという2007のほうが
考え方としてまっとうなような気がする。
コロコロ変わるってのは確かにいただけんが、
バージョンが変われば操作が変わるところがあるのは仕方のない話。

こだわって2002を使い続けるか、別の使いやすさのほうを優先して2007を使うか。
そのどちらかしか選択肢はないんじゃないかな。
IMEでキー設定をいじればなんとかなるような気もするが、あてにはしないでくれ。

>>701
本人じゃないからそれは知らない。
でも>>690には
>>↓の方法だと空白行が追加されてしまい、常に1行余分にある状態です。
と書いてあるから余ってると思った。

>>690
挿入じゃなくて
入力後範囲名を再定義したほうがいいのでは？

>>683
普通にワードで開いて、コピー
エクセルに貼り付けじゃ駄目なの？
VBAなら
ttp://www.geocities.jp/knn_work/Excel_VBA/05100_WordNoTableWoYomu.htm
が参考になりそう

>>679　一応これでできるはず
Sub 力技_誰か正しい方法教えて()
Const mx = 10: Const mn = -10: Dim myrng As Range: Dim tmp As Long: Dim tmpMX As Long: Dim tmpTBL As Variant
Dim lc1 As Integer, lc2 As Integer, lc3 As Integer, lc4 As Integer, lc5 As Integer, lc6 As Integer, lc7 As Integer, lc8 As Integer, lc9 As Integer, lc10 As Integer, lc11 As Integer, lc12 As Integer, lc13 As Integer, lc14 As Integer
Set myrng = ThisWorkbook.Sheets(1).Range("AM2").Resize(1, 14)
On Error Resume Next: Application.ScreenUpdating = False
For lc1 = mn To mx: myrng.Cells(1, 1).Value = lc1: For lc2 = mn To mx: myrng.Cells(1, 2).Value = lc2
For lc3 = mn To mx: myrng.Cells(1, 3).Value = lc3: For lc4 = mn To mx: myrng.Cells(1, 4).Value = lc4
For lc5 = mn To mx: myrng.Cells(1, 5).Value = lc5: For lc6 = mn To mx: myrng.Cells(1, 6).Value = lc6
For lc7 = mn To mx: myrng.Cells(1, 7).Value = lc7: For lc8 = mn To mx: myrng.Cells(1, 8).Value = lc8
For lc9 = mn To mx: myrng.Cells(1, 9).Value = lc9: For lc10 = mn To mx: myrng.Cells(1, 10).Value = lc10
For lc11 = mn To mx: myrng.Cells(1, 11).Value = lc11: For lc12 = mn To mx: myrng.Cells(1, 12).Value = lc12
For lc13 = mn To mx: myrng.Cells(1, 13).Value = lc13: For lc14 = mn To mx: myrng.Cells(1, 14).Value = lc14
Calculate: tmp = ThisWorkbook.Sheets(1).Range("BQ14").Value
If tmp > tmpMX Then
tmpMX = tmp: tmpTBL = myrng
End If
Next lc14: Next lc13: Next lc12: Next lc11: Next lc10: Next lc9: Next lc8: Next lc7
Next lc6: Next lc5: Next lc4: Next lc3: Next lc2: Next lc1
myrng = tmpTBL: Application.ScreenUpdating = True
End Sub

>>695
sub kyn()
thisWorkbook.Names.Add Name:="ω", RefersToR1C1:="=Sheet1!R1C1"
Cells(1, 1).Value = "ｷｭﾝ"
End Sub

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

セル、A4,A9,B2,B5,C3,C7に入っているデータをSUMIFで条件">0"
にして、合計値を出す事はできないんでしょうか？
SUMIFは、並んでいるデータじゃないとダメですかね？

もう脳がどうかなりそうなんです。どなたか助けてください。

例えば、A1セルに1〜10迄の任意の数字を毎日1回だけ入れていきます。
そして、B1セルに、その毎日1回入れていった1〜10の数値の累積を表示
させたいのですが、どうしても良い知恵が思いつきません。
脳内で計算して入れていけばよいのかもしれませんが、事務的に間違いのないように
したいので、何か良い知恵がありましたらアドバイスください。

>>708
出来なかったの？

>>707
ｷｭﾝとしますた
ありがとうございました

>>709
マクロは可ですか？

>>712
マクロは可です。

教えてください。
ExecuteExcel4Macroを使って他のブックを開かずに「複数セル」を取り込めるのでしょうか。
Forを使えばいいのでしょうが面倒なので。
お願いします
Strig01 = "'" & PathName & "[" & FileName & "]" & SheetName2 & "'!" & "R15C5:R15C30" 　'//←R15C5単独セルしか取り込んでくれないみたいなんで
Worksheets(1).Cells(5, 1).Value=ExecuteExcel4Macro(Strig01)

>>709
A1をコピー
B1に移動して、
編集（E）　形式を選択して貼り付け(S)　で、
値(V)　加算(D　(Sだったかも))　を選択してOK
これをマクロの記録するのもありかな^^

>>706
ﾎﾝﾄにありがとうございました。
ｺﾚを元に勉強します。

>>709
以下のマクロを標準モジュールに貼り付けて、
加算したいと思ったときに実行。

Sub 加算()
With ActiveSheet
.Cells(1, 2).Value = .Cells(1, 2).Value + Cells(1, 1).Value
End With
End Sub

A1セルの変更をイベントで拾って勝手に加算実行、という手もあるけど、
操作ミスをするとB1の値が延々と壊れ続けるので、オススメしません。

それよか、「事務的に間違いのないようにしたい」のであれば、A1の値を
上書きするんじゃなく、A列に毎日書き足していく方が安全だと思うけど、
いかがなものでしょうかね。

バグ発見。失礼しました。マクロはこっちで。

Sub 加算()
With ActiveSheet
.Cells(1, 2).Value = .Cells(1, 2).Value + .Cells(1, 1).Value
End With
End Sub

638ですが、何か悪いことしたかな……。
それとも初歩的すぎてここで聞くような質問じゃないのだろうか……。

↑　ひねくれてるね、君

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ピボットテーブル　ダイアログボックス

ピボットテーブルがあるシートを保護した場合、
編集できないというダイアログボックスがブックを開くたびに表示されるが、
これを非表示にできないでしょうか？

↓

「保護されているシートのピボットテーブルは編集できません。」

>>720
スレの流れ見てるとさ、みんな親切に答えてくれてるから、
レス無いのは俺のほうの問題なのかなぁ、と。
実際、ずっと悪戦苦闘しててひねくれ出してるのかも知れん。

>>722
結構丁寧な説明が有るから、ここを参考にしてみろ
http://www2.odn.ne.jp/excel/waza/print.html#SEC14

>>721
保護の解除をマクロ記録
で、だめかな？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　テンプレ　会計簿
エクセル2003で会計帳簿をつけたいんですが、あんまり複雑な項目はいらなくて
日付と名目を自分で入れて、収支の合計を自動で計算してくれる感じで作りたいんですが、
方法を教えてください

>>724
レスサンクス

そうか、ブックが立ち上がってから
ピボットテーブルのあるシートを保護すればいいのか！？
と、今ひらめいた。

やってみる。

>>723
ありがとう！
さっそく試してみます。

>>752
とにかくエクセルのマニュアルを読め、話はそれからだ。

沖縄県の方へ（命に関わる注意事項です）

沖縄県での選挙ですが、どうか民主党だけは避けてください。県民の生命に関わる可能性があります。
民主党の最大の公約は一国二制度（※）ですが、一度「一国二制度　沖縄」等で検索をお願いします。
この際、民主党のＨＰで調べても良いです。以下の注釈↓と矛盾することは書いてないはずですから…

※一国二制度
　簡単に言えば沖縄を中国と日本の共有物にし、そこに3000万人の中国人を入植させます。
　（つまり沖縄人口の 96% を中国人にして、実質、沖縄を中国人の居住地とします。）
　さらに「自主」の名の下、沖縄で有事が起きても自衛隊は干渉できません。
　3000万人の中国人が、少数派となった130万人の日本人に何をしても、です。
　そして中国人の反日感情の強さは、ほとんどの日本人の理解を超えるものです。

今回の選挙で民主党が勝った場合、「自主」「発展」を連呼しつつ段階的に進めていくことになります。
自主と言っても、自主を認めるのが「住人の96%が中国人となった」後だということに気をつけてください。
発展と言っても、新沖縄の少数派となった「少数民族日本人」の発展ではないことに気をつけてください。

あるシートを選択したらシートの保護をして、
そのシートから別のシートへ移ったらシートの保護を解除する
マクロとして、

Private Sub Worksheet_Activate()

Set pvtTable = Worksheets("合計").Range("A6").PivotTable
pvtTable.RefreshTable

Set pvtTable = Worksheets("合計").Range("F6").PivotTable
pvtTable.RefreshTable

ActiveSheet.Protect

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Unprotect

End Sub

を作ってみたのですが、うまくいきません。
動作としてはそのシートを選択すると
実行時エラー1004と出て、
refresh tableメソッドが失敗しました。

と、出ます。
何かいい方法ないでしょうか？

なんでデバッグくらいまともに出来ないんだよ

すいません、解決できました。

みなさんはエクセルやワードをどのようにして覚えていきましたか？

入門書を書店で探してみたら沢山あってどれがいいのか迷いまして、
おすすめの入門書などありましたら教えて下さい。

>>733
> みなさんはエクセルやワードをどのようにして覚えていきましたか？
実際に使って､解らないことはググって覚えた。VBAだけは1冊書籍購入したけど。

> おすすめの入門書などありましたら教えて下さい。
>>2･B

>>733
あなたが自分で手に取ってパラパラと読んでみて、
「これならわかりやすいかな」と思うものがいちばんいい入門書です。

この手の質問、定期的に来るけど答えは出ません。
人によって知識も経験も背景も事情もまるで異なるから。
なのである人にとっての「おすすめ」が、すすめられた人に
「よい本」である保証はまるでないんです。

4月・5月はこういうことで悩むもんだろ。
一向に進歩の無い回答者様は飽き飽きしてるらしいけどなｗｗｗ
老害って自分じゃ気付けないもんだなｗｗｗ

>>733
mous取得を目指す

>>736おまえ､可哀相だな

>>736 おまえ友達いないだろ

みなさんありがとうございました！

>>733
なんでもいいから一冊終わらして、
その後は
・上部のメニューを全部見て気になるものにターゲットしてshift＋F1 （ポップヒント）
・「この作業めんどくさい」と思ったらググるか人に聞く
・テーブルとレコードの概念を理解する

>>715 >>717さん

ホントにありがとうございました。
もうだめなんじゃないかと思いましたが、こんな方法があったなんて。。
私も負けじと日々勉強に励みます。お世話になりました。

失礼しました。　　>>742　=　>>709です。

>>742　感じがよかったのでちょっと凝ったものをプレゼント
『my履歴』っていう名前のシートを作ったあと
VBを開いて（alt ＋ F11）、入力するシートの所に下のコードを張れば、
A1を変更するたびにB1に加算＋my履歴に日付と値が入ります
なお、当日中に再変更した場合、前日のデータから計算しなおします。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mydaterng As Range
  If Target.Row <> 1 Then Exit Sub
  If Target.Column <> 1 Then Exit Sub
  If MsgBox("変更した値をB1に加算しますか?", vbYesNo, "確認") <> vbYes Then Exit Sub
  Set mydaterng = ThisWorkbook.Sheets("my履歴").Cells(65536, 1).End(xlUp)
  If mydaterng.Value = Date Then
    If MsgBox("本日の変更をやり直しますか?", vbYesNo, "確認") <> vbYes Then Exit Sub
    Range("b1").Value = mydaterng.Offset(-1, 1).Value + Target.Value
    mydaterng.Offset(0, 1).Value = Range("B1").Value
  Else
    Range("b1").Value = Range("b1").Value + Target.Value
    mydaterng.Offset(1, 0) = Date
    mydaterng.Offset(1, 1) = Range("B1").Value
  End If
End Sub

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

名簿の中から、名前に「山」のつく人の人数を調べるスマートな方法を教えてください。
できれば作業用のセルを使いたくありません。

例：
1,山田太郎
2,鈴木一郎
3,内山五郎

「山」のつく名前は 2 人います　←これ

OS:Win2000
Excelver:Excel2000

私はサポート担当なのですが
Excelが保存時にアプリケーションエラーで落ちて
しまう現象がでてます。シートが複数あるので各シートごとに
保存してみようとしてシート移動を行った所，255byteを超える文字数の
セルがあるとエラーが出るシートがいくつかあり、そのシートを除けば
保存できます。ただ、自分で試した所単に255byte超えるセルがあった
だけで保存してもアプリエラーにはならないのですが他に落ちる
原因あるでしょうか。VBAはつかってないので私としては関数参照などで
そのセルを参照しているのが落ちる原因と思われるのですが。
ほかに255byte制限でアプリエラーで落ちる原因があれば教えてください。

>>746

＞私はサポート担当なのですが

この一文は不要。

>>746
ン千byteの文字列が大量に存在するExcelシートをかなりハードにゴリゴリ
編集していたことがあるけど、そういうセルを参照している関数があっても
保存エラーが起きたことはないよ。

使ってたのはExcel 2002だけど。

シートの移動の時に255バイトを超えるデータが消えてしまうのは仕様。
お粗末だけど。