Excel総合相談所 97

▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★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総合相談所 96
http://hibari.2ch.net/test/read.cgi/bsoft/1299582492/

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･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で出来ないこと、仕様上の制限｣ は､一般的に出来ないとされていること､出来ないと思われるものです。
間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。
Excel2010についても未確認な項目が多いので変更点が有ればご指摘下さい。

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

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

以上でテンプレ終わり （Excel総合相談所 94からコピペ、一部改定）。

>1乙

>1乙ついでに前スレ704からの質問にあったExcelのお節介機能などを書いておきます。

１　お節介機能　表の範囲に続けて表外（下）の方にデータを入力し続けると、罫線や塗りつぶしなどの書式が引き継がれる
　対策：ツール＞オプション＞編集のタブ　で、「データ範囲の形式および数式を拡張する(L)」のチェックを外しておく

２　複数シートを選択した状態（作業グループ状態）で保存したときに自動再計算機能がオフになる
　対策：作業グループの必要がなくなったら、この状態を解除（ひとつのシートを選択した状態に）する

Excel 2002で非常に古いバージョンを使っています。

伺いたい事は
グラフの表示にて横棒を選択の際、

データの範囲を下記の様に選択しても
1
2
3
4
5

横棒のグラフでは
5
4
3
2
1

といった具合に
上下が逆さまに表示されますが

データ選択と同じ順番
1
2
3
4
5

でグラフを表示させるには
どうすれば良いのでしょうか？
ご教示下さいませ。

>>8
Y軸のラベル(グラフの左側に1 2 3 4 5と表示されている部分)を右クリック、軸の書式設定→目盛タブ→
「軸を反転する」にチェック、OKをクリック
次に、上に行ってしまったX軸の軸ラベルを右クリック、軸の書式設定→パターンタブ→
「上端/右端」を選択、OKをクリック

基準点という概念を理解していれば

1
2
3
0/0　1　2　3

こそが「逆」で

3
2
1
0/0　1　2　3

と､X･Yどちらも基準点から順に増えていくのが「順」だと思うはずだが…

まあこういう需要があるから軸の反転機能があるわけで､やろうとしていること自体は否定しないが､
この質問は､本来「データ順とは逆に表示したいのですが､どうすれば良いですか？」と来るべきだよな

>>8です

判りました、
教えて頂きありがとうございました。

【1 OSの種類 .】 Windows XP
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 excel2007 ”コメントの枠”

コメントの枠の形の設定を最初から全てに適用できないでしょうか？
毎回コメントの枠の大きさ等を手動で１つ１つ変えるのが面倒なので
最初にコメント挿入した時点で変更が適用された状態になっていると助かります。

Excel2003 SP3です。

セルを小さくしすぎると、そこに数値がある場合に表示しきれなくて“#”って表示されるじゃないですか？
あれをセルをはみ出してもいいので、全部表示させたいです。（文字列だとそうなるけど、数字でそれをやりたい）
セルを結合するのは後々めんどくさいので、書式とかオプションでできないでしょうか？

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

>>13
数値を数字文字列にする

具体的には
直接入力されている値なら､先頭に'を入れる
数式結果や特殊な表示形式を適用したいならTEXT関数を使う

それを再度計算で使いたいならVALUE関数などで数値に戻して計算する

>>14
なるほど
勉強になりました。
ありがとうございます！！
m(_　_)m

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010

以前OSがWindowsMe,excel2000でVBAでマクロを組んでて
今の環境になってまた新しくマクロ組み始めました

シートからマクロを起動させたかったので
図形挿入→マクロ登録　で既存のマクロを登録させようとしたのですが
「マクロ　シートに対する参照を指定してください」とエラーが出て断念

で、ここまではいいのですが(↑の方法はよくわからないのでボタンクリックでやることに)
今まで「マクロの表示」からマクロの編集ができたのですが「マクロの表示」を押すと「作成」しか選べず
既存のマクロを選択しても編集や削除ができなくなっています

シートの「マクロの表示」→マクロ作成→VBAの編集画面→編集画面の「マクロの表示」
と飛ぶと編集・削除もできるのですがいちいち編集するのにマクロを新規作成せねばならず困っています

図形挿入のくだりの前にはマクロはちゃんと動いていたのでソースコードの問題ではないはずです
解りづらい質問とは思いますが回答よろしくお願いします

それと言い忘れたのですが新しくブックを作っても同様の現象が起きます

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

excel2010でエクセルを呼びだそうとすると、拡張子が　xlsx　になってしまいます。
拡張子がxlsm　でないとマクロが記録できないので、非常に不便です。
普段から　xlsmで開ける方法を教えていただけないでしょうか

【1 OSの種類 　 　 　 　 .】 windows vista
【2 Excelのバージョン 　 】 Excel2007
A B 　　 C

A1 B1
(B2-B1)/(A2-A1)
A2 B2
(B3-B2)/(A3-A2)
A3 B3

こんな感じでCだけ隣のセルと半分ずつずらして表を作りたいのですが、
どうすれな良いでしょうか。
またAを横軸、Cを縦軸にしたグラフを書く際に、
A1とA2の間に (B2-B1)/(A2-A1) の値を
A3とA2の間に (B3-B2)/(A3-A2) の値を取りたいのですが、
そのようなグラフは作れるでしょうか。

【3 VBAが使えるか　 　】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 】Excel 隣り合うセル　半分　ずらす

19は自己解決しました

OS：WindowsXP
バージョン：Excel2002です

･･･ある数値をシートを超えて
計算式の中で利用したいのですが
その方法を教えて下さい。

例えばシート1のセル･A1に100を入力した時に

シート2のセル･A1、シート3のセル･A1に
入力した100が自動的に現れるようにしたいのですが

シート2のセル･A1、シート3のセル･A1に
それぞれどの様な計算式を入力したら良いのかを
教えて頂きたいのです、
宜しくお願い致します。

>22　当方Excel2003だけど、手順は同じはず
１　シート２のＡ１セルをクリックしてから　=　を入れる
２　画面下の方のシート１のタブをクリックし、シート１を前面にする
３　シート１のＡ１セルをクリックし、[Enter]キーを押す（画面はシート２に戻っているはず）
４　シート２のＡ１セルをクリックしてから[F2]キーを押す
５　計算式の部分を全て選択し、[Ctrl]を押しながら[C]キーを押す（複写の操作）
６　画面下のシート３のタブをクリックし、シート３を前面にする
７　シート３のＡ１セルをクリックしてから[F2]キーを押す
８　[Ctrl]を押しながら[Ｖ]キーを押す（貼り付けの操作）、[Enter]　　これで試してみてください

>22　図解入りのページがありました
エクセル事典
http://www.excel-jiten.net/formula/ref_other_books.html

リスト作成時において、リストを表示させるアイコンのサイズが小さいんですが
このアイコンを大きく表示させることは可能でしょうか。
Excel 2003です。

▼のドロップダウンボタンのことか？

それなら入力規則のリストでは任意変更不可
全体の表示倍率を上げて他を縮小すれば､擬似的に大きくできるけどね

フォームツールのリスト(コンボボックス)なら､ボタンのサイズは高さ依存で
高さを上げればそれと同幅の正方形ボタンになる

あとはVBA使えば入力規則のリストが設定されたセルを選択するだけで
▼押さなくてもリストが表示されるように出来るので､それならボタンのサイズは関係ないでしょ

>22より

感謝・感謝
ありがとう

>>26
即レス感謝します。まだExcelには精通してないのでVBAっての初めて聞く単語でした。勉強になりました。

>>18お願いします

右クリック⇒新規作成⇒エクセル　を呼ぶとき、拡張子をxlsmにしたいんですが・・・
windows7だとxlsxだとマクロを保存してくれません…

>29
Excel2007/2010を持ってないので適切なアドバイスをできませんが、
新規作成のときに　.xlsx　しか選べなくても、直後に「名前を付けて保存」を行い、
その際にファイルのマクロ付きブックとして（.xlsmを選んで）保存したら、
その後はマクロを登録できるようになりませんか？

>>29
右クリックってどこを右クリックするのかと思ったら、Winのデスクトップか
>>29も>>18も言葉が少なすぎで分かりにくいし、
そもそも貴方のやりたいことはExcel側でどうにかすることではないのでスレチ

で、ざっくり検索してみたけどXPの情報しか見つかんなかったんで、
Windows板にでも行ってみてくれ

俺もWin7/Excel2010持って無くて､WinXP/Excel2003の話だが
右クリックって言うことはExcelではなくエクスプローラ(ファイラー)からの新規作成の話だと思うけど
エクスプローラからの新規作成で何が作られるかは､Windowsの設定次第でExcelの話じゃない

エクスプローラの［新規作成］メニューをカスタマイズする
ttp://www.atmarkit.co.jp/fwin2k/win2ktips/282filenew/filenew.html


Excelのメニューの新規作成で作られる物を変更したいならこっち

Excelの新規作成ブックの設定を変更する
http://allabout.co.jp/gm/gc/80917/

>>30-31
了解しました

>>29
普段から保存時に
ファイル→名前を付けて保存→ファイルの種類(T):マクロ有効Excelブック　
と、行ってください。
既存のxlsxブックも同様の処理をしてください。
※ただし既存のxlsxブックの場合、マクロ有効ブック(xlsmブック)を他に設けてしまう
事になりますが。

>>30-34
どうもそうするしかないようですね。ご相談感謝してます

すいません。。。追加で困った問題が出てきました。

マクロを記録したxlsmブックを常に開いていないと、他のすべてのexcelファイルにマクロが適用されません。

http://okwave.jp/qa/q6330936.htmlを試した見たけれど、「使用できないアイテム」を設定しても、「現在そのような
アイテムはありません」と表示されますし、個人用マクロブックがない状態です。

どうすればよいでしょうか・・・？

シートを高画質でjpg(png)化したいんだけどどの手段が一番よいでしょうか？
画面をコピーしてペイントに貼り付ける方法は試したのですがどうも画像が荒くなっちゃってて…

>>37
仮想プリンタ
pdfが有名だけど､pdfをjpgやpngにする方法もあるし
直接jpgやpngで出力できる仮想プリンタもある

どう使うかとか､どの仮想プリンタが良いとかはExcel関係ない話なので割愛する

スレ違い　↓へどうぞ

スレたてるまでもない質問に答えるスレ
http://hibari.2ch.net/test/read.cgi/bsoft/1123764624/l50

>>37
作ったぜ！

apiで画面のデバイスコンテキスト（DC）取得→
二次元配列にDCのデータ流しこむ→
配列の頭にビットマップ構造体をつける→
新しいファイルをバイナリで開く→
ビットマップ構造体を流しこむ→
ファイル閉じる→DC解放


画面をbmpファイルで出力するぞう君1.0001
http://www42.atwiki.jp/syugyou?cmd=upload&act=open&pageid=240&file=%E7%94%BB%E9%9D%A2%E3%82%92bmp%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%A7%E5%87%BA%E5%8A%9B%E3%81%99%E3%82%8B%E3%81%9E%E3%81%86%E5%90%9B1.0001.xls

デスクトップに落としてから使ってね

どや顔のところ悪いんだが､
画面をコピー(PrintScreen)と同じ荒い解像度･････意味無さすぎてﾜﾛﾀw

しかもほとんどパクリソース

HWNDとか懐かしいな

俺の画面表示カラーは256色だぜぃ（嘘

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

罫線でマス目を引いた1ヶ月の予定一覧表を作っているのですが、
5/21 22 23 24 25 〜　と1つのセルにひとつずつ入れた日付の数字が、プレビューでは問題ないのに
印字してみると、5/21は枠の中にちゃんと収まっていますが、22から先が
22232425262728293031　と枠を無視して全部繋がってしまいます。
また、31の後には6/1から2 3 4 5〜と20まであるのですが、
6/1から9までは1つずつ印字されるのに、10の後はまた
1011121314151617181920　と繋がって印字されます。
その下の行には対応する曜日が土　日　月　と入っていますが、それは問題なく6/20まで
ズレずに入っています。

同じファイルを違うパソコンで開いて印字すると、同じプリンタで印字しても
文字のズレはおきずに、きちんとマス目の中に1日分ずつ収まっています。

何故こんな現象が起きるのかわかりません。どうしたら解決できるでしょうか

>>44
Excelではよくあること
フォントを少し小さめに設定しておく

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

数式についての質問です。
(A$1-A$3)/5
これを下の行へ(A1-A3)はそのままに5だけ+1づつ
(A$1-A$3)/6
(A$1-A$3)/7
としたいんですが、手入力で6,7・・・じゃなく、
+1させる関数式ありますか？

>>46
(A$1-A$3)/row()
とか

>>47
ありがとう

エクセルをゼロから独学で覚えたいのですが
普通に考えて2010を覚えた方が良いのでしょうか？
普及率などで2007を覚えた方が融通が利きますか？

どっちも大して変わらないよ
あとタブン2010しか売ってない

>>50
そうでしたね
売ってないって要素を忘れていました
有り難うございました

>>41
すいません実はこれからソースパクってました・・・

エクセルピンボール
http://xlsg.net/cgi-bin/updown2/updown2.cgi?mode=download&id=339

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010

A1,A4,B5,C8の値が1以上であるものだけで平均を出したいんですがどう入力すればいいでしょうか？

>>53
=(IF(A1>=1,A1,0)+IF(A4>=1,A4,0)+IF(B5>=1,B5,0)+IF(C8>=1,C8,0))/COUNTIF(A1:C8,">=1")
何でもいいんじゃないの

>>53
=(A1*(A1>=1)+A4*(A4>=1)+B5*(B5>=1)+C8*(C8>=1))/((A1>=1)+(A4>=1)+(B5>=1)+(C8>=1))

AVERAGEIF教えたれよアホかｗ

質問者のExcelバージョン見てないんだろ
いつものことだ

OS:win7 32bit
Ecxel:2008
VBA可
転写 Excel 文字列などでググりました

ある1つのセルに
結果 : (Aチーム) x - y (Bチーム)
と表示させたいです(x,yは他のセルから参照した数値)

ただいま
=A1 &"結果 : (Aチーム名) "& TEXT(D9,"&""&TEXT(D18,"0")&" (Bチーム名)"
と記述してあります
これではセルに直接チーム名を記述しているので、他セルから参照させて表示したいです
(Aチーム名)、(Bチーム名)のところに例えば、A1,A2のセルに入った文字列を表示させるにはどうしたらいいのでしょうか？

A1,A2にチーム名には ( ) も付いているなら
="結果 : "&A1&" "&D9&" - "&D18&" "&A2

この式で ( ) を付けたいなら
="結果 : ("&A1&") "&D9&" - "&D18&" ("&A2&")"

TEXT関数外しちゃまずいなら
="結果 : "&A1&" "&TEXT(D9,"0")&" - "&TEXT(D18,"0")&" "&A2
="結果 : ("&A1&") "&TEXT(D9,"0")&" - "&TEXT(D18,"0")&" ("&A2&")"

>>58
その数式だとエラーになる。閉じカッコが一つ足りない

と思ったら終わってた

【1 OSの種類 　 　 　 　 .】 WindowsXP-Pro
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel　比　基準　セル　計算


あるセル（A1）の値を100％として、その他の（その下の）セル（A2〜A5）の値を
A1に対するパーセンテージとして得るにはどうしたら良いでしょうか？

計算式は例えば、
=100*A1/A1 →　100
=100*A2/A1 →　X
=100*A3/A1 →　Y

のようになるかと思いますが、（手入力ではない）自動計算を使った方法が分かりません。

=100*A1/A$1
こういうことか？

>>62
B2に
=100*A2/$A$1
でいいのかなぁ

>>63-64
そうだった・・・$を使うんだった・・・

＿ト￣|○

つーかなんで複乳は同じ答えを書くんだ？
他の人が答えてるときは､複乳は答えなくていいよ

「それよりこうやった方がいいよ」みたいな､より優れた解法を紹介するならまだしも
いつも既に付いてる回答と同じか､それ以下なんだから

>>59
ご丁寧にありがとうございました！
助かります

>>58
ちょっと気になったんだけどＥｘｃｅｌ２００８ってＭａｃ用だけどWindowsに使えるの？使ってるの？

>>66
2分だからリロードしないで書いただけだろ？

しかし､そういうことが1回や2回じゃないからなぁ

>>56
AVERAGEIFはExcel 2007から使えるんだよなー。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel　変数
ComboBoxA〜ComboBoxD
までありComboBoxAのAの部分を変数で処理したいのですが変数で調べても良く分かりませんどなたか教えてください、お願いします

取り合えずソース書いておきます

Sub 個人貸出表入力2()
Dim 箱 As Object

Windows(bihinn.TextBox25.Text & ".xls").Activate
Sheets("Sheet1").Select
Worksheets("Sheet1").Range("A6").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Select
ActiveCell = bihinn.TextBox24.Text
If bihinn.CheckBoxA Then
箱 = "A"
ActiveCell.Offset(0, 1).Select
ActiveCell = bihinn.ComboBox & 箱 & 2 & .Text
ActiveCell.Offset(0, 1).Select
ActiveCell = bihinn.ComboBox & 箱 & 3 & .Text
ActiveCell.Offset(0, 1).Select
ActiveCell = bihinn.ComboBox & 箱 & 1 & .Text
ActiveCell.Offset(0, 1).Select
ActiveCell = bihinn.TextBox & 箱 & 6 & .Text
ActiveCell.Offset(0, 1).Select
ActiveCell = bihinn.TextBox & 箱 & 4 & .Text
ActiveCell.Offset(0, 1).Select
ActiveCell = bihinn.TextBox & 箱 & 5 & .Text
End If
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

> 【4 VBAでの回答の可否】 否
では､何も答えることは無いなw

という意地悪はおいといて､

シート上に配置したコントロールツールのComboBoxなら
OLEObjects("ComboBox" & 変数).Object.Text

ユーザーフォーム上のComboBoxなら
ユーザーフォームオブジェクト.Controls("ComboBox" & 変数).Text

>>66
>つーかなんで複乳は同じ答えを書くんだ？
>他の人が答えてるときは､複乳は答えなくていいよ

冷静に読むとマヌケだなw

複乳が間抜けなのは今更言うまでもあるまい｡

>>76
そうじゃなくてキレながら複乳複乳連呼してるところがさ
じわじわくる

複乳本人か

>>77
そうでもないだろ｡
というか同じようなこと以前も言われてたし｡

本人です

名前欄間違わないように気を付けてね

絶対できないだろうな、と思いながら聞いてみる。

F2でセルを編集状態にしていると、カーソルがセルの方にあるけど、カーソルををキーボード操作で上の数式バーの方に移せない？
マウスじゃないと出来ないような気はするんだけど、ちょっと聞いてみる

セルが空の場合に限定されるし､先頭に=が入るけど
F2でセル編集にしてからCtrl+Aで数式バーに移る

シート間のソートについて質問です。

納品されるアイテムが順不同に並んでいるのですが、それらを次のシートで任意の順番に並べたいんです。
毎回並べる順番は決まっているので、一度設定したらそれ以降自動的にソートされるとうれしいんですが。

例
【シート1】　　【シート2】
いちご　　　　　�@バナナ
ぶどう　　　　　�Aいちご
バナナ　　　　　�Bぶどう
いちご　　　　　�Cりんご
ぶとう　　　　　�Dみかん

【シート１】の並び順はいつもバラバラなんですが、【シ−ト２】における並び順は固定です。
これをコピペ以外に簡潔に並び替える方法ってないでしょうか。

>>82
セル内で編集のオプションを外す

セル内で編集できなくなるやんw

>>84-85
【シート2】
　　　A　　　　B
1|バナナ　　　1
2|いちご　　　2
3|ぶどう　　　3
4|りんご　　　4
5|みかん　　　5


【シート1】
　　A　　　　　B
1|いちご　　　=VLOOKUP(A1,シート2!$A$1:$B$5,2,FALSE)
2|ぶどう
3|バナナ
4|いちご
5|ぶとう


B列をキーに昇順ソート

>>83
確かに限定機能だけど、面白いね、ありがとう

>>74
助かりました、変数がどうも理解できない・・・勉強あるのみですね　汗
本当にどうもありがとうございました。

>>82
Excelの機能から外れるけど、そういう常駐ソフトを作るのは可能

外部ソフト頼りで良いならAutoHotkeyで出来るけどな

>>84
ユーザー設定リスト使えば？
数に限りがあると思ったが512までだっけ？

漠然とした質問で申し訳ないのですが・・・
当方エクセルを使って株価の動きを検証しています
多くの人がVBAを使っているらしいのですが
自分はすべてエクセルの関数をコピーするやりかたでVBAを一切使っていません
VBAの使い方がわからないというよりどこでVBAを使えば便利なのかがわからないんです

例えば移動平均を求める関数を１０００行にコピーするのと
VBAを使って１０００行に計算後の数値を入力していくのとどちらが良い方法なのか？
といったところがよくわかっていません

VBAを使うポイントというかこういうとこで使うべきというアドバイスいただけないでしょうか
よろしくお願いいたします。

>>94
軽ければどっちでもいい
重いならvbaで計算させて値だけセルに入力する形にすればいい

他には面倒と思った作業のほとんど全てはvbaで全自動化できると思っていい
ただしコードを各作業自体は結構面倒なので、どちらが楽かはアンタにしかわからない

チャレンジしてみたら？
タダだし、自宅ですぐできるし
プログラム板にもVBAスレあるからわからなければそっちで聞くのもイイ

>>95
ありがとうございます。
チャレンジしようと思って色々と本を買ったりはしているのですが
どこで使えばいいのかがよくわからなくて・・・
超初心者向けの本を買ってとりあえず始めてみます。

VBAまともに使えてない奴が､VBAの蘊蓄とかw

>>97
ありえねーよなw
複乳さっさと死ねばいいのに

みんなで複乳名乗ろうぜ

貧乳じゃだめかしら

>94
自分で作ってときどき使っているのが、計算式一覧出力のVBAです。
Excelの基本機能として、計算式を表示させる（ツール-オプションの設定にて）機能がありますが、
VBAを利用すると、開発中のシートの「計算式を出力させたい」部分を範囲指定して、マクロを
実行すると、シート名、セル位置、計算式、値（セルの書式に応じた形式）を１セル１行にして
マクロのあるブックに出力します。
計算表を駆使したシステムのドキュメント代わりになるし、計算式の間違い（計算式中の行指定
部分のズレなど）の発見にも便利です。

ワークシート分析機能を使いこなせてない人？

>>88
ありがとうございます！
早速使わせてもらいます！

>>88
ありがとうございます！
早速使わせてもらいます！

家計簿を作ってます。
「食費」「光熱費」とかの出費の分類を毎回全文字記入するのが面倒なので、
その列では「a」と入力したら「食費」「b」と入力したら「光熱費」というように文字列が置換されるようにしたいんですが、
こういうことって出来ますか？
違うセルで文字列を置換ならSUBSTITUTEを使うようですが、同じセル内の場合どうすればいいかわかりません。

>>105
同じセルで、は無理。後でCTRL+Hで置換するとかになるとおもう。
どっちかというと、セルの入力規則を使いなはれ。
入力規則はググれ。
それか、連続しているセルなら上の情報がALT＋↓で出てくるよ

>>106
ありがとうございます。
教えてもらった入力規制でリストを作ったら、使い易くなりました。
後々、分類を変更追加する可能性もあるので、自分がやりたかった方法より拡張性があって良いです。
ありがとうございました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】エクセル　{　}　使い方
質問
下記の式を右に11列コピーしその後下に11行コピーするとエクセルが落ちます。
PC変えても落ちました、同じ機種メビウスでも落ちないPCもあります。
オープンオフィスの最新版でも落ちました。

{=SUM((会費納入表!$C$4:$C$44=$B4)*(会費納入表!$D$4:$D$44=C$3))*会費}

です、前後のカッコはctrl+alt+enter　でいれるらしいです、私の古いpcでは入りません。
このカッコはなんの意味があるんでしょうか。なければ落ちないんですが。

>>108
{ }に意味があるのではなく､式が通常数式か配列数式かの区別のために表示されているだけです｡
{=式} というのは､セルや数式バーに {=式} を入力するのではなく =式 と { } を外した式を入力し
Enterで確定する代わりにCtrl+Shift+Enterで確定します｡AltではなくShiftです｡

またその式は､入力する場所によっては循環参照というエラーを起こします｡

そもそも､{ } の意味さえ分かってないようだと､その式も自分で組んだ物ではなく
その式がどういう内容なのかも把握してないのでは？

しかし､いろいろと間違いが多すぎる上に､何がやりたいのかも全く書かれてないので､これ以上のことは言えません｡
「何故問題が起きるのか」という理由部分だけ解れば良いなら､それではさようならってことで構わないけど
問題解決のアドバイスを欲しいなら､ブックをロダにアップした上で､やりたいことを具体的に書きましょう｡

えーと
A1セルに数値を入れたらあちこちセル計算して
結果がC5セルに出てくるとします。
X＝A1
Y＝C5となるようにXY表を作りたいとき一番スマートな方法はどれですか？
C5セルのやってることをスパッと関数化する奴があればいいんだけど・・・・

自分の頭で関数化するか
シナリオの情報かな

>>109
早速どうもです、
知人がpc教室でサンプル作成中に自分だけ落ちるので聞いてきました。
配列数式調べてわかりました、office2003では落ちません。
excel97でも下方にコピーする際、一行ずつなら最後までできます。
そのファイルです、sheet3のB4を右11コピー後、下11コピーで落ちます。
http://www4.plala.or.jp/overwhelm2011/sample.lzh
excel97なんて使ってる人いないから再現できないでしょうね。

昔作ったvbでは３次元配列で引数にも配列が入って
フォームも入れると１０万行超えました。それでもエラーなくサクサク動いて感動したんですが。
その画面です。
http://www4.plala.or.jp/overwhelm2011/Image1.jpg
http://www4.plala.or.jp/overwhelm2011/Image3.jpg

シートを別々のウィンドウに分けて表示したいのですが
どうやったらできるんでしょうか？
2003を使っています。2000を使っていたころは最初っからできていたと思うのですが・・

>>113
ウィンドウ→新しいウィンドウを開く

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】フック
ユーザーフォーム上のオブジェクトを動かす度にユーザーフォームが再描画されるのを防ぐため
フックしてosからの15番メッセージを止めてみたのですがうまくいきません。
デバックもうまくできません。
福乳さんどうしたらいいですか！

>>115
仮想PostMessage()だかSendMessage()を投げればいいんじゃないっすか
じゃなきゃhookしない
嘘ですhookの知識なんてありません

>>112
97は画面右下のセルに入力すると落ちる。
回避策は事前にスクロールして、
とにかく右下セルを触らない。

>>108がこのバグのせいかどうかはわからんが

Windows7　Excel2010、Access2010

Access2010からVBAのDoCmd.TransferSpreadsheet acExport コマンド 、またはAccessのマクロ(VBAではなくてAccessのマクロ機能)で
Excelにクエリの結果やテーブルのデータをエクスポートする処理があります。
ExcelにはAシート　Bシート(こちらにクエリやテーブルのデータを出力) があり、AシートからBシートのセル参照を行っています。

規制がきつい・・・

このような構成の時、AccessからExcelへエクスポート後、Excelファイルを開いても Aシートでセル参照していてもAシートの値が更新されないものがあります。
(エクセルファイルによって更新されたり・されなかったりします)

Accessの出力方法の違いによって発生している訳でもありませんし、更新されるエクセルファイル・されないファイルの違いも特にありませんでした。

続きます

質問じゃなくて愚痴？

エクセルの自動計算はONにしています。また、更新されないエクセルファイルでF9を押しても再計算されません。
ただし、ctrl+Alt+F9による強制再計算を行えば値が更新されます。

これを見ていると、Accessからのエクスポートでセルの値が更新されてもエクセルでは値の更新を検知？していないように見えるのですが、
対処方法をご存知の方はいませんでしょうか？

XP Excel2007

googleスプレッドシートのリスト表示が便利で重宝してますが、
同じことがエクセルでもできますか？

>>121
最小の再現ケースをうp

>>122
出来る

>>114
できません、重なります

>>124
重ねることも重ねないことも出来るからお好きなように使いましょう

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

見せたくないシートを非表示にしてブックの保護。
それと同時に見えてるシートの削除とか
複製は許したい。
そんなのできますか？

A1　Aグループ
A3　Bグループ
A5　Bグループ
A7　Aグループ
A9　Aグループ
A11　Cグループ
A13　Bグループ
A15　Cグループ

という感じにあり
それぞれの箇所に入金があれば
入金のあったグループの件数がそれぞれ表示されるようにしたいのですが
どうしたらいいですか？

例えば、A3とA13に入金あれば
A20（Bグループ）に２件と表示させたいんです。

>>127
VBAで出来る

>>128
COUNTIF

画面にエクセルの窓が１つしか表示できません。
新しいウィンドウで開いてファイルを切り替えても、同じ窓内で表示が
切り替わるだけです。
2003を使っています。どうすれば別々の窓に分けて表示できるのでしょうか？

>>130
http://dreamy.boy.jp/tec38.htm

すみません　教えてください

年が入ってるC列D列で2009年04月から2010年03月までを判断（"2009" & "04"と処理します)して
K列の数字をN列に出したいです。他の年月だと0を入れたいです。

