Excel総合相談所 63

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/

▼━ 回答のしかた ━━━━━━━━━━━━━━━━━━━━
★1 答えられない質問は無駄に罵倒せずスルー。無理するな。
★2 代用法を強制しない。
★3 回答する上で必須ではない情報をむやみに聞き返さない。
★4 回答は質問者が理解できるよう具体的に。

Excel総合相談所 62
http://pc11.2ch.net/test/read.cgi/bsoft/1195214565/

乙

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

おせーんだよボケ
もっと早くたてろ

>>8
串探してた。

>>1  乙です。
早速だが、スレ違いかも。
入力規則の入ったセル列を横切って移動するとき、セル移動速度が極端に遅くなる。
何かうまく、早くする方法はない？

PCの買い替え

>>10
今試してもならない・・

他にそのセルがアクティブになったときに発動する命令とか入って無いの？

>>12
説明が足りなかったですね。すみません。
入力規則では、３階層程度のindirectをいれてます。
また、その参照先は基本データを別シートで管理するようにしているので、ある程度、遅くなるのは覚悟していたのですが、体感速度は遅すぎの状態です。

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

セルの値がゼロの時、折れ線グラフがゼロに飛んで見にくくなるからゼロを""に変えれば直るが
セルが数式の場合の結果がゼロの場合、if（数式＜＞0,数式,"")やっても直らない
どうすればいいですか？

EXCEL2003および2000でファイル開くのと保存、メニュー動作などが
極端に遅いファイルがあった。
ローカルファイルなのに、起動時や保存時になぜか通信(LAN？NET?)しようとする。

原因つきとめてみたら、操作しているPCで使用してないフォントが
エクセルファイル内で使われていた。
問題があったのは全部、別のPCで作成されたものだった。
（具体的には、一太郎のJSフォント）

操作しているPCからフォント書き換えてみたら、あっさり解消。
2003から2000にダウングレードしたのが無駄になった･･･orz

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

セルには1850000と入力し、表示は下4桁を表示せず185とするには、どうしたらよいですか。

>>16
書式に"185"って入れてみるのはダメ？
ttp://up2.viploader.net/pic2/src/viploaderf120598.jpg

その列のセルは全て下4桁を表示しない設定にしたいのですが。無理でしょうか？

>>18
その列のセルすべてに適用すりゃいいじゃん

>>16
ttp://www.itmedia.co.jp/bizid/articles/0712/18/news145.html

こいつぁすげぇや

書式の中で改行が指定できるとは知らんかった

>>20を見た奴が>>16の質問をしてる
に1票

お願いします。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】オートフィル　行　列　固定

Sheet1では行に（横に）数値が並んでいて(A1=100,B1=200,C1=300…)、
それをSheet2にリンクを貼って列に（縦に）並べたいです。
まずSheet2のAA1を『=Sheet1!A1』としてリンクを貼り、それを下の行にコピーすると、
オートフィルが働いて『=Sheet1!A2』としてしまいます。
これを『=Sheet1!B1』、『=Sheet1!C1』とコピーしていきたいのですがどうすればいいでしょうか。
『=Sheet1!A1』を『=Sheet1!A$1』として下の行にコピーしても、ダメでした。

要はSheet1では　

あいうえお

となっているものが
Sheet2では

あ
い
う
え
お

となるようにリンクを貼りたいということです。

>>24
Sheet1!の範囲A1:E5のデータを
Sheet2のB2:F5へリンク
ただし、B1からF1まで１，２，３，４，５・・・・A2からA6まで１，２，３，４，５・・・と入力されてること
それでSheet2のB2:F5のセルに
=INDEX(Sheet1!$A$1:$E$5,B$1,$A2)と入力

>>14
式が入るとどうやっても空白と同じにはできないから
セルのデータを削除するしかない。
ただし値を#N/Aにすれば「補完してプロット」と同じにはなる。

=INDEX(Sheet1!$A$1:$E$5,B$1,$A2)はB2だけな
あとはコピーで

テンプレ変わってね？

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

＞ただし、B1からF1まで１，２，３，４，５・・・・A2からA6まで１，２，３，４，５・・・と入力されてること

これが実用の時にちょっと難しいので、単純に
『=Sheet1!A1』を下の行にコピーした時に『=Sheet1!B1』となるような
やり方があるとうれしいのですが…
一つ一つ修正すればできるんですが、かなりたくさんあるので。
よい方法がありましたら引き続きお願いします。

>>29
数字は違うシートにでも書けば？
ドラックすればすぐできるんだからさ。
該当シートでなくてもいいんだからさ。

これが一番よい方法だと思うが。
まだご不満なの？

そうそう
=INDEX(Sheet1!$A$1:$E$5,B$1,$A2)の参照先のB$1とか$A2ってそこじゃなくてもいいんだし
>『=Sheet1!A1』を下の行にコピーした時に『=Sheet1!B1』
なんのことかわからん
=INDEX(Sheet1!$A$1:$E$5,B$1,$A2)これコピーすればどこまでも使えるじゃん

>>26
お、ナイスです
ありがとう

＞　>『=Sheet1!A1』を下の行にコピーした時に『=Sheet1!B1』
＞　なんのことかわからん

Sheet2の『=Sheet1!A1』を下の行にコピーした時に、オートフィルで>『=Sheet1!A2』になるわけですが
これを『=Sheet1!B1』・『=Sheet1!C1』・『=Sheet1!D1』と”列番号のアルファベット”が移り変わっていくように
コピーできないか、と言うことです。

>>33
いやだからそれは縦横の問題クリアしたら必要なくね？って事
=INDEX(Sheet1!$A$1:$E$5,B$1,$A2)のコピーで=INDEX(Sheet1!$A$1:$E$5,B$2,$A2)とか=INDEX(Sheet1!$A$1:$E$5,B$1,$A3)とかになるだろ？
それと別の質問にしてしまうのか？

別の質問として、お願いします。単純にコピーがしたいんです。
Index関数に関しては、知識がないためせっかく教えていただいても現時点で理解できません。（今後、勉強します）

>>35
そうか・・・indexも単純コピーで済むのにな
ちょっと考えるがｉｎｄｅｘより簡単なのなさそうなんで期待しないでくれ

前スレにも縦と横のセル名を逆にしたいって質問があったような。
俺は鳥頭なんで覚えてないけど。

>>35
つーかさ
Sheet１コピー
Sheet2に「形式を選択して貼り付け」　「行列を入れ替える」にチェック　「OK」
じゃダメか？

　　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　∧＿∧　　 　∫　 |　ねぇねぇ、VBAを書くとき、Dimで変数を宣言するのって
　　 （　・∀・）　 　∬　＜　結構メンドいんだけど、なにかメリットでもあるのか？
＿_と　 　 　 つ━'~　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　（　_⌒)　￣|
￣￣￣し'J￣￣｜
￣￣￣￣￣￣￣

>>38
リンク元がSUM関数になってるので、エラー（REF)が出ちゃうんです。

>>36
ありがとうございました。
いい機会なので、Index関数を勉強します。その後でレスしていただいたものを見て
理解できると良いんですが。

＞数字は違うシートに書く、該当シート以外に書く　
というところがサッパリなのです。

参照じゃなくてコピーでいいんなら行列の入れ替えのついでに「値」のラジオボタン押しとけ

>>39
バリアント型は処理が遅くてメモリも余分に消費する。
最近のパソコンならほとんど気にならないレベルだが、
プログラムの規模が大きくなると影響が出ることもある。

Dimで宣言しておくと変数名の大文字と小文字が自動的に揃うから、タイプミスがその場で発見できる

>>42
参照でなくてはいけないんです。リンク元のデータが変わるので。

>>41
ヒント
Sheet２のA1には
=INDEX(Sheet1!$A$1:$E$5,Sheet3!A$1,Sheet3!$A1)以下コピー
Sheet3には
１，２，３，４，５
２
３
４
５

>>45
だったら>>40は何だよ
いいかげんにしろ

全部バリアントだわｗ

Option Explicit使わないとあまり意味ない
あとCOMオブジェクトなら自動メンバ表示してくれるのがメリットかな

>>47
リンク元であるSheet1のA5は、=SUM(A1:A4)であり、A1〜A4の数値がかわると、A5も変わるので、
値だけコピーしても意味が無いということです。おかしいでしょうか。

>>50
>>40は「エラーが出るからダメ」としか読めない
でも実際ダメな理由はエラーが出るからではないと
おかしいでしょ

VBAを使えば

>>51
40は、形式を選択して貼り付け→すべて→行列を入れ替える　でエラーが出る
42は、形式を選択して貼り付け→値→行列を入れ替える　で数値はコピーされますが
リンク元の数値がSUM関数によって変わるので、参照でないと困る
ということです。

>>46
できました！ありがとうございます。
これを２つのシートだけでできると嬉しいんですが、ここから先は自分でやってみます。

>>43-44
　　　　　　　　　　　　　　
　　　∧＿∧ 　 　 ∫ 　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　 （　・∀・）　 　∬　＜　んじゃ、Dim i As Longと書かずに、Dim i だけでもおｋか？
＿_と　 　 　 つ━'~　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　（　_⌒)　￣|
￣￣￣し'J￣￣｜
￣￣￣￣￣￣￣

>>55
個人用ブックで、少量のマクロなら全て宣言無し（＝バリアント扱い）でOK

>>56
　　　　　　　　　　　　　　
　　　∧＿∧ 　 　 ∫ 　 ／￣￣
　　 （　・∀・）　 　∬　＜　�d！
＿_と　 　 　 つ━'~　　　＼＿＿
　　　（　_⌒)　￣|
￣￣￣し'J￣￣｜
￣￣￣￣￣￣￣

エクセルのシートに地図を貼り付けて
その画像の上にオートシェイプで線を引いたり、プロットしたいのですが
ふとした時に画像が動いてしまいます(いつの間にか選択してたりとか)。

お聞きしたいのはシートに画像を埋め込む(？)ことは可能でしょうか？
シートロックしてしまうと画像は固定できてもその上から描画できないし・・・

その都度グループ化するしか方法はないのでしょうか？

1 ： 名無しさん [sage]： 2007/12/23(日) 05:23

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

質問があります。宜しくお願い致します。
シート1に縦にズラズラっと入力していきます。それをシート2に、こう集計したいのです。
A列には同一項目があり、B列はユニークです。
※入力例は私の趣味(A列がバンド名、B列が曲名)で、本当は仕事での表になります。

