Excel総合相談所 86

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/

前スレ
Excel総合相談所 85
http://pc11.2ch.net/test/read.cgi/bsoft/1248433971/

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

以上でテンプレ終わり

　　　　　　　　　　　　　, ―------ ､
　　　　　　　　　　　 ／　　　　　　　　｀ ヽ､__
　　　　　　　　　　 /　　　　　　/^l　　　　　　｀ヽ､
　　　　　　　　 　 /　　　　　＜　　＞　　　　　　　＼
　　　　　　　　　　〉------ ､ レヽ|　　　　　　　　　 ヽ
　ぉぃιぃ… 　 /: : : : : : : : :｀ ｰ ､_　　　　　　　　　　}
　ぉぃιぃ…　/: : : : : : /ヽ:,イ! :: : ｀ ｰ ､_　　　　　　/
　　　 　 　 　 /: :./: i: : / 　 　|: : : : : : :: : ｀ ｰ ､__ _ノ
　　　　　　　 {: :{ i: :.|;ノ 　 　　| :.＼: : : : : : : : : : i: ヽ
　　　/　|Ｏ　 ヽ:.:,.イ/ 　　　　 !: :∧＼: : : : : : : :.i : :}
　　 /　 |　　　 　}　　　　　　　 Ｖ　 Ｖ^＼.;ｲ: : : :.ｉ : :|
　 　 　 　 　 o　/Ｏ⌒ヽ　　　　- ､　　　 |ノ} : : :.i : :.|
　　　 / 7　　 ≠＝　 　 　 　 　 　 ＼ 　 　レ : :.ｉ : : |　ポ
　　 ｡　/　｡　 ﾞ､　　　 r- ､　　　ニ＝Ｏ 　 { : }⌒ヽ : |　ロ
　/ ヽ　/ ヽ　o ヽ , -､| 　　＼　　 ￣ 　　/:: :.）　ﾉ: : :|
　　/７　/７ 　／⌒)　 ＼.　　}　　　　Ｏノ: : /__/:i: : : |　　
　　 /　　/　/　_ノ　　,. -､〉-'　　 　,.イo ）: :）:: :i :i : : :',　　ポ
　　　 　 　./　/ ⌒ヽ（　　＼￣ ￣　 |ﾍ（: :（: :: :i :.i: : : ﾍ　　ロ
　　/　|ﾟ　 {　 l　　　　 ヽ　　 ヽ＿＿ノ　 〉: ::）: :.i:: :i : : ::ﾍ
　　　/７　 ）　＼＿__ノ ｝ 　 　ﾄ､　　 　./: : (: : : i:: ::i :: : ::ﾍ
　　　 /　　|　　/　　　　|　　　|　Ｌ＿__/（.: : ）: : :i:: : i : : : :ﾍ

>>1乙

listviewに値を設定したいのですが
１個１個ではなく、セルの範囲
たとえばA1からA5を追加したいです。
RowSourceを使うのかなとは思うのですが
型の不一致でコンパイルが通りません。
アドバイスお願い致します

範囲に名前を設定して名前の範囲を変える

>>8
まずは日本語の勉強から始めてください。

Excel2000ですが、オートフィルタで抽出した件数を得には、どうすればいいですか？
（関数でもVBAでもいいです）

>>11
SUBTOTAL

【1 OSの種類 　 　 　 　 .】 Windows XPSP3
【2 Excelのバージョン 　 】 Excel2004
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel関数 serach find
B列に
ほげ1ABごにょ
ほげ2ABごにょ
ほげ5ABごにょ
ほげ1BCごにょ
ほげ3BCごにょ
ほげ2DEごにょ
ほげ6DEごにょ

というような感じで入っていて
ABという単語がB列のセルに入っていたら隣のC列にAB
BCという単語が入っていたらBC
DEという単語が入っていたらDE
と行った感じに出力したいと思っています。
=if(search("AB",B1)>0,"AB",if(serach("BC",B1)>0,"BC",DE))
とやったらABの部分は思った通りに出力してくれるのですがserach関数に検索したい単語が入っていない場合は!valueを
返してしまって続かないということまでわかりました。
なにかsearchにかわる関数かもしくはいい方法があれば教えてください。

!valueではなくて#value!でした。すみません。

>>13
字数が一定であれば下の式でいいかと。

=MID(B1,4,2)

ウインドウズＸＰに2004ですか・・・

>15
字数一定ではありません。
すみません。


>16
すみません。2003でしたね。

>13

ISERR

>18
ありがとうございます。
ISERRでできるようになりました。
=IS(ISERR(SEARCH("AB",B1)>0,IF(ISERR(SEARCH("BC",B1)>0),"DE","BC"),"BC")
という感じになりました。

最後のBCはABです。
毎回誤植があってすみません。

それだけの修正で動いていれば、
まあ、それでもいいけど。

=IF(ISERR(SEARCH("AB",B1)>0),IF(ISERR(SEARCH("BC",B1)>0),"DE","BC"),"AB")

ちなみにSEARCHをFINDに変えてもいいよな。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000

エクセルで重要なデータを管理していて、日々更新されています。
そのエクセルを入れている共有フォルダのメモリが逼迫しており、
ファイルが保存できずに終了したり、フォルダから急になくなるということが
たびたび起こります。

その為、上司から自分のデスクトップにバックアップを毎日とるよう言われたのですが、
A.xlsという元ファイルをそのまま毎日コピーしデスクトップにおけばいいのでしょうか？

それともバックアップファイルの作成でファイルを作りそれをデスクトップにおけばいいのでしょうか？

>21
本当だ。恥ずかしいOTL

>23
スレ違い

>23　ファイル管理のことなので、ここ↓で聞いてみたら？（Windows板です）
【ﾏｼﾞﾚｽ】超初心者の質問に答えるスレ118【ｴｽﾊﾟｰ】
http://pc12.2ch.net/test/read.cgi/win/1251520704/l50

IF、VLOOKUPなどの関数を使用したときの、最後の閉じるカッコというのでしょうか？
　）　←これのことがイマイチわかりません。
数がどうしても何で2個必要なんだろう？　などと疑問に思えてしまいます。
何か覚えやすい方法や、考え方があるのでしょうか？

例えば、
=IF(B1="A",VLOOKUP(Sheet7!A1,テストデータ!A2:E95,4,FALSE),IF(B1="B",VLOOKUP(Sheet7!A1,テストデータ!A2:E95,5,FALSE),""))
で、うまくできているんですが、なぜ最後の)は2つ何でしょう？
1個でいいような気がしてなりません。もちろん1個だとエラーになります。

>>27
数学で習わなかった？
括弧は必ず対（つい）になってる。
（1+1）
（（1+1）＊２）
（3+（10-5＊1))

これが分からないと・・・

>>28
もちろんもちろん。習いました。覚えていますよ。
（つい）>>27で書いたのは、ついになってないと思うんですが？！
1個多いでしょ？　とじるかっこが。

>>28
あ゛ー違う...（つい）になってました。
何でこれだけ1個多いんだろーって、ずっと悩んでました。
お騒がせしました。

最後の　）　をよく忘れやすいみたいなんです。
みなさんどうやって、カウントしてるんでしょうか？
入力しているうちに、カッコ忘れちゃうんです。

>>30
エクセルのいつくのバージョンか知らないけれど、対応するカッコに色がつかない？

>>31
ありがとうございます。
付きます。それ見て確認したんですが、それ以外に確認方法ないんでしょうか？
セルを選択しているときや、入力しているときには、色が出ないと思うんです。
数式入ってるところに、カーソル持って行けば出るんですけど。
これも、エンターで確定させてからしか出ないような。
みんなこうやって確認しているんでしょうか？

無ければ無いでチェックマーククリックすれば親切機能が”数式にエラーが〜”
って出るからそれを見て”はい”か”いいえ”を押せばいいんじゃね？

>>33
ありがとうございます。
バージョン2002なんですが、”数式にエラーが〜”は出るたびに
”あ〜もう...”と思いながら見直してます。
チェックマーククリック　って何でしょう？？

シート上の赤いＸの隣の緑色の”レ”のマークをクリック。

>27

()数が分からないならば分かる程度に作業列で
分けて書けばいい。

いつまでも続けるような話題ではない。

>>36
他の話題で盛り上がってるわけでもなく
親切に教えてやってる奴もいるわけだし
いいじゃんよ

>>35
すみません、赤いＸは閉じるボタンしかありません。
ヘルプみるなり、ぐぐってみます。


>>36
長くなればなるほど、わかりにくくて困ってました。
わけて書けばいい　そうですね。
TXTにでもまずわけて書いてみます。


みなさんありがとうございました。

>>38
セルの編集状態にして
=IF
(B1="A",VLOOKUP
(Sheet7!A1,テストデータ!A2:E95,4,FALSE
),IF
(B1="B",VLOOKUP
(Sheet7!A1,テストデータ!A2:E95,5,FALSE
),""
)
)
こんな感じで貼り付けてみるとか

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

すみません、質問です。

エクセルで印刷をするとき、「プレビュー」ではうまく表示されているのですが、実際に印刷するときはうまく印刷できません。

具体的には、棒グラフのグラフ自体が印刷されなかったり、グラフの項目（身長、体重など）が印刷できません。

どなたかお願いします。。

>40
プリンタドライバの異常のおそれがあります。
１　別のプリンタ(同機種じゃなくて別メーカーが好ましい)で印刷できるか
２　仮想プリンタソフト（FinePrintやpdfファイル化のソフト）を使ってみたらどうなるか
このほか、
３　ページ設定の倍率を変えたらどうなるか
４　グラフの大きさとグラフが占有するセル範囲、印刷範囲の関係で矛盾はないか
あたりを試してみたらいかがですか？

【1 OSの種類 　 　 　 　 .】 WindowsXp
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 あんましできない
【4 VBAでの回答の可否】ほぼ否
【5 検索キーワード 　 　 】 countif

複数の条件に合った数を数えたいんだけど
具体的にはWEBのログ解析

=COUNTIF(A:A,"*/donation/*")
かつ
=COUNTIF(A:A,"*.htm*")
みたいなかんじ

同じセル内でアンド指定したいんだけど
どうすればいのかな
いったんhtmで抽出するしかないのかな
どうすればいいのでしょうか
よろしくお願いします。

>>42
COUNTIFSでよいのでは無いだろうか

>>43
サンクス
2007でしか使えませんか
SUMPRODUCT
も試してみます。

WindowsでExcel2002を使っています。

長いこと使っていて今更の質問なのですが、
メニューバーからのプルダウンが、折りたたまれて出てきてしまいます。
（使用頻度の低いものを隠してるってことでしょうか）

これが非常にうっとうしいので解除したいのですが、
方法を教えていただけますでしょうか。
よろしくおねがいします！

>>45
ツール→ユーザー設定→オプションタブ→”□常にすべてのメニューを表示する”
の□にチェックを入れる。

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

数量と三種類(3社の価格)の価格が100行程度あります。
最低価格を提示している会社に数量を振り分け、合計金額を求めたいのですが、
「各社ごとに決められた最低合計数量を上回りつつ合計金額を最小にする」という条件の設定が思いつきません。
ご教示願います。

一度で全てを計算しようとするんじゃなく、
作業列を作ってゆっくりかんがえてみなよ。

>>48
お前あほか？
どうやってやるんだ。説明してみろ。

【1 OSの種類 　 　 　 　 .】 Windows XPSP3
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】
昨日はありがとうございました。VBAで質問です。
Sub test()
Worksheets("Sheet1").Cells(1, 1).Value = "=1+1"
End Sub

はうまく行くのに
Sub test()
Dim tmp As String
tmp = """= 1+1"""
Worksheets("Sheet1").Cells(1, 1).Value = tmp
End Sub
ではうまく行かないのはなぜでしょうか。
最終的にはExcelのセルを参照した関数をVBAで代入させていきたいのですが。

Sub test()
Dim tmp As String
tmp = "= 1+1"
Worksheets("Sheet1").Cells(1, 1).formula = tmp
End Sub

>>47
条件の意味が分からない。例を出してみて
>>50
Sub test()
Dim tmp As String
tmp = "= 1+1"
Worksheets("Sheet1").Cells(1, 1).Value = tmp
End Sub

左右外側の"は文字列の引用符だな
そして真ん中4つの""は"となる。こういう決まりなんです。覚えましょう。
結果としてtmpの中身は"=1+1"という文字列になる(ダブルコーテーション含む)

>47
情報少なすぎ。以下の質問に答えられますか？
１００行というから品目がひとつってことはないんだろうから、
「品目」「品目毎の必要数量」と「品目・会社(３種類)・見積り単価」から
「品目毎の合計金額」と「総合計」と「会社毎の数量(最低数量を満たす必要あり)」を
求めるということですか？
「数量を振り分ける」っていうことは、ひとつの品目につき複数の会社に振り分けて
「会社毎の数量(いろんな品目の計)」の最低値をクリアする場合があるということですか？
最低値を満たすというのは数量で間違いないですか？金額ではありませんね？
それから、品目・会社毎の納入可能数量(最大値)っていうのはありませんね？

>51, 52
ありがとうございます。
"をStringで代入するときは何個かつけなきゃいけないと思い込んでいました。

>>47
もう少し具体的に質問してもらわないと
答えようが無いわ。

例示して．．．

>>52>>53>>55
問題の意味がわからないのはお前らが無知なのだ。

>>56
じゃ、おまいが答えてやれ矢。池沼。

>>57
安い煽りに乗るんじゃないよ

>>53
ずいぶんいろんな条件を制限しようとがんばっているが、
その程度の条件くらい統一的に記述できなくては実務の役に立たないよ。

どうせ役にたたんだろ

>>60
やはり無知なんだな。
この問題を解けることの価値がわからないとは。

>>61
>>この問題を解けることの価値

www

いやだから例を示してくれないとまるでどういうことか分からないんだが

皆さんすみません。情報が不足していました。

「合計数量(A社,B社,C社)」のセルが三つと、
それとは別に各行ごとに「数量」、「単価」3つ(A社,B社,C社)、の4列があり、
各行ごとに単価3つから選択し、その行の数量を選択された合計数量(Aの合計数量, Bの合計数量, Cの合計数量)に足していきます。
「Aの合計数量>100、Bの合計数量>200、Cの合計数量>300を満たす中で、最も小さくなる合計金額」を求めたいのです。
出来れば各行ごとに、どの価格が選択されたかもチェックしたいです。
各社ごとの上限数量はありません。一つの行の数量は二社以上に振り分けられることはありません。

相変わらず言葉足らずで申し訳ないです。簡単な例としては
数　 A B C
200　1　2　3
100　1　2　3
条件「Aの数量>=0、Bの数量>=100、Cの数量>=100」
だとしたら1列目はBに与えられ2列目はCに与えられ、最小金額700が導き出される。

というようなことをしたいのです。

>>63
様々な制約条件を同時に満たしながら、ある量を最大化（または最小化）したい。
ということだよ。

無理してバカに付き合う必要は無いんだゼ？

>>64

提示額が大きい順にA・B・C社とし、それぞれの
提示額を□1、最低数量を□2とした場合、

=A1*A2+B1*B2＋C1*(必要数-A2-B2)

っていう理解でいいのか？

>>66
ここの回答者はバカばっかりだということは前からわかってる。
バカをからかうのは楽しいんだよ。

>>64
線形計画法、整数計画法について調べてみるといい。
Excelのソルバー機能を使えば目的に近いことができる。
ただし200変数までの制限があるから100商品は扱えない。

変なのが徘徊してるみたいだから消えるわﾉｼ

自分の説明力不足からスレを荒れさせてしまってすみません。

線形計画法、整数計画法、ソルバー機能少し調べてみましたが、これで出来ないことはなさそうなので試してみます。
ありがとうございました。

>>70
いや。君の説明力は不足していない。
ここの回答者は無知なんだ。昔からそうだ。

>>46
一晩明けて遅くなってしまいましたが、どうもありがとう！助かりました。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 時刻切り上げ

1/1　01:05
1/1　01:10
1/1　01:15
1/1　01:20
1/1　01:25
1/1　01:30
のような5分刻みの時刻を
1/1　01:15
1/1　01:15
1/1　01:15
1/1　01:30
1/1　01:30
1/1　01:30
のように15分刻みのデーターに変えるにはどうすれば良いでしょうか？
よろしくお願いします。

>>73
=CEILING(B1,"0:15")
ただ小数誤差起きる可能性を考えると、
=TIME(HOUR(B1),CEILING(MINUTE(B1),15),SECOND(B1))
としたほうがいいかもしれない

ありがとうございます。
もうひとつ、
1/1　01:15 を
1/1　01:00　とするにはどうすれば良いでしょうか？
たびたびすみません。

>>75

これはひどいｗ

=TIME(HOUR(B1),CEILING(MINUTE(B1)+1,15),SECOND(B1))
でいけるんじやないかなぁクソが

ピボット使えよ、バカども。

そもそもデータはピボットで集計できるように作っておくべきもの。

釣れますかぁ〜？

学生乙

理想と現実は違うんだよ
そういうことは社会に出てから言おうね

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

50行あるセルの中で
値がAだったセルの同行右隣のセルの値が100だった場合だけ
カウントをしたいと思っていますが
条件式が思いつきません。

例えば
|　A　|　100　|
|　B　|　100　|
|　A　|　200　|
|　A　|　300　|
|　A　|　100　|
：　　 ：　 　　 ：
だった時は2というカウントをしたいのです。
説明が上手く出来なくて申し訳ありませんが、解決策をご存知の方
宜しくお願いします。

あんまりかっこいい策ではないと思うけど
さらにその右に(セルA1から埋まってるとして)
=if(AND(A1 = "A",B1 = 100), 1 ,0)
これを続けて
C列の一番下に=sum(C1:C○)
でどうですか？

>>81
2というカウントはどこに出すんじゃい？

A3セルに結果を出力しますぜ
"Ａ"と"A"とか"100"と"１００"とかの処理はいれてねえ

Sub カウントする()
Dim WS1 As Worksheet
Dim AVal As String
Dim BVal As String
Dim Cnt As Long

Set WS1 = Worksheets("Sheet1")

AVal = "A"
BVal = "100"


With WS1

For h = 1 To 50

If .Cells(h, 1).Value = AVal And .Cells(h, 2).Value = BVal Then
Cnt = Cnt + 1
.Cells(1, 3).Value = Cnt
End If
Next

End With
End Sub

>>81
=SUMPRODUCT((A1:A50="A")*(B1:B50=100))

教えて下さい 初心者です

Excel2007を使って営業日誌をつけています
8月の日誌をファイル（ブック）ごとコピーして9月のを作りたい
コピーしてから内容を一発削除する方法を教えて下さい
シートで日付を変えています
なんか他のいい方法があれば教えて下さい

>>86
君の要望に答えたら「ついでに」とか「また、教えてほしい」とか
次から次へと出てくるのが目に見えるので教えない。

(´・ω・｀)

(・ω・｀)

(´・ω・)

>>86
紙で作る場合もそうだが、”原紙”を作っておけ。

>>91
それを「雛型」って言うのでは

>>82-85
みなさん回答ありがとうございます。
>85の式により解決しました。

>>83
カウント結果は別のシートに出しています。
説明漏れがあり、すいませんでした。

(´o　_　o｀)

グループ別集計の質問にIF+SUMとSUMPRODUCTとVBAの回答者全員集合。>>82>>84>>85
SUMPRODUCTが気に入った様子の質問者。>>93
追加質問を異常に嫌がる病気>>87
わざわざ「原紙」を「雛型」に言い換えるやつ>>92