関数でもVBA配列でもよく出来ません　コードも書いたのに改行多すぎで書き込めないです。。。

>>132
C1に2009，D1に04　って入ってるってこと？
普通にN1に　
=IF(AND((C1&D1)*1>=200904,(C1&D1)*1<=201003),K1,0)

ってことかいな？なんか違うか

>>132
=IF(YEAR(DATE(C1,D1-3,1))=2009,K1,0)

とかもアリじゃない かな？

>>133さん
>>134さん

どうもありがとうございました。たぶん出来るとおもいますがちょっとてんぱってしまって
またのちほどきます。

>>133さん

今やってみました。まさに出来ました。
すごく助かりました。ありがとうございます！！！
!
泣きそう！

解らないので教えて下さい。例えば、一致条件で
Ａ１〜Ａ６に１〜６までの値。
Ｂ１に２　Ｃ１に４　Ｄ１に６　Ｅ１に８　Ｆ１に１０　Ｇ１に１２　の値で、
Ｂ１の値が、Ａ１〜Ａ６に入力された値、どれかと一致すれば、
Ｂ２が○　Ｃ２が○　Ｄ２が○　Ｅ２が×　Ｆ２が×　Ｇ２が×　となって、
Ｂ２に入れる式が　=IF(ISERROR(VLOOKUP(B1,A1:A6,1,0)),"×","○")　これだと出来るんですが、

Ｂ１　Ｃ１　Ｄ１　Ｅ１　Ｆ１　Ｇ１
　1　　２　　３　　４　　５　　６
Ｂ２　Ｃ２　Ｄ２　Ｅ２　Ｆ２　Ｇ２
　２　　４　　６　　８ １０　１２
Ｂ３　Ｃ３　Ｄ３　Ｅ３　Ｆ３　Ｇ３
　○　○　　○　　×　×　×
この場合でやる、一致条件の式を教えて下さい。

=IF(ISERROR(VLOOKUP(B1,A1:A6,1,0)),"×","○")
のアドレスと検索関数を無駄のない物に変えただけだが
=IF(ISERROR(MATCH(B2,$B$1:$G$1,FALSE)),"×","○")
じゃだめなの？

>>139
出来ました、ありがとうございます。おかげでスッキリしました。

>>131
シートを分けて表示するのではなく、ファイルを分けて表示したいのです
エクセルの窓が１つしか表示できません。
７で２００３を使っています。ＸＰで２０００を使っているときは
ファイル切り換える度に窓も分けて表示されていたのですが・・

すみません、自己解決しました

autosumしてあるのにいつの間にかセルの数値を変更してもautosumの値が
変わらなくなってしまいました。
試しにもう一度autosumの設定をしてみたらその時は正しい値が出ますが
数値を変更しても変わりません。
どうしたら直るか教えて下さいm(__)m

>>143
バージョン示せよ。

2007です。

excelで減衰振動の片対数グラフを作りその数式を表示させたんですが
54.7e^-0.08xとかになって
eの片にある、直線の傾きを表示させる方法を教えてください。

約１００個のCSVファイルを１つのエクセルブック（１００シート）にまとめて保存したいのですが
どのようにすれば良いでしょうか？

>>147
マクロ

>>145
Excleのオプション→数式→計算方法の設定→ブックの計算→自動

>>149
ありがとう。直りました。
でも何で手動になっちゃったんだろ？

>>150
バグです
ttp://www.windowsstyle.net/trouble/54.html
2007でもまだあったのね

>>151
バグだったのか。
何か変な事したかと悩んだ。

>>148
マクロ使わないと無理ですか・・・
マクロさっぱりわからないんです。。。

>>153
うん､俺も昔はマクロわからなかった｡

でもやりたいことがあって､それがマクロじゃないと出来ないと分かって
「マクロの勉強する手間」と「マクロ使わずに実現する手間」と「諦めることによる損失」
を天秤に掛けて､マクロ勉強することにした｡

君も勉強してでも実現したいか､勉強するくらいなら諦めるか､自分の天秤に掛けて決めれば良い｡



なんてもっともらしいことを言ってみるが､>>147を実現できるアドイン(マクロをまとめたもの)あるから
それ入れれば解決なんだけどね｡まぁ使ってるExcelのバージョンすら書いてないから､
俺もアドイン名までは書かないが｡

>>154
すいません。。。エクセルは2007です
VBAは以前からやりたいと思っていたのでこれをきっかけに勉強しようと思います。
かんたんプログラミングシリーズが評判良さそうなのでとりあえずそれを買ってみます。
ありがとうございました。

>>155
ま手

【1 OSの種類】 WindowsXP【2 Excelのバージョン】 Excel2002【3 VBAが使えるか】 はい(勉強中)【4 VBAでの回答の可否】 可【5 検索キーワード】 マクロ 文字列 結合など。
シート1の『〔○曜日〕』から『 /他』まで、といった感じで各曜日の文章を1セルにまとめ、シート2に出力したいですが、各週文章数はランダムのためそれに対応できるのが良いです。あと、A1の文字列から日付を抽出してシート2に出力したいです。
-----シート1-----
　　Ａ
1　5月9日（月）〜5月13日（金）
2　"〔月曜日〕"
3　"●文章1"
4　" /他"
シート1の情報をシート2に以下のように出力したいです。だれか教えてください。
-----シート2（別シート）-----
　　Ａ　　　　Ｂ
1　5/9 　　"〔月曜日〕●文章1 /他"
2　5/10　　"〔火曜日〕●文章1●文章2 /他"
･･･
5　5/13　　"〔金曜日〕●文章1●文章2●文章3 /他"

マルチか
せめて向こうの質問を取り下げてから来れば
こっちは丸投げOKだから答えて貰えたのになぁ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】Excel2007 ファイル　結合　xlsx
シート1に名前　住所　電話番号・・・・というように住所録があります。
同じフォーマットで複数ファイル（50000ファイルくらい・ファイル名はランダム）あります。
これを一つのファイルかつシート1に追加していくようにして結合したいのですが、いいツールはないでしょうか。
コピペだと時間がかかりすぎて・・・2003までのxls形式だと見つかったのですが、xlsx形式の結合ツールが見つけられなくて.....
よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 Windows vista home
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 microsoft excel for windows は動作を停止しました

こんにちわ、宜しくお願い致します。

昨日から、エクセルのアイコンをクリックして、起動させると即フリーズというか
上の　microsoft excel for windows は動作を停止しました　のメッセージがでて
キャンセルしかできなくなります。

エクセルで作ったファイルをクリックしても、スタートメニューから立ち上げても同じです。
試しにsafeモードで立ち上げると、普通に使えます。

何が問題でしょうか・・・・　不具合と直接関係はわかりませんが、グーぐるアースを
インストールし、その後アンインストールしました。

再インストール、windowsの復元、及び
Excel.xlb ファイル
XLStart フォルダ
Excel.pip ファイル
のリネーム等も試しましたが駄目でした・・・

Erasecd2.exe も試みたけど駄目でした

おそらくExcel2000はVistaに非対応なのでしょう。
Excelのアップグレード（バージョンアップ）をお勧めします。

vistaで何年も使ってきたんだけど急に使えなくなりました

非対応ってのはそういうものさ
絶対に使えないわけじゃないけど､いつ不都合が出てもおかしくない

とりあえず､OSのクリーンインストールからExcel再インストールしてみたら？
それが面倒とか言い出すなら(ﾟ�听)ｼﾗﾈ

>>159
20万円くらいでやってあげたい

年の列　　月の列
1999 Jun
2001 Feb
....

となってるものを
1999年6月
2001年2月
と変換するにはどうすればいいのでしょうか

>>167
A列に年、B列に月名が入ってるとして
=TEXT(DATEVALUE(A1&"-"&B1),"yyyy年m月")

>>167
C1=A1&"年"&IF(ISERROR(FIND("Feb",B1)),"","2月")&IF(ISERROR(FIND("Jun",B1)),"","6月")
2月と6月しかやってないので他の月も
&IF(ISERROR(FIND("Jun",B1)),"","6月")
辺りをテキトーに変えて追加しておいて

>>168
AとB､逆じゃないの？
英語圏だと「24 May 2011」って風に「日 月 年」の表記になるから
年と月だけの場合でも月が前

=TEXT(DATEVALUE(B1&" "&A1),"yyyy年m月")

これで>>169みたいに無駄に冗長で面倒な式使わなくても､全ての月に対応できる

DATEVALUEって"jun"でも通用したのか、知らなかった。すまん
問題は月の列が"jun"なのか書式設定でjunと表示してるかだね

> 書式設定でjunと表示してる
そんなのは問題にならないし､そうだとしたらこんな質問してこねーだろ
書式設定でってことはシリアル値があり､それを表示形式使って
Jun(mmm)という特殊な表示にするってことをやってるわけだから､それが出来て
1999年6月(yyyy月m年)という基本的な表示にするってことが出来ないわけがない

TEXT関数でやるなら
=TEXT(B1,"yyyy年m月")
こんだけ
なんの問題にもならんw

>そうだとしたらこんな質問してこねーだろ
長年エスパーやってきたけどこういう思い込みは良くないよ

後は回答者の結果待ちだの

質問者じゃなくて？

そうだ
もうだめだ

>>173
思いこみは良くないけど､その後の理由まで読むと172の言うことには納得せざるを得ない｡
だってSUMIF知ってる奴がSUM知らないとか､ReDim Preserve知ってる奴がReDim知らないとか､
整数商\演算子と除余Mod演算子知ってる奴が除算/演算子知らないとか､そういうレベルだもん｡
これは無いと見るのが普通じゃね？

> もうだめだ
そんなことないよ















「もう」じゃなくてダメなのは以前からずっとじゃんw

ひでぇ､けど当たってる

>>177
もちろんある程度、程度を推測した上でならその推測で間違いないと思う
でも初心者は何を勘違いしてるか分からないんだよ

例えばある初心者が光回線導入したんだけど、
これでPCのクロック数があがると思っていた
ネットが早くなる、の早くなるという部分で色々想像していたようだ
んなわけねーだろ、と思っても機械音痴には常識が通用しない

君はSUMIF知ってる奴がSUM知らない奴がいるわけない、と思ってるようだが
俺の中ではいなくも無い
どっちが正しい訳でもないと思うし、一般的にも少ないだろう
でもそういう人ばっかりだと何がわかってないかもわかってない初心者は上に上がれないんだよね

等と意味不明な供述をしており

>>159
いちどテキストに書き出してからインポートは？
# なんでExcelのままインポートできないのか、不思議だ。

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

Ａ列に[売り切れ]　という文字が入っていた場合　C列に[未定]　という文字を。
A列にそれ以外の文字が入っていた場合は、C列には何もしない(Ｃ列にはすでに他の文が入ってるセルがあるので）

こういう事をしたいのですが、色々ググってもやり方が分かりません；

>>183
C列に数式入れて良いなら簡単だけど
> Ｃ列にはすでに他の文が入ってるセルがあるので
を保持したまま実現するなら､VBA使わないと不可能

まぁ､Ａ列に[売り切れ]　という文字が入っていた場合　D列に[未定]　という文字を。
A列にそれ以外の文字が入っていた場合は、Ｃ列の内容を表示するってならVBA無しでも可能だけどな

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　各都道府県　上位　抜き出す

http://www.efcit.co.jp/cgi-bin2/exqalounge.cgi?print+200605/06050109.txt
検索で出てきたこの方と同じ悩みを抱えております
返答に出ているやり方だとあまりに非効率なもので・・・
ピボットテーブルを使ってうまくやる方法はないものでしょうか？

>>185
ピボットならレポートのレイアウトを表形式にして人口を降順にすりゃ、市町村でトップ50にすればよい。

>>185
並べ替えてトップテンを表示か

>>185
検索で出てきたこの方って自分じゃないの？
どうせ否定するだろうが、ピボットテーブル以外じゃ並べ替えと作業列とフィルタオプションでもできるな。
都道府県を最優先するキー、人口を次に優先するキーで降順に並べ替え
D2に=IF(A2<>A1,1,D1+1)としてD列が50以下を抽出すりゃよいが、もし50番目が同じ人口で複数あると具合が悪いから
作業列をもう一つ用意してE2に=IF(C2<>C1,D2,E1)としてE列が50以下を抽出。

5年越しの自演って凄く壮大ですね…
当然ながら本人じゃないですけど、まぁ証明する手立てもないので
どっちでもいいですｗ

無事に>>185はできました。
値フィルタという便利な機能があるんですね…
皆さんありがとうございました。

>>188
なぜそこで自演を疑ったのか

2006年の記事に対して自演を疑う>>188ﾜﾛﾀ
今頃顔真っ赤にしてそうｗ

winXP Excel2007です。

4000kbぐらいのエクセルブック内に15ぐらいのシートがある。
で、それらのシート間にVLOOKUPやSUMIFSやSUMPRODUCTが張り巡らされていて、構成としてはデータベースシート×4・集計シート×10・総集計シート×1となってる。
そんで定期的にデータベースシートを書き換える必要があり、その書き換えによる再計算が非常に時間がかかる(タスマネ見るとCPUが振り切れてる)。

↑このファイルはネットワーク上のサーバに保存していて、そこにアクセスして作業してんだけど、
これをＣドライブに移して端末内で作業したら再計算速くなるか？

計算は速くならない
開いたり保存したりは速くなるが

Excel2003でXPです。

グループ化やリストや年度ﾌｨｰﾙﾄﾞ一列追加等を使わずピボットテーブルの4月からの年度ごとで
データを並べたいです。
1月開始のデータで1月から3月のセルを後ろにドラッグしても同じ年の中で並びが変わるだけです。
なんか、簡単に出来ないものでしょうか。

ちなみに私のExcelバージョンだとグループ化しようとすると
先頭の値と末尾の値までは出ますが
単位（B）というのが一つしか出ず、デフォルトが『0.1』です。
月・年や四半期とか出ません。頭にきます。

>>189-191
解決してないし、5/13しか目に入らなかったよ
メガネ買わなきゃだめだな

>194
そもそもの話、４月が年度始まりって日本とか一部の国でしょ？
日本国内の企業でも外資の子会社だと外国と同じ９月とか１０月始まりだろうし。

＞グループ化やリストや年度ﾌｨｰﾙﾄﾞ一列追加等を使わず
なんで自分の手足をしばりたいの？
こういう↓手間がいやなの？
http://www.ne.jp/asahi/juku/excel/090310.htm

>>196さん

レス＆リンクありがとうございます。
リンク先も以前見ています。
ただ、実際4月始まりでグループ化、列追加等の処理をしないで作成したと思われる
前任者のエクセルファイルがありまして、え！簡単に出来るんだ？って思ったのです。

そのファイルをいろいろイジってみて、やはり自分ではわからなかったので
こちらに書き込みました。
もしかしたら上の方法以外の処理をしているのかもしれませんね。
もうしばらく調べてみます。
どうもありがとうございました。

>197
ひょっとして、ユーザー設定リストを利用しているのかも。
http://www.atmarkit.co.jp/fwin2k/win2ktips/440excelsort/excelsort.html

>>198さん

いや、それも確認しましたがリストには無かったです。
ユーザー設定リストに新規インポートでもすると、そのデータがリストに残りますよね？
そして、そもそも並び方を変えただけでは、例えば2010年1月のデータは2009年度のほうにいかないですよね。。
2009年1月、2009年2月、というリストを作るのかな？


　　　　　4月　5月　6月　。。。1月　2月　3月
2010年
2009年

という感じで2年間のデータになっているんですが
たぶんネットで出てるどれかの処理をしているんだと思います。
ここを覗いている人達より高度な技をもってるとは思えないし。。
何度もありがとうございました。

>>194
http://www11.plala.or.jp/koma_Excel/faq.html#faq8
とか
2002で四半期とか選択できたけど今度は選択肢自体がなくなった
訳がわからん

その4月の表示形式はどうなってるんだろう

>>200　複乳さん
そうです　2003だと選択肢出ないんです。。。
そのリンク先も見てはいましたが。。

>>201さん
表示形式は数値とか文字列ではなく標準になってます。
見た目だと04 05 06。。。 10 11 12です。

>194,202
その前任者、まさかのＶＢＡ使いだったりして
データのあるブックと、マクロブックが別だと「痕跡」は残りませんね

今現在全て手書きで日々の売上をコクヨの金銭出納帳に記入してます
Excelでこれらの会計管理を入力から上記用紙に出力、DB化による検索まで一括で管理したいんですが
可能でしょうか

>>204
可能
「テンプレート エクセル 売上」
なんかで検索すれば色々テンプレートも見つかるよ

もし作るなら正規化って概念はちょっとだけ勉強しておいたほうがいいかも

すみません、今日やっと判明しました。

そのデータはアクセスクエリから抽出してるんですが
そこでカレンダーマスタを作ってデータにかませてました。。。
アクセスは初歩もいいところなんでそこまで気がつきませんでした。

皆様本当にお騒がせいたしましたm(｡_｡；))m