sheet1　　　　　　　　　　　　　　　　　　　　　　　sheet2
A　　　　　　　　B　　　　　　　　　　　　　　　　　A　　　　　　　　B　C
Helloween　　Power　　　　　　　　　　　　　　　ACDC　　　　　1　Thunderstruck
Fight　　　　　Nailed to the Gun　　　　　　　　　　　　　　　　　2
Helloween　　Sole Survivor　　　　　　　　　　　　　　　　　　　 3
Megadeth　　Kill the King　　　　　　　　　　　Fight　　　　　　 1　Nailed to the Gun
Helloween　　Where The Rain Grows　　　　　　　　　　　　 　 2
Megadet　　　Symphony of Destruction　　　　　　　　　　　　3
ACDC　　　　Thunderstruck　　　　　　　　　　Helloween　　　1　Power
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2　Sole Survivor
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　3　Where The Rain Grows
　　　　　　　　　　　　　　　　　　　　　　　　　　　Megadeth　　　1　Kill the King
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2　Symphony of Destruction
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　3
曲名は定期的に増減(sheet1の行追加、削除）
sheet2のレイアウトを変えたくない(印刷用)
バンド名は値で、曲名は自動にしたい。
曲名順はどうでもいいです。作業列もいくらあってもかまいません。
宜しくお願い致します。

59です。
テンプレのコピペミス申し訳ありませんが、できればワークシート関数でお願いします。
不特定多数が使用しますもので・・・。
宜しくお願い致します。

>>59
例えばACDCは２曲目３曲目が空白になっています。
この空行は必要？

はい。必要です。
曲数が変化しても表のレイアウトが変化しないようにしたいのです。
表に空欄を作って印刷、追加があればそこに記入しそれを見てPC入力。
翌日分の表を印刷する、という使い方です。

>>58
書式→シート→背景で。

>>62
特に関数などは使わずともA列の並べ替えで実現できませんか。
新しいバンドの曲を登録する時は１曲だけであっても空行含めて３行追加するという運用をしてはいかがでしょう。

バンドは例えで本当は商品名なのですが
数が多く日々変化します。
例えでいうとバンド名を探して入力するのが思ったより手間なので、
別シートに縦打ちが早いのでは、と思いました。

ピボットテーブル知らないとこういうの苦労するよね

>>65
バンド名　曲名
Helloween　Power
Fight　　　Nailed to the Gun
Helloween　Sole Survivor
Megadeth　　Kill the King
Helloween　Where The Rain Grows
Megadet　　Symphony of Destruction
ACDC　　　　Thunderstruck

のように順番に並べていってピボットテーブルレポートを作れば
目的に近い表ができます。
行の方へにバンド名と曲名をドラッグして下さい。
データアイテムはバンド名でも曲名でもどちらでもいいです。
できあがった表には「ACDC計」のようなバンド名ごとの小計があるので
右クリックで「表示しない」を選んで完成です。

加工するので、できればピボットテーブル以外でお願いしたいのですが。
PCド素人に使ってもらう物なので。

＞入力例は私の趣味(A列がバンド名、B列が曲名)で、本当は仕事での表

ちぇっ、仕事用かよ・・・




＞バンドは例えで本当は商品名

だったら最初から書けよ！イライラする・・・

イライラついでに、おそらく、商品名も違うだろなw
状況は適当な訳よ、常に。
特に、株の香具師は状況転換してくるｗ
最初から、そう書くと折れも答える気がしないからだろうな

ttp://ichiba.geocities.jp/ubfay53/l375.zip

↑をExcelにコピーしたいのですが、普通にコピーして張り付けると一つのセルに６コの数字が入ってしまいます。
これを一つのセルに１コずつ数字を入れるにはどうすれば良いのでしょうか？
よろしくお願いします。

ピボットテーブルは大ヒットだよな
これで業者別の購入代とか工事別の集計とか作業時間集計とか
月末仕掛作業にもってこいだ

>>71
怖いので見てないが多分コピー貼り付けじゃなく
テキストファイルかなんかにしてからエクセルで開いて
インポートウィザードで区切り文字をスペースとか指定すればいい

>>68
関数だけで実現するのは不可能じゃないかな。
VBAでできるでしょうけどピボットテーブルレポートを自作するのと同じで
意味がないですし。

>>72
私もピボットテーブル大好きです。
これがあるおかげでVBA使う機会がなくてさびしいくらい。
excelでオセロゲームでも作るんでしたらVBAも必要でしょうけどね。

ピボットテーブルで頑張ってみようと思います。
質問の仕方が悪かったようで申し訳ありません。
商品名は本当です。
スレ汚し失礼致しました。

>>73

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

>>76
質問の仕方が悪いとは思いませんよ。
ただ残念ながら関数では実現困難なテーマでしたね。
ピボットテーブルレポートはとても便利な機能です。ぜひ活用してください。
難しい関数よりもよっぽど初心者，ド素人向きだと私は思います。

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

　エクセルで現金出納帳をつくっているんですが、ボタンを押せば新しい伝票
（ワークシート）を作成して、残高を繰り越すのは可能でしょうか？新しい伝
票を作成するのはマクロの記録でできたんですが、残高繰越がうまくできませ
ん。よろしくお願いします。

>>79
可能です。

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

いくつかブックを開いている状態で、アクティブブック以外を全て
閉じるマクロはどう書けばよいでしょうか。よろしくお願いします。

>>79
残高は一番最終行だからその値を取得すればいいでそ

>>81
アクティブブックの名前を取得し、ループでワークブックを切り替えて
最初に取得した名前じゃなかったら閉じる。

>>80
>>82
ありがとうございます。
最終行の値を取得させるようにするにはマクロをどう組んだらいいですか？

>>84
例えば

lastrow = Range("a1").End(xlDown).Row

とか

>>85
そのマクロはシートa1の最終行を取得するということですか？

　例えば一つ前のシートのセルＡ２の値を次のシートのセルＡ２に取得
させるにはどうすればいいんでしょうか？

>>86
違う

ひとつ確認。処理実行のタイミングなのだが、表がいっぱいになったら実行するのか、
表の途中で実行（月が変わったら等）するのかで繰越金額の参照位置が変わる。
前者なら特に考えずにintTransfer=cells(40,5)とかでいいし、
後者なら>>85さんの例でできる（Ａ列に入っている最終行データを参照）

WIN2K+エクセル2000ですが、消しても非表示にしても削除しても
いきなりPDF Pro2
Sky PDF Pro
いきなりPDF FlashPaper
の3つのツールボタンが立ち上げる度に復活します

しかも移動しても移動しても、立ち上げる度にバラバラの位置に復活するため、ツールボタンのエリアが3段とか4段とか
になっていてウザイことこの上ありません・・・・・
xlbファイルの再構築とかはやってみたんですが、どうもダメの様です

↓こんな感じ
http://upo2.mine.nu/cgi-bin/up/src/upotu0103.jpg

>>88
んな糞ソフトアンインスコしろよ

>>89
(´･ω･`)ｼｮﾎﾞｰﾝ
アクロバットスタンダードも使っているのですが、複雑な書類をPDF出力するとちゃんと変換されないことが多々あるのですよ
それで他のソフトで変換すると上手くいったりいかなかったりするので、複数のPDFドライバーが必須でして・・・・・

後、フラッシュペーパーはアドビがマクロメディアを乗っ取って潰したので実質他に選択肢が無い状況でして・・・アドベ氏ね

あ、因みに
前記3種のPDF変換ソフトとAASTの他にPDFメーカーというのも入れていますが
こちらは、ちゃんと非表示にすれば引っ込んでくれます

これはやっぱソース値糞やSkyCOMが糞って事？

>>91
単純にどれかが糞という可能性もあるが、
競合させていること自体が原因という気もしなくもない。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい少し
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 読み込み可能　ファイルサイズ　エクセル

１つは４０Ｍ、１つは８０Ｍの、２つのブックを同時に開くとプログラムが反応なしの状態になる。いずれも図形データがはいっており、１つだけなら、正常に動く。

機種能力によるのでしょうが、メモリー増設して、２００Ｍでも動かしたい。
プログラム上、無理かな？

>>88
恐らくレジストリだろうから、RegMonあたりで
その挙動が発生するときのプロセスを監視してみりゃ良いんじゃね。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　リスト　ドロップダウン　（階層・複数・二重構造）

A1セルに県名等のリストから選択して「乙市」のみを表示したいとします。
（県名は要りません。A1に県名、A2に都市名と表示したいのではありません）
A1を選択→ドロップダウンボタン→県名→さらにドロップダウン→都市名→選択した都市名をA1に入力

としたいのですが、検索をかけても二重構造らしきものは見つけたのですが
それのとおりにやっても上手くいきません。
他に効率のいい方法があればそちらでも構いませんので
どなたかご教授お願いいたしますm(_ _)m

>>88
アクロバットのアップデートしてる？？

>>95
A１セルで県名をドロップダウンリストにし、同じA１セルに都市名を表示すると読んだが、そうゆうことなのか？　普通はセルを変えているだろ。

２層ならワークシート関数ｉｎｄｉｒｅｃｔ、３層以上ならワークシート関数indirectと同&の組み合わせでしていたのを見たような気がするが。

A1セルから県名を選択したら、同じA1セルに都市名リストが表示されるようにしたいんじゃね？
同一セル内での2段階操作。

別窓にした方が操作性もよさそうなのにね

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

こいつぁ
最高のエスパーが必要

すいません､書き込んでしまいました
【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 行削除　VBA など
A列に名前、B列に金額、というリストがあります
名前ごとの合計のみ出して他の場所にコピーして使いたいのですが、
どのようにすればよろしいでしようか？

集計した後、ActiveSheet.Outline.ShowLevels RowLevels:=2で合計前の数字を隠して
表示しないの行を削除、としてみたのですがうまくいきませんでした
また、"計"の文字が入った行のみ削除・・というのは"計"という文字が入った名前の人がいた場合消してしまいます･･
（ほとんどいないとは思うのですが）

名前ごとの合計をコピーして別の場所にさえ転記できれば、どんな方法でも大丈夫です
よろしくお願いします

>>102
その先でどう使うのかわからんが
それこそピボットテーブル一発で済むと思うが

DSUMとか

>>103
ありがとうございます！
ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙは使ったことなかったんです
>>104
DSUMの方が簡単そうですね
人の入れ替わりがなければ・・

今宵も、ボットテーブル友の会ですか・・・

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

・質問１
グラフで新たな系列seriescollection.Newseriesを作るとき、
離れたいくつかのセル範囲を一まとめにして
それをseriescollection.xvalues　seriescollection.values
それぞれに代入したいんだけどVBAで自動でできないかな？
手動だとCtrキー押しながら該当セルを選択すれば一まとめにできるけど

・質問２
グラフで新たな系列seriescollection.Newseriesを作るとき、
Index_ｎ　Seriescollection(ｎ） のｎ値を自分で設定できないのか？
つまり新たに作る系列の識別番号（識別名でも可）を自分で設定したいわけ
Defaultだと勝手に割り振られるので不便
VBA中でその系列を操作したいので

>>107
複数の離れたセルをいっぺんに指定するには、セル名をコンマで区切って書けばいい。
Range("A1,C3,F5")

>>108
前やった方法で

set RR=Range("A1,C3,F5")
with activechart.seriescollection.Newseries
.XValues=RR
.Values=RR
end with

ではエラーになりました。
VBAではむりなのか？
手動でやるとXValues値は
=(hoge!A1,hoge!C3,hoge!F5)
となっていた

>>109
型の問題じゃないの？たとえば
.Values=RR
じゃなくて
.Values=RR.Value
とか。
よく確認せずに適当に書いてるけど。

http://6111.teacup.com/akkii/img/bbs/0000020M.jpg

エクセルについてですが、上の画像の「あいうえおかきくけこ」
と書かれている欄がありますが、この文字群をひとつの升目の中に
書きたいんです。
あいうえお」と書かれている欄の下のように升目を大きくして、一目で分かるように
したいんです。どうすればいいですか？

>>111
ウイルス貼るなボケ

>>111
EとFの間の線のトコでダブルクリック

【1 OSの種類 　 　 　 　 .】 WindowsVista
【2 Excelのバージョン 　 】 Excel2007

セルの中に”1-24”と入力すると”2007/1/24”に
表示変更されてしまいます。
セル書式の設定の表示形式タブで
標準に設定しても勝手に”2007/1/24”
に変更されて困ってます。

”1-24”をそのまま表示するにはどうしたらよいのでしょうか？

>>114
それはExcelのいらんお世話だな
勝手に日付け形式として変換しちゃうんだ

セルの表示形式を文字列にしておけば回避できる
　書式 → セル で設定可能
または
　'1-24
と先頭に ' （カンマ）を付けて入力
　※カンマを先頭に付けるとExcelは強制的に文字列入力と認識する

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

初歩的な質問なんですが、マクロの記録で作ったものをコマンドボタン
を押せばマクロが実行されるようにするにはどうすればいいでしょうか？

コマンドボタンを右クリックすると自然にわかる

この前、質問した現金出納帳を作ってるものです。
今、シート1をコピーするマクロはできたんですが、コピーしたシートの
日付、摘要、入金、出金をクリアしてシート１の次頁繰越をコピーした
シートの繰越残高に持っていくことができません。
作っているファイルはこんな感じです。
http://www.dotup.org/uploda/www.dotup.org0737.xls.html

うまいマクロの組み方を教えてもらえないでしょうか

>>118
まずAD12はこうした方がいい
=IF(D12<>"",$AD$7+SUM(R$12:R12)-SUM(X$12:X12),"")　以下コピー
AD54は
=$AD$7+SUM(R$12:R54)-SUM(X$12:X54)

マクロはセキュリティで見てないが
書式固定で次ページ繰越はAD54 で決まってるんだろ？
それを次ページ作ったらAD7に貼り付ければ済むじゃない

>>115
カンマは「,」。「'」はシングルクォーテーション。

これだと中級レベルになるの？
関数20種類以上使用可
グラフ色変更
その他の機能
マクロVBA
ピボットテーブル
集計

>>111
書式→セル→配置→折り返して全体を表示する

>>121
内容しだいで初級にも中級にもなる。
だいたい「その他の機能」ってなんだw

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

早速試しましたところ、うまくいきました。

色々試してみてもダメだったのであきらめてたんですけど、すごく助かりました。

>>118
マクロの編集画面で
シートコピーの直前に
　 kurikosi = Range("AD54")　を挿入
シートコピーして削除やらなにやら終わった時点に（多分アクティブシートいじったりしてなければ一番最後でいいと思う）
　　 Range("AD7") = kurikosi　を挿入

これでシート名とか余計なこと考えずにコピー出来る

（1列目）『月日』が記載されている。
（2列目）『休日』と『平日』が記載されている。

（3列目）『販売個数』が記載されている。
（4列目）ここに2営業日前の販売個数の値を取得する関数を記載したい。

COUNTで平日を2つ数えたときの行を取得等、考えましたがわかりませんでした。
どのように記載すればよいのでしょうか？

ちょっとした勤務メモを作ろうと思っています。
2008/1/1 9:30というのをオートフィルで日付だけ変えて、
2008/1/2 9:30。2008/1/3 9:30…と続けていくなんてことが出来ないので
困っているのですが、何か他にいい方法があるのでしょうか？

WinXP、Excel2003です。

>>126
For n = 10 to 1 Step -1
if cells(n,2).value ="平日" then
heijitucount = heijitucount +1
if heijitucount =2 then
activecell.value=cells(n,3).value
endif
endif
next n

>>127
何でだろう？俺の環境だと普通にできる。
yyyy/m/d h:mmで。

>>127
=A1+1 にしとけ

>>128
お、レスありがとうございます。
試してみてわかりました。僕はそのセルの表示設定で時刻のみ9:30とだけ表示されるように
していたのですが、その状態でオートフィルしていたのでダメだったみたいです。
セルのデータ自体は同じなので表示形式が原因だなんて思いもしませんでした。
ややすっきりしない部分はありますが、それは僕の表の作り方がまずいということですね。
オートフィルするときだけ表示形式を変えることにします。

すぐに解決できてよかったです。ありがとうございました。

>>129
そんなやり方もあるんですね。それもいいかもしれません。
何か他の表で使えそうな気がします。
教えてくれてありがとうございます。

>>125
ありがとうございます。マクロの記録で作ったのはうまくいきました。
これです。
Sub 新規伝票作成()
'
' 新規伝票作成 Macro
' 新しい伝票を作成し、内容をクリア。その後、残高繰越。
'
kurikosi = Range("AD54")
Sheets("現金出納帳").Copy After:=Sheets(Worksheets.Count)
Range("AD7:AI8,B12:AC53").Select
Range("B12").Activate
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-1
Range("H5:I6").Select
Range("AD7") = kurikosi
End Sub
ただ、これをコマンドボタンに貼り付けるとなぜかエラーが出るんですが。
Private Sub CommandButton1_Click()
kurikosi = Range("AD54")
Sheets("現金出納帳").Copy After:=Sheets(Worksheets.Count)
Range("AD7:AI8,B12:AC53").Select
Range("B12").Activate
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-1
Range("H5:I6").Select
Range("AD7") = kurikosi
End Sub

>>128
VBAではなく関数で実行したいのです。
理由は値を変更したらすぐ反映されるようにするためです。

>>133
>1位読めよ

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

>理由は値を変更したらすぐ反映されるようにするためです。
それはVBAを使わない理由にはならない

Excel VBAに自体に関する質問です。

Office2007が出ましたが、少し調べたところでは、それによりExcel VBAも変わるみたいですね。
（VBAはなくなる？？）

わたしはVBA全くの初心者なのですが、今からVBAを勉強することに価値はあるでしょうか？
みなさんのように既にVBAができる人はいいですが、わたしのような全くの素人が
今から書籍を買って、時間と労力かけて勉強するに値する技術でしょうか？

今すぐVBAを使って何かやりたいことがあるわけではなく、転職の際に有利に働くかなと思い、
勉強することを考えていました。

宜しくお願いします。

>>132
シートコピー後のRangeの前に全部
Worksheets(Worksheets.Count).　　を入れましょう

>>122
39

>>112 113
sine kasuga!!fuck!

>>126

＞ （1列目）『月日』が記載されている。
＞ （2列目）『休日』と『平日』が記載されている。
＞
＞ （3列目）『販売個数』が記載されている。
＞ （4列目）ここに2営業日前の販売個数の値を取得する関数を記載したい。
4列目に関数で記載するって、繰り返しカウントできないからむずいな。
OFFSETかな〜わからん

ユーザー定義関数しかないが
休日を無視するくせに平日混在リストを使うのが気に入らない
平日リスト使うかアクセス使えと

ifとweekdayでなんとかしる

むしろworkdayに休日指定で使え
休日指定を使う煩わしさからすればいかに混在リストがアホくさいか解かるだろう

>>142
>1位読めよ

▼━ 回答のしかた ━━━━━━━━━━━━━━━━━━━━
★1 答えられない質問は無駄に罵倒せずスルー。無理するな。
★2 代用法を強制しない。
~~~~~~~~~~~~~~~~~~~~~~~~

workdayに休日指定で使え

Excell2002です。

計算結果がゼロの場合、
ゼロを表示しないようにするにはどうすればいいでしょうか？

if(A1=0,"",式〜)とすると、ゼロは一見表示しませんが、
そのセルをさらに計算に使う場合#VALUEとなるので困っています。
よろしくおねがいします。

>>145
2003だと
ツール　オプション　表示　　ゼロ値のチェックを外す
で出来るが2002は不明

横からですけど、126の場合どういう風にするのが一般的なんですか？
混在じゃないリストってことは営業日のみしかリストに記入しないってことですか？

>>147
ﾖｺでもﾀﾃでもｲｲからアンカー貼れよたこ、腹の立つ

>146 ありがとう。2002でもできました。

このやり方だとシート上のゼロがすべて非表示になってしまうので
・明細欄のゼロは非表示
・合計欄のゼロは表示
みたいにようするにセル別に設定、みたいなのは無理でしょうか。

>>149
書式を　0.0;-0.0;"";@　など

>>126
D1=IF(OR(B1="休日",COUNTIF(B$1:B1,"平日")<3),"",INDEX(C:C,LARGE(INDEX((B$1:B1="平日")*ROW(B$1:B1),),3)))
と入力して下にコピー

重くなる可能性はあるけどおそらく↑でできるでしょ？
軽くするような代替案は↑や>142の式を参考にして自分で考えれ。

それから>134も>142ももっともな事を書いてると思うんだ。
もう少し冷静になった方がいいよ

すばらしい！

OS；WIN XP
エクセル2000
です。

あるエクセルファイル内に貼り付けられたグラフが、他のエクセルファイルの値を参照しています。
これを、グラフのあるファイル内にある、別のタブ（タブの中身は、グラフが参照している外部ファイルと同じもの）を参照するように書き換えたいのですが、
グラフの量があまりにも膨大で、とても手作業では無理です。
一括で置換する方法ってないんでしょうか？

VBAは自分では書けませんが、使用する事は出来ます。
出来ればVBAなしを希望ですが、VBAでも仕方なければ、妥協します。

よろしくお願いします。

>>151
INDEX((B$1:B1="平日")*ROW(B$1:B1),)
こんな使い方出来るとは夢にも思わなかった
検索ループして配列作る手間が不要になる

>>153
今の手順は
・Bookを２つ並べてBook2のグラフを元データのBook1のSheetに移動
・そのSheetごとコピー、Book2の新しいSheetに貼り付け
・グラフを元々の場所Book2のSheetに移動
ってやってる？
それともグラフの元データが1箇所じゃなく複数のBookやSheetから参照してる？

>>155
的外れでしたらすいません。
グラフの元データは一箇所ではなく、複数ファイルです。
現状、以下のような感じです。
�@多数の、数値データのエクセルファイルがある
�A別のエクセルファイルで、�@の数値を参照してグラフ作成。その際、1個のデータファイルについて、1個のグラフ用ファイルが作られた
�B　�Aの手順で出来た大量のグラフを、新しく作った別のエクセルファイルに、全部貼り付けてまとめた

です。
なので、最終的なグラフの元データの参照元が、「（パス名）外部ファイル名：タブ名：セルアドレス」
となっています。
この、「（パス名）外部ファイル名：タブ名：セルアドレス」
の部分の、（パス）外部ファイル名
さえ消せれば、目的達成なのですが。

どなたかアドバイス宜しくお願いします！！！

>>157=136
どこで聞き込んできたのか知らないけど、2007でVBAが
なくなるなんてことはない。

バージョンアップにともないVBAがちょこちょこ変わるのは
これまでにもあったこと。

転職に有利かどうかなど職種も職場もわからんからなんとも言えん。
勉強しておいて損ということも思うが、マスターしたからといって
それをどう生かすかはあなたしだい。以上。

>>136
>今すぐVBAを使って何かやりたいことがあるわけではなく、
>転職の際に有利に働くかなと思い
なら、転職にもたいして有利にはならないでしょうから、無理に覚えても
しかたないと思いますよ。
それよりは、Office自体、Excel自体の一般操作に長けている方がまだまし
だと思いますので、そちらの勉強をされた方が良いでしょう。^^

>>158
ありがとうございます。
他のスレで「なくなるらしいよ」という書き込みを見かけ、さらに、「Office2007 VBA」で検索したら、
ネガティブなものが多かったので、「ああ、本当になくなってしまうのかな」と思ってしまいました。

例えば、ここでも「将来的には現在のVBAの位置はVSTAに取って代わられる」とあったり
http://salv.miscnotes.com/2006/03/vba.php

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

＞office自体、Excel自体の一般操作に長けている方がまだましだと思います

Officeは一通りマスターしており、Excelの一般操作も十分すぎるレベルだと思っています。
なので次のステップにと思って、VBAを考えていました。


今から勉強するならこの本を買って勉強しようと持っていました。
http://www.amazon.co.jp/gp/product/4844318888

>>136
その本、折れも持って利用しているw
いいと思うよ。

ＷＩＮ　ＸＰ
２００３

質問させてください
直前4つで四角形を作り
その中に色を塗るには
どうしたらいいでしょうか？
四角形を作成して色を塗るのではなく
直線を4つつなげて、その内側部分を色で塗るような感じです

直前というのは直線の誤りか？
いずれにせよExcel以外の方法を考えたほうが良いと思う。

>>162
無理

直線のプロパティを調べて、ぴったり重なるようなオートシェイプを作成するとか。
VBAを使わないと面倒だけど、不可能ではない。
4辺の色や太さをバラバラにしたいなら、重ねる順番を変える。

>>63
亀レスすみません。
アドバイスありがとうございます。
大変助かりました。

>>150
ありがとう完璧です！

>>161
ありとうございます。
買って勉強することに決めました。

ありがとう、いい薬です！

EXCEL2007では問題なく、ひまわり証券などの4本足為替レートがWEBクエリで
取得できるのですは、ＥＸＣＥＬ2002ではＷＥＢクエリがまったく機能せず、エラー
になってしまいました。
EXCEL2002と2007では取得方法や設定方法が異なるのでしょうか？

>>170
詳しくは覚えていないが、Webクエリは比較的新しく導入された機能で
2002、2003、2007と全部使い方が微妙に異なっていたと思う。
（もちろん後のほうが便利）

Excel2002です。

リスト中の半角カタカナをすべて全角カタカナに直したいのですが、
いっきに訂正できる方法はないでしょうか。

>>172
JIS関数で変換できるけど、変換結果が別のセルに入ることになる。それをもう一度元の場所にコピー。
それでは具合が悪い場合はVBA。

追加で質問です。
リスト中に「２０型液晶TV」など、
文字に混じって数字がある場合、
これらの数字を半角に統一、または全角に統一する方法はありますか？

>>174
アルファベットを全角のままにしたい場合はVBA。全部半角になってもいいならASC関数。

>>173 >>175
174を書いている間に
って書いているうちにさらに回答いただいていました。
ありがとうございます。
さっそくやってみました。…これはイイ(*´Д｀)*

>171
サンクス。新しくかったPCにある2007ではうまく動いたのですが、
普段使いのPCにインスコしてある2002ではエラーになったもので・・・
もうちょい調べてみます。

Excel2000です。

テクスチャ塗りの図形、画面で見ると基目が細かくていい感じなのですが
印刷するとブロックノイズみたいなぼやけた模様になってしまいます。
何か解決策はありませんでしょうか？

全角とか半角変換はWORDにもってって行う方法もある

>175
全角統一はJISで出来るんじゃないの

Excel2000、2002、2003をゲトしたいんですが、新品で売ってるところってありますか？
大型量販店は全て2007になってました・・・　orz

それから、ヤフオクとかで、プリインストール版が出品されてますが、
あれってライセンス違反にならないのでしょうか？

>>181
プレインストール品は「PCごと未使用」でユーザー登録もしていない
場合に限り、「PCごと出品」されていれば合法。

後は考えるまでもなく違反w

>>181
2003ならビックカメラで売ってたぞ

テキストにコピーしたゲームのスコアを
エクセルに変換すると、例えば
「3-2」が3/2という風に、勝手に日付で表記されてしまいます。
文字列に直そうとすれば、3544647などと出てしまいました。
（以前はこれでうまくいけたのですが）
解決法を教えてください。2003使用です。

>>184
>>114-115

２００３　ＸＰ
VBAでの回答求む
ａａａ．ｘｌｓを開いているとき、自らの名前を取得したい。
どう書いたらいいですか？

お前の名前なんか知るかよ

>>187
おまい、どこぞのスレの花つまみものだろw

この間に調べていたらわかったw
activeworkbook派とthisworkbook派と２通りあるのね。

>>186
>自らの名前を取得したい。
なら、
>activeworkbook派とthisworkbook派と２通りあるのね。
thisworkbookの方が確実だね。^^

>>182
だよねｗ

>>183
マジっすか!?

>>186
　　∧ ∧
　 （・∀・）
〜（つ 　つ GetOpenFilename

>>190
有楽町のビックカメラでね。単体で売っていたかどうかまでは覚えていないけど。

>>185
ありがとう

>>191
何勘違いしてるの？

これだけは知っとけ！って知識を集めたページはありますか？

ない

ありがとうございますん

教えてください。
勤怠管理表を作成していますが、8時間を超えたら残業と表示されるように
したいです。IF関数で　=IF(A3>8,"残業","")と書いてみましたが、
A3の表示形式が8：40という形式なので9時間を過ぎた分しか表示されません。
エクセラーの方、この関数の修正と考え方を教えていただけませんでしょうか？
お願いします。

シリアル値の8:00は数値に直すと0.333だよ
9:00でも0.375なので>8の条件には一致せず､"残業"の表示はされないはず

A3>8というのは時間で言えばA3が｢192時間を超えたら｣という条件だ
｢8時間を超えたら｣という条件は
A3>TIMEVALUE("8:00")
A3>TIME(8,0,0)
A3>8/24
などと書く

シリアル値は1時間が1ではなく1日24時間が1なので覚えておくように

ExcelまたはWord？でうまく検索出来る時と出来ない時があります。
アクティブに画面はなっているし、検索場所をカーソルで範囲指定してる訳でもないし、半角全角区別してないにも関わらず。
実験で明らかに画面に見えている文字を検索しても、ないですみたいな表示で終わる時あります。
一回画面閉じて、また開くとうまく検索出来る時があります。


一体どうすればいんでしょうか？教えて下さい。

値と数式の区別、完全一致と部分一致

>>199
本当に有難うございます。出来ました。少し勉強してみます。

初心者です、すみません。
列の数値を数値を全て足したいときって一つ一つ＋を入れていてもキリがないと思うのですが、いい方法ないでしょうか？

あるよ♥

教えてくださいm(__)m
そして、全てじゃなくても飛び飛びで同じ数字が大量にある場合の計算も教えててください

>>203
>列の数値を数値を全て足したいとき
=sum(a:a)

>>205
>飛び飛びで同じ数字
（・∀・）＜？

頭使えよ　並び替えてSUMつかえばいいだろ
SUMIFとかDSUMって関数もあるし

一つ一つ＋を入れていけよ！ｺﾉﾊﾞｶﾁﾝｶﾞ!!

教えてくださいm(__)m
飛び飛び飛びで３つ飛ばしで大量にある場合の計算も教えててください
初心者です、すみません。

>>206
ありがとうございます、飛び飛びは説明すると長ったらしいので悪戦苦闘してみますｗ

>>207
いかんせん超超初心者なものでして・・・

表作成してますが、｢セル結合して中央揃え｣以外で、｢セル結合｣だけはできますか？やり方教えて下さい。

>>210
超初心者なら先に、本でも読んで勉強しろよ
ｺﾉﾊﾞｶﾁﾝｶﾞ!

ﾜｹﾜｶﾗﾝ（AAｒｙ

｢セル結合」したいんだけど「中央揃え｣はイヤってコトか？
｢セル結合・中央揃え｣してから「中央揃え」を解除しれ！ｺﾉﾊﾞｶﾁﾝｶﾞ!!

>>213
　　ワケ　　　　　ワカ　　　　　　ラン　
　 ∧＿∧　　　∧＿∧　　　　∧＿∧
　（　・∀・）　　（　・∀・）　　　（　・∀・）
⊂　⊂　 ）　　（　Ｕ　　つ　　⊂__へ　つ　
　<　<　<　　　　）　）　）　　　　　（＿）|　
　（＿（＿）　　（_＿）＿）　　　 彡（_＿）

>>211
セルの書式設定の配置タブで「セルを結合する」にチェックをいれる
バージョン書いてあればもっと他の方法もあるかも
バージョン書けよｺﾉﾊﾞｶﾁﾝｶﾞ

ﾊﾞｶﾁﾝﾊﾞｶﾁﾝ言わんでばい

>>214
AA禁止な。
ここは俺様が仕切るところだ！ｺﾉﾊﾞｶﾁﾝｶﾞ!!

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ


ひとつのシート内に複数の表を貼り計算をしています。
複数の表の下に集計結果を表示しました。
集計結果は月ごとに昇順で表示しています。
集計結果の月ごとの部分を新たに増やしたいのですが
コピーをすると「複数の表のなかの２行ある計算範囲」が１行ずつしか下に
移動しませんが２行ずつ移動する簡易な方法はありますでしょうか？

何言ってんだかイマイチわからんが、
計算範囲に名前つけてみたら？

http://click.j-a-net.jp/1006827/223692/

>>218
君に選択肢を与えよう

･A 日本語で質問する
･B ブックをうpする
･C 質問を撤回して去る

どれか一つ選べ

C

VBA勉強中なんだけど、Excelファンクラブの住人いる？
ttp://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi

なんか質問者が超初心者と分かってても、質問者に理解させようとするんじゃなくて、
わざと間違えてそのままじゃ使えないようにしてるヤシがいるんだよね。
初心者では到底理解できないマクロで答えてるのも多いし、他の回答者に対して
マクロを披露してるのか？って思えるのも多い。

過去の質問を読んでると、質問者は「あとでやてみます」なんて返事もある。
わざと間違えてそのままじゃ使えないようにしてるし、質問する前に勉強しろとでも
言いたそうな先生に当たったら、「ここが分かりません」なんて書けない罠・・・ｗ

>>223
どこの板にもひどいのいるよね
でも、俺が見ていた頃はExcelファンクラブにしてもMougにしてもそれなりに
フォローしてくれる回答者がいたけどね。
ぶっちゃけ、低レベルの回答するくらいなら黙ってろって感じ。

>>213>>215ありがとう、やってみます。

以下のエクセルで黄色の部分とオレンジの部分を
参照して緑の部分に合計を出してみました。
同じように青の部分を新しく追加したのですが
オートフィルで上の書式をコピーすると
オレンジの部分の範囲指定がひとつずつしか
動かずエラーになります。

どうしたらいいでしょうか？ご教授お願いします。

http://briefcase.yahoo.co.jp/bc/ca2541/lst?.dir=/%a5%de%a5%a4%a5%c9%a5%ad%a5%e5%a5%e1%a5%f3%a5%c8&.order=&.view=l&.src=bc&.done=http%3a//briefcase.yahoo.co.jp/

↑ブラクラ注意!!

ブラクラではありません。

自分で書き換えればいい
オートフィルはあくまで補助的な物だよ

>>229
お答えありがとうございます。

ひとつひとつ直すのが煩雑だったものですから
簡易な関数などで出来るかもと思ってました。

>>230.
簡易な関数でやりたいなら行列関数使えばいいよ

具体的な使い方はググるかヘルプ見るかしてね
過去ログにもなんども出てきてるから過去ログ読み漁ってもいいけど


でもそんなことやるより､この不適切な表構成自体を見直した方がいいと思うけどね

>>231
表構成もググって調べて作ってみます。
ありがとうございます。

Office2003、XPです。

フリーの一括置換アドインで、

A　B
赤 ｒ
黄 y
青 b

というリストを用意し、置換したいセル内にAと一致したものをBに置換するというのがありました。
がURL、アドイン名を忘れてしまい、探しましたが見つかりません。
どなたかご存知の方が居ましたら、また、同様のことが出来る方法、フリーのアドインをご存知でしたらお教えください。

>>233
その程度は自分で簡単に作れるだろ？
マクロでループ回して置換するだけだし。

>>218>>232
ぜひピボットテーブルレポートについても調べてください。
月別の支出を集計するのにとても便利ですよ。

VBAのOption Explicitってなぁに？
ググるのマンドクセーから、親切な人だけレスして！

>>236
いいかげんな書き方ができないようにするための呪文

ピボットテーブル厨 ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!

>>237
どうもありがとうございます　m(_　_)m

すいません
すごく初歩的な質問おねがいします。

突然XPバージョンを使う必要があって、以前とワードアートが全然違うので困ってます。
以前のワードアートは文字が自由に変形してくれて便利だったのですが
それができない・・・

どうやったら以前と同じように、文字そのものが縦横比、サイズなど自由に変形してくれるでしょうか？

ここはExcelのスレで、Wordじゃないお

Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
j = 1
　 For Each cl In Selection
　　　If cl <> "-" Then
　　　　 sh2.Cells(j, "A") = cl
　　　　 sh2.Cells(j, "B") = sh1.Cells(1, cl.Column)
　　　　 sh2.Cells(j, "C") = sh1.Cells(cl.Row, 1)
　　　　 j = j + 1
　　　End If
　 Next


Cells(j, "A")の "A" って、どーゆー意味でしょうか？
Cells(行, 列)と書いたら、行と列は整数でないの？

> Cells(j, "A")の "A" って、どーゆー意味でしょうか？
A列って意味だけど

> Cells(行, 列)と書いたら、行と列は整数でないの？
列インデックスは列番号も列名も使えるよ
Cellsは列を｢整数で指定可能｣なのであって｢整数で指定しなくてはならない｣わけではない
｢整数で指定可能｣故に､｢整数で指定したいときはCellsを使う｣ことから｢整数で指定しなくてはならない｣と
勘違いされてる場合もあるようだが､お間違いの無いように

因みに行も行番号､行名共に使えるから､
Cells(1, 1) のように行番号 1 を整数指定しても
Cells("1", "A") のように行名 "1" を文字列指定しても両方通るが
Cells("1", "1") のように列番号を文字列化したものを指定するとエラーになるので注意

>>243
ありがとうございます。
ググっても意味が中々出てこなかったので困ってました。
来年もよろしくお願いします。
ちょっと早いですが、良いお年を。

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


教えていただきたいのですが、
１０分刻みの入退店記録を作り、
例えば１０時に入店した人は何時に退店することが多いかを
把握したいと思っています。
エクセル初心者ですがよろしくご教授ください。

>>243
今まで列番号指定する時、一生懸命数えてた．．．

>>245
入退店記録を数値化してグラフにすれば一目瞭然！

＞１０時に入店した人は何時に退店することが多いかを把握したい

どーやって、１０時に入店したとかカウントするんだよｗ
IDカード導入とか、入店から退店するまでストーカーしてデータを取らないと・・・

入力は打ち込みます。

喫茶店なら伝票に入店時間と出店時間書けばいいけど
同じようにするの？

2008年、第一号の電波ちゃんでしょうか？！

はい、最初は伝票票に書いてから
エクセルに打ち込もうと思っています。

>>245
例えば、A列に入店時間、B列に退店時間が1行目から１０行目まで入力されているとして

=MODE(IF((A1:A10)=TIME(10,0,0),(B1:B10),))

と入力し、shift＋ｃｔｒｌ＋Enterでどう？

すまん↑のだと一番多いのしかわからないね

GENOで新品　OEM版　office2000 パーソナルが2008円で売ってるよ。

>>245
データの形式は>>253の通りで。
集計はピボットテーブルレポートでやりましょう。

ありがとうございます。ピボットテーブルですか勉強してみます。
データの形式のことなんですが、
例えば１０分ごとの時系列の票（１０分ごとに一列）を作り、入店時に「A」
退店時に「B」と該当セルに入力したしたデーターだと集計は難しいですか？

そんなことより、１０時に入店した人が何時に退店するのか人数の把握方法が知りたい。
入店時間と退店時間だけじゃ、数値化できないよ。

人数というかグループごとの把握をしたいです。
伝票一枚で一つのグループにしたいです。

>>257
入店，退店のイベント発生単位でデータ入力する方法はおす
すめできません。入店と退店の対応がバラバラになって処理
が難しいからです。

それよりも伝票に入店時間と退店時間が記録されているモデ
ルを考えて，１枚の伝票を１行としてexcelに入力していく方
法がいいと思います。

俺には、そのデータが分からん。

例えば、9：50に3人、10：00に5人、10：10に2人が入店したとする。
10：20に4人、10：30に1人、10：40に3人退店したとき、10：00に入店した5人が
いつ退店したのかって、どういうデータとして残ってるわけ？
なんか、聞きたいことと質問が違ってる希ガス・・・

>>259
具体的には以下のような形式を提案します。
伝票番号　入店時間　　退店時間　　グループ数
　　　１　１０：００　１０：３０　１
　　　２　１０：１０　１１：００　１
　　　３　１０：１０　１０：４０　１


このデータをピボットテーブルレポートで集計すれば出来上がり
です。例えば縦軸に入店時間，横軸に退店時間，データアイテム
をグループ数としてはいかがですか。

10分毎に入店制限してるの？

>>262
それじゃ無理。245の質問をよーく読んでみそ。

>>245
データが>257の形だとしてどのような結果になればいいの？

>>263
お前バカだろ

>>264
なんで？　これでいいじゃん。データアイテムは伝票番号のカウントでいいとおもうけど。

値や確率・確率関数を入力してその分布や期待値を求めたり試行したりしたいのですが
どのような操作をしたらよいのでしょうか

教則サイトを覗いてもデータを入力しての分析がメインのようで困っています

>>268
短い中にも盛りだくさんな内容ですね。
ひとつづつ片付けましょう。
入力されたデータから
１．分布を求める。
２．期待値を求める。
３．試行する。

>>268
>教則サイトを覗いてもデータを入力しての分析がメインのようで困っています

ちなみにそのサイトで紹介されていた分析手法はどんなのですか？

>>270
見つけられたのは個々のデータを入力してからの各種検定やグラフ化などです
分布さえ求められれば教則サイトに従って分析できそうなのですが…

例えばコイン投げを100回した結果の分布のようなものをエクセルで処理したいのです

>>271
入力されたデータの分析をするのではなくて，
何らかの分布に従うデータを作成したい
ということでしょうか？

>>272
そうです。線形で表されるゲームを複数回繰り返した結果を見たいんです

説明下手ですみません

>>273
モンテカルロシミュレーションがやりたいのですね。
rand()を使うと0〜1までの乱数を発生しますので，0.5を境に条件分岐させればいいですよ。

あけオメコとしも（ｒｙ

>>274
それなら確率を変えるのも楽そうですね。本当にありがとうございます

モンテカルロシミュレーションもググりつつがんばってみます

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel03
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】Excel 形式を選択して貼り付け オプションボタン 初期位置

Excel03で、｢形式を選択して貼り付け｣のダイアログボックスを表示させたとき、オプションボタンの初期位置を｢値｣にする事は可能でしょうか？
可能であれば、VBAコードを教えてください。

>>276
クリスタルボールというソフトについても調べてみてください。
試用版がダウンロードできるので遊んでみると楽しいと思いますよ。

>>277
＞【3 VBAが使えるか　 　 .】 いいえ
＞VBAコードを教えてください

ん？

>>279
紛らわしい書き方して申し訳ないです。
VBAは覚えたてなので、おそらく素人レベルと五十歩百歩だと思うんですよ。ただ、コードを書いていただければ活用できます。
一応イベントプロージャとか基本的な用語は知ってます。

>>223
初心者の質問に対してWithを使い、"." をわざと書かない意地悪な先生がいるね。
笑えるのは、そのままじゃ動作しないのに「ありがとうございました」なんて
書いて終了させちゃう尻切れトンボ状態なのも多いｗ

教えてください。
数値を0.5刻みで上下どちらか近い方にしたいのですが
「MROUND（数値,0.5）」が利用できない場合に他の関数にて
代用することは出来ないでしょうか。

（例）　1.25→1.5
　　　　1.24→1.0
　　　　1.74→1.5
　　　　1.75→2.0
となります。
宜しくお願いいたします。

ROUND（数値*2,0）/2

>277
コマンドのユーザー設定の中に値貼り付けのボタンがあるから
それでいかがでしょう？

最近Office2007を導入したものです。
Excel2007のユーザー設定で、
マクロのボタンアイコンを作成したいのですが
Excel2003にあった「ボタンの編集」による
ボタンアイコンの作成が2007には見当たらなく
ボタンの変更（テンプレの中から選ぶだけ）のみなのですが
2007ではボタンの編集をすることはできないのでしょうか・・
よろしくおねがいします。

エクセル２００７で互換モードで保存したらマクロのセキュリティが
かわったみたい。パスワードが通用しなくなった。
またマクロやり直しだ・・・
トホホ・・・・・・・・

【1 OSの種類 　 　 　 　 .】 WindowsVISTA
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ?
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】
お願いいたします。
EXCELでリンクがあり、サイトを開こうとすると
「このコンピューターに設定されている制約のため、この操作は中止されました。ｼｽﾃﾑ管理者へ問い合わせてください」
という表示がでて、サイトを見ることができません。
どのようにすれば、サイトを見ることができるでしょうか？
教えてください。
以前は見れていたのですが…

>>287
ﾘﾝｸ先の鯖が落ちてるだけでﾈﾉ？
正月だし・・・

>>288
ご回答ありがとうございます。
ただ、全てのサイトをみることができないんでよね。

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

あけましておめでとうございます。本年もよろしくお願いします。

セルの書式設定で、セルのデーターをいろいろな形で表示できると思いますが、
その表示されたものをそのまま文字列として取り出す方法を教えてください。

例えば　A1に 1 を入力して、書式設定をyyyy/mm/ddとしたとき
1900/01/01と表示されます。

この1900/01/01をセルA2に入力するにはどうすれば良いでしょうか？

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

　For sss = Worksheets.Count To 1 Step -1
　　Worksheets(sss).Activate
　　If Range("C1").HasFormula Then
　　　Range("B1:E150").Copy
　　　Range("B1:E150").PasteSpecial Paste:=xlValues　'←この行でエラーとなる
　　End If
　Next sss
複数シートに対して、C1が数式ならば、B1:E150の範囲をコピーして値のみを貼り付ける
そういう内容のマクロを書いたのですが、どうしてもExcel2003でエラーがでます。

エラー内容は
　実行時エラー　-2147417848 (80010108)
　PasteSpecial　メソッドは失敗しました　Range オブジェクト
で、エラーは　　Range("B1:E150").PasteSpecial Paste:=xlValues　の行で起こります。

マクロがエラーで止まったあとシートを見ると、エラーは出ているものの問題なく処理が行われています。
＝コピーして貼り付けが完了している状態
何のエラーで止められたのか、そもそも完了した後でのエラーというのはいまいちわかりません。

またこのエラーなのですが、発生のタイミングがランダムです。
例えば30個シートあるブックで上のマクロを使った場合、シート30でエラー発生する場合もあれば、30から20まで問題なくこなし、
シート19でエラーになることもあります。
ちなみにこの30個のシートは、「シート1をコピーして、シート2〜30まで複写させたまったく同じ内容のシート」であるにもかかわらずです。
なぜこのような状況になるのでしょうか？マクロに問題があれば、第一回目の処理、すなわちシート30でエラーが返されるように
思うのですが。

ちなみにエクセル2000では一向にエラーは出ずにうまくいきます。どうぞよろしくお願いします。

ちなみにコンピュータのスペックは

P4 2.66GHz
DDR333 1024MB
HDD 空き20GB以上
GeForce6200

です。参考までに・・。


>287,289
インターネットオプションのプログラムにあるｳｪﾌﾞ設定のリセットを一度実行してみてください。
それで直らなければ、同じくインターネットオプのセキュリティのレベルを中以下で設定しなおしてみてください。

俺も2003でぼ同じスペックだが、特にエラーはでなかった
ぐぐって見てとりあえず良さそうなものから
・xlValuesを値に置き換える
(xlValuesを示す値があったはずなのだが．．忘れてしまった)
・他にsssという変数は使ってないか
・セルの結合がないか
ぐらいかな？
逆に俺がそのエラーのあったシートを見てみたい

>>290
ワークシート関数なら､
A2=TEXT(A1,"yyyy/mm/dd")
とTEXT関数で同じ表示形式を設定すれば良い。

VBAなら､
Range("A2").Value = Range("A1").Text
と､セルのRangeオブジェクトに対してTextプロパティの値を見れば良い。


>>291
エラー原因は別として､
For Each sss In Worksheets
　　If sss.Range("C1").HasFormula Then sss.Range("B1:E150").Value = sss.Range("B1:E150").Value
Next sss
ではダメなのかい？それともこれでもエラーが出る？

あとはステップ実行してみた？
ステップ実行で問題が無ければ処理が追いついていないだけって可能性もある。
Activate､Copy､PasteSpecialの3回*30シートだと90回の再描写があるし､2003では2000より再描写負荷大きいからね。
うちのPCは>>292よりちょっとスペック高めだが>>291のコードで全然エラー出ないよ。
処理前にApplication.ScreenUpdatingをFalseにして処理後にTrueにすると再描写が最後の1回だけになって負荷が下がるから､
これで上手く行く可能性もある。(自分が書いた上記コードでは元から再描写は1回しか発生しない)


>>293
xlValuesの定数値は-4163､正式にはxlValuesではなくxlPasteValuesだね。(どちらも定数値は同じ)
定数値はコードウィンドウの定数上でShift + F2押すとか､イミディエイトウィンドウで｢? xlValues｣と入力してEnter押すとかすると解るよ。

あと変数名の重複があれば毎回同じエラーが発生するし､セル結合は有ったとしても同じ範囲に値を貼り付ける場合は問題にならず
別範囲に貼り付ける場合でも､全てシートで同じエラーが発生するはず。
不規則なエラーが発生していることから､失礼ながらそれらは関係ないと思う。

>>294　(>290より)
ありがとうございます。
Range("A2").Value = Range("A1").Text　で
できました。


>>293　(>291より)
ありがとうございます。>294の方法でうまくいきました。

>294 　(>291より)
＞エラー原因は別として､
＞For Each〜
＞ではダメなのかい？それともこれでもエラーが出る？

なるほど。こういう方法もあるのですね。マクロの記録じゃ作り出せないものですね。
今試したところエラーが出ません。
何より処理にかかる時間が減りました。これは非常にありがたいです。
これを使わせていただきます。
どうもありがとうございました。

と思いきやすみません。やっぱり出ました・・
出ないときは出ないのですが・・・
もう少し調べてみます。

どうやらシートにグラフがあるのですが、それを消してみると
エラーが出ないようです。
結構ややこしいシートなので、できるだけマクロなどを消して原因探ってみます。

グラフ･････情報後出し(･Ａ･)ｲｸﾅｲ!!

>>297
仮にグラフがある場合と無い場合で、
>291,294のマクロがランダムでエラーを起こす原因に繋がりますか？

それとイベントマクロを切ってもエラーは出なくなります。

やはり>294
＞処理が追いついていないだけって可能性もある。
これですかねぇ。ステップ実行じゃ問題ないですし。

クルーソー530（？）10年ほど前のPC（Me x Excel2002）でもエラー無しで
サラッとこなされるだけに、腑に落ちない気もするのですが、2003の宿命なのですかねぇ。

イベントマクロの内容を見て、さらに絞り込んでみます。

支離滅裂

お騒がせしました。
とりあえず>294のマクロ実行前に、イベントマクロを消去するマクロを入れて見ます。
多分これで解決できると思います。
ありがとうございました。

なんかなー、不規則なエラーの発生とかいっているからには・・・
当然、規則的なエラーの発生なわけだがwww

助けて下さい〜

最後のセル位置を修正したいです。
【excel　最後のセル】でぐぐり下記のやり方を知りましたが
ダメでした。
ttp://support.microsoft.com/kb/405492/ja

その後も"Ctrl＋End"でやはり"AU65536"になってしまいます。
修正したい位置は"AU150"です。
お願いします。<m(__)m>

Excel2007/WinXPpro/VBAなし

それでいける
全部読んで全部実行する事

横レスだが、前から思っていたことを思い出した。
誰か、最後のセル＝右下端セル　のユーザー定義関数をつくってくれないか

>>304
シート全体を選択して
Shift+Enter
でいくだろ

【1 OSの種類】 WindowsXP
【2 Excelのバージョン】 Excel2003
【3 VBAが使えるか　 　　】 No
【4 VBAでの回答の可否】 否
質問です。
とある三カ所に数値入力されてないといけないように、
判定する関数を10行ほどコピペしました。

IF(OR(C1="",H1="",J1=""),"空白あり","OK")

これに、三カ所すべてが入力されていない場合も、
OKとする条件をつけたいのですが出来るのでしょうか？
やりたいことは、
１三カ所すべてのデータが入っていることを確認したい
２三カ所のうち一つでも入力されてなかったら、困るので判定したい
３しかし、データ入力必要のない行まで"空白あり"となってしまう

これは諦めるべき？

AND(C1="",H1="",J1="")を最初の条件にすれば？

>303様
即RESありがとうございます。
失礼があってはいけないと、一語一句よみ逃さずすべてやった認識です。
再度手順を詳細に残します。
列はAU
行は150
までが必要セルです。

・65536から151までのドラッグは時間がかかるので、65536の行番号を選択、151の行番号を
　Shiftを押しながら複数選択
・値の入力なくても、書式や入力規則等考えられるすべてのものをクリアしたのち、右クリック削除
　（ホームから削除もtry済み）
・上書き保存ボタンを押し、Excel で作業中のセル テーブルを強制的に再構築
・念のため、Excelもいったん終了し、再起動

この結果でも変わらずです。

考えられることはやった認識です。
何が足りないのでしょうか？
（ちなみに列は正常に終わりました、あとは行だけです。）　

>307
わざわざありがとございます。
残念なことに２の条件がクリアできないのです。すいません。

>>306 2と3の条件矛盾してね？
入力が必要無い行の条件は？

>310
そうなんです。
言葉で説明できないのでプリントスクリーンで
エクセルファイルをアプロしました。
ttp://sugar310.dip.jp/cgi/upload/source/up9510.xxx

赤字が入力する三ヵ所。
青字がいらない、もしくは"OK"判定。
結合はしません。

よろしくです。

>>311
or(e1=",f1="",g1="")="",""を加えれば？

>>311
これならE列当たりを判定に使えばいいだけじゃね？
このSS見る限りじゃ､E,F,G,K,L列に文字が入ってない行は
H,J列の入力が無くてもOKってことだと読めるんだけど

空白があったら困る､けど空白でも良い行で空白有り判定されるのは困る
という矛盾する条件は､｢空白でも良い行｣の条件をC,H,J列の空白以外で制定することで解決できる
まぁ､なんか後出し条件があるのかもしれないけど

あと､単一画像上げるならシードに貼ってブックごと上げるんじゃなくて画像のみ上げなよ
ttp://sugar310.dip.jp/cgi/upload/source/up9511.png

>>306
んー、これじゃ駄目なの？

If(AND(C1="",H1="",J1=""),"OK",IF(OR(C1="",H1="",J1=""),"空白あり","OK"))

>>304
Function LASTCELL(Optional c) As Range
Application.Volatile
Dim r As Range
If IsMissing(c) Then
Set r = Application.Caller.Parent.UsedRange
Else
Set r = c.Parent.UsedRange
End If
Set LASTCELL = r.Item(r.Count)
End Function

>>306さんのデータには形式が異なる2種類のデータが混在しています。
１．重量，トン車，距離の入力を求める形式
２．重量，距離の入力を求める（トン車の入力は求めない）形式

データ形式を表す列を別に用意して，まずどちらの形式であるのかを判別し，
判別した結果によってその形式に適切な判定式を適用すればよいでしょう。

みなさん、ありがとさまです。

>>311
どこにいれたらいーの？

>>313
E,F,G列は重要視してないです。K,L列はちがう式が入ってます。
＞C,H,J列の空白以外で制定することで解決できる
なんですか？それ？
＞ブックごと上げるんじゃなくて画像のみ上げなよ
こんなことできるんですね。感動しました!!!結婚してください。

>>314　307さん
だめでした・・・

>>316　excさん
もーこんがらがってきました。ちょっと他列つかって見直します。

１.２.３の条件すべて満たす関数で、一気にズバッと
同列下方へコピペできるものがあればいいのですが・・・

年始早々レスくださって、本当に感謝してます。

>>317
２種類のデータ形式が混在していることはご理解いただけましたか？

>>317
=IF(OR(E2="",F2="",G2=""),"",IF(OR(C2="",H2="",J2=""),"空白あり","OK"))

>>306さんの質問内容が様々に解釈されて混乱しているようですので，私なりの解釈で書き直してみます。

「重量」「トン車」「距離」の３項目全てを入力しなければならない形式の表があります。（形式１とする）
３項目ともデータ入力されているかどうかを判定するため，
IF(OR(C1="",H1="",J1=""),"空白あり","OK")
という判定式を今まで使用していました。

しかし，新しく「重量」「距離」だけを入力するだけでよい形式２を追加しました。
形式１のデータと形式２のデータは混在しています。

今までの判定式では形式２の場合を正しく判定できません。
どのような式を書けば正しく判定できるのでしょうか。

>>320
その解釈は間違っていると思う。

>赤字が入力する三ヵ所。
>青字がいらない、もしくは"OK"判定。

『「重量」「距離」だけを入力』している13行目は赤字で「空白あり」と表示されている
＝「トン車」が未入力ではマズいということでしょ？

>>321
>「トン車」が未入力ではマズいということでしょ？

これを判定するのであれば今までの判定式のままでよいのではありませんか？
形式１のデータを扱うだけでよいのであれば何も問題がなさそうです。

>>322
4〜6、8、9行目に「空白あり」と表示されるのが問題なのでは。
青字で表示されてる部分。

>>323
>>306さんの質問内容のあなたなりの解釈を簡単に説明していただけませんか？
ちなみに>>323さんは>>321さんと同じ人？

お前ら夜中にエクセルかよ

悪い？

夜中にエクセルやって昼間寝てるのってむなしくないのか？
って思っただけ。別に悪くは無いよ。

>>324
青字で「空白あり」→表示なし、若しくは「OK」と表示させたい
赤字で「空白あり」→「空白あり」と表示させたい

と解釈しました。

>>306
たぶん一番の問題は一番肝心な情報が不足しているという事だね
入力が必要な行と入力が不要な行をどこで区別するんだ？
という事。
単純に会社名が入っていない行は入力不要という解釈でいいのか？

【1 OSの種類 　 　 　 　 .】 Windows　XP　SP2
【2 Excelのバージョン 　 】 Excel XP
【3 VBAが使えるか　 　 .】 いいえ（ほんの少し書換はできる）
【4 VBAでの回答の可否】 可
WEBでホームページをコピーしたときに、画像（アイコン等）とリンク先もコピーしてしまいますが
この画像（アイコン等）とリンク付けをコピーしないようにしたいのですが　宜しくお願いいたします。
例　価格.COMの表をコピーしたときなど

検索は、どう検索してよいやらで　検索語句すら思い浮かびません

みなさん、朝もはよからありがとうございます。
もー本当に申し訳ないです。

>>320->>328
アプロしたもので説明すると、赤文字の数値を基準として判定してます。
”ＯＫ”と一番下の茶色字”空白あり”はうまく判定してるのに、
青字の”空白あり”は邪魔だなーと・・・。
この判定式は、下の行までコピペでいれてますので、”空白あり”が
データが入ってなくても表示されてしまいます。これも解消したい。

自分、ダメですわ。今までの自分のカキコ見てやりたいことが定まってなかった。
混乱させてしまい申し訳ありません。

>>329
本来ならデータとして一行にすべて入力してうめるべきところを
まとめてしまってるんですよね。逆にいうと、重量もまとめちゃえば
いいのに件数ごとに入力しなくてはいけないから。
的外れな答えでしたら、すいません。

>>319　312さん
なんか、なんか、なんか。。。いけそう！？
ちょっと検証してみます。
今から席はずさなくちゃならないので、お返事あとになっちゃいます。
手間ヒマかけて、お付き合いしてくださってありがとうございます。

みなさん、ありがとうございます！

直接はExcelと関係ないんですが…

相関があると思う２つの変数について実際にデータを入手し、
散布図の作成およびそ相関関数の導出をする

という課題なのですが、『相関があると思う２つの変数』って
どのようなのあるか教えてください。

『身長と体重』以外を教えてください。

宿題の答えを他人に聞いてカンニングしようとする人のIQとテストの点数とか

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

A列に[00]〜[99]が入っていて
B列に個数が入っています

例えばこのような感じです

[01]　　1
[03]　　5
[12]　　7
[68]　　25
[12]　　13
[03]　　32
[27]　　11
[68]　　6

これを

[01]　　1
[03]　　37
[12]　　20
[27]　　11
[68]　　31

という感じに[xx]ごとに個数を足したものを出したいのですが、どうすればよいのか分かりません
よろしくお願いします

小学生の足の大きさと50m走のタイムとか

>>315　　遅くなりましたが、サンクスです。
でも、引数の受け渡しがうまくいってないことぐらいはわかるのですが、
Option Explicit
Sub RightandLower()
Dim c
Sheets("ソート").Select
LASTCELL
End Sub

Function LASTCELL(Optional c) As Range
Application.Volatile
Dim r As Range
If IsMissing(c) Then
Set r = Application.Caller.Parent.UsedRange
　　 'ここで「オブジェクトが必要です」のエラー表示あり
Else
Set r = c.Parent.UsedRange
End If
Set LASTCELL = r.Item(r.Count)
End Function

上記の状態。テンでわからなくなっている折れにわかるようにお願いします。

チソコの大きさと童貞の期間とか

>>335
SUMIF関数

>>339
ありがとうございます、できました

マクロを使うしかないと思って、「できる辞典」\3500（たけぇよ(；´Д`)）を買ってきたのですが
まさか関数でできるとは・・・、嬉しいような悲しいようなｗ

地震だー

>>340　VBAに挑戦するのは１年早いです。

>>340
あれほど安くて内容充実してるものはそうないぞ
良い物出し続けてる→いっぱい売れる→安く売っても儲かる
ってことなんだろうな

プログラムの技術書なんて数万とかも結構あるもんな
ちょいと本棚漁ると､\28,000､\8,500､\40,000､etc…って感じだ

すみません関数について質問させてください
Ａ1〜Ａ10まで数値が入っていて、
「Ａ11に入っている数値以下」の個数を出したいのですが
=COUNTIF(A1:A10,<=A11)だとエラーが出ます
参考書を見ると
=COUNTIF(A1:A10,"<="&A11)になっているのですが
""で囲む意味と&を使う意味がよくわかりません
""で囲むのは、文字を使う時、&は文字を繋ぐもので認識していました・・・
どなたかわかりやすく解説して下さると助かります
よろしくお願いします

>>342
ちょｗ
一年でいいのかよｗｗｗ

excelの関数なんて1年あれば十分でしょ　逆引き参考書があれば３ヶ月でもいいかも

関数をマニアックに追求するのはそこそこにしてピボットテーブルレポートをもっと使ってほしいですね。
excelでやりたいことのほとんどは「データをグループ別に集計する」ことに集約されるんじゃないでしょうか。
>>335さんもぜひ使ってみて下さい。

>>344
ヘルプより
検索条件
計算の対象となるセルを定義する条件を、数値、式、または文字列で指定します。
　式および文字列を指定する場合は、">32"、"Windows" のように、半角の二重引用符 (") で囲む必要があります。

つまり通常と逆

逆ってことはない。
<=A11　という値はない。これは式か文字列でなければいけない。
式か文字列であれば""でくくる必要がある。""でくくった式や文字列はそのまま関数に渡るため
"<=A11"ではエラーになる。"<="&A11　が正しい。

ちなみに&は文字列をつなぐ演算子で間違いないが、=100&10　という書き方もできる。結果は"10010"

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

初歩的な質問ですが願いします。
罫線が引いてあるセル内の文字のみをドラッグで移動することはできますか？

普通にドラッグすると罫線も一緒について来ます。
罫線のみ移動しないようにロックみたいなことはできませんか？

ドラッグって移動？フィル？

>>351
フィルではなく移動です。

>>350
右ボタンでドラッグすると文字のみのコピーはできる。移動ではないけど。

グラフ（折れ線）を重ねる方法を教えてください。

重ねるというのは、ただ重ねるだけじゃなくて、
重ねられた下のグラフと、その上に重ねたグルフが両方一緒に見えるようにしたいです。

もしくは、折れ線だけを重ねるのでも構いません。

グラフ同士の、数値は異なります。


一応、日本語を書いたつもりなので、意味不明ですが、よろしくお願い致します。

{ "<="&A11 } と { "<=A11" } との違いを説明してくれ

すみません、質問です。
身内用の簡単なＣＤと曲の表を作っているのですが、
その内の１つのセル内にジャケット画像を貼り付けたいと思っています。
ただ画像を貼り付けただけだとサイズ変更や位置の変更が大変なので、
貼り付けたときに自動でセルの大きさに合わせて画像がサイズ変更し、
その後もセルの大きさに合わせて自動的に縦横比固定でサイズ変更、移動できるようにしたいと思っています。

貼り付けた画像の、図の書式設定から、プロパティタブ→セルに合わせて移動やサイズ変更をする
をやってみましたが、貼り付けた時に手動で画像のサイズを合わせなければいけないのでとても手間がかかり、不揃いなのでやめました。

ExcelのバージョンはExcel2003SP1
ＯＳはＸＰです。
どうかよろしくおねがいします。

セルにカーソルを持って行くと小さな下向き三角が表示され
あらかじめ設定していた語句（数字）を選択して
表示させるようにする方法を教えてください。

カレイダグラフというソフトでギャラリー→統計→確率
で20個のデータの非超過確率をプロットしたのですが、このソフトは
どのような計算法で非超過確率を計算しているのかご存知の方おられませんか？

>>356
やりたいことは分かるけど・・・
セルが横長になった場合は左右または左右どちらかに空白が
セルが縦長になった場合は上下または上下どちらかに空白が
・・・と考えているようだけど、Excelの仕様ではそれはできない

オートシェイプ（四角）の塗りつぶし効果で図を選択して貼り付けちゃダメかい？
貼り付ける元のオートシェイプのサイズをあらかじめ決めておいて
それを「オートシェイプの既定値に設定」すりゃ後は同じサイズのオートシェイプが量産できる
それから場所を決めてから図を貼り付けるだけ

さらに貼り付け時に縦横比を固定を選択できるから画像サイズがちがっても、サイズは統一可能
ただし、縦または横の一杯に表示されて、はみ出した部分はカットされる
そんなだから「セルに合わせて移動するがサイズは変更しない」のままのほうが扱い易いと思う

あと、Altキーを押しながら移動/サイズ変更するとセルの境に合わせて移動/サイズ変更が可能
きっちりセルに合わせるならAltキーを併用しましょう

>>357
データ　　入力規制　　設定　　入力値の種類→リスト　　範囲指定　　ドロップダウンリストから選択にチェック

>>357
ドロップダウンリストのことか？
「入力規則」「リスト」でググると詳しく説明したサイトが見つかる

「データ」 → 「入力規則」
設定タブ、条件の設定、入力値の種類、から リストを選択
　（右の「ドロップダウン リストから選択する」のチェックマークが入っていること）
元の値にセルの範囲またはカンマで区切った値を入力
OKをクリック

>>344
>>348 >>349 >>355　を勝手に統合すると
"<="&A11　この&A11はA11という箱（セル名）の中身（具体的数値）を渡している
 "<=A11" 　は""の中を文字通り、渡しているので判別のしようがないのでエラーとなる。

即ち、&　は　箱の中身を繋ぐもので、箱名を繋ぐのではないというこで。

あの、超基本的なことかもしれませんが教えてくらさい。

一つのセルに年月日と時間、両方入力するの、どのように入力したらいいのでしょうか？

また、上記できるのでしたら、「＊月＊日 ＊時＊分」と表示させたいときの
表示形式はどのように設定したらよろしいのでしょうか？（年は省略です）

よろしくです。

>>354
設問がobjectとしてのグラフそのものを重ねる意というのはわかった。が、データ系列を２つにすればいいだけのことをそうする理由も、意味も見いだせなかった。

>>363
2008/1/5 12:34
m"月"d"日" h"時"mm"分"

>>365
ありがとうございました。　　m(__)m

>>359
なるほど、そんな方法があったんですね。
今日はちょっとやってみることができないので明日その方法でやってみたいと思います。
ありがとうございました

Office関連ソフト、解説書を買うならこちらがオススメですよ〜。
http://Office2007.ne.tv/
http://PowerPoint.ne.tv/
http://Excel.ne.tv/
http://Word.ne.tv/
http://Access.ne.tv/
http://ATOK.ne.tv/

巧妙なトラップだなw

>>368
アフィ貼るな死ねカス

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

グラフ（折れ線）書式の質問です。
数値軸の間隔が下のほうは100刻みになっていて、途中から1000刻みになるような設定はありますか？
紙ベースでもらった資料にそのような表が載っていて、Excelで作ったものらしいのですが
自分でそのような表を作ろうとしても、設定がわかりません。
元データはもらえない状況です。
よろしくおねがいします。

>>371
ラベルを自分で設定する

>>372
ラベルって単位のやつですよね？？

>>335の質問の意味がわからん・・・

おまえがバカなだけだ

>>374
自分も最初流しみて「？？？」てなった
ちゃんと見ると[03]とか[12]が２つあるから、その隣の5と32とか7と13を足したいってわかる

まあ例があるから察せるけど
説明は日本語ではないからね

>>374
>>339の回答で察しがつくと思うんだが・・・文盲？

>>335の文章は非常に明確でわかりやすい。

>>374
378のいうとおりだな。
書くならば、質問の意味がどうわからないのか、その内容を書くべきだな。
それが、質問者の設問整理努力に対する礼儀だろw

このスレにはエスパー以外必要ありません！(>_<)

>>335のような明確でわかりやすい文章が理解できないのは、読み手に能力が欠如しているという他ない。

お、漏れって大人気じゃん！

Office2003を買ってきたんだけど、Officeバーって出せないの？

>>383
残念ながら大人気なのは>374だ

>>377

>>335
ちょっと遅めのお年玉。^^
（C,D列に表示します。）
Sub test()
　　Dim Dic As Object 'Dictionary
　　Dim RR As Range
　　Dim R As Range
　　Dim VV As Variant
　　Dim K As Variant
　　Dim i As Long
　　
　　Set Dic = CreateObject("Scripting.Dictionary")
　　Set RR = Range("A1"): Set RR = Range(RR, RR.End(xlDown))
　　For Each R In RR
　　　　Dic(R.Value) = Dic(R.Value) + R.Offset(, 1).Value
　　Next
　　
　　ReDim VV(1 To Dic.Count, 1 To 2)
　　For Each K In Dic.Keys
　　　　i = i + 1
　　　　VV(i, 1) = K: VV(i, 2) = Dic(K)
　　Next
　　RR.Offset(, 2).Resize(i, 2).Value = VV
　　
　　Set Dic = Nothing
End Sub

ていうかソートしてデータ→集計でダメな理由でもあるのか？

dはまだまだやなぁ

Application.OnTimeのキャンセルについて。

Application.OnTime now()+00:10:00 "マクロA"
を実行した段階で、10分後に起動するマクロをユーザーの判断でキャンセルできるようにしたいのですが、
即中止する方法を教えてください。

今キャンセルする方法は
ボタンを作ってA1.value=stopと入力させて、
"マクロA"の最初に、if A1=stop then exitとして、キャンセルさせています。

が、この場合10分待つまでキャンセルできてないですよね？実質実行はされなくなってますが。
これをすぐ停止させる方法があれば教えてください。

>>387
お、いいじゃん。
結果を、Sheet"件数" に集計するにはどうすればいいですか？

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】vba 名前付き引き数が見つかりません

サブルーチンの引数を、引数名を指定して呼び出そうとするのですが、名前付き引き数が見つかりませんとエラーになります。勉強用に書いたコードですが、原因等を指摘していただけないでしょうか？
Sub a ()
b
c from:=2, to:=3
End Sub
―――――――――――――――
Sub b()
workbooks.open filename:="(ファイルパス)"
End Sub
―――――――――――――――
Sub c(e, d)
ActiveSheet.PrintOut e, d
End Sub
―――――――――――――――
これを実行すると、from:=が反転して、上記メッセージが表示されます。
なお、メインルーチンの実引数を数値のみにすると、エラーが無く処理されます。
また、メインルーチンに実引数を記載せずに、サブルーチンに名前付き引き数を記載して実行してもエラーは発生しません。

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

関数についてお聞きしたいことがあります。
例えば以下のような表があったとします。

男性　70
女性 42
女性 92
女性 32
男性 71
男性 72
女性 81
男性 74
男性 64
男性　51
男性　83

以下の場合はどのような関数を使えばいいのか教えていただけないでしょうか？

「男性の中で、さらにその中から点数の上位3人には1、それ以外には0」

IF関数やAND関数を使うのだと思いますが、いまいち分かりません。
よろしくお願い致します。

>>392
cの引数名はfrom、toじゃなくてe、dだから
c e:=2, d:=3
としてください

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

>>393
純粋に男子内でのベスト3を識別させるのか、男子の中で全体のベスト3に入ってるのを識別させるのか、どちらかわかりませんが、とりあえず前者とみなします。左上の男子をA1とし、C1に戻り値が入ると考えてください
まず、下準備として、男子の点数セルのみを選択(B*,B#:B?,････)して、選択した範囲に任意で名前付けします。今回はとりあえずmanとします。この時選択範囲は絶対参照となります。
次に、C1に以下の通りに数式を入力します。
=if(A1="男子",if(RANK(B1,man)<4,RANK(B1,man),""),"")
あとはC列にコピペするだけ。

ああ、序列化じゃなくて1と入るだけでいいのねｗ

修正版
=if(A1="男子",if(RANK(B1,man)<4,1,""),"")

>>388
集計なんてアフォなもの使うよりピボットテーブルで一発だろ？
内部でソートしてブレークするまで足してくれる。
SUMIF使うのはいまいちだな。
Dictionaryもいまいち。

>>391
>結果を、Sheet"件数" に集計するにはどうすればいいですか？

どうぞ。^^
>RR.Offset(, 2).Resize(i, 2).Value = VV
Sheets("件数").Range("A1").Resize(i, 2).Value = VV

>>398
集計はまあまあなんじゃない？一応目的通りのことができるんだし。
ただピボットテーブルもっと使ってほしいよね。
車輪の再発明はむなしいね。

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

>>393
二段階で考えましょう。

１．IFを使って女性の点数だけ全部マイナス１点にしてしまう。
２．１．で求めた点数に対してRANKを適用する。

>>393
例えば「最高得点が４人」のような点数の重複がある場合はどうすればいいのよ？

>>402
３．IFをつかって２で求めたRANK３位以内に１を表示する
が抜けてる

>>403
ほんとだ。忘れてた。ありがとう。
それからこのままだと男性の人数が３人以下の場合に女性がも選ばれてしまうという穴があります。
この辺はまあ適当にお好みで処理してください。

ぜんぜんダメだなｗ

文句いうだけならもっとダメだなｗ

402ﾀｿ、涙目ｶﾜｲｿｽ…ｗｗｗ

>>407
お前が一番かわいそう

>>407
もしかして>>406が私の発言と思ったのでしょうか？
安心して下さい。涙目じゃないですよ。みんなで足りないところを補いあいましょう。

追加
>>393の質問に対してIFやRANKを駆使するのもいいんですが、私が自分の仕事で使うだけだったら、そんなめんどうなことはやりません。
降順に並べ替えて上位４位を目視確認できれば十分です。
これじゃだめかな？>>393

>>409
ｲｲﾊﾅｼﾀﾞﾅｰ(T_T)

気分が良くなったので色々疑問はあるけど
>>393の為に一案

C1=N((A1="男性")*B1>=LARGE(INDEX((A$1:A$11="男性")*B$1:B$11,),3))　
を下にコピー

本来>402のとおりソートを使ったり、作業列を使って分けて考えた方がいいけどね
まあ、お好きな方法でどうぞ

VBAの変数についてです。
Dim 列 As Long, 行 As Longと宣言して、Cells(行, 列)とか書いてたら
先生に「全角文字を使うな」と怒られますた。
全角文字を使ってはいけないルールなんて無いと思うんですが
なぜ駄目なんでしょうか？

>>412
変数名の付け方は宗教みたいなもんだから、授業中だけはおとなしく先生の言うことを聞くしかない。

ルールはないけど日本語サポートがないＰＣだと動かないからな
将来SEとかになるなら使わない癖をつけた方がいい


つーかそんな事はセンコーに聞け！

半英とひらがなの切替えの手間がものすごく無駄だしね

Range("A65536").End(xlUp).select

これって仮に

Range("A100").End(xlUp).select

に変えた場合、その分処理が軽くなるものなのでしょうか？

自分で試せばいじゃん

>>416
Ctrl + Endで跳ぶ最後のセルがA100より前の行にあるか後の行にあるかで違う。
もしC50に跳んだらどちらも変わらない。
C50000に跳んだらRange("A65536").End(xlUp).Select は重い。
Select自体がもともと重いし、たった１回だから体感的に差はないけどね。

＞もしC50に跳んだらどちらも変わらない。
＞C50000に跳んだらRange("A65536").End(xlUp).Select は重い。

A50
A50000

の間違いです。

>>419
上は俺じゃない、何勝手に書いてるんだ？
おめぇ何も分かってないらしいな。
C50とC50000でいいんだよ。

A列の最終セルがA50だった場合、C50000にデータがあるのと
C50にデータがあるのとでは違うんだよ。

おまえ､恥ずかしいな>>420

>>421
俺は>>418じゃないが、恥ずかしいのはあんたの方だよ？
実際にコードを書いて計ってみたら？
もちろんSelectすると差が分からないから、オブジェクト変数への代入の時間をループを回して計測したらいい。

>>422
�dクス、421はただの煽り厨じゃない？
こんな常識知らんやつはいまどき少ないからね。
やってみりゃすぐ分かることだしね。

>>423
やってみりゃ分かると言っても、正しい計り方が分からない人も結構いるかもね。
交互にC50000に入力したり消したりして比べたりしそう。
消した後の最後のセルのリフレッシュ方法を知ってればいいんだが。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 全くわかりません
【4 VBAでの回答の可否】 可

　　Dim resn As Integer
　 resn = InputBox("自作自演に使うためのﾚｽﾅﾝﾊﾞｰを入れてください")
　　　Range("A1").value= "俺は>>" & resn & "じゃないが"
　　Msgbox "A1に入力されました。検討を祈ります。"

すみませんエクセルを使ってとある文字列を作成したくて、上記のマクロを
書いてみたのですが、最終的にA1したあと、クリップボードにその内容を送って
すぐに扱えるようにしたいと考えているのですが、どうすれば良いでしょうか？

383=391=401
おまい誰だよｗｗｗ

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

>>425
A1をコピーする動作を、マクロの記録を使って記録させてみ。

【1 OSの種類 　 　 　 　 .】 Windows XP Home Edition
【2 Excelのバージョン 　 】 Excel 2003 (11.8169.8172) SP3
【3 VBAが使えるか　 　 .】 ほとんど使えません
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 「EXCEL　選択範囲」「EXCEL　選択範囲の1行目が」「･･･1列目が」等で検索しましたがわかりませんでした。

解決したい不具合の内容は以下です。

たとえばA〜Fの列を選択してCtrl+Shiftを押しながら移動すると、普通はA〜Fの範囲が割り込みコピー（？）されると思うのですが、B〜Fのみが割り込みコピーされます。

また、A1〜A5にランダムに数字を入力して、その範囲を選択し、「昇順で並べ替え」を実行すると、A1のみ無視されて、A2〜A5のみが並べ替えられます。（順に6,2,8,1,5と入力した場合→6,1,2,5,8）

しばらく前からEXCELを使っているのですが、このようなことは今回が初めてです。
何かの設定を知らないうちに変えてしまったのでしょうか？
教えてください。よろしくお願いします┌○

>>425
>Range("A1").value= "俺は>>" & resn & "じゃないが"
何だ？もしかして俺に言ってるの？
俺はその関連スレは他には424しか書いてないんだが。

バカやクズどもはほっとけ

>>429
＞何だ？もしかして俺に言ってるの？
いえ、このｽﾚにいらっしゃる全回答者様への質問ﾚｽになります。

＞俺はその関連スレは他には424しか書いてないんだが。

×　関連スレ
○　関連レス

お！ありがとうよ。
本物429とは書かないがｗ

>>425
VBAが全くわからない人が、なんでコード書くんだよ。w

>>428
メニューからデータ→並べ替え...を選択
データ範囲の先頭行を設定

Office 2003 Service Pack 3 のインストール後にブロックされる特定のファイル形式に関する情報
ttp://support.microsoft.com/kb/938810/
これらのファイル形式は安全性が比較的低いため、デフォルトではブロックされる。
Lotus、Quattro(.wk1、.wk4、.wj3、wk1 FMT、.wks、.wk3、wk3 FM3、.wj2、.wq1、.fm3、.wj1)
Dif、Sylk(dif、.slk)
PowerPoint97(.ppt、.pot、.pps、.ppa)
気に入らないならレジストリをいじりたまえ。

ttp://wiredvision.jp/news/200801/2008010623.html
ttp://blog.trendmicro.com/ms-office-2003-sp3-literally-leaves-past-behind/

>>396
お答えいただきありがとうございます。
｢選択した範囲に任意で名前付け｣のやり方がわからなかったので、オートフィルターを使い、点数部分だけ他の場所にコピーしてやってみました。

>>402
お答えいただきありがとうございます。
402さんの仰られた式は以下で正しいですか？

=if(a1="女性",-1,if(rank(b1,b$1:b$11,0)<4,1,""))

>>403
お答えいただきありがとうございました。
あと、>>411で教えてくださった式でできました。
しかし、何故そうなるのか理解できなかったので、自分でもうちょっと考えてみますね。
それと、この式だと｢1｣にならないときは｢0｣と表示されてしまうのですが、｢0｣の部分を空白にすることは可能でしょうか？

>>402
0の部分を空白にしてしまいました。
以下の式で合っていますでしょうか？

=if(a1="女性",-1,if(rank(b1,b$1:b$11,0)<4,1,0))

>>438
私の提案する方法は作業用の列が必要となります。
A列には男性，女性，B列には点数が入っています。

１．IFを使って女性の点数だけ全部マイナス１点にしてしまう。
C1=IF(A1="女性",-1,B1)

２．１．で求めた点数に対してRANKを適用する。
D1=RANK(C1,C:C,0)

３．IFをつかって２で求めたRANK３位以内に１を表示する
E1=IF(D1<=3,1,"")

D列とE列をまとめて
D1=IF(RANK(C1,C:C,0)<=3,1,"")
と書くこともできます。
こうすれば１列節約して２列で実現できますね。

【1 OSの種類 　 　 　 　 .】 Windows　XP　SP2
【2 Excelのバージョン 　 】 Excel XP
【3 VBAが使えるか　 　 .】 いいえ（ほんの少し書換はできる）
【4 VBAでの回答の可否】 可
WEBでホームページをコピーしたときに、画像（アイコン等）とリンク先もコピーしてしまいますが
この画像（アイコン等）とリンク付けをコピーしないようにしたいのですが　宜しくお願いいたします。
例　価格.COMの表をコピーしたときなど

>>440
スレタイよく読めよ

>>440
データだけ欲しいなら、貼りつけた範囲をもう一度別のシートに「値のみ」コピーして、
最初に貼り付けたシートは丸ごと削除しちゃうのが楽かなあ？

>>330で無視されたのでコピペしたのだ
>>441
出来ない・解らないのか　おこんなよ！
>>442
それがめんどくさいので質問してるんだ！

はーーーい、一丁あがり。
できない、知らないと言うことで。さっさと、お引き取りをwww

もう、来るんじゃないよw

なんだ？
リア厨どもが学校始まってイライラしてるのか？
ゆとりだねーー

>>444
やっぱり出来ないのか　でも、たびたび来ます。助言もします。バ〜カ。うんこたれ！

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

助言だと、笑わせすぎだなwww

助言が本当なら、コテハンでな

わかんないときは、おこっていいスレなのだ

バ〜カ。うんこたれ！


は、来るな！


と　ととと、怒ってみるか?
　

わかんないのは、いいけど
自動で「追加シート → コピペ → 元シート削除」のVBA作ってくれないか

落ちる、すべる、遅刻する、失敗する、名前忘れる、マークシートの勘が外れる、ヤマが外れる、行くとこなくなる
落ちる、すべる、遅刻する、失敗する、名前忘れる、マークシートの勘が外れる、ヤマが外れる、行くとこなくなる
落ちる、すべる、遅刻する、失敗する、名前忘れる、マークシートの勘が外れる、ヤマが外れる、行くとこなくなる

HTML形式で貼り付けた後にスマートタグのボタンが出てくるから、
そこで”貼り付け先の書式に合わせる”を選んだらいけたぞ。2007だけどな。

良い具合に、狂ってきたぞ。今日は荒れます。

>>453　　ヒントありがとう。
XPでは書式を選択してやるのが簡単そうだが
やっぱ、一度貼り付けないと駄目か、

>>451
つーか､｢貼付のオプション｣で｢貼り付け先の書式に合わせる｣を選択すれば
書式(リンクや修飾など)や画像は消えるよ

但しこれは貼り付けた後の話であり
"Webブラウザ"コピーした時点で画像やリンクを除去したいなら､それはExcelの話ではなく
"Webブラウザ"やWindowsの話なのでスレ違い

あと､コード欲しいなら>>440とは完全に内容違うからテンプレ書き直して
「追加シート → コピペ → 元シート削除」について詳しい仕様を掛け
どうしたいかはだいたい察せるが､この言葉通りにするなら
追加シートと元シートの内容は画像やリンク含めて全く同じになっても文句言えないぞ

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

ユーザーフォーム枠いっぱいにテキストボックスを貼り付け、
そこに文章を入力しています。

このときのオプションは
MultiLine=true
EnterKeyBehavior=true
ScrollBars=2
として、スクロールが少し動くほどの（一画面に表示しきれないほどの）テキストを入力しています。

このユーザーッフォームを立ち上げると、スクロールバーが一番下までスクロールした状態で
showされるのですが、ｺﾚをスクロールバーを最上で立ち上げる方法があれば教えてください。

>>456　まっとうな意見ありがとう
エクセルXPに｢貼り付け先の書式に合わせる｣は無いようです。
「書式を選択して貼り付け」のみ　でもこれで何とかなりそうです。
VBA作っては、言葉のあやだし、たぶん作ってもらっても使わないと思う。ごめんね、ありがとう

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

7.64
7.423
7.192
7.298
7.381

上記の様な感じの数字が多数あり、7.0以上7.1未満の個数、7.1以上7.2未満の個数…
というように範囲内の数字の数を表示したい場合、どのようにすればいいのでしょうか？
count関数あたりを使えばいい様な気がするのですが、うまくいきません

>>457
真っ当な方法としては､テキストボックスのそういった制御はSendMessageで行う
ユーザーフォームだとちょとハンドル取るのが面倒だけど頑張ろう
因みに｢テキストボックスの制御｣は>>3･7なので､あとはご自分で調べましょう

あとは間に合わせとしてテキストボックスに文字入れてから
SendKeys "^{Home}"
や
SendKeys "{PgUp}"
を使う手もある

>>459
COUNTIF関数2個使うか配列数式で

>>459
A1セルからA5セルまでの範囲でカウントしたい場合
7.0以上7.1未満の個数=SUMPRODUCT((A1:A5>=7)*(A1:A5<7.1))
7.1以上7.2未満の個数=SUMPRODUCT((A1:A5>=7.1)*(A1:A5<7.2))

>>459
いろんなやり方があるなあ。自分は次のやり方で試した。


サンプルの数値がA1:A5に入っているとして、次のように。
式は１つ入れたらあとはコピーすればいい。

B列　C列
7.0　　=COUNTIF($A$1:$A$5,">="&B1)-COUNTIF($A$1:$A$5,">"&B2)
7.1
7.2
7.3
　：

【1 OSの種類 　 　 　 　 .】 Windows vista
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 アウトライン　レベル　追加
すみません、質問させて下さい

商品名、価格、販売数、売上金額が入った表があり、
集計を使って、アウトラインレベル３が詳細、
レベル２が商品毎の合計＆平均、レベル１が全体の合計、平均となっています
この状態でレベル２に、商品毎の合計（要するに現在のレベル２から平均がなくなったもの）
を挿入したいのですが、どうすればよいのでしょうか？
どなたかご教授お願いいたします

ピボットテーブルｗ

>>460
>>461
>>462
回答ありがとう御座いました。
無事、データの整理ができました。

【1 OSの種類 　 　 　 　 .】 WindowsXP、2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい（書けません）
【4 VBAでの回答の可否】 可

連続置換アドイン
ttp://www5.ocn.ne.jp/~botan/download.html#co_4
解説ページ
ttp://www5.ocn.ne.jp/~botan/files/help/renzoku.html

このアドインを使いたいのですが、excel2000ではエラーが出て使えません。
使い勝手がよく、何とか使いたいのですが、同じことの出来る方法、マクロがあれば教えていただきたいです。
また、部分一致は必要なく、完全一致の機能が使えれば十分です。
お願いします。

エクセル2003 XP
IF関数で80点以上のときＡ、８０点未満７０点以上のときにＢ、７０点未満６０点以上のときＣ
それ以外をＤとしたいのですが以下の関数を数式バーに直接入力すると引数が
多すぎる、まちがっていると表示されます。IFを複数入れるやり方とかあるのですか？
またこの式では間違っているのですか？お願いします

IF(D4>=80,"A",IF(D4<80,D4>=70,"B",IF(D4<70,D4>=60,"C","D")))

>>467

IF(D4>=80,"A",IF(D4>=70,"B",IF(D4>=60,"C","D")))

>>【3 VBAが使えるか　 　 .】 はい（書けません）

　　　　 　ｒ ⌒ヽ
　　　　　(´ ⌒｀)　ﾎﾟｯﾎﾟｰ!
　　 　 　 　 l l
　ｶﾀｶﾀ　∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　 （・∀・＃）＜　おちょくってるのか？ｺﾞﾗ!!
　　 ＿|￣￣||＿）＿＼＿＿＿＿＿＿＿＿＿＿＿＿
　／旦|――||/／ ／

>>468
できました。どうもありがとう

2つ教えてください！！
1 B4,C4が80以上の場合は合格それ以外は空白の時の式
2 開始年月日2003年3月21日、終了年月日が2006年10月21日の残りの日数の時の式

1はIF関数とAND関数を使ったのですがうまくいきませんでした。IF(AND(B>=80,C4>=80),"合格","")
2はDATE関数？使い方がわかりません。
アドバイスお願いします。

>>469
あ、すいません。
マクロが使えるかって質問だと思っていました。使うだけならはい。
VBAとなると、書けないのでいいえ、です。

>>471
１）は、B4 と書くべき所が B になっているのでそこを修正。

IF文ですが、falseでもTrueでも、"パソコンが怒ってるお！!" のﾒｯｾｰｼﾞが
出てしまいます。どうすればいいですか？


Private Sub Form_load()
On Error Goto エラ〜だぴょん

　If >>440 = "キティ" then
　　　MsgBox ">>440 はｶｺｲｲ!!"
　Else
　　　MsgBox ">>440 氏ね！"
　End if

エラ〜だぴょん:
　MsgBox "パソコンが怒ってるお！!"
End Sub

うぜえな

>>439
なる程、そういうことでしたか。
丁寧にありがとうございました。

面白いと思って書いてみたけど、見直してみると面白くも何とも無かった・・
逝って来るｳﾂｼ・・

>>393
これって小難しいこと考えなくても、オートフィルタ使えば良くないか？
オートフィルタで男抽出、点数で降順に並び替え、Top3人に1、次に全て表示、点数列で空白セルを抽出、0記入後全て表示。
最初と同じ順序にしたいなら、一列増やして、1から数字を割り振って、最後にそれで整列させれば良い。
どれくらいの数があるのか分からないけど、そんなにシート数が多くないなら頭ではこっちの方が分かりやすいと思う。

>>476
どういたしまして。
男性が３人以下の時などはうまく動作しないのでご注意ください。
>>411さんのやり方もかっこいいですね。

>>478
本当は私もそれをおすすめします。
実務ではそれで十分です。

>>474
Private Sub Form_load()
On Error Goto エラ〜だぴょん

　If >>440 = "キティ" then
　　　MsgBox ">>440 はｶｺｲｲ!!"
　Else
　　　MsgBox ">>440 氏ね！"
　End if

GoTo 440 '←これを追加

エラ〜だぴょん:
　MsgBox "パソコンが怒ってるお！!"

440 '←これを追加
End Sub

http://pc11.2ch.net/test/read.cgi/bsoft/1198283638/176 2008/01/07 23:33:36
http://pc11.2aaat/test/read.cgi/bsoft/1168283638/122 2007/11/09 23:43:36
http://pc11aaaet/test/reaaacgi/bsoft/1198283638/176 2008/05/07 03:33:38

上記のようなデータで大量のものがあるのですが
これを時間順に並べる方法はありますか？

>>481
作業列を作って右から19文字切り取る
それをキーにしてソート

>>393
＞それと、この式だと｢1｣にならないときは｢0｣と表示されてしまうのですが、｢0｣の部分を空白にすることは可能でしょうか？

そのまま使うなら
=IF((A1="男性")*B1>=LARGE(INDEX((A$1:A$11="男性")*B$1:B$11,),3),1,"")

一応エラー処理までいれるならば
=IF(A1="女性","",IF(OR(COUNTIF(A$1:A$11,"男性")<3,(A1="男性")*B1>=LARGE(INDEX((A$1:A$11="男性")*B$1:B$11,),3)),1,""))

念のため再度書いておくけど決しておすすめできる方法じゃないぞ

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

>>483
そりゃお勧めできないだろうね。
なくてもいいINDEX使ってるし。

>>485
配列確定しないためには必要なんだよ。
そんなことも知らないの？

ふーん、あっそうｗ

>>485はその程度しか突っ込む事ができない可哀相な子
まあ確かにINDEXがなくてもいいけどあった方が便利だな

ふーん、あっそうｗｗｗ

>>487.489
不運、あっフォうｗｗｗ

みっともねえ粘着ジジイだな

rand関数、2008年になって仕様が変わってません？

>>492
どうゆうふうに変わってるの？

せんせー、こいつ私が臭いっていじめるんです。
なんとかしてください。

>>493
負の数が出るんすけど

>>495
=RAND()として負の数が出るの？
RAND関数って0〜1未満のはずだよな？？？

>>494
なんだ?　
風呂にはいらない君が悪い。

>>494
ダンボールの家に住めば仲間が助けてくれるよ

>>496
その通り。
去年rand関数使って作ったパスワード発生用ワークシートが
今年開いたらボロボロになってて気付いた。

「Excel RAND関数　バグ」でぐぐったらこういうのが出てきた。
http://aoki2.si.gunma-u.ac.jp/Hanasi/excel/#rand-function
ひどいなこりゃ

何度もすみません>>463ですが、
どなたかお分かりになる方いらっしゃらないでしょうか？
ご教授お願いいたします

>>500
ふ〜ん、そういうことね。確かに2003。
今年になってから出たのはF9キーを規定回数以上押したからかな？

Updateしたら修正され

同僚のExcel2003から送られたファイルを2007で読むと「コンパイルエラー」と出るのだが、どうしたもんか？？
2007はSP1入れてある。
自分でも何で2007にしてしまったのか分からん・・・涙！

>>504
エラーの種類や場所が表示されてない？

>>501
質問の意味が十分理解できないのですが、
レベル２での表示は
　現状：商品毎の合計＆平均
　変更後：商品毎の合計
ということですか？
つまりレベル２で平均が表示されなくなればよいということですか？

ブック内に5つシートがあるとして
そのうち2つのシートを見えないように（シートがないように）することは出来ますか？
エクセル2003を使用しています。

>>507
できます。

そのぐらいならカイル君に聞けばよい。

書式→シートで非表示にできるのか
カイル君さまさまだな。
おまえらほんと役立たず

質問お願いします
図形をコピーして少し縮小して
貼りつけたいのですが可能でしょうか？

>>478
確かにオートフィルターでやった方が簡単なのですが、課題として出されているもので…

>>411
再度お答えいただきありがとうございました。
参考にさせていただきます。

エクセル用語がわからないので教えてください。
名簿や商品管理などのように同じ情報をまとめたもの
を「リスト」と呼べばいいのですか？それともデータベース
等ですか？

リストでいいんじゃないかな

>>513
名簿はリスト
商品管理はデータベース

とは書いてみたものの、そういうのはエクセル用語とはいわないと思う

質問お願いします。
報告書のフォーマットにあるセルに、別Bookにある住所録から名前を選んで
入力する方法を教えてください。
ドロップダウンリストが目的に近いのですが、件数が多すぎて実用に耐えません。
そこで、たとえば、「き」と入力すると、
木村某
北岡某
桐村某
・・・
と絞り込めて、そこから選択できればと思っています。
(あるいは「山」と入力して山田某、山本某、山下某でもかまいません。
　できれば前者のほうが良いです。)
報告書は最終的には印刷して使用するつもりです。
住所録は一般的な名前・住所・電話番号などが列ごとに並んだもので、
頻繁ではないですが、人が増えたり、減ったりすることがあります。
住所録と報告書の場所は、同じフォルダではありませんが、固定しています。


▼━質問テンプレ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード
ドロップダウン・絞込み・コンボボックス・・・

>>513
表

>>511
貼り付けたあとで書式でサイズを変更するのではダメ？

列の1行目が「名前」「住所」のような項目名になっていて，2行目以降に
実際のデータが入っているような形式をリストと呼びますね。
リスト形式でデータを整えておくとデータの抽出，並べ替え，集計がやり
やすいです。

>>519は>>513への返事です。

基本はピボットテーブルです。

>>521
なんか偽者が出てきましたね。
内容には同意します。ピボットテーブルは便利です。
でもややこしいことはやめてほしいな。

どっちも偽物？
ピボットテーブル厨ってexcじゃなかったっけ？

どっちでもいいよ
どうせたいした事かかないし

>>523
そうそう。excでした。
ハンドルを間違えてしまった。
もともと適当につけたハンドルだしこれ以降使うのやめます。

>>518
回答ありがとうございます
Ａ４サイズの図形をＡ５より少し大きい
定型書式に納めたいのです
貼り付けてからだと定型書式も縮小するやり方しか知らないものでorz
写真取り込みの際みたいにサイズの変更ができればありがたいのですが

>>506
説明不足でもうしわけありません
現状のレベル３段階の状態に
商品毎の合計というレベルを２の部分に追加したいのです
結果、レベルは4段階表示にさせたいです

Windows("aaa.xls").Activate
Workbooks("aaa.xls").Activate

この二つのマクロの挙動が条件によって異なるシーンってありますか？
どういうシーンでもまったく持って同じ動きをしますか？

>>528
ブックのタイトルを変更している場合は違う動作になる
というかWindowsの方はエラーになるだろ

>>528
ピボットテーブルがおすすめです

>>527
レベル２の状態で、「商品ごとの平均」行を選択してグループ化を行う。
次に、レベル３の状態で「詳細」行を選択してグループ化を行う。

上手じゃない方法かもしれないけど。

得点　番号 名前　と入力しています。
これを得点に合わせてで行ごとにソートしたいんですがどうすればいいのでしょうか？
お願いします

>>532
得点に合わせて行ごとにソートすればいいんじゃないでしょうか

情報が少なすぎて何言ってんだかわからん

VBAでの質問です。
メイン.xls、サブ.xls、その他.xlsと複数のファイルを開いていて、マクロをメインに書き、
サブの集計をします。サブはCSVで、毎回ファイル名が異なり、その他は
何を開いてるか各人によって様々です。（その他は、無い場合もある）

このとき、メインはThisWorkbook.Nameですが、サブの名前は、どうやって
取得すれば良いでしょうか？

流れとしては、その他が開いてる状態で、まずメインを開き、サブを開きます。
その後、メインのボタンをクリックして集計します。

>>534
｢メイン以外のブック｣を取得する方法ならあるけど
メイン､サブ､その他と､3つのブックを開いてる状態で
サブのみ取得したいとかなら､取得する方法は自分で用意するしか無いよ
因みに｢メイン以外のブック｣ならブックのコレクションから得られる

テンプレ書いてないのでここまでね
あとは自分で調べよう

>534

CSVならわざわざ開かんでもメインからファイル指定すれば？

Workbooksコレクションオブジェクトで開いてるブックわかるから
それをループして処理すればおk

すべてのブックの名前を表示
for each wb in workbooks
　msgbox wb.name
next

メイン(マクロの記述してあるブック)を除外して処理するには
for each wb in workbooks
　if wb.name is not thisworkbook.name then
　　msgbox wb.name
　end　if
next
とか

ああ
>if wb.name is not thisworkbook.name then
じゃないや
if wb.name <> thisworkbook.name then
こっち。すまん

ファイルを開くときのパスを解析するツールでいいのってあります？

>>539
あっても教えるわけないだろ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000と2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ﾊﾞｰｼﾞｮﾝ　vba

質問です
ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙに関するﾏｸﾛをexcel2000で記録、実行しました
既にできている表(支払先と金額があります)からﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙを作り、
ﾌｨｰﾙﾄﾞの設定が最初は個数になっているので、
その部分を合計に変えるというものですが、2000では以下のように記述され、
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("データの個数 : 金額").Function _
= xlSum

2003では以下のように記録されました
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("データの個数 / 金額").Function _
= xlSum

(PivotFieldsの後の括弧内、ｺﾛﾝとｽﾗｯｼｭが変わってしまっています)
このため、同じﾏｸﾛでは動作しません。
2003ではこの部分に来ると
PivotTablesｸﾗｽの.PivotFieldsﾌﾟﾛﾊﾟﾃｨが取得できません
とｴﾗｰがでてしまいます

またこの部分以外にも多くの記述があるため、出来るだけ
2000､2003用などと二つに分けずに作りたいと思っています。

どのようにすれば一つのﾏｸﾛで動作させることができますか？

>>541
わるい、文字化けしてるから読めん
機種依存文字使わんでくれ頼むわ

エクセルで作業中に間違えて保存せずに閉じてしまうことがよくあるのだがこれはもう一回作り直すしかないですか？

>>542
すいません、半角カナですね

質問です
ピボットテーブルに関するマクロをexcel2000で記録、実行しました
既にできている表(支払先と金額があります)からピボットテーブルを作り、
フィールドの設定が最初は個数になっているので、
その部分を合計に変えるというものですが、2000では以下のように記述され、
ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("データの個数 : 金額").Function _
= xlSum

2003では以下のように記録されました
ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("データの個数 / 金額").Function _
= xlSum

(PivotFieldsの後の括弧内、コロンとスラッシュが変わってしまっています)
このため、同じﾏｸﾛでは動作しません。
2003ではこの部分に来ると
PivotTablesクラスの.PivotFieldsプロパティが取得できません
とエラーがでてしまいます

またこの部分以外にも多くの記述があるため、出来るだけ
2000､2003用などと二つに分けずに作りたいと思っています。

どのようにすれば一つのマクロで動作させることができますか？

となってます
宜しくお願いします。

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

オートシェイプのコネクタ接続をテキストボックスにつなげて図を作成しています。
一つのシートに複数のコネクタ接続の線色を赤や青にして、それぞれ別のテキストボックス
に接続先させながら作図しているのですが・・・

「赤線のコネクタ接続の線と、そのテキストボックスだけを表示」
「青線のコネクタ接続の線と、そのテキストボックスだけを表示」

のように線の色によって区別して表示させるVBAとかできますか？
お願いします

>>544
分けたくないならExcelのバージョン取得して条件分岐でもすれば？
複数バージョンのExcelで動かすマクロに限らず複数バージョンのWindowsで動かすアプリでも
これが基本手段だよ

>>545
> 【3 VBAが使えるか　 　 .】 ほとんどできない
ってことは全く出来ないわけではないということなので､解法を教えるからコードは自分で書いてみよう
1) Shapeオブジェクトを全部非表示にする
2) Shapesコレクションの中からコネクタのみを選出して線の色で条件分岐
3) 色条件に一致したら､その線と接続先Shapeを表示