典型的なこのスレらしい流れだね。

このスレらしい
このスレらしい
このスレらしい

【1 OSの種類　　　　　　 】 WindowsXP Home Edition SP3
【2 Excelのバージョン    】 Excel 2007 (12.0.6504.5001) SP2 MSO (12.0.6425.1000)
【3 VBAが使えるか　 　  】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Exsel 複数選択
Ctrlを押しながらの複数選択において
2000のように、複数選択したセルの枠線を単独選択したセルと同じように太いままにしたいです
これはどのようにすれば設定出来るのでしょうか

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000　ただし、2007で可能ならそれでもOK
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 自動入力　手動入力 EXCEL

別シートに以下のような会員名簿があります
氏名　　　　　住所　
田中太郎　東京都〜
鈴木健一　東京都〜


で、これとは別に、同じような構成である会合の参加者名簿を作成するとします。
氏名　住所


このとき、もし会員名簿に載っている人の氏名を書き込んだ場合は
自動的に住所の入力を行い、
非会員の名前が入力された場合は手動で住所欄を記入するようにしたいのですが
VBAを使わずに可能でしょうか？

とりあえず住所の欄にVLOOKUP辺りを書いておいて、
非会員の場合はそれを消して手動で書き込めばいいかなとは思ったのですが、
同一カラムに数式が入ってたりただの文字列が入ってたりするのはどうかと思いまして
自分だけが使うわけでもないですし

>>98

御所望の機能はVBAで可能です。
んがExcelは表計算であってﾃﾞｰﾀﾍﾞｰｽぢゃないんだけどね。

【1 OSの種類 　 　 　 　 .】 Vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】Excel セル 分ける 下線付き文字

AAAAAA(半角空き)BBBBBB
　　　　　　　　(下線付き)

ひとつのセルに
下線なしのAAAAAA
下線付きのBBBBBB
が並んで入っています。
AAAAAAとBBBBBBは両方英文字で文字数は一定ではないです。

AAAAAAとBBBBBBを別のセルに分けたいのですが、
どうすればいいのでしょうか？

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

A1に入っているとして、
=LEFT(A1,FIND(" ",A1,1)-1)
=RIGHT(A1,LEN(A1)-FIND(" ",A1,1))
下線は自分で付けてくれ

>>97
VBAを使って間もないけど、分からない
選択したときにイベントを起こしてオートシェイプを描画して、最後に消す・・という手は思いつくけど絶対にオススメできない
>>98
更にもう一行追加する
指名がA列、住所がB列とする
住所列がvlookupで参照されていると、別の列(C列)に値が杯っていなければD列にB列を出力する。
C列になにか値が入っていればC列を出力
もしくはフラグを作り、F列が1ならE列の値、0ならB列の値・・・など
>>100
VBAじゃないと　ﾑﾘだなぁ
AAAAAAが決まってるか入力していいなら、SUBSTITUTEが使える。AAAAAAを""に置き換える、って形でね

酒がうめええす

>>102
有り難う御座います
該当の機能は完全に廃止されてしまったのですね
2000との共存を試してみます

>>103
ちょ、ちょっと待って！
俺がVBA初心者だから分からないんだ。街頭の機能はあるかもしれない。プログラム板にVBAスレがあるから言ってみるといい

>>100
http://www.becoolusers.com/excel/text-to-columns.html

>>100
Sub 切り分ける()
Dim WS1 As Worksheet
Dim Lst As Long
Dim MyStr As String, FirStr As String, LasStr As String
Dim MyArray() As String

Set WS1 = Worksheets("Sheet1")
With WS1
Lst = .Range("$A$65536").End(xlUp).Row

For h = 1 To Lst
With .Cells(h, 1)
MyStr = .Value
MyArray = Split(MyStr, " ")
FirStr = MyArray(0)
LasStr = MyArray(1)
With .Offset(, 1)
.Value = ""
.Offset(, 1).Value = ""
.Value = FirStr
End With
With .Offset(, 2)
.Value = LasStr
.Font.Underline = xlUnderlineStyleSingle
End With
End With
Next
End With
End Sub

>>105
下線付きを分けるにはどうすれば良いのでしょうか？

>>107
下線付き云々とかでなく半角スペースを区切り位置として捉えて考えてみてください。

106
ごめん、VBA否だったのね

>>104
VBAは名前しかわからないので諦めます
お気遣い有り難う御座いました

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

日数計算の質問です。
Ａ〜Ｂ、Ｃ〜Ｄの２つの期間の合計日数を求めます。
ただし、重複した日数があれば、合計から差し引いて実日数を求めます。
9/1〜9/5と9/10〜9/15
なら、計10日
9/1〜9/5と9/3〜9/15
なら、計15日
という具合です。
どうぞ宜しくご教示ください。

ありがとうございます。
AAAAAAとBBBBBBは人名と作品名で
AAAA AAAAAAAA(半角空き)BBBB BBBB BB BBBBBB
このように半角空きがいくつか入っているんです。
>>105さん指定の頁のやり方でコンマを入力してやりました。
時間はかかりまりたが解決しました。
お礼が遅れましてすみませんでした。

>>111
データの数は?

>>113
単純に２期間の日数計算えすので、ＡＢＣＤの４つの日付データだけです。

>>114
と言いますか、ＡＢＣＤは別の計算から導きだしてきますので、計算結果によって全く任意の日付になります。

>>111
べたで書くと
=B1-A1+1+D1-IF(C1<=B1,B1+1)+1
まとめて
=B1-A1+D1-IF(C1<=B1,B1+1)+2
かな？
他にも色々方法はあるだろうけど。

ただ9/1〜9/5と9/10〜9/15なら計11日じゃないのか？

まつがった。
=B1-A1+1+D1-IF(C1<=B1,B1+1,C1)+1だな。

>>117
早速にありがとうございます。
使わせて戴きます。

>>117
説明不足だったかもしれません。
日付は、
ＣＤＡＢ
ＣＡＤＢ
ＣＡＢＤ
ＡＣＤＢ
ＡＣＢＤ
ＡＢＣＤ
と並ぶ可能性があります。
逆に、重複した日数を数える方策はありませんでしょうか。
どうぞ宜しくお願いいたします。

>>119
並びがABCDの9/1 9/3 9/5 9/15とACBDの9/1 9/3 9/5 9/15を
どう見分ける基準は何ですか?

>>119
計算のためにソート可能ですか?

>>119です。自己解決しました。
別シートに、
基準日 期間１ 期間２
9/1 1
9/2 1 1
9/3 1
･･･
計

という表を作り、期間１＋期間２−重複日数を計算させました。
演算式で考えると、IF文の嵐になりそうでしたので。
皆様には、大変お騒がせいたしました。

話が変わってるｗ
回答した人可哀そう・・・

>>119です。
本当に、説明不足でご迷惑をお掛しました。
回答を戴いた方や、その他の方にも。申し訳ありませんでした。

>>112もそうだけど、こういう奴って腹が立つ。

腹立ててまで見なくてもいいんじゃないかな？
お前に回答は求めてないよｗｗｗ

またまた

