Excel総合相談所 105

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

▼━関連スレ━━━━━━━━━━━━
Excel VBA 質問スレ Part26
http://toro.2ch.net/test/read.cgi/tech/1345363310/
VBAなんでも質問スレ
http://toro.2ch.net/test/read.cgi/tech/1342087380/
【質問不可】Excel総合相談所スレの雑談・議論スレ2
http://toro.2ch.net/test/read.cgi/bsoft/1151651536/
Access VBA 質問スレ Part1
http://toro.2ch.net/test/read.cgi/tech/1328536426/
VBプログラマ質問スレ（Ver.6.0 まで） part59
http://toro.2ch.net/test/read.cgi/tech/1344325875/

▼━前スレ━━━━━━━━━━━━━
Excel総合相談所 104
http://toro.2ch.net/test/read.cgi/bsoft/1343478905/

▲ここまでがテンプレ

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

>>1-2 スレ建て乙
>>3-7 テンプレ貼り支援乙

>>3-7は従わないのも自由だが、貼るのも従うのも自由なので
貼ったことに対してとやかく言うようなお門違いなことはしないように

気に入らなければ>>3-7に反する質問にも自分が答えてやれば良いだけだからな

何を偉そうに・・　気持ち悪い。

まあ偉そうなのは引っかかるが正論だからいいんじゃね？

テンプレ違反だからおまえら回答するなよっていうヤツのほうがきもいな

居ないけどね

いるじゃん　マルチがどうのこうのって

いまさらだけど何で>>3のテンプレの9以降はABなんだ？10でいいじゃん

>>14
文字がズレるからじゃね？
現行の【1〜9, A, B】でもズレてるけどねｗｗｗ