あとはヘルプ読んで自分で書いてみよう
どうしても解らなかったら､書けたところまでコードを貼って再質問どうぞ

>>544
PivotFields(1)みたいにインデックス番号で指定するか、あらかじめ項目名を「データの個数／金額」に統一しとけばいいんじゃない？

>>535
テンプレは必須じゃないみたいだし、バージョンによって記述が
変わるとも思えないんですが？

>>536
CSVのファイル名が予め分かってるなら、わざわざ質問しませんが、
どのようにしてファイル名を知ることができるのでしょうか？
マクロ（答え）でなくても良いので、あなたの案を教えてください。

>>537-538
それだと、メイン以外のファイルは探せますが、サブとその他に
区分けができません。取りあえず、メインを開く前に全て閉じろという
決まりにしようと思います。ありが�d。

> テンプレは必須じゃないみたいだし、

>>1
> ★4 質問テンプレ(雛形)は必須じゃないけど、
> 　　　OSやExcelのバージョン､VBAの可否など(下記テンプレ1〜4の情報)は必須情報。
>>4
> 　2．>>1★4に従わず､必要な情報を出さないと…

> バージョンによって記述が
> 変わるとも思えないんですが？
質問者が勝手に判断して良いことではありません

>>548
初心者と書いているくせに態度がでかい
そんなやつにまともに答えるやつがどれほどいるか