補足：アクセスから外部データとして引っ張ってきてるということです。

重ね重ねすみませんでした。

共産党都議団 都内各地の放射線量測定結果 (資料�B)

江東区から練馬区を結ぶ線以東の地域は年間1mSv以上の
放射線量となっている可能性がある。

http://www.jcptogidan.gr.jp/html/menu5/2011/20110525195904_3.pdf

SPEEDI予測 (Googleマップと合成)
http://www.puyan.net/boyaki/atomic/SPEEDI_110316-2.jpg

win7　office2010

COUNTIFの使い方で判らないとこがあります。
例えばA1〜A5まで指定する方法というのは判るのですが
A1＋A2＋A4といったように一部のセルだけを選んで指定するには
どうしたらいいですか？

セルの参照で質問です。

shieet2にsheet1のデータを表示したいです。

表示の仕方は下記です。
sheet1 sheet2
A1セル → B1セル
A6セル → B2セル
A11セル→ B3セル
A16セル→ B4セル
：
：

※バラバラの（間隔の開いた）データを別シートで集約したいのです。
調べてINDIRECTを使うのかなと思いましたがうまくできませんでした。
よろしくお願いします。

>>209
なぜA3を省くのか、その理由を条件として記述してみましょう。

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

相手先　日付　売上金額
A商店　2/1　300
B商店　2/20　500
B商店　2/25　390
A商店　3/5　150
C商店　4/3　120

というような表からA1に相手先名を指定したらB1に直近の売上金額が表示されるようにするにはどうすればいいでしょうか？
日付が降順になっていればVlookupで出来ると思うんですが昇順に並んでいます。

>>209
離れたセルを指定する方法はありません

=COUNTIF(A1:A2, 条件 )+COUNTIF(A4, 条件 )

みたいに別々に調べて足すのが基本です
配列などを使う方法もありますが、あとで式を修正するのがちょっと面倒になります

>>210
セル名の前にシート名を書けば、別のシートからデータを持ってくることが出来ます

=Sheet1!A5

一度に入力する方法としては、最初の2セルに数式ではなく「A1、A6」とだけ入力し、オートフィルで増やしてから
「A」を「=Sheet1!A」に置換します

INDIRECTを使う方法だと、

=INDIRECT("Sheet1!A"&ROW()*5-4)

となります

>>212
相手先〜売上がC列-E列
B1=INDEX(E2:E6,MATCH(SUMPRODUCT(MAX((C2:C6=$A$1)*(D2:D6))),D2:D6,0),1)

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

質問です。xp 2003　です。
A1に13.000ってあるとします。
B2に　合計　　\13.000−　　ってやりたいのですが
　　　　合計　　\13000　　　　ってなってしまいます。
13.000って三ケタに区切りを入れて見やすくしたいのですがどうすればいいですか？

B2に　　合計　　\13.000−　　が理想です。　お願いします。

>>217
http://www1.axfc.net/uploader/Img/so/116686.jpg
こんな感じで書式設定のユーザー定義
"合""計"\#,##0-;"合""計"\-#,##0-

>>218サンクス
ユーザー定義って自分で出来るの知らなかった。とにかくありがとう。

"合計　　"\#,##0-;"合計　　"\-#,##0-

>>220ありがとう　　その合計の後の空白がどうやるか迷っていましたｗ
"合""計""　　　"これだと出来なくてくっついていて質問しようと思っていました。
ありがとうございます。

3桁の区切りはピリオドじゃなくていいの？

ピリオドじゃ小数点に見えるからまずいだろよ

vista 2007　です。
横幅のコピーは列幅を選んで貼り付けで出来ますが、
縦の幅はどうやればいいんでしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】エクセル　特定のシート　ファイル出力

複数のシートがあるエクセルブックの中で、特定のシートを
指定してcsvファイル出力する方法を探しています。
なお、特定のシートを新規ブックにコピーして、csv出力した後に
新規ブックを閉じるコードで、目的は実現できるのですが、
目的のシートがたくさんあった場合、処理が遅く感じてしまい、
新規ブックを作成することなくできれば早くなるのかな？と思い
探っているところです。

>>225
どなたかの公開ページにいいものがありました。
やってみたらGoodですね。
http://takashixxx.blog88.fc2.com/blog-entry-24.html

>>225
すみません。
質問にある大切な特定シートの選択（質問を見落としました）の部分は
入ってませんでいた。

境界ダブルクリックでシート全体を自動で列幅を最適させると縮まらない空白の列があります。なぜなのですか？

>>228
列全体が空白だと列幅は変化しません

>>225
質問の意図がよくわかりません
もともとcsvファイルはシート単位でしか作れません

その「特定のシート」をアクティブにしてから普通にcsv形式で保存するのと、
あなたのやりたいこととの違いはなんでしょうか

>>226
ありがとうございます。
ws.SaveAsという部分は参考になりました。

>>230
例えば、1,2,3という3シートを持つブックで、下記のコードを走らせると、
元のブックはそのままで、3シートのcsvファイルを作成することができ、
結果としては問題ないのですが、処理中に新規ブックがチラチラし、
もしかしたらこのせいで遅いのかな？新規ブックを作成しないで実現できる
方法があったらそっちの方が早いのでは？と思ったのです。

Application.DisplayAlerts = False
Dim i As Integer
For i = 1 To 3

Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:= _
Application.ThisWorkbook.Path & "\" & ActiveSheet.Name & ".csv", FileFormat:=xlCSV, _
CreateBackup:=False
ActiveWorkbook.Close

Next i
Application.DisplayAlerts = True

>>231
ファイルの保存機能を使わずに、VBAだけでCSVファイルを作ってしまうという手もある
データの内容によってはちょっと処理が面倒になるけど、セル内改行や、文字列と数値が紛らわしいデータ、
例えば郵便番号や電話番号などがなければすぐにできる

仕事で使用するデータをエクセルでデータベース化して、その後サーバにアップして
携帯で参照できるようにしたいです。
データ自体は、たいしたものではないのでそれほどセキュリティーに大してはきにしていません。
手軽に実現するには、どういった方法があるでしょうか？

データベースといっても、計測値と加工設定値２０項目を入力して、
品種ごとにそれらの計測値と加工設定値が検索できればよい、簡素なものを求めています。
そもそも、このご時世に加工データをノートに記録しているような労働環境なので
手軽にノートで検索できればと思ったのです。

環境は、ウィンドウズ７、office2010、サーバは無料レンタルでもと考えております。

>>233-234
Microsoft Office Live Workspace使えば可能かも。

>三橋さん
以前バイトしていた倉庫で似たようなことをやっていましたが
ある日やって来たお偉いさんが
「フォークマンが端末ばっかいじってる」
と文句を言ったため廃止になりました。
また実際サボらせる原因にもなります。

>>233-234
エクセルでデータベース作るところまではスレの範疇だが
携帯キャリアから参照出来るようにする部分はスレ違い

通信や､リクエスト､レスポンス等に関しては
そっち系の板で聞くように

>>234
php　エクセル　で検索すればそれっぽいのがでてくる

>>235
検索してみます。

>>236
大丈夫です

>>238
ｐｈｐですね
ありがとうござ字ます

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

フォルダ名の取得の仕方がわかりません。
下のマクロで一応取得出来たんですが、ダイアログのところでキャンセルを押すとエラーになってしまいます。
どうやるのが一般的なんでしょうか？またエラーが出なくするにはどうすれば？

Sub test()
　With Application.FileDialog(msoFileDialogFolderPicker)
　　　Show
　　　Range("a1") = .SelectedItems(1)
　End With
End Sub

.Showの返り値を使う

>>241
if .show=ture then〜でエラー回避できました
ありがとうございました

毎日ブックコピーして作って、
それぞれのデータをひとつのブックで管理したいので
1日のデータはまとめの1日のシート、2日のデータはまとめの2日のシート
にVBAで貼りつけたいのでやり方を教えてください。
よろしくお願いします。

>243
>1-5 を見てください

質問です。

0.6
1.2
1.6
2.4
3.1

という累計から、例えば、0.6と1.2の間に「1」があるかどうか知りたいのです。
そんなことが出来る関数はありますか。

>>245
言ってる意味がわからん

>>245
よくワカランけど、こういうこと？

　　　A　　　B
1　　　　　　1
2　　0.6
3　　1.2　　○
4　　1.6　　×
5　　2.4　　×
6　　3.1　　×

B3
=IF($B$1="","",IF(AND($B$1>A2,$B$1<A3),"○","×"))

ズレたらスマン

>>246
すみません。作業の予定表です。
1日に出来ることを1とみて、累計にした数字が作業事の時間量です。

作業　作業時間　1日目予定　2日目予定…
　　　　累計
A　　　0.6　　　　○
B　　　1.2　　　　△　　　　○
C　　　1.6　　　　　　　　　○
D　　　2.4　　　　　　　　　△
E　　　3.1

といった表を作りたいのですが、出来ますかね

>>245
rounddownが切り捨て、roundupが切り上げ
これをifの条件にするかな
あとは色々ありすぎてわからん
整数を知りたいのか、1だけでいいのか、2以上離れた場合はどうなのか

名無しが一斉に逃げる気配がした

>>248
結論から言うと、出来る
が、かなり面倒な上に
妙に神経も使うから作らないけど、だいたいこんな感じ。
式は全然足りないけど、式もイメージ
ttp://www1.axfc.net/uploader/Img/so/117052.jpg
○と△は見た目でわかるだろ、と思うけど
どうしてもほしいなら数値データと別に見た目だけの表を作ったほうがいいと思う

で画像にも書いてあるけど
仕事のある時、無いとき、昨日の続き、明日への持ち越し、
そしてそれぞれの最終段の時の条件分岐をifか何かで用意すれば完成

多分やらないほうがいいんじゃないかなぁ、という感じはする

複乳はもうちょっと画像が簡単に見られる場所に上げてくれ

>>247ので、出来ました。
お騒がせしました。ありがとうございました。

ええんかいっ
>>252
俺も同感だけど、アップローダーすぐ潰れるからなぁ
長期で安定してるとこないかな。dotupもそろそろ限界っぽいし

福乳さんどっかでVBで伺かみたいなの作るとか言ってなかった？

もっと香ばしいキャラにしとくべきだったぜ
>>237
ちょｗｗｗ完全に人違いだぜ！
俺はお子様言語しかできねｗｗｗ

>>239
みんなからの心の籠ったレスがうれしいからだぜー☆

盛大に誤爆したんで>>255-256は無視してください・・

な、なんだって・・・
折角だし答えておくと>>255つくろうと思ったら既にあったので
基本機能ちょこちょこ触ってみて飽きました

複乳
問題マン

以下はフォルダ内のデータを転記するためのマクロの一部なのですが、wbには開くためのパスワード"password"が設定されています。
ブックの"password"をマクロで入力し開くにはどうしたらよいか教えてください。

Dim fn, wb, myPath
myPath = ThisWorkbook.Path & "\"
fn = Dir(myPath & "*.xls")
Set wb = Workbooks.Open(myPath & fn)

' ↓こんな感じかと考えながらもうまく動作しないです。。
Workbooks.Open Filename:=wb, Password:="password"

プログラマー板から来ました
お願いします

はいよ！
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.excel.workbooks.open(v=office.11).aspx

【ソフト名】
エクセル2003
【使用しているOS】
xp
【質問内容】
複数シートの同一セルの値を、集計シートに並べたいのですがやり方が分かりません。
くし刺しで和を出すことは検索したらやり方が沢山見つかるのですが。。。

具体的には1日1シートで日計表をつくっています。
その中に本日在庫を表すセルがあります。
それを集計シートに並べ、日毎の在庫額の変動状況を把握したいのです。
宜しくお願いします。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 初心者なのでわかりません
【4 VBAでの回答の可否】 同上

エクセル初心者です。

アクティブセルというのでしょうか。

＋カーソルは表示されていいます。
入力する際にクリックしても、いつも表示されていた枠の囲いが表示されなくなりました。
入力やコピーなどをするのに大変不便な状況です。
どなたか、表示させる方法を教えて下さい。

宜しくお願い致します。

>>262

http://hibari.2ch.net/test/read.cgi/software/1269177792/879
【ソフト名】
エクセル2003
【使用しているOS】
xp
【質問内容】
複数シートの同一セルの値を、集計シートに並べたいのですがやり方が分かりません。
くし刺しで和を出すことは検索したらやり方が沢山見つかるのですが。。。

具体的には1日1シートで日計表をつくっています。
その中に本日在庫を表すセルがあります。
それを集計シートに並べ、日毎の在庫額の変動状況を把握したいのです。
よろしくおねがいしまんこ

>>263
ツール→オプション→表示
にないかな

あげ

>>265
左上エクセルのマークからオプションにいきましたが、表示の項目が見当たらなかったです・・・。

困った。

>>264
そうです私です
この板の存在をしらず、あちらで聞いていました。

もう一度投稿しなおします。
お願いします。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】　エクセル　くし刺し　集計　シート　並べる

複数シートの同一セルの値を、集計シートに並べたいのですがやり方が分かりません。
くし刺しで和を出すことは検索したらやり方が沢山見つかるのですが。。。

具体的には1日1シートで日計表をつくっています。
その中に本日在庫を表すセルがあります。
それを集計シートに並べ、日毎の在庫額の変動状況を把握したいのです。
1シートずつ計算式内で指定していかなければならないのでしょうか。
宜しくお願いします。

こんなことしたいのですが
何で作ればいいのでしょうか

outlookのカレンダー内の特定キーワードを含むもののみを取り出して
excelの既存のフォーマットの空欄に入力していく
excelの表は一カ月でうまるようになってるので、うまったら指定したメールアドレスに自動送信

>>270
VBかvbaじゃないか
http://okwave.jp/qa/q527476.html
vb　outlook　辺りで検索

>269
合計を出したいシートで次のような作業をすると、計算式を「計算式で作る」ことができます。
前提
Ａ２から下方向に元となる（１日分のデータを記録するシートの）シート名
Ｂ１から右方向に集計したい元となるシート上のセル位置

１　Ｂ２セルに　="="&$A2&"!"&B$1　と入れて、下方向にフィルコピー（合計３１セル分）
２　Ｂ２からＢ３２セルを選択した状態で右方向に必要な列までフィルコピー
３　画面上には計算式が見えています。これをコピー、「値貼り付け」します。
４　値貼り付けした範囲をひとつずつ[F2]、「Enter」（または[Tab]）としていくと、
　　今まで見えていた式が参照値に変わっていきます

パソコン内のエクセルファイルをあるシートにハイパーリンクを用いて目次のようなものを作っています
ｌこの目次作成を簡単にしたいです
「あるフォルダの中のエクセルファイルをまとめてハイパーリンクで目次を作成する」方法を教えてください
リンクはエクセルファイル（ブック）に対してだけで構いません
ブック内のシートやシート内のある場所にリンクさせる必要はありません
よろしくお願いします
【1 OSの種類 　 　 　 　 .】 WindowsXPsp3と７
【2 Excelのバージョン 　 】 Excel2000と2003と2010 どれでも構いません
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 目次作成 ハイパーリンク 自動

ピボットテーブルって記号をそのまま値に持って来れないの？
平均だとか合計だとかで数字なっちまう！

>>274
記号って何のことだ？

>>273
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html
あとは、B列にハイパーリンク関数でも使うか
マクロを書き換えるか
それぐらいは自分で
わからんかったらまた聞いて

1/2

Sub a()
Const cnsTITLE = "フォルダ内のファイル名一覧取得"
Const cnsDIR = "\*.xls"
Dim xlAPP As Application
Dim strPATHNAME As String
Dim strFILENAME As String
Dim GYO As Long

Set xlAPP = Application
' InputBoxでフォルダ指定を受ける
strPATHNAME = xlAPP.InputBox("参照するフォルダ名を入力して下さい。", _
cnsTITLE, "C:\") ' �@
If StrConv(strPATHNAME, vbUpperCase) = "FALSE" Then Exit Sub
' フォルダの存在確認
If Dir(strPATHNAME, vbDirectory) = "" Then ' �A

2/2　

MsgBox "指定のフォルダは存在しません。", vbExclamation, cnsTITLE
Exit Sub
End If

' 先頭のファイル名の取得
strFILENAME = Dir(strPATHNAME & cnsDIR, vbNormal) ' �B
' ファイルが見つからなくなるまで繰り返す
Do While strFILENAME <> "" ' �C
' 行を加算
GYO = GYO + 1 ' 先頭は1行目
Cells(GYO, 1).Value = strFILENAME ' �D
' 次のファイル名を取得
strFILENAME = Dir() ' �E
Loop
End Sub

>>275
すいません
アルファベットを入れた列があるんです。
列ラベルを日付にして、それに対応するもの並べたいのです

【1 OSの種類 　 　 　 　 .】 XP/OSX
【2 Excelのバージョン 　 】 Excel2003/2008forMac
【3 VBAが使えるか　 　 .】 可
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル、文字　複数、置換


例えると
シートAのa1に”東京”b6に”都”、c3に”港区”とバラバラに存在して
別のブックに行に東京都港区とまとめているんですが、
B、Cのシートにも同じ文字列があります（一度使用した文字列は今後使用しません）

シートA、B、Cの中にある
同じ文字を一度に削除（空欄として置換）する為には
シート事に抽出→置換をするしかないのでしょうか？
（ブック事できたらもっと嬉しいですが…）

>>276
ほぼ答えなレスを参考にあとは自力でなんとかします
ありがとうございました
ただいまモニタとにらめっこ中です

>>279
なんかよくわからんけど、
シート見出しをctrl押しながら選択していけば複数のシートで同じ作業ができる
その状態で置換

【1 OSの種類 　 　 　 　 .】 WindowsXP　【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 簡単なものなら・・ 【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ピボットテーブル 絞り込み
--------------------------------------------------------
元データ（同じ人がテストを何回も受けている（10回以上で上限なし）
県名　人名　国語テストの点数　算数テストの点数　・・・　いつ受けたか
Ａ県　○さん　60 70　1月
Ａ県　○さん　90 80　2月
:
:
Ａ県　△さん　50 50　9月
:
:
Ｂ県　□さん　80 50　10月
:
:
Ｂ県　●さん　70 90　12月
Ｂ県　●さん　40 80　1月
:
:
実際にはきれいにソートはされていません。
---------------------------------------------------
これをピボットテーブルのレポートフィルタで人ごとに集計をしたい
（人を選んで、各テストの平均点・分散・テストを受けた回数、時系列推移をみたい。）
のですが、人を選ぶときに、入っている莫大な数の人名から選ぶため、探すのが難しいです。
所属＝県で絞り込んだ後、人の絞り込みをしたいのですが、レポートフィルタを二つ設定しても連動しないため、
「県」を一つに指定しても、「人」のレポートフィルタの選択肢が狭まりません。。
なにかスマートな解決方法はないでしょうか？
県-人名の所属データは別にはない状態です。
（もし使うとしたら、元データから新たに作らなければなりません。）
よろしくお願いします。

>>282
まずは県と人名だけでピボットテーブルを作れば所属データは一瞬でできるんじゃない？

マスコミが隠してきた真実を暴露するまとめサイト
【国民が知らない反日の実態】 http://p.tl/66MV

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

関数についてです。1日おきにセルに数字を出すにはどうすればいいのでしょうか？

注文書を作っています。例えば今日は注文するけど、明日はなし。明後日はあり。
という場合の関数を教えてください。今は注文しない日は修正ペンで消しているので不便です。
宜しくお願いします。

>>285
一行開けない場合は
A3=開始日付
A4=A3+2
一行開ける場合
A3=開始日付
A4=IF(MOD(ROW(),2)=0,"",A2+2)

>>285
数字を出すってどんな数字を出したいのですか？

あと、どんなレイアウトでやってるのですか？

4/1…1
4/2…
4/3…1
数字って書いてるところみると日付は全部入ってて注文個数を飛ばしでいれたいのかな？

例えば>>288のような感じでA列に日付が入ってて一日おきに”１”という数字を入れたいとかだと
日付のシリアル値を参照して偶数・奇数別に空欄と”１”を割り振る、
=IF(A1=ODD(A1),"1","")
などが考えられるけど。・・・単純に一日おきでいいの？（年中無休？）

説明不足で申し訳ないです。
注文書は業者に送るFAXです。毎日その業者には注文はするのですが、
ある商品だけが1日おきの注文になります。
FAX注文書はexcelで作り、毎日数量を手入力しています。

りんご　1コ
みかん　1コ
　

みたいな感じです。ちなみに年中無休です。宜しくお願いします。

>>290
あぁ、そういう意味か・・
注文書は当日に作るってことでいいのかな

偶数の日だけ表示なら
=IF(MOD(TODAY(),2)=0,"りんご","")
奇数の日だけ表示なら
=IF(MOD(TODAY(),2)=1,"りんご","")

日がたつに連れて勝手に表が伸びるってことかも？

エクセル2003です。マクロで何枚か連続で印刷をする際、「××を印刷しています」という表示がでないようにしたいのですが（画面がチラチラするので）、うまくいきません。次のやり方のどこがおかしいでしょうか？

Sub test()
Application.Screenupdating = false
（印刷処理）
Application.Screenupdating = true
End Sub

>>293
Screenupdating = false はダイアログやユーザーフォームには効かないようです。
イベントを無効にするやつをお試しください。
それでダメだったらウィンドウロック？だかのAPIを使うか
もしくはフック乳って人にサブクラス化について聞いてみるとよいでしょう。

=IF(A2="あああ","○","×")
みたいには出来るのですが
たとえば
A2に"あああ","いいい","ううう","えええ","おおお"
みたいにいずれかが入っていたら真、いずれもなければ偽ってしたい場合
ネストするしかないのでしょうか？

あと
A2に"あああ"とC2に"いいい"で二つとも真の場合は○としたい場合
IF(A2="あああ",IF(C2="いいい","○","×"),"×")
としているのですが、これが最良の方法なんでしょうか？

>>295
なにをもって最良の方法というか知らないけれど
論理関数の AND 又は OR を使う手もある
後者だと
=IF(AND(A2="あああ",C2="いいい"),"○","×")

>>295
=IF(A2&C2="あああいいい"),"○","×")
とかも
あんまり量が多いなら、表を作ってvlookup辺りで値を引っ張ってくるとか

それだと
A2に"あああい"とC2に"いい"や
A2に"ああ"とC2に"あいいい"や
A2に"あああいいい"とC2は空セルなどの場合､
条件とは一致してないのに○になっちゃうぞ

相変わらず複乳は抜けてるなぁ

それだとA2が“ああ”でB2が“あいいい”のときにおかしくなっちうの☆

本当だ
みんなすごいね♪

みんながスゴいんじゃない､おまえがショボいだけ

こんなの､ほぼ同時に同じ内容の指摘が入るくらいで､誰でも気付くことだ


複乳は知識はそこそこあるが､如何せん思考力､応用力､判断力が無さ過ぎる
いわば､学校のテストではそこそこの点数取れるが､社会に出たら使えないタイプ

ある程度入る文字の制約が予測できる上での発言だと思う
もちろんフック乳も最初から分かってるし
質問者も応用して使ってねって言われてることはわかってるよ