【1〜9, A, B】
･8 |うまくいかなかったにしても自分でやって
･9 |マルチはダメ。一度マルチした
･A |テキストボックス(エディトボック
･B |書籍や解説サイトの紹介以来

【1〜11を半角数字】
･8 |うまくいかなかったにしても自分でやって
･9 |マルチはダメ。一度マルチした
･10 |テキストボックス(エディトボック
･11 |書籍や解説サイトの紹介以来

【１〜９を全角数字, 10〜11を半角数字】
･ ８ |うまくいかなかったにしても自分でやって
･ ９ |マルチはダメ。一度マルチした
･10 |テキストボックス(エディトボック
･11 |書籍や解説サイトの紹介以来

プログラマーとか、脳が16進数だったりするからな

16進数は0からFまで
1から始まると俺の脳は16進数だと認識しない

>>15
それだったら一桁の1〜9を01〜09って書けばいいんじゃね？

文章での指摘を>>x･yで簡略化って趣旨らしいから文字数の軽減じゃね？

ってこの話題もどうでもいいわw

そーいえばuiゴシックはあるのにui明朝ってないよな

そんなことを気にする前にまずこっちを直せよ
『Visual Basic for Application』 → 『Visual Basic for Applications』

これこそ、どーでもいい

まぁ、次から直せばいいんじゃね？
テンプレの記録・編集できるサイトが欲しいな

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

2010でマクロの自動記録をやるとき、
開発タブ→マクロの記録で始まりますが、フォント変更とか関数で他のタブを使うと、
最後はまた開発タブに戻り→記録終了とクリックしなければなりません。
キーボードのショートカットとかで終了せる方法はありますか？

>>24
2012か2010かどっちだ？

とりあえず2010
http://www.microsoft.com/ja-jp/enable/products/keyboard/default.aspx

Excelならよねさんに聞けといわれたのですがよねさんとは一体何所の誰なのでしょうか？

>>26
www.eurus.dti.ne.jp/yoneyama/

>>25
2010です、すみません。
リンク先を読みましたがよくわかりません。

Altキーを押す
開発タブに（L）が表示される
Lキーを押す
開発タブがアクティブになり、マクロの開始に（R）が表示される
Rキーを押す

これで記録が始まるのかと思ったら始まっていません。
どこがだめなのでしょうか？

よねさんの顔写真とかは無いのでしょうか？

ｇｇｒｋｓ

>>28
Rを押したあとenter

DELLのノートPCで、マクロ動作中に強制的に止めるため
Breakボタンを押したいけど見つかりません。
どこを押せばいいのでしょうか？
http://nattokude.gozaru.jp/image/xps15z/xps15z_075.jpg
http://nattokude.gozaru.jp/image/xps15z/xps15z_076.jpg
説明書が見つからないので困ってます。

>>32
スレ違い

質問の本質を考えたらスレ違いだとわかるはず

マクロの実行を強制的に止めるにはどうしたらいいですか？→このスレの範疇
とあるノートPCのBreakキーはどこにありますか？→Excel全く関係無し

というわけで、メーカーに問い合わせるか、DELLスレに行ってくれ

キーボード見せたかっただけだろ。

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

列方法のオートフィルタが使いたいんだけどないので、
どなたかマクロでつくってください。
A列にある1つのセルを選択、ボタンをクリック、抽出みたいな

誤　列方法
正　列方向

>>35
リスト作ってイベントマクロで対象列を非表示にするとかは？

>>35
マクロの記録でコピー、貼り付けで行列を入れ替え
後はいけるだろ

複合参照ってむずくね

それほどでもない

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

何もしないと言えばいいのかな？
例えば、IF(別のシート!A1="",A1="",A1=別のシート!A1)の真の時、A1に空白が入ってしまいます。
A1には既に値が入っていて、別シートのA1に値が入っている時だけ、そのシートの値と入れ換えをしたいのですが、前記の式だとA1が空白になってしまいます。
A1に空白を入れずに、式を完結させるにはどうすればいいでしょうか？

IF文を勉強しなおしたほうがいい

IF(別のシート!A1="",999,別のシート!A1)
既に入っている値を999とするとこんな感じ

2010のオートフィルターで「空白以外のセル」を選ぶとき、
「すべて選択」のチェックを外してから、「空白」以外の箇所をチェックしてるんだけど、
20件とか30件とかあるとイラっとするんだよね。
2003みたいに簡単にやる方法はないの？

すべて選択してから空白のチェックを外せばよいのではないだろうか

マクロで全角を半角に変換したいんだけど、カタカナは全角のままにしたいときは
どう書けばいいですか？
STR = StrConv(F_NAME, vbNarrow)

素直にif文使えば

>>46
ひらがなに変換してから半角、さらにカタカナに。
ひらがなとカタカナが入り混じっているのなら、一文字ずつチェックするしかないんじゃなかろうか。
文字コードでカタカナの範囲を除外するだけかな

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

Variant型にRange型を代入することで配列を代入しているのですが、
Range型の大きさが1×1だと配列ではなく単なる代入になってしまうので、
後のFor i = 1 to Ubound(v)などでエラーになるので困っています。
1×1のRange型も配列としてVariant型に代入することは可能でしょうか？
何回も処理するのでRange型の大きさは未確定です。

Range型の大きさによってIf分岐で対処可能ですが、
後に続くコードを全て分岐させるのは汚いのでスマートな方法を探しています。

>>49
配列の要素が1つの時に、Redimをどのように宣言してる？

>>50
Redimは使用していません。
v = Cells(1, 1).Resize(x, y)
For i = 1 To UBound(v)
でエラーになるという感じです。
そしてこの場合のxを使ったif分岐をずっと使いたくなく、
この場合でもv(1,1)として代入したいということです。

>>48
うーむ、やっぱり1文字ずつ判定しないと無理っぽいですね。
もともとやりたかったのは、B4セルにフォルダ名（パス）を書き、
フォルダ内のファイル名を書き出すものをググって拾ってきましたが、
ファイル名が半角でも全角になってしまいます。
どこが駄目なコなんでしょう？

Sub フォルダ内のファイル名を取得()
　SN = "LIST"
　B4 = Range("B4").Value

　Set FS = CreateObject("Scripting.FileSystemObject")
　Set FDR = FS.GetFolder(B4)
　Set FIL = FDR.Files

　i = 7
　For Each F In FIL
　　F_NAME = F.Name
　　ThisWorkbook.Sheets(SN).Cells(i, 2) = F_NAME
　　i = i + 1
　Next
End Sub

>>49
isarrayで分岐させるのかUBOUNDを継承して似た関数を作るしかないんじゃないか
それかvariantを使わずに配列を用意する

>>52
そんなふうにはならないな。使用しているフォントのせいで全角に見えるとかの可能性は？
文字コードで調べてみた？

>>43
やはり、何かを挿入しないとダメなんですね…
何もしないって事は出来ないのかorz

>>55
たぶんVBA使わないと無理

>>51

規制で書き込みできなかった〜
Ubound使わないで

for i =1 to Cells(1, 1).Resize(x, y).rows.count

ってやったらどう？

あ〜ごめん。
ちょっと目的と違うね

あれやっぱり良いかな

もしかして
for i=1 to x
でもいいんじゃない？

的外れ？

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

次のような条件の時にフォントの色を変更したのですが、方法がわかりません。

A列に入力された数字をひとつ上のセルと比較して大きければ赤字、小さければ黒字というようにしたいのです

100
105←赤
105
100←黒
110←赤
110
110


よろしくお願いします。

>>60
すいません
黒字ではなく青字です・・・

小さければ黒字・・・×
小さければ青字・・・○

条件付き書式で全部解決

条件付き書式でやってみてたんですが上手くいきません

IF文とか使わないと出来ない・・・？
ヒントおねがいします

>>53
>>57
>>59
皆様ありがとうございます。
それらの方法だとfor構文をクリアできてもv(1,1)を参照したときにエラーとなってしまします。
完全に僕の説明不足でした。申し訳ありません。

やはり完全な方法は無さそうなので皆様の意見を参考に作りを見直していきます。

>>60
For Each セル In Selection
If セル.Row = 1 Then
GoTo pointA
End If

If セル > セル.Offset(-1, 0) Then
セル.Font.ColorIndex = 5
ElseIf セル < セル.Offset(-1, 0) Then
セル.Font.ColorIndex = 3
Else
セル.Font.ColorIndex = 1
End If

pointA:
Next セル


前スレ>>963と似た質問だったので同じ回答だけど。

>>64

それなら、Uboundは忘れて,、かつ、 set をいれて
（受け取っているのがオブジェクトなんで）。
x=1
set v=cells(1,1).resize(x,1)
for i=1 to x
debug.print v(1,1)
next i

としたら通らない？

>>65
ありがとうございｍす

VBA使えないので完成した状態のものだとどうなるのでしょうか？

セルの部分はわかるのですが、冒頭部分など無知なもので・・・
sub〜みたいなのが入りますよね・・・？

すいません

>>54
フォントを変えたら元のファイル名が全角でした・・・（すみません

元のファイル名が取り込めたところまではいいですが、
カタカナを全角に、英数字と全角スペースと（）を半角にするには
>>52のどこをイジればいいでしょうか？

>>67
sub マクロ名()
処理
end sub

をmodule1にでも張って、セルを選択してALT+F8かしら。
ちなみにVBA回答可に対してVBA回答したけれど、
内容わかりませんじゃぁ貰う意味ないんじゃね？

考えて質問すべき。

>>68

F_NAME = F.Name

ここでしょ。

For Each f In FIL
For j = 1 To Len(f.Name)
Select Case Asc(Mid(f.Name, j, 1))

Case Asc("ァ") To Asc("ン")
F_NAME = F_NAME & Mid(f.Name, j, 1)
Case Else
F_NAME = F_NAME & StrConv(Mid(f.Name, j, 1), vbNarrow)
End Select
Next j

ThisWorkbook.Sheets(SN).Cells(i, 2) = F_NAME
i = i + 1
F_NAME = ""
Next

>>64
Set 範囲 = Cells.Resize(x, y)
With 範囲
　　If .Count = 1 Then
　　　　ReDim v(1 To 1, 1 To 1)
　　　　v(1, 1) = .Value
　　Else
　　　　v = .Value
　　End If
End With
For i = 1 To UBound(v, 1)
　　'処理
Next

For Eachが使えるときはもっと簡単な方法があるが

Case Asc("ァ") To Asc("ン")
F_NAME = F_NAME & StrConv(Mid(f.Name, j, 1), vbWide)

に修正よろ

>>70
おぉぉ・・・凄いぃぃぃ！
でも、全角スペースが半角にならないのと、伸ばす音"ー"が半角"ｰ"になってしまいます。

Case Asc("ァ") To Asc("ン") Or Asc("ー")　にしたら、伸ばす音は全角になるのかと
思いましたが半角のままでした。
また、全角スペースを半角にするにはどうすればいいでしょうか？

>>72
ん？
全角になってしまいましたが？

>>67
Excel2000の条件付書式でやったらこうなった
条件1
[セルの値が] [次の値より小さい] [=OFFSET(INDIRECT(ADDRESS(ROW(),COLUMN())),-1,0)]
これで書式を「赤」に設定する
条件2は[次の値より大きい]にして他は変えずに書式を「青」にする
一個上のセルを指定する方法は
なんかもっと良いやり方がありそうだと思うけど俺には分からなかった。

一応、ツール=>オプション=>全般　で
「R1C1参照形式を使用する」にチェックを入れてから条件付書式を設定すると
糞長い[=OFFSET〜]の部分が[=SUM(R[-1])]にできるけど
A1形式に慣れた人には使いづらいかもしれない。

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

別のブックのデータを引っ張ってきたいと思います。
ブックのアドレスはindirectで指定したいのですがrefエラーとなってしまいます。
Exel2003で作成したときには問題なく表示されたのですが、2010で開くとエラーになります。
参照元のファイルは開いているのですが・・・
ご教授お願いします。

=VLOOKUP(AP3,INDIRECT("["&データ!$B$1&"一覧]Sheet2"&"!$B:$d"),3,FALSE)

よくよく見てみたら>>75のOffsetは要らなかった
[=INDIRECT(ADDRESS(ROW()-1,COLUMN()))]
で良いね（これでも長いけど）

>>72
カタカナは全角、英数は半角でいいんだよな？

For Each f In FIL
For j = 1 To Len(f.Name)
Select Case AscW(Mid(f.Name, j, 1))
Case AscW("ァ") To AscW("ン") Or AscW("ー")
F_NAME = F_NAME & StrConv(Mid(f.Name, j, 1), vbWide)

Case Else
F_NAME = F_NAME & StrConv(Mid(f.Name, j, 1), vbNarrow)
End Select
Next j

ThisWorkbook.Sheets(SN).Cells(i, 2) = F_NAME
i = i + 1
F_NAME = ""
Next

unicodeで見ないといけなかったみたいだ。

すまん。大嘘だった。
テスト用のカタカナファイル名が全角のままだった。
For Each f In FIL
For j = 1 To Len(f.Name)
Select Case Asc(Mid(f.Name, j, 1))
Case Asc("ｧ") To Asc("ﾝ")
F_NAME = F_NAME & StrConv(Mid(f.Name, j, 1), vbWide)

Case Else
F_NAME = F_NAME & StrConv(Mid(f.Name, j, 1), vbNarrow)
End Select
Next j

ThisWorkbook.Sheets(SN).Cells(i, 2) = F_NAME
i = i + 1
F_NAME = ""
Next

　　　 γ⌒)　))
　 　　　 /　⊃＿＿
　 　〃/　/ ⌒　　⌒＼　　 　　　　
　　γ⌒)（ ⌒） 　（⌒） ＼ ∩⌒)　 　あげさげ！
　／ _ノ :::⌒（__人__）⌒ 〃/　ノ　　　あげハゲー！
（　 <|　 |　　　|r┬（　　　 /　/　））　
( ＼　ヽ ＼ ＿`ー‐' 　／（ ⌒） 　　　

　　　 γ⌒)　))
　 　　　 /　⊃＿＿
　 　〃/　/ ⌒　　⌒＼　　 　　　　
　　γ⌒)（ ゜ ） 　（。） ＼ ∩⌒)　 　
　／ _ノ :::⌒（__人__）⌒ 〃/　ノ
（　 <|　 |　　　|r┬（　　　 /　/　））　
( ＼　ヽ ＼ ＿`ー‐' 　／（ ⌒） 　

　　　 γ⌒)　))
　 　　　 /　⊃＿＿
　 　　　 /　⊃＿＿
　 　〃/　/ ⌒　　⌒＼　　 　　　　
　　γ⌒)（ ゜ ） 　（。） ＼ ∩⌒)　 　
　　γ⌒)（ ゜ ） 　（。） ＼ ∩⌒)　
　／ _ノ :::⌒（__人__）⌒ 〃/　ノ
（　 <|　 |　　　|r┬（　　　 /　/　））　
( ＼　ヽ ＼ ＿`ー‐' 　／（ ⌒） 　

>>77
INDIRECTなん必要ねーだろ？
A2にポインタ置いて「数式」が=A2<A1とか=A2>A1などとすればいいと思うが

>>81
んだ。
あとは色を選ぶだけ。

【1 OSの種類 　 　 　 　 .】 Windows7　home
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
http://www.dotup.org/uploda/www.dotup.org3389518.jpg.html
画像で左の様に入力したデータがある時に、右のように同じ文字列をまとめる方法を教えて欲しいです。作業用セルを使うのは構いません

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

月間売上から折れ線グラフを作っています。
貼ったjpgのように、真ん中のグラフは1992から、右は2001から左のグラフの色と違ってしまいました。
同じ年度は同じ色に統一して見やすくしたいのですが、どうしたら良いでしょうか。
ttp://www.age2.tv/up2/src/age7927.jpg

ttp://www.age2.tv/up2/src/age7928.jpg

すみません、貼り直しました。

>>84
線の色を変える操作方法がわからないってこと？

>>79
全然ダメなんですが・・・
なんか馬鹿にされてるようで嫌気がさしました。
もう結構です。
ありがとうございました。

なつかしす。
大学の頃に言われた自己満グラフを思い出す・・
＞グラフにして何がわかるか？
＞なんとなくグラフ化しただけでないか？
＞見る気が起こらない。
会社入ってQC7つ道具知ってから指摘の意味やまとめ方を知った。


>>84
＞同じ年度は同じ色に統一して見やすくしたいのですが、どうしたら良いでしょうか。
色を同変更しても見やすくなんないよ。
まぁやるなら系列の書式設定（対象折れ線を右クリックね）

>>87
馬鹿なんだから謙虚にな
横柄な馬鹿ほどたちの悪いものは無い

>>89
てめえ、なに騙りやってんの？
そんなことするぐらいなら、>>52が満足するコードでも書いてやれよ。

>>90
回りくどい物乞い乙ｗ

セルを結合していると条件付き書式が正常に機能しない(罫線がらみの動作がおかしい)のは仕様？

>>89
79のコードを実行してみたか？
・カタカナを全角に
・英数字と全角スペースと（）を半角にする
これらの条件を満たしてないよ
（馬鹿なのはお前もだろｗ）

全角カタカナの処理をいれ忘れていたな。

荒れていますか？

平常運転です

うるせーバカ

>>86
>>88
1本ずつの色を変えるのは出来るんですが、一度に左と同じ色に出来たら簡単でいいなと。
私、零細企業の経営者で、新しい社員が客数の減少を気にして無くて危機感を感じています。
で、「2000年前後を超えられないんか!!」と活を入れるための資料ですw
やはり“系列の書式設定”で地道に行くしか無いでしょうか。

>>92
結合したセルを選んでみ
セルの名前はどうなってるよ？

>>98
地道にっていうほどのボリュームでもないと思うけどな
ここで質問したりSSとってアップしたりしてる時間があるなら終わるだろ

WinXPのExcel2003なんですが
顧客というか取引先というかお得意様というか、そういうようなののリストを更新してるんですが
会社名の欄に株式会社ウンコとか有限会社尻の穴とか大便株式会社とかいろいろ入ってて
あ、断っておくとこれは仮名で本当に実際にこの名前では入ってないんですが
その欄の左隣にフリガナが入る列を作りたいんですが
しかしながら株式会社とか有限会社の部分を省いたフリガナにしたいんですが
まずそのままPHONETICというやつを使ってみたんですが
困ったことにカブシキガイシャだけでなくカブシキカイシャとか混ざってるんですが
SUBSTIナントカっていう関数で消そうと思ったんですが
もうこれはカブシキガイシャとカブシキカイシャと、そして、ユウゲンのほうも
それぞれひとつずつSUBSTIナントカを使って消すしかないでしょうか？
正規表現的な、カブシキ[カガ]イシャで一発置換みたいな便利な方法って何かありませんか？
なお大変恐縮で申し訳ありませんが
VSBとかVBAとかいうやつはまったく使えませんが
いい解ケツ方法をなにそつお願いします！

>>101
csvなりで保存して正規表現が使えるテキストエディタで置換したほうが早いんじゃない。

あとSUBSTIナントカは確かワイルドカードが使えたと思うんで

カブシキ?イシャ

とか？

>>101
ウンコだチンコだ言って喜んでるやつは精神年齢5歳以下だろ

先生SUBSTITUTEはワイルドカードが使えません！
csv案は・・・これ年一回くらいしか更新しさなさせなそうだからそれでもいいかなあ・・・うーん
尻とかうんこは子供から大人まで大人気だと思うんですよ

関数をいっぱい入れたらノートパソコンがスゲー熱くなって再計算が10分くらいかかるのですが、どうにかなりませんか？

普通に置換は？　ワイルドカードが使えるだろ

；っｓｄｌｖ

>>106
・関数を消す
・シートを消す
・ブックを消す
・エクセルを消す
・ノートパソコンを消す
・10分早起きしてチャラにする


どれでも効果高いよ。

お、復帰した
>>101
http://www.dotup.org/uploda/www.dotup.org3393356.zip.html
IMEからよみがなを取得し、フリガナを右に表示するもの
変わった読み方でもいつも打ってる形で取り出してくれる
株式会社とかは最後に置換してくれ
>>106
関数をすくなるするかVBA
>>98
ネットでマクロ屋さん探したほうが早いかも
うまくいけば10000円ぐらいで作ってくれる。あなたの時給を考えれば妥当な解決方法かと

>>98
仮に出来上がっても、活は入れる側だけで受け手の同調無いと思うよ。
>88の通りで、自分が作りたいグラフが、見やすいグラフでは無いパターン。
物事にはセオリーがあって、それを知らないと自分の知ってる範疇で
事済まそうとするけれども、それが正解とも限らない良い例。

＞「2000年前後を超えられないんか!!」と
年の時系列（折れ線がセオリー）で示すべき。

今の段階では納得できないかもしれないが、残念ながら質問に対する
回答を踏まえて完成させたところで、望む結果を生まないよ。

▼━質問テンプレ (必ず使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

多変量解析で、（推計値）=ax+by+cz+dのように、係数a,b,c,dを求める関数は何なのでしょうか？
x,y,zは説明変数です

変数の数と同じだけ方程式ないと解けなくね？

関数じゃなくてソルバーって奴じゃないか
使ったこと無いから知らんけど

>>100
>>110
>>111
ご忠告通り、地道に変更したw　しかし思ったより時間がかかった。
左表の色などの条件を確認して他の表の変更をする・・・を繰り返すのは時間がかかる。
それと、2013以降のを変える方法がわからないので教えて下さい。
しかし何故に色が途中から変わってしまうものなのだろうか？
あと、凡例の絵で、線の上に蓋が付いてるのと下に付いてるのはどう違うのでしょう。
くだらん質問ばかりですみません。
開業23年で右肩下がり、60歳も近くなると心が折れる　ort

正直質問の意味が一番わからん
凡例のやつは背景色が関係してるっていう有名なアレのことか？

>>115
おいおいｗ　その見づらいグラフで説明される社員の方がよっぽどつらいだろ。
おまいさんはオナニーと大してかわらんだろ。

>>113 >>114アドインで多変量解析を選んで、計算させると係数がわかるんですが、毎回手作業でするのがめんどくさいので関数でもとまったらそっちのほうが速いんですわ

>>118
マクロ

ここ最近、ピボット厨が出てこないね

>>117
まぁ、その指摘はさんざん出てるしいいんじゃね
多分このじーさんは何言っても変えない
>>118
97と98年のこと？ただのマークのバリエーションだよ
ていうか早いとこ後継作りなよ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
お世話になります。
毎月の顧客ごとの売上げに使用しているのですが、
売上げがある月とない月がある業種の為、
AVERAGE関数を使用すると、顧客ごとのAVERAGEの合計と
全顧客の合計のAVERAGEが違ってしまいます。
かといって=SUM(○：○）/12　等では売上げ月が偏っている顧客の評価が下がってしまいます。
他によい関数がありますでしょうか？

具体的に例を上げて、この方法ではどんな困ったことがあって、どんな結果になってほしいのか説明したほうがいいと思います

今回は難問だな。

>>122
たとえばさ売り上げがない月には0がはいるとして
=SUM(○：○）/(12-COUNTIF(○：○,0))
とかじゃいかんの？

「顧客ごとのAVERAGE」というのが、この場合は
そもそも評価対象となる月数が顧客ごとに異なる可能性があるわけで。

その合計を取るという発想がそもそもおかしいような気がする。

全顧客のAVERAGEとは違って当たり前なのでは？

どうしても合わせたいなら、「売上月が偏る顧客の評価が下がる」ことは
前提の上でAVERAGEA関数を使い、売り上げのない月には「なし」とか
文字を入れておくくらいしかない。

売り上げのある月とない月のある顧客の平均はaverageifで0<を指定すればいいと思うんだけど（売り上げのない月に「0」が入ってないとだめだろうけど）

全顧客の平均は全月数で割るしかないから同じ数字になるわけがないと思う・・
違うかな？

エクセルとは関係ないからスレチ

OS：Windows 7
バージョン：Excel2003
VBA：忘れてます
VBAでの回答：なるべくなら不可

質問

シート1
A
あ
B
A
い
B

シート2
あ
い
う

シート1のようなパターン？のデータを作成したいのですが行き詰っています。
テンプレに囲まれたデータがあり、その間に入るデータが
シート2に連番に並べてあります。
一気にデータを作成したいのですが、3行分囲ってフィルハンドルでだら〜っとドラッグしても
「い」に入るべき文字が更に下の「え」になってしまいます。
関数を使って何かできないかと思っているのですが、何かいい方法ありますでしょうか？

何言ってんだ？コイツ

>>129
なるべくならお引取り頂くか、一度頭を整理されてからご依頼ください。

前スレの371なんじゃねーか？ｗｗ

>>116
http://www.age2.tv/rd05/src/up11379.jpg
このナベ蓋の位置と長さの関係が分からん。
団子の串刺しになってるのは分かるけど上下どっちかに偏ってるのは設定で変わるのかどうか。
>>117
年寄りをいじめてはいけませんw
“総合相談所”で気軽に聞けないのは窮屈ではないの。
で、そのまま社員に説明するわけじゃないよ、最近５年だけを３枚別々に印字したりするつもり。
このグラフをきっかけに、折れ線グラフの色を統一できないかな？と疑問に思ったところで質問したわけです。

子供叱るな来た道だもの、 年寄り笑うな行く道だものw

変わるのかどうかとか思考停止すんな
変えろ！

>>122
売り上げのない月にも０を入れているんじゃない？
そうでなければ、Averageでちゃんとした値が出るはずだよ。

>>133
2000年以降の集客の落ち込みを説明したいのなら
>>111氏も指摘されているように年度別のデータを折れ線グラフで表すべきです。
>>85で貼られてたグラフ見せられてもまず最初に分かるのは毎年8月は暇なんだなってことですよ。

>>132
129は、俺じゃねーよｗ

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

やりたいこと
アクティブでないセルの色を変えたい。

D列の任意のセルがアクティブのとき、B列のセルの色と文字色を
反転させるにはどうすればいいですか？

例えば、D7がアクティブのときはB7の色を反転（背景が白で文字色が
黒なら背景を黒にして文字色を白にする）、Enterまたは↓キーで
D8がアクティブになったらB8を反転、み・た・い・な感じです。

どうもここ最近、質問者が精神疾患を患っているケースが多く感じる。
当人は面白いと思って書いてるんだろうか？
まったくもって痛いだけなんだが。

>>139
中黒がキモイ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Columns(2).ClearFormats
　　Set TargetCell = Range("B" & Target.Row)
　　TargetCell.Interior.Color = vbBlack
　　TargetCell.Font.Color = vbWhite
End Sub

すげー、
使い方が判んないけど

おまえには言ってないから安心していい

>>141
アクティブセルがＤ列にない場合はＢ列の反転処理をしないようにするともっといいかも
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　Columns(2).ClearFormats
　If Target.Column <> 4 Then Exit Sub　←　Ｄ列以外のときは処理を抜ける
　With Range("B" & Target.Row)　←変数を使わずに済むため
　.Interior.Color = vbBlack
　 .Font.Color = vbWhite
　End With
End Sub

背景が白、文字色が黒ならいいけど、それ以外の色だと強制的にリセットされるのねｗ

好きなようにいじってくれればいいんだよ？

【1 OSの種類 　 　 　 .】 Windows XPとWindows7
【2 Excelのバージョン 】 Excel２００７ と２０１０
【3 VBAが使えるか　 　 】 こぴぺだけできます
【4 VBAでの回答の可否】 可


封筒の雛型を作り、シートに氏名や住所等のアドレス帳をいれて
別シート作って封筒の雛型として「ＶＬＯＯＫＵＰ」でアドレス帳を参照させて
印刷をしています。
しかし、ＶＬＯＯＫＵＰの検索値を都度、手入力で変更し→印刷、と言う行程
は時間がかかるので、ＶＢＡで自動化できればと思います。


今の状態
・封筒の雛型シートＡ１〜ＡＨ３６が印刷する範囲です（既に印刷範囲にしています）
・セルＡＫ１にＶＬＯＯＫＵＰの検索値が入力されています。
・セルＡＫ２に開始�ｂｪ入力されています
・セルＡＫ３に終了�ｂｪ入力されています

ＶＢＡの内容
・ＡＫ１の値をＡＫ２にする→Ｅｎｔｅｒ→印刷実行→
以降ＡＫ１の値を１づつ繰り上げて、その都度Ｅｎｔｅｒ→印刷実行
この作業をＡＫ３の値まで続けて終了（ＡＫ３の値も印刷します）。

宜しくお願いします。

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

会計関係に使うファイルを使っています。シートが2種類あり、1枚目は予算書、2枚目は支払決定書になります。
予算書のD列に項目、F列に品目、G列に単価、H列に数量、M列に金額、O列に通し番号があります。

支払決定書のB列に番号を打ち込むと、D列に品目、Y列に数量、AB列に単価、AF列に金額、
AL列に項目が転記されるように
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
の下に以下のようなコードを作りました。

Set 予算 = Sheets("予算書") '業者者名から住所付き
Set lst = Sheets("シートバックアップ")
Set 執行 = Worksheets("執行伺兼支払決定書")
略
For 番号 = 20 To 100
品目1 = 執行.Cells(14, 2) '品目1　 　数字を増
If 予算.Cells(番号, 15) = 品目1 Then '品目の数字を増
執行.Cells(14, 4) = 予算.Cells(番号, 6) '項目
執行.Cells(14, 28) = 予算.Cells(番号, 7) '単価

執行.Cells(14, 25) = 予算.Cells(番号, 8) '21を増
執行.Cells(14, 39) = 予算.Cells(番号, 16) '21を増
執行.Cells(14, 40) = 予算.Cells(番号, 14)
End If

品目2 = 執行.Cells(15, 2) '品目2　 　数字を増　Cells(番号, ★)★を増
If 予算.Cells(番号, 15) = 品目2 Then '品目の数字を増
執行.Cells(15, 4) = 予算.Cells(番号, 6)
執行.Cells(15, 28) = 予算.Cells(番号, 7)
執行.Cells(15, 25) = 予算.Cells(番号, 8)
執行.Cells(15, 39) = 予算.Cells(番号, 16)
執行.Cells(15, 40) = 予算.Cells(番号, 14)
End If

以下略

この支払決定書では5品目まで記入できるのですが、
予算書にない項目を記入したいときは、マクロなし
のシートをコピーして使っています。
できれば、（例えば）品目1〜３は予算書のリストから転記して
品目４〜５は自分で品目、項目、数量、単価、項目を自由に記述
させるといったことは可能でしょうか。できればボタンに登録した
マクロで実行というのは避けたいのですが。
よろしくお願いします。

>>141
サンクス子〜
中黒ってキモいです？
なんかいい漢字なんすけどー。

>>144
ども〜
いいねいいね〜　いいよいいよ〜
こっちを使わせてもらいます。

148,149です。
自己解決しました。
お騒がせしました。

>>147

Sub Macro1()
For i = Range("AH2") To Range("AH3")
Range("AH1") = i
ActiveSheet.PrintOut
Next
End Sub

これでいけると思う

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

例）
2012/08/25　300
2012/08/30 250
2012/09/01 23
2012/09/03 100
2012/09/06 80
・
・
と言った感じで1年分のデーターがずらりと縦並びにひたすら並んでいるのですが
この状態のまま月ごとの統計とか曜日ごととかの様々な統計を取ることは出来ないのでしょうか？
今は調査したい項目数分表を丸々複製してソートして並べ替えて月ごとや曜日ごとに切分割してそれを分析したりしてます
何十種何百種類もこういうデーターがありもの凄く骨が折れる作業となっています。。

詳しい方いらっしゃいましたら宜しくお願い致します。

>今は調査したい項目数分表を丸々複製してソートして並べ替えて月ごとや曜日ごとに切分割してそれを分析したりしてます
表現が変でしたすみません。
ソートした後にそこからコピペで月別曜日別に分割した表を作ると言う事です。（月は12種類　曜日は7種類ソート結果から抽出して作っています。）

>>153
>>154
引用出来ておらずすみません。
さすがにこんなめんどくさい事はそう簡単にはできないでしょうか。
でもこの問題は年間の統計を取る上ではありがちな問題かと思い聞いてみました。

>153-155
ピボットテーブル使えばええんと違う？

作業列に曜日と月を出してピボットするだけのことだな

>>153
俺も156-157のとおり、作業列として月の列、曜日の列とか作って、ピボットテーブルで作業しているな。

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

特定の単語だけフォントで色を変えた文字列があって、
そこから色の変わっている単語だけを抽出したいのですが、
文字列操作関数はフォント情報を記憶したまま文字列を抽出することはできないのでしょうか？

試しに、A1セルに7文字目以降を赤くした文字列を入力して、
Cells(1, 3) = Left(Cells(1, 1), 10)
というVBAを試したのですが、フォント情報がリセットされてしまいました。

ピボット厨の自演　ｷﾀ━━━━━━━━━━━━━━(ﾟ∀ﾟ)━━━━━━━━━━━━━━ !!

あ、ごめん
リロードしてなかったから書くタイミングを外した・・・

>>159
文字の属性まできちんとコピーするのはけっこう面倒
セル全体をコピーしてから不要部分を削った方がたぶん簡単

>>158
>>156
ピボットテーブル
なるほどまだ使ったことがありませんが勉強してみます。ありがとうございます！

>>159　フォントの色を赤（ColorIndex=3)で抽出するマクロです
Option Explicit
Dim c As Range, i As Integer, moji As String
Sub test()
　For Each c In UsedRange　'当該シートのデータ全体を対象としています　必要に応じて範囲制限を
　　moji = ""
　　For i = 1 To Len(c.Text)
　　　 If c.Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Then　'一文字分ずつ色を調べてます
　　　　moji = moji & Mid(c.Text, i, 1)　　　　　'該当すれば出力用変数へ追加して
　　　End If
　　Next i
　　If Len(moji) > 0 Then　'当該セルに一文字でも該当したら検査対象セルの３列右へ出力
　　　c.Offset(0, 3).Value = moji ' 3 は3列右へ出力することを示す
　　End If　'なお、抽出したセルへのフォント色指定は入れてないので、必要に応じて追加のこと
　Next
End Sub

>>162
じゃあ特定の文字色が何文字目にあるかを取得することはできますか？
mid関数とdo loopで一文字ずつ潰してく方法をやったら無限ループにはまりました・・・。

>>162,164
リロードしなかったら・・・
すみません。助かりました。そのコードを基にやってみます。

>>166
164のマクロはフォントの色=３で抽出しましたが、
標準の色以外のときに抽出する、ということであれば
前略〜.ColorIndex = 3 Then　の行を
前略〜.ColorIndex <> 標準のフォントカラーのインデックスを示す数字 Then
にしたらいいと思います。テストはしてません。

ではおやすみなさい

Excelの機能を１つ１つ理解し収得するのは結構な時間と労力と精神力を使う作業で疲れている時に行き詰まって
この使ったことが無い機能を2つマスターしないと先へ進めないよという状況になってももう無理！みたいな時もあるかと思うのですが、　そんな時に
代表的な機能の概念と使い方例を動画で説明してくれているような神サイトはないのでしょうか？！

ある程度の知識がある状態なら、動画で見るより解説の文章を読んだ方がずっと早いんじゃないか？ヘルプとか

>>168
具体的な目的は何なの？
自分に必要のない機能や操作まで覚える必要はないと思うけど

>>168
必要になったときに調べたり聞いたほうが効率がいいよ。
仕事に就けば、業種や職種によって使う機能が違うこともあるだろうし。
概念を知りたいなら、同等の機能を有する関数を自作してみればいい。

初心者なんですがよろしくお願いします。
エクセル2010.VBAについて。
マクロでコマンドボタン作成してそのコマンドボタンに別のマクロを登録します、
ここまではできたのですが、ボタンの色変更とcaption　で手こずっています。
このマクロで
ActiveSheet.CommandButton1.Caption = "あああ"
ActiveSheet.CommandButton1.BackColor = &HC0FFC0
と入力してもできません、別のマクロを作ってこのコードだけ実行するとできます。なぜ？？
ぜんぜんわかりません、教えてくださいおねがいします、

>>172
ボタンの番号間違ってない？

VBAでArray(10000, 10)って感じの二次元配列からRange("A1:K10001") = Arrayみたいに
一括でデータを書き込んで、Columns("A:K").Sortで書き込んだデータの並べ替えを
行ってるんですが、配列内のデータがセル内改行を含む場合、書き込み及び並べ替えの
処理に異常に時間がかかります。(それぞれ150秒、150秒で計5分くらい)

思えば普通にExcel使ってる時もセル内改行を含むデータを大量にコピペするとえらく処理に
時間がかかってますが、これの原因と対策ってなにかありますか。
コピペの場合、Paste:=xlPasteValuesでAutofitが働かないようにすると一瞬なので、Autofitで
行の高さを調節するのが時間食ってるとかだと思うんですが。

172です。
>>173
ボタン間違っていません。

コマンドボタンをＶＢＡで作成、マクロ登録。
プログラムが全然わからなかったから自動記録でやってみました。
ボタン作成とボタンサイズ、作成位置はプログラムでましたが色の変更、コマンドボタンに表示される名前変更は自動記録でもプログラムがでてきませんでした。
なので　色の変更、ボタン名変更は調べました。
自動記録でできたプログラムの下に色変更、ボタン名変更プログラムを張り付けて実行してもエラーになってしまします。
プログラムは次で書きます。

Sub コマンドボタン作成()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=452.647058823529, Top:=27.3529411764706, _
Width:=132.352941176471, Height:=47.6470588235294).Select

ActiveSheet.CommandButton1.Caption = "ボタン"
ActiveSheet.CommandButton1.BackColor = &HC0FFC0
End Sub
実行すると、、、実行時エラー'438!
オブジェクトはこのプロパティまたはメソッドをサポートしていません。と表示されます。
プログラムの空白行上は実行されています。下がだめのようです。
空白行の上と下のプログラムを別の標準モジュールで作成して別々に実行すると、ボタン作成がに色変更、ボタン名変更ができます。

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

なんとか同じマクロで目的を遂げたいです。
上記プログラムのどこが良くないのでしょうか？
どなたか教えていただけませんでしょうか。

activesheet のところをworksheets で指定もしてみましたがだめでした。
別々にマクロつくって、
空白行下のところを call でやってみたりしましたができませんでした。

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

178です、書き忘れましたすみません。
コマンドボタンにマクロ登録するプログラムははぶきました。短くしたかったので。
上記プログラムは、、、
コマンドボタン作成（サイズ、位置も）→コマンドボタン名変更、色変更。のものです。

>>179
Sub コマンドボタン作成()
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=452.647058823529, Top:=27.3529411764706, _
Width:=132.352941176471, Height:=47.6470588235294)

.Object.Caption = "ボタン"
.Object.BackColor = &HC0FFC0
End With
End Sub

>>180

正解

ついでに綺麗にして見た

Sub コマンドボタン作成()
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1")
.Left = 452.647058823529
.Top = 27.3529411764706
.Width = 132.352941176471
.Height = 47.6470588235294
.Object.Caption = "ボタン"
.Object.BackColor = &HC0FFC0
End With
End Sub

おっと、
>>182 は >>180 さんの回答を参考に綺麗にして見たってことね

>>180 , 181 , 182 さん ありがとうございます。すごいですね。
最初の質問なんですが内容が伝わりやすいようにマクロ登録部分は削ったのですが（特に問題はないだろうと思ってましたが、）、今度はマクロ登録ができなくなってしましました。
>>176 の空白のところに下記プログラムが入っていてボタン作成（サイズ、位置）とマクロ登録ができていました。
Application.Goto Reference:="テスト"
ActiveSheet.Shapes.Range(Array("CommandButton1")).Select
すみませんが少し教えてくださいお願いします。

あ

何勝手に削ってんだよ
謝罪はしてくるんだろうな？

>>174 わかる人誰かいないかな……

コピペや書き込みなら
Application.ScreenUpdating = False
として、必要な処理を行い
Application.ScreenUpdating = True
で戻すと、相当処理が早くなるけど、今回の場合これ適用できるかな？

並び替えは、（おそらく書き込み時に時間かかっているので）上記のように書き込んでから
シートのソートを行えばどうでしょう。ソート自体は 0.x秒程度しかかからないでしょう。

時間がかかってるのは、書き込み時にセルごとに書式がかかってるからじゃないかな。
書式かけたければ、最初のようにするか、Ｒａｎｇｅでまとめてかければ早くなると思う。

>>188
お、レスサンクスです。
しかしApplication.ScreenUpdating = Falseあたりは実は
試したんだけどほとんど改善しなかったのです……。
多分バックグラウンドで行の高さかなんかを計算してるん
じゃないかと思ってるんですが。

>>189
書式抜きに貼ってからソートとか処理して、最後に高さ含めて書式を整える方向で組んだらどう？

>>174>>187
配列ん中でソートすればいいんじゃないの

後は、全行で高さを最大にしてから行の高さを適宜戻すとかもためしてみるといいかもしれない

>>190
二次元配列からセルに書き出すのって書式を貼ってるわけではないはずなんだけど、
確かにセル内改行を含むデータを入力したセルには「折り返して全体を表示する」書式が
自動的に設定されてるっぽいですね。
Range("A1:K10001").Value = Arrayとかではダメでした。

>>191
一応セル内改行を含むデータが入るまでは書き出してソートの方が早かったので
ちょっと検討してみてるんですが、もう少し頑張ってダメそうなら配列内ソートで
済ませることにします。

行の高さを最大にしてってのはやってみたんですが、現在の行の高さに関係なく
文字を入力すると高さを再計算するみたいでした。

非常に泥臭い手としては一旦二次元配列内のデータをクリップボードに移して
テキスト貼り付けするとか試してみようかな……。

色々ありがとうございました。いくつか思いつくこともあったのでこっから先は
自分で頑張ってみようと思います。

【1 OSの種類 　 　 　 　 .】 Windowsvista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい(少しですが)
【4 VBAでの回答の可否】 可
スレ違いかもしれないのですが
かんたんレイアウトというアドインを使って複数列（行)に分割と言う作業をやっています
繰り返し処理をしたいのでこのアドインの操作をマクロとして使用したいのですができるでしょうか？

184です。
ＶＢＡにてコマンドボタン作成しマクロ登録なんですが、、、
184で書いたプログラムなんですが、マクロの自動記録したワークシートでしかコマンドボタンにマクロ登録できませんでした。
他のワークシートではダメのようです。
ぐぐっていろいろみたのですが１つもＶＢＡによるコマンドボタンのマクロ登録がありません。
もしかしてＶＢＡでコマンドボタン作成してマクロ登録はできないのでしょうか？

>>194
登録って？クリックイベントに書いておくだけじゃないの。

>>194
色つかないけどフォームのボタンじゃだめ？
Sub 色なしボタン作成()
With ActiveSheet.Buttons.Add(452, 27, 132, 47)
.OnAction = "テスト"
.Characters.Text = "ボタン"
End With
End Sub

>>194
追いかけるの面倒だから自己紹介の時は
>>176、>>184、…
と全部書いて欲しい
あとbookをアップロードすればすぐに解決しそうな予感

>>196
できました。本当にありがとうございます。
ぐぐっても全然探せなかったので助かりました。
ボタンについてもうちょっと調べてみます。ありがとうございました。

>>197
すみません。次から気を付けます。

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

値でなく行番号を返す Large() が欲しくて MatchLarge() という関数を自作したのですが、ワークシート上でうまく動きません。
以下のような結果を期待しているのですが

8 MatchLarge(1, $A:$A) -> 8 1
7 MatchLarge(2, $A:$A) -> 7 2
6 MatchLarge(3, $A:$A) -> 6 3
5 MatchLarge(4, $A:$A) -> 5 4
5 MatchLarge(5, $A:$A) -> 5 5
4 MatchLarge(5, $A:$A) -> 4 6
3 MatchLarge(5, $A:$A) -> 3 7
2 MatchLarge(5, $A:$A) -> 2 8
2 MatchLarge(5, $A:$A) -> 2 9
1 MatchLarge(5, $A:$A) -> 1 10

実際使ってみると5, 9行目が #VALUE! になってしまいます。
次のレスで関数本体を貼ります。

>>199の関数です。
----
Option Explicit

Function MatchLarge(rank As Double, range_ As Range) As Double
Dim value As Double
Dim rankeq As Double
Dim n As Double
Dim cell As Range
Dim i As Double
value = WorksheetFunction.Large(range_, rank)
rankeq = WorksheetFunction.rank(value, range_)
n = rank - rankeq
Set cell = range_.Find(What:=value, LookIn:=xlValues, LookAt:=xlWhole)
For i = 1 To n
Set cell = range_.FindNext(cell)
Next
MatchLarge = cell.Row
End Function

Sub test()
MsgBox (MatchLarge(5, Range("$A:$A")))
End Sub
----
マクロ test() を実行した場合は期待した結果(5)が表示されるのですが、ワークシート上で MatchLarge(5, $A:$A) と書くと #VALUE! になります。
動かない理由がわかる方がいたらご教示願います。

>>199は一部コピペミスです。すみません。

8 MatchLarge(1, $A:$A) -> 8 1
7 MatchLarge(2, $A:$A) -> 7 2
6 MatchLarge(3, $A:$A) -> 6 3
5 MatchLarge(4, $A:$A) -> 5 4
5 MatchLarge(5, $A:$A) -> 5 5
4 MatchLarge(6, $A:$A) -> 4 6
3 MatchLarge(7, $A:$A) -> 3 7
2 MatchLarge(8, $A:$A) -> 2 8
2 MatchLarge(9, $A:$A) -> 2 9
1 MatchLarge(10, $A:$A) -> 1 10

が正しいです。

>>199
8 MatchLarge(1, $A:$A) -> 8 1
7 MatchLarge(2, $A:$A) -> 7 2
6 MatchLarge(3, $A:$A) -> 6 3
5 MatchLarge(4, $A:$A) -> 5 4
5 MatchLarge(5, $A:$A) -> 5 5
4 MatchLarge(5, $A:$A) -> 4 6
3 MatchLarge(5, $A:$A) -> 3 7
2 MatchLarge(5, $A:$A) -> 2 8
2 MatchLarge(5, $A:$A) -> 2 9
1 MatchLarge(5, $A:$A) -> 1 10
の意味がわからない
後、左端の数字で２と５がかぶってるんだけどそれはいいの

>>202
重複を許した順位を取得してランキング表のようなものを作りたいという意図です。
例えばテストの得点表が以下のようになっていたとして

A B
----
鈴木 100
佐藤 90
田中 90
中村 80
...

C列に Index($A:$A, MatchLarge(ROW($A1),$B:$B)), ... のように書けば上位n名のリストが出てくる、という感じです。
Large() と Match() を組み合わせる方法だと、同点の人がいた場合常にリストの一番上の人が該当してしまうので
それを回避するために関数を自作しようと思いました。

>>202
マジ分かりづらい質問ではあるが、多分こういう事だと思う

A列(A1〜A10)に8〜1の数字が書いてあって（君も指摘するように2と5は2つずつある）
B列(B1〜B10)に自作関数とやらが入ってる
その結果が　->　の右側のようになってほしい
ということだろうと思われる

で、思ったんだが
Largeと組み合わせるならRankよりもMatchのほうが良いんじゃないかと。

>>203
>Large() と Match() を組み合わせる方法だと、同点の人がいた場合常にリストの一番上の人が該当してしまうので
>それを回避するために関数を自作しようと思いました。

あー、そういうことか

ピボットつかえばいいじゃん　上位ｎ位っていうフィルターがある

>>206
データの量が多く(130*100000程度)、数式を含む列もあるせいかフィルタで並べ替えようとすると数十分経っても終わらないのです。
一時的に必要な列だけ抜き出して列数を減らせばなんとかなるのですが、集計したい列が多いため毎回それをやるのは避けたいと思っています。

書き忘れましたが、もう一つの理由として
データが定期的に追加されていくため、数式の形でランキングを作っておけば自動的にランキングも更新されて楽だというのもあります。
なので、できれば関数で処理したいです。

>>203
デバッグはしてないが、できればその状態で先に本データで試してみて欲しい
130*100000程度のデータとあるが、多分フリーズする。しなければ手伝おうと思う
Findが鬼門になると思う

別の手段として、>>203のデータを元にすると
C1=B1+ROW()/1000000
として
Cを参照すればB列の重複がなくなるので、普通にRankかLargeで取り出せると思う

C1=B1+ROW()/1000000
はもちろんVBAでやったほうが軽いが、そこは任せる

問題は少数誤差だが、それもVBAで検知すればいいと思う
C1=COUNTIF(C:C,C1）
で2以上ならどこかおかしいはず

FindNextがNothingを返すのはなぜ？test()から呼び出すと正しく動くのに。
って質問かと思ってた

>>209
本データで試していますが、重複項目は #VALUE! になるものの重複していない項目の行番号はすぐに取得できました。
ただ、
> C1=B1+ROW()/1000000
の方法は検討していなかったので試してみようと思います。実数データもあるので可能かどうかまだ不明ですが、値域次第ではいけるかもしれません。
ありがとうございます。

>>210
値を返すところを
MatchLarge = IIf(cell Is Nothing, -1, cell.Row)
と書き換えてみましたが、やはり #VALUE! のままになってしまいました。
VBAはあまりよくわかっていないのですが、Nothing になっているわけではないようです。

10万行もあるなら　Access使ったほうがいいとおもう

141中黒キモオ氏のを改造して、Ｅｘｃｅｌ2010のブックにも取り込みました。
うん、なかなかいい感じ。
罫線があるので、Columns(2).ClearFormatsはやめました。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　Range("B8", Range("B1048576").End(xlUp)).Interior.Pattern = xlNone
　Range("B8", Range("B1048576").End(xlUp)).Font.Color = 0

　Range("B43").Interior.Color = 16777215
　Range("B43").Font.Color = 255
　Range("B192").Interior.Color = 16777215
　Range("B192").Font.Color = 255
　Range("B44:B54").Interior.Color = 14281213
　Range("B44:B54").Font.Color = 0
　Range("B188").Interior.Color = 14281213
　Range("B188").Font.Color = 0
　Range("B260:B311").Interior.Color = 14281213
　Range("B260:B311").Font.Color = 0
　Range("B73:B98").Interior.Color = 16777181
　Range("B73:B98").Font.Color = 0
　Range("B99:B126").Interior.Color = 16382463
　Range("B99:B126").Font.Color = 0
　Range("B125").Interior.Color = 16382463
　Range("B125").Font.Color = 16711680
　Range("B172").Interior.Color = 13434879
　Range("B172").Font.Color = 0
　Range("B312:B317").Interior.Color = 13434879
　Range("B312:B317").Font.Color = 0
　Range("B199:B247").Interior.Color = 16777215
　Range("B199:B247").Font.Color = 10921638
'続く

'213の続き
　Set TargetCell = Range("B" & Target.Row)
　Application.ScreenUpdating = False '←質問その�@の箇所
　If Target.Row >= 8 And Target.Row <= Range("B1048576").End(xlUp).Row Then
　　TargetCell.Interior.Color = vbBlack
　　TargetCell.Font.Color = vbWhite
　End If
　Application.ScreenUpdating = True
　Set TargetCell = Nothing
End Sub
-------------------------------------------------------

今回の質問は3つ

質問その�@
矢印キーで上下させると僅かなタイムラグが出るので、もっと素早く
することはできるでしょうか？
Application.ScreenUpdating = False（True）を組み込んだら砂時計が出てきて
なぜか処理が遅くなりました。

質問その�A
毎月追加するシートなので、毎月マクロを追記することになりそうですが、
どこか1ヶ所に書いておけば、同一ブック内の全てのシートに
繁栄させることができるでしょうか？

質問その�B
Excel2010のブックをBook2010.xlsx、Excel2003のブックをBook2003.xlsとしたとき、
Book2003.xlsにマクロを書いて、Book2010.xlsxにこの動作をさせることが
できますか？（Book2010.xlsxなので、これにはマクロを書かない）

>>203
フィルターだとイヤってな感じなのね？

VBAで各シートのA列を連結させてその中から重複する行を削除して
新しいシートに張り付けたいのですがやり方としては
全シートを順番にA列をコピーして新しいシートにデータを貼り付ける
→並び替えをして1行目から見て行って、上下で同じデータの場合上の部分を削除
こういうやり方があると思いますがこれだとかなり時間がかかります
関数とか使って他に方法はあるのでしょうか？

一般的な回答者って>>216みたいな質問は意味を理解できるもんなの？

>>216
ハッシュ的に
scripting.dictionaryを使用したらどうだろう。
コピーせずに、それぞれのシートのデータを順に読み
項目が重複していない場合（新規の項目）は、項目を作成
項目が重複している場合（既存の項目）の場合は処理をパス。
全部読み終わったら、シートに書き出し。

以上となる。

>>216
http://officetanaka.net/excel/vba/speed/s1.htm
この辺のVBA高速化を使えばそれなりに早くなる
あと行削除の場合は最後の行から上に向かう処理をしないと面倒になる
>>217
これに関しては余裕。たぶん多くの回答者はこのやり方を一度は考えたことあるんじゃなかろうか

>>216
フィルタオプションの設定で重複レコード無視にすればいいんじゃないの？

>>216
まさか人力で重複を探してるの？
メニューから「重複の削除」で一発だよ

シート数が多くてコピペに時間がかかるってんならVBAで

ﾋﾟﾎﾟｯﾄを始めたばかりの初心者で1日目にしてわけがわからず挫折しそうなのですが　
ﾋﾟﾎﾟｯﾄは大体何週間もしくはヶ月ぐらいでマスターできるのでしょうか？

pivottableな。

俺なら1日。
>222のような間抜けな質問をしちゃう奴なら1年は見た方が良い。

>>222
基本機能覚えるだけなら1日で十分だな。これはもともとエクセルに対する慣れがかなり大きいと思うけど
まぁ気長に使い続ければ、いつかハッと使えるようになる。

マスター、となると話は別でそこまで使い込む機能でもないから一生無理そう
後はグラフとか、図形描画とかな。

>>223
まだ大部分の関数の使い方を知らないExcel初心者です。
ﾋﾟﾎﾟｯﾄあれこれ試した結果最後に何もかも1列に圧縮されてしまって超細長い表が出来たのを見てだめだこりゃと思いましたｗ

>>223
ﾋﾟﾎﾟｯﾄは計算結果をある程度頭の中でシミュレーションできるようにしておかないと危なっかしいかんじがしますね、結構コツと慣れが必要かと思いました。

>>225
┏┓　 ┏━┓　 　 ┏┓　 　 ┏┳┓　 　 　 　 ┏┓　 　 ┏━━┓　 　 　 　 　 ┏━━━┓┏┳┓┏┳┓
┃┗━┃○┃┏━┛┗━┓┃┃┃　 　 　 　 ┃┃　 　 ┗━━┛　 　 　 　 　 ┗━━┓┃┃┃┃┃┃┃
┃┏━┗━┛┗━┓┏━┛┗┻┛　 　 　 　 ┃┗━┓┏━━┓┏━━━┓　 　 　 ┃┃┗┻┛┃┃┃
┃┃　 　 　 　 ┏┓┃┃┏┓　 　 　 ┏┳┳┓┃┏━┛┗┓┏┛┗━━━┛　 　 ┏┛┃　 　 　 ┃┃┃┏┓
┃┗━┓　 　 ┃┃┃┃┃┃　 　 　 ┗┻┫┃┃┃　 　 ┏┛┃　 　 　 　 　 　 　 ┏┛┏┛　 　 　 ┃┃┗┛┃
┗━━┛　 　 ┗┛┗┛┗┛　 　 　 　 　 ┗┛┗┛　 　 ┗━┛　 　 　 　 　 　 　 ┗━┛　 　 　 　 ┗┻━━┛
だよく見ろ

>>200の関数ですが、

Set cell = range_.FindNext(cell)

の行を

Set cell = range_.Find(What:=value, After:=cell)

に変更したところワークシート上でも動作するようになりました。
理由はよくわかりませんが、ユーザ定義関数内では FindNext() は使わない方がいいということですかね…。

Excelはピボットを使うためにあるんだよ
ピボットできれいな結果を出すために、どういうテーブルを構築するかがコツ

10万行もあるのに関数で抽出するってアホだな
ピボットのトップテンって時間はかからねーよな

>>228
そんなことはないと思う
findnext　エラ-辺りでぐぐってみては
>>229
へぇ、知らなかった

エクセルは関数が扱えて3割、マクロが使えて7割だ。
関数もマクロも使えないようじゃ、エクセルを使う意味は特に無い。
片手間でも使わざるを得ない内容は、誰かに任せるのが良い。
10倍の効率で処理してくれる。
まぁ俺クラスになると20倍だけどな。

ねーねー、213だすけど
誰か教えてちょ〜♥

>>233（>213-214)
�@できる
�Aできる
�Bできる

>>233
オカマみたいな喋り方ね。まぁいいけど

1.解決策としては
a.Application.ScreenUpdating = False　は一行目に書く。また自動計算もついでに切る。vba　自動計算　停止　でぐぐれ
b.マクロをまとめる
Range("B43").Interior.Color = 16777215
Range("b192").Interior.Color = 16777215
は
Range("B43,b192").Interior.Color = 16777215
といった感じ
c.もっと範囲を狭める。
具体的にはフォントカラーがvbWhiteのところだけを調べ、上記の色に戻す。

2.シート1に
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
call　a
End Sub

標準モジュールに
sub a
さっきの中身
end sub

3.
ファイルをオープンしてrunだったと思う
他ファイル　マクロ　でぐぐれ

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


csvファイルを何回も開く、計算、閉じるをすると
ファイルを何回も開いて、閉じてるのが見えて処理に時間がかかっているのですが
開いてるのがわからないようにして処理を早くできないでしょうか？


今こんな感じです。


a(1) = "Book1.csv"
a(2) = "Book2.csv"
a(3) = "Book3.csv"

Application.DisplayAlerts = False
Application.ScreenUpdating = False

for i =1 to 3
　Workbooks.Open ThisWorkbook.path & "\" & a(i)
　call 計算
Workbooks(a(i)).Close
next

Application.ScreenUpdating = True
Application.DisplayAlerts = True

>>236
CSVファイルのオープン･クローズに時間がかかるのは
そのCSVファイルのサイズにもよるけど、どうにも出来ません。
改善できるとすれば
>call 計算
の部分の中身しだいです。
そこのコードが分からないとこれ以上は回答できません。

ファイルの内容をバイナリで読み込んで・・・

>>236
これってCSVファイルをOpenしないとダメなの？
ちょっとスレチで申し訳ないが、高速に読み取るならOpenTextFileとかで出来るよ

>>235
エロエロ書いてくれてありがとう。
全部検証してないけど、やったものだけ書いておきまする

＞a.Application.ScreenUpdating = False　は一行目に書く

10秒間で動くカーソルの速度を計ったら、約30％の悪化ｗ
Application.ScreenUpdating = Falseを書かない方が何故か早い


＞自動計算もついでに切る

こちらは約5％の改善


＞マクロをまとめる

ほとんど変化なし


＞もっと範囲を狭める

ほとんど変化なし


取りあえず、途中報告ね

無駄な改行超うぜえ
てきとーな%も腹立つわー

正確なパーセンテージを書いたところでなんら解決には至ってないことに気づけ

>>240
話を聞くだけだと相当古いPCを使ってるかウィルスにでもかかってるのでは？と疑ってしまう。
>Application.ScreenUpdating = Falseを書かない方が何故か早い
なら書かなくてよい
＞マクロをまとめる
のは速さだけでなく見やすくするためでもある（主に回答者が）
つまり気を使えって事
で、3.をしっかりやった後でも遅いならPCの性能が低いとしか言いようがない
もしくは劣化している。ノート、Pen4なら恐らく熱で死んでる。
sandy以降のプロセッサに買い換えることをおすすめする。

>>241>>242
アメブロを見たことあるが、普通に5,10行は開けていた
何が楽しいのかはわからんが、当人たち同士は楽しいのだろう。
%も同じでまぁ遅いか早いかだけみてあとは見ないふりをしよう。
気にしないのが一番。

＞マクロをまとめるのは速さだけでなく見やすくするためでもある（主に回答者が）
回答者のために質問するスレだったのかｗｗｗ

＞アメブロを見たことあるが、普通に5,10行は開けていた
＞何が楽しいのかはわからんが、当人たち同士は楽しいのだろう。
なんという情弱ｗｗｗ

>>237
>>238
>>239
OpenTextFileを明日ためしてみようと思います。
レスサンクスです。

>>244>>245
煽るのは構わんがもうちょっとレベル上げて欲しい。
回答の間違いを指摘するとイラッとくるからそこを責めれ。

動作が遅いからPCのせいにする
これがレベルの高い回答かね？

>>247
ブログ　改行　でググれ













＞アメブロを見たことあるが、普通に5,10行は開けていた
＞何が楽しいのかはわからんが、当人たち同士は楽しいのだろう。














これの答えがわかるよ

ブログなら好きにしろ
だがここは2chだ
豪に入っては豪に従いたまえよ

他人にはググれと書いてるくせに自分ではググらないんだね
それともググったけど分からなかったというオチか

あーもうおまえら全員謝罪しろよ

＞＞２３６の改行は許せるの？

ダブル行空けはシングル行空けにするといいとは思うが
それだけだな

>>240はシングル行空けですら無駄でうざい部分ばかりだろ
大きな違いは意図をもって行っているか、その意図を感じられるか、だ

236も無駄な改行してるのに一切触れない
235の回答が結果的に的外れだったから240に八つ当たりしてるんだろ？
子供かよ

誰に対してレスしてんだ？

>>243=>>247にせっかく教えてやったのにお礼もできないなんて人間の屑だな

まったくだ
謝罪しろ

>>249
おぉ、PV稼ぎだったのかありがとう！
メールでもそういう人いるから気づかなかった。
みんな頭おかしいと思ってたわ。
>>257
いいんじゃね？そんなこと気にしてたら胃に穴開くぞ

>>1-1000
拝啓
平素より格別のお引き立てを賜りまして誠にありがとうございます。
この度は当方の書き込みにより不愉快な思いをさせてしまい
大変ご迷惑をおかけして誠に申し訳御座いませんでした。
またお申し出の際、対応させて頂きましたいた私の態度に
ご無礼のありました件につきましても、重ねて謹んでお詫び申し上げます。
今回のご指摘を頂き、 より一層書き込みへの配慮を徹底する必要性を痛感しております。
今後このようなことが二度とありませんよう、誠心誠意努力をしてまいります。
また今後とも当スレをご利用いただけますよう平に伏してお願い申し上げます。
敬具

誰だおまえ723か？

>>235
2は、ちょっち後回しね

＞ファイルをオープンしてrunだったと思う
＞他ファイル　マクロ　でぐぐれ

ぐぐってみたけど、よくワカラン・・・
1) Book2003.xlsにPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)を書く（以後、鮪1と略す）
2) Book2010.xlsxを開く
3) 鮪1をBook2010.xlsxにインポート
4) Application.Run "Book2003!鮪1"
5) Book2010.xlsxをアクティブにして、カーソルをグリグリ・・・セルの色が反転
という流れになりますの？
（やり方がマズーなのか動かないですが）

>>243
４年前に買ったPCなので確かに古いですね〜
CPUはインテルT5500というやつですた。
PCウィルスはノートン先生でチェックしてるので大丈夫だと思うますよ〜

で、243さんのPCで213-214のマクロを実行したとき
Application.ScreenUpdating = Falseの有無でどれくらいの
速度差が出ますたか？

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 丸々コピペするだけでできる程度のものなら可、それ以外は否

ttp://blog.livedoor.jp/shara915/archives/14904765.html
これと似たようなものを作りたいので、参考に同じものを作ってみようと思ったのですが

>そして二つの相性を足し算。
>そうすると?２、?１、０、１、２、１０以上の６パターンができるので、
>これに３を足して整数にする。１、２、３、４、５、１０以上
>１０以上を６に変換。
>
>MID関数を使って
>１を▲
>２を△
>３を◯
>４を◎
>５を☆
>６を?
>に割り当てる。

ここが全くわかりません…
どこにどういった式を入れればいいのでしょうか？
現在は表だけ作ってあり、下記の画像のような状態です。
http://iup.2ch-library.com/i/i0741224-1347537662.jpg

VLOOKUP()

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

質問いたします。
エクセル本来の表計算ではなく、エクセルで文章を書きたいと思っています。
エクセルを開いて文書を作成していきます。
完成したら、ページ設定でレビューをみます。
印刷用紙はＡ４です。そしたら用紙の幅を超えている部分が出てきます。
そのような場合、インデントや自動的に用紙幅で折り返すようにするにはどのようにすればよいのでしょうか？

この内容でインデントがなぜ出てくるかはわからないので、
用紙幅での折り返しについて。
折り返すにはセル内改行でOK。

ごめ、>>267のセル内改行間違い。
書式設定の折り返して全体表示のことで。

そして次の質問はセル内改行の行間を調整するにはどうすればいいですか、だ

素直にWordを使え、バカ

【1 OSの種類 　 　 　 　 .】 Windows7

【2 Excelのバージョン 　 】 Excel２０００

【3 VBAが使えるか　 　 .】いいえ

【4 VBAでの回答の可否】 否




質問いたします。

エクセル本来の表計算ではなく、エクセルで文章を書きたいと思っています。


エクセルを開いて文書を作成していきます。


完成したら、ページ設定でレビューをみます。


セル内改行の行間を調整するにはどうすればいいですか

>>262
ぐぐりながら掛けるように鳴った方がいい。俺も今ググりながら書いた。
Sub Test1()
Dim OpenFileName As String
Workbooks.Open "2010.xlsx"
Workbooks("2010.xlsx").Activate
'kokokara
Cells(1, 1).Value = 123
'kokoni makurowokaku
End Sub

ワークシートを開いて、アクティブブックを指定。後はマクロを書くだけ。
あとごめん、runいらなかったわ。

>>263
ノートか。熱でやられてるんじゃない？と思う。
i5-2400だけど、Application.ScreenUpdating = Falseは差が全くわからない。
ブックがまっさらってのもあるかもしれない。

>>271
うぜえな・・・遊びたいなら余所でやれ
あと謝罪を忘れるな

▼━質問テンプレ (必ず使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows 2000以降バージョン にて対応希望
【2 Excelのバージョン 　 】 Excel 2000以降バージョン にて対応希望
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可

とあるページの印刷をマクロにて指示しています。
その際シートの状況によりPageSetup を使用しています。
なお、印刷後はすべて印刷前のPageSetup状態に戻すべく、
変更前のPageSetup各種値を変数に放り込む仕様としました。

ここで.PageSetup.PaperSizeについて質問なのですが、
記述としては以下です。

変数 = ActiveSheet.PageSetup.PaperSize　　　　'値格納
ActiveSheet.PageSetup.PaperSize = xlPaperA4 '値変更
プリントアウト処理　　　　　　　　　　　　　　　　　　 '出力
ActiveSheet.PageSetup.PaperSize = 変数 　　　 '値復元

このとき値復元時にエラーが出ます。
理由としてはプリンタトレーに無いサイズ（例としてB4）が指定されたためなのですが、
もともとB4がデフォ値で取っており、A4変更後元B4に戻す行為で
エラーが返されます。

元ファイルのプリント設定は変えることなく、かつプリント後は
ファイル保存を行う必要があるため、困っています。
何か良い手をご教示願います。

>>271
縦位置を両端揃えで行の高さを変える
>>274
それで戻らないのが不思議ね。
途中で変数の内容を変えていると思う。
ウォッチ式でよく確認して欲しい。
それでも無理なら
ActiveSheet.PageSetup.PaperSize = xlPaperB4
でもダメならファイル保存を行なってから印刷すれば？

>>274
そのあたりはプリンタ側の仕様で、今まで設定できてた値が再設定できなくなるのはよくあること
一度ブックを閉じてしまえば、たいてい変更前の値に自動的に戻るんだけど

移転

>>264です

>そして二つの相性を足し算。
>そうすると?２、?１、０、１、２、１０以上の６パターンができるので、
>これに３を足して整数にする。１、２、３、４、５、１０以上

ここまではVLOOKUPでできたのですが、その先ができませんでした…

>１０以上を６に変換。
>
>MID関数を使って
>１を▲
>２を△
>３を◯
>４を◎
>５を☆
>６を?
>に割り当てる。

10以上を6に置き換える方法と、MID関数？の割り当てのやり方を教えていただきたいです。

>>278
本人に聞いたほうが早くない？
10以上はvlookupの最後の引数をTRUEにする
それか10以上の数が来た時点でif(a1>=10,6)としておくか、
最初から100を6と入力しておくか

midはこんな感じだろう
mid("▲△◯◎☆?",a1,1)

それか最初から記号で書いておけばいいんじゃないかって思うけど
計算とかで使うのかな。よくわからんけど

端数を自動で計算する式を作りたいのですが、教えてください
0．25は0に0．50は0．50に0．75は1．0に自動的計算式ないでしょうか？

>>279
ありがとうございます、できました！
MID関数は存在も知らなかったので、勉強になりました
最初から記号にして、のやり方も、少しためし手みようと思います
どうもありがとうございました

>>280

端数を丸める方法として一番一般的なのは四捨五入だけど、
それを0.5刻みに拡張すれば良いのかな？
ただ、その場合だと0.25は0.5にならないといけないけど。

-0.75≦ｘ＜0.25の範囲が0
0.25≦ｘ＜0.75の範囲が0.5 <= 0.25はココ、0.5もココ
0.75≦ｘ＜1.25の範囲が1 <= 0.75はココ
ってなるのが自然だと思うよ。

で、これらをExcelで実現する方法については単純にIf文で書けば良いと思う。

200MBくらいあるファイルが送りつけられてきて、なかなか開かなくて困ってます。
ふつうのノートパソコンでストレスなく扱う上手い方法を教えていただけますでしょうか？

>ふつうのノートパソコン
（略）

>>281
MROUND関数
http://www.eurus.dti.ne.jp/yoneyama/Excel/kansu/round.htm#mround
>>283
openofficeorgを使う
エクセルと似た機能を持つ表計算ソフト。無料。
これで無理なら予めファイルを整理してもらうか、マンガ喫茶でもいくしか

>>285>>282
ありがとう御座いました
後は自分で考えてみます。

>>272
あのー、ｻﾊﾟｰﾘワカランのですが・・・

272に沿って書いてみましたん。
（マクロは141を使用）

Sub Test1()
　Dim OpenFileName As String
　Workbooks.Open "2010.xlsx"
　Workbooks("2010.xlsx").Activate　’←コンパイルエラー
　Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Columns(2).ClearFormats
　　Set TargetCell = Range("B" & Target.Row)
　　TargetCell.Interior.Color = vbBlack
　　TargetCell.Font.Color = vbWhite
　End Sub
End Sub

4行目で　コンパイルエラー　End Subが必要です。　になってしまうぅぅぅ・・・ orz


もぅ一度書きますが、この条件です。
2010.xlsx --- カーソルを動かすと色が変わるやつ（これにはマクロが書かれてない）
2003.xls ---- これにマクロを書いて、2010.xlsxをコントロールする

なんで入れ子になってんの

>>288

＞'kokokara
＞Cells(1, 1).Value = 123
＞'kokoni makurowokaku

に沿って141のマクロを書きますた。
Cells(1, 1).Value = 123の意味がワケワカメだけどダミーと解釈

これでどうよ

Sub Test1()
　Dim OpenFileName As String
　Workbooks.Open "2010.xlsx"
　Workbooks("2010.xlsx").Activate　
　　Columns(2).ClearFormats
　　Set TargetCell = Range("B" & Target.Row)
　　TargetCell.Interior.Color = vbBlack
　　TargetCell.Font.Color = vbWhite
　End Sub

>>290
Dim OpenFileName As Stringについて解説してもらえますか？

いや、290は既に試してエラーになるのが分かってるので、
あえて不明な点をお聞きします。
（本音 ： そんな子供だましでの茶々入れはやめてくれ）

>>213
とりあえず>>287のエラーは
Subプロシージャを入れ子で書いてるから
だってのは俺でもわかった。

んで、根本的な質問内容の
マクロを記述してないブックのシートイベントを
ほかのブックに記述したマクロで制御する件は
無理だと思う。
>>272で書いてあるマクロとかは「マクロが記述されてるブック(Book2003.xls)から
他のブック(Book2010.xlsx)を開いて、当該セルの色を変えるもの」であって、
たぶん>>213が望んでいるであろう「リアルタイムに変更を反映させるもの」じゃないと思う。

最低限Book2010.xlsm（.xlsxじゃない点に注意）にはSheet1モジュールに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)プロシージャが書いてないと
シート上の変更イベントが拾えない。
……んじゃないかなぁ、とおもう。（絶対そうだって言うほど自信ないけど。）

>>292
マクロのインポート（エクスポート）を、別のマクロで出来そうな希ガスるんです。
234のおっちゃんも　�Bできる　と書いておられる。
でも、そのやり方がワカランのよね〜

>>293
確かにマクロをインポートすることはできるけど
インポートした時点でマクロ有効ブックになっちゃうから
そうなると「マクロが記述されてないブック」という前提条件には
当てはまらないでしょ？
その辺どうなの？

>>294
Book2010.xlsx（Book2010.xlsmではない）にマクロを書いて動かすことができる。
しかし、そのままだと保存できない。

入力するときの補助としてB列のセルを反転したかったので、入力が終わったら
マクロを削除して上書き保存・・・という流れを想定してまする。

てゆーか、
マクロをインポートすることはできるなら、そのやり方を早く教えてよｗ

>>296
おれ自身はやったことないんだけど、こんな感じらしい
http://peiyorin.cocolog-nifty.com/blog/2007/09/excel_vbavisual_d06e.html

ただし、それにしたって>>295みたいなのは不可能だったと思う。
つまり、インポート後にはBook2010.xlsmの状態で保存してから
そのブックを改めて開かないとマクロが動作しないはず。

てことで、現実的な落とし所は最低限シートイベントのプロシージャだけはそのブックに記述しておいて、
プロシージャの内容は他のブックにあるマクロを呼び出すものにしておくぐらいしかないんじゃないかと。
もっと詳しい人が見たら間違ってるかもしれないんで、自信はないけど。

エラそうだな213？

>>297
新規ブックにマクロを書けば、保存しなくても動作しますよ。

>>268
ありがとうございます。
しかし、そうではなくセルを結合することなく、エクセルを開いた状態のセルで文書をどんどんタイプしていきます。
そうしたら書式設定の折り返しではセルを結合させていないので、表示できません。どのようにすればよいのでしょうか？

結合まったく関係ないだろ
おまえは何を言っているんだ

>>300
ゴリゴリマクロで押せば何とかなるかもしれないけれど、
どう考えても見合う対価は無いと思うよ。
もともとディスアドバンテージを背負った方法を採って、それを労力かけて克服するってのは
言葉悪いけれど「無駄」だよね。

ちなみにVBAなしではもちろん無理。
【3 VBAが使えるか　 　 .】いいえ　
につき、以下は読み飛ばして問題なし。やろうとすればできるかも的なメモ。


　・フォントサイズ固定
　・非プロポーショナルフォント限定
　・セルサイズ固定
を条件に、
　・ページ最右列セルでのLenとセル内改行の関連をつかむ
　・対象セルでセル内改行するかしないかを分岐
　・真なら改行以降の文字列を変数格納
　・一行挿入
　・変数格納値を最左列セルに入力

こんなイメージかしら。

>>300
多分この形以上に楽な方法はないと思う
http://or2.mobi/index.php?mode=image&file=42308.jpg
とにかく打っていってから書式設定といった感じだね

ちなみに俺はエクセル文書推進派。
今まで幾度と無く論争を見てきたが、どちらがいい、悪いはきっとないの無いだろう。
強いて言えばウンコすぎるwordが悪い。

ワードがうんちなのか、使用者がうんちなのかはこれ以下触れないように。

いいこと考えた
ワードアートで全文章を打ってから
A4の印刷範囲に納めればいいんじゃね

>>297
なぜか　Dim oVBC As VBComponent　で止まってしまいます。
まぁ、295が不可能なら234は何をもって　�Bできる　って書いたんだろう？

excel2007〜存在するPERSONAL.XLSBについて、
PERSONAL.XLSBを削除し、同フォルダに旧バージョンエクセル作成のPERSONAL.XLSを設置しても問題なく動作しますか？
当方旧Verのエクセルしかなく、環境確認できずにつき、お手数ですがご確認いただければ幸いです。

ちなみに拡張子を変えるだけでなく、実際のファイル形式自体をXLSB（バイナリタイプ）→旧XLSへ変更するという意です。
よろしくお願い申し上げます。

>>306
参照設定が必要
まぁマクロ自身のアドインみたいなもんだ
これがわからないならそのやり方はやめとけ

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

W7p にoffice2000(E)を入れて使っています。
突然Excelだけが使えなくなりました(XP mode , XP mode アプリケーション共に)。
”問題が発生したため、Microsoft Excel for Windows を終了します。 ご不便をおかけして申し訳ありません。
”の表示が出て終了します。
前日のシャトダウン時にシステムのアップデートを自動でしていたので、そのためにコンフリクトが起きたとお

もわれるのですが・・・
Word,Accessは普通に使えます。

>>309
あっそうでしょうね、Word,Accessもじきに使えなくなるでしょう。
今後はWindows7にとってベストなバージョンをご使用なされることですな。

今更気にしてる人もいないと思うけど相談に乗ってもらったので一応報告。
結局時間食ってた処理はセル内改行を含むデータを貼り付けたときに自動で
発生するWrapText = Trueの設定だった。
この設定はどうも簡単にはOFFれなさそうだったので、DataObject使って
Clipboardに連結した配列を投入、pastespecial Format:="テキスト"でセルに
書き出した。

余談だけど、Clipboardからのpastespecialが環境によって失敗する事象に
しばらく悩まされたけど、wait入れたらちゃんと通るようになった。
DataObject使ったClipboardの操作ってexcel側では完了見ずに次に
行っちゃうんだね、勉強になりました。

ってことで相談に乗ってくれた人サンクスでした。

>>307
問題が起こるかどうかは知らないが、普通に読み込みはできた
やめておいたほうがいいとしか言えないなぁ

なんでやめておいたほうがいいの？

>>313
msがこの手段を推奨しているという説明文を発見できなかったからな。
2003以前と2007以降は細かいところで互換性がよろしくない。どこがどう影響するかわからない。
大した手間でもないし、俺なら念のため2007でファイルを作るよ。

>>307
問題なく動くよ。
ただし同内容のファイルをxlsとxlsBで作り分けてから、ファイルサイズ見たらわかると思うけれど、
バイナリ化させたことのメリットは大きい。
そこを特に気にしないのであれば、逆に旧バージョンでも扱えるxlsのほうに分があるとも言える。

御好きに。

2003使用で
条件付き書式について質問ですが
条件付き書式を色々駆使した表を別のシートの違う座標へ丸々コピーペーストしますと条件にセル番地を直接指定している箇所の条件がすべてずれておかしくなってしまうのですが
条件を相対座標で指定し他のブックへコピーしても崩れないようにすることは出来ないのでしょうか？？！

>>316
数式で可能

>>317
おおお！よく見ると　ひょっとしてこの
=$G$57
の$マークは絶対座標を指定しているのでこれをとれば良いだけと言うことですね！　まだ初心者の域を脱していない感じです。　
どうもありがとうございました。m(_ _)m

結構多くの表に＄が埋め込まれてしまったのでこりゃ大変、今日は徹夜かｗ

>>317
>>316

う〜ん条件を指定した表を範囲指定して＄を取るとオートフィルで増やしたセルはそれに
合わせて条件の数値も全部ずれちゃうのですね、全部手入力するしかないのか、、　一丁一旦ですね。

>>133の
http://www.age2.tv/rd05/src/up11379.jpg
の模様の違いは仕様？

>>319
についてですが条件付き書式で相対座標を指定するとオートフィルで生成された表に関しては自動でオートフィルの秩序に合わせて値が書き換わって生成されてしまうのですが
同じにする方法はあるのでしょうか？　
また条件付き書式の条件のコピーペーストは出来ないのでしょうか？？！　形式を選択して貼り付けの中には条件付き書式の貼り付けという項目がないのですね。

>>321
そもそもオートフィル使う必要ある？
・オートフィル使わない
・絶対参照使わない
・対象範囲を示す

でいけない？
オートフィルで広げたい場所を対象範囲として書式に埋めれば、
オートフィル使わなくとも、その対象セルに書式が制定されていると思うよ。（相対参照でうまいことズレながら）

>>321
>また条件付き書式の条件のコピーペーストは出来ないのでしょうか？

書式の貼り付け

>>320
何バカなこと言ってんだ
線の色だけだとすぐに限界があるだろ

初心者です。2007でvistaです
セルにコピペしてきたのはいいのですが例えば80と言う数字が
セルの左によって数字として認識されていません。数字として認識させるはどうすればいいのですか？
お願いします。

325＞
ホーム⇒セルの書式設定⇒表示形式⇒数値

325>
補足
セルの書式設定ていうのは、フォント　と書いてある右の小さな四角をクリックすると出てくる

>>326ありがとうございます。
質問する前にそれをやったんだけど出来なかったので。
他にもやり方があったような気がして。

こういったレスアンカーもまともにできない頭の悪い回答者って、スレからいなくなればいいと思う。

>>325
セルをダブルクリックして値の編集状態にして確定しなけりゃ反映されないアレ？
結構同じ状況で悩んでいる人多いよね。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q131638493
http://oshiete.goo.ne.jp/qa/2312756.html

>>330ありがとう。

>>322
数千箇所ぐらいある相対座標と絶対座標とﾋﾟﾎﾟｯﾄテーブルとあれこれ格闘した結果脳の処理能力の限界に達し完全に寝落ちしてしましました・・（笑）
ついさっき起きて見直してみますと
>・オートフィル使わない
>・絶対参照使わない
>・対象範囲を示す
これでうまくいきそうです
マスターの表が安易にオートフィルで代入する単位を増やしたりしていまして結論一から作り直しが速そうです・・・ｗ
どうもありがとうございました。

>>332
通常のオートフィルが頻繁に使われるシートで、
条件付書式は鬼門だよな。
自分のみが使うシートなら問題ないけれど。

手としてはマクロに記述するか、テンプレートシートを念のため用意して
条件付書式がオートフィルによってめちゃくちゃに耕されたら、
リカバリを掛ける。見たいなのが良いかもね。


あと>227

>>328
単に表示が左詰めになってるだけだったりして

>>330
こういったレスアンカーもまともにできない頭の悪い回答者って、スレからいなくなればいいと思う。

<>335
俺もそう思う

スレチすまん。
エクセルで↓こんなことまで出来るんだな。べっくらこいたよ…

エクセルでスーパーマリオを作ってみた。
http://www.youtube.com/watch?v=4IDOllHq7FI&feature=related

>>337
エクセル(VBA)で作ったゲームはいろいろあるよ
ネットを探せば本体をダウンロードして自分のマシンでも遊べる

ほかにもエクセルの間違った使い方をしてる人は色々いる

シェイプで絵を描いたり
ttp://www.youtube.com/watch?v=4YG_WWZYqUs
グラフで絵を描いたり
ttp://www.youtube.com/watch?v=8oR1_PA3yTw
アニメを再生したり
ttp://www.nicovideo.jp/watch/sm586011

>>333
数時間かけて気合いで数百箇所を相対値に書き換えて完全にうまく動くようになりました。どうもありがとうございましたm(_ _)m

>>227 「ぼ」だったのですねお恥ずかしい・・・（笑）

>>338
うん。間違った使い方だね。

　コックが、氷で彫刻して喜んでいたりするのと同じだね。
火消しが、ハシゴに登って、天辺で芸をしたりとか、車を片側のタイヤだけで
走ってみたりとか・・。

　まあ、面白いのは確か・・ではある。

>>340
Excelの統計結果に応じてシステムを制御するプログラムを自作しようとしている自分にとってはこれらのプログラムの動き方は非常に参考になったｗ

エクセルマリオは別として、
Excelに向いているかどうかは別として、
○○を使った方が・・・という意見はたくさんあるだろうが
そういうニーズがあるってことだ。

ビジネスチャンスって、いろいろあるってことだな

Excel初心者ですが
Ｅｘｃｅｌはマルチモニターでやるなら何インチの何画面がお勧めですが？　横と縦ではとっちが有効でしょうか？

こんな質問する奴たまに居るけど、馬鹿じゃねぇの？
内容も環境も感性人それぞれの中で、何を求めて質問してんだ？
エクセル初心者云々じゃないだろ。頭の隅々まで痛んでそうだな。

>>343
マジレスしてあげると
画面の広さと縦か横かは、利用者のアプリしだい。
自分でどんな風に利用することが多いかということ。

一つのシートをマルチモニターで見る人は、見たことない。
だから１シートは１モニターが一般的。

あとは、自分次第。
としか言えない。

開発をするのなら縦横1台ずつがいいな。縦でVBEを開きっぱなしでイミディエイトに変数の内容を書き出して
リアルタイムで確認するとか。

BBCのCrickオンラインという番組でMicrosoftの開発者がExcelは超ワイド画面で作業するのが有効みたいなことを言ってたのを覚えている。
巨大な表データーを解析する時にたとえばA列にあるデータとCA列にあるデーターに共通点点がある事を発見するには
1画面にすべてを表示して見渡すと簡単に発見できるが小さな画面で一部分のみを表示した状態では基本隠れているので
見落としてしまう確率が高くなるみたいな事を言ってたな。自分も全部を見渡すというのは大事な事だと思う。

それはそういうデータ、
横にあるいは縦に広い形で一覧するような
利用するのかどうかということ次第。
要は、本人の使い方次第。

そんなもん言い出したらキリがねぇ。

A列とCA列の比較だと2画面分必要だから2モニタ。
その延長でA列とFA列の比較となると、3画面分必要だから3モニタになる。
マイクロソフトの開発者がこんなチープな発想だとダメだな。

1画面で、より効率よく求める作業ができる様作りこめよ。

まずcrickに突っ込めよ
辞書引いてびっくりだわ

>>343
マルチモニターは>>345も行ってる通り、エクセルとは相性悪い
エクセル＋他の何かなら縦画面を横につけた２画面が見やすい。というか俺がそうしている

個人的には作業をするなら全般的に縦画面のほうがいいと思う
縦に長いデータはあっても横長のデータはそんなにないからな。
（シフト表等、1枚に収まるものは別として)

あとモニタで迷っているなら回転機能付きの
IIYAMA　ProLite XB2374HDS-B PLXB2374HDS-B1
がオススメ。簡単に横画面にできる。
あと古い液晶だと縦にした時に死ぬほど見づらいから注意な。
IPSって単語は覚えておいた方がいい。というかモニタスレで聞いた方がいい。
>>347
巨大な表データだと確かにそうかもしれないけど、そうそうないと思う。
しかしもしそんな状況が発生したときは覚えておきたいものだ。

A列とCA列の比較なら
B列からBZ列まで非表示にすればいいんじゃないですかね

開発メニューの出し方
http://gamers-park.com/node/172

>>352
この場合筆者が言いたいのは
影響先がたまたまCA列だったと言う事だから、
あらかじめ非表示の範囲は決められないよね。

何台ものモニターで自分の周りをぐるりと囲めば、
360度パノラマモニターキタコレ！（・∀・）

あらかじめ決めなきゃいけないのか？
その都度臨機応変に列の表示非表示を使えよ

意味がわかってない見たいだね

ドーム型のスクリーン２つをつなげて球体を作り
そこへ四方八方360度全方向からセルを投影すれば縦列も横列も視界いっぱいに無限にセルの世界が！！ｗ

おまえは予めって言葉の意味がわかってないだろ
謝罪しろよな

ちゃんと最初から読んでご覧

記憶力世界一の人なら１回見ただけで脳の中にセルがコピーされるのでモニターなんて必要ないですね、わかります。

>>358
「全天周囲モニター」かよｗ

>>362
作ってみて使いやすかったら特許物かもｗ　縦横範囲を気にせず広範囲のデータを眺められると言うのは絶対に便利だと思います。ｗ

プラネタリウムでやったら面白そう

「予め」って言ったのはオマエだぜ
ほら早く謝罪しろよ

>>356
医療関係の解析の結果で、A1:EE100の全セルに数値が入ってる
というケースを想像すれば少しは伝わるかな
例としてAとCA列と言っているだけで、
結局膨大なデータは人の目で見るしか無いという状況

そういう時はスクロールや縮小するより素直にマルチモニタで見たほうがいいよ、といっているようだ
普通無い状況だから気にしなくていいよ

Excelの表計算の世界のプラネタリウム？！ｗｗｗ　　自分は見たいけど普通の人は絶対来ないだろうなｗｗ

あなただけが理解できないみたいね

>>367
球形モニターじゃないけど、
そのイメージをモニター上で表示するような思考は、結構されてる。
まるきり同じじゃないけどね。
大量のデータから必要な物を見る場合とか。結構面白い分野。
ということは、そういうニーズはあるってことなんですよね。

>>367
対象がExcelと言うわけじゃないけど、ご参考に。

http://www.webdesignerdepot.com/2009/06/50-great-examples-of-data-visualization/

>>370
良いサイトですね。サンクス！

>>370
ニコニコ動画で何かあったな。

A列とCA列、としか言ってないのに何を有利な後付コいてんの
甘えてんじゃねえ、さっさと謝罪しろよホラ
そもそも>>349は効率よく1画面にしろって言ってんだろ
効率の悪いクソみたいな条件持ち出すなよ糞虫が
謝罪まだか謝罪ィ！！

>>365
>>260

>>373
>>260
次からは要求する前に>>260見て気を収めてくれ。

おいおい、他人の謝罪文見せて謝ったつもりか？
せめてコピペしろよキチガイ

仲良くしようぜ。　細けえことはExcelの中だけで良いんだよ。

>>375
ていうか謝罪謝罪うるさいよ
お前こそ謝罪しろよ

テメェが先に謝罪するのが筋だろォがよ！！
甘えてんじゃねェぞ糞虫の分際で・・・死ぬか？オイ死ぬか？！

ヒント:>>374≠>>377

なにげに誰うまな>376

>>371
喜んでもらえてよかった。
こういう分野を1995年くらいからやってます。

痔が持参　ってヤツですか？

ちゃうちゃう
知らん人のサイト
痔の手術はしたけどね

くっせ！こいつくっせ！！

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

グラフのデータにマウスを重ねるとポップアップウインドウにデータの値等が表示されますが
任意の文字列を表示させることは出来ますか？

日　 科目 点
1日　英語 100
2日　数学 80
5日　理科 80
5日　社会 60
7日　国語 70

科目をX軸、点をY軸のデータとして
ポップアップに日を表示したいです。

>>385
ちょーやっつけ仕事
http://www1.axfc.net/uploader/File/so/83731.xls
日付でもグラフ作って重ねて色消しただけみたいな？

直接ポップアップをいじれるコードの書ける人とか
カンペキな仕事ができる人を待ったほうがいいかもめ

>>385>>386
グラフは折れ線か散布グラフになる予定で、データもかなりあるので使いずらいかな

かなり密集するのでラベル表示では見ずらいです。
ポップアップをいじれるコードがあって、ポップアップに直接表示できるのが理想だけど、
ラベルにマウスの重ねるかクリックで、テキストボックス等に表示するのでもよいです。

礼のひとつもナシかよ？
おまえも謝罪したほうがいいようだな！
後付で条件出すんじゃねえクソが

よくやった
でかした

>>388
礼欲しさでやってるような安い回答者は帰れよ
まともな回答もできないくせに、偉そうな事言うなよカス

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

ttp://s.cyrill.lilect.net/uploader/files/201209202031490000.png

上記の画像のように某ゲームでつかう、アイテムを作るために必要な素材の合計を計算する表を作っています、
作りたいアイテムの希望個数を指定すれば、必要な素材の合計が下の方に算出されるようにしたいのですが、
エクセルの使い方は簡単なことしかわからないので、お聞きしたいです。

説明しますと上記の画像の様に「ローリエの小枝」「ピンスティック」「てんびんぼう」を一個づ作るのに
「やわらかい枝」が合計9本、「てっこうせき」が合計3個必要なので、それぞれの素材の列一番下に合計が表示されるようにしたいです。

自分で=SUM(B2*C2):(B33*C33)という数式を入れればいいかな？と思って素人考えでやってみましたが、
これだとエラーがでてしまいました。

こういう使い方ができるのでしたら教えて下さい。

>>391
ネコのおうぎと引き換えに教えてやろう

1つ目の方法
各素材間に1列挿入し、作成数ｘ必要素材数の数式を入れる

2つ目の方法
表はそのままにひたすら数式で$B2*C2+$B3*C3+・・・を作成する

>>391
SUMPRODUCT関数で出来ます

やわらかい枝
=SUMPRODUCT(B2:B33*C2:C33)
てっこうせき
=SUMPRODUCT(B2:B33*F2:F33)

>>393
ありがとうございました。これでドラクエが少し楽になります。
もう一つお聞きしたいんですが
「(B2:B33*C2:C33)」「(B2:B33*D2:D33)」「(B2:B33*E2:E33)」という風にセルの右下をドラッグアンドドロップしてまとめて計算するときに
Bの列だけ固定してまとめて関数表示することはできないのでしょうか？

実際やってみたら。「(B2:B33*C2:C33)」の隣が「(C2:C33*D2:D33)」になってしまったりするのですが、
これはもうしかたのないことなのでしょうか？

失礼しました＄で固定できるんでしたね。もうしわけありません。

>>391
C列の一番下の合計のとこにこの式を入れて、あとはコピペ
=SUMPRODUCT($B2:$B33*C2:C33)

▼━質問テンプレ (必ず使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

Windows7、Excel2010の環境でCommonDialogボックスを使いたいのですが、
どうすればよいのでしょうか?
WindowsXP、Excel2003の環境では使えています。
フォームコントロールにCommonDialogが現れません。

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

条件付き書式についての質問です。

１ヶ月分の日付がシリアル値で入力されていて、祝日の場合は文字列　「祝」　に入力し直します。
土・日・祝の背景色を変更したいので、以下の条件を設定しました。

数式が　=OR(WEEKDAY(A1,2)>5,A1="祝")

ところが、これでは文字列　「祝」　に反応しませんでした。
色々試してみたのですが一向に解決できませんでしたので、以下の条件に書き直しました。

【条件1】　数式が　=WEEKDAY(A1,2)>5
【条件1】　数式が　=A1="祝"

一応は求めた反応にはなりましたが、１つの条件で設定出来ないものでしょうか？
条件付き書式での「OR関数」の使い方に特殊なルールがあるのでしょうか？

ご存知の方がいらっしゃいましたら、是非ともご教示頂きたく存じます。
また、「OR関数」でなくとも１つの条件で設定できる方法でも構いません。
どうぞよろしくお願い致します。

表記にミスがありました。大変失礼致しました。

誤
【条件1】　数式が　=WEEKDAY(A1,2)>5
【条件1】　数式が　=A1="祝"

正
【条件1】　数式が　=WEEKDAY(A1,2)>5
【条件2】　数式が　=A1="祝"

>>398
WEEKDAY関数の第一引数はシリアル値じゃないとダメなので
ISNUMBERとかで値を判定してからWEEKDAY関数を使用するとか
=OR(IF(ISNUMBER(A1),WEEKDAY(A1,2)>5,false),A1="祝")

ORは別になくてもいいか
=IF(ISNUMBER(A1),WEEKDAY(A1,2)>5,A1="祝")

暇だし横からつまらん補足でもやっちゃうか

そのOR関数なんだけどOR(式A,式B)としてAかBかどっちかがTRUEならいいみたいに思ってるけど
AかBかがエラーになった時(今回の#VALUE!とかね)は残りがTRUEでもエラーが返ってくるって話
セルに直接打ってたらエラー戻ってきて気づいたんだろうけど条件付き書式で気づかなかったんだろうね

あとどうでもいいんだろうけど俺はA1="祝"よりはEXACT(A1,"祝")をクセで使っちゃうな

つまんねぇし、どうでもいい

>セルに直接打ってたらエラー戻ってきて気づいたんだろうけど

セルに直接打って気づいたのは恐らく>>402だろうなｗ

つか、シリアル値が並んでる列に文字列を入力しちゃうなんて正気の沙汰じゃない

weekdayなんて関数使うのも正気の沙汰とは思えないな
曜日なんて書式のAAとかでも取り出せるだろう

Excelでセル内部のデータを一部変更しようとセルをダブルクリックすると
少しズレたのか全く関係ないシートの場所へワープさせられ非常にムカつきます。
これを防ぐにはどうすればいいですか？

F2でセルの編集すればいいんじゃない？

>>407
カリウムを摂取する（レ）

>>408
両手を使わねばならんからイヤ。
>>409
アホ。

>>407
>少しズレたのか

それはお前の操作ミスじゃ？
操作ミスを防ぐにはゆっくり慎重に作業するしかないと思うよ
拡大率を上げてダブルクリックするセルがズレないようにするとか

>>407
更年期障害、もしくは知能発育異常。
おまいにはエクセル操作はレベル高すぎるんじゃねｗ

>>407
スポーツやオナニーはストレス発散に聞くよ

>>407
単なるお前のミスだろ馬鹿

>>407
アホ。

たかがエクセルの作業で非常にムカつくとか・・
まず精神科行く事が先決>>407

ただ、あれはあまりいらない機能だと思うんだよね。
下や上に飛びたいならＣＴＲＬ+矢印で飛ぶし。

レス下さった皆さま、有難うございました。
お陰さまでコンパクトな条件にまとめられました。
完成形はこんな感じです。
ttp://viploader.net/ippan/src/vlippan293267.jpg

左端のセルにだけ日付を入力して、あとは　＋1　に設定しています。（表示書式は　上＝d　下＝aaa）
シリアル値の間に文字列を入力するしか対応できず…

判らない事がありましたら、またお力を賜りに参ります。
有難うございました。

>>418
俺なら祝日のテーブルを作るな

俺は毎日が休日だな。

workdayを併用するとかしてもいい
シリアル値がめんどい？

>>４０７って前スレの３７１だろｗｗｗ

基本的にExcel2003ですが　
同じテンプレートで作成された統計データの .xls　ファイル50個を　
一気に統合して一つのブックにまとめてくれるよう機能はあるのでしょうか？

>>423
VBAでくみ上げればできると思うよ

>>422
違います（ｷｯﾊﾟﾛ

>>424
なるほどVBAはつい最近手を付けたばかりで、
コピーペーストを自動でやる物を作ったぐらいです
まだまだ先は長そうですね。

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

>>423
ちなみに自分でやり方を汁必要が無いとかなら、Vectorとかにあるよ。

>>428
それらしき物を見つけました　ありがとうございます。

Excelで統計分析をしていて関数などを駆使して色々と合理化すると浮いた時間で
更に巨大なデーターやより詳細な箇所の分析などについつい手を出してしまい結局寝る暇が無くなってしまうのですが
これは日々集計データが増え続け変化し続けている以上はきりがないと思うのですが一体どうすれば良いのでしょうか？

>>430
人工知能で言うところのフレーム問題ですね。
時間がないなら支障のないところまでデータを処理し、適当なところで切り上げなさい。
でも学生まど、基本暇な方ならとことんまでやるのもいいかも知れません
それが貴方の血となり肉となるでしょう。出来ればその際はVBAやゴールシーク等、
新しい機能や使ったことのない関数も使うとよいでしょう。
もしくは別ソフトや、数学の公式の勉強も良いと思います。
同じ関数を使って多少の最適化を突き詰めても得るものは少ないです。

【1 OSの種類 　 　 　 　 .】 WindowsVista
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
ツールバーにあるセルの結合と同じ動きをするマクロを作ろうとしていますが
選択範囲を増やして結合範囲を増やすとき下のコードでは結合されません
ツールバーの方では結合されるのですがどこを変えればいいのでしょうか？

Sub セルの結合解除()
Application.DisplayAlerts = False
If Selection.MergeCells = True Then
Selection.UnMerge
Application.DisplayAlerts = True
Exit Sub
End If
If Selection.MergeCells = False Then
Selection.Merge
Application.DisplayAlerts = True
Exit Sub
End If
Application.DisplayAlerts = True
End Sub

よろしくおながいします
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

条件付書式でまかないたいんですけども
数式をどうしたらいいのかわかりませんです

A列に数値、B列にローソンとかファミマとか店名入ってます（空白の場合もあります）

で、A列のセルを店名によって色分けしたいので、
A列に「B列に"ローソン"が含まれていたら青」みたいな条件付書式を入れたいのですが
数式でいけますでしょうか

>>432
Sub セルの結合解除()
If Selection.MergeCells = True Then
Selection.UnMerge
Else
Selection.Merge
End If
End Sub

選択範囲を増やしたとき（おそらくMergeCellが混ざった状態）の分岐がないだけでは？
True以外はelse Merge＝trueにする。とすれば？

>>433
いけます。

>>435
よ、よろしくお願いします
自分で組み立てられませんm(__)m

>>434
コードもすっきりして質問通りの答えです
ありがとうございました

てか

If hoge = True Then
…
End If

は無駄がある

If Hoge Then
…
End If

でいいにょ

初歩的な質問かもしれません。
セル内でたとえば『話し方』とうって『話方』と”し”を消したいとき
左のカーソルで“し”のところに行って消そうとすると
セルが移動してしまうのがいつもいらだつんですが。

どうすれば簡単にセル内でカーソルの位置を移動できるのでしょうか？

>>439
F2を押すと、セル内の文字の編集モードになる

>>440
ありがとうございます！！簡単ですね！！

>>430
目的により違いがあるので一概には言えないけど、
もしビジネス利用だとすれば、
その分析結果を実務利用できるか＝＞利用者が理解できる形にできるか。
という点に重点を置いた方が良いかもしれない。
利用者に教育をしないと理解できないものなら、利用されないものとして
そのやり方は考え直した方がいい。
データが大規模になるなら、統計解析手法だと常に有意になってしまうことがあるでしょ。
その面では、大きなものを使っても意味が見いだせないことがある。
逆に大数の法則を考えれば、大容量なら難しい統計解析手法に固執する必要もないしね。。

>>431
>>442
素晴らしい回答をありがとうございます。。
>数学の公式の理解
やはりこれが大事ですね、今まで思い起こしてみますと問題にマッチした優れた
公式こそが最大の時間短縮につながっていたなあと気づきました。
データー分析は半分仕事で家で行っているのは個人的な趣味でもありますが、
ＰＣ数台を付けっぱなしにしてとあるビックデータに挑戦中です。ｗ
その分析結果を実務利用できるか＝＞利用者が理解できる形にできるか。
データーが大量に貯まってきますとここ重要ですね、、ひしひしと感じています。
>大数の法則
コイン投げで偏りが出るってぐらいしか知識がありません、、ｗ　これを機に詳しく勉強してみます。
どうもありがとうございました。

>>433
findを使う

>>433
>B列に"ローソン"が
これはB列全体から"ローソン"を検索して存在したら、ってこと？
それともB列の特定のセルの値が"ローソン"だったら、ってこと？

>"ローソン"が含まれていたら
部分一致ってこと？それとも完全一致ってこと？

>>445
おまえ在日か？日本語理解できないなら書き込まなくてもいいぞ
無理に輪の中に入って来なくていいからそこで眺めてろ

なぜかアスペ同士って仲がいいんだよな

>>433
とりあえず条件付き書式の数式を

=ISERROR(SEARCH("*ローソン*",$B1))=FALSE

とかにしておけば色分けできるよ。
*ローソン*の部分を必要に応じて入れ替えればいい。

ただし2003の条件付き書式では3種類にしか塗り分けられない
（3種類のコンビニにしか色を付けられない）ので、
実用になるかどうかは不明。

2007/2010なら制限ない。

すまん。*要らんわwww

=ISERROR(SEARCH("ローソン",$B1))=FALSE

で。

>>433です
>>448
回答ありがとうございます
しかしうまく着色されんとです
何がいけないのかよくわからんです

データはこんな感じです

　　A　　　　　B
1　500　　　ローソン
2　300　　　ファミマ
3　700
4　900
5　200　　　セブン
6　100
7　600　　　ローソン
・
・
・

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


Sub Csv()
aaa= "text;C:\Book1.txt"
With ActiveSheet.QueryTables.Add(Connection:=aaa, _
Destination:=Range("A1"))
.TextFileCommaDelimiter = True
.TextFilePlatform = 932
.Refresh
.Delete
End With
End Sub

txt等は↑のようにQueryTablesを使って早く読み込めるようになったのですが
QueryTablesを使って、別Bookのsheet2のデータを取得できますか？
できればB10〜C100ぐらいまでのデータが欲しいです。


Workbooks.Open Filename:= "C:\Book2.xls"

でsheetが10以上あるファイルのsheet2のデータが欲しいのですが
エクセルを開くだけで15秒ぐらいかかるので、
ファイルを開いてるのが見えてるのが見えないようにできればしたいなと思ってます。

>>451
>Workbooks.Open Filename:= "C:\Book2.xls"
>でsheetが10以上あるファイルのsheet2のデータが欲しいのですが

↓に訂正

Workbooks.Open Filename:= "C:\Book2.xls"
でsheetが10以上あるファイルのsheet2のデータを開いているのですが

>>450

少なくとも手元の2003では、
同じ形のデータのA列に条件付き書式を使い、
「数式が」に >>449 の式を入れてやれば
指定した書式の色が付く

後は精進してくれ

データ量があまり多くないのに、ファイルサイズが馬鹿デカいときがあります。
そういうときは、大抵こんな感じになっています。
http://uproda.2ch-library.com/581295vuO/lib581295.jpg
http://uproda.2ch-library.com/5812979p1/lib581297.jpg

この例だと、230行から一番下の行までを選択し、行削除をしても
つまみの長さが元に戻らず、ファイルサイズも大きいママです。
これを直すには、どうすればいいですか？

>>454
上書き保存して開き直してもだめ？

>>455
だめですね。
データがあるところを選択して、別のブックにコピペすると直りますが、
列の幅とか行の高さとかセルの色（微調整したやつ）までコピってくれないので困ってます。

>>454
タイトル行を表示しろｗ

OS10.8.2 excel:mac2011使ってます。
使ってるといても8月に買ったmacbookでは使用に耐えられないくらい重くて困ってます。
なんで重いのかもさっぱりわからなくて困ってるのですがなにか考えられますでしょうか？

>>456
データの入ってない230行目以降、念のため500行目ぐらいまでを一気に選択、削除してから保存、開き直してもだめ？

>>458
データが多すぎる
またはメモリ不足

>>460
買い替える前のMACBOOKでは普通に動いてました。今の方がメモリー多いしデータもスカスカです。
何が悪さしてるか見当もつかなく困ってます。

mac　excel　重いでぐぐったら、色々原因あるみたいだけど、２つほど
Users > Library > Preferences >com.microsoft.office.plist
を削除すればOKというのがあった。

ググった先を読んで、一応バックアップ取って自己責任でな。

２つほど　のもう一つは？

>>462
ありがとう！やってみます。

>>456
最初なにかのオブジェクトが500行目くらいにあって
行をズバーっと消しても行と行のスキマの中に
いともたやすく行われるえげつない行為のごとく
薄くなったオブジェクトが潜んでいるんじゃあないのかね？

「09/01」「09/08」と入力してドラッグするとオートフィルで毎週土曜日
「09/02」「09/09」と入力してドラッグするとオートフィルで毎週日曜日
でも「09/01」「09/02」「09/08」「09/09」では毎週土日になりません。
切り貼りして合成する以外に手軽な方法があれば教えてください。

>>466
土曜日分をオートフィルで作る
　↓
そのすぐ下のセルから日曜日分をオートフィルで作る
　↓
昇順で並べ替え

>>466
A1:9/1
A2:9/2
A3:=A1
んでA3をオートフィルとか

excel２００３　
VBA不可
初心者ですが

ごにゃごにゃ男ほにゃらら　→男

ごにゃ女ほにゃららごにゃ　→女

ごにゃほにゃららごにゃ　　→未検出

このように不特定な文章の中に指定ワード　この場合「男」「女」
が含まれているかどうかを検出することができる関数はありますでしょうか？
（調べる文章に「男」「女」両方は含まれる場合はありません。）
宜しくお願いいたします。

>>469
両方は→両方が　間違えました、、　（すまほより気合で入力。スマソ。）

>>469
こんなんどうでしょう？
=IF(0<FIND("男",A1),"男","")

findかsearch
とりあえず関数はひと通り目を通しておいたほうが、後々のためになるよ。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/itiran.html

>>471
>>472
うまくいきました！どうもありがとうございました！　これで家に帰れます ＾＾；

>>473
ごめんこっちの方にしてくださいまし・・・Orz

=IF(ISERROR(0<FIND("男",A1))=FALSE,"男","見検出")

ひひひひひひひっひっひっひっひっひっひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひふひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひひひひひひ
ひひひひひひひひひひひひひひひひぃ〜〜＼(^o^)／

>>466
A1: 9/1
A2: 9/2
として
A3: =A1+7
これをオートフィル

>>467
こんな基本を思いつかないなんて応用力がないなぁ。

>>468
これはわからなかったです。

>>476
美しい！
数学的センスが必要ですね。

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

>>477
うわわわ、恥ずかしい
>>468は>>476を書きたかったんです
+7を書き忘れました

>>459
だめでした。

てゆーか、230行から一番下の行までを選択し行削除・・・というのは454で書いたんですけどね（^e^;）

>>479
H列から右側を全部消してもダメ？

>>433ス

>>453
遅くなりますた、教えてもらった数式でうまいこといけますた
なんか最初の数回は全然だめで、
別シートでやってみたらなぜかうまく動作しますて、
？？？と思いながらもそこからコピペしたらうまくいったという

いまだにちょとワケワカランですが、とにかくうまくいきますた
どうもありがとうございますた！m(__)m

2列にわたる文字列でフィルターしたりVLOOKUPしたりしたいんですが
どうやるのが一番効率的ですか？

>>482
2列分の文字列を　＆　でつないだ作業列を作り、
そこを使ってフィルタだのVLOOKUPだのをやる

見栄えは悪いが一番ラクで確実

>>483
ありがとう。
言ってる意味がわかったことに驚き。
しかも4分でレス。

でもこのような作業は仕事でよく使えれば便利と思えるものだから、似たようなこと考える人はいっぱいいるってことですかね。

ところでA列"東京"

ところでA列"東京"、B列"都"のみをフィルターしたいとき
A列"東"、B列"京都"のものや
A列"東京"、B列"都新宿区"のものも
抽出されてくるので
これを防ぐために
作業列に =A1 & "+" & B1 & "+"
の+みたいにダミー文字を入れてて
これがめんどくさいんだけど
もっとシンプルにできる方法ない？

>>485

2007/2010なら▼→テキストフィルタ
2003なら▼→オプション

いずれも「〜を含む」を条件にしてやればいいだけだと思う

即レスはたまたまタイミングが合っただけ
いつもそうだと誤解せんようにw

>>485

>ところでA列"東京"、B列"都"のみをフィルターしたいとき

作業列を置いといて元の列に戻り、単純にA列とB列の両方
でフィルタかけりゃ済むような気がしますが。

作業列ばかりを使うんじゃなく、必要に応じて元の列も使う。
あとは>486でワイルドカードを駆使すれば、
なんとでもなるんじゃないですかね。

excel2002を使っています
テキストボックスのデフォルトのフォントを
MSゴシック 11 にしたいのですが
デフォルトを設定できる裏技を教えてください

ググればすぐに分かるのに・・・
何でも聞けばいいってもんじゃないだろ？

>>491
Sheet2にA列1行目に
=IF(Sheet1!$C1>10,Sheet1!$A1,"")

Sheet2にB列1行目に
=IF(Sheet1!$C1>10,Sheet1!$B1,"")

後は下方向にオートフィル

すいません、どなたかご教授下さい。
Sheet1にA列B列C列の3列でできた表があって、C列の数値が10以上ならSheet2にA列B列を表示させたいのですが
関数で表示させるとしたら、どういう関数式になりますか？

>>491ありがとうございます！やってみます！

>>491
あぁ、間違えた。
>490の大なりを大なりイコールに変える必要がある。

C1>10 (10より大きい値の場合)
　　↓
C1>=10 (10以上の場合)

まちがえました。
>>490ありがとうございます！

>>493出来ました！ありがとうございます、やっと寝れそうです！
助かりました！

>>490-495
何だ
この自演は･･･

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

■実現したいこと
FFFTP上にアップロードされたExcelファイル
A,B,Cがあり、FFFTPからAを開いて、
A内に設定されている
ハイパーリンクをクリックして
BまたはCを開くという動作
(「B」と記載されているセルをクリックすればBファイルを開き,
　「C」と記載されているセルをクリックすればCファイルを開く。)


VBAやバッチを使う処理になっても構わないので、
どうにか実現方法ないでしょうか。

>>497
ttp://www.happy2-island.com/access/gogo03/capter90301.shtml

>>497
FFFTPじゃなくてFTPだぞ、たぶん

本当にFFFTPなら、まずそれが何なのか説明してもらわないと

>>497
ハイパーリンクのアドレスをこうするとか
ftp://username:password@server/path/sample.xls

こんなの使って自前で処理してもいい
http://www.hi-ho.ne.jp/babaq/basp21.html

どうしてもFFFTPを自動化させたいってのなら
UWSCとか使ったほうが楽かも

>>499
FFFTPとFTPの違いがわからないのはどうかと思うが
FFFTPが何なのかわからないのもどうかと思う

エスパーすると、質問者はFTPとFFFTPの違いがよくわかってない(もしかするとFTPという単語を知らない
そこまで予測した上で揚げ足を取ってんじゃないの？

どっちにしてもやな奴の部類だな

12ケタの数字（例えば123456789012）を打ち込むと、1.23457+E11となってしまいます。

んもー!!　ﾌﾟﾝﾌﾟﾝo(*≧д≦)o))

>>504
プンプン
数値書式にしよう
ぶんぶん

＞＞５０５
ｽｺﾞ━━━ヾ(*≧∀≦*)ﾉ━━━ｲ!!!

でもね、右はしに半角スペースが入っちゃうの
どーにかして

>>506
表示形式を「ユーザー定義」にして、
「種類」のとこに　0　だけ入れとく

>>506
右端に半角スペースあったほうがいいと思うけど、
それが嫌なら、、
書式設定で「負の数の表示形式」を△1234（▲1234）にしよう。
どーにかしてみw

>504,506は、察するに21歳事務員で、小柄で腐っぽい感じで眼鏡。

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

>ハイパーリンクのアドレスをこうするとか
>ftp://username:password@server/path/sample.xls
一番簡易にできそうなこちらの手順で
いったん進めてみます！

FTPに関しては知識不足です。
エスパーされた通りでございます、正解！

数値で右側にスペースができるのは表示形式でアンダーバー(_)の右側にスペースがあるからだ
アンダーバーは右側の文字の文字幅のスペースを空けるという意味
たとえば0_@とすれば@の文字幅のスペースを右側に空ける
表示形式でアンダーバー以降を消せば右側にスペースは入らない

>>511
消せないのですが

>>ぷんぷん　姉さん

ってことは、
ユーザー書式で　0　または　#,##0　を選べば 良いってこと見たい。

>>512
ユーザー定義で表示させて消すんだよ
もっとも最初からアンダーバー以降がない表示形式もあるからそれを選んでもよい

>>473
亀レスですみません
ご丁寧にありがとうございます。こちらも使わせてもらいます。

>>515
↓
>>474
引用間違えマスタ。。

amazonでアカデミック版を購入しようと思うけど学生証はどこで提示すればいいのでしょうか？
普通に買えるようですが？

エクセルのカメラ機能を使うんだよ

購入ボタンをクリックするとき、声に出して「学生です」という

↓　
　　
ttp://photozou.jp/photo/show/2819159/153010030
　

２０１０でマクロを使いたい場合
Excelの拡張子はxlsmだと思いますが
これをxlsにした場合具体的に

2007以前はxls、それ以降はxlsx、xlsmに分かれたってのはわかるのですが
具体的に2010でxlsで使う事メリット、デメリットって何があるのでしょうか？

>>521
xlsは2003以前との互換形式

メリットは同じブックを2003でも2007/2010でも読み書きできること
デメリットは2007/2010の機能の一部が使えない（使っても保存できない）こと

ブックのサイズはxlsのほうが多少大きくなる

障害者施設に通っているんだが就職する時にワードとエクセルが使えないと就職が不利になると
言われて今から勉強しようと思うんだけど今は2010だけど来年になったら新しいバージョンとか
発売されるの？
いまさら2010買うってのはどうなの？

問題ない

Excelのセルを目で追っていると
ほんの数十秒で無性に眠くなり意識が遠のく事があるのですが一体どうすれば良いのでしょうか？

>>525
ベッドで作業しろ

>>524
GUIがめちゃくちゃ変更されているってないよね？2010勉強してもいいのか

>>525
セルがあるからいけない。
Naxcelをつかおう。

べつに来年Excel2013がでるとして、世間のExcelユーザーが一斉に買い換えるわけでもなし
このスレではいまだに2000つかってるへんなひともいるわけだし

バージョンが違っても大丈夫なのよね？
何でも2007は糞難しいって話だけど・・・・( *｀ω´)ｎ

誰がそんなコト言ってんだか

難しいのは
「2003までのインタフェースに慣れきった人が
事情で仕方なく2007や2010を覚えにゃならんとき」
くらいのもんだ。

新しく勉強するなら、むしろ2007や2010からのほうが
覚えやすいと思うぞ

ほっほっほっほっほっほ( *｀ω´)ｎ

525円の本で勉強するよ

実技試験でもない限りExcelなんて余裕ですって言っておけばいい
アプリなんて必要になったら必然的に使えるようになるんだから

私の趣味はExcelです。

Excelは俺の嫁

最近Excel勉強し始めたけど面白いな趣味はExcelって言ってもいいぐらいやってる

>>536
Excelでやりたいことが、はっきりしてるんじゃない？

>>537
そうそう
やりたいことを勉強していったらその途中でいろいろ知って思った以上にExcelでいろいろ出来て
Excelすげーって面白くなってるとこ

>>538
そういうのは、精神的にもいいね！
Gooood

お？名前変わってんな
どこで選挙あるんだ？

【1 OSの種類 　 　 　 　 .】 Windows7 home 64ビット
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 少しは
【4 VBAでの回答の可否】 可 　関数で出来るなら関数でしたいです



A列に日付がズラーと入っていてその翌月月初を知りたい

2005/10/23
2008/6/29
などと入っていてB列には
2005/11/1
2008/7/1
などとしたいんですが。

月末+1

=(EOMONTH(セルの日付,0)+1)
で出来ました。ありがと

A1に入ってるとすると
=DATE(YEAR(A1),MONTH(A1)+1,1)

2010に最近変えたんだけど、
2001/12/1に一月足すと自動的に一つ年が繰り上がった。前からだっけ？

>>544
2003と2007と2010で試してみた
どれも結果は同じ

ちなみに2002/1/1から１を引くと2001/12/31になる
これを利用して任意の月の月末日を表示するというテクニックもある　豆な

>>546
ふつうに日付を関数やVBAで常用的に使ってる人には
基本ともいえないくらいあたりまえのこと。

あなたの民度がバレたな。

民度(

あたりまえに使っている人にとってはあたりまえのテクニックなのはあたりまえだろバカか

あたりまえ〜
　　あたりまえ〜
　　　　あたりまえ体操〜♪

ほっほっほっほっほっほ( *｀ω´)ｎ

書店のパソコンコーナー見てきたがexcelやwordの本が沢山あったぞ
どれを選べばいいのやらわからん
525円の本がなかったぞ

>>550
法律の話がしたけりゃ裁判所に行け

「豆な」　ってなぁに？

おおさか

質問二つ
Excel2010で重複の削除はあるのですが
重複以外の削除、つまり重複データだけをピックアップして
何が重複しているかを知りたい場合、そういうのって可能でしょうか？
それともVBAを使わないときつい？

もう一つは
選択されている範囲の中にある空白チェック（スペースだけのセル含む）をしたい場合
これもVBAを使わないときついでしょうか？
そうすると上のから一列一列見ていくと時間がかかるので
うまいやり方とかあるのでしょうか？
検索を使ったやり方とか

＞ちなみに2002/1/1から１を引くと2001/12/31になる

試にやってみた
A1セルに =2002/1/1-1 と入力しEnter

すると、あーら不思議・・・・

2001/12/31 とはならずに 2001 になっちゃった！

>>555
条件付き書式＞セルの強調表示ルール＞重複する値

検索と選択＞条件を指定してジャンプ＞「空白セル」を選択してOK

これでなんとかなるでしょ

>>555
A列にそのデータ
B1=IF(1<COUNTIF($A$1:A1,A1),"",IF(COUNTIF(A1:$A$100,A1)>1,"tyoufuku",""))
下にオートフィル
で、オートフィルタ

>>556
2002÷1÷1−1　とおなじになるね。一瞬迷ったｗ
念のため補足しておくとa1に日付、b1にa1-1って感じね

>>558 訂正します

>>555
A列にそのデータ
B1=IF(1<COUNTIF($A$1:A1,A1),"",IF(COUNTIF(A1:$A$100,A1)>1,"tyoufuku",""))
下にオートフィル
で、オートフィルタ

>>556
2002÷1÷1−1　とおなじになるね。一瞬迷ったｗ
念のため補足しておくとa1に日付、b1にa1-1って感じね

たとえば
A1セルにあああ
B1セルにいいい
C1セルにあ

と合った場合
A1からC1までの「あ」の数が4て言うのを取得したい場合
教えてください
countifでもcountaでもないし

>>560
「excel 文字の数 カウント」でググったら出てきた
=SUMPRODUCT(N(MID(A1:C1,ROW($1:$50),1)="あ"))

559の訂正箇所がワカラン

項目１ １１１
項目２ あああ
項目３ ａａａ
項目４ ＠＠＠
項目１ ２２２
項目２ いいい
項目３ ｂｂｂ
項目４ ＊＊＊
項目１ ３３３
・
・
・
みたいなｎ*２のデータを
項目１ 項目２ 項目３ 項目４・・・
１１１ あああ ａａａ ＠＠＠・・・
２２２ いいい ｂｂｂ ＊＊＊・・・
３３３
・
・
・
と整形したいのですがどうすればよいでしょうか
列と行の入れ替えやピボットテーブルは試したのですが上手くいきませんでした

A,B列に表示されているとして、まずA列でソート。
仮にD列以降に項目1,2,3,4...と整理するとして、、
D1に"項目1"
D2に
=IF(ROW()-1<=COUNTIF($A:$A,D$1),OFFSET($A1,MATCH(D$1,$A:$A,)-1,1),"-")
とでも入れて
下と右に必要分オートフィルすれば、
項目1 項目2 項目3 項目4
111 あああ aaa ＠＠＠
222 いいい bbb ＊＊＊
333 - - -
- - - -
こんなかんじにはなるけど

ピボットテーブルでいっぺんにやろうとするとだめ
項目１でいったん作成、それをどこかにコピペしてつぎは項目２、て具合にやらないと

Sub Macro1()
Range("A1:M1").Select
Range("M1").Activate
Selection.AutoFilter
ActiveSheet.Range("$A$1:$M$123").AutoFilter Field:=11, Criteria1:=Array("-1" _
, "12", "-12", "2", "3", "-3", "-5", "6", "8"), Operator:=xlFilterValues
End Sub

マクロの自動記録で、Ｋ列の中から0と空白セルを除外したものを抽出しましたが、
Criteria1:=Array("-1", "12", "-12", "2"・・・　と汎用性がありません。
他のデータでも使えるよう、「0と空白セルを除外」を指示するにはどう書けばいいですか？

【1 OSの種類 　 　 　 　 .】 WindowsXP、7
【2 Excelのバージョン 　 】 Excel2003、2010

>>566
ActiveSheet.Range("$A$1:$M$123").AutoFilter Field:=11, Criteria1:="<>0", Operator:=xlAnd, Criteria2:="<>"

こういうのは
全部3文字なのかどうか
順番はずっと一定なのかどうか
という部分の正否で処理がウンと変わるんだよな

あああ／いいい／ううう
えええ
おおお／かかか
…
こういったデータがある場合
えええ
あああ
いいい
ううう
おおお
かかか
みたいに、もともとの／データは削除して、／でデータを分割して下に付け足していく
こんなことをしたいのですがやり方とかあるのでしょうか？

動的配列とsplit関数を使う

>>569
VBAなら頑張れば
多分数式だと相当きついと思う。区切り位置でもなんともならんしなぁ
しかし

あああ
いいい
ううう
えええ

の順番じゃないの？

ありがとうございます
できれば／があるセルの内容を分割して、無いセルの下に順番に追加していきたいです

>>572
VBAでやれ
A列に元のデータ、B列に加工後のデータ

Sub abc()
　　r = 1
　　r_end = Cells(Rows.Count, 1).End(xlUp).Row()
　　
'スラッシュなし
　　For i = 1 To r_end
　　　　If InStr(Cells(i, 1), "／") = 0 Then
　　　　　　Cells(r, 2) = Cells(i, 1)
　　　　　　r = r + 1
　　　　End If
　　Next

'スラッシュあり
　　For i = 1 To r_end
　　　　If InStr(Cells(i, 1), "／") > 0 Then
　　　　　　tmp = Split(Cells(i, 1), "／"): tmp2 = UBound(tmp) + 1
　　　　　　Cells(r, 2).Resize(tmp2) = WorksheetFunction.Transpose(tmp)
　　　　　　r = r + tmp2
　　　　End If
　　Next
End Sub

>>567
ども

Excel2010で画面上には表示されないけど
印刷時にヘッダーにシート名を表示したい

>>575

はい↓
http://excel.tips.net/T002639_Full_Path_Names_in_Headers_or_Footers.html
パスをシート名にすればいけるでしょ。

>>575
http://itpro.nikkeibp.co.jp/article/COLUMN/20070730/278560/
レイアウト表示の場合は分からん

>>575
う〜ん。　おれのより　>>577 を見るほうが利口だな。

2007だとヘッダー設定が「表示」リボンにあるから。
2010も同じあたりかな？

2007でも2010でも
「挿入」リボンの「ヘッダーとフッター」からやるのが
わかりやすいし楽だと思ったりする

レス大変遅くなりました、アドバイスありがとうございました
>>564に書かれてあるやり方が一番うまくいきそうでした
しかし右へのオートフィルは問題ないのですが、下へのオートフィルがどうも上手くいきません

項目１　１
項目２　あああ
項目２　＠＠
項目２　ｘｘｘｘ
項目３　\\\\\
項目４　ｓｓｓ
項目１　２
項目２　いいい
項目４　ｘｘｘ
項目１　３
…

といったように項目の内容の文字数が一定でないことや、項目によっては存在しなかったり複数の要素があるのが原因でしょうか？

【1 OSの種類 　 　 　 　 .】 WindowXP-Pro
【2 Excelのバージョン 　 】 Excel2000（実際はCSV）
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

0〜999の整数を3桁揃えで保存したいのですが上手く出来ません。

3桁揃え自体は【ユーザー定義】→【種類】→「000」でOKなんですが、これをCSVで
保存し再度開くと2桁以下の整数からアタマの0が消えてしまいます。

例：　65　→　065　→　保存　→　開く　→　65に戻る

セルは「形式を選択して貼り付け」→「値」→「保存」でも不可でした。どうすべきでしょうか。

>>580
情報の後付けをするな！！！！
何故最初から正しい情報を出さん！！
なめてんのか！なめてんのか人間を！！！
おまえには人間の誇りがないのかって聞いてんだ！！

もう二度とここに来るな・・・おまえの顔は見たくない

拡張子を.txtにして開くと065になってる？
なってれば拡張子を.csvに戻してセルの書式設定→表示形式で文字列を選択

>>583
さんきゅう。
Txtで開くとちゃんと3桁（065とか）になってた。

>>580
>>564の方法でうまくいったけど
最初にソートした？

>>580
データ追加するたびにソートとかミスのもとだよ

A列に、「項目○○」B列に、「1」「あああ」とか入ってるとして
C列に、「=MID(A1,3,100)」で下にフィル
D列に、D1だけ「1」を手入力、
んでD2は、「=COUNTIF($C$1:C2,C2)」で下にフィル
E列に、「=C1&","&D1」で下にフィル

出力先は別シートに作るとして
第1行とA列に値を手入力してこんな枠を作る

×１２３４５・・・
１ω
２
３
４
・
・
・

この枠の中に出力させる
上で「ω」が入ってるセルに
「=INDEX("入力シートのB列",MATCH(B$1&","&$A2,"入力シートのE列")」
を入力

あとは右でも下でもコピーでいける
これなら「A列は「項目○○」B列にデータ」という規則さえ守られていればソートなんか不要

>>580　ソートしないの考えてみた
C1　=COUNTIF($A$1:$A1,$A1)
D1　=COUNTIF($C$1:$C1,$C1)
E1　=IF($C1,$A1&"_"&$C1,"-")
と入れておいて下にオートフィル。　F列以降に整理するとして、
F1　=OFFSET($A$1,MATCH(COLUMN()-COLUMN($F1)+1,$D:$D,)-1,)
F2　=IFERROR(OFFSET($B$1,MATCH(F$1&"_"&ROW()-1,$E:$E,)-1,),"")
として下と右にオートフィル。
これだと項目がどんな場合でもいけると思う

度々申し訳ありません、アドバイスありがとうございました
重複項目の区別化や空白項目のスペース化は上手くいきませんでしたが、>>586-587のやり方で近いところまで整形することができました
当初自分が望む形を詳細に把握せずに書き込んでしまい、情報が後付けになり大変申し訳ありませんでした

ぜんぜんかまいませんよ　きついこといってすみませんでした

質問じゃなく愚痴に近いのですが。俺の周囲は、VLOOKUPやSUMIFの時点で分からないという人ばかりです。
マクロ入りブックを渡しても、迷わずマクロを無効にして開くことしかしませんし、ましてピボットテーブルなんて論外です。

俺は、自分用よりも、他人に頼まれ他人が使う用にExcelファイルを作ることが多い。その際、集計の効率的方法などを考えると、
どうしてもSUMIF（できればSUMPRODUCTまで）関数だとかピボットテーブルだとかを使ってしまいたくなる。しかしそうすると彼らは、
計算式のメンテは自分達では一切できず、少し変える必要が出ただけでお手上げになり、全て俺に投げてくる。
ピボットテーブルだって、データの更新をするとかがまず受け付けられないし。

こういうとき思うのが、自分って他人にExcelファイルを作ってあげるにつけ、分かりやすくする力が足りないのかなあということ。
よりシンプルに、簡単に、とは思い自分なりにやってるのですが・・・。
というか、他人向けに分かりやすく作れとかいくら言ったって、SUMIFやVLOOKUPまで使うなとかいうことになったら、そりゃもう何も出来んって話にならんかな？

>>590
やってあげればいいんじゃないの？それが仕事なら
やりたくないとかやらなくていいなら断ればいいし
教えたいなら教えればいいし

マクロを組んでやればいいじゃん。
データを更新するなら、更新用のブックを作ってフォルダに入れてやり、ボタンクリックで集計終了。
エラーが出たら MsgBox "エラーだってお！　○○さんを呼んでね〜" と書いておき、面倒をみる。

Excelに限ったことではないがスキル無いやつって自分で努力もしないで
「できねー、わかんねぇーｗ」でやらずに済むもんな

教え方が下手なやつって、何でも他人のせいにしたがるよねw
ここのスレでも逆ギレする先生がいるしw

日曜は趣味のExcelを満喫する日だよな今日も1日Excelをやり続けて楽しんだよ！ｗｗｗ　本当にやる過ぎると次の日頭が重くなるけどね（笑）

下っ端社員は色々雑用を押し付けられるもんだよ
愚痴ってても仕方ない
頑張って仕事して早く偉くなろうね

創・価
死・ね
創・価
死・ね
創・価
死・ね
創・価
死・ね
創・価
死・ね
創・価
死・ね
創・価
死・ね
創・価
死・ね　
創・価
死・ね
創・価
死・ね　
創・価
死・ね
創・価
死・ね　
創・価
死・ね

逆に考えるんだ！>>590
苦手な人たちにとっては神の存在なんだから。

いや　ただの便利屋さん

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

以下の<Sheet1>と<Sheet2>のデータから<得たい結果>を得たいのですが、
どうやったら良いのかわかりません。統合ではうまくいきませんでした…

<Sheet1>
ID　名称
10　AAA
20　BBB
30　CCC
40　DDD
50　EEE

<Sheet2>
ID　金額　単位
20　1000　個
40　2000　個
50　3000　本

<得たい結果>
ID　名称　金額　単位
10　AAA
20　BBB　1000　個
30　CCC
40　DDD　2000　個
50　EEE　3000　本

Vルックうｐ

ヴイlookuぷ

ｖぉおくｐ

>>601-603
みなさんありがとうございますｗ
「Vルックうｐ」でググったらVLOOKUPのことだとわかりました。
おかげで望む結果が得られました。

「Vルックうｐ」でググったら、もしかして: Vルックアップ　って出てきたｗ

俺のExcelの先生はみんな大好きぶいるっかとか言ってたな

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
Excel普段全く使わないわけですが、とある名簿管理的な事をしたいのです
1あああ　2いいい　3ううう という感じでセルごとに番号と名前だけあればいいのですが
ここで2の名前だけ消した後に 1あああ　2ううう と自動で名前を詰める事はできるのでしょうか？
番号は100近くあり、今までtxtファイルで手動でやっていました

>>607
名前を消す時に Ctrl+「-」キーを使えば、消えると同時に自動的に詰まってくれる

>>607
A1に=row()といれ、下にオートフィル
row()は行番号を返すので、行削除しても数字は変わらない

>>609さんの方法でとりあえず出来ました
場合によって右にいくつか続けたい時もあるのですがこれは無理でしょうか
1あああ　2いいい
3ううう　4えええ　5おおお
6かかか
7ききき

無理

マクロ実行で
Do until=200
Do until=300
Do until=100
　　処理
loop
loop
loop
上記のような処理をした場合200　とか　300　、100のように回数が多くなる場合エクセルがフリーズしてしまうんですが良い解決法はありますか？
少ない回数でやるとできるのですが、、、
回数多くても待っていればできるかな？と思い20分くらい待ちましたが実行が終わりませんでした。
待っていればそのうち実行終了しますでしょうか？それともずっとフリーズじょうたいなのでしょうか？
教えてください、お願いします。

>>612
そんなもん処理の内容による

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


ＰＤＦファイルに直接編集が出来ないのでエクセルに貼り付けて編集しようと思っています。
挿入から図でＰＤＦを貼り付けて、挿入からテキストボックスで文字を書こうと思います。
（職場からデータを持ち出せないのですぐには出来ません）

ほかにＰＤＦに直接加工する方法をご存じでしょうか？
（フリーソフト、市販のソフトは職場では使えないです）
よろしくお願いします。

PDFを変えれば出来るけど？
（テキスト枠を作って入力可能状態にしておく）

>>614
PDF　編集　とか　PDF 加工　　でぐぐれ
スレ違い

>>614
その質問excel関係ある？

>>610
それをそのまま再現するなら
a1=row()&"aaa"&row()+1&"iii"
a2=row()+1&"uuu"&row()+2&"eee"&row()+3&"ooo"
とかになって結構めんどくさいけど、まぁ仕方ない
解決するなら正規化だろうけど正規化するのもめんどくさそうなデータなのは伝わってくるのでそのままで、良い

>>612
無限ループなら待ってても終わらないし
無限ループじゃなければ待ってれば終わる

質問です。
シートに文字、図形、画像があり、図形のみを削除する方法ってありますか？
いくつか図形があるので一つ一つ切り取るのは面倒なので何か方法があるかと思いました。
ウィンドウズ7、2007です。

「excel vba 図形 削除」とかで検索してみたらどうかな

ジャンプ→セルの選択→オブジェクトでどうよ！

>>621ググります
>622挿入した写真も選択されてしまいます。
図形だけならいいですけど。

>>619
ありがとうございます。
ちなみに無限ループではありません。
ということは1時間とかでも待っていれば実行は完了してくれるということでいいですか？

コンピュータの性能の限界もありますしある程度までの容量？以上はフリーズしちゃうのかな？と勝手に思っていました。
1年半前に10万くらいで買ったＰＣでもこれだけ時間がかかってしまうのですが、今の最新モデルだと相当処理スピードに差はあるのでしょうか？
また、ワークステーションというのを聞いたことがあるのですがそれだと処理がはやいのでしょうか？
はやいのであればどのくらい違いがあるのでしょうか？
詳しい方すこし教えてください。よろしくお願いします。

>>624
http://www.youtube.com/watch?v=Q4gTV4r0zRs

>>625
本当にありがとうございました。
よくこんな題材をすぐにうｐできましたね。すごいですね。
内容みて少し切なくなってしましました。

みんなも見てみて、最初8分？なげーと思ったけど見始めたらすぐだった。
おもしろかったです、ありがとう。

バカにしてんのか？

計算してみたら？
600万回の繰り返しだから。
20,30,10にして6000回でやってみて
その時間×1000

>>628
その手がありましたね。
待っていればできそうだというのが分かったので出かける前に実行開始してみます。
帰ってきたら確認できます。

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

小数点以下って何でしたっけ

小数点より右の部分

フリーズは普通にするぞ。XP以前か2003だと良くなった
win7、2010だとメモリ消費多すぎって止まるように。OSかエクセルのバージョンかどっちが影響してるのかはわかんねぇ

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


http://www.odnir.com/cgi/src/nup61195.png
上記リストのタイトル欄別に合計をSUM関数で計算したいのですが、このようなリストが数千行あり、
1つ1つSUMの範囲を指定していると家に帰れなくなります。
タイトル毎にSUM関数を一発で指定できる方法はありませんでしょうか。
よろしくお願い致します。

>>633
まず集計して
=SUM(B2:D2)+IF(A2="",F1,0)
ttp://up2.cache.kouploader.jp/koups2504.png

あとは条件付書式で最後の合計以外を白くして見えなくするってのではダメ？
条件は、タイトル列の一つ下のセルが空白なら白(以下の例ではわかりやすくするために赤にしてるけど)
=A3=""
ttp://up2.cache.kouploader.jp/koups2505.png

>>633　ピボットテーブル

>>635
そうとう元データを変形（加工）しないとピボットテーブルは使えねえだろ
633くらい単純ならまだしも、実際のデータはもっと複雑な可能性あるし

助けて下さい・・・
簡単な家系図を作るように頼まれたのですが、私の知識ではできません。
名前、年齢、亡くなった年のみを書く家系図を作ろうとしております。
何か良いテンプレ、方法はありませんか？
＝で結んだり縦線でツリー型作ったりさっぱりなのですが。
2〜3時間中にしないといけません。
よろしくお願いします；；

>>637
セルを結合して罫線引いてもいいし
テキストボックスとコネクタのオートシェイプでやってもいいし
そもそもExcelじゃなくてもいいし

早速の回答有難うございます
>>638
ワードの方が簡単だったりしますか？

>>639
Excelで作れる人ならWordでも作れるし
Wordで作れる人ならExcelでも作れるよ
ExcelでもWordでも簡単だと思うよ

>>638
親父が亡くなって土地家屋の相続の関係で「相続関係説明図」というのをexcel
で最近作って他の書類と一緒に法務局へ出した。
司法書士を介さずどうにか出来たよ。

そんなことじゃないかも知れないけどまぁ頑張って下さい。

文中の>>638は間違えました。
>>637です Orz

レス有難うございます
>>640
知識がある方にとっては簡単なのでしょうか・・・
>>641
単なる親戚の集まり時に使うだけなので、堅苦しい感じじゃありません。
でも書き方のルール等全く分からないのです
夫婦は＝で結ぶ、等は分かりますが・・・

>>643
いやそれはここで聞くことじゃないだろ

手書きでいいんじゃね？

>>643
ご参考下さい。
http://up2.cache.kouploader.jp/koups2510.png

>>637
多分、ない。俺も昔暇にかまけてやろうと思ったけどぐちゃぐちゃになってやめた。
ちなみに家系図は長男の分だけ書くものということは、覚えておくとよい。
（家は長男が引き継ぐもの。具体的には↓こんな感じ）
http://hashizume-office.com/Image9000.jpg
あと少なくとも下書きは手書きの方が絶対にいい。エクセルでちまちまやってたら終わらないよ。

単なる親戚の集まり時に使うだけなのになんでそんなにフォーマットにこだわる必要があるんだよ…

レス有難うございます・・・
実はまだできてません・・・
>>646
大変参考になりました！
しかし、縦書きじゃなくてもいいのでしょうか？
縦書きが基本だというから余計に頭の中ごっちゃになります。
>>647
下書きですか・・・
ってか亡くなった日付とか書かないといけないのでそれもごっちゃになりますorz
>>648
単純に書けばいいといいますが、単純に書く知識すらないのです；；

>>649
そもそも家系図の書き方に決まりなんてあるの?
そして、仮にそんなルールがあったとしても
たかが身内の集まりで使うものでそこまで厳密にやる必要あるの?

図の向きが縦でも横でも、夫婦が二本線だろうが太線だろうが、
見て分かればそれで良いじゃん。
下書きすら書けないってのは家系そのものを把握してないってことでしょ。
それってExcelが分からないとか何とか以前のお話だよね。

>>634-635
ありがとうございます。
無事帰宅できました。

セルA1に英単語もしくは熟語をいれると
セルB1に日本語訳が出るようなことって可能でしょうか？
ネットを使える環境としても

>>652
たとえばブック内のどこかに英単語と日本語訳の対応表を用意しておけば
vlookupでOKだけど、そういうこと？
それともネット経由でエキサイト翻訳とか使って日本語訳を表示させたい、ってこと?

後者は分からないや

>>653
後者

>>652
2010には翻訳機能あるからうまくやればVBAとかでお望みのことができるかもね

>>652
VBAのWorksheet_Changeイベントでやればいい

翻訳結果はブロウザで見る形になるけど、

a1
englishを入れる
例:It's never too late to be who you might have been.

a2
urlを生成する
例:="http://translate.google.co.jp/#en/ja/"&a1

a3
リンクを設定する
例:=hyperlink(a2)

>>657
>>657は間違い。

a1
englishを入れる
例:It's never too late to be who you might have been.

b1
urlを生成する
例:="http://translate.google.co.jp/#en/ja/"&a1

c1
リンクを設定する
例:=hyperlink(b1)

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


リストのプルダウンメニューボタン(四角の中に逆三角のボタン)を常に表示させたいのですが、
ネットで調べたところコンボボックスにするのが良さそうということまでは辿り着きました。

しかし、リストで選択した値(文字列)を使って検索(VLOOKUP)を行いたいので、
リストから選択した文字列がちゃんとセル内に収まっていて検索値として選択出来るようにしたいです。
コンボボックスだとセル内には収まりませんよね？

コンボボックスで選択した文字列を検索値として指定する方法、
若しくは、ただのリストでもプルダウンボタンを常に表示させる方法で
何か良い方法を知っている人がいましたら、ご教授願います。
因みに図形でプルダウンボタンを作るのは、リストが余計分かりずらくなるだけだったので、それ以外の方法でお願いします。

>>659
>コンボボックスだとセル内には収まりませんよね？

コントロールの書式設定のプロパティで
・「セルに合わせて移動やサイズ変更をする」
を選択すれば、セルに合わせた大きさになる。

コンボボックスの値をセルと連動させれば良いだけでは？

>>660
セル内に収めたいのはサイズではなく、値(文字列)です。
分かり難い文章で申し訳ないです。

>>661
セルと連動、というのは「リンクするセル」を選ぶということでしょうか？
これを選んでも行番号しか返ってこなかったので困っていました。
が、少し頭を捻って、返ってきた行番号からINDEX関数で元の文字列を指定することが出来ました。
アドバイスありがとうございました。

しかしもうちょっとスマートな方法を知っている方がいましたら、
引き続きご教授お願いします。

この程度のことで質問なんかせず、INDEX使ってササッと解決しちゃうのがスマート
INDEX使うのはスマートじゃないとか言って駄々こねる事こそがスマートじゃない

>>663
>>662は方法があるかどうかを聞いてるのであって
スマートかどうかについてのお前個人の評価を望んでいるわけではない

有給の申請日数、残日数を自動計算する表を作りたいです。

1.開始日、開始時間、終了日、終了時間のセルに入力する。
2.1日は9:00〜18:00の8時間で計算。
3.12:30〜13:30は昼休み。

以上前提で、

例えば9月16日9:00から9月18日14:00と入力すると
申請日数2.5日と計算されるようにしたい。

日曜日や祝日は考慮しなくてもかまいません。

以上をどのように計算するか
教えていただけませんでしょうか。

>>665
例えば9月16日8:38から9月18日13:07と入力すると
申請日数はどうなればいいの？

質問内容に書かれていないパターンが多すぎて答えづらいし
単なる日時の算数ならそもそもExcelの質問ではない

>>665
イレギュラーな入力は考慮してないけど、
A1:開始日、B1:開始時間、C1:終了日、D1:終了時間と仮定して
=(DAY(C1-A1)-1)+(("18:00"-B1-IF((B1-"12:30")<=0,"1:00",0))/8/"1:00")+((D1-"9:00"-IF((D1-"13:30")>=0,"1:00",0))/8/"1:00")

>>666
入力規則で9:00〜18:00しか入力できないようにします。

>>667
大変ありがとうございます。
教えていただきました数式にCEILING関数を組み合わせて
想定通りの計算結果になるようになりました。

ある数値の範囲(A1:A100)があるとして、その中で条件に該当する数字をカウント。
＜条件＞
0以上10未満
10以上20未満
30以上40未満
50以上60未満

求めるにはこのような式になると思います(例：0以上10未満)
＝countif($A$1:$A$100,">=0")-countif($A$1:$A$100,">=10")

数式の入ったセルをコピーした時に">=0"や">=10"の条件の数値部分を次々に変化させられるような方法は無いでしょうか？

>>669
付け加えで、不等号は必須です。

データベース関数ってのがある

>>669
sumproduct使えばいいんじゃないの？

>>671-672
回答ありがとうございます。
発想を少し変えて「&」を使ったら、いけました。
ttp://imageshack.us/a/img820/5355/excelti.jpg

countifs使えばいいんじゃないの？

countifsは、Excel2003以前だと関数が無かったと思います。
汎用性がありそうなものを探していたので・・・

結構エクセルでできちゃうもんなのね。
過去よりの経験で、オートフィルが思うように行かないことなんかが
数え切れないほど合ったけど、すべてエディタで処理してきた。
文字列の置換とか、正規表現使えると物凄い幅広がるしね。

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

olapキューブについて質問です
EXCEL2003で作成したolapキューブをEXCEL2010で開いて更新しようとすると
OLEDBプロバイダーがありませんと返ってきます
ちなみに　OFFICE2010　ホームアンドビジネスをインストールした
ＰＣで発生します
Windows2003に　OFFICE2010　プロフェッショナルをインストールすると
正常に動作します
どなたかお知恵を下さい

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

olapキューブについて質問です
EXCEL2003で作成したolapキューブをEXCEL2010で開いて更新しようとすると
OLEDBプロバイダーがありませんと返ってきます
ちなみに　OFFICE2010　ホームアンドビジネスをインストールした
ＰＣで発生します
Windows2003に　OFFICE2010　プロフェッショナルをインストールすると
正常に動作します
どなたかお知恵を下さい

すみません二重に書き込んじゃった

677 ですが
情報不足でした
元データはMs-access2003のクエリです

Windows2003→WindowsXP
慌てものです
ごめんなさい

>>677
そういうのはココじゃなくMSのサポートに聞くべき内容だと思うよ

このような表があります。
ttp://uproda.2ch-library.com/5899711t2/lib589971.jpg
マクロで、変数AKBがA02のとき、青森・岩手・山形を抽出するには
どう書けばいいですか？

>>683
山形？？

色々調べたけど
わかんないんだよ
該当するPCにaccess2010のランタイム入れてみたり
データベースアクセスドライバー入れてみたり
調べられることは全部やった
でも解決できん
ソフト屋さんにも投げられた
何とかならんかな
ダメなら作り直しジャ

>>685
こういう症状の時はクリーンインストール

買ったばっかのＰＣなんだけど
なぜwindowsXPのexcel2010なら動くのかな
ＤＢへの接続文字列は違うような気がせんでもないけど
よくわからんのよ
ｈｐもrenoboも一緒の症状
何でだろ
windowsxpにはドライバが残ってるってこと？？？？？
35年以上COMPUTERにかかわってるけど解決できんのは
なんかイヤなのよね
msだからとかpcだからとか
でも最悪作り直しかもね
今はそんなもんか

>>684
青森・岩手・宮城ですね。
失礼しました。

なんで宮城じゃなく山形なの？

あ〜、単なる誤記ね。了解

>>683
Dim AKB As String
AKB = "A02"
Range("A3:F9").AutoFilter Field:=Application.WorksheetFunction.Match(AKB, Range("A3:F3")), Criteria1:="<>"

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
フォームオブジェクトのテキストボックスの中の値を取得するために
OLEObjects("textbox").Object.Text
を使用しています。

通常はテキストボックスに入力した値が取得出来るのですが
別の端末で実行すると
「OLEObjectクラスのObjectプロパティを取得できません」
とアラートメッセージが出ます

デバッグモードでテキストボックスをウォッチしてみましたが
ウォッチ式の値にも同様のメッセージが出ており
内容が表示できませんでした

環境や設定の問題だとは思いますがどこに原因があるか不明です
原因や原因の特定方法、または解消方法などありましたら教えていただけますでしょうか

>>692
OLEObjectsをウォッチしてみたらいいんじゃないのかな

>>693
OLEObjects("textbox")
をウォッチしてちゃんと値は表示されるのですが
Objectの項目にはエラーが出てるのです

>>694
ミニマムのブックをアップするのが一番早い

MOSーExcelの検定試験が明後日あるんですが
その会社の対策テキストの模擬試験で90点以上安定してきたんだけど
確実に合格できますか？

Excel2010

>>696
とりあえず>>1以下を読んで、
その質問がスレ違いだということを理解汁

ほんで本番の試験では
「注意書きだの問題文だのを真っ先によく読む」
程度の基本は頭に叩き込んどいたほうがよかろ

他人が合格できるかどうかなんぞ保証できる人間はおらんわ

>>696
できますん

=HYPERLINK("http://ejje.weblio.jp/content/"&C32)
こういう情報のリンクするセルがあった場合
リンクを押下すると対象のページに飛びますが
あまりにもエクセルの記述が長いので
エクセル上の表示を"●"みたいにできますでしょうか？

>>700
せめて[F1]キーぐらいは押してくれ

>>701
ヘルプの中にそういった記述はございませんでした

>HYPERLINK(リンク先,別名)
別名は？

>>677

Windows7 64bitは、そのままだとOLEDB使えないようだけど、そのこと？

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
描写ツールを使う際、図形のスタイルのデフォルトカラーが気に入らないので変えたいのですが、変更できません。
また、図形挿入時、図形別にショートカット、もしくはウィンドウを切り離して使いたいのですが、できませんでした。
解決方法があれば、アドバイスよろしくお願いします。

Excelを使いこなしていと最大行数をオーバーするデータが世の中にはたくさんある事に気が付きますが
最大行数も列数も全部使い切ってしまうようなデーターはあるのでしょうか？
1シートの全セルを使っても足りないというデータがありましたら差し支えなければ具体的な名前を教えて下さい。
宜しくお願い致します。

>>706
会社で使っていたら行数が足りないデータっていくらでもあると思うよ。
うちの会社でも製品の出荷データや請求データなんて、アイテム別にしたら数ヶ月で100万行越えるよ。

>>706
2chの全ログとか
挙げだしたらキリがないと思うし、そもそもExcelの質問からかけ離れてる

２０１０でもか?

ビッグデータといってな

一括置換すると対象のセルに赤文字にしていたりすると
すべて黒になってしまいますが
これを色を変えずにまとめて置換する方法ってあるのでしょうか？

VBA

>>712
普通に置換では色の維持とかは不可能？

>>711
置換時に「オプション」をクリックして、
「置換後の文字列」にも書式設定してやりゃいいだけと思うが

>>713
VBAじゃないと無理

>>711
現実的じゃないだろうけど
赤文字にしているセルを全部選択（要はCｔｌキーで選択）したうえで
それに名前をつけておく。たとえば「RED」とか。
全部黒にしてから。
セル名で「RED」を選んで、赤にする。

とかすればできることはできるけど、選ぶこと自体いやなんだろな。

>>716
ピンポイントでセル洗濯しなくてもシートごとコピー、置換、書式だけ貼り付けすればいい

セル全体に色がついているのか、セル内の文字列の一部分に色がついているのか、
それによって変わってくる

>>717　
あ、それいいね

今日もほぼ一日中Excelとにらめっこしてたけど
ここに常駐してる人たちは皆そうだよな？！

>>720
さいごはどっちが笑って負けたの？

>>721
まだ続いている　VBAで完全オートパイロットにして最後はこっちが笑って勝つ予定・・・。

笑うどころが普通に頭が重いがｗ

10年後にはある程度の人工知能を持つようになってて、
にらめっこ機能とかも付与されると思うよ

>>691
ありがとうございます。
683のサンプルではうまくいきましたが、本家本元のファイルに組み込むと
全く違う番号を拾ってしまいます。
未だ解決には至らず・・・

>>725
本家本元とやらをうｐしたらどう？

あれ？過疎ってるなあ　みんなExcelやってないのか？！

やってるよ
昨日も3回ぐらいやったし

excelを"やる"ってなんぞwww

そっか
みんなー、エクせる？

でいいのかな

すみません教えて下さい。
1ヶ月ぐらい前のmicrosoft updateの後から、毎回
excelを立ち上げた直後に必ず「名前を付けて保存」のウインドウが表示されて、
その後一切の操作を受け付けなくなりました。ウインドウはどうやっても消えないですし、
試しに適当な名前で保存してもまた出ます。タスクマネージャー等で強制終了しか
出来ません。出来れば再インストール以外の方向で解決策をお願いしたいのですが・・・。

http://support.microsoft.com/kb/931786/ja
http://support.microsoft.com/kb/280504/ja
そういう問題はMSのサポートに問い合わせた方が早いと思うけど？

Excel2003,2007,2010,2013がパソコンにインストールされているのですが、xlsファイルは2003、xlsxやxlsmファイルは2007で開くよう設定はできませんか
今はすべて2010で開かれてしまいます・・・

スレチです。
Windowsのスレへどうぞ

>>733
関連付けでも修正できるし、最後に2003をインストールすればそっちが優先になる

>>733
起動時のオプションで /regserver を指定するとか

>>735
関連付けで2003を指定しても2010でひらかれます

>>736
調べてみます

ってゆうか、そんなに入れる必要が…
最新版あればじゅうぶんじゃね？
デバッカの方ですか？

>>738
残念ながら私はデバッカではありません
http://www.wdic.org/w/TECH/%E3%83%87%E3%83%90%E3%83%83%E3%82%AB

>>735
ウソは良くないな。
両方ともならないよ。

Excel初心者ですが
Ｅｘｃｅｌを思い通りに自在に使いこなせるようになるとお金持ちになれるのでしょうか？

なれますん

>>741
エクセルはできて当たり前
カネモチになりたいなら、HTMLでホームページ作れないとダメだ！

イチローの父はチチローですが
イチローの母はなんですか？

スルー検定実施中

>>744
カカロット

>>743
パソコンの自作ぐらいできなきゃ

パソコンを自作したら、開発費が億超えだぞ！

残業時間の端数処理について回答お願いします。
15分単位なのですが、15、30、45でそれぞれ端数処理の仕方が違います。
15以内（15含む）切り捨て
30以内（30含まず）切り捨て
45以内（45含む）切り上げ
例20:15→20:00
例20:30→20:30
例20:45→21:00

どうかよろしくお願いします

>>749
FLOOR関数を使いたまえ

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

質問です。
セルA1に数字を入力、もしくは書き換えをした場合
セルA2にその入力または書き換えた日付を取得することはできるでしょうか？
例えばセルA1に18と入っていたものを20と書き換えた場合
セルA2に書き換えた日付「10月25日」を表示させるといった感じです。

A2にA1の数字から日付を算出する計算式を書けばいいだけじゃね？
20で10月25日になるっていうだけじゃ関連性わかんねえけど

チカラワザするなら ="10月"&A1+5&"日" みたいなのでもいいやな
30入れたら10月35日になるが構わないのだろう？

>>752
すいません。質問の仕方がよくありませんでした。
＞セルA1に数字を入力、もしくは書き換えをした場合
＞セルA2にその入力または書き換えた「日の」日付を取得することはできるでしょうか？

セルA1に商品の個数を入力したとき、その入力した今日の日付（もしくは書き換えた
今日の日付）を横のセルA2に表示したい考えてます。

画像 http://www.dotup.org/uploda/www.dotup.org3553153.jpg

東証からexcelをダウンロードしてそこに自分で他のファイルをくっつけて
検証用に式を入れてみたんですが（A列とE列が一致しているかどうか）はて？状態です

A14以降がずれているから一致しないはずなんですが、式、間違ってます？
一応画像にも判るようにしてますが、
=IF(Axx=Exx,"○","")
なんですが。


ブック http://www.dotup.org/uploda/www.dotup.org3553151.xls.html
(pass excel)

計算方法が手動になってる。

>>753
Worksheet_Change

>>755
全っ然気づきませんでしたorz
ありがとうm(__)m

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

ピボットグラフで、理想的なグラフ化ができず質問いたします。
以下のようなデータで、IDが100項目あるとします。

ID　Date　Value
a　1/1　10
a　2/1　20
b　1/1　30
b　2/1　10
c　1/1　20

上記をX軸にDate　Y軸にIDを入れ、Valueの値が大きい上位200項目くらいを表示した結果、
私の理想では200項目が表示されてほしいのですが、画面には1つの線（Valueが集計されたデータ）のみ表示されます。
集計されないようにしたいのですが、設定方法を教えて頂けないでしょうか。よろしくお願いいたします。

>>758
なんか、ピボットで最初の指定（IDとDateを入れる場所）から
おかしいんじゃないかな。

それと、
>Valueの値が大きい上位200項目

Dateによって、あるいは、IDによってValueの順位は異なるでしょ。
それとも、Vlaueの合計値の上位？

>>759
返信ありがとうございます。

現在の指定場所などが分かるように、jpgでUPいたします。
http://www.dotup.org/uploda/www.dotup.org3554291.jpg

　>Dateによって、あるいは、IDによってValueの順位は異なるでしょ。
　>それとも、Vlaueの合計値の上位？

ご指摘どおり、Valueの合計値の上位を表示させたい。を意図しております。
凡例が255を超えると警告が出るのですが、
合計値が大きいものを上位から表示させたいです。

しかし、jpgを見て頂きますと、データは1つだけで、凡例の場所に【集計】とだけ表示されるのみです・・・

>>760
1日分だけでいいからid別のデータを上げてみんさい。

>>761
txtデータでUPしました。
http://www.dotup.org/uploda/www.dotup.org3554537.txt.html
上記ファイルをグラフ化すると>>760のような状態のグラフになります。

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

エクセルのマクロでホームページの訪問者数を記事ごとに自動集計していくことは可能でしょうか？
A1に「記事Xの訪問者数」、A2に「記事Yの訪問者数」、という感じです。

>>763
前提条件が不明で【4 VBAでの回答の可否】が否なので具体的には答えられないけど
可能でしょうか？という質問に対する回答は「可能です」

自動集計という言葉がちょっと引っかかるんだけど、
データはExcelにためていくの？
それとも、別にためられていて、それを毎回読み込むという事？

>762
id別に系列を作れば折れ線になるんだろうけど、、
http://www.dotup.org/uploda/www.dotup.org3555225.jpg

>>766
ありがとうございます！
そのグラフを表示させるにはどのように操作するのでしょうか？

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

>>765
Excelにためていきたいです

失礼しました、768＝763です

>>756
ありがとうございます。
Worksheet_Changeでなんとかなりそうです。

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

複数の条件を満たすセルの数値の合計を出したいのですが困ってます。
sumifs関数を使ってますが、数値の範囲を条件として指定する場合には、
どうすれば宜しいでしょうか？

条件は日付が　20121031　このような数値で入力されており、
20121001〜20121031範囲を条件として、指定したいのですが…

どなたか助けて頂けると助かります、宜しくお願いいたします。

=SUMIFS(G2:G747,B2:B747,A4,C2:C747, 【この部分】 )

>>771
sumifsでググれば山ほどサンプル出てくるけどそれじゃ不満ってこと？