句読点が使えないバカｗｗｗ
エクセルより、日本語の勉強をしろよｗｗｗ

>>548
集計するファイルのルールがないなら、その区別だけは手動でやるしかないかな。
よくやる手は、集計用のフォルダを作って、その中に集計したいファイルを全部放り込む。
で、dir関数使って「そのフォルダの中のファイルをすべて開いて集計」って処理を作る。

>>551
おまえもな

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007単品（新規パッケージ版）
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel2007　付属フォント

excel2007の単品版（Office Personalとかではなくexcel2007
しかインストールできないパッケージ版）をお持ちの方にお聞き
したいのですが、創英角ゴシックとかHG明朝とかのフォントは
付属していてインストールできますでしょうか？
Office2003は２本分もっているのですが、別の新規のPCに
excel2007だけ買ってインストールしたいので。フォントが付いて
いない場合は素直にPersonalを買います。よろしくお願いします。

>>549
書いたところで、549さんに答えられるとも思えないですが・・・

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel2000, 2002, 2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル VBA ThisWorkbook Workbook Workbooks Windows
　　　　　　　　　　　　　　　　For Each Filename ActiveWorkbook Nothing Caseなど

>>550
３名様いらっしゃいましたが何か？
貴方のようなスレ汚ししか書けないなら、無視してください。
他の方の迷惑です。