唯一何も分かってないのは右も左も見えずにﾌﾟｷﾞｬｰしてる人

だとしたら､本人が
> 本当だ
なんて言うわけが無い

> 唯一何も分かってないのは右も左も見えずにﾌﾟｷﾞｬｰしてる人 (ｷﾘｯ!

とか言ってる奴が､一番右も左も見えてない

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

関数で質問です
野球のゲーム差を表示したいのですが勝率で首位を判別してそのチームの勝数と負数を出す関数があれば教えてください。
勝率と勝数、負数は別で表示していますのでそれを使う関数でお願いします。

>304
勝率、勝数、負数の一覧表があるのなら、勝率で並べ替えてみるとわかるけど
同じ勝率で勝数、負数が複数通り該当する場合があるときはどうするの？
例：６勝４敗＝１２勝８敗＝１８勝１２敗・・・・・

>304
ちょっと勘違いしてた。　同率首位は考慮しないということで簡単に

６球団がならんでいるとして、Ａ列から右にチーム名、済んだ試合数、勝数、負数、
引き分け試合数、勝率が並んでいるとして、勝率で並び替えることなく首位チームの
勝数、負数を出したいということなら、
=INDEX(A2:D7,MATCH(MAX(F2:F7),F2:F7,0),1)　　　首位のチーム名
=INDEX(A2:D7,MATCH(MAX(F2:F7),F2:F7,0),3)　　　首位チームの勝数
=INDEX(A2:D7,MATCH(MAX(F2:F7),F2:F7,0),4)　　　首位チームの負数

教えてください。
マウスを使わず行選択をするには“Shift+space”ですよね。
その状態で、次の行に行きたい時はどうすれば出来ますか？
Shiftを押したまま複数行にするのではなくて、
一行ずつ行選択の状態のまま上下に移動したいんです。
文で説明すると難しく聞こえますが、中身を移動したいわけではなく、
ただ選択状態を行選択の状態で上下したいということです。
いろいろ検索して調べてみましたが、見つかりません。
出来ないのでしょうか？
（Win7, excel2000）

>307
無理みたい　↓はExcel2003用のページです。参考まで。
http://www.microsoft.com/japan/enable/products/keyboard/excel2003/default.mspx

ＶＢＡ使えばセルの移動の都度、選択セルのある行を選択状態にできるかもしれませんが。
ところで、なんでそういう操作が必要なんでしょうか？

>>307
shift+spaseそのあとshift+↓

by 2007.

あ、複数行じゃなかったのか。orz

>308, 309

ありがとうございます。
やっぱり出来ないんですね。
どうしてやりたいかというと、
１行ずつ出力と照らし合わせて目で確認し、確認し終わったところを
マクロで色をつけていくという作業をしているからです。
そして、出力にもペンでチェックを入れるので、ペンとマウスを
両方右手で持たないといけないので。
色をつけるのはマクロでショートカットが出来るのに、次の行に移るのに
いちいちマウスで行番号をクリックしないといけないのが手間なので、
キーボードで出来たらと思ったんです。

なんか他にいい方法があったら、ぜひ教えてほしいです。

>311
色を付けるマクロに　当該セルの１行全部選択＋次の行のセル（もしくは行全体）を選択
っていうのを組み込むだけでいいのでは？

>311

なるほど！
そういう方法ができるんですね！
ただ、すべての行に色をつけるわけではなくて、
色をつけずにスルーしていく行もあるんです。
でも、スルーする行のときだけは普通にセルだけで
下に↓で移動すればいいかも。
一度、やってみます！
ありがとうございました。

>312

間違えて自分にレスしちゃいました。
すみません。
マクロ変更してみました。
バッチリいけそうです！
ありがとうございました。

エクセルのグラフなのですが、データラベルを動かして
元データとのリンクが切れるということはありますか？
ソースがあれば教えていただきたいです。

>>306
おかげで解くことが出来ました。
ありがとうございます

>>314
マクロにショートカット登録すればどんな操作でもキーボードだけでできるようになるけど

関数でA2に指定の文字列が存在（あいまい一致）した場合"●"、
なければ"×"を表示したいのですが
MATCHとかを駆使しても中々うまくいきません
教えてください

>>318
=IF(COUNTIF(A2,"*hoge*"),"●","×")

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2005
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 マインスイーパー
sheet3の同座標に1があったら●、
1が無かったらsheet2の周囲8マスの1の合計を表示するにはどうすればいいですか？
ワークシート関数のみでお願いします。

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

顧客リストが２つあります。
Ａは全顧客のリストで顧客番号、住所、電話番号などの項目があります。
ＢはＡの中の特定の顧客リストですが、電話番号の項目がありません。
ひとつひとつコピペしていくのは大変なのでいい方法はありませんか？
特定の顧客といっても一発で抽出できるものではなく、
Ｂを作成するときはＡから不要な顧客を手作業で消したようです。
お願いします。

>>320
まず、正規版のexcelを購入して下さい。

>321
MATCH、INDEXを組み合わせます。具体的な状況を追加してもらうと
そのままコピペで使える式を書くことができると思います。
具体的な状況とは、
１　顧客リストＡとＢは別シートですか
２　関係する項目の列名、リストＡのデータがある行範囲（２行目から１０００行目までとか）

>>323

ありがとうございます。
ＡとＢは別シートです。
Ａは３行目から４８８行目まで顧客名が並んでいます。
Ｂは６行目から２７４行目まで顧客が並んでいます。
共通している項目は、「顧客番号」「顧客名」です。
Ａから移したい項目は「電話番号」「ＦＡＸ番号」です。
よろしくお願いします。

>>320
B2=IF(Sheet3!B2=1,"●",(Sheet2!A1=1)+(Sheet2!B1=1)+(Sheet2!C1=1)+(Sheet2!A2=1)+(Sheet2!C2=1)+(Sheet2!A3=1)+(Sheet2!B3=1)+(Sheet2!C3=1))

「列名」って項目名じゃなくて、Ａ列、Ｂ列のことだったんだけど
とりあえず、シートA側の列の並びがＡ列から顧客番号、顧客名、電話番号、ＦＡＸ番号・・
シートB側はＡ列に顧客番号があるものとして、
電話番号を求めたい列の６行目　=INDEX(A!$A$3:$D$488,MATCH($A6,A!$A$3:$A$488,0),3)
FAX番号を求めたい列の６行目 　=INDEX(A!$A$3:$D$488,MATCH($A6,A!$A$3:$A$488,0),4)
A!$A$3:$D$488　の　Ｄ　は実際のデータ範囲（電話、ＦＡＸ番号までの列で可）の列を
式の一番最後の　３　や　４　は、シートＡでの電話番号やＦＡＸ番号の列位置を数字で示したものを
それぞれ指定してください

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

製品番号　製品名　個数
0000001　品物a　1
0000002　品物b　3
0000001 品物a　4
0000002　品物b　2
0000003　品物c　5
・・・・・・・
製品番号が一緒の場合、足し算の合計を出しながら
重複を削除したい
どういうことかというと上記を
0000001　品物a　5
0000002　品物b　5
0000003　品物c　5
という結果にしたいです
どういう方法があるか教えていただけますか

たびたびすみません
重複を削除ではなくて、結果が出せれば問題ないです

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

>>327
"ピボットテーブル"という言葉を出させたいが為の質問でつか？

【1 OSの種類 　 　 　 　 .】 Windows　7
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 VBAで
【5 検索キーワード 　 　 】 vba シート名　変数

シート名が1〜30のシートあります。
ただ、左から順にあるわけではないので、

for i = 1 to 30
worksheets(i)

ではうまく参照できません。
どうすればいいのですか？

>>327
・フィルタオプションの重複データを無視か何かにチェック
・ピボットテーブル
>>331
Dim i As String
i = 1
Sheets(i).Select

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

デジカメで撮った100枚程度の画像を縮小してA4用紙に8枚ずつ並べたいのですが、VBAを使えば可能なのでしょうか？
excel マクロ　画像配置
等でぐぐっていますが、マクロについてそもそもの知識が無いので
どれを使ってみて、改造してみればいいのかよくわかりません。ご教授お願いします

vba使えばできるけど、なんでその要件でExcel選ぶかが不思議だわｗ
普通にデジカメ付属のソフトでできんだろそんなもん

>>333
画像　アルバム　印刷
とかでソフトウェア探した方が早いと思うの

もし見つけられないなら
気軽に「こんなソフトありませんか？｣ Part.138
http://hibari.2ch.net/test/read.cgi/software/1306025346/
こういうスレどうぞ

>>330
>>332
ありがとうございます
ピボットテーブル勉強になりました

>>333
つか、XPだと写真の印刷ウィザードで何分割配置とか設定できなかったか。

>>326

うまくいきました！
とても助かりました。
ご丁寧にありがとうございました。

>>332
Dim i As String
じゃ､Forループが回せなくなるぞ

>>331
ループ回せて､シートの並び順ではなく名前順に参照するには
dim i as long
for i = 1 to 30
worksheets(cstr(i))

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 ある程度
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】オートフィルタ内検索　フォーム　VBA

顧客リストを作成し、自前で作成した検索ボタンから検索フォームを表示させてます
そしてその名前TextBoxに入力した文字列を含む検査結果を呼び出したいと思ってます

ActiveSheet.Range("$A$3:$D$65536").AutoFilter Field:=2, Criteria1:="=*工藤*", _
Operator:=xlAnd
マクロからのコードを参考にしてやると工藤の含む文字列を一覧で表示できたのですが検索フォームからの入力だと検索できません

Dim 検索値1 As String
　　検索値1 = TextBox1.Text
ActiveSheet.Range("$A$3:$D$65536").AutoFilter Field:=2, Criteria1:="=*検索値1*", _
Operator:=xlAnd
変数の宣言が間違っているのでしょうか
文末をCriteria1:=検索値1にしても表示されないです
ご教授お願いします

追記
Dim 検索値1 As String
検索値1 = TextBox1.Text
ActiveSheet.Range("$A$3:$D$65536").AutoFilter Field:=2, Criteria1:=検索値1

上記だと工藤の完全一致の検索しかできないので"工藤"を含むデータを表示させたいです
例
工藤は検索できても
工藤新一は引っかからない

説明下手でごめんなさい

Criteria1:="=*" & 検索値1 & "*"
じゃないの

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

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

A B C D
E F G H
I J K L
上の様に並んでいるデータを↓の様に縦一直線に並べたいのですが
どうすればいいのでしょうか？
A
B
C
D
E
F

=A1
=B1
=C1
=D1
=A2
=B2
=C2
=D4
まで手入力して
マウスでドラッグすると
=A3が来てほしいのに=A７が来てしまいます
どうしたらよいのでしょうか？

>>344
=OFFSET($A$1,INT((ROW(A1)-1)/4),MOD(ROW(A1)-1,4))
と入れて下にコピー

>>345
手掛かりが無くて困っていたので助かりました！！
有難うございます！！

質問なんですが。CD読込みが出来ないネットブックPCにExcelを入れる事って出来ますか？

>347
ソフトウェアのインストールについての質問はスレ違いです

>>347

http://www.microsoftstore.jp/Form/Product/ProductCategory.aspx?cat=200005

>>347
心配しなくてもDVDさえ読み込めればいいから。



ってことじゃないよな。多分。w

相談させてください

パソコンが壊れたので、ＰＣの修理屋に任せて直してもらったのですが
エクセルのデータを印刷するとき、印刷サイズがおかしくなってしまいました。

パソコンが戻ってきた後に初めて印刷しようとする、エクセルのシートを開いて印刷しようとすると
初期状態のページ設定のサイズが　Ａ４ではなく、写真Ｌ判になってしまっており、それらをＡ４になおさないといけなくなっています。
一度Ａ４になおして印刷したファイルは、次からの印刷はＡ４になっており大丈夫のようです。

1枚・2枚程度ならともかく、昔作ったエクセルデータを何千枚も印刷する必要があるので、何千回もＡ４に直す設定が手間なのです。
どうしたら直るでしょうか、初期状態から写真Ｌ判ではなくＡ４になるでしょうか？

教えていただけると助かります。よろしくお願いいたします。

>>351
コントロールパネル＞プリンタ
見たら？

質問です。
　　　　　1月　　2月　　3月
2005年　　100　　200　　300
2006年　　400　　500　　600

を2005年と2006年の1〜3月の各数字を折れ線で、2005年と2006年の各合計を棒グラフで表したいのですが、
棒グラフにする方法がわかりません。
折れ線は作れたのですが、棒グラフが上手く作れません。
真ん中に棒グラフが2本できるようにしたいのですが、教えていただけると助かります。
よろしくお願いいたします。

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

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 ほんの少し
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 countif　ワイルドカード等

【例】
　12345
　478
　147
　257

という4つの数字が各行に入ってたとします。
1が使われている数・・・2個
2が使われている数・・・2個
3が使われている数・・・1個
4が使われている数・・・3個

・・・と一つの数字を文字列のワイルドカードのように抽出したいのですが
うまく行きません

どのような関数を入れるとうまく行くでしょうか。

【1 OSの種類 　 　 　 　 .】 WindowsVISTA
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 含む文字列の数、文字列の抽出

２ｃｈのスレから何月何日に何個書き込みがあったか調べたいので
最初↓のレス番号の2001/01/26をFINDで他のセルに抽出して
3 名前：名無し　：2001/01/26(金) 21:18

それをCountifで何個あるか数えさせようと思ったんですが
そもそも１つのスレで何月何日に発言があったか
リストアップさせなきゃいけない事に気付きましたOTL
書き込みがあった日にちをリストアップするには
どうしたらいいですか？

【1 OSの種類 　 　 　 　 .】 XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel+「COUNTIF」「FIND」「INDEX」「MATCH」「OFFSET」「個数 カウント」 等

　品目　　数量　　単価
　　A　　　　B　　　　C　　
1　パン　　 1
2 ごはん　 2
3　パン　　　
4　パン　　 2
5 ごはん　 0
　　　　　　パンの総数　3
　　　　　　ごはんの総数　2

図のようにB列がnullもしくは0でない場合、その該当品目の個数をカウントしたいのです
検索した関数を入れ子にすればなんとなく出来そうな気はするんですが…
よろしくお願いします。

何かの宿題か？いきなり連続で質問が出てきたけど

>354
こういうときは1個と数えるのか、2個と数えるのか教えてください。それによって式が違います。
1232
106　　　この　３個　の数字の中の　２　の個数（=３個）　が必要なのか、
257　　　それとも、２を含む数字の個数（=２個）が必要なのか、どちらですか？

>>356ですが、自己解決しました
=SUMIF(A1:A5,"ごはん",B1:B5)
でOKでした

出来ないと思っていたのは条件を勘違いしていただけでした…
スレ汚し失礼しました

>355
Ｅｘｃｅｌのシート（セル）にどのようにデータが入っているのかすら情報を
ださないんなら、回答を期待しない方がいいです。

すいませんでした
例えばこんな感になります
A1→1 名前：名無しさん ：2001/01/26(金) 20:55
A2→こんばんは
A3→げんき
A4→（空白）
A5→2 名前：名無しさん ：2001/01/26(金) 22:34
A6→1おつ〜
A7→（空白）
A8→3 名前：名無しさん ：2001/01/26(金) 23:40

>>360
そういうデータだと確実性は無理だと思う。
ソースとか専ブラのdatとかからなら正確にカウントできると思うが。

>>361
もともとまとめサイトからコピペしただけなので
正確にカウントするにはどういう風にコピペし直せばいいですか？

360 名前： 355 [sage] 投稿日： 2011/06/10(金) 21:55:48.93
すいませんでした
例えばこんな感になります
A1→1 名前：名無しさん ：2001/01/26(金) 20:55
A2→こんばんは
A3→げんき
A4→（空白）
A5→2 名前：名無しさん ：2001/01/26(金) 22:34
A6→1おつ〜
A7→（空白）
A8→3 名前：名無しさん ：2001/01/26(金) 23:40

>>362
このようにレスコピペがあった段階で現状のデータだとレスかレスコピペかの判断が難しくなる。
ギコナビを使っているんだけど、それだとデータ部と投稿日時の違いがわかるので
Datから正確なカウントができると思う。
まとめサイトを見てみないことにはなんともいえないなぁ。

じゃあ、レス番号のあるところをAの列にして
コメントをBの列かなんかにコピペ出来るようにしてみます。
その場合ならカウントできますか？

A列をレス番だとすれば「A列が空白でなければB列の何文字は日時ですよ〜」
と、式は作れるだろうね。
ま、結局それもデータの持ち方次第だし、そこまで手間をかけるのなら
日時部分も別にすれば?　とは思うけど。

そうですね・・・
えーとまずフィルターでカッコやスラッシュを含むでレス番号が入ってる行をとりだして
あとは前の文字が連番になっているかIFかなんかで確認させて
1 名前：名無しさん ：2001/01/26(金) 20:55の部分を
それぞれ分離させていけば良さそうですね・・・

書き込みがあった日にちをリストアップさせるにはどうしたらいいですか？
上記のままだと日にちのリストアップしても
2001/01/06
2001/01/06
2001/01/06
2001/01/07
2001/01/08
2001/01/08

という感じになるだけなんですが
最終的には
2001/01/06　3コ
2001/01/07　１コ
2001/01/08　２コ
という感じにしたいです。

>>366
前の書き込みをあんまりよく見てないけど、
2007だったらデータの「重複の削除」でcountif

でも、ピボットテーブルが最強。一発でそこの状態まで行く

有難うございます！
ピボットテーブルは調べてわかんなかったら重複の削除します
本当に助かりました！！

2010を使っています。
値1(+)を値2(-)の上に重ねるような棒グラフの作り方を教えてください。
図解するとこんな感じです
http://www.dotup.org/uploda/www.dotup.org1692014.jpg

>>369
積み上げ棒グラフあるいは棒グラフにY誤差を付けて表示

>>367
一度はドロップアウトした清人だからこそおっさんの面白さを見落とさず拾い上げる事ができたし、それを伝える事もできた。
同じ伝えるプロでも、金持ちに生まれてリア充一直線を突っ走ってきたアナウンサーにこの面白さは伝えられないし、
受け手が勉強ばっかりやって来たオタクではやはり理解する事ができない。
必要なのは人生経験という共通の背景。

>>357
回答が送れて申し訳ございません。


>>354です。
数字の重複はありませんので

1232という可能性は考えなくて良いのです。
なので、２を含む数字の個数（=２個）が必要です。

>>372
A1〜A4に入っているとして
=SUMPRODUCT((LEN($A$1:$A$4)-LEN(SUBSTITUTE($A$1:$A$4,ROW(A1),""))))
として下にコピー（９まで）
0も入れるなら
=SUMPRODUCT((LEN($A$1:$A$4)-LEN(SUBSTITUTE($A$1:$A$4,ROW(A1)-1,"")))

>>372
=CONCATENATE(ROW(A1),"が使われている数・・・",LEN(A$1&A$2&A$3&A$4)-LEN(SUBSTITUTE(A$1&A$2&A$3&A$4,ROW(A1),"")),"個")

それ普通に第2軸にして軸反転でできなかったっけ？
人口ピラミッドみたいにしたいって事でしょ？

>>373さんと>>374さんｎ

ありがとうございました！
これで先へ進めます！

関数とかバンバン使いまくれる人って、やっぱ一流大学卒の人なんですか？
神奈川大学卒の先輩のExcelファイルには、SUM関数しか知らないんですが。
それも最初までSUM関数すら使ってなくて、
いちいち、=A1+A2+A3+A4みたいに一個一個足していってたんですよ。

それを見た時、この会社、ダメだって思いました。

>>377
エクセルの数式程度で会社の優劣を決めるお前のほうが絶望的

>>377
全く関係ない。
なんとなく算数・数学が不得意でない人に適性がちょっとあるかな、程度。

東大出だろうとなんだろうと、関数を使えない人がいるのは当たり前。
エクセルに興味がなかったら覚えないだろ、そういうもんだ

>>377
ついでに、お前が新入社員だとしたら、かなり程度の低い新入社員
そうじゃないとしたら、複乳と同じコメントにするわ

>>378-380
レスありがとうございました。
大変、勉強になりました。

中央大卒の知り合いなんか=SUM(A1*B1)なんてやってたので=A1*B1でいいと教えてやった。

コンピューター言語の文法をまったく知らないと、応用するのは難しいよ
変に「こう書かなきゃいけない」って思い込むのは別に珍しいことじゃない

"たばこ大増税＆出荷停止。
でも個人輸入すれば大丈夫。日本語の輸入代行も多数。
「タバコ　輸入代行」とかで検索するとあるある、、、
送料込みで１箱９０円とかの激安サイトもある。"

【1 OSの種類 　 　 　 　 .】 win7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 なんとか
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 VBA　展開　階層　ツリー

金銭出納帳入力ソフトを作ろうと構想段階で色々調べているのですが
http://www.joy.hi-ho.ne.jp/hootown/genkin.html
このソフトみたく科目を入力するとその科目項目の登録摘要の階層展開コードが知りたいです。
まったく現時点でのコードが組めてないのでVBAでの回答は否とさせていただきました。

上記訂正
【4 VBAでの回答の可否】 可
>>1を読み直したんですが、VBAでの回答を希望です
すいません、よろしくお願いします

>>385
スレ違い
Excelとは関係ないアルゴリズムとかの話は､ここでは取り扱っておりません

つーか､そのファイルのソース見ちゃえば早いんじゃね？
まあ凄まじくクソなソースだけどなw

定数ってものを知らないようで､バラバラにリテラル値使いまくりだし
クラスも使えないようで､冗長なコードになってるし
インデント規則もバラバラだし､変数の連続宣言で型指定忘れてるところ多いし

>>387
無知ですみませんでしたｗ
VBAでどうにかしてるものだと思ってたんで質問したんですが
スレ違いでしたか…
ソース見るにもロックかかってみれなかったんでorz

となると科目コード一覧と摘要コード一覧を別シートに記述してそこから読み取るしかないのか
そうするとコードが膨大で探す手間が多くなる気がするんだけど、仕方ないのかな…

>>387
言い方にとげがあるよ、お前
もう少し丁寧に言えカス

>>389
フォローありがとう！
いいんだ、できないみたいだし
それがわかっただけでも十分です

>>387
OpenOfficeOrgで開けば見れる
コード見たが、こんなんでもやっていけるんだと自信が出る

以前(もう数か月も前ですが)ここの親切な方にかなり複雑なVBAを組んだEXCELを作っていただいたのですが今だにそれをいじれません。どうしたらよいでしょうか？

そのEXCEL(ブック)をうpして､どう弄りたいのか書けば､別の親切な人が弄ってくれるかもよ｡

但しパスワードが掛かってたり､二次配布禁止と言われてるものの場合はそれ出来ないけどな｡
EXCELの場合､パスを外すのはリバースエンジニアリングに当たらないから､個人的に外して
中身見るのは問題ないけど､そうやって得たコードを第三者に晒すと問題有りだから｡

その場合は､自分で勉強して弄れるようになるか､それ作った人の再降臨を待つかだな｡
つーか､それ作った人だって､生まれたときからVBAの知識があったわけではなく､最初は君と同じで
VBAなんて全く組めない弄れないところから初めて､勉強してVBA使えるようになったわけだから
君もせっかくサンプルがあることだし､これを機に､それを基に､勉強初めてみたら？

パス付きの中身の見方は､一つ上にも書いてあるし､ググればExcelでの方法も見つかる｡

パスはかかってないけど二次禁止…
神様、もう一度…

> せっかくサンプルがあることだし､これを機に､それを基に､勉強初めてみたら？

クソうぜえな

作業標準時間が15分だとします。

各作業員（A,B,C）がおのおの作業します。
それぞれ1ヶ月間に作業した結果→12分、8分、11分・・・・・・・・
作業員個々の1ヶ月計の標準時間を求める関数を教えてください。

>>397
標準時間の求め方は複数有り､どう求めるかは企業の方針とかで変わってくるし､その部分はExcelとは関係ない話
なので､まずは求め方を確立した上で､それをExcelに計算させようとした場合に解らないことがあったらまた来なさい

例えば､「円の面積はどうやって求めたら良いですか？」というのはスレ違いで､円の面積の求め方は解っている上で､
Excelにおいて円周率を関数で返す方法や､2乗の入力方法が解らないと言う場合に
「円周率はPI()関数で､2乗は^2」とか教えるのがこのスレの範疇

はい。了解

>>395
数か月勉強して最初よりはるかに分かるようになって、
それによっていただいたものの複雑さがより一層理解できてしまった

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows　７
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 countif 見分け
今はcountif(範囲,"*"&a1&"*")といふうにそれがあればカウントするようにしているのですが、
涼と涼香の二人がいる場合、涼香で両方がカウントされて困っています。

ただ、検索対象セルは「涼、涼香」と入れることもありますので、
そのときは両方に1ずつカウントできるようする方法を教えてください。

区別したけりゃ"*"外せ

あと
> 検索対象セルは「涼、涼香」と入れることもありますので
その間違った使い方を改めろ

検索対象セルには「涼」あるいは「涼香」のいずれかのみを入れること
両方の結果を出したければ､検索対象セルは「涼、涼香」と入れるのではなく
検索対象セルと数式を複数用意して､それぞれに「涼」と「涼香」を個別に入れろ

countif(範囲,"涼香")
で「涼」「涼香」「涼、涼香」の数
そこからcountif(範囲,"香")
を引けば「涼」の数が
countif(範囲,"、")
で「涼、涼香」の数が決まる

「涼」「涼香」「涼、涼香」の数から
「涼」の数をひいて
「涼、涼香」の数がひけば
「涼香」の数が出る

後はテキトーに足し算

>>397
アベレージ関数を使って式を作ってください。
いや、作りなさい。

他に方法が色々とあってもアベレージ関数であなたは作りなさい。

アベレージ関数っていつも綴り分からない。つ買わないけど
あとそれエラーになるんじゃね

>>404
標準時間ってものを理解してから回答した方がいいよ

>>406
あまりにも漠然とした質問だからそんなの今回はどうでもいいの。

標準時間ってものを知らない人には､
「標準」や「時間」というのが漠然とした概念だから､質問が漠然としているように見えるのかもしれないが
標準時間ってのは漠然とした概念ではなく､厳然たる意味のあるものなのだよ

標準時間に厳然とした意味があるかどうかにかかわらず、
>>397 の質問は漫然としてるだろ？

漫然としてないなら、答えてやれよ。

1 Windows XP、2 Excel2003、3 VBAが使えるか：いいえ、
4 VBAでの回答の可否：否 5 検索キーワード：ピボットテーブル

質問)下記のようなピボットテーブルを作りたいのですが、
カラー比率は出せるのでしょうか？

所属,社員コード,印刷枚数,カラーモード(元データ)
経理,111111,10,カラー
経理,111111,20,モノクロ
総務,222222,15,モノクロ
経理,333333,50,カラー

所属|社員コード|印刷枚数|カラー比率 (ピボットテーブル)
-----------------------------------
経理|111111　　|30　　　|33%
経理|333333　　|50　　　|100%
総務|222222　　|15　　　|0%

>>409
スレ違い(>>398参照)
スレ違いと言われて質問者は了解してるんだから､関係ない奴が駄々こねるな

>>410
ピボットのみじゃ無理っぽい
でもカラー比率自体は数式で簡単に出せるんだから､元データの方で
カラー比率フィールドを追加してやればいいんじゃね？

エクセル2010を使っています。
グラフ作成で、とびとびのデータを線で繋ぎたいのです。
2003ではツールのオプションで補完して線を繋ぐという設定がありましたが、2010で同じような設定画面を見つけられません・・・
よろしくお願いします。

>>412
http://www4.synapse.ne.jp/yone/excel2010/excel2010_graph_ore.html

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

>>411
脊髄反射乙。
ひょっとして回答要求してるとでも思ってるのか？

マルチプランのデータをExcel5.0で開けることまでは
調べてわかったのですが、Excel5.0をXPにインストールすることは
可能でしょうか？Windows3.1対応らしいのですが
XPにインストール可否に関する回答がうまくみつかりません。

もしくはマルチプランのデータをXPのExcel2000or2003で
開く良い手立てはないものでしょうか？
被災した知人がデータ流されてしまったようなので
昔の船の設計に関するデータをあげようとFD見つけたものの
開けなくて困っております。

マルチプラン 変換
でぐぐればイロイロでてくるけど
どれが確実かは分からない

もうちょっと調べてみます

>>415
そうムキになりなさんな

>411
回答ありがとうございます。

関数で試してみます！

>>400
とりあえずメール送ってみたら？
それで返事が来なかったらその人はそれ以上やる気が出ないってことだ
ここまだ見てるならメールの確認くらいはしてくれるだろうし

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 -
【4 VBAでの回答の可否】 -
【5 検索キーワード 　 　 】 エクセル 終了できない
頻繁に（一日数度）エクセルが終了できない状態になります
マウスでセルをクリックすると、クリックしたセルからドラッグ選択状態になり
選択を外すことも、他のセルを選択することもできなくなります
こうなるとキー入力も受け付けず、保存も×ボタンで終了することもできません
他のアプリに切り替えるとそちらは正常に動作していますが
背面ではドラッグ選択状態のまますごい勢いでスクロールしています
終了するには強制終了しかありません

うまく説明ができませんがなにか解決法わかる方いませんか

>>422
とりあえず､OS､Excelのクリーンインストール

面倒だとかは言うなよ
自分でできることすらやろうとしないなら､（ﾟ�听）ｼﾗﾈ ってことになるので

昨日OSクリーンインストールして再発したので途方にくれています

エクセル以外にも必要なソフトを何点か入れているので、完全にきれいな体ではないですが
かなりきれいなはずです
1年ちかく同じ構成（ハード、ソフトとも）で問題はなく、2週間くらい前から突然症状が発生しています

>>422
オプションに反復計算という項目にチェックが入っていたらチェックを外す。

>>422
キーボード・マウスになんか詰まってるだけとか・・・
キーボードとマウスを試しに外してみるとか

>>425
入っていませんでした

>>426
外しても（症状発生時に交換しても）変化なしでした
アプリを切り替えればそちらでは問題なく操作できるので、ハードは問題ないと思います

>>424
なんで OS クリーンインストールしたのに、エクセル以外のソフトが入ってるんだ？

他のソフトが必要だとしても、まずエクセルだけで確認するだろＪＫ

>>424
システムの復元だな。２週間前を復元ポイントで。

あ、クリーンインストールしちゃったんだっけ？
じゃあ無理か。

Dim s as string
do
s = "test"
Msgbox s
loop

こういうのを実行してしまった時はどうすれば終了できるんでしょうか？

>>430
ESCを押して中断

>>430
ctrl+break
>>431だとすぐにメッセージでない？

>>432
ESCを暫く押しっぱなしだと中断できるよ

>>433
2003で10秒ぐらい試してみたけどだめだったよ
メッセージボックスが閉じてまたすぐ開くのくり返しになる

>>434
2010では出来るんだけどなあ。まあでも一発で止まるctrl+breakの方がいいね

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows　xp
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

ファイル内の別シートを参照するマクロを組み込んだセルを
異なるファイルA.xlsからB.xlsへコピペした際、
コピペしたマクロが下記のように書き換わってコピペされてしまいます。
マクロ内を変化させることなくコピペする方法はないでしょうか？

○コピぺ元マクロ
=SUMIF(シート名!M11:M22,">0",シート名!M11:M22)

○コピぺ先にコピーされたマクロ
=SUMIF('[参照元file.xls]シート名'!M11:M22,">0",'[参照元file.xls]シート名'!M11:M22)

>>436
エクセルの仕様だからねえ
自分だったら置換を使うかな

>>436
ファイルA.xlsをコピー、
B.xlsから逆にシートを移動してくるとか
場合によってはそっちの方が楽。

>436
コピー元の数式バーをコピーしてコピー先の数式バーに張り付け。
これでもめんどくさいけど。

>>436
突っ込むの忘れてたけどそれは
「マクロ」ではなく「数式」でございます

>>437
なんと！仕様でしたか。
コピペは諦めて、骨は折れますが置換で訂正していきます。

>>438
その場合にも同じ現象が発生しますね。
異なるファイル間では、コピペだけでなくシート移動も同じと見なされるようです。

>>439
ひとつふたつならやってみるのですが、
セルの数×ファイルの数でみると途方もないッス。

>>440
数式でしたね。
指摘ありがとうございました。

>>441
>コピペは諦めて、骨は折れますが置換で訂正していきます。
>セルの数×ファイルの数でみると途方もないッス。

それこそ、「マクロ」でやればいいと思うんだが...。

【1 OSの種類 　 　 　 　 .】 Windows　XP・SP3
【2 Excelのバージョン 　 】 Excel 2000(自宅)・Excel 2003(職場)
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マクロ　印刷　excel

エクセルのシートの"$B$1:$O$20"に表があり、
別シートからのデータを持ってきています。

該当者が1〜300くらいおり、
筆記試験を何回か行い、
その累積データを個別の帳票にして
その300人分を班毎に印刷したいです。
300人は40〜50程度の小班に分かれています。
できれば
某班の10番から14番というように
指定番号の該当者のみを印刷できるようにしたいです。

その印刷は1回で全部終了するのではなく
追加されるデータがいくつかたまったら
また班毎・指定番号毎にに印刷することになると思います。

下記は私が考えたマクロですが
失敗作で班の先頭の者の帳票が複数枚出るだけです。
何がまずいのか、どうすれば思うように印刷できるか、
アドバイスをいただけますと助かります。

Sub 個票印刷()
Range("Q4").Select
hajime = InputBox("最初に印刷する該当者の番号を半角で入力してください（１〜３００）", "開始該当者番号の入力")
owari = InputBox("最後に印刷する該当者の番号を半角で入力してください（１〜３００）", "終了該当者番号の入力")
For I = hajime To owari
Range("q4 ").Select
ActiveCell.FormulaR1C1 = I
Range("B1:O20").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$O$20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next I
End Sub

コメント部分は省略しました。

A1に 「1.23」 と数字入力したものを、セルの書式設定-ユーザ定義を使って
「整数部分1と小数点以下23です」
…と同じA1セルに表示させたい場合なのですが
ユーザ定義で 「"整数部分"0."と小数点以下"00"です"」 とすると
小数点が表示されてしまいうまくいきません
小数点「. 」をユーザ定義書式のみで消す方法はもしかしてないのでしょうか

はい､ユーザ定義書式というか､表示形式のユーザ定義のみで消す方法はありません｡

早朝だというのに回答ありがとうございます
もうちょっと方法を拡張、限定解除して・・・
「数字を分解して別のセルに再結合(?)する方法を使わずに、
さらにVBAも使わずに、同一セル内で(数字として入力された)数字の小数点「. 」を消す方法は無い」
ということでいいでしょうか

>>450
ないよ

ありがとうございました
意外な…自分としてはかなり意外な「出来ないこと」があると知りました
他の方法で対応しようと思います
回答ありがとうございました

整数部・小数点以下だけをあらわすなら、姑息な手段（2段にする）ができるけど、>>450は無理

なんで「書式だけ」にこだわるのかわからん
小数点を白にすればいいじゃん

>443-447
そりゃあ、印刷範囲が固定されているから
＞ActiveSheet.PageSetup.PrintArea = "$B$1:$O$20"
＞ActiveWindow.SelectedSheets.PrintOut Copies:=1
同じ部分が何度も印刷されるのは当たり前です。
そもそもの話、データ範囲は単独のシートのＢ１：Ｏ２０だけですか？
３００人分にもならない（１４列×２０行＝２８０個のセル）けど。
マクロを見る限り、複数シートというわけでもなさそう。
人名や識別番号など個人情報に関する部分を抜いた画面イメージを
示してもらうと、誰か親切な人がつくってくれると思う。

>>454
＞ 小数点を白にすればいいじゃん

出来るん？それ

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

「別シートからのデータを持ってきています。 」
と書いたように別シートからです、
読みにくい変な長文の記入をして申し訳ありません。

「入力」という別シートの$A$3:$BW$310からデータを持ってきています。
印刷するシートは「印刷」というシートで"$B$1:$O$20"が印刷範囲です。

入力シート
Ａ　　Ｂ　　　　Ｃ　　　　Ｄ　　　Ｅ　　Ｆ　　Ｇ　　　Ｈ
連番｜班内番号｜　氏名　｜date1｜date2｜date3｜‥‥ ｜date10｜
001 ｜ 1　　　｜山本太郎｜80 ｜90 ｜70　 ｜15　 ｜50　 ｜
002 ｜ 2　　　｜山本次郎｜80 ｜70 ｜70　 ｜10　 ｜40　 ｜
003 ｜ 3　　　｜山本三郎｜40 ｜90 ｜50　 ｜20　 ｜20　 ｜
004 ｜ 5　　　｜山本四郎｜50 ｜60 ｜70　 ｜10　 ｜10　 ｜

300 ｜40　　　｜山本五郎｜80 ｜90 ｜70　 ｜10　 ｜100 ｜

平均点　　　　　　　　　｜50.3 ｜60 ｜60　 ｜20.1 ｜50 ｜

印刷シート
( )内は「入力シート」から連番単位で持ってきます。
Ａ　　Ｂ　　　　Ｃ　　Ｄ　　　Ｅ　　 Ｆ　　Ｇ　　　Ｈ
　　　番号　　 (1)　　氏名 (山本太郎)

回数｜1　　｜　2　｜ 3 　｜4 ｜5 ｜
｜(80) ｜(90) ｜(70) ｜(15) ｜(50) ｜

回数｜30　　｜31　｜32 ｜33 ｜平均 ｜
｜(80) ｜(90)｜(70)｜(15) ｜(50) ｜

>443
印刷シートの　Ｑ４　セルに設定した数字によって
印刷シートの　Ｂ１：Ｏ２０のエリアの内容が決まるはずなのに、
同一人物の内容のまま複数枚印刷してしまう、ということならば、
マクロの中に　自動再計算をオフにしているところ
〜.EnableCalculation = False
がありませんか？　ないのであれば、
ActiveCell.FormulaR1C1 = I　と　Range("B1:O20").Select
の間にmsgbox("印刷します")
みたいに操作待ちのタイミングを設けたらどうですか？

質問です。

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

=INT((34.8-34)*10)
この結果が8じゃなく７になってしまうんですが、
なぜなんでしょうか・・。

>>461
小数誤差
でぐぐれ
=34.8-34
は
0.7999999997
になる

>>462
ありがとうございました。
解決策がわかりました。

こういうのって､予備知識が無くてもバカじゃなきゃ気付くよな

数式でもVBAコードでも同じだけど､意図通りの結果が出なければ
ネスト(入れ子)や連続処理をバして､ひとつひとつの計算や関数処理などの結果を確認するのは
小学生でも出来る簡単かつ初歩的な確認内容

つまり
A1=34.8-34
B1=A1*10
C1=INT(B1)
みたいにな

ここまでやった上で､少数誤差という予備知識が無いが故に､
「=34.8-34が0.8ではなく0.7999･･･になるのは何故なんだ？」って質問なら解らなくもないが
予備知識が無くても出来る確認すらせずに､「なんかおかしい」「何故こんなことになるんだ？」とか
騒ぐ奴は､会社じゃ大抵お荷物扱いだったりする

Excelに限らず､パソコンに限らず､慢性的な問題が起きたときに､原因はともかく､順を追って確認して
何処で問題が発生してるかすら特定できないような奴には､ほんと､勘弁してくれって感じになる


とか愚痴ってみる

ほんと勘弁してほしいわ意味ないオナニー解説は

あるセルに入力されている数値分だけ、
行すべてコピーして下に数値分挿入ってどんな構文書けばいいでしょうか。
コピー挿入が終われば、次の行の数値を読んで、また同じ処理を繰り返したいです

ネタにマジレス･･･

すみません。「Q4」は誤りで「B26」でした。
現在、「B26」に連番を入力すると
459の画面の「氏名」に該当者の氏名が出ます(関数)。
そこでマクロボタンを押すことで、
446のマクロの
「最初に印刷する該当者の番号を半角で入力してください」
という問い合わせが出て入力し(連番A)
「最後に印刷する該当者の番号を半角で入力してください」
という問い合わせが出て入力すれば、(連番B)
連番AからBの連続する該当者の帳票が印刷できる、
となるようにマクロを作りたいと考えています。
どのようなマクロを作ればいいのか、
ご指導をお願いします。

なお460様の書かれた
〜.EnableCalculation = False
はありません。
また「操作待ちのタイミング」を作る意味は何なのでしょう？
無知で申し訳ありません。
また、当方の国語力不足でしたいことが伝え切れていない気がします。

>466　こんなんでいいのかな？　rangeって引数や戻り値にできなかったっけ？
Sub test()
Dim myRng As String
　myRng = ActiveSheet.Range("C3").Address ' 最初のセル位置
　Do While (Range(myRng).Row < 50)
　　myRng = ex_466(myRng)
　　If myRng = "" Then
　　　Exit Do
　　Else
　　　Range(myRng).Select
　　End If
　Loop
End Sub　レベル不足で長文貼れず、続く

続き（こっちが実際にやってる部分）
Function ex_466(w_Rng As String) As String
Dim c As Range, r As Variant
　Set c = ActiveSheet.Range(w_Rng)
　r = c.Value
　If IsNumeric(r) And (r > 0) Then
　　ActiveSheet.Range((c.Row + 1) & ":" & (c.Row + r)).Insert
　　ActiveSheet.Range(c.Row & ":" & c.Row).Copy
　　ActiveSheet.Range((c.Row + 1) & ":" & (c.Row + r)).PasteSpecial
　　Application.CutCopyMode = False
　Else
　　ex_466 = "": MsgBox (c.Address & "で異常終了"): Exit Function
　End If
　ex_466 = c.Offset(r + 1, 0).Address
End Function

>443,469
ＶＢＡの実行タイミングと、シートの各セルの再計算結果が反映されるタイミングがずれるんじゃないかな、ということです。
「Ｑ４じゃなくてＢ２６」が何かわかりませんが、hajime　に　１、owari　に　３　を入れたとして、ＶＢＡは
「Ｑ４？Ｂ２６？」セルに　１　を設定して印刷のコマンドを出します。
次に間髪をいれず「Ｑ４？Ｂ２６？」セルに　２　を設定して印刷コマンドを出します。
次に間髪をいれず「Ｑ４？Ｂ２６？」セルに　３　を設定して印刷コマンドを出します。
一方、Excelの方は印刷コマンドを受たら、印刷イメージを展開してプリンタへ送るデータを組み立てます。
印刷データが出来上がるまで、ＶＢＡの処理を中断させていればいいんですが、実際のところはどうなんでしょうね。
ここから先はよくわかりません。　詳しい人、いかがですか？

>>471
マジでありがとう！！
ばっちりす！

わかりにくい文ですみません。
460(=472)様、ありがとうございます。

>「Ｑ４じゃなくてＢ２６」が何かわかりませんが

「印刷」シートの「B26」セルに連番(例「123」)を入力すると
459の画面の「氏名」に、関数(=VLOOKUP($B$26,入力!A$3:$AG$310,3))により
該当者の氏名123氏のが出るようにしてあります。
また個人の得点データも同様です。

「入力」シートのA$3:$BW$310にデータがあり、
ここからデータを「印刷」シートに持って行き、
差込印刷？をしたいということです。

>474
印刷シートのＢ１：Ｏ２０の内容は、Ｂ２６セルの内容が変わるたびに「再計算」機能で変化します。
ところが、ＶＢＡで次々と変化させながら同時に印刷の指示も行うので、印刷処理が追いつかないと推測します。

hajime　の値をＢ２６セルに設定
Ｂ２６セルの値によってＢ１：Ｏ２０の内容を再計算→印刷指示→印刷データができるまでＶＢＡの実行一時中断
Ｂ２６セルの値を＋１
Ｂ２６セルの値によってＢ１：Ｏ２０の内容を再計算→印刷指示→印刷データができるまでＶＢＡの実行一時中断
・・・Ｂ２６セルの値が　owari　の値まで繰り返す
となるようにすればいいと思うので、>460にも書いたように
ActiveCell.FormulaR1C1 = I　と　Range("B1:O20").Select
の間にmsgbox("印刷します")
みたいに操作待ちのタイミングを設けたらどうですか？　　　　と提案した次第。

ありがとうございます。
その提案を活用させていただきます。

ただ、現実にまだ差込印刷？自体のマクロができてできていないので
引き続きアドバイスをお願います。

>>476　取りあえず印刷前に再計算を実行するようにしてみた

Sub 個票印刷()
　Dim lStart As Long, lEnd As Long, lX As Long
　lStart = CLng(StrConv(InputBox("最初に印刷する該当者の番号を半角で入力してください（１〜３００）", "開始該当者番号の入力"), vbNarrow))
　lEnd = CLng(StrConv(InputBox("最後に印刷する該当者の番号を半角で入力してください（１〜３００）", "終了該当者番号の入力"), vbNarrow))
　For lX = lStart To lEnd
　　
　

>>477 の続き

　　With ThisWorkbook.Worksheets("印刷シート")
　　　.Range("B26").Value = lX
　　　.Calculate
　　　.PageSetup.PrintArea = "B1:O20"
　　　.PrintOut Copies:=1
　　End With
　Next lX
End Sub
これでダメならPrintOutにブレークポイントを設定して印刷前にシートの値が変更されてるか確認してみ

詳しい方、以下のマクロについて★部分が間違っていると思うのですが直し方をご教示
ください。
数日悩んだのですが、能力不足でこれ以上進めませんでした。お願いします。
-------------------------------------------------------
Sub 複数のブックを改行を入れつつ一つのシートに転記()

Dim fn, wb, x, i, n, sh, myPath
myPath = ThisWorkbook.Path & "\"
fn = Dir(myPath & "*.xls") '選択したフォルダ内のExcelファイルを検索
Do Until fn = "" '全て検索し終えると、fn = Empty となるので、その間以下を実行

If fn <> ThisWorkbook.Name Then 'ファイルが自分以外なら
Set wb = Workbooks.Open(myPath & fn) '選択したファイルを開く

For Each sh In wb.Worksheets '各シートごとに
If sh.Name = "製品名" Then ？'
x = sh.Cells(Rows.Count, 1).End(xlUp).Row '最終行取得
For i = 1 To x '2行目から最終行まで以下を実行
n = n + 1

Workbooks(fn).Worksheets("製品名").Activate　　　　　’★★
Rows("1:" & x).Select　　　　　　　　　　　　　　　　’★★
Selection.Copy　　　　　　　　　　　　　　　　　　　　’★★
ThisWorkbook.Sheets("Sheet1").Activate　　　　　　　　’★★
Range("A" & x + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats　　　　
.HPageBreaks.Add Before:=.Range("A" & x + 1)　　　　　’★★

End With
Next i
End If
Next sh

wb.Close (False)
End If

fn = Dir() '次のファイルを検索
Set wb = Nothing
Loop '繰り返し

ThisWorkbook.Sheets("Sheet1").Copy
Application.Dialogs(xlDialogSaveAs).Show Arg1:="全製品リスト.csv", Arg2:=6

End Sub

>479　ぱっと見ただけで指摘できるところ
＞For i = 1 To x '2行目から最終行まで以下を実行　の行と
＞Next i 　の行は不要でしょう
（１行ずつコピペするならともかく、コピー元シートの行範囲を一度にコピペしてるから）
　　　　　　それと
＞Range("A" & x + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats　　と
＞.HPageBreaks.Add Before:=.Range("A" & x + 1)　　の
x　+　1　　は　　n　+　1　　にするとともに、
＞n = n + 1　は
n = 0　　をマクロのはじめの方に追加するのと
n = n + x　　にして　.HPageBreaks.Add Before:=.Range("A" & x + 1)　の次行に移動してみて。
※出力先行位置を累積してないからうまくいってないんだと思う
※dim文で宣言するのはいいけど、型指定もしましょう

>>470
すいません。説明不足でした。
今現在実行すると、元の行＋と数値分挿入してるのですが、
もとの行合わせた数値分挿入するには
どこの記述を修正すればよいでしょうか？

>482
？？？　470の例で、マクロ実行前のＣ３セルの値が３、Ｃ４セルの値が２だったと仮定して
Ｃ３セルの値（＝３）により、４〜６行目を挿入、３行目の１行分コピー、４〜６行目に貼り付け
元Ｃ４セル（行挿入により現在はＣ７セル）の値（＝２）により、
　　８〜９行目を挿入、７行目の１行分コピー、８〜９行目に貼り付け

これじゃダメってこと？

>>483

Ｃ３セルの値（＝３）により、４〜６行目を挿入を、
Ｃ３セルの値（＝３）により、３〜５行目を挿入に挿入という形にしたいです。

元の行にも上書きした上での回数分にしたいです。

>484
挿入する行数が同じなら　４〜６行目に挿入　も　３〜５行目に挿入　も、結果は同じになるよ。
挿入する行数をひとつ減らすってことかな？　>483を例に修正してみると・・・

マクロ実行前のＣ３セルの値が３、Ｃ４セルの値が２だったと仮定して
Ｃ３セルの値（＝３）により、４〜５行目を挿入、３行目の１行分コピー、４〜５行目に貼り付け
元Ｃ４セル（行挿入により現在はＣ６セル）の値（＝２）により、
　　７行目を挿入、６行目の１行分コピー、７行目に貼り付け
ってことですか？

>484　　　例えば、
コピー原稿を渡されて、「１０部コピーお願い」と頼まれたらそのまま１０部コピーするけど
「１０部にして」と頼まれた場合はコピー原稿も含めて１０部ということで９部コピーするよね。

元からある行も含めて、結果的に当該セルの値の数だけあればいいのなら、
挿入する行数を　当該セルの値−１　にしたらいいから、変更箇所はわかるはず。

〉〉481
おお？
動きました(^-^)/
ズバリなアドバイスありがとうございます！

〉〉481
おお？
動きました(^-^)/
ズバリなアドバイスありがとうございます！

>477様、皆様
思ったように印刷できました。
ご指導ありがとうございました。

入力用のシートを別に用意しといて、そこから数値を飛ばして、こんな感じの2段ずつ構成の表をしょっちゅう作らされるのが苦痛です。


　　　|売上高
部署名|-------
　　　|仕入高
------|-------
〇〇課|500
　　　|-------
　　　|100
------|-------
××課|200
　　　|-------
　　　|300
------|-------
★★課|150
　　　|-------
　　　|240


上手い方法はないでしょうか？
たとえば「=入力用!A2」みたいなストレートな参照式を使って、新しい部署名が1つ増えたらそのたびに見直しが増えるようなことは避けたいです。
作業用の列を作る方法がいいとは思うんですが、それをVLOOKUPとかSUMIFに参照させる式を作ったときに、あまりややこしいと
みんな嫌がるんですよね。

>>490です。すみません。表のイメージを上手く書けませんでした。
縦の罫線を、全て一直線にそろえて、見てもらえないでしょうか。

>>490
indirectとか
出力用
A1=IF(MOD(ROW(),2)=0,"",INDIRECT("入力用!r"&INT(ROW()/2)+1&"c1",0))
B1=INDIRECT("入力用!r"&INT((ROW()-1)/2)+1&IF(MOD((ROW()-1),2)=0,"c2","c3"),0)
ttp://u4.getuploader.com/esukareta/download/1/Book1.xls

>>492
ありがとうございます。ただ、計算式が難解で・・・。
私はVBAまで使いまくれるんですが、周囲の人達がお世辞にもスキルがあると言えないので・・・。
VLOOKUPとかSUMIFくらいまでが、ギリギリ使える関数と思います。ネストもなるべく2つ以内くらい。
後々のメンテとかまで考えたとき、難しいとみんな敬遠してしまいます。
いろいろ注文すみません。

>>493
それなら自分用と他人用を分ければいい
自分の仕事は自分用のブックでVBAでさっさと処理して、結果を本番用のブックにコピペ
他人がどんだけ苦労しようが知らん顔、でいいと思う

>>493
その調子だとピボットテーブルも無理だろ
ボタンに登録して整形するマクロでもくむしか

ネスト2やら誰が見ても分かりやすい式、は諦めるしか無い

と思ったけど一個閃いた
vbaを使って
>入力用!A2」みたいなストレートな参照式
をセルに入力すればいいじゃないか
これなら君も楽、周りにも分かりやすい
vbaを教える必要もない

>>495

やはり、マクロ抜きで計算式でいくのは無理っぽいですね・・・。
部署が増えたときの再メンテに、VBAが必要ってことですよね？
だとすると、ちょっと私以外の人に使わせるのは難しいかも・・・。
でも、何とかして解りやすくなるようにしてみます。ありがとうございました。

他にも何かご意見がありましたら、アドバイスいただけると嬉しいです。

>>496
お前の仕事なんてしらねーよw

1から10までvbaで数式を入れるんだよ
Sub Macro1()
ActiveCell.FormulaR1C1 = "=入力用!RC"
Range("A2").Select
End Sub
こんな感じで部署の数もマクロで調べてdoloop辺りと組み合わせる
出来上がる表にはマクロの痕跡は残らない。これで人に嫌がられることもない

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

初歩的な質問で恥ずかしいのですが、

0.333333という数を計算で求め　小数点第2位まで表示で0.33と表示させています。（ここではA1とおきます）

でこのA1を0.3として別の計算で使いたいのですが、もともとの数が0.333333....なので異なる計算結果が出てしまいます。
どうにか0.3として計算する方法は無いでしょうか？

>>498
TRUNC関数

>>498
ROUNDDOWN関数
（この場合ROUND関数でもいけるが。）

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 ツールチップ　コメント

人が作成したシートなんですが、
セルを選択したときに薄黄色の説明枠（縦一列のどれを選択しても同じもの）がでます
これはなんというものでしょうか？
この枠を非表示にしたいのですが、名称がわからずコメント、ツールチップも違うものでした
（作成者に聞いたら忘れたそうです）
ご教示くださいますようお願いいたします

>>501
入力規則の入力時メッセージじゃね？

>>502
それでした
ありがとうございます

【1 OSの種類 　 　 　 　 .】 Windows7アルティメイト
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 初心者、少しだけ読めます
【4 VBAでの回答の可否】 可

質問があります。
スポーツの競技成績で一つのエクセルファイルごとに10シートぐらいの量にまとめられたエクセルファイルが数百ファイル以上あるのですが

これを、この数百以上の量のエクセルファイル全てからで、各個人の成績や、細かい種目別や、条件別に 全体を統括し、種目別の順位や成績や勝率を解析できるようになりたいのですが、円滑にするためにはどうすれば

よいでしょうか？VBAやaccesなどを併用するなどのことを勉強すればいいのでしょうか？
ある種の教材で勉強したりやソフトなどを調べればなどの方向性の
ことで 良いので、教えていただけますでしょうか？

Access使うことも検討しているなら､データを全部Accessに移しちゃえば､あとは簡単でしょ

ソースはExcelブックのままじゃなくちゃならない事情とかがあるなら､Access併用するより
VBAごり押しで､Excelのみで完結させた方が良いと思う
その場合は､まず一つのブック内で集計を出せるようになろう
この手の事をやる奴には､いきなり複数ブックの集計やろうとして煮詰まる奴も多いが
まずは単一ブックでの集計をできるようになれば､あとは親オブジェクトを付けるだけで複数ブックに対応出来る

>>505様
ありがとうございます。つまりaccessを勉強してエクセルからデーターを移すか

VBAを勉強して、集計したエクセルファイルをいくつか作って、そこから見ていく
の２通りでできるわけですね？
ありがとうございます。その方向で勉強してみます。

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


11を11　1.1を1.1　0.1を0.1と表示したい。

0.1から99までの数字を、有効ケタ数２ケタで表示させたい。
３ケタの数値及び、小数点以下２ケタの数字は異常値なので通常使わないので考えない。

可能なら表示形式のみで、作業列は使わない方向でお願いします。

office2000を持ってたんで、アップグレード版のExcel2010を買ってきました。
PCにoffice2000が入っていない状態で、アップグレード版を入れたんで、
途中で古いCDを要求されるもんだと思ってたら、
なぜかインストールもライセンス認証も全部正常に終わりました。

古いCDのチェックが全くされなかったんですけど、一体どういうことですか？

>>507
無理じゃねーの
>>508
どういうこともなにもそういうこと
CDチェックするソフトもあればしない奴もあるってこと

>>507
ユーザー定義で
[>=10]0;0.0
でいいんじゃないかい？

>>510
ありがとうございます。
表示形式でもＩＦ関数のようなことができたんですね。
大変勉強になりました。

>>509
そうですか。ありがとう。

相変わらず複乳は役に立たないようだなw

複乳は作業列がないとダメな子だから。

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

表示は
9+1
1+2
5+5
の様な数式のまま、その合計をSUMで出すことって出来ますか？
↑の例えで言えば、SUMで23と出るようにしたいわけです。
その上で、画面表示（印刷時）に9+1等の数式が表示されるようにしたいです。

9+1を３つのセルに１文字ずつ分けて入れれば可能

>>515
B1=LEFT(A1,FIND("+",A1)-1)+RIGHT(A1,LEN(A1)-FIND("+",A1))
B2方向にオートフィル、
C1=sum(b:b)
って感じですかねぇ

>>516-517
回答ｔｈｘです

思ったより手間かかりますね・・・手動で頑張ることにします。。

>>518
http://officetanaka.net/excel/function/tips/tips57.htm

これを応用すればできるけれど、結構めんどいよ。
上の馬鹿な答えに比べればマシだけど。

>>507
有効桁数，有効数字についてちゃんと調べておきましょう。
0.1は有効桁数1です。
0.10は有効桁数2です。

あ1-1
あ1-2

こんな感じでセルに入っているとして、置換で「あ」を取りたいんだけど、できる？
置換後の文字列を「'」にすれば出来るとは思うんだけど、それ以外の方法で。

追記：すみません、関数の方法は分かります。あくまで置換の方法

>>521
セルの書式設定を文字列にしておけば""の置換でも出来るのでは？

表示形式がyyyy/mm/ddのセルで
その中から
たとえば2011/06のデータだけをカウントを取りたい場合どうすればいいのでしょうか？

2011/6/1と2011/6/30のシリアル値の範囲にあるセルを数える

>>524
カウントを取りたいとは？個数を数えたいとか合計したい、っていうこと？

sumproductを使うのが吉。あとはピボットテーブル

>>523せめて自分でやってから答えてくれ

あぁ、済まない。見当違いだったらしい。
置換を使った他の方法もいくつかやってみたけどダメみたい。
ゴメンな。悪かった。

>>527
こちらこそキツい言い方してすまんかった

たぶん、出来ないんだよなあ。置換後のセルの表示形式を文字列にしても何も変わらんし(´・ω・｀)

あるセルの種別列（仮にA列）を読み取って、
その種別ごとにシートを作成して、元のデータ内容を振り分けるためには、
どういった感じで組めばいいでしょうか。

元のシートは、オリジナルのまま保持した形にしたいです。

>>529
マクロの記録を使って、シートを作ってみる
そうすれば何となくマクロのことがわかるとおもう
・fornext辺りでセル内容を転記する
・シートごとコピーして、不要な部分を削る
のどっちかかねぇ
後は「vba　やりたいこと(行削除など)」で検索しながら少しずつ組み立てていけばいいんじやないかな

【1 OSの種類】 Windows7
【2 Excelのバージョン】 Excel2007
【3 VBAが使えるか.】 いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード】 Googleでの検索キーワード
　　「excel 2007 ピボットテーブル　数値データなのにエラー」
　　「excel 2007 ピボットテーブル　DIV/0」

大学のコンピュータ教室でWindows7＋Excel2007を使っています。
「30時間でマスター　WindowsVista対応　Excel2007」
www.jikkyo.co.jp/contents/75071.html
の実習34のピボットテーブルについて行ったのですが、ダウンロード
したファイルではできるのに、自分でファイルを作りデータを入力
したのでは、数値データが入っているのに平均等の計算ができません。

以下のようなデータをピボットテーブルで行ラベルに「種類」
値に「カロリー」を入れて平均を選ぶと「#DIV/0」と表示されて
しまいます。
　商品名　　　メーカー　種類　価格　内容量　カロリー
　銀座カリー　明治製菓　中辛　250　　210　　　240
　・・・・・

カロリーの列の表示形式を「標準」「数値」にしてもダメでした。
他のPCで知人も同様なエラーがでたのですが、そちらはなぜか表の部分を
コピーして新しいExcelファイルに貼り付けてピボットテーブルを作ると
「#DIV/0」エラーがでませんでした。

いろいろ試したのですが、「カロリー」列の隣に「カロリー2」列を
作り同じデータを入れてピボットテーブルを作ると、「カロリー2」列だけ
でなく、なぜか「カロリー」列でも平均がちゃんと出せてエラーがでません。
それではと、「カロリー2」列を除いて表を選択しピボットテーブルを作ると
また「#DIV/0」のエラーがでます。

原因が何なのか特定てきませんでした。
なにか解決策等ありましたら教えていただけないでしょうか。
よろしくお願いします。

>>532
数値が文字列をして認識されてるんじゃね
そのデータはどこかからコピーしてきたんじゃ

×　文字列をして
○　文字列として

国・自治体による高さ1m・0.5m計測を中心とした放射線量マップ
http://cdn-ak.f.st-hatena.com/images/fotolife/g/geasszero/20110627/20110627010448.jpg

女性自身に掲載された放射能ホットスポット
http://blog-imgs-36.fc2.com/t/e/k/tekcat/hotspot2.jpg

福島第一原発から漏れた放射能の広がり
http://gunma.zamurai.jp/pub/2011/18juneJD.jpg

共産党都議団 都内各地の放射線量測定結果 (資料�B)
江東区から練馬区を結ぶ線以東の地域は年間1mSv以上の
放射線量となっている可能性がある。
http://livedoor.2.blogimg.jp/amosaic/imgs/9/f/9f8f5a60.jpg

>>533
コピーはしていなくて、本を見ながら、直接入力したものです。

表示形式を「数値」にしてもダメで、試しにISNUMBER関数で
「カロリー」列の値を調べたら、trueが返ってきたので
ちゃんと数字データになっているはずなんですよね。。。

>536
セルの書式−表示形式　で設定しなおしただけではダメかも。
表示形式を設定し直したセル範囲を選択し、
[F2]、[Enter]を繰り返して入力し直してみてください。

xlsm形式のファイルですが
何回開こうとしても応答なしのまま開いてくれません
おそらくVBAの記述が永久ループが何かして悪さしてると思うのですが
中身を確認して不必要な処理を削除してもそもそも開けないので確認のしようがありません。

こういう場合どうすればいいのでしょうか？

セキュリティー設定変えて、マクロ実行しないで開いたらだめなの？

セキュリティを高に設定すればok

>>538

ネットワークフォルダに保存してあるのを直接開こうとすると、
同じ現象になったことあるわ

応答なしで閉じる事も出来ず強制終了した。

数時間待つか、デスクトップにコピーしたら解決したよ

　購入者　　買った物
山田太郎　　　肉
山田太郎　　　魚
山田太郎　　野菜
伊藤二郎　　　肉
鈴木三郎　　　肉
鈴木三郎　　野菜

こういうリストを、

　購入者　　買った物
山田太郎　　　肉
　　　　　　　　　魚
　　　　　　　　野菜
伊藤二郎　　　肉
鈴木三郎　　　肉
　　　　　　　　野菜

こういう風にしたい（購入者欄の重複部分だけを空白にしたい）のですが、
具体的にはどういう操作をすればいいのでしょうか？
Excel2007を使っています

ピボットテーブル使えば出来るんじゃね

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_furiwake.html
で使われているページ一番下のプログラムをいじってるのですが、
別の列で判定させたい時は
　　myVal = Worksheets("Sheet1").Range(Cells(2, 1), Cells(lastRow, lastCol)).Value
のRangeのCellsの値だけいじればいいんですよね？

変えるとインデックスの有効範囲にないって出てしまうのですが、他にいじる箇所がありますか？

どういじったのかしらんけど
ざっと見た限りでは
　lastRow = Worksheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row
　lastCol = Worksheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column
　myVal = Worksheets("Sheet1").Range(Cells(2, 1), Cells(lastRow, lastCol)).Value
この３行をセットで考えないといけないと思うよ

2010です

ユーザー定義の表示形式を利用して
-1→-π
-0.500→-π/2
といった具合に表示させたいのですがうまくいきません。
どなたかご教示願います。

表示形式はあくまでも「表示」を定義するものであって､演算は出来ない
勘違いしないように

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA コピー　別シート　行を挿入貼り付け

複数人あるデータリストをフォームからオートフィルタをかけて抽出し
別シートに個人別に貼り付けをしたいのですが

'-----抽出データの最終行を求める----------
Worksheets("伝票").Activate
myRow2 = Worksheets("伝票").Range("A3").End(xlDown).Row
Worksheets("伝票").Range("A3:G" & myRow2).Copy '抽出データを範囲選択コピー
Worksheets("個人別シート").Activate
Worksheets("個人別シート").Rows("4:4").Insert Shift:=xlDown '行を挿入し貼り付け
'--------------------------

ペースト時どうしても空白の行1行しか貼り付けされません
上記コードの最終行の記述はどのようにしたらよろしいのでしょうか
よろしくお願いします

insertはただの挿入。貼りつけならpasteしないと。

説明不足で申し訳ございません
別シートに行を挿入する理由が、貼り付けした内容を集計する関数が一番最終行に記述しているためです

個人別シート

1
2　日付　名前　品名　入庫　出庫
3
4
5
6　累計　　　　　　　　0　　　0　　　0

Insert部分をPasteにすると
オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)
が表示されて頓挫している状態です


上記の形にしている理由としてはペースト時最終行を、6行目の累計を表示・自動計算するVBA表記の仕方がわからず、とりあえずの苦肉の策としているためです

>>548のままでちゃんと動作したよ。
.End(xlDown)がちゃんと判定されてないんだろうから、データが悪いんだろう。
途中に空白セルがあるとか。

上記コードをマクロに組み込み読み込むと動作するんですが
VBAに落とし込むとちゃんと動作しないんですよorz
オートフィルタの抽出結果をコピーするってのがまずいのでしょうか

Private Sub 表示bt_Click()
Dim 検索値1 As String 'リストボックスに変数を宣言
Dim myRow1 As Long '列の変数を宣言
Dim myRow2 As Long '列の変数を宣言
検索値1 = 名前リストボックス.Text '検索値1に名前リストで選択したtextを代入

If 検索値1 <> "" Then '検索値1に何かしらの文字列が代入された場合の処理
ActiveSheet.Unprotect 'シートの保護を解除
'アクティブシートのA2からB最終列をオートフィルタをかけ名前のところを検索値1で検索
ActiveSheet.Range("$A$2:$B$65536").AutoFilter Field:=2, Criteria1:=検索値1
ElseIf 検索値1 = "" Then '検索値1が空欄の場合の処理
MsgBox "名前が選択されていません。" 'エラーメッセージの記述
名前.SetFocus '名前リストにカーソルを戻す
Exit Sub
End If
名前.Value = ""
'-----抽出データの最終行を求める----------
Worksheets("伝票").Activate
myRow2 = Worksheets("伝票").Range("A3").End(xlDown).Row
Worksheets("伝票").Range("A3:G" & myRow2).Copy '抽出データを範囲選択コピー
Worksheets("個人別シート").Activate
Worksheets("個人別シート").Rows("4:4").Insert Shift:=xlDown '行を挿入し貼り付け
'--------------------------

という一連の流れになってます

>>547
返答ありがとうございます。
それを聞いていろいろ試してみたのですが

πを3.14としてではなくπをそのまま数字の後につけるにはどうすればいいのでしょうか？

>>553
>πを3.14としてではなくπをそのまま数字の後につけるにはどうすれば
> いいのでしょうか？

-1π とか 0.5π でいいなら、セルの表示形式のユーザー定義で @"π"
を指定すればいい。

-1π を -π にしたいとか、0π は 0 にするなら条件付の書式でできる
かも、使ったことないけど。

0.5π を π/2 にするのは俺の頭では不可能とでた。

参考 URL 書くの忘れた。

文書番号: 883199 - 最終更新日: 2011年1月12日 - リビジョン: 1.8
Excel のセルの表示形式で [ユーザー定義] に使用できる書式記号について

http://support.microsoft.com/kb/883199/ja

>>546
ところで関数のPI()は知っているよね。

いや、知っているのなら別にいいんだ。

>>556
=PI()存在はしってますよー

とりあえず分子をπにするのは表示形式のユーザー定義から設定するのは無理みたいです
回答ありがとうございました

関数の構文でエラーが出たのですがどこに問題があるのか分からず・・・
ちょっと見てもらえないでしょうか

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 トラブルシューティング：数式のエラー（エラーメッセージのリンクから）

とある会計処理用の表なのですが、Ｉ列に金額の項目があり、
マクロで別表からずらずらずらー、っと該当品目の金額を上から詰めて並べ、
その末尾の行で合計金額を割り出します。
表の大きさがその時々によってまちまちなので、どの行に置かれてもいいように

【=SUM(OFFSET(ADDRESS(ROW(),COLUMN()),-1,0,-ROW()+3,0))】
（合計金額セルのすぐ上のセルから見出しを除いた先頭行までの合計を算出）

と入力したところ、「入力した数式は正しくありません」とエラーを吐かれました。
エラー箇所は「=」の後ろから全部を指定されます。
括弧の数も引数の数・記述にも問題はないのでどこがエラーになってるのか見当がつきません。
金額の入力・計算はは全てＩ列でのみ行い、列間の処理は一切行いません
どなたかご指摘お願いします。

おっと訂正・・・
数式の最後の0は１に直して解釈してください
幅0の範囲ってなんだｏｒｚ

最終行を出して計算しちゃだめなの？

>>558
OFFSETの 基準セルがセル参照ではなく、
文字列(ADDRESS関数は(参照)を表す＊文字列＊を返す)だからじゃない？
なので
=SUM(OFFSET(INDIRECT(ADDRESS(ROW(),COLUMN())),-1,0,-ROW()+3,1))
かな？

>>561
ありがとうございます
OFFSET関数にADDRESS関数を直でかませちゃだめなんですか・・・
ＩＮＤＩＲＥＣＴ関数挟んで試してみます。

>>558です
INDIRECTを入れて計算させてみたところ、正常に数字が出てきました。
的確なアドバイスをありがとうございました。

なかなかうまくいきません。どなたかご教授お願いします。

【1 OSの種類 　 　 　 　 .】 MacOSＸ
【2 Excelのバージョン 　 】 Excel2011
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マクロ 抽出 行

700行あるシートの中から
特定の文字列を含むものを行単位で別シートに移したいのですが、うまくいきません。
特定の文字列とは
シートＢのＡ列に200件ぐらいまとまっています。

マクロで組もうかと思いましたが
シートＢのＡ1をコピー
↓
シートＡのＢ列を選択、完全一致で検索。
↓
該当行をコピー
↓
シートcに貼り付け。該当が無い場合は
シートＤに貼り付け。
延々と繰り返していくようなマクロを組みたかったのですがうまくいきません。

これをマクロで記録してＶＢで編集しようとしたら検索する文字列が文字列として
記録されているので
Ａ1.2.3.4.5....と、繰り返し行ってくれるようなモノになりません。
どうしたらいいでしょうか…。

http://officetanaka.net/excel/vba/cell/cell11.htm
http://okwave.jp/qa/q4730673.html

一応ここら辺は参考にしてみたのですが、、、よろしくお願いします。

>>564
ttp://www1.axfc.net/uploader/File/so/65513.xls
こんな感じっすかねー

自分の入力でなく、他のソフトでエクセル形式のファイルを出力する
場合、スラッシュを含む数字のデータが日付に変換されてしまいます。
そのまま表示する方法を教えてください。

「他のソフト」の問題なのでスレ違い
「他のソフト」の作者(製作会社)に､スラッシュを含む数字をエクセル形式のファイルを出力する場合は
先頭に ' 入れて出力するようにでも要望出しておけ

>>567
csvならテキストエディタで加工するかVBAで読み込む
xlsなら「他のソフト」側で対策が必要

>>545
例えばK列に読み込み先を変更したい場合、
lastRow = Worksheets("Sheet1").Range("K" & Rows.Count).End(xlUp).Row
lastCol = Worksheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column
myVal = Worksheets("Sheet1").Range(Cells(2, 11), Cells(lastRow, lastCol)).Value
のように変更すればOKでしょうか？

インデックスが有効範囲にないって出てしまうので、他にどんな感じに修正すればいいでしょうか？

>>568-9
エクセルの事前の設定云々でなく仕様みたいですね。
でもヒントになりました。回答有難うございます。

>>570
色々勘違いしてました
自己解決です

マクロで書きだした配列の数値が
4.56026E+12
とかなってるのですが、事前にセル書式を固定みたいなのできますか？

ある列の値別に行の内容をまとめて、
それぞれのシートに新規で挿入したいのですが、
シートのネームは任意の文字列＋連番にしたいです。
どうしたらいいでしょうか

>>574
vba

>>575
どんな感じのプログラミングになりますか？

>>576
列の値が変わるまで行の内容をまとめて
シートを作成、任意の文字列＋連番
値が変わったところから行の内容をまとめて
と繰り返し
ブックごとアップロードしてくれればヒマだしつくるよ

>>577
すんません…
http://www.rupan.net/uploader/download/1309860649.zip
PASS：4321

>>578
これは例が悪い
解釈が間違って無ければ、全部が別シートになってしまうぞ
もう少し分布状況とでもいうのかな。実際のシートに似せて作ってくれ
http://www.rupan.net/uploader/download/1309864509.JPG
実際はこんな感じだと思うんだが

あと完成後、どうなるかのブックも欲しい
面倒でも手作業で作ってくれ。その方がこっちも作り易い

パスは4321ね

>>579
ごめんなさい・・・。住所がばらばらになってしまってました。

http://www.rupan.net/uploader/download/1309873375.zip
完成イメージはこんなかんじです

>>581
http://www.rupan.net/uploader/download/1309878937.xls
これでいいかな
シート名はsheet1じゃないとダメ、sheet1のコピーは消えてない
とか微妙な弊害はあるけど

眠い。寝る

>>581
ttp://www.rupan.net/uploader/download/1309879090.xls
間違えた。こっちだ
macro2を動かしてくれ
一応行っておくとalt+F8でマクロの起動な
寝る・・・

>>655のダウソ数8
7人も複乳のコードをチェックしてんのかｗ

>>583
本当にありがとうございます！
連番は、地域ごとのみで付けることってできますか？
東京都1/東京都2/埼玉県1/埼玉県2/埼玉県3/
な感じです。
シートの並びも、都道府県でまとまってくれると幸いですが・・・

>>583
バグ？的なところで、住所を昇順などで並び替えしないと、
別の地域を挟むと何度も同じ地域を新規シートでつくってしまうので、
ここだけでもなんとかできればよいのですが・・・

>>585
macro2を実行だよ。4じゃない
並べ替えもマクロにいれてあるから、都道府県でまとまるはず

地域ごとに連番を付けるように改良版
ttp://www.dotup.org/uploda/www.dotup.org1763205.xls.html
実行後のファイル
ttp://www.dotup.org/uploda/www.dotup.org1763208.xls.html

>>587
なにからなにまですいません・・・ありがとうございます！

>>471
このマクロで、0だった場合はその行をトルツメする場合、
どのように改変すればいいでしょうか？

何年も前に作成し、定期的にちょこちょこ更新しているExcelファイルがあるんですが、
最近このファイルを開くと

このファイルを開こうとしたときに、Officeファイル検証機能によって問題が検出されました。
このファイルを開くのはセキュリティ上危険である可能性があります。

というメッセージが表示されるようになってしまいました。
最近の自動更新でこの検証機能というのがついたみたいですがこのファイル自体に問題があるのでしょうか。
このメッセージが出ないようにする方法はありますか？

バージョン：Excel2003SP3
OS:XPProSP3

初めてここにきました。
どなたか教えてください。
何年かぶりでエクセルを使って文書作成しています。
金額を入力していて、ゼロではなく金額が入らない箇所という意味で
斜線ではなくて、横棒を入れたいのですが、どうしてもやりかたが判りません。
どうすればいいのか途方にくれてます。お願いします。たぶんエクセル２００３です。

-

>>591
セルを右クリック→セルの書式設定→フォントタブ→取消し線にチェックを入れる→OK
で、実際にスペースキーを打つと取消し線が入る。

でも、文章作成はword使うのがいいと思う。

>>５９３

　　　　で　き　ま　し　たああああああ。

　有難うございました。よっぽど定規で横棒入れてやろうかと
　もうグレそうになってました。（涙）
　助かりました。本当に有難うございました。　　

　　

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　表示形式　ドロップダウン 数値 セル 等を組み合わせて

ドロップダウンメニューの使い方について質問させてください
リストとして使用するセルに実際に入力されている数値と、表示する数値を別にしているとき（例：実数値20,30,40→表示は2,3,4）
ドロップダウンを開いている間は表示数値（2,3,4）通りなのですが
選択すると実数値（20,30,40）が表示されます
これを、選択した後も表示数値（2,3,4）のままにする方法はありますか？

予め項目が用意されているcsv（Aに名前の列、Bに年齢の列…）に、
外部のxlsやcsvをインポートし、それぞれの項目に対して振り分けを行いたいです。

外部のcsvやxlsはものによって、年齢や名前などの列の箇所がばらばらなので、
インポートした後に「年齢の項目はインポート元のどの範囲にありますか？」のように
ユーザが範囲を入力する形（リストボックスなどでA2：A100のように）にしたいです。

聞かれる回数は、インポート先データに予め用意されている1行目の項目名と数を自動的に読んで、
汎用性を高めたいです。

マクロで対応できますか？

-220+{22.4/(1+9.23)}+{22.4/(1+9.23)^2}+{22.4/(1+9.23)^3}+
{22.4/(1+9.23)^4}+{22.4/(1+9.23)^5}+
{30+x-7.6x+0.4x/(1+9.23)^6}+{30+x-7.6x+0.4x/(1+9.23)^7}+
{30+x-7.6x+0.4x/(1+9.23)^8}+{30+x-7.6x+0.4x/(1+9.23)^9}+
{30+x-7.6x+0.4x/(1+9.23)^10}+{19.4+x-5.6x+0.4x/(1+9.23)^11}+
{19.4+x-5.6x+0.4x/(1+9.23)^12}+{19.4+x-5.6x+0.4x/(1+9.23)^13}+
{19.4+x-5.6x+0.4x/(1+9.23)^14}+{19.4+x-5.6x+0.4x/(1+9.23)^15}+
{19.4+x-5.6x+0.4x/(1+9.23)^16}+{19.4+x-5.6x+0.4x(1+9.23)^17}+
{19.4+x-5.6x+0.4x/(1+9.23)^18}+{19.4+x-5.6x+0.4x/(1+9.23)^19}+
{19.4+x-5.6x+0.4x/(1+9.23)^20}+60=0

のxをエクセルで出す方法はないでしょうか？

>>597
良く解らんが、A1に1でも入れとく。
C1〜C20に 1〜20をいれとく。
D1に、 共通の分母 (1+9.23)^C1 を入れ、D20までコピー。
E1〜E20に、あなたの言うxを「$A$1」に置き換えた、{}で囲んだ計算式を個別に入れる。もちろん分母はD列から持ってくる。

F1に、単純なSUM式で、方程式の左辺をそのまま書く。
後はゴールシーク機能で、F1=0となるように$A$1の値を変化させればよいのでは？

>>598だけど、もちろんF1には「=SUM(E1:E20)-220」とだけ書けばいいように、
ちゃんと他の列を仕上げるんだよ？俺は面倒だから実際の検算までしてないけど。

>>596
インポートがどうとかよりも手動で並び替えたほうが早いんじゃないの
その例はもちろん対応できるし、マクロは人の気分で変わるようなものじゃない限り、ほぼ100%対応できるよ

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2002
【3 VBAが使えるか　 　 .】 少しだけ
【4 VBAでの回答の可否】 可

ややこしい内容ですみません。

A4の用紙を縦横に切って4分割して使う用途のフォーマットが
有ったとして、分割したそれぞれに1〜番号を振りたい。
プリントアウトが1枚の場合、左上が1、右上が2、左下が3、右下が4といった感じで。

でもそれが10枚とした場合、番号が1-40番まで振られるが
それぞれをプリントアウト出力した場合、1枚目1-4、2枚目5-8と
いった感じで出力され、重なった出力物をまとめて4分割カットした場合、
1枚目1の次の紙が2枚目の5、次が3枚目の9となる。

最終的に4分割されたものを1〜の連番にしようと思うと
いちいち入れ替えを行う必要がある。
出力枚数は変動で1枚〜20枚程度となる。

どの出力枚数化においても4分割した
左上ブロック→右上ブロック→左下ブロック→右下ブロックを
重ねると1〜の連番になるようにするにはどうすれば良いでしょうか？

取り合えずセルのA1=左上、B1=右上、A2=左下、B2=右下として
ご教示いただきたくよろしくお願いします。

>>601
大体やりたいことは分かるけど

番号を振るってどこにどうやってフルの
あとページが下に進むのか右に進むのかも不明
1ページで使うセル範囲もどこからどこまでかも良く分からない

スレ汚しすみません

1　　2
3　　4　　　　　　1枚出力

12　　34
56　　78　　　　　　2枚出力

123　　456
789　　101112　　　　　　3枚出力

1234　　5678
9101112　　13141516　　　　4枚出力

m = 出力したい枚数
n = 出力ごとにn+1（n = 1 to m）

m*0+n　　m*1+n
m*2+n　　m*3+n


睡魔の狭間で何となくひらめきました。
事故解決しました。ｍｍ

オメデトウ

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

テキストデータを、Sheet("テキストデータ")のセルA1に貼り付け、
マクロでSheet("明細")のセルB5を先頭に各セルへデータを書きたいです。

-------------------------------------------
テキストデータ
2011/06/28s●ss◆◆S◆◆◆ss3,700sss▲▲s
2011/07/03s●ss◆◆◆ss5,500sss▲▲▲s
2011/07/10s●ss◆◆S◆◆◆ss2,800sss▲▲s
-------------------------------------------
s：半角スペース
S：全角スペース
●：文字列（全角で1〜3文字）
◆：文字列（全角で2〜17文字）
▲：文字列（全角で0〜20文字）

このとき、◆の文字列が全角スペースで区切られているときは、同じセルの
中に入れて、下記のようにしたいです。

------------------------------------------------------
　　　　　A 　 　 　 　 B　　　　　　C　　　　　　　D　　　　E
1
2
3
4
5　　2011/06/28　　●　　◆◆S◆◆◆　　3,700　　▲▲
6　　2011/07/03　　●　　◆◆◆　　　　　　5,500　　▲▲▲
7　　2011/07/10　　●　　◆◆S◆◆◆　　2,800　　▲▲

明細がどう絡むのかよくわからないけれど、エディタで半角スペースをタブかカンマあたりに
置換してみてはどうか？

> エディタで半角スペースをタブかカンマあたりに置換
じゃダメだな
「"1個以上の"半角スペースを"1個の"タブかカンマあたりに置換」しないと

　　　　　A 　 　 　 　 B　　　　　　C　　　　　　　D　　　　E
　　2011/06/28　　●　　◆◆S◆◆◆　　3,700　　▲▲

ではなく

　　　　　A 　 　 　　 B　　　　C　　　　　　　D　　　　　　　　E　　　　F　　　　　G　　　　　H　　　　　I
　　2011/06/28　　●　　空セル　　◆◆S◆◆◆　　空セル　　3,700　　空セル　　空セル　　▲▲

になってしまう

つまり､「s/ +/\t/g」ってこった
まぁエディタでやるかVBAでやるかは好きにすれば良いが

Excel2003、2010などを使っています
カーソルキーでアクティブセルを移動させる時に
画面端まで移動しないと画面がスクロールしませんが
これを一番端ではなく画面の端から4セルぐらいのところで
画面をスクロールさせることは出来ないでしょうか
…出来ないような気がしていますが出来たら嬉しいなぁと

イベントマクロでいけんじゃね？

>>605
ttp://www.dotup.org/uploda/www.dotup.org1776956.xls.html
split使うかなぁ
A列を2011/06/28と表記させたい場合は、
明細シートの書式を文字列にしておいてね

後、●や▲の文字列の中に半角スペースがあると処理できない。多分ないと思うけど

つーか区切り位置で半角スペース指定して列削除したほうが100億倍早かった

>>608
・スクロールロックキー(ScrLk)を使う。
・マウスホイールを使う。横向きにスクロールできるものもある
・イベントマクロでウィンドウサイズとセルの行列のサイズを考えて手動で計算する

表示されてるセル範囲の取得ができれば一発なんだろうけど
どれもパッとせんなぁ
回答がなければプログラム板のvbaスレにいってはどうかな

WindowsXP Pro
Excel 2003
VBA…いいえ
VBA回答…否
検索…集計 抽出 関数

月火には毎週10個、水〜日には0〜5個といった感じで
『特定の曜日には確実に払い出しがあり、他の曜日にはたまに払い出しがある』
商品があります。
毎月シートを分けて日付を横一列に並べ、その下に払い出し数（ない日は0）
を入力しているのですが、先日上司に、
『払い出しがあった日のデータだけを抽出して、いつもの表のように並べてくれ』と言われました。

関数とかでなんとかならないかな？と思ってこちらに質問させていただきました。
よろしくお願いいたします

>いつもの表のように並べ

いつもどう並べているのか言わないとどうしようもないけれど、
とりあえず曜日の下の払い出し個数が0の場合は、曜日を表示しないようにするとか？

if払出=0,"",曜日

>>612
関数では出来なくはないけど、かなりややこしくなるので、止めておいたほうが。
配列数式になって、応用するのに辛いと思う。

日付が縦に並んでいるなら、オートフィルタで抽出してコピーできるけど、横だし、どうするのが一番手っ取り早いか・・・

>>614
コピーペーストの行列を入れ替えとか

>>615
うん、それしかないかなあ。入れ替えて抽出して、また入れ替えてコピー

基本、出来れば日付は縦にとってほしい・・・・エクセルがそういう作りだから。

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

>>613
いつもの＝日付を横一列〜（上記）です。説明不足でごめんなさい。

>>614,615,616
最初にオートフィルタの横列版はないかと検索してましたｗ
作りの問題なんですね。元ファイル直したいけど上司の意向が・・・

別シートか何かでコピペをシコシコしていくことにします。ありがとうございました。

VBA可なら､横のフィルタマクロもあるけどね
俺なんか縦のフィルタも､ほとんどExcelのオートフィルタ使わずフィルタマクロ使ってる
オートフィルタは痒いところに手が届かないからな

>>600
サンプルのマクロとかないでしょうか？

行列入れ替えて貼り付けを自動記録すりゃいいじゃん

>>620
そのレベルができない人用に作らないといけないので・・・

だからあんたが自動記録してマクロにすればいいじゃん。馬鹿？

こうやって後だしが出ないようにテンプレつかってんじゃね？
VBAでも回答欲しいなら質問者は最初からそう書けよ。


一応回答な。
>>617
>613の関数でとりあえず表を作る。
A1=IF(A2=0,"",1)　B1=IF(B2=0,"",2) ・・・
A2=払い出し数　B2=払い出し数

次に以下操作する。
表の範囲を選択する→編集→ジャンプ→セルの選択
→空白セルにチェック→編集→削除→列全体

これが関数でできるやりかたかな。

別のデータから連続してセルに色々貼り付ける自動マクロ作ってるんですが、
コピペ開始する位置を自動的に取得したいので、A列の最終行の次（空白行）から始めたいので、
それを取得できるマクロプログラムだけ教えていただけますでしょうか？
開始位置座標の変数はなんでもOKです。

>>624
Range("A65535").End(xlUp).Row
rowは最終行になるから、次の空白行は+1するの忘れずにな
マクロの記録だとA65535洗濯して、ctrl+↑

>624　複乳さんに先こされてしまいましたが
質問者のExcelのバージョンが書いていないので、2007以降でも兼用できる方法を
dim tate_end as long
〜
tate_end = Cells(Rows.Count, "A")End(xlUp).Row + 1

>>625-626
どもです！

× , "A"
○ , 1

× + 1
○ Offset(1)

var = Cells(Rows.Count, 1).End(xlUp).Offset(1).Row

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows 7 Professional
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】VLOOKUP 複数　/　エクセル　名簿　
スレ汚し失礼いたします。
初心者ですので、拙い文章・理解だと思います。
みなさんの知恵貸してください。宜しくお願いします。
今、エクセルで名簿を作成しております。
表Ａと表Ｂがあります。

続きます。

上記の表Ａと表Ｂはこのようになっています。
表ＡのＢ列のセルには何も入っていません。
表Ａと表Ｂでは、北川という名前が一致していますので、表ＢのＢ3を表ＡのＢ2に自動で入れるという風にはできないのでしょうか？
これが3000行ほどあるので、一度に複数に対して設定はできないのでしょうか？
重ねて宜しくお願いします。

表Ａ

Ａ Ｂ
1｜ 相山 | （空白）
2｜ 北川 | （空白）
3｜ 岡田 | （空白）

表Ｂ


Ａ Ｂ
1｜ 山口 | （海）
2｜ 武田 | （空）
3｜ 北川 | （陸）

>>630
表→シートと理解していい？

>> 629 >>630 >>631 です。
複数にわたってしまい、申し訳ありません。

>>632さん
はい。シートＡとシートＢです。宜しくお願いします！

>>633
vlookupのもっとも基本的な部分でクリアできそうだけれど、
グーグルでのvlookup検索で得られた結果は？
どのサイトのvlookupを読んでもその内容のまんまだよ。

一度に複数の場合はオートフィルでやるもよし。

>>634さん
vlookupで得られた結果はこうでした。
http://kokoro.kir.jp/excel/vlookup-false.html
vlookup開始セル：表Ａ　Ｂ列（複数セルにまたいで選択）
検索値：表Ｂ　Ａ列（複数セルにまたいで選択）
範囲：表Ｂ　Ａ列 Ｂ列
列番号：2
検索方法：0　ＦＡＬＳＥ
でしたのですが…上手くいきませんでした。
理想は
表Ａ
　　 A B
1｜ 相山 | （空白）
2｜ 北川 | （陸）
3｜ 岡田 | （空白）
になってほしいのです。

>>635
言い分けスンナ

>>635
=IF(ISERROR(VLOOKUP(A1,表Ｂ!A:B,2,0)),"",VLOOKUP(A1,表Ｂ!A:B,2,0))
こんな感じ
=VLOOKUP(A1,表Ｂ!A:B,2,0)
だけでもいいけどエラー値がうっとうしい

>>634さん
最初に質問してから、ご指摘通りのオートフィルタにたどり着きました。
リスト範囲：表Ａ$A$1:$A$3
検索条件範囲:表Ｂ$A$1:$A$3
にしましたが、一番上の所だけ表示されて他のセルは、細かくたたまれてしまいました。

>>636さん
言い訳のつもりで書き込んだのではありませんでしたが、お気に障ったのでしたら申し訳がございません。

>>複乳
ありがとうございます。
範囲や検索値の指定が悪かったのですね。ありがとうございます。
これで娘の誕生日に帰れそうです。
スレの住人の皆さん本当にありがとうございました。失礼いたします。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 自動記録を少し弄る程度です
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マクロ　関数　計算結果のみ表示
Dim last
Range("A65536").Select
Selection.End(xlUp).Select
last = ActiveCell.Row
Range("D5").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C[-3]=RC[-3],""　　〃"",MATCH(RC[-3],Sheet2!C1,0))"
Range("B5").Select
ActiveCell.FormulaR1C1 = "=IF(RC[2]=""　　〃"",""　　　〃"",INDEX(Sheet2!C2,RC[2],0))"
Range("C5").Select
ActiveCell.FormulaR1C1 = "=IF(RC[1]=""　　〃"",""　　　〃"",INDEX(Sheet2!C3,RC[1],0))"
Range("B5:D5").Select
Selection.AutoFill Destination:=Range("B5", Cells(last, 4))
Range("B5", Cells(last, 4)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
関数のMATCH INDEXを使ってSheet2からデータを呼出後に
コピー→貼付(値と数値の書式）として関数を数値データにしてるのですが
最初から数値データとして呼出をする方法はないでしょうか？

>>640
あんまり見てないけど
WorksheetFunctionを使うといいかも
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_ws_kansu.html#WorksheetFunction

あと
Range("A65536").Select
Selection.End(xlUp).Select
last = ActiveCell.Row
は
last = Range("A65536").Selection.End(xlUp).row
までまとめられるから、スレに貼るときなんかはまとめたほうが良いとは思う
見にくいです

>>640
質問のポイントが良く分からんのだが、
関数で計算した結果を、数値として入れなおしてる（関数を消してる）ってこと？
だったら、最初から関数使わずに、VBAで算術処理してもいいんじゃないの？
セル範囲の数字を、数値の配列に貯め込んで、まるっと代入してもいいし。

>>641
>>642
判りにくくて申し訳ないです。
簡単に・・・
Range("D5").Select
ActiveCell.FormulaR1C1 = "=MATCH(RC[-3],Sheet2!C1,0)"
だと
セルD5に数式=MATCH(A5,Sheet2!C1,0)が入ってしまいます。
数式は必要なく、結果だけを出したい場合は、どうすれば良いでしょうか？

range クラスの select メソッドが失敗しました。
と出て、以下の最終行のところでエラーが出てしまいます。
エラーの名前で出てきてぐぐった対策方法は試してみたつもりですが・・・

Public OpenFileName As String
Private Sub CommandButton1_Click()
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
Workbooks.Open OpenFileName
RunYN = MsgBox(OpenFileName & "を開きます。並び替えを実行しますか?", vbYesNo)
Select Case RunYN
Case vbYes
Call Run
Case vbNo
myMsg = "キャンセルしました"
Case Else
myMsg = "キャンセルしました"
End Select
' Narabikae Macro
'End Sub

Sub Run()
Dim myMsg As String
Dim Fname As String
Fname = Dir(OpenFileName)
Windows(Fname).Activate
Worksheets("Sheet1").Select
Columns("J:J").Select

>>644
長文なので途中で切りました。

【1 OSの種類 　 　 　 　 .】 Windows 7 Professional
【2 Excelのバージョン 　 】 Excel 2010

です。
エラーの意味はなんとなくわかったのですが・・・対処法をご教授頂ければと・・・

>>644
↓を参考にしてくれ。
http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200903/09030088.txt

先に解決策を書くと、
・sub run()は標準モジュールに記述。
・CommandButton1はシートモジュールに記述するが、内容はCall Runだけ。
・コードは全てSub Run() にまとめる。

Sub Run()
Public OpenFileName As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
(中略)
Worksheets("Sheet1").Select
Worksheets("Sheet1").Columns("J:J").Select
End Sub

コマンドボタンの置いてあるシートには
Private Sub CommandButton1_Click()
Call Run
End Sub

>>644
もう一つは
Worksheets("Sheet1").Select
Columns("J:J").Select
を
Worksheets("Sheet1").Columns("J:J").Select
とするだけ
activesheetとselectするsheetが違うとうまく動かない、らしい
よく分からないんだが仕様って奴かねぇ

それなら、>>641さんの方法で良いんじゃね？

>>643
WorksheetFunctionはこんな感じで使う

Sub a()
With Worksheets("Sheet1")
.Range("D5").Value = Application.WorksheetFunction.Match(.Range("a5"), Sheets("sheet2").Range("$a:$a"), 0)
End With
End Sub

>>646
アラート後だとフォーカスを見失う？ようわからない仕様なんすかね・・・
とりあえず解決しそうです。どもでした。

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

ふりがな機能が使えません。
右クリックメニューにもありません。
ホームタブ　フォントにもアイコンなし　
リボンのユーザー設定でも復活しません。
PHONETIC関数でもエラー表示
Web AppでPHONETIC関数を使うと漢字のまま表示されます。
解決方法お願いします。

>>651
自己解決しました

>>648
>>649
リンク先のHP等、大変参考になりました。
早速、少しづつ書換えていこうと思います。
ありがとうございました。

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

　　　A　　　B　　　C
　　平均　合計　評価
1｜　5　　　16　　
2｜　1　　 　8　　
3｜　3　　　12　　
4｜　2　　　11　　
5｜　4　　　11　　
6｜　4　　　 9　　

評価のところに平均が3以上だったらS、←以外の場合で合計が10よりも大きかったらA、どっちにも当てはまらなければBと入れたくて
C1に=IF(A1>=3,IF(B1>10,"S","A"),"B")と関数を入れてオートフィルをしたのですがC4がAになりません。
対処法をご教授お願いします。

>>654
=IF(A1>=3,"S",IF(B1>10,"A","B"))

>>654
式が間違っているのでしょう。
=IF(A1>=3,"S",IF(B1>10,"A","B"))

>>655-656
なるほどSの方を先にまとめてから残りもやるのか…ネスト難しいorz
覚えておきます。ありがとうございました

二つの項目の片方を縦軸、もう片方を横軸として１つの折れ線グラフを作りたいのに、
作ろうとすると、エクセルの通し番号が横軸、二つの項目が両方縦軸になって、
二つの折れ線グラフになってしまいます・・・二つの項目のデータの関係を調べたい
んです。
どうしたらいいですか？

>658
そういうグラフは散布図では？　こういうもの↓です。
http://www.geocities.jp/kotopara_g/oshiete01/e_sanpuzu.htm

>>659
ありがとうございます。一応データに関連性があるので
散布図も特徴的な形になりました。

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

　　　A　　　B　　　　C　　　 D
1｜　3　　　太　　　太　　　太
2｜　　　　　細　　　細　　　細
3｜　a　　　太　　　太　　　太
4｜　　　　　細　　　細　　　細
5｜　　　　　細　　　細　　　細
6｜　4　　　太　　　太　　　太
7｜　　　　　細　　　細　　　細

Aの行に何か値が存在したらその行は太字、存在しなかったら標準(細字)
という書式にしたいのですが、条件付書式の数式にどのような数式を書いたらうまくいくのか
よく分かりませんでした
よろしくお願いします

>>661
=$A1<>""
とすればよいんじゃね？

>>662
即レス、感謝です
うまくいきました
簡潔なお答えありがとうございました

まさか、こんなシンプルな式でうまくいくとは＞＜

エクセル２００３で質問です。
エクセルではない所からコピーしたものをエクセルに貼付しようとするとエラー？（形式が合わない、サイズがあわないとかで）になります。
ダブルクリックして入力はうまくいくのですが…。マクロでやりたいと思っているので入力操作を簡略化したいのです。
なにか対策方などはないでしょうか？
御教示願います。

>エクセルではない所
詳しく。

>>664
エラーの時はエラーメッセージをそのまま書いて欲しい

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

A1=1のとき、セルの書式設定を「"番号"#」とすると「番号1」といった形で
表示されますが、たとえば上記例の"番号"という文字列を、他のセル値参照に
切り替えたいのですが可能ですか？

A1=1、B1=テストとしたとき、
A1の表示がテスト1とされるような感じで。

これはC1=1としてA1=B1&C1としても似た内容が得られますが、
セルの書式設定にて可能であればご教示ください。

>>667
vbaじゃなければ無理ぽ

>>668
そうですか、仕方ないですね。
ありがとうございました。
シートイベントマクロで何とかします。

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

どんどこ増える帳簿に自動で整理番号を割り振るマクロを作ろうと思い、
番号を割り振る関数を行頭に作成
　↓
絶対に書き込みをしない空きセルにハイパーリンク作成
　↓
「関数コピー＞ハイパーリンク選択＞リンク先にコピー」の操作を記録

とやろうとしたのですが、ハイパーリンクを作ったところで#VALUE!エラーを吐かれました･･･
リンクの書式は
「=HYPERLINK(OFFSET(L2,0,0,COUNTIF(A:A,">1000"),1),"作業番号")」　※Ａの列は年度の数字が必ず入る
見ての通り、オフセット関数で『”年度”の記入されているＬ列のセル』を自動で選択しようと言う目論み
この関数の間違いの分かる方、もしくは別の手順で目的達成できるよ！という方はおりませんでしょうか
ＶＢＡが扱えればかゆいところに手が届くんでしょうがＶＢＡ関数の知識が全くなくてｏｒｚ

>>670
=HYPERLINK("[ブック名.xls]シート名!セル",〜
というように指定しないといけないと思います

HYPERLINKの第一引数は「参照」ではなく「文字列」で指定しなきゃダメだよ
参照ってのは「=A1」で､文字列ってのは「="A1"」ね
あと､セルへのリンクの場合､同シート内でもブック名とシート名も必要

OFFSET関数はセルへの参照を返す関数なので､こういう場合はセルのアドレス文字を返す
ADDRESS関数を使用する

=HYPERLINK(ADDRESS(COUNTIF(A:A,">1000")+2,12,1,TRUE,"[ブック名.xls]シート名"))

COUNTIFの後の+2は､君がOFFSETの基準セルにしたL2の「2」を補完したもの
次の12は､12列目､つまりL列を数字で表したもの

>>671
ありがとうございます
ブック名、シート名を入れて#VALUE!エラーはなくなったのですが、
今度は「指定されたファイルを開くことができません」と言って怒られます
ブック名をファイルのあるディレクトリのフルパスに変えてみてもだめでした
なにかオフセットの前後に足りない関数とかがあるのでしょうか・・・？

ぉぉぅ書き込んでる間にレスが・・・
>>672
やっぱり返値の形式があってませんでしたかｏｒｚ
ＡＤＲＲＥＳＳ関数で組みなおしてみようと思います
複数セルの範囲を指定するのは「ADRRESS(OFFSET(〜」で大丈夫ですよね？

もう一度すみません･･･
ADDRESS関数を使ってリンクを設定しなおしたのですが、
やはり「指定されたファイルを開くことができません」といわれ、
正しくジャンプすることができません。
リンク元とリンク先が同じファイル・同じシートなので新しくファイルを開くことなくリンクさせたいのですが、
どのように記述すればよいのでしょう
シート名の部分を
=HYPERLINK(ADDRESS(COUNTIF(A:A,">1000")+1,12,1,TRUE,"#sheet1"),"作業番号")
としてみてもダメなようです

それと、ADDRESS関数ですと、行番号・列番号に一つの値しか設定できない（一つのセルにしか飛べない）ようですが、
複数のセル範囲を参照させるにはどの関数をかませてやればいいのでしょう？
適当な関数がないのであればマクロで何とかしますが･･･

>>675
正直何したいのかよく分からないけど、
同じシートのL列を選択ってことでいいのか
=HYPERLINK("#L"&1,"unko")
これで同シートのL1が洗濯できる
=HYPERLINK("#L"&2,"unko")
これでL2だな
後は
=HYPERLINK("#L"&countif( 中略 ),"unko")
とかやれば何とかできるんじゃないか。
後複数セルを洗濯する方法は関数では無理だと思う
>>671
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/hyperlink.htm
>同一ファイル(ブック)の場合には　"#Sheet2!A2"　のようにシート名の前に「#」を入れます。
俺も今まで知らなかった。多分二度と使うことはない知識だな

A列にタイトル、
B列にタイトルに紐づく説明文のデータがあって
B列の説明文は一行ではなく複数行にまたがっています

それをA1から下に順番に読み込んで
タイトルに紐づく説明文のカウントを取りたいのですが

やり方としては
A1からA2A3と下に行って空白の場合B列の文字数のカウントを足していき
空白じゃなかったら0に戻してカウントをし直すやり方なのですが
これだと最後のデータがうまく読み込めません

うまいやり方があれば教授ください

>>677
こんな感じ？
http://www.dotup.org/uploda/www.dotup.org1803280.jpg

>A1からA2A3と下に行って空白の場合B列の文字数のカウントを足していき
>空白じゃなかったら0に戻してカウントをし直す
要するに常に累計をだしておき、タイトルが変わったらそれだけ引けばいい
C1=LEN(B1)
C2=LEN(B2)+C1-IF(A2<>"",C1,0)

DとE列はタイトル出すための物だからどうでもいいっちゃどうでもいもいけどついでに
D1=IF(E1<>E2,E1,"")
E1=A1
E2=IF(A2<>"",A2,E1)

自己解決しました
「ADDRESS(〜」の前に"#"と入れることで
同一シート内の指定セルへジャンプすることができるようです
どうもお騒がせしました

>>676
ありがとうございます
やはり関数のみでは限度がありますか･･･
ジャンプの問題は解決したので
「番号行の入力範囲末尾へリンク＞ＣＴＲＬ＋↑で行頭まで選択」
という手順でマクロに吐こうと思います。
お答えくださったみなさん、どうもありがとうございました。

>>610
返事が遅れてすみません。
ありがとうございました。

長文の文章の中から句読点の「。」がある度、別のセルに横へずれてコピペするマクロはどんな感じで組めばいいでしょうか。

A1（元文章のセル）：あああ。いいい。ううう。えええ。おおお。
↓
A2：あああ。　B2：いいい。　C2：ううう。　D2：えええ。　E：おおお。

データの区切り位置でいけんじゃねそれ

>>681
区切り位置の機能を使えば「。」を区切り位置に設定して同様の効果があります。
ただし、「。」が消えてしまいますが。

データの区切り位置だと､
A1→A1:E1になるし､元テキストが残らないし､"。"も残らないので要望に適してない
A1→A2:E2のように出力先を別行にしたり､元テキストも消さず､区切り文字も残したいなら
こんな感じとか

buf = Split(Replace([A1].Value, "。", "。" & vbNull), vbNull)
[A2].Resize(, UBound(buf)).Value = buf

まあVBA使えば､区切り位置(TextToColumns)を使っても要望通りの結果は出せなくもないけど
素では「同様の効果」じゃないから､事前処理と事後処理が必要になって無駄が多いからな

>>684
どもでした。まさにこんな感じです。
ただ、最後の文字列に"。"がない場合、コピペされないみたいですが、
解決手段はありますか？

【1 OSの種類 　 　 　 　 .】 WindowsXP SP3
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 図が大きすぎます　入りきらない部分は切り捨てられます　コピー　行　図はない

エクセル2003ですが、ある日突然（WindowsUpdateをかけてからかもしれない）
表や列単位でコピーすると100%「図が大きすぎます。入りきらない部分は切り捨てられます」
というメッセージが出るようになりました。
実際、コピーペーストは出来るのですが、このMesが出る度に、実際巨大な画像をコピーしたかのように
プチフリーズして動作が重くなるので困っています。

検索すると巨大なメタファイル関連で出るようで、MSのページにも対策が書いてあるのですが
私の場合は、図など何も使っていない開いたばかりの何も入力していないシートでも同問題が出ます。
再現率は100%で、Windowsを再起動した状態でエクセルをセーフモードで立ち上げても解決しません。

このような状態になっている方はおりますでしょうか？


余談ですが、こないだアップデートしてOFV アドインのバグとしか思えない不具合でも嵌りましたし
こんな事ならアップデートするんじゃなかったと・・・・

>>685
最後の文字列に"。"がない場合、
最後の文字列に"。"　を付け加えるマクロを
加えればいいんじゃないかな

テーブルを作成して交互色にしてますが、以下の事で困っています。

1.. テーブル以外のセルの背景色を塗りつぶし
2. VBAのフォームでの入力などによりテーブルの範囲を拡張される
3. 背景色がテーブルの上にきてしまい、交互色が台なし

なにか対処法ありますか？

>>686
Glary Utilitiesとか使い始めて無いか？

>>686
図が大きすぎます。入りきらない部分は切り捨てられます
でｇｏｏｇｌｅ検索して片っ端から試すしかなさげ

>>685
[A2].Resize(, UBound(buf)).Value = buf
↓
[A2].Resize(, UBound(buf) + 1).Value = buf

>>686
ウインドウズにはシステムの復元というのがありますのでアップデートする前に復元できるのでは？

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 今会社にいないので確認できません
【3 VBAが使えるか　 　 .】 簡単なC、読むだけならC
【4 VBAでの回答の可否】 可
こういうハイレベルなところでする質問なのかわかりませんが
�@Aというワークシート、Bというワークシートがあります。
　Aのワークシートのある一列をコピーして形式を選択して貼り付けでBに貼り付けると数式だけでなく
（Aというワークシート名＋数式）が貼り付けられてしまいます。
これの数式だけ貼り付ける方法はありませんか。
�AAとBはシート名は違いますが内容は同じもの但し壊れているので数式だけ貼り付けたい。
　数式の中にシート１で入力された数字を参照するものが入っている。
�Bシート１で50と入力しシート２で50を表示シート２で54を入力54-50を行い差の4を表示
　シートBは壊れたまま使っており数字を全部入力していたが100行ほどあるので数式だけ移したい

（ワークシートA）シート１・シート２・シート３
　　　　　　　　　50　　　50　54　式　4
　　　　　　　　　　　　　　　↓一列の数式だけコピーしたい
（ワークシートB）シート１・シート２・シート３
　　　　　　　　　70　　　70　78　式　8
　　　　　　　　　　　　　50　78　式　20←このようになってしまう　　　

>>691
どもです！
これを配列処理する場合、どんな感じのプログラムになりますか？

シート１のA列を、シート２のB列に書きだす場合でお願いします。

すいません自己解決です

>>684
度々すいません。
この構文で実行すると、半角数字がある文章がくると空白になってしまう理由はなんでしょうか？

>>696
厳密には、数字の1が入るとおかしくなるようです。

>>689-690,692

すいません、解決しました。
結論を言うと、MSアップデートやエクセルは全く関係が無く
クリップボード拡張ソフトCLCLの設定がいつの間にか変わっていたのが原因でした。

具体的には、クリップボードの履歴として保存するデータを選択したり、フィルタしたりする
設定があるのですが、これが
デフォルト全拒否（保存しない）　→　許可した物だけ保存
から
デフォルト全許可（保存する）
になっていたのが原因でした。
ご存じの通り、エクセルはセルコピーで大量の項目をクリップボードに送るので、せいぜいテキストと
ビットマップぐらいにしておかないと、保存に時間がかかるのは当然でした。
（エクセル側でエラーを吐くと言うのは謎でしたが）

CLCLは凄く良いソフトで、絶対に手放せないツールの一つなんですが、なんかの拍子で
定型文のデータが消えたり、設定が変わったりすることが多いんですよね。私の環境だけかも知れ無いのですが。

どうもお騒がせしました。
前回のMSアップデートにケチを付けたのは撤回したいと思います。
（OFV アドイン除く）

あの、あまりにビギナーな質問で恐縮なのですが、どなたか教えてください。
Ｗord2003を使って数年ぶりに文書を作成しました。
複数あるページの特定のページだけ印刷したいのですが、どうにもこうにも
説明書をいくら読んでも、やり方が判りません。お願いします。教えてください。
Ｗord総合相談所の方に先に書き込んでおりますが、
あちらはちょっと過疎ってるようなのでもちろんスレチなのは承知しておりますが
こちらに来ました。急いでいます。お願いします。

>>699
大変ですね・・・

>>699
wordスレに回答されています。

６９９です。解決しました。ｗｏｒｄスレの回答にもそこへさえたどりつけ
なくて右往左往してました。
ファイルの中に印刷というのがあるのは知っていたんですが、そこクリック
したらいきなり印刷が始まってしまうと思い込んでて触れませんでした。
開いてみたら・・・いろんな設定ができたんですね・・・
　　　　　　お騒がせしました。

>>702
先に向こうのスレにお礼を言うのがエチケットですよ。

>>693
ブックと思われるところをシートと書いてたりして、イマイチはっきりとイメージできないんだが
もしかして「形式を選択して貼り付け」で「リンク貼り付け」をクリックしてる？
数式を貼り付けたいなら、そこはずばり「数式」を選択して「OK」をクリックするのでは？

>>704
ご指摘ありがとうございます。
ご指摘の通りシートとなっているところはブックです。
ですが形式を選択して貼り付けで数式を選択しても
ワークシート同士だとその数式の前にコピー元のワークシート名
がつくのです。ブック同士では素直に数式だけ行ってくれます。

選択したフォルダのファイルたちのファイル名の中に、
A列に書かれているファイル名があった場合は、書かれている隣のB列の内容のものに
ファイル名を変更するVBAを教えて欲しいのですが、どうしてもわかりません。何卒作成していただけませんでしょうか？
Officeは2003です。

>>706
ttp://www.dotup.org/uploda/www.dotup.org1812956.jpg.html
oh、突如VBAが使えなくなった
使えたらつくってあげるんだがなー
残念だな

ここでファイル一覧の取得
ttp://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html
後はB列とA列をfindなりで見つけて同じのがあれば書き換える
ttp://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_100.html
このページが参考になるな
まー頑張れ

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

マクロで、最下行にある値と、最右列にある値を
それぞれ得るにはどう書けばいいですか？
（下記の例では、B列の1850と、2行目の3200を取得したい）
途中に空白のセルはありません。

　　　　A　　　　B　　　　C　　　　D　　　　E
1　　1200　　2500　　1850
2　　2450　　1680　　2000　　1780　　3200
3　　1550　　1225　　1760
4　　2100　　2340　　2500　　2480
5　　　　　　　1850

0.1+0.1=0.2ですが、合計を自動で1.0にする関数ってありますか？IF関数でいけますか？
箱2つを紐で括って1つにする場合、
0.1の0が括ってある数で、1が括ってない数ということです。簡単に表したいんですが・・
参考にしたいのでお願い致します

すみません、漏れてました。

マクロで、最下行にある値とセルの番地、最右列にある値とセルの番地を
それぞれ得るにはどう書けばいいですか？
（下記の例では、B列の1850とCells(5, 2)、2行目の3200とCells(2, 5)を取得したい）

よろしくお願いします。

>>709
？？？

>>709
なぜ、くくった箱１セットを１、バラの箱を0.5だとダメなのか説明してもらおうか。

>>710
マクロの記録で
ctrl+end、ctrl+←
とか

>708
ちょっと面白そうな問題だったのでやってみた
こんなんどう？

Sub TEST708()
Dim R1 As Range
Dim R2 As Range
Dim R3 As Range
Dim Ans1 As Range
Dim Ans2 As Range

Set R1 = Range("A1")
Set R2 = R1.CurrentRegion
Set R3 = R1.Offset(R2.Rows.Count - 1, R2.Columns.Count - 1)

Set Ans1 = R3.Offset(1, 0).End(xlUp)
Set Ans2 = R3.Offset(0, 1).End(xlToLeft)

Debug.Print Ans1.Address, Ans1.Value
Debug.Print Ans2.Address, Ans2.Value
End Sub

>>709
足し算の最後に5をかければいいだけじゃないのか

>>705
とりあえず、ブックとシートの関係と
実際にどのセルにどんな数式が入ってるのか、
それをどうしたくてどうなるのかをもうちょっと整理して書いてほしい
ある程度こっちで再現できないことには検証もできないので