例えば、ABの期間に内装工事、CDの期間に外装工事をしてた場合、工事の実日数を数える。
各々の工事は前後するかも知れないし、重複する場合もある。
って感じか。
イメージが伝わらなかったようだね。
読解力もなかっ(ry

>>128
質問を読んだ瞬間に工程管理の問題だと気付いて、ガントチャートのイメージがわいてくるね。
最初からそれを想定していれば>>123のような気持ちにはならないと思うな。
まあ>>123はイメージできなかったんだろうな。

>>123
ABCDに勝手な順序を仮定したのは回答者であって、質問のどこにもA<Cとは書いていないんだぞ。
話は変わっちゃいないんだよ。回答が間違っていたんだ。質問者が回答者に失礼がないよう優しく指摘してくれてるんだよ。
わかったか？バーカ。

またか

関数を使って日付を自動表示させるときに、日付が変わる時間を
調整することは可能ですか。
例えば、今日の２１：５９までは、９月５日の表示で、２２：００からは、
９月６日の表示になるような。
ＰＣ自体の時計はいじらない方向でお願いします。
エクセル２００７だと思います。

セルの書式設定→日付→”○月○日”で設定。
セルへ入力する式↓
=NOW()+(2/24)

”○月○日”って書いたけどExcel2002の私の場合、”３月１４日”を選択って
ことで。

>>126>>128>>129>>130
基地外が沸いてるね

>>135
ここにも一匹ｗ

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

A列に上から名前を入力していきます。
それと同時にB列に重複しないように自動的に
表示されるようにしたい。
（初めて出てくる名前のみ表示され、２回目以降は表示されないように）

　　A　　　　B
１　山田　　山田
２　田中　　田中
３　井上　　井上
４　山田　　鈴木
５　鈴木
６　井上　


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

>>137
b1=VLOOKUP(ROW(),C:D,2,0)
c1=1
c2=IF(D2<>"",MAX($C$1:C1)+1,"")
d1=IF(COUNTIF($A$1:A1,A1)<=1,A1,"")

>>138
こんなに早く答えていただいて助かりました。
ありがとうございました。

再び、すみません。
基本は>>137と同じです。

　　A　　　　B
１　山田　　山田
２　田中　　田中
３　井上　　井上
４　山田　　鈴木
５　鈴木
６　井上　

この続きに同じように


11　山本　　山本
12　山本　　木村
13　木村　　鈴木
14　山本　　佐藤
15　鈴木　　井上
16　井上
17　佐藤


と、表示させる為にはどうしたらよいでしょうか?
一度に質問できずにすみません。
b11がﾎﾟｲﾝﾄだと思うのですが…

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

どんどん追加で質問しそうなﾔﾂだなｗ

各関数の意味をそれぞれ調べてみろよ。

家計簿をエクセルで付けています。
現金出納帳と、口座別の預金出納帳、証券の口座とシート別に分けて
ＢＳとＰＬはSUMIFで集計しています。

例えば食費などは
=SUMIF(現金出納帳!$A:$D,"食費",現金出納帳!$C:$C)+SUMIF(銀行!$A:$D,"食費",銀行!$C:$C)-SUMIF(現金出納帳!$A:$D,"食費",現金出納帳!$B:$B)-SUMIF(銀行!$A:$D,"食費",銀行!$B:$B)
というようにして、集計しています。

出納帳にはＡ列に日付、Ｂ列に科目、Ｃ列に収入、Ｄ列に支出をしています。↑の数式だと集計場所がズレていますが何故か上手くいっています。

日付は1/1と入力すれば表示は1月1日で、セルを見たら2009.1.1となっています。

ＩＦの条件を追加して、月別のＰＬを作りたいのですが、日付の集計はどうすれば良いでしょうか？

すいません、テンプレで条件追記です。

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

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エラー処理
�@　�A　�B
1, N/A ,空白
1, N/A ,空白
1, 3 ,1
1, N/A ,空白
1, 2 ,1
のように�A列目がエラーでない時に、
�B列目に�@列目のﾃﾞｰﾀｰを返すには
どうすれば良いでしょうか？
ｲﾒｰｼﾞ的には、�B1を「IF(�A1<>NA(),�@1,"")」
という感じにしたいのですが、
これでは上手くいきません。
よろしくお願いします。

�@→A、�A→B、�B→Cである場合、�A(B)のエラーがエクセルの計算上のエラー（#N/A)なら
=IF(ISERROR(B1)=TRUE,"",A1)
で良いと思うけど。

145さん
ありがとうございます。助かりました。

SUMPRODUCT関数使って、自己解決しました。

Windows XP SP2 + Excel 2007 で、日ごろ使っている .xlsm ファイルを開いた状態で F3押下すると、
[名前の貼り付け(N)] の中に４つの名前が表示されるんだが、そのうち３つは使っていないものなので、
それを削除して、F3押しても [名前の貼り付け(N)] の中に使っている１つだけが表示されるようにしたい。
どうやれば削除できる？

>>148
ﾀﾌﾞﾝﾑﾘあとセンテンス長すぎ

Excel VBAを習得したいのですが、一般的に何年くらいかかりますか？

目的は、Excelで株の自動売買システムを作ることです。

わ か り ま せ ん

マルチだキニスルナ(｀・ω・´)

セルへのペースト時に文をトリムするVBAを組みたいです
例えば
ああ　いい→ああいい
11 33 22 →113322
みたいものです。
やるとすれば、セルのイベントで文字列操作の関数使うのでしょうか？

>>153
スペースを何もない文字列に置換すればいいだけなんでワークシート関数でもできるけど
VBAでやるなら (変数sに元の文字列が入っていた場合)
s = Replace(s, " ", "")

>>153

まず発想がアホ。

そう言うなって

セルに入れた関数をオートフィルで数百行コピーしたいのですが、
参照先の引数を1行おきに指定することは可能ですか？

例としては、元のセルがSUM（A1:A4）であれば、
通常オートフィルだと次のセルは（A2:A5）になりますが、
それを（A3:A6）にし、その次のセルは（A5:A8）というふうに
指定先を1行おきにしたいのです。
何かよいやり方があれば教えてください。　

>>157
1行置きになるようにオートフィルすることはできないので
コピペできるように数式を工夫するのが正攻法。その例だと
=SUM(OFFSET(A$1,ROW()*2-2,0):OFFSET(A$1,ROW()*2+1,0))
みたいな感じにする
ほかには文字列でオートフィルしてから数式に変換するとか、VBAでやるとか色々な方法がある。

>>157
文字列でオートフィルしてみた例。
最初の2行を手作業で入れれば、Excelがオートフィルのパターンを自動的に判別してくれる。
これを最後に結合して数式を組み立てる。
ttp://windyakin.if.land.to/src/up38_1598.png

>>133
ありがとうございます。
今まで手書きで手直ししていたので、かなり手間が省けました。

日本語入力してて、変換を確定させないと
tabでセル移動できないの何とかならん？

ごめんなさい･･･
>>161ですが、余裕で解決できる質問でした･･･ｽﾚ汚しごめんなさい。

セルに入力した日付の１ヶ月後の月末って出せますか？
Ａ1に2009/09/30と入力すると
Ｂ1に2009/10/31と表示されるような
関数でもＶＢＡでもいいのですが・・・

>>163
=DATE(YEAR(a1),MONTH(a1)+2,1)-1
でいけないかな

>>163
こういうこと？
=DATE(YEAR(A1),MONTH(A1)+2,0)

165>>164

>>166

もっと差はあるだろｗ
>>164はテクニックとして知ってるだけみたい。
何でわざわざ+1-1するのかと。

月の末日は翌月の初日の前日というロジックが目で見てわかりやすい
おれなら>>165より>>164をつかう

自演は空しいのうｗ

それをVBAでやってみたんだが．．．
Sub 次月末検索()
Dim WS1_Name As String
Dim WS1 As Worksheet
Dim FirstDay As Date, LastDay As Date, TmpDate As Date
Dim DateStr As String
Dim LstRow As Long
Dim h As Integer
WS1_Name = ActiveSheet.Name
Set WS1 = Worksheets(WS1_Name)
With WS1
LstRow = .Range("$A$65536").End(xlUp).Row
For h = 1 To LstRow
FirstDay = Worksheets(WS1_Name).Cells(h, 1).Value
Debug.Print h & "行目入力は、" & FirstDay
DateStr = (Month(FirstDay) + 1)
DateStr = (Year(FirstDay) & "/" & DateStr + 1 & "/" & "01")
TmpDate = CDate(DateStr) - 1
Debug.Print h & "行目月末は、" & TmpDate
.Cells(h, 2).Value = TmpDate
Next
End With
End Sub
かなり荒削りだが勘弁してくれ。

書き忘れた．．．
書き込むシートのコードに以下を貼り付けすると
A列の値が更新されたらB列も更新される。と、

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call 次月末検索
End Sub

>>163

つDateStr = DateSerial(Year(FirstDay), Month(FirstDay) + 1, 0)

>>173
170だが、それでは当月末を返すんじゃないかと．．．

>>173
これならＯＫかと思われ．．．

つ TmpDate = DateSerial(Year(FirstDay), Month(FirstDay) + 2, 0)

年またぐ事考えたら素直にDateAdd使うのがいいんじゃ？

>174

こまけぇこたぁいいんだよ！(AA略

>176

？？？
DateSerialでも年はまたげる。
DateAddの場合はDayの端数切りが必要になる。

会社で2007を使っているのですが、社内に2000、2003を使ってる人が混在しています。
このような状態で私がVBAマクロを組んで社内LANの共有フォルダに保存し、他の人にも使えるようにするにはどうすれば良いですか？
マクロ初心者で、一応自分のPCでは問題なく動くものが作れましたが、他のPCでは動かず困っています。

>>178
まず2000でマクロは使える設定になっている？
それで動かないなら、マクロの内容が仕様制限に引っかかっている可能性がある

ディレクトリを取得するようなマクロだとPCごとに違うだろうし、
sortだとdataoptionは2003以降でしか使えない(2000だったかな?忘れたけど)
後はピボットテーブルの名前も、ばーじょんによってセミコロンとバックスラッシュで分かれるんだったかな

手っ取り早いのは2000と2003、2007でそれぞれマクロの記録を行い、
差を比べればほぼ大丈夫だと思う。
後はexcelやOSのバージョンを取得し、そのバージョンごとに条件分岐させるとか

マクロをあげてもらえればどういう問題があるか分かるかも

どんだけひどい会社なんだ？？

先のことを考えればバージョンの統一が不可欠。
仕事ならなおさらだ。

中小零細はそうも言ってられないよ
それにエクセルじゃなくアクセスか専用システム使うでしょ

個人的にはバージョンが変わるごとに微妙にマクロが使えなくなるのは勘弁して欲しい
機能追加はまぁ仕方ないとしても、ピボットテーブルの名前が変わるのとかね

>>177
>>163の要求仕様を満たしていないんで
こまけぇこたぁ．．．って話ではないすね。

できなきゃぁ意味がねえんだよ！(AA略

質問させていただきます。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 EXCEL　表示だけ　、　式　削除されない


　　 　A　　　　B
1　　001　　　リンゴ
2　　002　　　バナナ
3　　001　　　リンゴ
4　　---　　　手入力

B列にお決まりのVlookupが入っている状態でB4の項目がデータベースに無かったので手入力すると
B4にもともと入っていたVlookupが削除されてしまいます。
あとで間違いに気づいてA4にコードを入れなおした時にVlookupの効果を出す方法を探しています。
Vlookupの結果を他のセルに表示させてB列に反映させることも考えているのですがB列になんらかの式を
入れなければいけないので結果的には同じになってしまって困っています。
マクロでコピーするようなものを作ればいいのですが、入力ごとにボタンを押すのもどうかと思いますし・・・
なにか良い方法はないものでしょうか？

質問です。

excelで複数のシートを扱っているのですが、
シートを切り替えるタブの表示がシート内を左右にスクロールさせる奴と
の境目が動いたり、横幅が小さくなったりと困っています。

このタブの表示位置を左右のスクロールと別の高さで表示できないでしょうか？

>>183
セルを編集できなくする
ttp://q.hatena.ne.jp/1125050110

VBAのコードは書けないけどセルを変更するたびにB列にオートフィル使うのがいいんじゃないかな

>>183
よくわかんないけど、
Ｂ列を手入力列にして、=if(b1="",vlookup〜,b1)っていうのは？

>>186
手入力用の場所と表示用を分けるといったイメージですね。
出来ればそのままいけると嬉しいのですが・・・・

MOD(ROW(),2)=1
の式なんですが、行番号を２でわってあまりが１の行とのことなのですが、
１行目、３行目を２で割った場合、0.5、1.5とあまりは１とでないで
割り切れると思うのですが詳しく説明していただけるかたいませんか？

>>188
整数では割り切れないでしょ
3/2=1あまり1

ふいた

>>188は商と徐が分ってないな。

>>188
小数が登場しなかったころの小学校の算数を思い出せ！

ちなみにMOD(ROW(),2)はROW()-INT(ROW()/2)*2と同じだ

>>191
除ってなんだよ。

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

Excel2007でオートフィルが同一シートで
2つ同時に使えたはずですが
2003以前でもする方法はあるのでしょうか？

関数に使う範囲を、関数で指定することはできますか？

たとえば、A1:B7という範囲のうち、
A1を関数1で、B7を関数2で、指定するといった感じです。

環境はwindowsXP、office2000です。

>>196
indirectまたはoffset
E1に「A1」、F1に「B7」と入れた後、sumに使いたければこんな感じ
=SUM(INDIRECT(E1&":"&F1))

>>195
オートフイルタ　な
範囲選択してオートフイルタじゃダメ？
横に複数出ると思うけど

>>197
ありがとうございます！
参考にさせていただきます。

2種類のデータの変化を去年と今年で
棒グラフで比較したいんですが、
ﾃﾞｰﾀＡとﾃﾞｰﾀBの値に差がありすぎて小さい方がほとんどグラフに反映されません。
2軸について調べてみたんですが
ひとつを折れ線にするなどグラフの種類を変えてしまう例が多いようです。
ボウグラフのまま2軸選択すると
なぜかAとBが縦に重なって一本の棒になってしまいます。
軸の値の範囲だけ第2軸で変更させるにはどうしたらよいですか？？？

>>183
・Sheet1のA列にコードを入力してB列に表示させると仮定
・Sheet2のA列にコード、B列に品名をもつ値リストデータベースを作ると仮定
'標準モジュールに以下を貼り付け
Sub 垂直照合関数挿入()
Dim WS1_Name As String, WS2_Name As String
Dim WS1 As Worksheet, WS2 As Worksheet
Dim LstRow1 As Long, LstRow2 As Long
Dim h As Integer
WS1_Name = "Sheet1"
WS2_Name = "Sheet2"
Set WS1 = Worksheets(WS1_Name)
Set WS2 = Worksheets(WS2_Name)
With WS1
LstRow1 = .Range("$A$65536").End(xlUp).Row
LstRow2 = WS2.Range("$A$65536").End(xlUp).Row
For h = 1 To LstRow1 + 1
With .Cells(h, 2)
.FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-1]," & WS2_Name & "!R1C1:R" & LstRow2 & "C,2,FALSE)),"""",VLOOKUP(RC[-1]," & WS2_Name & "!R1C1:R" & LstRow2 & "C,2,FALSE))"
End With
Next
End With
End Sub
'Bookのオープン時イベントに以下を貼り付け
Private Sub Workbook_Open()
Sheets(1).Columns("A:A").NumberFormatLocal = "@"
Sheets(2).Columns("A:A").NumberFormatLocal = "@"
End Sub
'Sheet1の変更時イベントに以下を貼り付け
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call 垂直照合関数挿入
End Sub

すいません質問です。使用しているのはexcel２０００です

合格 不合格 M鈴木 K佐藤 E福田 S田中

第1回 100 69 49 65 45 55
第2回 100 69 55 54 50 60
第3回 100 69 78 67 60 70

上のデータから、「２軸状の折れ線グラフ」を作成したいのですが、Ｙ軸上の６９以上（合格）とそれ以下（不合格）で
プロットエリアの色が２分しているのですが、これはどのようにしたらいいのでしょうか？凡例に「合格」「不合格」の項目があります。

よろしくお願いします

>>202はマルチなので以後無視で

マルチ嫌うやつはマルチの何が気に入らないの？
質問者がよそのお友達と仲良くするのが許せないの？

それどこのコピペ？

真剣に答えてくれる人に失礼でしょ。

あちこちで聞いた方が答えてもらう確率高くなるじゃないか

エクセルのアカデミック版って、通常版と比べて何か機能制限あるんですか？
決算書が作れないとか・・・

>>208　まったくない　値段が安いだけ

無いんでないの。がっこの生徒とかが安いだけでないの。

>>209
ご回答ありがとうございます！！！！

>>207
残念。マルチ嫌いな人が多くいれば逆に回答率は低くなる
そして2chは多い
>>208
確か商用に流用してはいけないとかあったはず
まぁ練習用なら何も問題は無い

マルチがどうのこうのって昔のnetnewsの頃の名残だろ　資源の無駄だとかなんとか
いまどき嫌う理由なんかなにもない

いや普通に仕事でも
>>213は部下を持ったことが無いのか、それとも心が余程広いのか
自分の部下が別の同期に聞いて、そっちの言うことを聞いてたらどう思う？
答えは聞いてない。一般的に、そいつは嫌われるんだよ
それを防ぐために「こいつはマルチ」と忌み嫌われる
別になんとも思わないなら勝手に答えていればいいと思う

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

だれが部下だｗ　なんか根本的に勘違いしてるな

板違い
PC初心者にいけ

項目軸「第１回」を「軸の書式設定ー配置」で縦書きにすると、
第
一
回
のように、数字が横になってしまいます。
第
１
回
のようにするにはどうしたらいいのでしょうか？

>>218
１を全角数字にする

>>219
ありがとうございました。無事できました

このスレの回答者根本的に勘違い野郎が多いと思っていたが、確信に変わった。
>>214みたいなやつっているんだな。

>>213
私もそう思う。
NetNews時代は技術的な理由でマルチポストはだめだった。
その時の名残りの迷信だろうな。初心者のころに「マルチはダメ」と怒られて
刷り込まれているんだろう。

どっちにしてもマルチすると回答率が減りそうだしやらないほうがいいんじゃナイノ?

>>222
なら質問者の自主性にまかせるべきじゃないのか？
今まで回答率が下がることを理由にダメ出ししていたのか？
そうじゃないだろう。>>214みたいに上司気分でダメ出ししていたんだろ？

マルチダメ出しって
Sorry. This HP is Japanese only.的な気持ち悪さを感じる。
「このホームページはリンクフリーです。」にも似ているな。

実際まだまだ、多くの人がネット上で、
オーバーラップして活動してるだろ。
事実、マルチは、何度も見る。
少なくとも、同類と思われるのネットないでの
マルチは、迷惑だろうね。 そうじゃなきゃ、
コピペなんて、いくらやっても関係ない
ことにならんか？

その議論は、他でやって下さい。
はい、つぎの方どうぞ。

流れ読まずに続ける俺ｶｺｲｲ

マルチといってるからには荒らしではないと自ら認めてるわけじゃん。
２ちゃんねるの荒らしの定義は明らかではないが、規制されるような
ものではないことははっきりしてる。だいたい質問がマルチだというなら
同趣旨のスレが複数あることがそもそもマルチじゃないか？

ttp://2ch.net/accuse2.html

>>225
何がいいたいんだ？
一言にまとめられない？

解決した質問の答えを探して楽しい？
質問したとき、別に知ってる人が答えればいいから探してくれなくてもいいっていうならスレ汚し。ネット以外で訊け

てかググったらそんなもんすぐ出てくるだろ。検索までひと任せな初心者には、確かに理解できんかもしれんな
http://ja.wikipedia.org/wiki/%E3%83%9E%E3%83%AB%E3%83%81%E3%83%9D%E3%82%B9%E3%83%88

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい（あまり複雑なのは無理です）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 コンボボックス

ワークシート上でコンボボックスを使用したい場合はどうすればいいですか？
ツールボックスからコンボボックスを持ってきましたが、
VBAでどう入力すればいいのかがわかりません。
「入力規則」が使うことができない状況なので、ご教授お願いします。

>>231
ttp://excelvba.pc-users.net/fol10/10_2.html
ぐぐる時は「vba　コンボボックス」とすれば良い。「エクセル」と付けるといい場合もある。
後はchangeイベントの時にコードを書けば良い。
分からなかったらまたどうぞ

>>232
ご丁寧にありがとうございます。
けれどすみません。ユーザーフォームでなく、
ワークシート上でコンボボックスを使用したいのです。

けれど、教えていただいた通りに「vba コンボボックス」に「ワークシート」
もつけて検索をかけたところ
www.serpress.co.jp/excel/vba011.html
こちらのページが引っかかり、試してみたのですが上手く起動しませんでした。
上の例でいきますと、コンボボックスの▼を押して「文字列１」を選択しても
ボックス内は空っぽのままです。
何か間違えている部分があるのでしょうか？続けてご教授お願いいたします。

>>233
ああ、ごめんなさい
ttp://www.asahi-net.or.jp/~zn3y-ngi/YNxv98316.html
ここ参考にするとよろし

>>234
ありがとうございます！
ちょっと複雑になるみたいですので、今から教えていただいたサイトで
じっくり勉強してこようと思います！

よろしくお願いします

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい(簡単なものなら)
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 DMAX関数

　　　　　　　　　　　　　　　　　　　　
　　 　車　　　　売上 　　　車　　　売上
1　　100　　　10000 　　　100　　15000　←DMAX関数
2　　105　　　50000
3　　110　　　20000
4　　100　　　15000

A列に車の番号が重複込みであり、B列に一回当りの車の売上が入力されています
車ごとに一回当りの売上の最大を抽出する方法を調べたところ、DMAX関数があって試してみて
上の図のようにまではできましたが、他の車の売上を抽出しようとするとまた

車　　　売上
105　　

みたいに条件を入力せねばならず、車の数が200ぐらいあるので大変です
何か関数の上手な使い方はないでしょうか？
もしくは関数以外でもできる方法がありましたら教えてください

>>236
ピボットテーブルおすすめ。

>>229
なんだそりゃ。ネット以外で聞いたらマルチじゃないのかよ。
それに何で答えを「探して」んの？知らないなら回答しなくてもいいんだよ。

>>230
で、何？
Wikipediaに書いてあるからマルチはダメと言いたいわけ？

内容も読めないの？

>>236
全ての車の最大の売り上げをいっぺんにみたいのなら
車の数だけ並べてDMAXでみたら。

こいつマルチだぜ〜と大騒ぎするやつは、そもそもどうしてマルチを発見できたのだろうか。
それは、こいつらが一生懸命答えをググるからである。
知らないなら無理に回答しなければいいのに。迷惑なやつらだ。

>>241
条件を列挙するのが大変だっていう質問だ。「列挙しろ」では答えになってない。
よく読め。

>>242

空気嫁

>>243
だからさ、最初っから昇順列挙しておけばいいんジャマイカとな。
してその隣にでもDMAXの結果を出すというのはどうなのかな？

>>245
そうだな。その具体的方法を回答しろ。

>>244
ダッチワイフですね。
わかります。

でも何でドイツ人の嫁さんなんでしょうね。

>>242
ぐぐればわかるようなことを書きこむなカス

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

一つのセル内の複数のキーワードを指定した文字列へ置換させたいのですが、中々上手くいきません
セルＡにりんごなしキウイぶどうと入力→セルＢへ100+150+90+190と自動置換
セルＡにいちごバナナりんごなしぶどうと入力→セルＢへ100+90+100+150+190と自動置換
このように全体で40ほどのキーワードから、1つのセルで1〜10個ほど同時に置換させたいのですが上手くいきません。何か良い方法はありますでしょうか？

>249

数式はやめとけ。
VBAを少しかじれば簡単に出来る。

>>250
やはりVBA使わずに書くのは難しいですか。ちょっと勉強してみます
ちなみに数式で表すことも可能ではあるんでしょうか

>251

数式で一回に変換できるのは1個。
対象ｷｰﾜｰﾄﾞの40個分REPLACEを並べれば可能かな？

ｷｰﾜｰﾄﾞのｾﾙ範囲が固定されているならVBAでFunction
（ﾕｰｻﾞｰ関数)作った方がいいと思う。

REPLACEぢゃ無理だな。
IFとFINDの塊を作れば一応出来るかな？

B1に
=IF(A3*A4 < 100, 10, A3*A4)
みたいな関数を入れるとして
同じ数式を二回書く以外の方法ってないでしょうか
なんかカッコ悪いと思いつつ使ってしまいます・・・

>>236
>>243
めんどいからVBAで。>>243の掲示したのを基本に。
面倒でも列Dに全車分のリストを作ってくれ。E列に売上げの最大を書きこむVBAだ。
Sub 最大値取得()
Dim WS1_Name As String
Dim WS1 As Worksheet
Dim ValRow As Long, LstRow As Long, TmpVal As Long, MyVal As Long, h As Long, i As Long, j As Long
WS1_Name = "Sheet1"
Set WS1 = Worksheets(WS1_Name)
With WS1
ValRow = .Range("$A$65536").End(xlUp).Row
LstRow = .Range("$D$65536").End(xlUp).Row
For h = 2 To LstRow
j = 1
For i = 2 To ValRow
If .Cells(h, 4).Value = .Cells(i, 2).Value Then
If j <= 1 Then
MyVal = .Cells(i, 3).Value
.Cells(h, 5).Value = MyVal
ElseIf j > 1 Then
TmpVal = .Cells(i, 3).Value
　　If MyVal <= TmpVal Then
　　　.Cells(h, 5).Value = TmpVal
　　End If
End If
j = j + 1
End If
Next i
Next h
End With
End Sub

>>236
車　　　　売上
100　　　15000
105　　　50000
110　　　20000
・
・
・
こういう表作りたいならピボットテーブルのウィザードに従って、
行に「車」、データに「売上」の最大値にすればよろし。

>254

作業列を使うしかないと思う。

>>257
わしもそう思う

>>230
>マルチポスト（Multi-post、Multiple posting、Multiposting）とは、同じ内容の記事を複数のニューズグループに別の記事として投稿すること。
この時点で既に定義が違っているわけだが

でっていう

>>254
=((A3*A4)<100)*10+((A3*A4)>=100)*(A3*A4)
論理演算和とでも言うのかねぇ
((A3*A4)>=100)=TRUE、TRUE=1、逆もまた然り
という性質を利用したものなんだけど、低級言語になるとTRUE=-1になる場合もある。ごくまれだけどねー
まぁTRUEとFALSEのTRUEを掛け算して足せばif使わなくても計算できる
ただ文字列では特殊なことをしない限り流用できないのが難点だね

こういうのに興味をもてるならC言語を覚えるといい。ビット演算とか面白いよー

失礼、vbaもTRUE=-1だったか
ワークシート関数だけだね、TRUE=1なのは

ちなみに何故true=-1なのかは、ビット演算を覚えると自然にたどり着く

>>255
うわ。めんどくさそう。
車種別の次に車種別年度別を調べたくなったらどうするの？

>>255
>面倒でも列Dに全車分のリストを作ってくれ。

VBAまで使っておいてそこを解決してないのかよ。
一度>>256をよく読んでみろ。

>>255
>面倒でも列Dに全車分のリストを作ってくれ。

もう一度言おう。
条件を列挙するのが大変だっていう質問だ。「列挙しろ」では答えになってない。
よく読め。

>>259
残念、ハズレ

それはマルチポストの定義の内のひとつに過ぎない

>>263
>>264
>>265
粘着キター

>>267
まあ好きに言えばいいさ。
>>255はDMAXをVBAで実装しただけだろ。
質問>>236を読んでみろ。どうしてVBAでDMAXを作ろうなんて思ったんだ？

マルチについて語るのに、Wikipediaではどう書いてあるかなんてどうでもいいとは思わないか？
単純にそいつのことが好きか嫌いか、各自が判断したらいいんだ。

私はマルチ本人より、マルチ指摘厨の方が嫌い。
「みんな〜！こいつはマルチだ。回答するなよ。」←こんなやつ気持ち悪いよ。

お前ら・・もちっとまともな回答してやれよw
>>236
C2=IF(COUNTIF($A$2:A2,A2)>1,"",A2)
D2=MAX(IF($A$2:$A$1000=C2,$B$2:$B$1000,0))
下にオートフィル。D列は配列数式
後は値でコピーして並び替え
全部マクロに登録すればいいんじゃないかな
>>249
B1=SUBSTITUTE(A1,"りんご","100+")
C1=SUBSTITUTE(B1,"なし","150+")
D1=SUBSTITUTE(C1,"キウイ","190+")
E1=SUBSTITUTE(D1,"ぶどう","150+")
F1=LEFT(E1,LEN(E1)-1)
この果物の名前と値段はどこかに登録しておいたほうがいいと思うけど40個ぐらいなら手作業でもいいんじゃないかな

くどいぞ　クズ

>>271
自己紹介お疲れ様でしたw

>>236
MS　Queryを使ったらどうか。

>>236をExcelの一般機能でやるならピボットって答えが出てるなぁ。
並び変えてフィルタオプションでも簡単だけどな。
A列を最優先キー、B列を次に優先するキーで降り順で並び変えて、A列が一つ上と異なるものを抽出すりゃよい。

なんだ、>>270なんて馬鹿回答があったのかよｗ
配列数式を覚えると馬鹿になるの典型だなｗ

>>275
>>270は釣りだろ？
ピボットテーブルで最大値ってごくまともな回答がすでに上がってるのに、わざわざ糞みたいな式で「もちっとまともな回答してやれ」ってネタとしか思えん。

ピボットで即解決してるのに、的外れなVBA書いてバカみたい。

もう手遅れだな

色々な答えが出るのは良い事だと思うけどな
ピボ厨VBA厨問わず、なんで批判しかできないんだろう？

自分で質問して自分で回答してるんだから仕方がないよ

.妄想おつ
いつもの気違いかな？

>>279
ここは2chです
これ以上の理由はなかろう

>>279
VBA厨が一方的にバカさらしているだけだろ。
やつらの羞恥プレイだな。

このスレ先頭から読んでくとひどいな。バカだらけ。
質問>>47なんか典型的な制約条件付き最適化問題なのにバカどもが「情報少ない」とか抜かしてやがる。
質問>>111も条件勝手に解釈したバカにつきまとわれてかわいそう。
車種別最大売上で何回指摘されても問題の意味さえ理解できないVBA厨。

こいつらおバカタレントか？

おバカタレントって言葉、使ってる人いるんだ

>>284
俺は>>111にたいして>>116-117を答えたが、俺は馬鹿の仲間？

>>286
回答を間違えただけなら問題ない。おバカタレントはスターなのだ。

なんだ、あとのやり取り読んだら>>117がまずいのはすぐ分ったよ。
あのあとしばらくこのスレ読んでなかったんでね。
1/1〜1/4と1/2〜1/3なら4が欲しいということね。
馬鹿ですまんかった。

>>282
すまんかった、俺が悪かった

自演基地外が沸いてるな

自分なりに答えて頂いた方法を試した結果
確かに一番簡単で早かったのはピボットテーブルですね。
これまで使ったことなかったので、こんな簡単にできるとは知りませんでした。
あとVBAはこんな単純なケースだとかえって使いにくいですが
他の似たような例に応用してみようかと思ってます

ともかく、答えて頂いた皆様どうもありがとうございました

xp、エクセル2003でvba×です教えください
エクセルで作った表が保存できなくなってしまいました。どうしてでしょうか?
上書き保存も新規保存もダメです
保存しようとすると「保存できません」とウィンドウが出ます

自演基地外が沸いてるな
自演基地外が沸いてるな
自演基地外が沸いてるな

もうやめようぜ　せっかくの良スレだ

「自演基地外が沸いてるな 」と言ってるやつが自演してたりしてｗ

2ch初心者の頃はよくやってたなw
名無し同士だと全く意味はないがw

いい加減他人のふりしてないでちゃんと「ごめんなさい」くらい言えるようになれ
くだらねー

ごめんなさい　すみませんでしたm(__)m

今更ですまんが、>>111って数式でどうやりゃいいんだ？
頭悪いので>>119が理解できなくて怪しいんだが、A<B、C<Dが担保されてりゃユーザー定義関数ででけた。
Function 日数(a, b, c, d) As Long
Dim i As Long
With WorksheetFunction
ReDim e(.Min(a, c) To .Max(b, d))
End With
For i = a To b
e(i) = 1
Next
For i = c To d
e(i) = 1
Next
日数 = WorksheetFunction.Sum(e)
End Function

数式だとIFばっかで俺には難しいな。
簡単な式はないんだろうか？

A<=B、C<=Dが担保されてりゃの間違いだった。

>>300
イメージは>>128のとおり。
日付はランダムだから、前後関係は全く担保されない条件ですね。
>>122で自己解決済み。
式でやろうとすると、IFの嵐になるね。

>>300
>>301です。
最低限、A<=B、C<=Dは担保されてるんでしょう。

>>302
じゃぁ俺のユーザー定義関数はあってるんだな。
>>122のような作業列作らない式だとやっぱIFの嵐は仕方ないのかな？

誰か>>184を頼む・・・。rz

>>304
自分は読解力がないので>>184の言いたいことが分からない。
誰か読解力のある人お願いします。

>>304
>このタブの表示位置を左右のスクロールと別の高さで表示できないでしょうか？

できないかも知れないとは思わなかったの？

思わなかったかな

Web（HTML）とどちらに聞いた方がいいのか迷いましたが、
こちらでどうかご助言お願いいたします。

【1 OSの種類 　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 本を読みながらなら
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 IE　ハイパーリンク　シート　エクセル
IEでシートを指定してエクセルのシートを開きたいのですが可能であれば
方法をご教示お願いいたします。
検索をかけても同じ悩みの方は一番最初に見つけましたが解決方法が
わかりませんでした。（IEの設定を変えるとかはなしで）

↓こんな感じのを作りたいです
エクセルで作ったHTMLファイルを作成しました。
ある1つのエクセルファイルのシート（たくさん）内容を目次にしたもので
目次項目はリンク付け。
該当リンクをクリックするとそのシートが表示される。

ファイルそのものはリンク付けできますが、シートを指定することができません。
ＩＥで開く（表示）方法が知りたいのですが、
それとクリックするとエクセルが起動して表示される方法とかもあるのでしょうか。
意味が伝わらない点などあるかもしれませんがどうかご助言お願いいたします。

返信遅くなりましたが
>>252
検索系関数でなんとか出来ないかと思ったが自分の知識では無理だったんだ、済まない
>>270
そうかただSUBSTITUTEを並べてもダメだが1個1個順番に処理すればよかったのか･･･

初歩の初歩の質問に答えてくれてありがとう。おかげでなんとかなりそうだ

>>308
とりあえず
ツール→マクロ→Microsoft Script Editor立ち上げて試行錯誤してみては？
そこならＨＴＭＬ構文で確認出来るから。

質問させてください。

自分は社会人なのですが、Office Excel 2007 アカデミックを買おうとしています。

マイクロソフトへユーザー登録（認証など）する場合、何か証明証は必要ですか？

【1 OSの種類 　 　 　 　 .】 WindowsXP-Pro
【2 Excelのバージョン 　 】 Excel2000

http://uproda11.2ch-library.com/1986080PH/11198608.png
上図のような区切り線（B列の次がL列で表示）を出すにはどうしたら良いでしょうか？

>>312
ウインドウ→ウインドウ枠の固定
ウインドウ→分割
どっちでも使いやすいほうで
>>311
ttp://www.sofmap.com/product_detail/exec/_/sku=10697382/-/gid=SW10010000
学生証。ってか、これ以外に無いでしょ

>>313
教員とかもおｋじゃなかった？

>>311
http://ja.wikipedia.org/wiki/アカデミックパッケージ

>>311
板違い

professionalが18000円弱で買えるもんね。おれも買っちゃったよ。

>>317
どこで？

>>119, >>111
A1 期間１スタート
B1 期間１エンド
C1 期間２スタート
D1 期間２エンド
とすると

MIN(B1-A1+D1-C1+2,MAX(B1,D1)-MIN(A1,C1)+1)

期間１の日数と、期間２の日数を単純に足した延べ日数と
期間１と期間２の初日から最終日までの日数を比べて
小さな数字が実日数

つまり、基本的に期間１+期間２の日数だけど、範囲日数はみ出たらそこまで、って考え。

＝MIN(B1,C1)-A1　＋　D1-MIN(B1,C1)　＋１
これでいいんじゃないの

結局VBA厨はMAXとMINを必死で実装していたわけだ。

>>320
期間がだぶってるときはいいが、離れてると正しい結果にならない
離れてる時とだぶってるときとIF(B1>C1,……で分ければいいか

>>320
全然駄目っぽいぞ？
9月1日 9月5日 10月1日 10月5日
これが35日になる。
ぱっと見10日だもんな。

すでに指摘が入ってたか。

>>319
なるほど、うまいね。

>>321
>>299なら全然必死じゃない。
ごく単純な考え方だから、考えるてコード書くのに1分もかかってない。

>>325
>>321にかまうなって、自分はできないもんだから僻んでるんだから。

以降、>>321みたいのはスルーで

なんでスルーなんだよｗ
vba使ってる連中はvba使うことが目的になりがちだからいい薬になっていいんじゃねーの

批判するのはいいんだけど、別の方法書いてから言って欲しい

＞＞313
＞＞315
ありがとうございます。

>>329
そのとおりです。

VBA厨には基礎的な学力や経験が足りない。だから質問の意味さえ理解できないのだ。
もっと勉強しなさい。過去の偉大な発見、発明に敬意を払うべき。
他人からの批判に謙虚に耳を傾けることだ。おまえらはバカなんだぞ。

はいはい。
偉大なる>>332に敬意を払います。

>>111です。
厄介な質問をしてしまい、申し訳ないです。
m(__)m

>>334
ここの回答者はカスが多い。
厄介な質問ではないよ。この程度の質問を理解できないやつに回答する資格などない。

>>335
はて？
おまえさんの回答はどれだい？
おまえは質問を理解することだけ得意なんじゃねーの？
質問を理解出来ても答えはだせなかったりしてｗ

>>336
まあ例えば
>>68
>>129
>>243

あたりが私だ。
質問を理解できないお前がどうやって回答できるのだ？

>>337
だから>>111に対するお前の回答はどれなんだよ。
ここで>>111を満たす回答は>>319しか出てねーんだが。
おまえは>>319かい？

>>111が
【4 VBAでの回答の可否】 否
となっている件

319はVBA使ってないよなぁ。

>>338
私は>>111に対して回答はしていない。
それがどうかしたか？

なんだ、質問理解のエキスパートなだけで、回答のエキスパートじゃなかったのかｗ

>>342
安心したか？
これからもおバカタレント級の回答を期待しているぞ。
どんどん回答しろ。

>>111に対する回答じゃなくて・・
一般的に「悪」といわれてる手法でも、それが質問者にとって最も早く確実に仕事が終わるなら、ならそれが「最良」の回答なんだよ
配列数式、ピボット、vba。どれを選ぶかは質問者が決めることだし、最良の手法は私たちには分からない

関数厨である私はそのことを踏まえて、あえてピボットで回答が出た後でも関数での回答を出す
それは「ピボットが再計算をしないことがある」という最大の欠点があるから
せめてピボット厨はピボットテーブルの回答を出すたびに、常に「再計算には要注意」と一言添えて欲しい
再計算さえ自動にしてくれるなら最も手軽で最高の計算方法だと言うことは俺でも分かる
そこまで質問者のことは考えてる？>>180とか本当に最低の回答だよ

長文失礼。でももう少し回答者のこと、背景も踏まえて考えてあげて欲しい

ようしゅがここにいない？

「ピボットが再計算をしないことがある」
VBAでピボットを再計算させればいいじゃないか

ピボットは自動再計算をしないことがある、は間違い。
ピボットは自動再計算をしない、が正しい。
しないことがわかってれば何の問題もない。

質問者の意図は最適でないことがある。
2つの重複することがある期間の日数を求めるなんて問題は
関数で解決するのが当然。VBAなんて使う必要はない。

>>344は抽出も関数でやりそうだなｗ

俺も>>344と同じ考えだ。
違うのはVBA厨と言うことだけだ。だからあえて>>111への回答をVBAで書く。
もう一度言っておくが”これは一つの回答に過ぎないと言うことだ”

・Sheet1にこのように表示させると仮定
A B C D 日数
1 9月1日 9月5日 9月10日 9月15日 10
2 9月1日 9月5日 9月3日 9月15日 15
3 9月1日 9月5日 10月1日 10月5日 9

↓

とにかく>>344がどうしようもない馬鹿なのはわかった。

>>349つづき
'標準モジュールに以下を貼り付け
Sub 期間取得()
Dim WS1_Name As String
Dim WS1 As Worksheet
Dim LstRow As Long, Jitsu As Long, Nobe As Long, i As Long
Dim A As Date, B As Date, C As Date, D As Date
Application.ScreenUpdating = False
WS1_Name = "Sheet1"
Set WS1 = Worksheets(WS1_Name)
With WS1
LstRow = .Range("$A$65536").End(xlUp).Row
.Range("F:F").ClearContents
.Cells(1, 6).Value = "日数"
For i = 2 To LstRow
With .Cells(i, 2)
A = .Value
B = .Offset(, 1).Value
C = .Offset(, 2).Value
D = .Offset(, 3).Value

>>349つづき
If (B - A) > 0 And (D - C) > 0 Then
Jitsu = (((B - A) + 1) + (D - C))
Nobe = ((D - A) + 1)
If Jitsu > Nobe Then
.Offset(, 4).Value = Nobe
Else
.Offset(, 4).Value = Jitsu
End If
Else
Jitsu = 0
Nobe = 0
End If
End With
Next i
End With
Application.ScreenUpdating = True
End Sub

>>349つづき
'Sheet1の変更時イベントに以下を貼り付け
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WS1_Name As String
Dim WS1 As Worksheet
Dim LstRow As Long
Dim i As Integer
WS1_Name = ActiveSheet.Name
Set WS1 = Worksheets(WS1_Name)
With WS1
LstRow = .Range("$A$65536").End(xlUp).Row
For i = 1 To LstRow + 1
With ActiveCell
If .Row <= i And .Column <= 5 Then
Call 期間取得
End If
End With
Next
End With
End Sub

>>346
たまに言ってるよ。ピボットは最高のクロス集計ツールなのは間違いないからね。再計算を除けば
ただVBA×なら言えない
>>347
>関数で解決するのが当然。VBAなんて使う必要はない。
がそうでもないというお話
全てのやり方を回答者が提示して、質問者が好きなやり方を採用すればいい
そこに「一般的」という問題は、無い。質問者自身が「異端」という可能性があるからね
逆に「異端」な質問者から見れば>>347は「異端」な回答ということになる
>>348
さすがにそこはオートフィルタ使うわな

オートフィルターは自動じゃないしｗ

そうだな

>>351-353
MAXとMINの実装ごくろうさん。

>>313
さんきゅう

>>354
ピボットがクロス集計ツールだと言うことにVBA厨が気付いたのはごく最近だろ。
それまでクロス集計のサブセットばかり再実装していたんだろうが。

くだらん、いつまでやってんだ。寝る。

>>344
>>関数厨である私はそのことを踏まえて、あえてピボットで回答が出た後でも関数での回答を出す

公開オナニーですかｗ

○○房など、手法にこだわるﾔﾂにろくなのはいない。

>>361
羞恥プレイだよ。

形式に拘ってる奴ほど仕事が遅いんだよな
本当にアホじゃないかと思うよ

>>359
そんなこと、とうの昔に知ってるんだが
誰と勘違いしてるんだ？

連投ご苦労様。早く寝ろ。池沼。

今晩夜勤なんだ。多分朝までいるよ

>>365
もしくは問題をクロス集計へ抽象化できない低脳の集まりだな。
具体的にFORループを回しながらでないと考えられないんだ。

そうだな

そうだな

また、いじめられ単だね。わかります。

>>351-353
おまえわざと突っ込みどころ入れてるのか？
WS1_Name = ActiveSheet.Name
Set WS1 = Worksheets(WS1_Name)
これはなんでつか？

おれさまはピボットをお前らより先に使ってたんだぜ。
おまいらまいったか。

まいったな

【1 OSの種類 　 　 　 　 .】 WindowsXP・2000・98
【2 Excelのバージョン 　 】 Excel2003か2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マクロ　置換
複数ファイル、複数シートに記述されているマクロの内容を一度に変更する方法は出来ますか?
マクロの内容は「プリンタを変更→印刷→プリンタを戻す」というマクロなのですが
PCを変えるとプリンタの場所に関する記述が変わるようで、それを一度に置換したいのです
よろしくお願いします

あのね、一気に変更する方法は有るには有るけど、
そもそも、そういうものを個別のブック、シートに記述するのが間違い。
そういうのは個人用マクロブック(personal.xls)やアドインに記述するものだ。

個人用マクロブックやアドインに記述したマクロは、全てのブックやシートから呼び出せる。
というか、開いているブックやシートに関わりなく呼び出せるし、修正も一カ所。
「一気に変更する方法」より遙かに楽なので、この機会に正しい方法へ変更しな。

更に言えば、修正する際も、コードを直接弄るのではなく、変更先および戻し元となる
プリンタを選択するダイアログをユーザーフォームで作り、個人用マクロブックやアドインの
非表示シートにそれを保持するなどの方法が良い。

個人で使っているうちはまだいいが、業務で使うようになるとこんなのは当然の手法と配慮だ。

因みに「一気に変更する方法」は、VBAの分野ではなくVBの分野なのでここでの解説は出来ない。

>>372

良く読む気になるねｗ
変数名からしていつもの子だと思って読まなかったよ。

この子はマクロの記録出身らしく、自動生成されるコード
のそれぞれの意味をあまり理解していない傾向がある。
だからそんな突っ込みしてもきっと何が問題なのか分か
らないよ。

スルー推奨だよ。

VBA否にVBAで回答するような人ですから･･･

改めて読むと、突っ込み所満載だな。
これでVBA厨を名乗られても困るんで
誰か建作してやれよ。

添削（健作ｗ）以前にこれ作るくらいなら自作関数作るだろ。

>>376
ありがとうございました
VBで調べてみます

>>379
VBA厨のダメなところは、コードの良し悪しではない。そこを勘違いするなよ。

頭と顔と性格だよな

年収もね！

体型も悪そう

俺は185の75Kgのスポーツマン。
おまいらパソコンの前にばっかりいるんじゃねーぞ。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 リスト　ドロップダウン　塗りつぶし　網掛け

海外の取引先から送られてきたファイルで
入力規則でリスト、ドロップダウンリストから選択にした時
例えばAとBの選択肢からAを選んだ場合、特定の別なセルに色がつき
Bを選ぶと色が消える、という処理がされていました。
これをどうやってやるのか教えてください。

>>387
条件付書式で
数式が=$A$1="a"
これでA1がaと入力されている時に設定しているセルの色を変えたり出来る
リストとはあまり関係が無い

>>388
素早い回答ありがとうございます
他のセルの内容を条件にする事が出来るんですね
色々と応用できそうで大変勉強になりました。

>>344
>>一般的に「悪」といわれてる手法でも、それが質問者にとって最も早く
>>確実に仕事が終わるなら、ならそれが「最良」の回答なんだよ

こうやって糞シートが量産されていくのね･･･

>>回答が出た後でも関数での回答を出す

そういうことはチラシの裏でやれってお母さんがゆってただろ？

>>そこまで質問者のことは考えてる？

考えてませんし考える気もありません。

>>180とか本当に最低の回答だよ

まっとうで最良な正論だと思うんだがな。
むしろ初心者の質問者が決めるなら選択肢にあるべき回答だと思うがな。

>>でももう少し回答者のこと、背景も踏まえて考えてあげて欲しい

お断りします(AA略

うわうざ

180本人じゃないだろ

>>390は執拗に追い回す奴。

うざすぎだろ

>>379
どうせ自分じゃできないからな。

>>395

こらこらVBA厨どうしでケンカしてどうする。
いいか？コードの良し悪しなんぞ大したことじゃない。おまえらの抱えている問題はもっと深刻なんだぞ。

×おまえら　○俺たち

>>396
で、どんな問題よ。具体的にどうぞ。

>>398
生意気にコーディングなんか語る前にもっとお勉強が必要だよ。
君たち実はピボットテーブルの使い方わからないんでしょ？

だから、どんな問題よ。具体的にどうぞ。
いえねんだろうが、面かせこら。

>>400
具体的に例を挙げると、まず>>47でケチがついたよね。


47 ：名無しさん＠そうだ選挙にいこう ：2009/08/31(月) 20:43:35
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

数量と三種類(3社の価格)の価格が100行程度あります。
最低価格を提示している会社に数量を振り分け、合計金額を求めたいのですが、
「各社ごとに決められた最低合計数量を上回りつつ合計金額を最小にする」という条件の設定が思いつきません。
ご教示願います。

48 ：名無しさん＠そうだ選挙にいこう ：2009/08/31(月) 21:02:02
一度で全てを計算しようとするんじゃなく、
作業列を作ってゆっくりかんがえてみなよ。

49 ：名無しさん＠そうだ選挙にいこう ：2009/08/31(月) 21:14:07
>>48
お前あほか？
どうやってやるんだ。説明してみろ。

>>401
で？ケチがついたことってのとの関連を説明してみろや。

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

Excel2003であるファイルにある全シートを
すべて1/2(一枚で二ページ)にして一括して印刷したいのですが
1/2の設定をしてもそのシートのみしか反映されずに
他のシートは反映されません
数シートなら手でもできるのですが
数百シートある場合さすがにきついので
できる方法があれば教えてください

>403

ﾌｧｲﾙ→印刷→印刷対象で「ﾌﾞｯｸ全体」
(ﾌﾟﾘﾝﾀ)ﾌﾟﾛﾊﾟﾃｨ→ﾚｲｱｳﾄ→割り付け

>402

雑談はよそでどうぞ。

>>402
具体的な例をあげてほしいといったからあげてやったのにね。
質問>>236に対する回答>>255はどうかな？

XPで2003なのですが、A3に100と入力するとA1の
数が100減りA2に50と入力するとA1が50減る
にはどうすれば良いでしょうか？

>>405
具体的な例とは誰も言ってないし、結局「どこがマズイのか」を答えられないのは、だれだ？結局、恥ずかしくないのかな。

>>407
> 具体的な例とは誰も言ってないし

よくそんなウソがはけるもんだねえ。

>406

A1自体に演算元の数値を入力するならVBA使わないと不可能。
あとA2=50,A3=100のときは両方引くのか？

>407-408

そろそろどっちか引いてくれませんかね？
どうせIDもなく誰が誰だか分かんないんだし･･･

演算元の数値を入力するって何？
A2とA3に数が入力されてれば合計した数を減らし
たいです。

>410
>合計した数を減らしたいです。 。

どこから減らすの？
A1に入力した値からA2/A3を引くことはVBA使わないと無理。
A1-A2-A3をA4に表示したいというならA4に「=A1-A2-A3」

あとはgoogleででも検索してExcelで四則演算くらいは覚えて
から質問してください。
あとﾃﾝﾌﾟﾚも使ってください。


ﾉｼ

質問です。
自分はエクセル2003までしか使ったことがありません。
エクセル2007の機能について教えて頂きたいです。
エクセル2007では「セル内の文字列の一部を上(下)付き文字にする機能」が追加
されたりしていないでしょうか？
あと、縦に並んだ複数セルに小数点タブを設定できたりしないでしょうか？

これらの機能がエクセル2003にないが為に、現状だと、表形式のデータをワード文書にするという
馬鹿なことをやっています。

>>412
2003でもセル中の一部だけ上付き、下付にすることは可能です
サンプル↓
ttp://windyakin.if.land.to/src/up38_1620.png

後者は質問の意味がわかりません。小数点タブとは何だ？

>>413
小数点で揃えるってことじゃないかな
>>412
表示形式で小数点第何桁までか指定すれば

>>408
>>398>>400のどこで「具体的な例」っていった？
例をあげろなんてひと言も言ってないぞこのうそつき。

結局、エラそーに言ってっても何一つ答えを出さないんじゃねーかよ。

>>415
おや？例は具体的じゃないのかい？
君にとって具体的とはどういうことなんだろうね。

VBA厨てほんまにあほやったんや。

くどいな

粘着

VBAを馬鹿にしてるやつら、いくらなんでもVBAはバリバリ出来るんだろうな。
出来なくて馬鹿にしてるなら単なる僻みだ。
クロス集計にしてもピボットテーブルだけでいつも解決するわけじゃないからな。
excel2007なら別だが。

vba馬鹿にしてねーよ
vbaが好きすぎてちょっとした事にも過剰反応して切れたうえに
粘着するキモいおっさんを馬鹿にしてるだけだから
それを僻みと思えるところが終わってるなあｗ

>>420
VBAをバカにしているわけではないのだがな。

おもしろいからもう一度言っておこう。
VBA厨のダメなところは、コードの良し悪しではない。そこを勘違いするなよ。
繰り返す。いいか？コードの良し悪しなんぞ大したことじゃない。おまえらの抱えている問題はもっと深刻なんだ。 生意気にコーディングなんか語る前にもっとお勉強が必要だよ。

「具体」の意味さえしらないなんて重症だぞ。お前。

思い込みも甚だしい奴だな。氏ね。

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

以下のような元データがあり、

　　Ａ　　　　Ｂ
１　３　　　　鈴木
２　２　　　　佐藤
３　５　　　　鈴木
４　２　　　　長島
５　１　　　　佐藤
６　：　　　　：

これを、別の場所に人物ごとに回数の数値の合計をまとめたいのです。
下記のように。

鈴木　８
佐藤　３
長島　２

どのような関数を使ったらいいか分からないので
よろしくお願いします。

お知らせ
http://image.blog.livedoor.jp/tomov808/imgs/3/d/3d1ae617.jpg

>>424
そういう集計はピボットテーブルで一発でできる

>>425
ピボットテーブルで

>>424 VBA厨がもちろんVBAでつくります　はりきってどうぞ↓

どうしても関数でやりたいならSUMIF

>>422
俺は別にVBA厨じゃねーよ。
それに俺は「具体」なんてどこにも書いてねーよ。
誰と闘ってるんだ？
妄想が激しいから病院逝った方がいいなお前。

>>424
ピボットテーブルでできるよ
関数でやりたいならsumifとかかな

>>426-429
ありがとうございました。
ピボットテーブルは何となく難しそうというイメージがあって
今まで使ったことがなかったのですが、これを機会に勉強してみます。

>>431
おまいは書き込む前にリロードしろ

基地外>>422が誰と闘ってるかさかのぼって読んでみたら、>>400と勘違いされたみたいだな。
俺も>>400と同じ疑問を持ったが、基地外の意見はスルーだな。
馬鹿にはかまわないが吉。

なんかすげーなこの人

お前もすごいなW

おまいら会って喧嘩しろよ。
何度も書いたけど、喧嘩勝った方が正しんだから。

>>434
学生さん？
バイトしたこと無いね。
そういうのは普通中学生で卒業なんだけどな
悪法も法だからなんて寝言いってたら社会じゃ通用しないよ

>>436
どこと誤爆してるんだよ。

古臭い

鰈臭

スレが異様に進んでるときの内容、リロードしなくても分かるようになってしまった
どうしてこうなった♪どうしてこうなった♪

今日は公開オナニーをみたぜ。

>>420

＞ VBAを馬鹿にしてるやつら、いくらなんでもVBAはバリバリ出来るんだろうな。
＞ 出来なくて馬鹿にしてるなら単なる僻みだ。

こいつおもしろいな。
VBA厨はきっと
「自分たちの使っているのはすごく難しい技術で、使いこなしてるオレすごい。」
という気持ちが根底にあるのだろうな。
VBAは彼らにとって、ちょっぴり難しい。そのことがちっぽけな自尊心をくすぐるのだろう。

そしてVBAは彼らにとって、やはりちょっぴり難しいようだ。
その証拠がこのスレだ。

>>424 'VBAで書くよ
・Sheet1にこのように表示させると仮定
列Ａ　列Ｂ　　列Ｃ
番号 A B
1 3 鈴木
2 2 佐藤
3 5 鈴木
4 2 長島
5 1 佐藤
↓
・Sheet2にこのように表示させると仮定
列Ａ　列Ｂ　　列Ｃ
番号 B A
1 佐藤 3
2 鈴木 8
3 長島 2

>>446 'つづき
'標準モジュールに以下を貼り付け
Sub 集計値取得()
Dim WS1_Name As String, WS2_Name As String
Dim WS1 As Worksheet, WS2 As Worksheet
Dim ValRow As Long, LstRow As Long, TmpVal As Long, MyVal As String, h As Long, i As Long, j As Long
Dim maxval As Variant, x As Variant
WS1_Name = "Sheet1"
WS2_Name = "Sheet2"
Set WS1 = Worksheets(WS1_Name)
Set WS2 = Worksheets(WS2_Name)
With WS2
ValRow = WS1.Range("$A$65536").End(xlUp).Row
LstRow = .Range("$B$65536").End(xlUp).Row
i = 1
For h = 2 To LstRow
MyVal = .Cells(2, 2).Value
.Cells(h, 1).Value = i
.Cells(2, 2).Value = .Cells(h, 2).Value
.Cells(h, 4).Formula = "=DSUM(Sheet1!$B$1:$C$" & ValRow & ",1,(B1:B2))"
.Cells(h, 3).Value = .Cells(h, 4).Value
.Cells(h, 4).Value = ""
.Cells(2, 2).Value = MyVal
i = i + 1
Next h
End With
End Sub

>>446 'つづき
Sub リスト作成()
Dim WS1_Name As String, WS2_Name As String
Dim WS1 As Worksheet, WS2 As Worksheet
Dim ValRow As Long, LstRow As Long
WS1_Name = "Sheet1"
WS2_Name = "Sheet2"
Set WS1 = Worksheets(WS1_Name)
Set WS2 = Worksheets(WS2_Name)
Application.ScreenUpdating = False
With WS1
ValRow = .Range("$A$65536").End(xlUp).Row
LstRow = WS2.Range("$B$65536").End(xlUp).Row
With WS2
.Cells(1, 2).Value = "B"
.Cells(1, 3).Value = "A"
.Range("A2:C" & LstRow).ClearContents
End With
.Range("C1:" & "C" & ValRow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=WS2.Range("B1"), Unique:=True
WS2.Columns("B:B").Sort Key1:=WS2.Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
End With
Call 集計値取得
Application.ScreenUpdating = True
End Sub

>>446 'つづき
'Sheet1の変更時イベントに以下を貼り付け
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WS1_Name As String
Dim WS1 As Worksheet
Dim LstRow As Long
Dim h As Long
WS1_Name = "Sheet1"
Set WS1 = Worksheets(WS1_Name)
With WS1
LstRow = .Range("$A$65536").End(xlUp).Row
For h = 1 To LstRow + 1
With ActiveCell
If .Row <= h And .Column <= 3 Then
Call リスト作成
End If
End With
Next
End With
End Sub

VBAなんてちっとも難しくないよな。
そりゃ極めようと思えば底なしだけどさ。

>446
>WS□_Name = "Sheet□"
>Set WS□ = Worksheets(WS□_Name)
>With WS□

お前はWS□をどうしたいんだ？
とりあえずWithの使い方をもっと勉強しなさい。

ピボットテーブルの偉大さがあらためて思い知らされる素晴らしいサンプルだな

>>452
まったく同感だ。

>>451
そして厨どうしでコードの品評会。
ギャグか？

>>451
これはそれほどひどくはないんじゃね？
With Worksheets("Sheet□")だと実行時バインドで入力候補出ないしさ。

ただ前みたのはひどかった。
WS□_Name = ActiveSheet.Name
Set WS□ = Worksheets(WS□_Name)
With WS□

これは
Set WS□ = ActiveSheet
With WS□
とした方がいいけどさ。
With ActiveSheetは実行時バインドだ。

>>450
VBAは極めてもあんまり意味ないよなぁ
マクロの記録、改変ができればとんでもなく便利だが、その先がイマイチ
さすがにloopやifは覚えといた方がいいけど

>>455
ご指摘ありがとうございます。

>>457
分ってくれたか。まぁがんがれ。
アルゴリズムも勉強した方がいいと思うけどな。
アルゴリズムをすっ飛ばしてピボットやらクエリでも生きてはいけるけどね。

>>413
上付き、下付き文字の件は失礼しました。情けない質問をしてしまいました。

もうひとつの質問の小数点桁タブ(>>412では小数点タブと略して書いてました)についてですが、
>>414
ワードだと、たとえば[100, 50, 0.4, 0]に小数点桁タブを設定すると、
(等幅フォントでご覧下さい)
100
50
0.4
0
となりますけど、これと同じ表示をエクセルの書式でほんとに可能でしょうか？
せいぜい頑張っても、
(等幅フォントでご覧下さい)
100.0
50.0
0.4
0.0
これくらいしかできないんじゃないでしょうか？
条件付き書式で可能でしょうか？

文字列関数で後ろに半角スペースつけて調整すればいいんだよ

>>459
条件付き書式で桁を揃えて小数点を消すのは2007なら可能
ただし、そのものズバリの機能が追加されたわけじゃないからちょっと工夫が必要
でも2003でも作業列を使ったりVBAを使ったりすれば同じことはﾃﾞｷﾙﾖ

>>459
すみません。(等幅フォントでご覧下さい)と書いたけど無駄でした。
レス投稿時に行頭のスペースは自動的に削除されてしまうんですね。
投稿前の元々の状態では
100は左にスペース0個
50は左にスペース1個
0.4と0は左にスペース2個
です。

>>460,461
VBAとか作業列とか文字列関数とかだと
見えるセルの値にスペースが追加されてしまうわけで、
出来る限り避けたいです。
でもエクセル2007だと望む表現ができるようですね。
みなさんありがとうございました。

>>459
"Excel 2ch 桁揃え"でぐぐってみろ。
VBA厨に絡まれて大変だったよ。

>>463
VBAでやる場合は文字列をいじるんじゃなくてセルの書式を数値に応じて1つずつ変更する
そうすれば余分なスペースは追加されない

>>465
そうですね。VBAだとそれが可能ですね

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 方法が無いのでしたらがんばってみます
【5 検索キーワード 　 　 】エクセル 座標 方眼紙 offset LOOKUP　を組み合わせて
　　A
1　-10,8
2　-8,8
3　5,0
4　0,0
5　12,2
　　:
以上のような座標データがあって、方眼紙状にした別シートに
この座標を色つき枠で囲ったりセルを塗りつぶしたりしたいのですが
どのような方法を用いたらよろしいでしょうか、ご教授お願いいたします

>>467
VBAでなら思いつく。関数他では分からん。
一つ頂点を決めて三角形に分ける。この場合は三つ。
そしてその三角形の内側に当るところのセルを塗りつぶすわけだが、
行の高さや列幅、座標がどういう風になってるか分からないと答えようが無い

何をしたいのか見当も付かないけど、素直にグラフ作るか、他の方法を考えてみては?

>>467
算数＋条件付書式

補足

やろうとしていることが間違ってる。

>>467ではありませんが、
>>469
具体的にどうやればいいんでしょうか？
「算数」の部分が分かりません。
純粋にこの問題の解き方を知識として知りたいので、>>470はナシでお願いします。
座標はY軸を9行目が-1、10行目が0、11行目が1、12行目が2・・
X軸はI列が-1、J列が0、K列が1、L列が2・・
という前提でお願いしたいのですが、座標軸の開始位置などは変わってもかまいません
(解き方を知りたいだけですので)
宜しくお願いします。

>>471

方眼紙（ｗ）状の１セルの重みに応じて結果を条件付書式で参照する。

-10.8が何セル目に相当するかは普通に算数で計算すればいい。
仮に該当セルが結果を0/1で返すならがそれを条件付書式の条件にすればいい。


くだらねぇ〜

>>471
小数点以下はどう解釈するの？
セル単位じゃなくて中途半端な場所に色を付けたりしたいんなら
VBAでオートシェイプを並べるしかないよ

それから平面座標は数値が2つずつ必要なんだけど、
1列目=X 、2列目=Yなの？
説明が足りなさすぎ

>>472
無理だろ

>>474
算数が出来ない、もしくは頭が非常に固い子

>>473
-10,8とあればどっちかがXでどっちかがYだろ
わかんないならだまってればいいのに

>>473

> 小数点以下はどう解釈するの？
> セル単位じゃなくて中途半端な場所に色を付けたりしたいんなら
> VBAでオートシェイプを並べるしかないよ

お前正気か？
大学で線形代数取らなかったのか？

>>473

デジカメで撮った写真はどうやってパソコンのディスプレイに表示していると思っている？
アナログをデジタルに変換できないようなやつは回答者面しないでくださいね。

エクセルすげえええええええええええええええええええええええええええ
考えた奴神！！！神すぎる！！！！！便利ってレベルじゃねえええええええええええええ
関数まじやべえええええええええええええええええええええ

あの・・本当に分からないので数式お願いします。

無能ってプライド高い割に何も出来ないからな
あんまりいじめてやるなよ、第二の加藤になるぞ

>>480

Y=-10.8の時に塗りつぶしセルの条件付書式を
セルの値が/次の値に等しい/-10.8　と設定して
そのセルの数式を=B1にする。

チィチィパッパが、せいぞろい( ´,_ゝ`)ﾌﾟｯ

>471,480
簡単にやってみました。(WindowsXp Excel2003)
条件として、座標はｘ、ｙとも０〜１５の整数値、データと「方眼紙」は同じシート
にしています。（条件付書式の制限のため）
ｘ（横方向）はＡ列、ｙ（縦方向）はＢ列、「方眼紙」はＥ２：Ｔ１７の範囲とします。
Ｅ１：Ｔ１は０〜１５の目盛り、Ｄ２：Ｄ１７も０〜１５の目盛りとします。
※Ｅ２が０，０、Ｔ１７が１５，１５の座標とします。

Ｃ１に計算式　=A1*100+B1 を設定してＣ列（座標データのある行まで）にコピーします。
Ｅ２：Ｔ１７を選択して条件付書式として
数式　に　=MATCH((COLUMN()-5)*100+(ROW()-2),$C$1:$C$256,0)
※$C$1:$C$256の部分はＣ列の計算式を設定した範囲にしてください。
書式　に　セルの塗りつぶし　を設定すると、座標に応じた位置のセルが塗りつぶしされます。

座標値に小数点がある場合はINT,ROUNDなどで調整します。
=(ROUND(A1,0)*100+ROUND(B1,0)など
座標にマイナス値があったり、y値を下の方が０やマイナスにするのであれば、Ｃ列の計算式を
工夫します。
=(A1+8)*100+(15-B1)
は、ｘ座標が−８〜７で、ｙ座標は０〜１５かつ目盛りは下(17行目)が０で上(2行目)が１５
になります。

>>482
全ての条件でそれを設定するつもりか？

ちょっと訂正　下から6行目の
=(ROUND(A1,0)*100+ROUND(B1,0)など
は
=ROUND(A1,0)*100+ROUND(B1,0)など
です。

>>485

ｼﾗﾈｰﾖｗ

1セルの重みに合わせて範囲にする、あるいは作業セル
可ならどっかのセルで整数化して条件付書式のrow()と
組み合わせようがいくらでも適応できるだろ。

VBA厨の俺はVBAでやるぜ
Sheet1 座標データ
Sheet2 塗りつぶす方眼シート
J10 原点のセル

Sub aaa()
　　On Error Resume Next
　　For Each c In Worksheets("Sheet1").UsedRange.Columns(1).Cells
　　　　Worksheets("Sheet2").Range("J10").Offset(-Split(c, ",")(1), Split(c, ",")(0)).Interior.Color = vbRed
　　Next
　　On Error GoTo 0
End Sub

関数じゃできないとか、少数はオートシェイプとか言ってる低学年もいるようだが、ただの線形変換に何を大騒ぎしているのか。バカか？
ただ、この問題(方眼紙セルへのデータプロット)にVBAを使ってもバカとは思わない。集計におけるピボットテーブルのように強力なツールが存在しないからな。

それよりもExcelでこんなことすること自体があほ。

>>488
それで動けば最高なんだがな．．．

まあExcelでやるなら普通は散布図にするわな
どうしてワークシートを塗りつぶす必要があるんだろう

>>467の
　　A
1　-10,8
2　-8,8
3　5,0
4　0,0
5　12,2

なら、

Sub aaa()
On Error Resume Next
For Each c In Worksheets("Sheet1").UsedRange.Columns(2).Cells
Worksheets("Sheet2").Range("J10").Offset(-Split(c, ",")(1), Split(c, ",")(0)).Interior.Color = vbRed
Debug.Print Split(c, ",")(0)
Debug.Print Split(c, ",")(1)
Next
On Error GoTo 0
End Sub

皆さん色々ありがとうございます、本来エクセルを使ってやるようなことではないのですね申し訳ないです
484さんの方法と488さん,492さんのVBAを用いた方法で挑戦してみます、ありがとうございました

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

項目
x
y
x
a
b
a
c

このようなデータから重複をカットして
項目
x
y
a
b
c
と取り出すにはどうしたらいいですか？
フィルターオプションで出来るのは知ってますが、関数でやりたいです。
検索しても希望に合うものがありませんでした。

関数でできるならフィルターオプションに重複除去なんて機能はいらんのだよ

>>494
COUNTIFでそれぞれの行より上に同じ物があるかどうかチェック
上に詰める方法は知らん

>>494
関数だけでは実用的な方法はない。
関数オンリーじゃなく並び替え可ならなんとか関数でも使える方法がないこともないが、それじゃ最初からピボットの方が楽だわな。

>494
こういう方法はいかが？
条件：元データはＡ１から始まっているものとする
　　　作業列をＢ、Ｃ列につかう
　　　取り出し先をＥ１からとする

B1セルには　１　を入力
B2セルには　=IF(COUNTIF($A$1:A1,A2)>0,0,1)　を入力して以下ドラッグコピー
C1セルには　１　を入力
C2セルには　=B2*(SUM($B$1:B2))　を入力して以下ドラッグコピー
E1セルには　=LOOKUP(ROW(),$C$1:$C$100,$A$1:$A$100)　を入力して以下ドラッグコピー
注）$100の部分は実際の元データの最終行位置を指定してください

これで、Ｂ列には重複していないデータのセルなら１、重複（既出）セルなら０が表示され、
Ｃ列には重複していないセルのみ一連番号が、重複（既出）セルなら０が表示されます。
Ｅ列は当該行番号と同じ値をＣ列からさがし、Ａ列のデータを表示します。
お断り：手元にExcelがなく、OOoでやってみたので関数のパラメータ順など異なっているかもしれません。

>>497
実用的じゃない方法ってあるの？

>>499
うん、たとえば>>498とかね。
COUNTIFやSUMをフィルコピーは実用的じゃないからね。

>>498は実用的な方法だと思うけど

そもそも>>498はCOUNTIFやSUMはおいといて、答がでるのか？

>>501
COUNTIFやSUMをフィルコピーしたらいかんだろ？

>503
範囲の始端は$1で絶対指定、終端は自分自身の行位置(B列はひとつ上の行)なので、これでいいのでは？

>>498できねーじゃねーか・・・だから関数厨がバカにされるんだよ
E1=INDEX(A:A,MATCH(ROW(),C:C,0),1)
でオートフィル
まぁ、あくまで回答者が「関数で重複削除」を希望したからこたえるんだぞ。
重複削除に関数が適してるといってるわけじゃないぞと言って置く
>>502
出ません。代わりに謝罪します、申し訳ございませんでした
>>503
そうか？俺は問題解決するなら何でもいい派だぜ
仕事が嫌いだからな

Excelはピボットテーブルレポートを使うためのソフトだということをもっと知って欲しいね。
このスレの質問もほとんどがピボットで解決できるからな。

入門書やパソコン教室はカリキュラムの順番を間違っている。
関数よりも先にピボットを教えるべきなんだ。

LOOKUPはC列が昇り順じゃなきゃいけないのに昇り順になってないから>>498では答がでるわけねーな。
C2を=IF(B2,SUM($B$1:B2),"")とすりゃ答を出せないこともないが実用的じゃない。

>>504
君は分ってないね。

>>506
さすがにそれは無いけどwピボットはもう少し知名度上げた方がいいよなぁ
ただその前にデータの正規化の概念知らないと使えないというのも大きいかも

>>506
出たねｗ

>>506
ピボットだけで大丈夫？
VLOOKUPは？

>>511
そうそう。それも必要。
後は文字列操作や日付関係の関数を補助的に使えば便利。

で、書式設定や罫線も覚えて・・・
って全部じゃね?じゃね?

Excel2003とOOo、両方持っている自分が試してみました。
LOOKUPは働きが異なるようですね。
Excelで動くようにするためにＥ列の式はこのようになります。
=INDEX(A:A,MATCH(ROW(),C$1:C$100,0))
でいいようです。ただし、後の方には　０　がずらりとならびます。ゼロ非表示にしておくといいかも。

>>513
覚えなくていいものもある。
SUMIF
COUNTIF
配列数式
VBA

VBAは覚えた方がいいでしょ
マクロの記録と改変できれば作業効率が別次元で上がる
突っ込まれるから先に言っておくとVBAで集計は×ね(これ言ってる人ネタでしょうけど)

>>513
ソルバーも覚えておくといい
本当にめったに使わないけど、知っておくと便利な時は便利。代用できる機能もほとんどない
使わない人は一生使わないんだけどね
知っておいて損は無いよ

Excelを上達する上で、一番必要なスキルは余分な仕事を頼まれたときに
どうやって断るか、だ。
VBAを使えばどんなことでもやろうと思えばできちゃうけど、たとえば
ワークシートを方眼紙にするなんてやりたくない。
でもできないと思われるのはくやしい。

さあどうする？

>>518
その通りだな。普段からまわりを教育しておくことが大事だ。
俺はこういうの嫌がるぞオーラを常に出しておかないと
つまらない仕事ばかりふられてしまう。
ワープロの代打ちとかな。
入社すぐのころ、手書きの原稿をワープロで清書させられた時は
こいつリストラされろと本気で願ったよ。

>>517

質問>>47に対して
>>48
>>52
>>53
>>55
>>60
>>62
>>63
>>67

こいつら全員ソルバー知らない連中だね。

>>494
上の回答と似たようなものだが

B1に =IF(COUNTIF($A$1:A1,A1)=1,ROW())
これを下にドラッグコピー
C1に =INDEX(A:A,MATCH(SMALL(B:B,ROW()),B:B,0))
これを下にコピー

Ｂ列は初出なら自分の行番号を、Ｃ列はそれを数字の小さい順に拾って、A列のその行番号の文字を表示

>>521
全然駄目、SMALLを使った回答はとくに駄目だ。

つまり関数だとこんだけ面倒くさいってことを実証するスレですね

>>520
ソルバーを使う機会って本当に少ないからなぁ
非難するようなことでもないんじゃない？俺もこのスレで始めて知ったけど、回答以外で遣ったこと無いよ
>>523
オートフィルタ・ピボットだと手間は少ないが更新されない。動作は軽い
関数だと手間はかかるが一度入れれば更新され続ける。動作は一番重い
VBAだと非常に手間がかかるが好きなように出来る。腕次第だが基本的に軽い

好みとしか

なんか全然だめとか言うやついじめすぎだよ。
作業列なしの配列数式じゃないんだから、そんなにひどくないじゃん。
500行くらいなら使えるんじゃね？

>>514
>>498がOOoで動くのなら、の開発者はExcelのLOOKUPのアルゴリズムが分ってないということだな。
上から順に舐めて検索してるんだな。

「の」が余計だった。

>>524

>ソルバーを使う機会って本当に少ないからなぁ
>非難するようなことでもいんじゃない？

ソルバーは知らなくてもいいけど、やりたいことが明確に書かれた質問>>47に対して、質問者をバカにしたような回答者が多い。
こいつらが無知なのにな。

>>518
同感。
>>498みたいなのを関数で作ってくれときいてきたら、「出来るけど作ってやんないよ」が正しい対応だな。
とくに配列数式で作ってやるやつは早く引退した方がいいぜ。
害悪を垂れ流してるだけだから。

そんなこと書くと>>344が歯ぎしりするな。

>普段からまわりを教育しておくことが大事だ。
これって・・

まわりを教育するって大事だな。
たとえば結合セルは自己責任だから人に聞いてくるなってね。

XPでExcel2000です。

セルに日付をいれておいて、そのセルの日付から今日までが何日か表示できる数式はありますか？

引き算

>>533
DATADIF関数とNOW関数
>>534
は間違い

×DATADIF
○DATEDIF

>>535
わざわざDDATIDIF使うのかよ。
お前はアホだな。
>>534がよりベターな解だ。

補足するTODAY()と日付を入れたセルとの引き算な。
NOW()ではない。

>>535はTODAY()を知らなかったんじゃね？

=TODAY()-A1
=DATEDIF(A1,TODAY(),"Y")
同じ答えだから前者がいいに決まってるわ。

NOW()しか知らないのでDATEDIFじゃないとまずいと思った可能性が大だな。
=NOW()-A1
=DATEDIF(A1,NOW(),"Y")
これは答が違うもんな。

すまん"Y"じゃなくて"D"だったわ

535だが正直すまんかった。534に謝る。
ごめん。

全員落着けｗｗｗ

まぁ、いいんジャマイカ？
各人の考えから、最善のものを導けば。
互いに切磋琢磨ってことですね。
全員が100％のことを知っている訳じゃないから。

正解の人にむけて間違いはまずいよなぁ。
謝ったからいいけどね。

excel2007、OS=XPで、セルに色をつける作業で困っています。

次のルールで色をつけたいです。
A列　→　上から降順に数字が並んでいるので、同じ行のB列（要は隣のセル）に、B列最大の数字が出てくるひとつ前までグレーに
B列　→　B列最大の数字から降順で、同じ行のC列で、C列最大の数字が出てくる一つ前の行までグレーに

文章で説明しづらいのですが・・・

A B C
1 0.844 0.101 0.133
2 0.823 0.132 0.089
3 0.820 0.080 0.048
4 0.811 0.107 0.166
5 0.224 0.737 0.129
6 0.236 0.690 0.125
7 0.216 0.661 0.211
8 0.200 0.658 0.113
9 0.151 0.118 0.682
10 0.054 0.120 0.665


上記のような並びで、A列はA1〜A4、B列はB5〜B8、C列はC9〜C10
をそれぞれ色をつけていきます。
120行×25列くらいのものが、30シートくらいあります。

関数や条件付き書式をつかって、効率よく塗りつぶしていく方法はありませんか？
（VBAは不慣れです）
目で見て手作業でやっているのですが途方に暮れてきました。
ちなみに、SPSSから出力した因子分析結果の表になります。

>>545
全て条件付書式、「数式が」で式にはそれぞれ入れて下までオートフィル
A1=NOT(COUNTIF($B$1:B1,MAX(B:B)))
B1=COUNTIF($B$1:B1,MAX(B:B))*NOT(COUNTIF($B$1:C1,MAX(C:C)))
C1=COUNTIF($C$1:C1,MAX(C:C))

>>546
ありがとうございます。
その式を上から順に条件１、２、３に設定して、全セルに適用するってことですよね？
やってみたのですが色がつかないです。。

C列にはどういう条件で色つけるのか書いてないのに
どうして回答できてるんだろ……

>>548
所謂、”えすぱー”ってやつじゃね？

>>547
A列には一番上、B列には2番目、C列には３番目をそれぞれ適用する。
で、A1＝〜って書いてあるけど、条件付書式に設定するのは=以降の部分ね。
で、C列の条件が、Cに最大値が出てきて以降全て色つくことになるけどそれでいいのかな？
あと>>546のB1＝〜のNOTのところはNOT(COUNTIF($C$1:C1,MAX(C:C))) でいいと思うけどね。
自分は>>546じゃないので変なこと書いてたら>>546さん訂正よろしく。

C列は分らないのでA列とB列なら下の方が軽い。

A1 数式が　=ROW(A1)<MATCH(MAX(B:B),B:B,0)
B1 数式が =IF(ROW()>=MATCH(MAX(B:B),B:B,0),ROW()<MATCH(MAX(C:C),C:C,0))

これは簡易版の数式だ。
正確にはMATCH(MAX(B:B),B:B,0)とかMATCH(MAX(C:C),C:C,0)とかは作業セルで計算させてそこを参照させた方が良い。
120行×25列の30シートならなおさらだ。
何度も同じ計算をさせちゃいかん。

なんか一貫性がなかったな。
間違いじゃないけど最初のは一貫性をもたせて=ROW()<MATCH(MAX(B:B),B:B,0)とでもしてくれ。

>>458

> アルゴリズムも勉強した方がいいと思うけどな。

学生ならね。
そもそも学生がExcel使うなんて手抜きはけしからんと思う。
プログラミングなんてだいたい中学生くらいが夢中になって寝食忘れて没頭するもんだ。

本業を抱えた社会人がソートだの、集計だのいちいち書いていられるかよ。
この中のいったい何人がピボットやSQLより優れたツールを自作できる？

>>545だけど何みんなまじめに答えてんのよ。

>>553
何を今頃。
>>446-449がループ回しながらDSUMで各アイテムの合計を出してたから書いたまでだよ。
アルゴリズムを勉強した人ならソートしてブレイクするまで合計するだろ？
ソートも書けるにこしたことないけど、仮に書けなくてもExcelの並び替え使って同じことやればいいからね。
ピボットなんかは昔はよく制限で引っ掛かってたからみんなそうやってただろ？
10年前はDictionaryなんて知ってる人少なかったしね。
俺はもちろん知らなかった。

俺は中学生からプログラミングやってたんだぞ！すごいだろ？
ってかｗ

>>556
普通だろ。

そりゃキモい根暗オタク君にとっては普通なんかもしれねーけどｗｗｗｗ

おれなんかPC-8001でアセンブラ書いてたけど
VBAよりピボットだなｗ

>>558
質問者に対して「VBAくらい覚えとけ。」とかほざいてたくせに、自分がかなわない相手はオタク呼ばわりか。

>>559
もう二度と「キャリーフラグが立ったら…」とかやりたくないよね。
VBAでループ書くのも面倒。やりたいことをコンピュータがやってくれるべき。

>>560
いや、それ俺じゃねーし

ということにしたいのですね？

なぜわかったし

VBA厨は私らが中学生の時夢中でやってたことを今やってる。
自分も通った道だから気持ちはわかる。

>>548
とりあえず定時条件通りに書いただけ。そうじゃないならB列をテキトーに改変すりゃすぐできるから
頭の回る回答者なら改変できるかなーと思った
反省？D列以降があるなら質問者がするべきだね
>>550
ちょ、ちょっとまって！よろしくしないでwww
9分で答えた計算式だから最適化されると絶対に負ける。
>>556
俺が最初にプログラミングしたのは20超えてからだな。それ以前はさわる機会が無かった

9分もかかったのかよw

速度は十分だと思うが？
時間帯は・・

C列より右もあるならB列の条件付き書式と同じでいいんじゃないの？

>>566
9分で考えた式でも=NOT(COUNTIF($B$1:B1,MAX(B:B)))はひどすぎるな。
何でMATCHがぱっと出てこないか不思議だ。

>>570
まぁまぁ。
作業セル使わなければ俺の=ROW(A1)<MATCH(MAX(B:B),B:B,0)よりは軽いよきっと。
作業セル使うなら>>546のMAX(B:B)を作業セル、俺のMATCH(MAX(B:B),B:B,0)を作業セルに入れればもちろん俺のが軽い。

んな、どうでもいいがな。

まぁ初心者ならあんなもんでしょ

>>545です。
昨日はそのまま帰宅してしまって失礼しました。
また、C列以降の設定を確かに書き洩れていましたね。すみません。
A列、B列と同様の設定を、C列以降も繰り返し行うという条件です。
手作業でかなり進めましたが、ぱっと見、A列から右下方向に、階段状に網掛けセルがならぶ感じになります。

■
　■
　　■
　　　■

こんな感じです。
今日、時間を見て皆さんの教えてくださった数式を当てはめて試行錯誤してみます。
取り急ぎ、お礼とお詫びまで。ありがとうございました。

>>574
試行錯誤も何もB列の書式をC以降にコピーすればできるよ
コピー、貼り付けで「書式」を選べばいい

刷毛アイコン

>>571
違うと思うな。
作業セル使わない場合でも、計算量だけ考えると>>546は色をつけるセルまでの計算量は少ないが、色のついてないセルの計算量は多いから>>546が軽いということはないね。
それにB1の条件付き書式は*の左と右の両方を評価してるし明らかに無駄だし。
それにNOT使って変に凝りすぎて嫌味だよ。
A1　=COUNTIF($B$1:B1,MAX(B:B))=0
とするのが親切ってもんだぜ。

>>577
notが嫌味ってｗ
あれ単純に真偽を間違えただけだよ。
作り直すのがめんどくさかったからnotに入れただけ

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 新規　フアイル　エクセル　など
新規で作ったエクセルファイルの様式を変えるにはどうすればいいんでしょうか?

私は、ここからあそこに行きたいのですが、
どういけばいいですか?

JRでお願いします。

>>579
テンプレート　でぐぐれ

【1 OSの種類 　 　 　 　 .】 WindowsVista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel VB　画像
Excel上に図面画像を乗せてさらにその上に写真を乗せたいのですが、やり方が判りません。
理想としては、図面上のマークをクリックしたら同シート上で画像が開くような感じです。
グーグルマップのような？表示方法です。やはり難しいんでしょうか。

VBAの機能なんだけどVBで検索してVBA付加とはこれいかに
VBA以外で手軽なのはハイパーリンクの設定だけどこれじゃダメかな

同シートじゃないけどね。標準ブラウザが開くと思うけど

>>583ってExcelでやらなきゃいけない作業なのかなあ…
素直にHTMLで書けばいいような気がするんだけど。それこそクリッカブルマップとか作って。

>>577
前しか見てなくて後ろをすっかり忘れてた。
たしかにそのとおりだね。
実際に比較してもそうだった。
でもまぁええんじゃない？

質問です。よろしくお願いします。

たとえば、、、
Ａ1からＡ5までの
1
2
3
4
5
　　　　を
Ｂ1からＦ1に
　12345
としたいのですが、Ｂ1からＦ1にどのように入力すれば簡単にできますか？
（実際はＡ1からＡ100まであります。）ですので簡単な方法を教えてください。
お願いします。

　

>>588
コピー、形式を選択して貼り付け　から　行列を入れ替える　にチェックを入れてOK
関数ならB1:F1を選択して=TRANSPOSE(A1:A5)と打ってctrl + shift + enter

久しぶりに自宅PCでちょっとお仕事と思ってエクセル起動したら・・・
方向キーでスクロールします。（アクティブセルの移動が出来ない！）
VISTA
EXCEL2003
です。普通に標準インストールのままです。

だれか至急、治し方を教えてください！m(_ _)m

>590
これのことかな？
Scroll Lock (すくろーるろっく)
http://vcl.vaio.sony.co.jp/glossary/links/S0409250018059/internet-jp.html

ありがとございました！

ソレでした・・・そういうの、あったなぁと・・・orz

Scroll Lockキー

あれ？更新したつもりだったが下に隠れてた。

エロイ人おせーてです。>>588のをVBAでやるとこんな２つのしか思いつきませんがあとはどんな方法がありますか？
Sub 行列を入替える1()
Dim 最終 As Long, 値 As Long
最終 = Range("$A$65536").End(xlUp).Row
For 値 = 最終 To 2 Step -1
With Cells(値, 1)
Cells(1, 値).Value = .Value
.ClearContents
End With
Next
End Sub
Sub 行列を入替える2()
Dim 範囲 As Range, 値 As Range
Dim 最終 As Long
最終 = Range("$A$65536").End(xlUp).Row
Set 範囲 = Range("A2:A" & 最終)
For Each 値 In 範囲
If 値.Value = Empty Then
Exit For
Else
With Cells(値, 1)
Cells(1, 値).Value = .Value
.ClearContents
End With
End If
Next 値
End Sub

>>595
>Ｂ1からＦ1に
やり方はその辺でいいと思う
後はコピーをマクロでするかぐらいで

>>595
Sub a()
　　r = 1
　　While Cells(r, 1) <> ""
　　　　Cells(1, r + 1) = Cells(r, 1)
　　　　r = r + 1
　　Wend
End Sub

B1に=OFFSET($A$1,COLUMN()-2,ROW()-1)って入れてコピペ

>>596
>Ｂ1からＦ1に
よくみてませんした．．．

>>598
関数でいいけど
100列分目までコピーして貼り付けってのが万度癖
もしかすると、咥えてA100までを削除ってのがはいると
もっと万度癖
こうなるとVBAのほうが楽かも

OFFSETは何度駄目だとい割れりゃ気がすむんだ？

いやこういう場合は思いついた方法でいいでしょ
どうせデータの整形なんだし、一度しか使わないんだし
システムの都合上毎月整形、ってんならVBAが向いてると思うけど

>>589で解決してるのに、まったくVBA厨ってやつはｗ

おおっとピボット厨泣きそうなのか、ごめんごめんw
ピボットは本当に役に立たないからなw

お前ら・・

やめろって．．．

またか・・・（´ω｀）

>595
Sub hoge()
　 For i = 1 To Range("A65536").End(xlUp).Row
　 Cells(1, i + 1) = Cells(i, 1): Next
End Sub

行列入れかえたいならtranspose使うのが楽かな
vbaでもそのまんまいけるでしょ
[b1:f1] = application.worksheetwunction.transpose([a1:a5])
みたいな感じで

ああ、worksheetwunction→worksheetfunctioね

ほんとおどろいてしまうよ。
たかが行列入替のプログラムでこんだけ盛り上がれるなんて。

(´･ω･`)誹謗嘲笑はやめてね

ピボット厨話題に入れずにすねてるぞ
誰か相手してやれ

行列の転置ごときに時間かけていては、いつまでたっても目的に達しないだろ。

>>613
ピボットテーブルを使うなら行列転置みたいな要素技術で悩む必要がないんだよ。

>>614
回答自体は一瞬で終わってるから
後は最善の方法を模索してるだけじゃない？
単なる世間話と言えなくも無いが

よし、終了だな。そこまでだ！

連休なのにおまいらｗ

用もないのに絡む奴ってなんなの？

VBA厨って行列を転置したり、集計したり、ソートしたり、連番をふったり。
要素ばっかり作って満足してる。
こんなことが本当にやりたかったことなのか？
我々はなんでエクセル使っているのか、原点を思い出すんだ。

煽ります。煽ります。

魔法の箱があって、材料を入れて釦を押すと
あるモノが出来てくる。
あるモノが欲しければ、入れるモノと押す釦を
覚えれば良いだけで、中の小人さんが何を
やっているかは無関心。

そういう人はそれで良いけど
おいらは、中の小人さんが何をやってるか
つい覗いてみたくなるんだ。

>>619
でもさ新しいことを覚えて、それがある程度できるようになると
使いたくなるって言うのは本能に近いんじゃないか?
そこから先に行くと「これぐらい実装しとけよ」とかになるのだが。

>>618
まぁ全員暇なのかと・・
俺もだけどね

>>621
>>622
「新しいこと」に興味をもつのは結構なんだが、Excelスレには大人もいる。
厨房がえらそうに覚えたてのオナニーを見せ付けるような真似をするとからかわれるぞ。

厨房のオナニーとかコーフンするんだけど

おまえら落ち着けｗ

ttp://data.tumblr.com/Xxv0OgwjZqlhtg9zqqbvatToo1_500.jpg

>>625
そうか？お前変態だな。
私は大人のセックスのほうが見たい。

VBA厨に探究心のあるのなら例えば>>47に回答するとかしてみたらよかったのに。
質問がおかしいとか文句ばっかりで、おまけにソルバーの存在も知らないなんて。
お前らはIFとFORにしか興味がない変態か？

VBAはifforで大概のことが出来るし〜別にどうでもいいかな

>>628
>VBAはifforで大概のことが出来るし〜別にどうでもいいかな

原理的にはできますよっていうだけのことだ。勘違いするなって。お前らできてないし。
それにIFとFORで何でもやる気のあるやつがなんでExcel使ってんだ？

>>629

「大概のことはできる」
これがVBA使う理由なの？
でも大概のことはVBA使わずにできるよ。

つうか、条件分岐、繰り返し処理って言うのはプログラムの基本じゃないの?
BASIC、C、FORTRAN、COBOL、VBA、PASCALって触ったことがあるけど、
みんなそうだったよ。

>>629
そう怒るなよピボット厨w
エクセル使う理由は仕事で使うから。それだけだよん♪

>>628は違ったなw
IFFORとマクロの記録ってとこかな
>>630
まぁ〜そうなんだけどさ
それを踏まえたうえで、IFFORあったら大概の事できるって事で
>>631
演算、制御、入出力・・後ナンだっけ?基本というよりノイマン型でできる事は4種類ぐらいしかなかった気がする

>>631
お前の触ったことあるのは全部親戚兄弟ばかりじゃないか。
いっしょで当たり前だよ。

VBA厨は浅いなあ。

>>634
釣りはほどほどに><

>>632
>エクセル使う理由は仕事で使うから。それだけだよん♪
↓
エクセル使う理由は仕事で使うから。
↓
使う理由は仕事で使うから。
↓
使う理由は使うから。



こんなやつがプログラムなんて書けるのか？

プログラムはバカでも書けるから

つーかマクロの記録すればプログラムを書かなくても作れてしまう
メモリの概念すら無くても作れるんだぜ？すげー時代だよな

>>634
それ以外っていうと量子コンピュータだよな
量子こんぷーたーのプログラム覚えるのもいいけど、機械自体が手に入らないからな
今6bitぐらいだっけ?計算可能なの

>>639
どこまでもバカだな。
途方もないバカだ。

>>639
>1998年に2qubit、1999年に3qubit、2000年に5qubit、2001年に7qubit[1]、2005年に8qubitが実現した
単位はqubitだよ。今は知らない。スレ違いだけど>>640の無知は見てて悲しい

くたばれ

>>641
「BASIC、C、FORTRAN、COBOL、VBA、PASCAL以外は量子コンピューティングです」
という主張か？

>>643
いやlispもDもrubyもなでしこもあるけど、それはそのBASIC〜に含まれてるでしょうに

「BASIC、C、FORTRAN、COBOL、VBA、PASCAL」=ノイマン型
量子コンピュータの"現状の"基本的な言語(Shor)=非ノイマン型
で分けるでしょ。量子コンピュータでCとか走らせることもそりゃ出来るだろうけど、普通しないでしょ。

>>643
全てノイマン型であり親戚なのは当然という前提で話してると思ったが
その意図すら汲み取れない人がいるとはねぇ

ピボットしか使えないんでしょ
あんまりいじめるなwまた切れるぞwww

お前ら・・スレ違いすぎるぞ

>>644
とりあえず我々の現実的に利用可能なコンピュータの話をしよう。
なにしろエクセルの話題なんだから。

>「BASIC、C、FORTRAN、COBOL、VBA、PASCAL」=ノイマン型

うん。全部ノイマン型だよ。ノイマン型のコンピュータ上で動く。
だからさ。現実の僕らが使うことが可能なプログラミング言語をノイマンか非ノイマンに分類したってしょうがないだろ。
ノイマン型しかないだろ。実際。

そうじゃなくて、
「BASIC、C、FORTRAN、COBOL、VBA、PASCALというのはプログラミング言語としては、非常に似通っているでしょ。」
という話なの。
例えばLISPなんかはそれらとはかなり遠いでしょ。そういう話。

通じないやつだな。

>>644
そして
>>631
>つうか、条件分岐、繰り返し処理って言うのはプログラムの基本じゃないの?
>BASIC、C、FORTRAN、COBOL、VBA、PASCALって触ったことがあるけど、
>みんなそうだったよ。

にもどるわけだけど、
条件分岐、繰り返し処理を明示的に書かないプログラミングも存在するんだよ。

なんでもいいけど>>631と>>639は別人だぞ
>>648>>649
明示的であろうが無かろうがやれることは一緒でしょ
もし言語上制限があったらそれは俺の知識の範囲外だけど、無いと思う

何の話だっけ?

>>650
例えばピボットテーブルはクロス集計を簡単にプログラミングすることができる。
ウィザード使うからプログラミングと意識しないけどな。

>明示的であろうが無かろうがやれることは一緒でしょ

それはその通りだ。ピボットテーブルも内部は条件分岐と繰り返しの塊りだ。

>>651
それスクリプトでしょ

>>652
スクリプトって何？

>>651
でー何の話だっけ?
>>618ぐらいからか？
VBAを使う理由になるのか？
私は仕事でつかってそれを便利にしてだけだが。ピボットも再計算できるようにしてある
ちと重いが間違うリスクに比べればどうでもよろしい

>>653
スクリプトとは、機械語への変換作業を省略して簡単に実行できるようにした簡易プログラム。
通常、プログラムはプログラマの書いたソースコード(設計図)をもとにコンピュータの理解できる機械語に変換して実行されるが、そのプロセスを自動化して簡単に実行できるようにしたものをスクリプトという。
特に、Webページ上で、HTMLだけではできない様々な機能を利用するための簡易的なプログラムをスクリプトと言うことがある。
スクリプトを記述するための言語(スクリプト言語)にはPerlやVBScript、JavaScriptなどがある。
だとさ
厳密に考えればその差は曖昧だと思うが

>>654
要はVBA厨はアホだという話につきる。

>>655
じゃあVBAはスクリプトだね。

>>657
そうだよ。知らなかったか

>>658
知ってたよ。知ってて>>653の質問したわけ。
そしたら
>>655
>>657
>>658
という予想通りの展開で面白かった。

VBAに入力すればスクリプト、VBで入力すればプログラム言語。境目なんてねーよw
マクロとかスクリプトって呼ぶとしょぼく見えるのはなんでなんだぜ？

こわ

>>658>>659
知ったか乙です〜
ttp://www.microsoft.com/japan/msdn/vba/prodinfo/backgrounder.htm
知らないようなのでここを読めばいいと思いますよ〜
>>660
両方プログラミング言語ですよ。

>>662
そのサイト長いからお前の言葉で短く説明してくれ。

>>663
スクリプト言語とかどこにも書いてないって内容です

>>664
スクリプト言語って何？

>>665
ttp://www.google.com/search?client=opera&rls=ja&q=%E3%82%B9%E3%82%AF%E3%83%AA%E3%83%97%E3%83%88%E8%A8%80%E8%AA%9E&sourceid=opera&ie=utf-8&oe=utf-8

>>666
ここに書いてよ。

>>664
スクリプト言語かどうかを判定するには、「スクリプト言語とは何か」を定義してもらいたい。
「マイクロソフトのサイトにスクリプト言語とは書いていません。」では判定できません。

>>666
WikipediaやIT用語辞典を読んだ限りでは
「VBAはスクリプト言語ではない。」
とは主張できなさそうだが。

>>668>>669
失礼思い込みだった
いくら調べてもスクリプト言語とプログラミング言語の境目は無いね

「VBAはスクリプト言語なんかじゃねーよ。バカにすんな。」
「スクリプトって何？」
「機械語への変換作業がいらない言語のことだよ。」
「じゃあVBAはスクリプト言語だね。」

>>670
いちいち言うことが浅いからバカだと言われるんだ。
君はすぐに認めたからまだマシだがな。

>>671
それは(

本日の結論は「VBA厨はバカ」ということでよろしく。

「スクリプトって何？」を2回繰り返すことになるとはあきれてしまいました。

先生、どうでもいいと思います！(AA略

量子ちゃんとかクリトリスとか、何の話しをしてるんですか！

赤ちゃんを作る話よ(照

>>671
いくら調べてもどっちでもあるという結論しかない
>>670であってるんじゃね

>>678

>>671=>>670
どっちも同じことを言ってるんだよ。
そんなこともわからないのか？

連休だというのに朝から有意義な話だな

先生、どうでもいいと思います！(AA略

まだやってんのか、笑ったw

今どきの小学生でもこんな言い争いしないような．．．

幼稚園児だったりして

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 フォント　エクセル　excel
人からもらったエクセルファイルなんですがフォントが変わって困っています
特殊なフォントの場合、あらかじめインストールしておかないと表示できないのでしょうか？

うん。

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

A1からA・・での
1
2
3
4
5
6
7
・
・　を
147｜258｜369　（｜は見やすくするためのしきりです。）
　　　のように並べたいのですが
簡単な方法を教えてください。お願いします。

>>688

データを別々のセルに入れる？
それともひとつのセルに全部入れる？

VBAの良さは素人でもプログラミングできて作業の効率化が
できるってことだろ。ましてやプログラマなら、専用のマクロ言語
を覚える必要なく、ちょっとかじればすぐできるし。

>>688
B1=IF(MOD(ROW(),3)=1,$A1,"")
C1=IF(MOD(ROW(),3)=2,$A1,"")
D1=IF(MOD(ROW(),3)=0,$A1,"")

B2=B1&IF(MOD(ROW(),3)=1,$A2,"")
C2=C1&IF(MOD(ROW(),3)=2,$A2,"")
D2=D1&IF(MOD(ROW(),3)=0,$A2,"")

B2C2D2を選択して下にオートフィル、一番下が目的の内容かな

>>689
別々のセルに入れます。

2003使用してVBAはできません

セルを結合して長文を入力していると文章が左端からはじまらない行があったり
最後の行が真ん中にきてしまうのですがどうすればいいですか？

文字数を変えて一見揃えても格段の左端は微妙にずれています

>>693

ワープロ使うことをおすすめする。

会社からエクセルを使用してって指定されて困ってます
どうもPCスキルを見たいそうですが・・・
長文記入の項目が3箇所ほどあるのでそこだけ文字がバラバラになって見にくいんです

>>690
VBAは悪くない。VBA厨がバカだよという話。

>>693
>セルを結合して長文を入力していると文章が左端からはじまらない行があったり
結合したセルの書式によって中央、または右揃えだった可能性が。

>文字数を変えて一見揃えても格段の左端は微妙にずれています
標準設定のフォント設定が”ＭＳ　Ｐ　ゴシック”の為かと思われます。
”ＭＳゴシック”へ設定変更すれば等幅で表示出来てズレは解消できると思います。

あとスペースキーを全角で打つ場合と半角で打つ場合でズレが生じますので
そこも注意してみてはどうでしょう。

>>697
感謝

>>695
就活中か？
エクセルなんかは付け焼き刃だと入社後大変だと思うが……

>>695
>どうもPCスキルを見たいそうですが・・・

笑っちゃうね。なんだそりゃ。とりあえず左よせにしてみたら？
セルの結合に伴う不都合は自身で解決してください。

>>693
ちなみに一行書きの場合でＢ列以降に何も入力されていなければ、セルを結合
しなくても表示上は何も問題ないよ。

>>695
テキストボックス使うとか。反則か

688です。
>>691 ありがとうございます。
でも自分のほしいものとは違いました。説明が不足でした。すんません。

Ａ1からＡ・・・の
1
2
3
4
5
6
7
8
・
・
・
をＢ1からＣ1，Ｄ1、Ｅ1、Ｆ1・・・に
1、11,21、2,12,22、3,13,23、・・・・　　　のように並べ替えたいのです。
（このときＢ1＝1、Ｃ1＝11、Ｄ1＝21
　　　　　Ｅ1＝2、Ｆ1＝12、　Ｇ1＝22
　　　　　Ｈ1＝3、Ｉ1＝13、Ｊ1＝23、　　・・・）

わかる方、よろしくお願いします。
　　　　　
　　　　　　　　

>>703
さっきは147と3つ飛び、今度は10飛びだけどどっちがいいの

並び替え後のA1には何が入る？

Excelでファイルを4つくらい開いて、Alt+Tabでたびたび切り替えながら作業をしていると、
画面が切り替わるのに10秒くらいかかる場合があります。（特にそのファイルが重いわけでもないです。）
PCの設定により改善するようにならないでしょうか？

>>704,705
10とびです。
並び替え後のＡ1はそのままでいいです。

■説明がクソすぎでした、というより全然別ものになっていました。
　すみませんでした。

>>707
b1=INDIRECT("r"&MOD((COLUMN()+1),3)*10+INT((COLUMN()+1)/3)&"c1",0)
右方向にオートフィル

>>708
すごいですね！できました！
計算式が複雑すぎてまったく理解できません。
頑張って調べて勉強します。
ありがとうございました。

　　　　　　　　　　 ／　　　,ゝ=＝=く　　　＜●＞)／＼ 　
　　　　　　　　 　　!　　γ　　　　　 ｀ヾ,_　　 ＼
　　　　　　　　 　│　:く( 　 r,J三;ヾ 　　)>　　　＼
　　　　　　　　　　l 　　　=; {三●;= } 　,=ﾆ　　　　l
　　　　　　　　　　 ヽ　　　ゝ≡三＝イ 　　　　　 /
　　　　　　　　　　　 ヽ　　　　　　　.,,,．　　　　/.|
　　 　　　　　 　 　 　 ヽ　　'ぐ'''''''' ／　　 　/　ﾄ,
　　　　　　　　　　　　　ヽ.　　ヽﾞ''" ／　 ／　　|ヽ
　　　　　　　　　　　　 ,.／ヽ　　｀´　　／ 　　 ./　 ＼､
　　　　　　-‐ '''" ￣ /　 :|　＼,,,__,,,, ／　　　　/　　　 |　`'''‐-　､.._＼

>>703のって、並び替えでやる必要性があるのか良くわからない。
Sub 刻みで入力()
Dim h As Long, i As Long
h = 1
For i = 1 To 9 Step 3
With Cells(1, i + 1)
.Value = h
.Offset(, 1).Value = h + 10
.Offset(, 2).Value = h + 20
End With
h = h + 1
Next i
End Sub

ネタ投下(ノ-o-)ノ　●

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


例えばExcelで散布図を書いたとします。
そのX軸のタイトルを「中華人民共和国と朝鮮人民共和国の人たちの死亡率」
という長いタイトルを入力したとします。
すると、
「中華人民共和国と朝鮮人
民共和国の人たちの死亡率」
みたいに2行になってしまったとします。これの横幅を広げて一行で表現したいのですが、
どうすれば良いのでしょうか？
タイトルクリックして選択すると枠の大きさを変えられようなタグが9カ所ついており
ドラッグすれば変えられそうなのですが、動かすことが出来ません。
どうすれば良いのでしょうか？
もしかして2007だと出来たりしますか？

テキストボックスで

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

初心者質問です、よろしくお願いします。

ＥＸ）
Ａ1セルは　5　です。

Ｂ1セルに＝Ａ1　と入力するとＢ1セルに　5　と表示されます。

Ａ1セルを消してしまうと、Ｂ1セルは空白になってしまいます。

Ａ1セルをけしてもＢ1セルに　5　（Ａ1の内容が）が残るようにしたいのですがどの様にすれば良いのですか？？

>>715
ピボットで即解決

パブリック変数

>>716　ピボットでできるわけないだろ？　ばかじゃないの？

>>716
入れ食い乙

>>715
普通にA1をコピー＆ペーストじゃだめなの?

>>714

テキストボックスではセルにリンク出来ないのでダメなのです。

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

715です。
>>720
だめです。
715の例ではそれでも大丈夫なんですけど、
もとのデータからsum等をつかってとりだしたりもしたいので。

>715
どうしてもっていうんなら「自動再計算」をオフにするしかないと思う。
ブックを保存して再び開くとき再計算してしまい、０になってしまうけど。

やりたいことは
　Ｂ１セルの値を参照元(Ａ１セル)に連動させる
ではなくて
　参照元(Ａ１セル)の内容を別のセル(Ｂ１セル)に書き込む
だろうから計算式ではなくて、ＶＢＡで処理するしかないと思うんだが。

>>722
A1にSUM関数の数式が入っているとすれば（そういう処理をすれば）B1へコピ
ー＆”形式を選択して貼り付け”→”値”の選択で値のみ貼り付けするという
方法がありますが。

>>715
Public pVal As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1).Value <> "" Then
pVal = Cells(1, 1).Value
End If
Cells(1, 1).Value = ""
Cells(1, 2).Value = pVal
End Sub

ごめん訂正しる
Excelでグローバル変数って標準モジュールでpublic宣言しなきゃだめだったか。

'標準モジュールに
Public pVal As Long
Sub 転写()
If Cells(1, 1).Value <> "" Then
pVal = Cells(1, 1).Value
End If
Cells(1, 1).Value = ""
Cells(1, 2).Value = pVal
End Sub

'シートに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call 転写
End Sub

>>721
テキストボックスでリンクできるよ
プロパテイのlinkedcellでA1と入れればよい
>>713
と思ったら2003でも出来るぞ。左側を延ばしてみて。右側を延ばそうとすると無理だった

ＫＹ

朝日新聞さん何か用ですか

暇だね

つ ブレンD

>>706です。
誰か分かる方がいれば、教えてください。

メモリ不足

知識不足

寝不足

>>732
環境

transpose関数でＡ1：Ａ5をＢ1からＦ1に入れる場合にＢ1はＡ1、Ｃ1はＡ2・・Ｆ1はＡ5.
となりますが、Ｂ1がＡ5、Ｃ1がＡ4・・Ｆ1がＡ1のように逆にすることはできますか？
教えてください、お願いします。

>>737　です。
すみませんだれか教えていただけないでしょうか。

>>738

データの隣に連番をふっておいてソートすればいい。

>>738
最初にa1:a5を連番をふって、それを降順に並べてから縦横並び替えればいいんじゃね？

>>737
INDEX関数でいいんじゃね？
=INDEX($A1:$A5,6-COLUMN(A1)

最後の)を忘れた。

>>737
>>741のINDEX関数を使う奴がいいっジャマイカ！
B1 =INDEX($A1:$A10,2-COLUMN(A1))
C1 =INDEX($A1:$A10,3-COLUMN(A1))
D1 =INDEX($A1:$A10,4-COLUMN(A1))
E1 =INDEX($A1:$A10,5-COLUMN(A1))
F1 =INDEX($A1:$A10,6-COLUMN(A1))
てな具合。

何ふざけてるの？

多分何かのミスなんだろうと思ってあえて突っ込まなかったが

>>744
>>745
ふざけてすまんかった
ミスた

B1 =INDEX($A1:$A10,6-COLUMN(A1))
C1 =INDEX($A1:$A10,5-COLUMN(A1))
D1 =INDEX($A1:$A10,4-COLUMN(A1))
E1 =INDEX($A1:$A10,3-COLUMN(A1))
F1 =INDEX($A1:$A10,2-COLUMN(A1))

>>744
>>745
嗚呼、俺A1:A10でやってたもんだから範囲そのままだったわ
おこんなおこんな

B1 =INDEX($A1:$A5,6-COLUMN(A1))
C1 =INDEX($A1:$A5,5-COLUMN(A1))
D1 =INDEX($A1:$A5,4-COLUMN(A1))
F1 =INDEX($A1:$A5,3-COLUMN(A1))
E1 =INDEX($A1:$A5,2-COLUMN(A1))

>>747
忘れた頃に出てこられても困るし、指摘しておくよ・・
最後2行EとF逆

>>748
あ












orz

>>747
何ふざけてるの？
>>741で終わってると思うんだが。

ふ　ざ　け　た　い　の

ふざけてもいいから回答だけは正確にね。
>>741-742で終わってるけど。

みなさんエクセル詳しいですね。あこがれます。
今、勉強中です。関数辞典やエクセル事典はもっているのですが、
>>708
のかたの様な回答をだせません、なぜそうなるのか理解もできません。
複数の関数の組み合わせができないです。
なんとかマスターしたいのですが、みなさんはどのようにして学習しましたか？
参考に聞かせてください。お願いします。

ここが良かったです。

http://kyugomao.sakura.ne.jp/paso99/

>>753
indirect・row辺りは基本滅多に使わない。使わないというか使う機会があるのは元の表がまずいとき

後は目的を設定して、それになるように関数を組み合わせていくだけ。
indirectとかはまだ覚えずにifとかsumにround組合わせるとか、vlookup辺りから覚えるといい
それが使えたら時間・日付、カウントなんかでいいんじゃないかな
文字列関係は最後の方でいいかも。ただ&だけは覚えておいた方がいいかも
vbaはプログラムに興味があるなら早めに手をつけてもいい。知識があれば簡単に応用できる
>>754
2chで宣伝って時点でゴミサイト

>>753
全然見てなかった。関数の疑問か
b1=INDIRECT("r"&MOD((COLUMN()+1),3)*10+INT((COLUMN()+1)/3)&"c1",0)
は一番内側のカッコから計算される。B1セルだと
=INDIRECT("r"&MOD((2+1),3)*10+INT((2+1)/3)&"c1",0)
=INDIRECT("r"&MOD((3),3)*10+INT((3)/3)&"c1",0)
=INDIRECT("r"&0*10+INT(1)&"c1",0)
=INDIRECT("r"&0+1&"c1",0)
=INDIRECT("r"&1&"c1",0)
=INDIRECT("r1c1",0)
=A1
つまり
=INDIRECT("r"&MOD((COLUMN()+1),3)*10+INT((COLUMN()+1)/3)&"c1",0)
は=A1
と内容が同じということ
indirectの入れ子なんて覚えなくてもいいけどね。あとr1c1形式の知識もないと意味分からないと思う。
このスレで使ってるのも俺ぐらいだし本当にどうでもいいと思う

>>756
お前はよくINDIRECTで回答してるやつ？
前から変なのがすみついてるんだが。

2chの時点で(

>>757
あなたもです

>>755
自分だけの狭い世界しか知らないみたいだな
学生さんかい？、それともただの「おバカさん」

> 学生さんかい？

このフレーズ前にもｋ

VBAvsピボット�Y　〜情熱の闘い〜
間もなく開幕いたします

>>760
お前がもしINDIRECT使いならお前も同類。

教えてください。
userfirmにcombobox1〜3まであります。
combobox1、2から選択される項目(各5つ)の組み合わせ(全25通り)によって
combobox3にそれぞれ25通りの選択肢を表示しようと考えています。
とりあえず、実験的に下記のとおり書いてみたところ、combobox3に
思い通りの選択肢は表示されたのですが、どれかをクリックしても
combobox3に表示されません。なぜでしょうか？

（抜粋）
If ComboBox1.ListIndex = 0 And ComboBox2.ListIndex = 0 Then
ComboBox3.RowSource = "申込状況!B4:B8"
ElseIf ComboBox1.ListIndex = 0 And ComboBox2.ListIndex = 1 Then
ComboBox3.RowSource = "申込状況!B9:B13"
ElseIf ComboBox1.ListIndex = 0 And ComboBox2.ListIndex = 2 Then
ComboBox3.RowSource = "申込状況!B14:B18"
ElseIf ComboBox1.ListIndex = 0 And ComboBox2.ListIndex = 3 Then
ComboBox3.RowSource = "申込状況!B19:B23"
ElseIf ComboBox1.ListIndex = 0 And ComboBox2.ListIndex = 4 Then
ComboBox3.RowSource = "申込状況!B24:B28"

どうぞよろしくお願いします。

×　=INDIRECT("r"&MOD((COLUMN()+1),3)*10+INT((COLUMN()+1)/3)&"c1",0)
○　=INDEX($A:$A,MOD((COLUMN()+1),3)*10+INT((COLUMN()+1)/3))

ショートカットキーについて質問。
ＶＢＥ画面。
マクロ画面。
教えてください。

>>762
俺にとってピボットってのはVBAの機能なんだが。
というか、こういうのこそVBAの真髄だろ？

IntだLeftだという関数は、VBAというよりVBの機能であり
VB[A]というからにはApplication(Excel)が提供している
ピボットなどの機能こそが、VBAの本質的な機能と言える。

なので俺の中ではピボットとVBAは対決ではなく共存というか互助の関係にある。

>>764
If ComboBox1.ListIndex = -1 And ComboBox2.ListIndex = -1 Then
ComboBox3.RowSource = "sheet1!a1:a4"
End If

-1を設定したら上手く言った。理由は知らんがぐぐればでてくるだろう
ちなみにこういう場合、ifの後の条件式「ComboBox1.ListIndex」をウォッチ式に入れるか、textboxを作って
TextBox1.Text = ComboBox1.ListIndex
のような形にすると内容がわかるので自己解決できるようになると思う。
>>766
ttp://www.google.com/search?hl=ja&safe=off&client=opera&rls=ja&hs=g7E&q=%E3%82%B7%E3%83%A7%E3%83%BC%E3%83%88%E3%82%AB%E3%83%83%E3%83%88%E3%82%AD%E3%83%BC+vbe%E3%80%80%E3%83%9E%E3%82%AF%E3%83%AD&btnG=%E6%A4%9C%E7%B4%A2&lr=
>>767
普通はそうだよねぇ
理由はよく分からないけどこのスレでは解決方法でよくもめてる。どっちでもいいんじゃね、と思うけど

>>764
抜粋した部分には問題は見あたらない。ほかの部分がおかしい。
あと、その抜粋した10行は、たったこれだけに書き換えできる

CB2LI = ComboBox2.ListIndex * 5 + 4
If ComboBox1.ListIndex = 0 Then ComboBox3.RowSource = "申込状況!B" & CB2LI & ":B" & CB2LI + 4

1行目の計算式によって、ComboBox2.ListIndexが0の時、変数CB2LIは4になる。
ComboBox2.ListIndexが1の時、変数CB2LIは9になる。以下略。
こういう規則的なパターンは式を工夫して1行にまとめるべし。

>>767

VBAでピボット利用するような回答があったかな？
そうだったらここまでバカにされてないんじゃない。

>>770
何度もしてるけどな。

３つでいいから挙げてみてくれ

いつ頃のスレだか忘れたが、ピボットの出来ない人には自分でピボット作って、データソースの範囲取得と更新の部分を書いたマクロを
ボタンに登録して、それを実行させればよいと何度も書いたよ。
ピボットは再計算しないことがあるとか言うDQNもいるんでね。

ピボットのできないひとにピボットをつくらせるなんていい度胸じゃないか。
しかもマクロをつくらせるとか。おまえ鬼だな。
くわえてそれでなにが楽になるんだ。ピボットツールバーの更新ボタンを押せばいいだけだろ。

>>774
ピボットを知ってる人が作って、ピボットを知らない人にピボットで集計させるんだよ。
ピボットの範囲が変わったとき困るから範囲取得くらいは必要だね。
あらかじめ列全体などと広く取っておく方法もあるが、何かの拍子に重くなることがある。
まぁ基本、更新ボタンさえ押せばいいんだが、ピボットが食わず嫌いな人は更新ボタンさえ知らないやつもいるからな。

♪　チィチィパッパ
　　♪　　チーパッパ

1行1列余分に範囲指定して重くなるわけがないだろ。ウソもたいがいにしろ。
更新ボタンを押せないひとはマクロを登録したボタンを押す知能もないよ。
VBA厨ってほんとに（

分ってない人が一人。
UsedRangeとか知ってるのかな。

764です。
>>768、769さん返信ありがとうございました。
combobox3には選択項目として表示されるまではいいのですが、その中から一つをクリックしても、
combobox3は空白のままになってしまう現象はかわりません。
ちなみにExcel2002です。

以下が全文です。
Private Sub ComboBox3_Change()
CB2LI = ComboBox2.ListIndex * 5 + 4
If ComboBox1.ListIndex = 0 Then
ComboBox3.RowSource = "申込状況!C" & CB2LI & ":C" & CB2LI + 4
ElseIf ComboBox1.ListIndex = 1 Then
ComboBox3.RowSource = "申込状況!C" & CB2LI + 28 & ":C" & CB2LI + 32
ElseIf ComboBox1.ListIndex = 2 Then
ComboBox3.RowSource = "申込状況!C" & CB2LI + 56 & ":C" & CB2LI + 60
ElseIf ComboBox1.ListIndex = 3 Then
ComboBox3.RowSource = "申込状況!C" & CB2LI + 84 & ":C" & CB2LI + 88
ElseIf ComboBox1.ListIndex = 4 Then
ComboBox3.RowSource = "申込状況!C" & CB2LI + 112 & ":C" & CB2LI + 116
ElseIf combomox1.ListIndex < 0 Or combomox1.ListIndex < 0 Then
MsgBox "曜日、時間帯を選択してください"
End If
End Sub

自分の頭のバグかそれともソフトのバグなんでしょうか・・・？

>>777
おめーが馬鹿なのはわかった。
馬鹿の大当たりだなｗ

779です。連続書き込みごめんなさい。
最後の条件文に誤りがありました。正しくは
ElseIf ComboBox1.ListIndex < 0 Or ComboBox2.ListIndex < 0 Then
です。

ピボット厨はVBAと併用するのが嫌で仕方がないらしい。ｗ
もしかしてVBAがろくろく出来ないんじゃないか？

ピボットにUsedRangeなんてつかわない。VBAで指定するにしても
名前定義しとけばいいだけ。

データの整形にVBAつかうことはときどきあるけど
幸い、VBAで集計を迫られる仕事はしたことがないよ。

あたま悪いとなんでもVBAつかわないといけないからたいへんだね。

その議論は他でやってよ。迷惑。

議論じゃなくて嘲笑ですので

やっぱこのしとわかってない

>>779
Sub ComboBox3_Change()というのは、ComboBox3の内容が変化した「あと」で呼ばれる手続きなので、
「ComboBox2を選んだらComboBox3の選択肢を入れ換える」という処理は
ComboBox2_Changeの中に書かなきゃいけない。
あと、まだ計算式に無駄が多い。選択肢のセルが28個ずつ規則的に並んでるんなら、いちいちIfで分けずに
ListIndexの値を28倍すればいい。

Private Sub ComboBox2_Change()
　　If ComboBox1.ListIndex = -1 Then
　　　　MsgBox "曜日、時間帯を選択してください"
　　else
　　　　CB3RS = ComboBox1.ListIndex * 28 + ComboBox2.ListIndex * 5 + 4
　　　　ComboBox3.RowSource = "申込状況!C" & CB3RS & ":C" & CB3RS + 4
　　End If
End Sub

それから、VBAが主体の質問は次からこっちで

Excel VBA質問スレ Part12
http://pc12.2ch.net/test/read.cgi/tech/1247566074/

>>771
>何度もしてるけどな。

VBA厨がしたわけじゃないよ。
ピボットは自動計算しないのが欠点という主張にたいして、自動化はVBAでやればよいというピボット先生からの回答だろう。

規則性があっても
ComboBox2.ListIndex * 5 + 4
は何となく矢だな。俺ならこっちだな。
SrcLst = Array("B4:B8", "B9:B13", "B14:B18", "B19:B23", "B24:B28")
ComboBox3.RowSource = "申込状況!" & SrcLst(ComboBox2.ListIndex)

俺なら選択肢を一直線に並べずに
コンボボックス1と2がそれぞれX座標、Y座標になって一発で指定できるようにする

コンボボックスでソースを変えるのは名前定義とINDIRECTをつかうのが常道
どうしてもVBAつかいたいなら止めはしないが

困っています。２つ教えてください。お願いします。

質問１
A君１００点　B君８０点　C君８０点　D君６０点
この場合RANKで順位をつけると
A君１位　B君２位　C君２位　D君４位となります。

ここでB君とC君は２位のグループと見て　D君は３位と表示したいのですが、
可能でしょうか？

質問２
A君50　　　80　100　80　50
B君100　50　　60　　70　　　80
このように不定型で数字が並んでいます。
その内、右４つのものの合計値を出したいのです。
検索する範囲を選択し、その中の右４つの合計を出せる形があれば
一番良いのですが・・・。

分かる方いらっしゃったら教えてください。お願いします。
WindowsXPでExcel2003です。

>>791
INDIRECT好きだねぇ。ｗ
そういう名前定義にINDIRECTでも弊害はないけど、間違ってもセルの数式に使うときはINDIRECTで定義するなよ。
OFFSETも同じだからな。
VBA使いなら分ってると思うけど。

>>792

目的によっては、同順位も考慮した順位定義の使用が必要となる場合もあります。
たとえば、前の使用例で 10 の順位を 5.5 に訂正できた方がよい場合もあるでしょう。
そのためには、下記の補正因子を RANK 関数の戻り値に加算します。この補正因子は、
順位を降順 (順序に 0 を指定するか、省略した場合) または昇順 (順序に 0 以外の
数値を指定した場合) のどちらで計算する場合にも使用できます。

同順位の補正因子=[COUNT(範囲) + 1 - RANK(数値, 範囲, 0) - RANK(数値, 範囲, 1)]/2

こんばんは、僕も質問2つあります。お願いします。

質問�@
1
2
3
4
5
を
5
4
3
2
1
のように逆にする簡単な方法。（関数、もしくは操作。）

質問�A
Ｅ1セルを＝Ａ1、Ｆ1セルを＝Ａ20、Ｇ1セルを＝Ａ30にして、フィルタ機能等もしくはなんらかの操作や関数により、
Ｈ1セルを＝Ａ2、Ｉ1セルを＝Ａ21、Ｊ1セルを＝Ａ31
Ｋ1セルを＝Ａ3、Ｌ1セルを＝Ａ22，Ｍ1セルを＝Ａ32　　のようにしたいのです。
長くてすみません。
初心者なのでよくわかりません。簡単にできそうなのですがなかなかできません。
すみません、おしえてください。お願いします。

>>795
(1) 作業列に連番を入れて逆順にソート
(2) パス

>>794
ありがとうございます。
ですが、使い方がわかりません。すみません、もう少し使い方を教えていただいても
よろしいですか？
それと、
『前の使用例で 10 の順位を 5.5 に訂正できた方がよい場合もあるでしょう。』
これはどういう事でしょうか？すみません、初心者で。。。

>>796
すみません、ソートってなんですか？

>>798
ggrks

>>795
�@　範囲を選択する　→　データ　→　並べ替え　→　降順　→　ok

>>792
とりあえず質問１に対する回答

A列 B列
-----------
A君 100
B君 80
C君 80
D君 60

だとすると

C1に =SUMIF($B$1:$B$4,">"&B1,$D$1:$D$4)+1
それをC4までコピー

D1に =IF(COUNTIF($B$1:B1,B1)>1,"",1)
それをD4までコピー

結果は
A列 B列 C列 D列
----------------------
A君 100 1 1
B君 80 2 1
C君 80 2
D君 60 3 1

D列は作業列なんで非表示とか好きなように

質問２は、意味がわからん

>>797
>>794はヘルプにあったんだが、すこし意味が違うな。すまん。

A1:A9に
1
2
2
2
6
6
9
9
9
とあるとき
A11:A14
に
1
2
6
9
と入力しておく。
B1=RANK(A11,$A$1:$A$9,1)
C1=COUNTIF($A$1:$A$9,A11)
D1=B11-SUM(C10:C$11)+COUNT(C10:C$11)
B:Dを下までコピー

訂正
B11=RANK(A11,$A$1:$A$9,1)
C11=COUNTIF($A$1:$A$9,A11)
D11=B11-SUM(C10:C$11)+COUNT(C10:C$11)
B11:D11を下までコピー

>>799
は”ググレカス”ってこと？

皆静観

>>801
>>802

ありがとうございます！出来ました
素晴らしいです！どういう計算なのかよくわかりませんが・・・ｗ

質問２については
A列　B列　C列　D列　E列
A君　50　　＿　70　　80
B君　＿　　60　80　　＿
C君　100　 80 60 50
D君　＿　　＿　80　　＿

と、ある範囲の中に値の個数が異なってある場合、
例えば右から２つの合計を下のように表示させるようにしたいのです。
A君　150　（70+80）
B君　140　（60+80）
C君　110　（60+50）
D君　エラー（１つしか値が無いため）

表示させる方法はありますでしょうか？教えてください。
お願いします。

>>802
>A1:A9に
>1
>2
>2
>2
>6
>6
>9
>9
>9
>とあるとき
>A11:A14
>に
>1
>2
>6
>9
>と入力しておく

そんなめんどくさいのなら>>801ので十分だろうに

>>806

条件は１つ？
それとも
条件は右から２つだったり右から３つだったりと毎回変わるもんなの？

>>808
いえ、条件は変わりません。
806の質問では右から２つにしましたが、実際は４つでやります。
でも、条件は毎回同じです。
お願いします。