また沸いてるの？
冬休みの宿題はとうに提出済みだろ
提出できなかったからっていまさら焦ってもしょうがないよ
諦めも肝心
もう一年勉強するか勉強なんて止めるかの２択でいいよ

こいつはひどい・・・

>>555の感想ね

早く答えろよクズども

>>554
フォントが欲しいなら、年賀状作成ソフトを買った方がいいのでは？
安価だし。

>>559
公開トリップだけに、偽者登場（ｗ
皆さんも使ってください。

初心者#?fRpX[hJ

テスト

>>562
激しくワロタｗ
GJ

>>562

つ #｢MUaｦbJy

>>560

日本語のフォントはたぶん何十本と持ってますけど、
仕事でファイルやりとりする際にあまりマイナーなフォントは
使えないので。要は多くのPCにインストールされている
Office系付属フォントのライセンスは付いているの
でしょうか？ということです。

>>565
ライセンスがあるに決まってる。馬鹿か？
創英角ゴシックとかHG明朝とかのフォントなんて、今のPCなら標準みたいなもんだがな。

>>566
ちゃんと読めアホ

職場のAccess2007単品には付いていないように見えたので質問しました。
Excel2007単品持っている人教えてください。
MS明朝とMSゴシックしか使えないExcel2007なんてかなりつらいので。

Excel2007を使う方が稀だし、使う方がバカｗ
そもそもExcelには付属してないし、体裁を考えるなら図形にして
どのバージョンでも読める配慮が必要だ！ｺﾉﾊﾞｶﾁﾝｶﾞ!!

>>568
プロポーショナルフォントを使いまくってるヤツもいるが、数字は読みにくいぞ。
俺はMSゴシックと、海外向けにArialだけあれば十分。

565=568か？
おマヌケだなｗｗｗ

>>570
Arialってプロポーショナルだよね

>>561が本物だとしても>>555がDQNという事実は揺るがないな

>>572
自分で使うときはMSゴシック、海外から来るもの＆送るものはArial。
海外から来るものは殆どがArialだから仕方が無い。

放っておけばいい
俺も答えられないわけじゃないが今回はDQNに付き合いたくはない

>>573
放っておけばいい
俺も答えられないわけじゃないが今回はDQNに付き合いたくはない

>>573
それも公開トリップだから・・・

つ #lN晃z9Y6

てすと

>>546
さんざん頑張ったけどできなかったです
よろしければご助言を・・
>547
ｲﾝﾃﾞｯｸｽ番号が取得できませんorz
適当に1をいれたら名前になるし、2以降はｴﾗｰになるし・・
これさえできればできそうなんですが

先頭の0を表示させるにはどうしたらいいでしょうか？

ユーザー定義ではなくもともと定義されているものの中にあると好ましいです

>>580
書式設定とか、VBAとかを使いたくないって意味か？
こんなのは？
　　=RIGHT("00000" & A1, 5)　　　　'セルA1の数字を五桁で固定表示

'0
って入力すればいいんじゃない

>>580は多分単純に
セルの書式設定＞表示形式＞文字列
が回答だと思うぞ。

【1 OSの種類 　 　 　 　 .】 Windows　XP　SP1
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel　引き算　誤差, 端数

　　　A　　　B
1　452.58
2　452.53
3　=A2-A1　←　ここの答えが-0.050000000000011400000000000000

A1とA2の値は自分で入力したのに、
上記のようになるのはなぜなのでしょうか？

このわずかな端数が後々の計算の誤差に繋がっているので
なんとかしたいのですが…何か方法はありますか？

>>584
少数以下の値の演算誤差というやつですよ
ここ見ておくといいよ
ttp://pc.nikkeibp.co.jp/pc21/special/gosa/index.shtml

すいません、今年短大を卒業して一般事務で就職する２０のピチピチギャルですが、
一般的に企業で事務職に求められるExcelのスキルってどのくらい必要なのでしょうか？

VBAとかをバリバリこなせるような人でないとダメなのでしょうか　＞＜

おしえてくださいよろしくお願いします♥

就職先の職種にもよるんじゃねーの？
一般職ならゼロから作表ができれば十分だと思うが
うちは俺以外は全員、文字と数字打ち込むぐらいしかできねえよ

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

エクセルのファイルを複数開いた時、通常はタスクバーにファイル名など複数出るのですが、
いつの間にか１つのみになってしまいました。グループ化になっている訳でもなく…
代わりに↓のようなアイコンが出来ていました。
ttp://marmotfarm.com/cgi-bin/upload2/source/up94334.jpg

元に戻す方法ってないですか？

すみません。自己解決しました。

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel2000, 2002, 2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル VBA ThisWorkbook Workbook Workbooks Windows
　　　　　　　　　　　　　　　　For Each Filename ActiveWorkbook Nothing Caseなど

VBAでの質問です。
メイン.xls、サブ.xls、その他.xlsと複数のファイルを開いていて、マクロをメインに書き、
サブの集計をします。サブはCSVで、毎回ファイル名が異なり、その他は
何を開いてるか各人によって様々です。（その他は、無い場合もある）

このとき、メインはThisWorkbook.Nameですが、サブの名前は、どうやって
取得すれば良いでしょうか？

流れとしては、その他が開いてる状態で、まずメインを開き、サブを開きます。
その後、メインのボタンをクリックして集計します。

>>516
どなたかお願いします。

>>586
一般的にSUMやCOUNTを範囲指定で使えるぐらいならできるよ
VBAを使いこなせれば自分の仕事が格段に減る
俺は業務の8割以上をVBAで削ってしまったので、
工場に飛ばされそうになってる・・（汗
つってもこのスレのおかげなんだけどね
もちろん回答もしてるよ

>>592
VBA全然使うチャンスがない。たまには使ってみたい。
まじめな質問だけどVBAってどんなことに使ってるか教えて。

>>593
朝の通勤電車、もういつも同じルートだし、VBAマクロで運転してる。

通勤電車じゃなくて、自動車運転って書きたかった。
つか訂正するほど面白いレスでもなかったし落ちるわﾉｼ

早く答えろよクズども

1行ごとに背景色を変える方法ってありませんか？

>>593
逆に考えてみよう
例えばデータ化していないもの・・発注の電話内容や、今年来た年賀状
これらは全て"自分で"電話を取って、"自分で"ｴｸｾﾙに打たなくてはいけない
ここまでは絶対に自分自身の作業だ
だが、一度ｴｸｾﾙに入力してしまえば・・
そこから先は、全てをｴｸｾﾙに任せることができる
俺自身のスケジュールもｴｸｾﾙに補助させている
（さすがに漏れが怖いので、手帳には書いてあるけど）

自分が打つデータ、色々なものがあるだろうけど・・
例えぱ請求（売上）・仕入
これは全て一つのブックにまとめて（以前は企業ごとに別のﾌﾞｯｸとか、悲惨な管理だった）集計・管理できるようにしてるよ
あまり肥大化しすぎると怖いので年で分けるようにだけはしてるけど、それぐらいかなぁ
今俺のPCにあるファイルは
請求・仕入・・後は送付状やお礼状なんていう滅多に使わないものぐらい
とにかく一つのｼｰﾄにあらゆる情報を詰め込んで、そこからvlookupなどで情報を引っ張ってくるといい
ただそのﾃﾞｰﾀﾍﾞｰｽを作るｾﾝｽもいるんだけど・・
そこは慣れないとちよっとうまくいかないかもしれない
まぁ、ｶﾞﾝﾊﾞﾚ
このｽﾚで聞いてくれればいつでも応援するぜ

>>597
http://www.relief.jp/itnote/archives/001319.php
ちなみに検索用語は「1行ごと　色を変える方法」だ

>>598
ありがとう！さらに聞いてもいい？
売上とか仕入の集計だけだとVBA使わなくていいでしょう？
もっとこういうことにVBA使ってる便利だよという例が知りたいのです。
excel活用の幅がひろがるかなと思って。

>>600
単純にA企業がいくら、B企業がいくら、C企業が・・なら問題はない
sumだけで事足りる

が、問題がない企業なんて無いんだな、実務では
どこかで集計漏れやらなんらやらでてくる
下手したら今までの契約に無い計算方法が出てくる
ついでにというと社長命令で、何もしてないけど入金だけがあるので売上を上げてくれとかいう
わけのわからん事態にもなってくる
こういうあまたの経験を経て、sum、if、vlookupが使えれば非常に楽になるということさ

いくらエクセルだけを極めても、その会社の仕組みを知っていなければ
それほど意味がないというコト

ただ、その会社について全ての売掛金・買掛金・経費・人件費を把握し、
それがどういう情報に基づいて計算されたか知っていれば、
VBAはとてつもなく役に立つ

・・ややこしいなｗ
要はバランスが大事なんだよ

あとは・・
そもそもその会社にちゃんとしたシステムが組み込まれてれば、
そんなに必要ないかもしれない
一部上場企業なんかだと、ｱｸｾｽが使えればとんでもなく楽になる可能性があるよ
ただ、その会社の中身を見てみないと分からないけどね

以上、上場と零細の事務を両方体験したものからでした

>>601
実務体験がある方ならでは現実的なお話ですね。
上の命令でわけわからん事態とか非常に同感です。
私の勤め先は上場はしておりませんが零細よりはやや大きいかというくらいでして
売上や仕入を管理するシステムが稼動しています。
そのシステムからデータをダウンロードしてアクセスで加工したりもします。

このような使い方だと全然VBA使うチャンスがないんですよね。

>>602
アクセスを使えるなら、むしろそっちを伸ばした方がいいと思うよ
本社のｻｰﾊﾞｰにｱｸｾｽして、そのﾃﾞｰﾀをひっぱってきて・・
ってするだけで上司が無駄に喜んだりね

ただ興味本位でVBAを覚えたいとかなら、
このスレで回答者（質問じゃない）になってみたりするといいかもしれない
その経験はきっと役に立つ

>>603
なるほどなるほど。
ありがとうございました。

>>516 >>596
コンボボックスのAutoLoadプロパティをTrueにするのはダメなんですか？

アンカーミス失礼
>>516 >>591
コンボボックスのAutoLoadプロパティをTrueにするのはダメなんですか？

>>604
・・そろそろ寝る
あと、質問＆その質問の回答でもない限りコテは控えた方がいいよ
（でしゃばってるように見える）
他に聴きたいことあったらメールでも送っておくれ
スパムでも広告でも踏んでやるよｗｗｗ

落ち　ﾉｼ

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

ネカマと出会って・・・
アッーｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

はじめまして。よろしくお願いします。

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


A7からG18889までのデータがあり、それを検索する窓をシートの先頭か別のシートにつけたいと思います。
A列にある名前を入れたら、対応するB、C、D列のデータが見られるようにしたいです。

それをするにはGGET関数を使えばいいとのことで、四苦八苦しながらなんとか入力していたのですが、
いわゆるあいまい検索ができないことを知りました。

ふつうの検索エンジンのようにあいまい検索をするには、どのようにすればいいでしょうか。
たとえば、
鈴木
と入力したら
鈴木太郎、鈴木花子…のデータをよびだせるようにしたいのです。
データベースとなる表には、一部が重複するデータがかなりあります。(薬品の名前の表です)
なので、GGET関数では実用的ではないと思いました。

VBAを使うのだと思うのですが、VBAを使ったことがありません。どのようにすればいいのかわからなく、質問させて頂きます。

>>610
俺はFind関数等で見つけたらフラッグを建てて、
フラッグが建っているものだけを抽出してる。
重たいけど。

vbaでもっとイイ方法があったら俺も聞きたい。

>>610
ヘルプで　like を見たら？

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

http://allabout.co.jp/computer/msexcel/closeup/CU20071205A/index.htm
のサイトの記事を見ながら商品売上情報を入力して、解説の通り円グラフを作成してみたのですが、
グラフウィザードから円グラフを作成したときには問題ないのですが、F11キーを用いて
円グラフを作成した場合に、円の周りに四角くねずみ色の枠が出来てしまうのですがこれは
どうやったら消せるのでしょうか？教えてくださいお願いします。

すいません、プロットエリアの枠と領域を非表示にしたらできました。おさわがせしました。

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

関数があるセルをコピーして、値のみを別のセルにペーストするとき、
いちいち「形式を選択して貼り付け」→「値」にチェックを入れる手順が面倒です
Ctrl+Vを押したときに値のみをペーストするような設定はありますでしょうか？
どなたか教えていただけると助かります
お願いします

>>610
普通にオートフィルタじゃダメですか。
手動でオートフィルタがかけてあると言う前提で。^^
Sub test()
　　Dim Jkn As String
　　Jkn = Application.InputBox("条件を入力", Type:=2)
　　If Jkn = "False" Then Exit Sub
　　With ActiveCell.Worksheet
　　　　If .FilterMode = True Then
　　　　　　.ShowAllData
　　　　End If
　　　　.AutoFilter.Range.AutoFilter 1, "=*" & Jkn & "*"
　　End With
End Sub

>>615
アプリケーションキー→S→V→Enter

>>617
そのやり方をやっているのですが、やはりこの方法しかないんでしょうかね…

>>615
値のみ貼り付けするマクロを作って、
マクロのダイアログ（Alt-F8）でそのマクロのオプションを選択。
ショートカットキーを指定できるので、vにする。
（shift-vとかの方が無難な気もするけど）

マクロはこんなんでいいんじゃない。
Sub 値のみ貼り付け()
Selection.PasteSpecial xlValues
End Sub

>>618
画面上にトグルボタンか何か置いといて、
トグルがONの時のペーストは値貼り付けにするようなVBAってできないかな？

>>619
すげー！できました
ありがとうございます！
>>620>>617さんもありがとうございます！
助かりましたm(_ _)m

>>612
ありがとうございます。
検索してみましたが、>>616さんのやり方でやってみることにしました。
アドバイスありがとうございました。

>>616
ありがとうございます。
さっそくやってみましたところ、考えていたのに近い動作になりました。
ご丁寧に書いていただき、助かりました！

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

BINOMDISTを使わないで二項分布計算出来る方法教えてください
Windows Excel Mobile 6で使える関数は
abs, acos, and, asin, atan, atan2, average, choose, columns, cos, count,
counta, countblank, countif, date, datevalue, daverage, day, dcount,
dcounta, ddb, degrees, dget, dmax, dmin, dproduct, dstdev,
dstdevp, dsum, dvar, dvarp, error.type, exact, exp, fact, false,
find, fv, hlookup, hour, if, index, int, irr, isblank, iserr, iserror,
islogical, isna, isnontext, isnumber, istext, left, len, ln, log, log10,
lower, match, max, mid, min, minute, mod, month, n, na, not, now,
nper, npv, or, pi, pmt, power, product, proper, pv, radians, rand, rate,
replace, rept, right, round, rows, second, sin, sln, sqrt, stdev,
stdevp, substitute, sum, sumif, syd, t, tan, time, timevalue,
trim, true, trunc, upper, value, var, varp, vlookup, year

です
宜しくお願いします

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002（OfficeXP）

オートフィルタを付けるのも無くすのもSelection.AutoFilterなんですが、
オートフィルタが付いてたら無くし、無かったらそのままにするのは
どうすればいいでしょうか？

すいません、逆です。

【誤】
オートフィルタが付いてたら無くし、無かったらそのままにするのは
どうすればいいでしょうか？

【正】
オートフィルタが無かった付け、付いてたらそのままにするのは
どうすればいいでしょうか？

>>623
計算方法は数学の分野です
計算方法が解ってから､それをExcelで使える式に直すのがExcelの分野です

>>624-625
AutoFilterModeでオートフィルタの有無を確認して条件分岐すれば良い

エクセル2003使用

Sub 有り()
'
' 有り Macro

'

'
Range("B5:P9").Select
Selection.Interior.ColorIndex = 15
Range("B5:P9").Select
End Sub
Sub 無し()
'
' 無し Macro
'

'
Range("B5:P9").Select
Selection.Interior.ColorIndex = xlNone
End Sub

このようにマクロをつくり（記録して少々修正）
コントロールのチェックボックスを２つ用意して
それぞれ割り当てましたが動作しません。どこらへんが悪いのでしょうか？

□有り　　　　□無し　

↑のような感じです。

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

宿題で、ある表の合計・平均・大きい順の順位をだす
ということを関数使わずにＶＢＡでやれというのが出たんですが

こういう場合 合計や平均を出すのに
Cells()Value="" の""に関数入れたり
functionを使ったりしてもだめなものなのでしょうか？
また、他の方法があるのでしょうか？

友人の話ではここの部分は出来てあたりまえな感じで
説明はなかったそうです

提出日まで授業がないので講師へ質問はできません
法学部なのでこういったことは慣れてないのですが
そういった常識みたいなのがあったら教えてください

やはり、自分で解決したいので質問を取り下げさせて下さい。
スレ汚しすいません。

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

お金の枚数を出すにはどうしたらいいですか。
10000 5000 1000 500 100 50 10 5 1
57643 5 1 2 1 1 0 40 0 3
と出したいです。

なんか見づらいですね。
　　　　　 10000 5000 1000 500 100 50 10 5 1
57643 5 1 2 1 1 0 4 0 3

>>631
最初の５をどうやって計算するか、では次の1は？つうのをまず紙に書いて
計算式を作ってみること。
それからExcelを始める。

>>632
ようはExcelの問題ではなく算数の問題が解けないから出来ない。

>628は日本語の問題だな。
これまでの講義の流れからいって講師が何を求めているかは分かるはずだろ。

>>630
整数商を出すのはINT関数内で除算
配列積の和を出すのはSUMPRODUCT

あとは他の人も言ってるとおり算数の問題なので自分で解こう

>>630
金種表でググってから来いよ

>>630
全部一円玉にすりゃ簡単だべさ
そげな計算なんて必要なかんべ

>>636
簡単だけど両替手数料が36,000円くらいかかるね

じゃぁ最後金額-36,000円を加えれば完成

いや 金額＋36000円だお〜

>>597
>1行ごとに背景色を変える方法ってありませんか？
こんなのはどう？
http://hp.vector.co.jp/authors/VA033788/kowaza.html#0115

あぁ、だいぶ悩んだけど事故解決。
セルの色をどうしてもパレット以外の色を指定したかったんだけど、
vba使わなきゃできないのね。


★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)
　 ･ セルや文字色にパレット以外の色を指定する (VBA)

作ってあったファイルが全て開けず、その前の灰色の画面しか出ません。
ファイルじゃなくエクセルは開けて新規作成画面が出てきます。
メニューからも開けません。壊れたのでしょうか？

>>630
中途半端にExcelが使えるいまいちなやつは
=INT(($A2-SUMPRODUCT($A$1:A$1*$A2:A2))/B$1)
{=INT(($A2-SUM($A$1:A$1*$A2:A2))/B$1)}
などととやるかな？
利口な人は掛け算と引き算とINT関数のみで答えを出す。
MOD関数も使わん。

>>630の異常な人気に嫉妬

で、利口な>>643はどうやるの？
2000円も考慮してね

630の様な質問はナップザック問題と言って、みんな知ってるよね
過去スレ見れば似た様な質問と回答がたくさん出てくるぞ

金種表がナップザック問題！？
こいつは大笑いだ。

【テンプレ.】 WindowsXP、Excel2003、マクロの記録と+α、VBAでの回答の可

グラフの背景にローカル画像を指定する動作をマクロ記録させると
　　Selection.Fill.UserTextured TextureFile:= "C:\aaa.jpg"
と、絶対パスつきの画像ﾌｧｲﾙが入力されています。
この変更されたｴｸｾﾙファイルを保存して一度閉じ、元画像ﾌｧｲﾙ（C:\aaa.jpg）を消します。

再度このｴｸｾﾙﾌｧｲﾙを開き、同じく画像を指定する動作を記録させると
（今回はもともとaaa.jpgの背景を、もう一度aaa.jpgに指定するという意味の無いものです）

　　Selection.Fill.UserTextured TextureFile:= "aaa"

このように格納されたTextureFileの中からaaaという名の画像を取り出しているようなのですが、
この記録されたマクロを再生すると、この行でエラーになります。
　　実行時エラー　5
　　　プロシージャの呼び出し、または引数が不正です。
と出ます。　（記録されたマクロを一切編集せず再生しただけです）

ちなみに別の既存のTexture画像ファイルを指定した際のマクロは
Selection.Fill.PresetTextured PresetTexture:=msoTextureCork　'ｴｸｾﾙ既存コルク画像
となっており、これは記録されたマクロを再生してもうまく実行されます。


長くなりました。やりたいことは3つです。
1：aaa.jpgの画像指定を元画像なしに、マクロで実行したい
2：aaaから、既存の異なるTexture画像へ変更すると、再度変更するときにaaaが選択肢から除外されるのですが、
　aaaの元ファイルなしに、再度aaaを選びたい。
3：2と重なる部分ですが、2の仕様により複数のユーザー指定画像が選択肢に保存できません。
　元画像なしに、複数画像を選択できるようにしたい。

このTextureを変数に格納のようなことができればなと思うのですが、
何かいい方法がございましたらお願いします。

自己解決しました

>>626
有難う御座いました

自己解決しました

自己解決しました

病院行け

>>626
こんな感じでいいでしょうか？
Officeが入ってるパソコンは、今お姉ちゃんが使ってるので試せません。

Range("A1:G1").Select
If Selection.AutoFilterMode Then
　　GoTo 100
Else
　　Selection.AutoFilter
End If
100

>>653
AutoFilterModeはSelectionじゃなくてWorkSheetオブジェクトのプロパティだから

If Not AutoFilterMode Then Range("A1:G1").AutoFilter

GoTo･･･

>>645
そんなの簡単だから自分で考えろ。

B2=INT(A2/B$1)
C2=INT(MOD($A2,B$1)/C$1)
ってやって、C2をD2〜J2にコピーでいいんでないの？
2000円札可にするなら5000と1000の間に2000と入れて列を増やすだけ。

>>656にはできないことがわかった

>>657
2000円が入るとそれじゃむり

>>657
それだと57000円だと58000円用意することにならないか？
2000円を使わないのであれば問題ないけどね。

>>658
無理じゃねーよ。
>>643の意味が分かる人は簡単にできる。

あっそうか。1000の位が5以上の時に1000円札の枚数が反対になるのか。

全体的に、もうちょっと簡単にできそうな気もするんだけど、俺にはわからん。

質問スレに自分で考えろとか書いて、どんだけKYだよ
初心者相手にしかいばれないネット弁慶のくせに
ちゃんと答えを書いてくれるだけ、せんせーのがマシだったな

>>650には期待しない
>>662さんお願い教えて

期待しないのは>>660だ、スマン

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

　とある名簿を「名前(漢字)」でソートをかけると

　めいぼ１
　名簿２
　めいぼ３

　のようにソートされてしまい、JISコード順にソートされません。

　で、「振り仮名」の存在を知り、「編集」から「」入力で当初すませていたのですが、データ数が
　数千件にもなり、手入力では処理が追いつかなくなりました。

　そこで、何かよい方法はないものでしょうか?ご教授くださいませ。

　また、PHONETIC()の逆(振り仮名をつける)関数はあるのでしょうか?

>>657
D列が2000円、E列が1000円札として、とりあえず1000円のとこはこうするかなあ
=INT(MOD($A2-C2*5000,D$1)/E$1)
MODを使わないと式が長くなるだけだと思うんだけど。

でも、今流通してる2000円札って、いまだにタンスに残ってる500円札より枚数が少ないらしいよ。
ttp://www.chunichi.co.jp/article/national/news/CK2008011202078998.html
もう2000円のことは考えなくてもよさそうな気もする。これじゃ答えにならんか。

>>665
もともとふりがなのデータが存在しないところに正確なふりがなを付ける方法はないんだけど、
不正確でもいいのならこういう方法がある。
ttp://hp.vector.co.jp/authors/VA016119/hajimete/cell1.html

この方法は簡単ではあるけど、日本語入力の学習結果に左右されるから、
パソコンごとに、あるいは実行するタイミングごとに結果が変わってくるので注意。

>>665 が、社会保険事務所で働いている件について

>>653
その場合、GoToは不要。

どーでもいいが、2000円札なんて、まだ手にしたことがない・・・　orz

関数よくわからんけど

大きいお札の順に　金額を割って切り捨てにして枚数を出していくのはどお？
1万円札：57643/10000=5枚
5千円札:(57643-50000)/5000=1枚
2千円札:(57643-50000-5000)/2000=1枚・・・
原始人でｺﾞﾒﾝ

民さん色々ありがとう。
金種表でぐぐってなんとか出来ました。
金種表って呼ぶことを知らなかったもので。
成りすましの>>653って誰？

成りすましは>>650でした。すんまそん

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 白地図・VBAなど
エクセルの表と白地図を連動させる良い方法はありませんか？
できれば町名単位に区切られていて、
エクセルの表で指定した町名の枠線を太くなるようにしたいのですが・・

　　　 10000 5000 2000 1000 500 100 50 10 5 1
57643 7643 2643 643 643 143 43 43 3 3 0
　　　 5 1 1 0 1 1 0 4 0 3

>>673
なんじゃそりゃ？
必要な数だけだせないのか？

上は674の間違いね。

俺も>>674>>643
に賛成かな
見にくいんなら表示しないようにすればいいだけだし
実務で使ってるならそれだけできれば十分じゃね？

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

質問ですが、組み込みダイアログボックス（例えばApplication.Dialogs(xlDialogPrint).Show）の 
ウィンドウハンドルを取得するには、どうすればよろしいでしょうか？ 

APIを使って行うと思いますが、Excel本体やユーザーフォームのウィンドウハンドルの取得であれば 
ググれば出てきたのですが、組み込みダイアログボックスのウィンドウハンドルの取得は 
見つけることができなかったので、よろしくお願いします。 

>>678はマルチ

>>677
一人分ならそれでいいだろうけど、何人分も計算するなら使いにくくないですかい？

そんな前提は聞いてねーw
まぁ複数あるなら一行にしたほうが後々改良したりするとき楽だろうなな

すまん、A列を２結合セルにすりゃいいか。

書いてなくても容易に想像できる。
一人分ならわざわざExcel使わず暗算のが早いし、金種表は複数並べて集計することが多い。

式やアルゴリズムの最適化も大事だけど、関数やVBAの知識よりも、
実際に使う状況を予測する能力の方が実務では重要だったりする。

例外は学校の宿題。

このスレの一番の問題は実務を知らない頭デッカチゆとりーまんが多い事

だから何？

>>685
ニートはさっさと就職しろってこと

>>685
だから>646や>681のような恥ずかしいレスがよくつくって事
実務は宿題とは違うんだよ、宿題とは。

Sheet1で指定した顧客番号をもとにボタンを押すとSheet1を印刷し、
その都度顧客リストが書いてあるSheet2に記録、
指定した番号を順送りで次番号へとカウントアップしていくPGM。
Sheet２を参照する際、A列のみを参照するようにするには、
どう書けばよいのでしょうか？

Private Sub CommandButton1_Click()

Dim A as integer
Dim B as Object

A = Range("A1").Value

Worksheets("Sheet2").Activate
Worksheets("Sheet2").Cells.Find(A).select　’ここでA列のみを参照したい

ActiveCell.Offset(0,3).select　’Sheet2の３列目に印刷のしるしを記録
ActiveCell.Value=A
Worksheets("Sheet1").Activate
Worksheets("Sheet1").PrintOut
Range("A1").select
Range("A1").Value = Range("A1").Value +1

End Sub

このスレの空気は俺にあってんだけど回答者のレベルが低すぎるよな
まともな回答欲しいやつはMOUGにでも行ったほうがいいよ

正直、使えるなら何でもいいと思う
それで他に不具合でるなら問題だろうけど
ところで>>673は無理そうですか？

つーか、ブライドばかり高い香具師が多杉

週を求める関数は
【WEEKNUM】を使う事は理解できました。
ただ、年をまたぐ際、6週目としたいのに-46週目となってしまいます。

2007年12月31日,5週目
2008年01月01日,-46週目　　←ここを6週目にしたいです。

今6週目にしたいセルにはいってる関数は
[=WEEKNUM(A105)-WEEKNUM($A$2)+1]
※参照セル／A2→07年12月01日
なんと書けば6週目になるんでしょうか？

【XPPRO/Excel2007/操作初級】

>>690
>>673はエスパーじゃないと答えられません

要するにセルの値に応じた任意の画像を任意の場所に表示できればいいんだろ
VBAでやればいんじゃね？おれはわかんないけど

>>673
地図の大きさはどれぐらいで、どこに表示されてんの？オートシェイプ？ユーザーフォーム？
表で指定した町名ってのもよくわからん。町名の入ったセルをクリックするってこと？

>>654
コンパイルエラー
EndIFに対する IFブロックがありません。
というメッセージが出てしまいます。
IFをすぐ上に書いてるのに、何でダメポなんでしょうか？

Sub オートフィルタ()
　Range("A1:G1").Select
　　If Not AutoFilterMode Then Range("A1:G1").AutoFilter
　　End If
　Range("A1").Select
End Sub

End Ifを無くすとエラーは出なくなりますが、オートフィルタが
無ければ付くのに、付いてるとき無くなってしまいます。

>>692
WEEKNUMの結果どうしを引くんじゃなくて、先に引き算してからWEEKNUM
=WEEKNUM(A105-$A$2)+1

>>696
IFの構文は２つある
THENの右に処理を書くと、行の右端にEND IFが省略されているものとされる
だから
　　If Not AutoFilterMode Then Range("A1:G1").AutoFilter
　　End If
この場合のEnd Ifはいらない
どうしてもEnd Ifを書きたいなら
　　If Not AutoFilterMode Then
　　　　Range("A1:G1").AutoFilter
　　End If
こうするべき

>>624 これで。

'現在のワークシートにA1セルから始まるオートフィルタを設定する
'フィルタが無い時のみ設定する
'A1セルから始まるデータが無いと失敗するので注意

With ActiveSheet
If Not .AutoFilterMode Then .Range("A1").AutoFilter
End With

>>696
End Ifを付けるのは、Thenのところで改行した時。こんなふうに↓

If Not AutoFilterMode Then
　　Range("A1:G1").AutoFilter
End If

そのまま続けて書いた時はEnd Ifを付けない決まり。

>>694
まさにそんな感じです
>>695
地図はjpgで町名ごとに区切ったものを用意してあります

最初に表を作り、A列に町名、B列に1を入れるとその町名の地図を表示させたいのですが…
大きさはA4の半分です

出来れば地図を同時に表示させる場合(最高３つ)
それらを並べて表示させたいです

>697さん
完璧です！
感謝です！

>>698>>699>>700
皆さん、ありが�d!!
うまく出来ました。

Sub オートフィルタ()
　'Range("A1:G1").Select
　With ActiveSheet
　　If Not .AutoFilterMode Then .Range("A1").AutoFilter
　End With
　'Range("A1").Select
End Sub

>>689
Mougで金種計算の質問してみなよ。
>>643みたいなアフォなSUMPRODUCTの回答するやつがが絶対にいるｗ

＞Mougで金種計算の質問してみなよ

これ、笑うトコでつか？

>>705
そ、あそこは笑えるくらいひどいのがいぱーいいるよ。

結局答えられずに他力本願なんだなｗｗｗ

意味ふめー

エクセルより日本語の勉強をした方がいいね

日本語より人間性を勉強した方がいいね

>>704
質門です！
SUMPRODUCTとMOD使わないで金種表を作るのはどのようにすればいいですか？
Win XP Excel2003です

答えられなければあなたはDQN確定です＾＾

文字列関数でつくればいいじゃない

>>667
　大変参考になりました。ありがとうございます。

>>712
こいつ真性のバカ？

しらねwww

事故解決しました。

>>706
ここは、笑えるくらいひどいのがいぱーいいること　は　秘密だなw

>>711
金種計算ならMougで質問すればいい。
どうせ答えたところでお礼もできないDQNだし。

>>718
MougみたいなDQNの集まりではなくあなたに回答していただきたいのです。
よろしくお願いします。

面倒なことをしない香具師に何が出来るか？

>>718
無様

自分でより良い回答を持ってないのに､
他人の回答をバカにしちゃうと後が辛いね

(立場上)引っ込むに引っ込めず､(回答も)出すに出せずw

うるさい！うるさい！うるさい！おまえらみんなしねぼけくそかすヴぁーかばーかばーか！

明らかに偽者だけどワロタｗ

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

特に困っている訳ではないのですが、基本的なExcelの仕様でわからない
ことがあり質問いたしました。

Excelでは、前の行や列の設定が、勝手に次の行や列に反映されることが
あります。
例えばのA1から3背景色を赤にしてると、次のセルのA4に何か値なり文字を
入力したら、背景色が赤になるという現象です。
ただ、起きない場合もあります。

1．　これはどこで設定されているのでしょうか？
2．　また、どういった場合に起きる現象なのでしょうか？

恐らくは検索のキーワードに問題があったため、解答にたどり着け
ませんでした。
ご存知のかたがおられましたら教えて下さい。

>>725
> ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
> ･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
> 　　ここは技術的な質問のみで。

ツール-オプション-表示-リスト形式および数式を拡張する

オンにすると、リスト末尾に新しく追加する項目の書式が、リストの他の部分の書式と
自動的に一致するように設定されます。各行で繰り返されている数式もコピーされます。この機能が有効になるためには、
新しい行の前にある 5 行のうち少なくとも 3 行に書式や数式が入力されている必要があります。

金種計算では基本的に繰り上がりや繰り下がりは考慮しなくてもいいから、
下4桁を文字列として1文字ごとに分解して処理するって手もあるかな。

かえって面倒な気もするけど。

>>728
それって>712と同じ考え方でしょ？
5000円とか50円が苦労するのとコピー元を作るのが大変

まー好きにやればいいじゃない　10人いれば５通りくらいのやりかたはあるんだから

>>727

ありがとうございます。
リスト形式および数式を拡張するをオフにすると機能が切れました。

>>726
すいません。仕様は（実際は機能であり仕様でなかったのですが・・・）
質問できなかったのですね。。。
以後気をつけます。

以下が意味する数式を一セルで書けますか？
={COMBIN(n;10)≦A1|nの最大値}

すいません、やっぱり修正
={COMBIN(n;A2)≦A1|nの最大値}
上記のセル位置をB1とし、A2からCOMBINの引数rを任意に指定します。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 コンボボックス　ふりがな

コンボボックス内に入力された文字のふりがなを取得したいのですが、
可能でしょうか？
http://www.accessclub.jp/bbs2/0017/beginter05890.html
のページをとりあえずコピペしてみたのですが、うまくいきませんでした。
まだVBAを勉強し始めたところで、
上記ページの内容が理解できるほどには、分かっていないので･･･

>>734
とりあえず貼ってあるリンクの
アドレスを声を出して読んでみろ

>>735
おまえはこのスレのタイトルを読んでみろ。
このスレで聞いてるんだからエクセルで同じようなことをしたいって意味だと
わかるだろうがよ。
わからないならレスすんな、出来ないなら出来ないって言ってやれ。
めんどくさいならスルーしろ。

>>732-733
書けますよ。
でも､>>4★ルールを無視すると…の2に該当するので
書き方は自分で調べてね。

>>734
｢入力された振り仮名｣､つまりキーボード入力内容を取得するのは面倒だけど
｢文字列の読み仮名｣ならApplication.GetPhoneticで簡単に取得できる。

どうしても｢入力された振り仮名｣を取得したいなら､セルに入力させて
それをコンボボックスに反映させた方が手っ取り早いが
それもダメだというならExcelとは関係ない話になっちゃうので>>3･7だね。

734で一個書き忘れてました。
ユーザーフォームのコンボボックスです。すいません。

>>737
｢文字列の読み仮名｣の場合はどうやるんでしょうか？
furigana=Application.GetPhonetic(combbox)では
読み仮名が認識されませんでした

>>735
>>736さんの書いてるとおり、エクセルで同じことがやりたいってことで

いろいろ書き足りなかったみたいですいません

>>711
答え既に出てるだろ？
実務に使えるようにしたければ、ちょっと工夫するだけだって。
その工夫が出来ないな、所詮実務は出来ないってこと。
君はDQNだから実務は出来ないかもね。

>>718と>>723は成りすましの基地外です。
病院へ逝け。

>>739
恥ずかしい奴だなw

ヴァカはほっとくにかぎる。
しかし何で>>674をちょっと工夫する程度の頭脳を持ち合わせてないんだろうね。

>>739も>>742もヴァカ
ヴァカはほっとくに限る

ハイハイ、君は天才。
紙一重とも言うｗ

言っとくが天才は743だからね。

ワシはバカボンのパパと同い歳なのだ(実話)

それがどうした？
わしは一つ上だ。

　　　　 ∧_∧
　　　　(`･ω･)
　　　 (っ¶⊂
　　　 ／^^⌒^へ
　　　/ (▼＼))▼)
　　 ξ ﾐ ￣ ⌒∞＼
　　彳:》|＼＿＿＿_)
　ゞ》/　 ＼∨VVVV∨
`彳》/　＼υ￣""￣ﾉ
ゞ》/　＼ ^^^""|"
彳ｼ　 ＼ ⌒＼　|⌒＼
ｿξ　 　`VVV　 |`VVV
入(　　ソ 　　 ﾉ)
`(　 ノ-ー-､＿／ー、
(　 (＼＼＼　(＼＼＼
∪＿|ﾛﾛ|／ ＼　＿ヽ＼
|_田|ﾛﾛ|| ﾛﾛ|_|田(;;;

m9（＾Д＾）ﾌﾟｷﾞｬｰｰｰｯ

２００３　ＸＰ　エクセル関数のみで（ＶＢＡは不要）での回答をお願いします。
・質問
Ａ１セルに、関数で現在のセル位置の行番号を常時、返す（表す）ようにしたい。
式を教えてほしい。

・状況
今のところ、ＶＢＡではできるものの、現在のセル位置等いろいろと１日検索・調査してみたけど関数ではできないのかと思っている。
=get.cell(2) とかやってみたけど正しくない関数エラー　で終わっている。

関数だけじゃむずかしいんじゃない？
関数というのはセルの値を変更しないと計算しないしな。

F9 キーを押して　更新するとしてもいいですが。

>>750
「現在のセル位置」という言い方がよく分からないが…

アクティブセルのことならそれは関数で取得できないと思う。
何らかの値を与えて検索するという感じならできるでしょう。

はい。現在のセル位置の行番号＝アクティブセルの行番号です。

ほんとに、できるものがないですね。
でも、できそうな気もほんの少しあって・・・

>>6　で、関数式で、できないこと
･ 関数式でセルの選択状態を取得する (VBA)
と　なっているのですが、使い方はよくわかりませんが、=get.cellが以前は使えていたことから、ありそうな感を持った次第です。

あったら、という程度で、過ごしてください。サンクス。

VBAは嫌だけどExcel4.0マクロならOKって事かい

最近EXCELでやりたいことは何でもできるようになったんだけど、
少しここで回答者として俺の実力を試しに来た。
levelの高そうな質問大歓迎

>>757
Excelから複数起動した他のExcelの各オブジェクトを取得したい
ひとつはGetObject(,"Excel.Application")で取れるけど
教えてけろ

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

lookup関数で、検査範囲を年度内の月（4,5,6,7,8,9,10,11,12,1,2,3,)として、
検査値に月数を入れると、4〜12は対応範囲から引いてくれるのですが、
1〜3の月でエラー(♯N/A)になってしまいます。
どなたかエラーにならずちゃんと引いてくれる方法を教えてください。

>>758
>>3･7


>>759
=VLOOKUP(検索値,範囲,列番号)
↓
=VLOOKUP(検索値,範囲,列番号,FALSE)
にしてみな

＞VBAは嫌だけどExcel4.0マクロならOKって事かい
get.cellから、Excel4.0マクロが引き合いに出てきたのかも知れませんが、
ＶＢＡが嫌なわけではなく(既に使っている)、ただ単に、次の理由で関数でできないかと。誰かやっている人はいないかなと・・・。

１）アクティブセルの位置を返す関数があってもいいはずと思ったこと
２）セルに直接、=get.cell(2)をいれるとはねられるものの、なんとなく、動きをおもしろく思ったため。

>>759
LOOKUP()は検索値が昇順に並んでないとエラーになるんだよ
並び替えるかVLOOKUP()をつかえ

>>760 >>762
ありがとうございます。できました！

>>757
ネットワークドライブ上に、VBAを組み込んだエクセルファイルを置いています。
これを、どこかの端末のＰＣが開いて実行している時に
他所のＰＣで実行しようとすると、何も起動しませんし、何も起こりません。
そこで、どこかで既にVBAを実行中の場合には、メッセージを表示させるとかして
ユーザーに通知したいんですが、どういう方法がありますか？
ただし、このエクセルファイルを”ブック共有”に設定することはできないです。

＞他所のＰＣで実行しようとすると、何も起動しませんし、何も起こりません。
だったら
＞メッセージを表示させるとかして
やればよい

>>761
アクティブセルの位置を返す関数なんて、使い物にならないから用意されてないんだよ。
っていうか、普通そういうもの必要ないしね。
大体自動計算の仕組みを分かってれば使えないって容易に想像がつくと思う。
たとえば下のような関数を作っても、ただどこかのセルを選択しただけでは動かない。
動くのはF9を押したときと、どこかのセルに入力したときだけ。
こんなんじゃ使えないだろ？
Function GETACTIVECELL() As String
　　Application.Volatile
　　GETACTIVECELL = ActiveCell.Address
End Function

例えばＡ１セルににＶＢＡでworksheet_selectionchangeを使ってアクティブセルを表示させているのは非常に使い前があるよ。
関数でできたら、Ｆ９キーを押さずに再計算かイベントを常に発生させるように別途
して、同等のことができる。
例示していただいたように、最後はユーザー定義関数によってしかできなさそうですね。
サンクス

日本語で

事故解決しました

SelectionChangeで出来るってVBAが分かる人はみんな知っている。

>>757
>>678

>>678はマルチ

スプレッドシートがなんなのかってのを考えれば、アクティブセルの位置によって
計算結果が違うことなんて考えられない。
ということはアクティブセルを取得するExcel関数など意味がないし、存在する
必要がない。
なまじっかVBAがあって、しかも大概のことが出来てしまうから、そもそもどうある
べきってのが、忘れられてしまうのかなぁ。

精々Cell()関数がいいとこでしょ。まあ、こいつを使って、シート名を取得できるので
見積書番号をシート名にして、シートの中に見積もり番号（=シート名）を表示
出来るってのが結構便利だったりする。シート名と見積もり番号が連動するので、
見積書の管理がやりやすい。（脇道にそれたが、、、）

別に相談じゃないんだが、日経のエクセルコンテスト送った人いる？
ttp://pc.nikkeibp.co.jp/article/NPC/20071210/289123/


別に相談なんだが、未だに関数だけで任意の表から検索することができない
=match(A1,B1:C5,0)みたいな関数があってもいいと思うのだがどうか

>>774
送ったよ。

>>765
他所で起動中だとVBAが走らないんですが、どうやってメッセージを表示すれば？

>>774
そんな相談されてもどうしようもないだろ
っつーかそれvlookupとどう違うの？

>>777
おいおい…
そのレスかなり恥ずかしいぞ

Excel 2000、Windows 2000です。

表を作成中で、タイトル行のことで質問があります。
今まではデータに対してタイトルが長くなる場合、「折り返して全体を表示する」や「縮小して全体を表示する」の他にセル内で改行するといった方法を利用していました。

今回、画像のようにタイトルを斜めに表示したいと思っています（鉛筆書き部分）。
http://www-2ch.net:8080/up/download/1200448537725188.UL8id8

「セルの書式設定の配置、文字列」で文字を斜めにしてやるのがかなり近いかなと思いますが、画像のように斜線を入れたい場合は対応できないように思います。
どのようにすれば希望どおりできるでしょうか。
ごぞんじのかた、ご教示ください。

入れるのは斜線じゃなくて縦線だよ
セルの配置で斜めにしたセルでは､縦線の角度が文字列の角度に追従する

>>780
わ〜できました。
できるようになるとなんでこれを知らなかったんだろうという気持ちになりました。

ありがとうございます。
多謝！

Xp,Ecel2003をしようしてます。
セルに入力した単語をクリックすると関係する画像が見られるようにするにはどうしたらよいですか。
おしえてください。

ハイパーリンクでGoogleイメージ検索へのリンクを設定しておく

>>782
早速お返事ありがとうございました。
ハイパーリンクという方法確認できました。

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

調べても分からなかったので教えてください。

例えばA100のセルに「＝D10」が入ってたとして
A101には「＝D15」A102には「＝D20」と5つ飛びでセルをリンクしたい場合は手入力しかないですか？
一気にやろうとするとどうしても連番になってしまいます。
データーが余りにも莫大なため手入力でやると大変です。
よろしくお願いします。

教えてください。

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

今Excelで名簿の入力を行っています。
入力した漢字のデータの読み仮名
別セルに"半角カタカナ"で表示させたいのです。
PHONETIC関数とふりがなの設定で
半角カタカナで表示させる事はできたのですが
姓名間の全角スペースも半角スペースにしたいのです。

例　山田　太郎　→　ﾔﾏﾀﾞ ﾀﾛｳ

どうにかしてできないでしょうか？

>>785
手入力かVBAだな

あ、セルをリンクしたい場合じゃ手入力でも無理だな

>>785
B100に"D10"、B101に"D15"と入力
んで下にオートフィルで引っ張る

A100には"=INDIRECT(B100)"と入力
こちらも下に引っ張る

B列になにか入ってんならC列とかE列とか適当な列に読み替えろ

作業列使わないのはVBAじゃないと無理

>>785
スマートかスマートじゃないかで言うとスマートじゃないけど出来た。
とりあえず条件として、シートのスミでいいんだけど、
=D10、15ってつづく数字の部分だけをオートフィル使って入力させる
　　　A　B　C　D
1　　10　　　　 ＠
2　　15　　　　 ＠
3　　20　　　　 ＠
4　　25　　　　 ＠

=INDIRECT("D"&(A1))

たぶんこれでいけると思う。上の例だとD10を参照してくれると思う。
つかこれより良いやり方あると思うからもうちょっとまったほうが良い。

>>786
置換　全角ｽﾍﾟｰｽ→半角ｽﾍﾟｰｽ　じゃだめなの？

>>790
ダメですね…
関数で表示してるので
検索してもヒットしません
(全角と半角区別　のチェックはしています。)

>>791
あれ？俺の環境じゃこれでｽﾍﾟｰｽまで半角になるよ
=ASC(PHONETIC(@@@))

>>785
A100=OFFSET($D$5,ROW(A1)*5,0)
をフィルコピーするだけで良いのでは

手入力必要なし､VBAも必要なし､10,15,20等のデータも必要なし

>>785
みたいなときは文字列でフィルすれば5ごとでフィルしてくれるから
A1に「やきもち焼きの妹=D5」、A2に「やきもち焼きの妹=D10」とか入れてフィルした後で
その範囲を選択して、泣く泣く「やきもち焼きの妹」を空白に置き換えればいいよ。

>>794
それだと兄弟姉妹の居ない人は使えないから汎用性にかける。

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

調べてみたのですがわからなかったので、わかる方がいらっしゃったら教えて下さい。

ある日突然、動作が重くなりました。
セルに文字や数字を入力したり、削除するのに10秒ぐらいかかります。
印刷プレビューを表示するのもかなり時間がかかります。
ファイルを開いたり保存するのは通常通りできます。

仕事でデータ整理に使っているファイル全般でそのような症状が出ます。
それらのファイルは5〜10シートで構成されており、
あるシートにグラフが置かれ、他のシートにデータを貼り付ける、というものです。

新規ブックでは通常通りに入力できます。
新規ブック以外でも通常通り動作するファイルもあります。

300kBほどあっても通常通り動作するファイルもあれば、動作しないファイルもあります。

以前は通常通り動作していたファイルも、今は上記の症状が出ます。
ネットワーク上で開いても、デスクトップに移動させても症状は変わりません。
また、同じファイルを他のPCで開くと通常通り動作します。

他のソフトは問題なく動作します。
デフラグも実行しましたが、変化はありませんでした。

技術的な質問ではなく動作上の不都合に当たるかと思いますが、
調べてもわからず途方に暮れています。
よろしくお願い致します。