Excel総合相談所 88

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

以上でテンプレ終わり

>>1-6乙

>>1-6
乙です。


質問です。
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 (ヘルプでの)検索キーワード】cell row

D6セルに『テスト１』と入力して、そこから3行置きに『テスト２、テスト３・・・』と数字を増やすにはどうしたら良いですか？

自分で書いて失敗したのは以下の書き方です。

="テスト"&CELL("row",D6)-5


よろしくお願いします。

>>8
CELL関数の代わりにROW使わせてもらったよ

=IF(MOD(ROW(),3)=0,"テスト"&(ROW()-3)/3,"")

=IF(MOD(ROW(),3)=0,"test"&INT(ROW()/3)-1,"")

遅かった

>>8

作業列に番号をふってからソートするんだ。
そっちの方が「良い」。

>>11

>8

D6ｾﾙに「テスト１」と入力後、D6:D8を選択して下にｵｰﾄﾌｨﾙじゃだめ？
数式でやりたいの？

>11は無いわｗ

>>9-10
おかげ様で出来ました！
ありがとうございました。


>>11
???


>>13
そのやり方は知らなかったです。
勉強になりました！
ありがとうございます！


みなさん、どうもありがとうございました！

11がわからない

１１のやり方は結構メジャーな方法

A列にテスト1〜テスト100までオートフィル。B列に1〜100まで番号を振る。
100の下にB列にもう一度1〜100まで番号を振る。
もう一度1〜100まで。
（つまり300行まで1〜100の繰り返し）
B列でソート。
出来上がり。

でも>>13の方が簡単そうだなぁ。
左側に何か入力しておいて、D6に入力してから3個のセルを選択してフィルハンドルをダブルクリックすりゃいいんだし。

●はアクセス規制で書き込めないが何があったんだ?

>>17

＞ でも>>13の方が簡単そうだなぁ。
今回の場合は>>13の方法でもいいな。この方法は正直忘れてた。
>>11がいいのはグループごとのソートという明確なルールによってデータが配置されること。

>>13のやり方は秀逸だ・・知らんかった
関数＆>>11しか知らなかったよ。

Excelのオートフィルには色んな機能があって、
単純にドラッグやダブルクリックする他にもCtrlキーやAltキーと組み合わせると動作が変わる

>>20
ためしにshiftと組み合わせたら挿入になった
色々あるんだねぇ

>>13の応用で
B1に=A1
B4に=A2
B7に=A3
みたいな式にするときにも使えるね。
もちろんB1にそのまま=A1じゃ駄目だけど。

ここまで評判が良いとちょっと恥ずかしい(*^^*)

複乳 ◆MeiY43UMr.様、ありがとうございました。
規制で書き込めず、返事が遅れてすみません・・・

くだらないことだけどさ、
vlookupってtrueがデフォで作られたんだよね･･･、なんとなくtrueとfalseが逆に思っただけ。

>>25

ほんとにくだらないぞ。

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

グループごとの集計で値の種類の数を出すにはどうすればいいでしょうか。
たとえば下記のような売上データの日付と品目の部分から

日付 品目
10/19 りんご
10/19 りんご
10/19 みかん
10/20 イチゴ
10/20 みかん
10/20 みかん
10/20 バナナ
10/21 イチゴ
10/21 イチゴ
10/21 イチゴ

下記のような表を作りたいです。
10/19 2
10/20 3
10/21 1

ピボットが得意そうな分野だと思ったけど、無理かな・・・　もしくは関数で

>>27
C2=IF(A2<>A1,A2,"")
D2=IF(A2<>A3,A2,"")
E2=IF(COUNTIF(INDIRECT("b"&MATCH(A2,C:C,0)&":"&"b"&ROW()),B2)>1,0,1)
F2=SUMIF(A:A,C2,E:E)
G2=IF(F2=0,0,COUNTIF($F$2:F2,">0"))
H2=INDIRECT("r"&MATCH(ROW()-1,G:G,0)&"c3",0)
I2=INDIRECT("r"&MATCH(ROW()-1,G:G,0)&"c6",0)
後は2行目〜好きなところまで下にオートフィル
HとIに答えが出るはず

もしくはA・B列を選択、データ、フィルタ、フィルタオプションで重複するデータを無視にチェック
集計でデータの個数ってやるのもいいかもしれない
ピボットってこの問題解けるの?使わないから知らないんだけど

>>28
ありがとうございます。
やっぱり関数でやると、面倒になるよね。
フィルターオプションの重複無視を使ってからの集計がいい案ですね。
助かります。

Foe Eachを使い、売上実績.xlsがあったらアクティブになってるシート名を
変数WS3へ入れたいんですが、下記の???には何て書けばいいの？

For Each WB In Workbooks
　If WB.Name ="売上実績" Then
　　WB3 = WB.Name
　　WS3 = ???
　　Exit For
　End If
Next

>>30
ActiveSheet.Name

ここのしとたち、あたまいいな。たちまちかいけつしる。

>>31
ありが�d!!

ActiveWorksheet.Name と書いたらダメだったので途方に暮れてました・・・
ブック名は ActiveWorkbook.Name と「Work」が付くのに、何でシート名は ActiveSheet.Name なんでしょう？

>>32
２ちゃんねる語として、その文法は間違いｗ
語尾の「しる」は「〜しろ」という命令形なので、「〜する」では使わない。

と脱線してみるﾃｽﾄ

sheetとsheetsもよく混乱します＞＜
よくわかっていなからだけどさ、
ActiveSheetとか、Worksheetsとかさ。

単数と複数

A1のセル内に

ABCDEFGという文字列があった場合
・文字列がいくつあろうとも一番右の値を取得　＝　G
・左から数えて4つ目の文字列を取得を取得　＝　D
・Bが左から数えて何個目か？　＝　２

それぞれ教えてください

>>34
〜ﾃｽﾄ、は率先してやってみるという意味合いが強い言葉にﾃｽﾄと付ける事により
失敗した際の責任を全部帳消しに出来る便利な語尾
脱線程度で使うのは少しもったいない
>>35
覚えるしかない。けど大概複数でしょう。単数なのは最初から付いてる名前ぐらいなもんで
>>37
・文字列がいくつあろうとも一番右の値を取得　＝　right(a1,1)
・左から数えて4つ目の文字列を取得を取得　＝　mid(a1,4)
・Bが左から数えて何個目か？　＝　find(a1,"b")
もし分からなきゃ「関数」で検索するとよろしい。エクセルの関数一覧がでるサイトが最初に出る

=FIND("B",A1,1)でﾈﾉ?

そうか、そうだな。すまんかった。寝る。

>>33 シートの場合、ワークシートとグラフシートがあるから
Worksheetsコレクションだとワークシートのみ
Sheetsコレクションだとワークシートとグラフシートが扱える
グラフシートを作ってWorksheets.CountやSheets.Countをやってみればわかるよ

機能をよく考えてみるとわかるよ。
Activeにできるのは1つだけ。BookもSheetもね。ウィンドウを複数開いても一番上に表示できるのは1つだけでしょ。
Selectは複数できる。例えばセルをたくさん選択していっぺんにデータを入れたり消したり。だから複数形でCells。

Workが付くかどうかの区別はよくわかんない。英語力があればわかるのかなあ。

まだ未熟なせいで、うろ覚えでworkをつけては黄色くなり、
ｓをつけては黄色くなり･･･
精進するわ

ActiveWorksheetじゃなくActivesheetなのは
>>41 の通りグラフシートがあるから

Worksheetが必ずActiveになるとは限らない
だからActivesheetとなる

ActiveWorkbookの場合はWorkbookの他にはないから

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

私女だけど質問させて下さい＞＜
マクロで出力した新しいBOOKを、
デスクトップに有無を言わさず強制的に、
保存させる方法はありますか？＞＜
任意のPCで実現させたいです＞＜

教えてください＞＜

>>45
Sub fukunyu()
　　Application.DisplayAlerts = False
Dim Path As String, WSH As Variant
Set WSH = CreateObject("WScript.Shell")
Path = WSH.SpecialFolders("Desktop") & "\"
ActiveWorkbook.SaveAs Path & "Sample1.xls"
Set WSH = Nothing
Application.DisplayAlerts = True
End Sub

がんば><

「私女だけど」と断るレスの93％は、男。
「＞＜」の顔文字を使うレスの89％は、男。

私女だけど＞＜

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

どちらで聞いていいのかわからなかったので、こちらで質問させてください。
VLOOKUPについてです。
Sheet1の検索値『食品』をSheet2から探し値を反映させたいです。
もしSheet2に『食品』というキーワードがないときに、０となるようにしたいのですが、数式がわかりません。
下手な文章ですみませんが、教えてください。

新垣帳.xlsのG列が0のとき、B列の番号を恋空.xlsから探し、C列の値が0より大きかったら、
新垣帳.xlsのE列へ書き込むマクロを書きました。
ところが、恋空.xlsに該当するものがないとき↓のエラーが出てしまいます。

　　実行時エラー '91'
　　オブジェクト変数またはWith ブロック変数が設定されていません。

そこで、On Error Resume Nextを書いたら続行してくれるようになりました。
しかし、今度は意図しない値も書き込まれてしまうようになりました。
また、エラーが出たときのPTを知りたいので、これをシート"ERR"へ書き出すには
どうすればいいでしょうか？

Sub E列を埋めれ()
Dim i As Integer, j As Integer, PT As String, PRC As Single
　i = 3: j = 1
　With Workbooks("新垣帳.xls")
　　Do While .Worksheets("MENU").Cells(i, 1) <> ""
　　　If .Worksheets("MENU").Cells(i, 7) = 0 Then
　　　　PT = .Worksheets("MENU").Cells(i, 2)
　　　　On Error Resume Next
　　　　PRC = Workbooks("恋空.xls").Worksheets("DATA").Columns("A").Find(what:=PT).Offset(0, 2)
　　　　If PRC <= 0 Then
　　　　　.Worksheets("ERR").Cells(j, 1) = PT
　　　　　j = j + 1
　　　　Else
　　　　　.Worksheets("MENU").Cells(i, 5) = PRC
　　　　End If
　　　End If
　　　i = i + 1
　　Loop
　End With
End Sub

>>49
=IF(ISERROR(VLOOKUP(検索条件)),0,(VLOOKUP(検索条件)))

PRC=Workbooks〜 の前に PRC=0 としておけば良いような気もするけど
On Error Resume Nextで手を抜かずにOn Error Gotoを使ってエラー処理しましょう。

mousの勉強をしています
メニューバーの書式の中にあるオートフォーマットやスタイルというのは一般的に使うのでしょうか？
今まで何年かエクセルさわっていますが存在も知りませんでした

>>53
私も知りませんでした
多分一生使わないと思います

>>46
すげええええええええええ

できた＞＜ありがとう＞＜

>>53
スタイルは10数年前作ったブックで今もそのブックを時々使ってるけが、そのブック以外使ったことないので使い方も忘れた。

スタイルとか何のためにあるんだろね?ｗ
Ctrl+！で充分じゃん

お世話になります。
【1 OSの種類 　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel２０００
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
　
アンケートの集約で、１００％積み上げ横棒グラフを書いています。
質問事項が５６、各項目の選択肢が４というものです。
これを二つに分けてグラフ化してプリントアウトしようと考えました。
そのときグラフの項目名がうまく表示できません。２８ある項目の内
４〜５個しか表示されません。項目軸の設定で文字のポイント数を下げると
全部表示されますが、４ポイントとか６ポイントまで下げねばならず、
プリントアウトしたものの字が小さくて実用になりません。
何とかなりませんでしょうか
　宜しくご教授下さい。

>58
Excel2003(WinXP)で試してみました。１グラフあたりの項目数は２８とし、
グラフシートをＡ３横、項目のフォントを１４ポイントにまではできました。
あとは印刷の際、Ａ３→Ａ４縮小機能を利用すればいかが？

追記
グラフはグラフシートに描いています。

というか、Ａ４横でも９ポイントで大丈夫ですよ。グラフシートに出力してみては？

>>58
他のだとそうならないのにそのグラフだけそうなるとか？

なんかたまにグラフの項目軸の幅、おかしくなったりするんだけど。
あと、Excelの表示倍率変えると表示されるのに、100％より小さくすると消えたり折り返したりするとか。

項目軸の幅が明らかにおかしいときはグラフ作り直したほうが早い。
倍率の問題だったら、印刷するときの倍率に気をつけて。

>なんかたまにグラフの項目軸の幅、おかしくなったりするんだけど。

んなこたぁないｗ
君が知らないだけでしょ。

ifの条件が２つあるときって、ifを入れ子にしなければ無理ですか？andとか&&みたいなのはないですか？

あ、私女ですが教えてください><

and
=IF(AND(A1=1,A2=1),"当たり","はずれ")
=IF((A1=1)*(A2=1),"当たり","はずれ")

or
=IF(OR(A1=1,A2=1),"当たり","はずれ")
=IF((A1=1)+(A2=1),"当たり","はずれ")

こういうこと？

>>63
論理式
=(a1=5)*1
だとa1が5の時1に、5以外で0になる
更に=(a1=5)*1*3
とすればa1が5の時3になる
=(a1=5)*(b1=2)*6
で=if(a1=5,if(b1=2,6))
と同じ式になる。ただ>64みたいに文字列の表示などには使えない
(CODE関数などを無理やり使えば可能といえば可能かもしれないが)

>>64,65
すばらしい
ANDとかORあったんですね。かなりすっきりしました。これから多用するなぁ。
ありがとうございました。

>>59さん　>>60さん　>>61さん　ありがとうございました。
自己解決できました。
「軸の書式設定」の「目盛」タグの「目盛ラベルの間隔」を「１」に設定することで解決しました。
ｍ（．.）ｍ

>>52
ありがとうございます。
もうちょっと頑張ってみます。

excel2007のアカデミック版を持っているのですが
これって二台のPCに入れる事はライセンス的に認められてますか？
通常のアカデミックでないものなら二台まではOKのようなのですが。。

つ ttp://www.google.co.jp

Good morning.
【1 OSの種類 　 　 　 　 .】 Windows vista
【2 Excelのバージョン 　 】 Excel2007
Q１.chechと打ち込むとche chのように見えるのですがchechと美しく見えるようにできませんか？
Q2.１1/7 と打ち込み、Enterを押すと11月７日と表示されるが１1/7のまま表示できないか？

よろしくお願いします。

Q1はフォント
Q2は表示形式

>>71
Q1：フォントを変える。msゴシックとかを使えば?
Q2：セルを右クリック、セルの書式設定の表示形式で日付を選んでお好みのを選ぶ。
　　　計算に使わないなら、文字列もしくは最初に「'」をつける

EXCEL2003
一つのセルに２日間の日付をいれられるように書式はできますか？

2009/11/05
2009/11/25 と入力すると

1105
1125 になるようにしたいです

>>74
A1A2に入ってるってことでいいのか?
その場合=TEXT(A1,"mmdd")&CHAR(10)&TEXT(A2,"mmdd")
で書式設定の折り返して表示にチェック

ありがとうございます。
A1の中に二つの日付を入力して、
>>74のようにしたいのですが。

2009/11/05　→　1105　は出来のですが、二つ同時は出来るのかな？

>>76
できるっちゃあできるが、改行やコンマか何かで区切る?それとも2009/11/072009/12/01みたいに続けて書くのか
それと日付・月は一月一日なら1/1なのか01/01なのか
この二つ教えておくれ

改行で0101です。01/01でも構いません。

>>78
ほい
=MID(A1,6,2)&MID(A1,9,2)&MID(A1,17,2)&MID(A1,20,2)

A1に貼り付けましたが出来ませんでした。
0と表示されました。

あ、しまった書式か。書式は無理だな
A1に入力してA1以外(A2でもB1でも)にその式を貼ると>>74の通りになるよってことでした

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

なんか知恵袋でも見たな

セルに文字を入力直後、
左向き矢印キーでカーソル移動しようとすると
選択するセルが変わってしまいます。

あらかじめ、F2キーを押す以外の方法はありますか。

ダブルクリックする

まあ慣れだよ

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

CSV形式で出力した奴に文字列をダブルクオートで囲み、
数列はそのままの形式にしたいのですがどうすればいいですか？

Good night.
>>72
>>73
ありがとうございます。問題は解決しました。
しかし、新しい問題が発生しました。
Ｑ３.その方法だとEnterを押すたびに設定が初期化されてしまいます。
設定を固定化する方法はないのか？

よろしくお願いします。

>>51ありがとうございました
>>49です

まだ一つわからないとこがあります
例えば『ラーメン』100食
『ラーメンセット』200食
のときVlookupを使うと『ラーメン』も200食となってしまいます
改善策を教えてください

まぁINDEX/MATCHの方が優れてるってことか。

>>86
そういう設定は調べても無かった
ダブルクォートで囲ませたい場合はセルの中にカンマを含ませると可能だが、希望とは違う答えだろうなぁ
俺がどうしてもやらなきゃならない場合は、csvで保存した後カンマを「,"」改行を「"+改行+"」に置換するかな
VBAで組めなくも無いけどめんどくさいからやらない

数式を残したい場合はオプションの表示のウィンドウオプションにある「数式」にチェックをつけるとできるよ

>>88
ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/vlookup2.htm
最後の検索の型という部分を0にする

>>89
この問題の場合は同じじゃないの?
vlookupもmatchも順番に並んでないと変な値をつかんでしまう。まぁソートのアルゴリズム通りにやってるだけだろうけどね

excelで作った折線グラフの折線だけをパワーポイントに貼り付けることはできないでしょうか。
あるいはそれと似たようなことができるなら紹介してください。
お願いします。

>>91
グラフの背景選択してdeleteキー
目盛り線を選択してdelete
これで折れ線だけになる。この状態でPrtScr押して、ペイントに貼り付け
テキトーに編集してコピーしてパワーポイントに貼り付け
でどうでしょう
折れ線だけは無理かねぇ〜

92さんへ、早速ありがとうございます。
なるほど背景、目盛り線はdeleteで消せるんですね。

折れ線だけはなかなか難しいようです。
折れ線をクリックすると折れ線だけ選択はされるみたいなのでコピーできそうな感じなのですが。
なんかいい方法はないでしょうか・・・。

せめて、背景を透明化させることができればと思うけど、なぜか透明化の設定が無効になってるし・・・。
Excel 2003です。

エクセルの他に、このようなことのできるグラフソフトがあれば教えてほしいです。

レイヤーとかでなんとかならないかなぁ。

ん、、できたかも。
第２数値軸を設定するとなんか91の言ってたようなことができた。

若干スレ違いなように思われるのは気のせいか。

>>87
シート全体のフォントをあらかじめ変えておく

百

困ってるんでお願いします

厚生労働省のHPからジョプカードを落として自宅excel2002で編集、その後ハロワでexcel2007(しかない)で
コンサルタント記入しようとすると玉にバグでかシートの保護が以後解除出来なくなる事があるんですけどこれ直す方法ないですか？
最初は保護解除できるんだけど、excel2007で編集してると何故か保護してる状態なのに保護解除出来なくなる。保護解除がグレーアウトして押せない。


ジョブカードの四角い枠内をクリックすると下地の編集ではなく、枠の文字編集になってしまう。
枠を一時的にずらすと問題ないのですが、いちいち動かすの面倒なので、枠のみ有効でクリックしたら下地の履歴書とかの文字が編集出切るようにしたい。

以上、2つお願いします

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2000(9.0.2812)/2003(11.8307.8221) SP3
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA メーラー 起動

VBAからデフォルトのメーラーを起動したときに
宛先、件名はセットされますが、本文がセットされません。

以下のmsdnのサイトを参考にしています。
http://msdn.microsoft.com/ja-jp/library/cc440860.aspx

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

Sub test()
Dim strBody As String
strBody = "本文"
Shell "cmd.exe /c start mailto:[email protected]?subject=メーラーの起動&body=" & strBody, vbNormalFocus
End Sub

付けたしです。
デフォルトのメーラーは、
Outlook Express 6 (6.00.2900.5512) を使っています。

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

A1に入力された数字のシートをSelectするマクロを作っています。

X = Range("A1")
Sheets(X).Select
　以下略

このようにすると、A1にある数字のシートではなく、
シートを左からA1番目のシートがselectされてしまいます。
どうすればいいでしょうか？？

具体的に言えば、

シートの並びが左から

メニュー,1,2,3,4,・・・・　とあって

A1=3　の時、"3"のシートでなく、"2"のシートがselectされてしまいます。

問題の切り分けをしよう

Shell "cmd.exe /c start mailto:[email protected]?subject=メーラーの起動&body=本文", vbNormalFocus

これで問題なければ次を試す

strBody = "本文"
cmdexe= "cmd.exe /c start mailto:[email protected]?subject=メーラーの起動&body=" & strBody
Shell cmdexe, vbNormalFocus

【仕事】会社の仕事でマクロを組むのはズル？事務作業の効率化に意見さまざま [09/11/06]
ttp://anchorage.2ch.net/test/read.cgi/bizplus/1257644267/

>>105さん
レスありがとうございます。

>>Shell "cmd.exe /c start mailto:[email protected]?subject=メーラーの起動&body=本文", vbNormalFocus

こちらでやってもダメでした。
「本文」を「abc」や「123」など半角英数字でも貼りつきません。

>>107
うちでも試してみた。windowsのスタートボタンから「ファイル名を指定して実行」で
cmd.exe /c start mailto:[email protected]?subject=メーラーの起動&body=本文
を入力しても、たしかに本文は入らない。

Excelの問題じゃないねー

2003+OE6で試したが無理だった

>>104
x = Range("A1")
Sheets(x & "").Select

&　""
を付ければ文字列に
*　1
を付ければ数値にできるよ。

もしくはdim　x　as　stringと文字列変数にしておけば良い

>104

>Sheets(X).Select
>シートを左からA1番目のシートがselectされてしまいます。

大抵の場合はそういうものです。
直接指定したいのであればｼｰﾄ名を記述するべき。

>>108-109
こちらもコマンドプロンプト直接から試してみましたが駄目でした。
これ以上はスレ違いになってしまうので、
コマンドプロンプトの観点から調べてみます。
ありがとうございました。

>>112
Shell "cmd.exe /k
と/kオプションをつけてプロンプトを表示させたままにすると、"body"は認識されていません〜とでる
対応してないのかも?

&などが入っているのはまずい。
とりあえず cmd/? を実行してヘルプを読むんだ。

>>102
これでいけた。
Dim strBody As String
strBody = "本文"
Shell "cmd.exe /c start mailto:[email protected]?subject=メーラーの起動^&body=" & strBody, vbNormalFocus

>>114さんのヒントを元に、&の前に^を付けたら動いたよ。
""に入っている&を認識させるのに^が必要みたい。

>>113-115
ありがとうございました。
動作も確認しました。
レスいただいた皆様に感謝です。

>>94
ん？普通にできるでしょ。

軸の設定を縦軸横軸とも、チェックを全部「なし」にして
目盛り線はdelete
プロットエリアの書式設定もすべて「なし」

で、グラフをコピーして、パワポ上で「形式を選択して貼り付け」で「拡張メタファイル」で貼り付け

普通に貼り付けても（Excelグラフオブジェクトとして挿入される）大丈夫だったわ。

Ｇｏｏｄ　ｍｏｒｎｉｎｇ．
>>99
ありがとうございます。
シート全体のフォントで検索したら成功しました。

日付も１１/9と打ったら１１月9日ではなく,シート全体で11/9と表示できないか?

>>119
CTRL+Aを押せば全セル選択できる
その状態で右クリック、書式設定をする

既に9ポイントのフォントで入力されているセルの文字の先頭に
１文字18ポイントの文字を入れる事を繰り返す作業をしています
この状況だと18ポイントで文字入力固定できないでしょうか？
今は1文字入れてはフォントを18ポイントに変えてるのですが。
WindowsXp Excel2003です。

>>121
VBAならいけるかも。使えるならやってみる
VBA使えないなら、別シートにA列を18ポイント、B列を9ポイントにして入力しておく
そのセルを図のリンク貼り付け(カメラ機能)をすれば編集は楽になると思います
↓カメラ機能の使い方
ttp://hp.vector.co.jp/authors/VA014071/tips/camera.html

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

ﾏｸﾛが登録されているﾌﾞｯｸのﾌﾞｯｸ名を取得する方法、あるいはﾏｸﾛが
登録されているﾌﾞｯｸをｱｸﾃｨﾌﾞにする方法を教えてください。

ﾏｸﾛのﾕｰｻﾞﾌｫｰﾑでの実行結果をｼｰﾄに記録したいのですが、複数の
ﾌﾞｯｸが開かれていて他のﾌﾞｯｸがｱｸﾃｨﾌﾞになっているときに意図しない
動作になってしまいます。
そこでﾏｸﾛの登録してあるﾌﾞｯｸをｱｸﾃｨﾌﾞにしたのですがﾌﾞｯｸ名が変わ
ってもﾏｸﾛを修正しなくても良いようにしたいと考えています。

よろしくお願いします。

>>123
Sub a()
Dim a
a = ThisWorkbook.Name
ActiveWindow.ActivateNext
Windows(a).Activate
End Sub

単純にマクロ実行したブックの名前を変数に入れて、
それをアクテイブにするといいんじゃないかなぁ

ttp://www2s.biglobe.ne.jp/~iryo/vba/VBA03.html
3-10から引用

>124さん

ThisWorkbookでしたか。
無事解決できました。

早々の回答、ありがとうございました。

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

条件付き書式でセルのデータが特定値の場合にセルに色づけをしたのですが、別シートにその色だけを残したい（セルのデータは消去の状態）のですが、可能でしょうか？

>>126
ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/jyo-syo.html
の下のほう
元のシートを残し、indirectか名前の定義で条件付書式を設定し、範囲は元のシートとする
色だけコピーはできそうでできないな

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


非常に初歩的な質問で申し訳ないですが、
エクセルの表計算について教えて下さい。

現在複数のパソコンで共有しているエクセルファイルがあります。

ある社員AがAのパソコンからそのファイルを開き、
編集する過程で計算方法を手動に変え、
そのまま上書き保存したとします。

その後社員BがBのパソコンからそのファイルを開いた場合、
計算方法は手動に変わったままになるのでしょうか？

それとも普段自分のパソコンで自動にしていれば、
たとえAがAのパソコンで手動にしていても、

Bのパソコンで開いたときには自動になっているのでしょうか？

実験すればいいのですが、
諸事情でしばらく実験できないので、
どなたか教えていただけないでしょうか？

なんか同じ内容をどこかで見たような・・・・ｗ

手動になるよん

質問です。

SeetChangeイベントで、

Dim GYO As Long
GYO = Target.Row

Range(Cells(GYO, 1), Cells(GYO, 10)).Font.ColorIndex = 1

というふうに、変更されたセルの行数を取得してマクロを組んでいます。

ここで、例えば、複数セルを選択して削除やコピーされた時、
一行しか色が変わりません。
変数宣言の仕方で複数行対応できますか？

助けて下さい。眠くて死にそうです。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 ちょっとなら
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】

シートX（変数）から、SUMPRODUCTで
E列がりんごで且つ、F列が「Cells(i,1)」の数を返すマクロを作っています。

Cells(i, 2).Value = Evaluate("SUMPRODUCT((" & X & "!E:E=りんご)*(" & X & "!F:F=" & Cells(i, 1) & "))")

上記だと、NAME?エラーが返ってきてしまいます。
どこがおかしいのでしょうか？

自己解決しました。。。
初歩的なミスのオンパレード・・・。

頭がオカシイ

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

他ブックの内容をリストボックスに表示したいのですが、どうすればいいでしょうか？
A行にID,B行に名前がずらっと表示されているブックでいいです。シートはSheet1で構いません。
読みだすブックは同じファイルで結構です。
よろしくお願いします

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

>134

additem

>>130
Target.Rows.Count

>>130
Target.Resize(,10).Font.ColorIndex=1

Private Sub UserForm_Initialize()
Dim lastRow As Long
Dim ReturnBook As Workbook, TargetBook As Workbook
Set ReturnBook = ActiveWorkbook
Application.ScreenUpdating = False
Set TargetBook = Workbooks.Open("D:\test\sample.xls")

With Worksheets("商品マスタ")
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
End With
With ListBox1
.ColumnCount = 3
.ColumnWidths = "50;50;50"
.RowSource = "商品マスタ!B2:D" & lastRow
End With
ReturnBook.Activate
Application.ScreenUpdating = True
TargetBook.Close
End Sub

とりあえずリストボックス自体はなんとか表示することは出来たのですが、
リストボックスの最終行が文字化けしてしまい、
この操作を完了するのに十分な記憶域がありません。とエラーが出てしまいます
助けて下さい・・・

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


ttp://www1.axfc.net/uploader/Img/link.pl?dr=5451451746&file=Img_64624.jpg
説明の仕方が分からないので図に描いてみました。
図の様に文字書きたいんですができますか？

>>140
絵が汚すぎﾜﾛｽ

それはともかく、
セルを結合することはできるけど分割することはできない。
だから、A列を二つに分割してそれぞれに文字を入れるようなことはできない。
ただし、A列とB列を結合しておいて、必要に応じて結合を解除するのならできる。

あるいは単にテキストボックスやオートシェイプを使って、セルが分割されているように見せかけることはできる。

エクセルはそもそも「表を作るツール」ではないので、あまり柔軟な表を作ることはできない。
複雑な形の表を、計算とかをさせるのではなくてただ表として表示するための目的で作るのなら、
ワードなどの他のソフトを使って作るべき、と一応言っておく。

>>141
ありがとうございます。
今回は計算の必要ないのでワードで挑戦してみます。

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5検索キーワード】
エクセル初心者ですいません
vlookupで表示した数字が日々更新されるのですが、例えば数字更新時に昨日の数字をひとつ隣のセルに移行し更新した数字を昨日数字があった場所（元の場所）と言った形で表示することは可能でしょうか？

簡単に言ってしまうと
数字を更新したら前の数字が自動で一個右のセルにずらしたいのです。
ただ表示されている数字がvlookupを使ったものでエクセル始めたばかりではわかりません･･･
よろしくおねがいします。

fgv

>>143

>>143
値を残したいならVBAしかない
=now=tofdayは今の日付などをのこせるが　こう新されてしまう
VBAがダメなら値で貼り付けをうまく使うしかない

素早い解答ありがとうございました。
更新の数字が多すぎるのでどうにかならないのかと思い質問しました！

複乳はどんなつまらない質問にも真正面の回答だな。
質問者は喜ぶだろうが本人のためにならないと思うぞ。

>>143へ
日々更新されるようなデータは縦に並べるべし。
右にずらすなんてやっちゃだめ。VBAでできてもだめ。

>>147
CTRL+Aで全選択
その状態でコピー、右クリックの形式を選択して〜の値で貼り付け
で数式の結果が阿多タイで保存される
>>148
つまんねー仕事にはしばしば共感できるところがある。散々やってきたからね
それで大体予想できたりもする。まぁ外れてるかもしれないけどね
「A1+A2の結果をプリンタアウトしてB1に入れてB2に足せ」みたいな仕事なんて仕事聞いたことがある?
ないなら普通の会社です。あるなら俺と同じです。
中小・零細には多分しょっちゅうある。周りにはあった。そういうウンコ以下の仕事を正面切って解決してあげたい
というのが俺の思い
無駄に「B2=A1+A2でいいんじゃないですか」というと無駄に怒られるからね
俺がそうだったから
ただ効率化できそうなところは私の知識を尽くして助言はしているつもりだよ

>>149
私は違うな。そうは思わない。
つまらないものはつまらない。
つまらないものに価値は無い。

私もお前と同じで、つまらない仕事を何度も強制されている。
でもそこからどっちに進むかが違うんだな。
つまらない質問にお前がつまらない回答をすると、つまらない手法が大量生産されてしまう。
VBAで値を右にコピーする方法を覚えた>>143は、何年か後になって自分の後輩や部下にゴミみたいな仕事を伝承していくんだぞ。
ちょうどお前が経験したように。

>>150
私は違うな。そうは思わない。
つまらないものはつまらない。
つまらないものでも　価値は　ある

私がそうだったので言うが
私の上司は本当にウンコみたいな作業を仕事といってはばからない人だった
-中略-
その人は首になった。今私はその業務をVBAに置き換えて別の方々と仲良くやっている
まぁ、上司を殺すために自分がイエスマンになって技術を蓄えるか
上司を説得してその職場自体を帰るか、の違いだろうね
私はその前者を見越してイエスマンになった
そしてチクリにチクった後、その人がクビになり、私は総務を任される(システム上ね)立場になった
その後0からシステムをたちあげ・・
というしょーもない経緯があるため、どうみてもしょーもない仕事に対しては
できるだけ「その裏にある意向に沿うように」全力を尽くしている
つもりである

例え私が間違っててもまあ、その人が技術を積んでいけばまたこのスレに来るか
勝手に技術を習得することだろう、と信じてね

ただやはり向上心があることを前提にした手法を教えてることは、否めないかもしれない
あと俺自身未熟なため、かなり行き当たりばったりだし。逆にすぐに回答が出せるという長所があるかもしれない

飲みすぎた
寝るぜ

今学生です。就職活動のためにエクセルを少しは使えるようになったのですが、
アクセスって覚えたほうが良いですか?
それともエクセルを極めたほうが良いでしょうか?

両方使えたほうがいいだろうが、中途半端が一番つかえないな。

エクセルはほぼ100%入ってるだろうけど、アクセスが微妙なとこだな
アクセスはシステムが既に組まれていて、入力のみというパターンが多いと思う
大企業ならデータベースのデータをひっぱって来る技術があるといいかも
中小なら自分がデータベース組めると非常に便利かも。ソフトがインストールされてればの話だけど
エクセルはvlookup使えれば大体なんでもこなせると思う

ありがとうございました
色々調べてみようと思います

SEって誰でもできるのかぁ

>>153

エクセルはほどほどにしておいて、アクセスを使ってみてほしい。
アクセス知らずにエクセルだけで突き進むとバッドテクニックばかり身につけてしまうぞ。
逆にアクセスをちょっとかじってるだけで、エクセルの使い方のセンスもよくなる。

久々に来たらコレがいてﾜﾗﾀ

windows7搭載のパソコンに付いてるエクセルは、VISTAのエクセル2007と操作方法は同じですか？
ＸＰからVISTAへの時みたいに激変してるのでしょうか。

591:デフォルトの名無しさん :2009/11/11(水) 22:10:44
シート2の表を、シフト＋編集で図のコピーを行い、シート1に貼るマクロを組みましたが、
そのシート1の貼りつけた図のコピーを切り取るマクロを組むと、ピクチャー番号が異なるために、できません。どうすれば、解決できますか？

エクセルでグラフを作成した際、プレゼン等でそのエクセルを使いたい場合
元の数値データを隠す、見えなくするにはどうすればよいでしょうか？

>>162
オブジェクトで表示しなきゃいいんじゃない？

>>160
OSとアプリは全く別個で考えてください
両方2007なら同じと思っていい
SP等によりほんの少し変わる可能性があるが、SPが分からなければ考えなくて言い

>>162
グラフの中の数値なら数値を右クリックで書式設定
セルの数値なら列や行を選択して非表示とか文字の色を白とかに

>>161
切り取って貼り付けると
Shapes("Picture 1")
が
Shapes("Picture 2")
になるねぇ。それじゃないの

Win７、office２００７です。
ファイルを開く時にファイルをプレビューウインドゥに表示させようとすると、
「Microsoft office excelプレビューアにエラーがあるため、このファイルはプレビューの表示ができません」
となります。
何のエラーですかね？

Hello,
>>120
成功しました。ありがとう。

Ｑ．=SUM(F:F)で集計した秒数を
０：００：００
の表示にしたい。

>>165
分からん
そのメッセージで一字一句間違えずに検索をかけてみると分かるかもしれない
>>166
F列が時刻なら、書式設定。時刻にある13:23:22みたいな奴

F列がシリア値でなく「1」や「5」の場合はシリアル値に直す↓その後書式設定
=SUM(F:F)/24/60/60

EXCEL内にフォルダを作るにはどうしたら良いですか？？
先輩がから早く作れとお叱りです！

意味が分かりません
フォルダ内にエクセルファイルを作るならエクセルを起動した後ファイル→名前をつけて保存

沸いてるね。

>>169
複乳ってなんですか？なぜそのような名前なのですか？

for n =0 To 5

ActiveCell.FormulaR1C1 = "=-(R[&n]C[-2]-R[-4]C[-2])"

R[+&n]を引数にする場合はどうすればいいでしょうか？

>>172>>172

>>172
ActiveCell.FormulaR1C1 = "=-(R[" & n & "]C[-2]-R[-4]C[-2])"
ってことでＯＫ？

2003から2007にアップグレードしたのですが
リスト化していた所がテーブルになっていて
最終行に新規行（*のついた行）が無くなってしまいました
行挿入で追加して行くしかないのでしょうか？

最下行右端の列でタブを押せば行が追加される。
が、＊のついた新規行がつねにあるほうが使いやすいと俺も思う。

テーブルの途中に行ごとコピペして挿入しようとすると「できません」とかエラーがでるし。
これはなんとかしてほしい。

質問です＞＜

表示していないシートを誰からも見られたくないんですが、
そんな魔法の呪文はありますか？＞＜

秘密は見られたくありません＞＜

>>177
書式のシートの非表示
非表示を解除されたくない場合は「シート　非表示」でぐぐって二番目のリンク

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

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

オートシェイプを使ってマクロの実行ボタンを作っています。

マウスポインタをボタン上に置いた時、ポップアップのメッセージを
表示させたいのですが、可能でしょうか？

ちなみに私は女です。

>180

ﾕｰｻﾞﾌｫｰﾑ上であればControlTipText

>>181
レスありがとうございます。
ユーザーフォームでなく、シート上なんです・・・。

やっぱりできないですかね？

＞ちなみに私は女です

ま、マジっすか？(;´Д｀)ﾊｧﾊｧ

>182

ﾕｰｻﾞﾌｫｰﾑ上で作成してﾕｰｻﾞﾌｫｰﾑをShowModal=Falseにする。

Excel2003を使用しています。

A1　4

A5　8

とあったとして、A1とA5の値を利用してA2〜A4を補間したいのですが、
今は　=($A$4-$A$1)/5+A1 という式をA2に入れてA4までオートフィルという作業をしています。
これが何千行もあって、数字がところどころ足りないのを上記の式を入れるのを手作業でやってます。

これを何とか、多少なりでも自動化できないものでしょうか。
例えば、空白を探すのは手作業でも構わないので、式を入れるのを簡略化できるような方法はないでしょうか。
（もちろん、空白を探すのも自動化できるならそれに越したことはありません。少しでもヒントが欲しいです）
マクロでもかまいません。0から作るのはまだ難しいですが書かれたものの解読はある程度できると思います。

よろしくお願いします。

追記です。

もっと簡単な関数があるよ、というような情報でも構わないので、どうぞよろしくお願いします。

>>185
その法則だと例えば
A6 9
A7 10
なの？
それとも他の数字になる可能性もあるの？

>>185
最初と最後の数字の入っているセルの領域選択して
編集→フィル→連続データの作成→予測→OK
これで2点間が補完されるから
あとは、同じ領域をさがして、Ctrl+Yで繰り返し

データが一直線に並んでるなら
Shift+Ctrl+カーソルで領域選択しながら上の作業の繰り返し。

マクロのほうが簡単だろうけど俺はしらん。

>>185
ところで例の
=($A$4-$A$1)/5+A1
は
=($A$5-$A$1)/4+A1
だと思うのですがどうでしょうか

>>185
できた
B1=IF(A1>0,COUNT($A$1:A1),0)
C1=COUNT($A$1:A1)
D1=ROW()
E1=INDIRECT("r"&MATCH(MAX($B$1:B1),C:C,0)&"c1",0)
F1=INDIRECT("r"&MATCH(MIN(C1:$C$60000)+1,B:B,0)&"c1",0)
G1=IF(A1<>"",A1,(F1-E1)/COUNTIF(C:C,C1))
を入力して下にオートフィル。G列が答え

ピボットテーブルでつくった集計表をデータベース形式にもどすほうほうはないですか？

値のみ貼り付けしてから適当に加工

その適当にの部分をおしえてほしいです。

手作業でこつこつと

>>193
おいらはこれを重宝しとるよ
http://www.vector.co.jp/soft/win95/business/se246416.html

>>187
色んな数字になる可能性があります
具体的に言うと、連続的に自動で観測されているデータがあるのですが
機械の不調等で、データが取得されていないことがあって、
しかしながらそれを他の計算等の元のデータとして使うときにそこが空白だと困ることがあるので、
仮にでもそれらしい値を入れておきたい、というようなときにこの作業をしなくてはなりません
したがって、空欄の数もそのときによって違います

>>188
ありがとうございます！
こんな機能がある事を知りませんでした。
少なくともいちいち数式を入力するより速くて簡単にできますね。

>>189-190
ありがとうございます（間違いのご指摘も含めて…）
ちょっとぱっと見ただけでは何がなんだかですので、
ゆっくり解読させていただきますね。

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

>>196
これでどうだ。先頭のセルを指定して実行
最後まで線形補完する。
前提条件は、データが一列、
Sheetの最終行が65536で、かつそこに補完すべき数字が無いこと。
初マクロなんであらゆる状況で上手く動くかはわからん。

Sub senkeihokan()

Do
Range(Selection, Selection.End(xlDown)).Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Trend:=True
Selection.End(xlDown).Select
Loop While ActiveCell.End(xlDown).Row <> 65536

End Sub

微妙・・・

この書き方は初めてみた

Range(Selection, Selection.End(xlDown)).Select

A1:A100のセル内にある文字列のうち
一番右の文字列が「あ」のセルの数をカウントしたいのですが、
わかりません教えてください

rightを使うにしても、いまいち使い方がわかりません。

>>193
総計の右下のセルでダブルクリックするだけじゃねーの？

しかしアクセス規制いつ外れるんだ？
削ジェンヌまだ生きてるのかね。

>>201
=COUNTIF(A1:A100,"*あ")

>>201
=COUNTIF(A1:A100,"*あ")

ん？おれはどっちだ？
後の方だなきっと。

うーん、俺もどっちかわからんが、まあ考えることは同じだね。
ちょとおもろい。

>>201
どうしてもrightをつかいたいなら
=SUMPRODUCT((RIGHT(A1:A100,1)="あ")*1)

>>203-206
有り難うございます
もうひとつだけお願いします

たとえば左から4つ目が「あ」の
数をカウントしたい場合はどうすればいいのでしょうか？

>>202はアンカーミスってるな。
>>191あてだ

しかしいちいちp2から書きこむのも疲れるな。
アクセス規制いい加減に解いてくれねーかな。

>>208
=COUNTIF(A1:A100,"???あ*")
試してないけどな。

>>208
=SUMPRODUCT((MID(A1:A100,4,1)="あ")*1)
>>210が個人的には好きだｗ

この問いにSUMPRODUCTは無いわｗ

WinXPで、Excel 2002を使ってます。
セルに色を塗るときは、セルを選択して、色のボタンを押すと
そのセルを塗りつぶせます。 ２度手間になります。

セルをクリックするだけで、そのセルに色を付ける方法を教えてください m(_ _)m

>>213
F4じゃダメですか
F4=直前の行動の繰り返し

>>214 ありがとうございます m(_ _)m
F4で出来るんですね。 マウスにF4割り当てて、実用化できそうです。

できればワンクリックだけで、色を塗りたいので
よろしくお願い致します m(_ _)m

用途は、英語の学習で、不慣れな熟語や構文などをエクセルに書いて
練習した物を塗って行きたいのです。 順番にやると飽きるので。

ワンクリックだけで、お前が意図した色が塗れるほどPCは賢くないと思うが？

>215

Worksheet_SelectionChange

>>215
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = 17
End Sub

これをシートタブを右クリック、コードの表示の白いところに貼り付ければダブルクリックすれば色がつくようになる。
色番号はそこらへんのサイトをみて
いらなくなったらコードごと普通に消せばいい

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows　vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 勉強中です
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 イベント　列挿入

よろしくおねがいします
あるシートで列挿入を禁止したいと思います。
行挿入やセルの内容変更は自由なまま、
列挿入だけを禁止できますか？

シート全体でセルの書式の保護をあらかじめロックのチェックを外しておいて
シートの保護で「ユーザーに許可する操作」を列の挿入以外チェックしておけばいいんじゃね？

３つ以上重複しているデータを抽出して、その重複しているデータがいくつあるかカウントしたいのですが、やり方がわかりません。
教えていただけませんか？お願いします

>>221
他にいい方法があるかもしれないが、
countifで３個以上重複している数を出して、別シートにでもコピーした後で
ピボットするのが漏れの最速方法。

一度に出すやり方がわからないのなら一つずつ順を追ってやってみたらどう？

データ数だけだったら
=SUMPRODUCT((COUNTIF(A1:A10,A1:A10)>2)*1)
↑a、a、a、b、b、b、ｃ、ｃ、ｄ・・だったら６個

何種類・・・だと
=SUMPRODUCT((MATCH(A1:A10,A1:A10,0)=ROW(A1:A10))*(COUNTIF(A1:A10,A1:A10)>2))
↑a、a、a、b、b、b、ｃ、ｃ、ｄ・・だったら２個

データが入っていないところまで範囲を指定するとN.Aになるよん

vistaでexcel2007を使っています。
グラフを作るときに、縦軸を対数表示にすると、目盛りが10、100、1000…というふう
に表示されるんですが
これを10^1,10^2,10^3…というふうに表示するにはどうすればいいんでしょうか？
このとき、乗数もきちんと10の右上にくるようにしたいです。

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

納品書と請求書さえできればいい。
最初に会社を選んだら商品名を選んで数量を書いたら自動的計算して納品書と請求書がプリントアウトできてデータは蓄積される。
商品も会社別に単価を変えれていつでも変更も可能で、締めに合計請求書が作れる。
この程度ならExcelで作るのは難しくないですよね？

>>226
ttp://www.vector.co.jp/soft/winnt/business/se470054.html
エクセル　請求書　辺りでベクターで探すといい

そういうのはAccessでつくるとかんたん
Excelでもできるけど手数がかかる。たぶんVBAつかわないと実用にはならない。

>>226
228も書いているけど、出来なくはないけどアクセスの方がいい。

だいたい、納品書と請求書なんてワード差し込み印刷使う以外はvbaになるだろな・・・・

まあAccess2000で作ったソフトは今使ってますけど、今回はExcel2007で作りたいので。

エクセルどうこうよりVBAが使えるかどうか
使えるなら簡単、使えないなら色々と無理なところがある

まあ作りたければ作れば。
vbaが使えなければ、訳分からん関数の嵐になるしメンテも煩雑だと想像できる

>>230
そういう「何となく」作ったものが後々混乱招くからやめれ
何故Excelで作るのか、何故ACCESSで作らないか
はっきりしとかないと、現場は混乱する

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい(一応…)
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 （いいのが思いつかない…）

MATCH関数で検索する範囲を条件によって変えたいのですが。
A2〜E2が列タイトル、A3〜E8にデータが入っているような表を考えます。
例えばVLOOKUPなら列タイトルを指定して結果列を変えることは
VLOOKUP(A1,$A$3:$E$8,MATCH(B1,$A$2:$E$2,0),false)
こんな感じでできますが、
MATCH(A1,何か関数(B1,$A$3:$E$8),0)
のような感じでB1の値によってMATCHの検索範囲をA〜E列で切り替えたいのです。
こういう場合、INDIRECTを使ってがんばるしかないんでしょうか？

現状、MATCH(A1,INDIRECT("R3C"&C1&":R8C"&C1,false),0)とか書いてるんですが
なんとかスマートにならないかという質問です。

>>234
B1にA〜Eを入れ
B1=A
C1=MATCH(A1,INDIRECT(B1&"3:"&B1&"8"),0)

もしくは名前の定義。A3:A8に"A列"という定義をしておいて
B1=A列
C1=MATCH(A1,INDIRECT(B1),0)

基本的には前者でいいと思うが、変則的な場合は後者が使えるかも

【1 OSの種類 　 　 　 　 .】 Windows Vista SP1
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 使えます
【4 VBAでの回答の可否】 可です
【5 検索キーワード 　 　 】 共有違反　保存

Excel 2007で作成されたマクロつきファイルを上書き保存しようとした時に発生した現象です。

ブックの共有などを一切していないExcelファイルなのですが、
2007で上書き保存ボタンを押したところ、下のメッセージが表示されました。

「'testtest.xlsm'への更新は、共有違反のため保存されませんでした。別のファイルに保存し直してください。」

上書き保存はできず、一時ファイル（ファイル名は、ランダムの英数字8字。拡張子なし）が作成されています。
別名に保存することは可能ですが、都合上、上書き保存できるようにしたいです。
この現象の原因や対処をご存知の方は、ご教示いただけないでしょうか。

なお、ググったりMicrosoftサポートページを参照しても、私が見た範囲では該当するページが見つかりませんでした。
よろしくお願いいたします。

>>232
激しく同意。>>223の２つ目のコード見た時「うへぇ・・・」と思ってしまった（>>223さんゴメン）
ＶＢＡ覚えたほうがラクにいろんなこと出来るようになって便利。

>>236
サービスパック・アップデートがあるなら入れる
それでダメなら新規ファイルを作り、そこにシートやマクロをコピーしてみるとか
新規ファイルでも起こるなら分かりません。
OSごと再インストールしたほうが良いのかもねぇ

>>221
>>223を改造してみた。B1に範囲を入れる
B1=A1:A10
C1=SUMPRODUCT((MATCH(INDIRECT(B1),INDIRECT(B1),0)=ROW(INDIRECT(B1)))*(COUNTIF(INDIRECT(B1),INDIRECT(B1))>2))
これで少しは範囲の変更に対応しやすくなるかも
ならないかも

ヴァカ　=MATCH(A1,INDIRECT("R3C"&C1&":R8C"&C1,false),0)　
利口　=MATCH(A1,INDEX($A$3:$E$8,,C1),0)

すまん、列が256とかあるなら下にしてくれ。
利口　=MATCH(A1,INDEX($3:$8,,C1),0)
>>240は最大5列の式だ。

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

質問です。食堂でお客さんのデーターを取りたいのですが
メニューが3種類の日替わり定食で一日限定5食、計１５食とします。

男性　30代　カレー　　　　　　　　 　 　　　1　カレー 男性　30代
女性　30代　カレー　　　　　　　　 　 　　　2　カレー　 女性　30代
男性　20代　オムライス　　　　　　　 　　　3　
男性　40代　オムライス　　　　　　　 　　　4　
女性　20代　オムライス　　　　　　　　 　　5
男性　40代　うどん　　　　　これを　 　　　1　オムライス　男性　20代
　　　　　　　　　　　　　　　　　　　　　　　　　2　オムライス　 男性　40代
　　　　　　　　　　　　　　　　　　　　　　　　　3　オムライス　 女性　20代　
　　　　　　　　　　　　　　　　　　　　　　　　　4
　　　　　　　　　　　　　　　　　　　　　　　　　5
　　　　　　　　　　　　　　　　　　　　　　　　　1　 うどん　 男性　40代
　　　　　　　　　　　　　　　　　　　　　　　　　2
　　　　　　　　　　　　　　　　　　　　　　　　　3
　　　　　　　　　　　　　　　　　　　　　　　　　4
　　　　　　　　　　　　　　　　　　　　　　　　　5

　　　　　　って左のデーターを右のような形式に表示したいのですが
　　　　　　　どうすればいいでしょうか？

　　よろしくお願いします

test

>>242

初めから右の形式で入力したらいいだろう。

右の形式ってなにかいいことあるのか？

すいません。
ブロックに分けたいのです。
ブロックに分けて色をつけたいので。
3食と書きましたが実際には10食ぐらいあります。
書き込みが多すぎてしまうので3食にしました。

>>245
同感。

>>242
本当にやりたいことは何？
誰にどんな定食が人気あるのか分析したいんじゃないの？

>>246

なんで色を塗りたい？
誰にどんな定食が人気あるのか分析したいからだろ。違うか？

＞247　＞248その通りです。　すいません。

>>249

そういう時はクロス集計をするんだ。
ピボットテーブルを使えば簡単にできる。
ビジュアルに理解したい場合はピボットグラフだ。
以上。

＞250ありがとう　くぐってみます

>>237
>>223も>>232も自分（＝同一人物）なので気にせず〜ｗ
関数で遊ぶのは楽しいけどさ、実用的じゃないと思うんだよ
まあマクロを忌み嫌う人もいるから

>242　はむしろ、単純な棒グラフに手書きで×とか積み重ねていった方が楽そう

>>253
ほう。どんなグラフ？
縦軸と横軸は何？
×の位置と数にはどんな意味をもたせるの？

下記のようなデータのAB列とD列をSheets3のAB列とC列の最下行にコピペするとき、
D列の最下行が空白セルだとうまくいきません。どう対処すればいいですか？
（A列とB列は空白になることはありません）

Sheet1
　A　　　　B　　　　C　　　　D
美咲　　郁恵　　貴子　　真央
久美　　早苗　　美恵　　慶子
愛美　　直子　　沙希

Sheet2
　A　　　　B　　　　C　　　　D
和美　　奈々　　昌枝　　涼子
麻子　　鈴香　　聖羅　　由梨
真美　　明菜　　未来　　寿江

Sub コピペ()
　With Worksheets("Sheet1")
　　.Range("A2", .Range("B65536").End(xlUp)).Copy _
　　Destination:=Worksheets("Sheet3").Range("A65536").End(xlUp).Offset(1)
　　.Range("D2", .Range("D65536").End(xlUp)).Copy _
　　Destination:=Worksheets("Sheet3").Range("C65536").End(xlUp).Offset(1)
　End With
　With Worksheets("Sheet2")
　　.Range("A2", .Range("B65536").End(xlUp)).Copy _
　　Destination:=Worksheets("Sheet3").Range("A65536").End(xlUp).Offset(1)
　　.Range("D2", .Range("D65536").End(xlUp)).Copy _
　　Destination:=Worksheets("Sheet3").Range("C65536").End(xlUp).Offset(1)
　End With
End Sub

>>255
gyo=Range("A65536").Selection.End(xlUp).Row
でA列の最終行を変数に入れ
　.Range("D2", .Range("D" & gyo ).End(xlUp)).Copy _
でD列のgyo行まで指定みたいなカンジで

並び替えを行うに当たって、文字列の大小関係を
A < B < ... < Z < AA < AB
と扱う場合に、
A8, Y1,, AD14 みたいにアルファベットと数字がセットになったものを
並び変えるにはどうしたらよいでしょうか？

作業用のセルに頭に0をつけたデータを作り
コピーして、「形式を選択して貼り付け→値」で値に置き換えたあと
「データ」→「並び替え」で普通にできるよ

=RIGHT("000" & A1,4)　→　00A8
　　　　　　　　　　　　　　　　　　↑これを並べる

試してみましたが、数字部分の桁数が一定でないと、
うまくいかないですね…
アルファベット部分と数字部分に簡単に分解できたら嬉しいのだけどなぁ
まぁでも、CODE, IF, MIDあたりを使って分解、
アルファベット部分の重みづけには教えてくれた方法を利用すれば、
面倒だけどなんとかEXCEL関数でも処理できそうに思えました。どうもありがとう。

>>257
>>258を拡張
=REPT("0",10-LEN(A1))&A1
10文字までの文字列を10文字になるまで0で補完する
もっと長いなら10を100にすればok

【Excel】便利なショートカット キー一覧
F2 でセルの編集
F4 でセルのクリア
直接入力 [Shift] + [Space] で行の選択
直接入力 [Ctrl] + [Space] で列の選択
[Ctrl] + [D] で上のセルをコピー
[Ctrl] + [R] で左のセルをコピー
[Ctrl] + [ ; (セミコロン)] で日付を入力
[Ctrl] + [ : (コロン)] で時間を入力
[Ctrl] + [0] で列の非表示
[Ctrl] + [9] で行の非表示
[Ctrl] + [1] でセルの書式設定
[Ctrl] + [2] で文字を太字
[Ctrl] + [B] でセルの書式設定
[Ctrl] + [3] で文字を斜体
[Ctrl] + [I] で文字を斜体
[Ctrl] + [4] で文字に下線
[Ctrl] + [U] で文字に下線
[Ctrl] + [5] で文字に取り消し線
[Ctrl] + [7] でツールバーの [標準] を表示・非表示
[Ctrl] + [8] でアウトラインを作成
[Ctrl] + [F] で検索
[Ctrl] + [H] で置換
[Ctrl] + [K] でハイパーリンクの挿入
[Ctrl] + [N] で新しいブックの作成
[Ctrl] + [L] でリストの作成
[Ctrl] + [W] でブックを閉じる
[Ctrl] + [O] でファイルを開く

※数字はいずれもテンキーでない方

テンプレにあってもいいなぁ（´ω｀）

【1 OSの種類 　 　 　 　 .】 Windows　xp
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 勉強中です
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】

お聞きします
a2からa10まで
花
花
花
りんご
りんご
水
コップ
コップ
コップ

って並んでいるとします
それをそれぞれ　b1花　c2りんご　d1水　e1コップ　って種類を返したいのですが
どうすればいいでしょうか？ 　お願いします

>>263
データ、フィルタ、フィルタオプションで
「重複するレコードは無視する」にチェック

>>261
F4は、前の処理の繰り返しじゃね？

＞264ありがとうございます
オートフィルを使わないでa2からa10までのデーターを貼り付けただけで
自動的に出ないかなと思いまして。

>>266
B2=(C2<>"")*1+MAX($B1:B$1)
C2=IF(COUNTIF($A$1:A2,A2)=1,A2,"")
D2=VLOOKUP(ROW()-1,B:C,2,0)
でB2-D2を下にオートフィル

＞267大変ありがとうございます
重複せずに出てきました。
もう一つだけですがその値をe1,f1,g1に返すことはできますか？

0　花　　0 花　　山　　海
0　　　 　0
0 0
0　山　　0
0　　　 　0
0 海 0

って返したいのですが？
これが最終目標ですが。

　

>>268
もー!情報の小出しはダメ、絶対＞＜
麻薬よりダメ＞＜

E1=INDIRECT("r"&COLUMN()-3&"c4",0)
で右にオートフイル

＞269何でもすいません
最初の質問で一応聞いておりますｗ
今やりましたら0000と0の連続で　花　山　海が返せません（＾＾；）

0　 花 　0 花　　山　　海
0　　　 　0
0　　　　 0
0　 山　 0
0　　　 　0
0 　海 　0


0　 花 　0 0 0 0
0　　　 　0
0　　　　 0
0　 山　 0
0　　　 　0
0 　海 　0 となってしまいます

>>270
ごめんなさい勘違いしてました＞＜
>>267はB2など2行目開始で、>>269はE1だよ

>271 何でもすいません。
これが聞きたかったです。
いつもオートフィルでコピペしていたんですが
多いと大変でしたので。とにかくありがとうございました。

教えてください。
セル1にタイトルを、以降2と3、4と5などを一つの項目として表を作成しました。

セルにより、二行を結合しているところと各一行として使っているところがあるのですが、オートフィルタをかけるとセル2と4などと、偶数の行だけしか表示されません。

二行を一つとしてフィルターする方法があれば教えて下さい。

お助けください。

【1 OSの種類 　 　 　 　 .】 WindowsＸＰもしくは、ビスタ
【2 Excelのバージョン 　 】 Excel２００３もしくは２００７
【3 VBAが使えるか　 　 .】 ほんの少し
【4 VBAでの回答の可否】 手動がだめなら考慮
【5 検索キーワード 　 　 】　エクセル　参照したデータで並び替え　引用したデータを使って並び替え　など

＝を使って他のセルから参照したデータを並び替えしたいのですが、
うまくいきません。


　　Ａ　　Ｂ
１　な　　＝Ａ４　　
２　た　　＝Ａ２
３　さ　　＝Ａ１
４　か　　＝Ａ５
５　あ　　＝Ａ３

　　　　　　↑ここで並び替えしたい

実際には、シート１から、シート２へデータを抽出し、並び替えて
シート３へ移動という流れです。
元のデータは、それぞれのデータの位置が決まっているので動かせません。

これから夜勤なので、お返事は翌朝になります。
よろしくお願いいたします。

>>273
一行に一つの表を作り直したほうがあらゆる面でいい
どうしてもその表を使いたいならファイルをアップロードしてくれれば考える
>>274
エクセル2000でやったら何故か参照が=a7やREFエラーになった
原因はさっぱりわからん
B列をコピー、C列に値で貼り付けして並び替えてみては
詳しい用途が分かればもう少し適切な回答が出来るかも

=if(sum(()*()),"",") の場合で　｛　　｝にするためにキーボタンはどれを押すんですか？
忘れてしまいました。

Shift Ctrl Enter

>>277　サンクス

>>256
ありがとうございます。
gyo=Range("A65536").End(xlUp).Row　と書いてもおｋですよね？

>>279
むしろ正解。俺が間違いﾃﾞｼﾀ

Sub ××()
Sheets("sheet1").Range("a1").Select
Sheets("sheet2").Range("a1").Select
End sub
こうすると本文2行目でエラーが出るのは仕様ですか？
1行目だけだと普通に動くんですが。

あ、もちろん女です＞＜

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

グラフのガンチャートの数値と対応させたいセルにLOOKUP関数(最終的に数値が出力される)を入力しているのですが、
出力された値がガンチャートに反映されません。

単にセルに数値のみを入力した場合は反映されています。

LOOKUP関数以外の関数でも試してみましたがやはり反映されません。

どうしたらガンチャートに数値を反映させることができるでしょうか、どなたか教えてください。
よろしくお願いいたします。

>>281
仕様。アクティブでないシートのセルを直接Selectすることは出来ない。
2行目の前に、Sheets("sheet2").Activateを入れればいける。

>>28４　さん
どうもありがとうございました！

281じゃないけど・・・
Activateって、Workbooksだけに使うのかと思ってた
今度、応用してみよう

>>275
ありがとうございます。
そうなんですよ、２００３でも、並び替えると変な表示になります。
なるほど、値でコピペすると並び替え出来ますね。

用途は、仕事で複数人で使い、尚且つ私は夜勤ですが、昼勤の人も使うので
関数とか分からない、エクセルも不慣れな人でも簡単で、より少ない操作で
出来ることがまず前提です。

内容は、シート１の固定された並び順の表から、件名と複数の数量データを
抜き出して、それを１枚に一件ごとの伝票に印刷する目的です。
この伝票を印刷するときに、あいうえお順に出来ると、作業がとても捗るのです。


以下余談
今は、シート１の表から、シート２の伝票シートで直接データを参照しているのですが
この伝票が８０ページ（枚）分以上あり、伝票順（ページ）を並べ替えたり入れ替えたり抜いたり
加えたりがとても大変です。
また、データの入力は毎日あり、入力は昼勤、伝票処理は夜勤となるので
意思の疎通が図りがたく、出来れば上のような値でコピペし直すような作業も
無い方がいいのです。
なにしろ、昼勤としては今のままでも問題はないので、余分な作業が増えるなら
このままでいいじゃんとなりそうなので・・・

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

お世話になります。
現在、エクセルにてCSVを作成してます。 以前の仕様と変わってしまった為、改行を入れないとなんですが
全ての文章の頭に■や●などで文章の始まりであることを設定してあるので 置き換えで　■→<br>■　としてやれば問題ないのですが
長文の場合、数式が長すぎて出来ないと出てしまいます。 現在別のソフトでソースを開いて編集してますが なにか一括で編集できる方法はありますでしょうか？
宜しくお願い致します

なんか>>287を読み直しているうちに、変に不慣れな人に並び替えをさせるより
ＶＢＡで自動並び替えをさせて、そこの数式を保護して触らせないようにした方が
安全だと思えてきました。
件名だけ並び替えて、数量データがそのままなんてことされると大変ですしｗ

また、そちらで煮詰まったらお伺いに来ます。
ありがとうございました。

>>289
君の不幸は職場にExcelがあることだな。
回り道に思えてもデータベースの勉強をすることをおすすめする。
実際に職場に導入することができなくても、覚えたことは無駄にはならない。
きっと今より上手くExcel使えるようになるだろう。

>>288
CSVに変換してからテキストエディタの置き換え機能を使えばいいのでは

>>290
いや、データベースを使うまでもない
ExcelVBAで十分対応可能

>>292
> ExcelVBAで十分対応可能
またVBA厨か。なかなか絶滅しないもんだな。

ピボットで可能なのか？ｗ・・・（´ω｀）

>>289
あ、うまく行った
>>274の=A4を=INDIRECT("A4")というふうにかえればok。数式の結果で並び替えになる
理由はわからんが、エクセルの仕様か?
>>291
>現在別のソフトでソースを開いて編集してますが
>>292
そういうなら答えてやれ

「トリプルクリック ◆M4VDFNZnqs」でぐぐったら色々出てきたけどどうでもいいな

>>292

>>274の
　　Ａ　　Ｂ
１　な　　＝Ａ４　　
２　た　　＝Ａ２
３　さ　　＝Ａ１
４　か　　＝Ａ５
５　あ　　＝Ａ３

こんなデータ構造を放置したままにしてVBAならできるとかないわ。
こんな構造みた時点でなんかおかしいと気付かないと。

>>289
1.まずデータ入力用のブックは並び替えてはいけないなら
　コピーして作業用のブックを作り並び替えればよい
2.データシートから伝票シートにデータを書き込んで
　伝票シートを新規ブックにシートコピーする。
　これを最後のデータまで繰り返し新規ブックに伝票シートをたくさん作る。
3.新規ブックをブックの印刷で一気に印刷する

↑こんなのをVBAで作ったことがある
注意点としてはシートをコピーしすぎるとメモリ不足でExcelが落ちる可能性がある
これはパソコンのメモリ不足ではなくExcelを起動したときに確保される作業用のメモリ不足
回避策としては10シートとかコピーするごとにブックの保存を実行すればメモリが開放されて
落ちなかったと思う。

>>295
どうでもいいことしか書いてないからね

>>297
うへー。ばかくせえ。
ここまで典型的なやつもめずらしい。

Excelで帳票を作るととても便利
書式が自由自在に設定できるし
印刷前に日付を変更したいとか、金額を変更したいとか
ちょっとした修正がユーザーの意のまま

>>300
んなことはExcelに限った話じゃないわな。

最近着たばかりだからよくわからんが
ここはExcelを愛してやまない人の集まりではないのか？

>>302
ここはお前のような野人が初めて訪れた文明社会。
車やエレベーターを見ても驚かないように。

正直それ以上発言されるとVBA厨の肩身が狭くなるので消えて欲しいんだ

来るところを間違えたみたいだ
ここは「ビジネスsoft」だった
「プログラム」のほうにもExcelのスレがあったので
そっちに移動します
さいなら〜

>>305
それがいい。
要はプログラム組みたいだけなんだろ？
ここは解決をするところだ。

エクセルで用意したデータベースを、
そのブックを開かずに、エクセルで作ったのクライアントで
vlookup的なことで参照することはできますか？

VBAで無理なら、それが実現できる言語を教えてください。

>>307
VBAならADOでいけんじゃね？
ワークシート関数みたいに即効表引きしたいなら、グローバルは接続保っておいてイベントと組み合わせればいいんじゃないかな

そうかADOか。
ちょっと勉強してみる。ありがとう！

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 オプションボタン　保護　解除など

オプションボタンを使用し、Excelでアンケートを作成しました。
(メニュー＞ツールバー＞コントロールツールボックスを呼び出して、オプションボタンを作成しています。)

シートを保護して、オプションボタンの選択と一部のセルへの記入のみできるようにしたいです。

・編集したいセルのロックを解除
・オプションボタンを選択し、右クリック＞コントロールの書式設定＞ロックを解除
・オプションボタンが置いてあるセルのロックを解除

をおこない、「ロックされていないセルの選択」のみ許可してシートに保護をかけました。
セルに記入はできるのですが、オプションボタンの選択をしようとするとエラーメッセージが出てしまいます。
調べても出てこないので教えてください。お願いします。

>310

そのｴﾗｰﾒｯｾｰｼﾞをｴｽﾊﾟｰしろと？

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

数値が入ってる列から、0の値をオートフィルタで抽出し、VLOOKUPで
値を入れたあとに、その箇所だけ　コピー　→　値を貼り付け　をしようとしても、
コピー領域と貼り付け領域が違うとメッセージが出てできません。

数行なら個々にやればいいですが、何十行もあると大変なので
何か対処方がありますか？

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

先ほど起動したまま置いておいたら、なぜかフリーズしていました・・・
どうしようもなかったのでタスクマネージャーで強制終了させたら
今度は起動しなくなってしまいました、まったく原因が分かりません
データファイルのショートカットをクイック起動に置いてあるのでそれをクリック、
またはエクスプローからファイルをWクリックのどっちの方法でも駄目でした
直す方法はありますか？

データは単なる一覧で、計算式は1ヶ所だけ1列の計を出した程度のものです
こんなただのデータファイルを読み込ませただけで
更にただ置いておいただけなのにアプリが勝手にフレーズいる理由が全く分からないです
そしてこんなことは長いこと（使用頻度は低いですが）使っていて初めての経験です

>>313
2002だと「ヘルプ」→「アプリケーションの自動修復」とクリックしていけば
修復出来そうだけど2000はそれあるかどうか…
それ以前にエクセルが起動出来なくなってしまったということなら、スタート
→すべてのプログラム→アクセサリ→システムツール→システムの復元…
で一日前を選択して復元させてはどうでしょうか。
…ってエクセルを越えた回答だけど。

>>312
とりあえずオートフィルタをすべて表示にさせておいて数値の列の対象の範囲を
ざっくり選択しておいてコピー　→　値を貼り付け　してみてはどうかな？

このスレしばらく見ないうちに変なコテハンが増えてて、
しかも例外なく珍回答続出で吹いた

>>288
http://okwave.jp/qa2321331.html

せんせー！ 質問です！
Winxp、エクセル2002使ってます。
セルを右クリックするとコメント「コメントの挿入」で
コメントを付けることが出来ますし、表示もされます。

そのセルにマウスカーソルを合わせると、コメントが出るのですが
そのセルが右端にあり、コメントがさらに右側に出るので
画面に表示されません。

コメントが表示する時の位置を任意の場所に固定したいときは
どうすれば良いのでしょうか m(_ _)m

>>318
セルの右クリック、ｺﾒﾝﾄの編集
その状態でコメントの枠をドラッグすると、コメントの位置を動かせるよ

>316

自称ﾌﾟﾛの素人にはよくあること。

>>319 ありがとうございます m(_ _)m
ｺﾒﾝﾄの編集で、左側にしても、カーソルを合わせると
右側に表示されます。
お使いのエクセルのバージョンは何ですか？

>>321
うお、気づかなかったゴメン

マクロを使えば実現できるようです
ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1210706232

ただ基本的には戻る仕様らしい
ttp://office.microsoft.com/ja-jp/excel/HP030641631041.aspx
一度非表示にすると規定の位置（右）に戻る
とのこと

>>322 ありがとうございます m(_ _)m
難しそうですが、やってみます m(_ _)m

ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1210706232
で、マクロを作成する事はできました。

リンク先に
�@元コメントのテキストの内容を変数にセット。

とあるのですが、セルを右クリックして、「セルの書式設定」を見ても
変数という項目がありませんでした。
どうすれば、変数にセットが出来るのでしょうか m(_ _)m

>>324
マクロの登録すれば終わりのはずだよ

登録して、コメントを>>319の要領でうごかせば固定されるとおもう
Comtext = Cel.Comment.Text
の行が
�@元コメントのテキストの内容を変数にセット
にあたる内容

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


こんにちわ
まだexcelを使い始めたばかりでどんな事ができるのか判らないのですが
どんどん更新されていくHPから特定のキーワードを自動で収拾してexcelでデータベースを作る事は出来ますか？
それにはVBAというのを覚える必要があるのでしょうか？
よろしくお願いします。

>>326
「どんどん更新されていくHP」がどういうものかによって対応が違ってくるかな
どっちにしろVBAがないと辛いし、毎日情報を自動で収集したいんであれば、Excelを使うこと自体が向いてないかもね

>>325 ありがとうございました m(_ _)m

WinXPです。エクセルを二重起動させたいのですが
どこから設定すれば良いのでしょうか？ 教えてくださいm(_ _)m

>>327
ゆくゆくは色んな用途で活かしていこうと思うのですが
http://onore.servegame.com/game/faraway/sangoku/map.cgi

今はとりあえず実験的に
ここからプレイヤー名と更新時間を抜き出してexcelに纏めたいです
VBAを使えば可能でしょうか？またこの用途に適したソフトとかありますか？

>>329
>>1のテンプレ使ってどういった用途で二重起動させたいのかを詳しく書いてくれ。

>>331 THX 了解しました。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel２００２
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】
二重起動をしない方法は書いてましたが、二重起動にする方法は
書いてませんでした。

二重起動したい理由は、デュアルモニタで両方の画面で
違うエクセルファイルを同時に見たいのです。
よろしくお願い致します m(_ _)m

Excelを別ウィンドウで複数同時に操作する
http://www.atmarkit.co.jp/fwin2k/win2ktips/915exwin/exwin.html
↑のサイトはExcel2003で説明してあります。試してみては？

もひとつ。
http://q.hatena.ne.jp/1250760590　のページの４番の回答も参考になるかと。

>>333 やってみます。　ありがとうございました！

>>332

それを「二重起動」と呼ぶのか･･･素人コエ〜ｗ

ウザいやつ沸いてるな

>>335

だよなぁ〜
用語くらい正しく使えっての。

>>337
自演乙ｗ

>>337 ぅわ

>>315
ざっくり選択というのは、対象外のセルも含めるってことですか？
他のセルには数式が入ってるので、対象になってるセルだけ値にしたいんです。

>>335
これを二重起動と呼ばないならなんと呼ぶのでしょうか？
教えてください
>>340
んー、VBAが不可なら無理
オートフィルタの後にコピーすると、不可視セル(非表示セル)が含まれない
その後同じ領域を貼り付けると当然、セル範囲が違うのでエラーになる
コピーした後、その値をvlookupで引っ張ってくるのがいいんしゃないかな
じゃなきゃVBA

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 多少
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 mid
別リストにある（ここでは仮にA1セルにあるとします）社員番号なんかを1文字ずつ枠（セル）の中に入れたいのですが、
一番左のセルに「=MID（A1,1,1）」とやって、
左から2番目には「=MID（A1,2,1)」などと、1つずつ入れるしかないのでしょうか？
A1を絶対参照にしてコピーすると自動的に他の枠もうまく入ってくれるかなと思ったんですが。
VBA使うしかないですかね。

>>342
COLUMN()関数で工夫する

>>342
=MID($A$1,COLUMN(a1),1)
右に引っ張る

>>341
何にしても別なファイルを開くのだから「二重」ではないわな。「複数」とか「並べて」とかならわかるが。

>>341

普通はSDI/MDIだよ。
勉強になったかな？

君は３つ開いたら３重起動って言うのかなｗ

>>345
Excelアプリを一つしか開いてなければその中に複数のブックが表示される
アプリを二つ起動したいということだろ

>>345-346
ありがとうございました

>>345
「二重」がわからなくて
「複数」と「並べて」がわかるのはなんで？

お？馬鹿にされた反撃かｗ

>>350
実は馬鹿にされてるのはお前なんだよ。

>>343 さん
>>344 さん
できました。どうもありがとう。
B1やC1のセルは空白なのに何でこれを参照するんだ??　
と思いましたが、なるほど、列番号さえ増えればよいわけですね。
勉強になりました！

【1 OSの種類 　 　 　 　 .】 WindowsVISTA
【2 Excelのバージョン 　 】 Excel97-2003
【3 VBAが使えるか　 　 .】 ?
【4 VBAでの回答の可否】 ？？
【5 検索キーワード 　 　 】

桁を入れたいのですが、セルの書式設定で桁を入れることができるのですが
前に▲を入れると、桁が消えてしまいます。
▲12,345　みたいに表示させたいのですが。
12,345は出るのですが　▲をつけると、▲12345となってしまいます。
どのように設定すればよいのでしょうか？

>>353
"▲"#,##0

>>353様　ありがとうございます。ユーザー定義で"▲"#,##0を入れてみます！！

>>353
当方2002ですが、書式→数値→▲1234としていって”桁区切り（、）を使用する”
というところにチェックを入れるとお望みの表示になりましたが。

>>353
常に▲を入れるんじゃなくて、マイナスの場合だけ入れたいんだろ？
はっきりそう書けよ。

マイナスを▲で書くバカｗｗｗｗｗ

経理実務を知らないひとがいるな

まあ実務は知らないにしても、
セルの書式設定→数値のとこすら見たことないレベルなのに、
一丁前なのは暴言吐くことだけってのは恥ずかしいな。

計算とかではなく、手書きで▲12,345と入れるにはどうしたらいいですか？
桁区切りをチェックしてもできませんでした。

>>361
文字列

>>361
”▲”ってマイナスの意味だってことは知っている？
入力時に”-12345”と入力すれば▲12,345と表示されるはずですが。
（ちなみに普通に"▲12345"と入力しても私の環境では問題なく”▲12,345”
の表示でしたが。）

手書きの意味がよくわからないんだが

>>364
それだけエクセルのスキルが低い人と察するべき。

>>356
これは知らなかった
>>364
「▲12345と入力していますが桁区切りが表示されません」
の意味かと

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

ある製品の在庫の表の作成を仕事にしています。
今まで、作成しているデータは、
縦列は製番ごと（＆大きなくくりとしての機種）
横列は、
３月末の在庫高、
３月末から４月末にかけての在庫高の増減値、
４月末の在庫高…
てな感じでならんでおり、
そこからついでにSUMIFで機種別増減額の表などを作っていました。

来月から「増減の理由」別の増減額の表も作れと言われました。
したがって「増減の理由」を横列に作らないといけないのですが、困ったことがあります。
例えば、ある製番が先月末から今月末にかけて300万円在庫高が減ったとしても、
その増減理由は、200万円が他の製番への転用、100万円が廃棄
といった具合に分かれることが多々あります。
１つの製番に２行あてがうということも考えられますが、
あくまでデータ作成の主目的は製番ごとの在庫高の月次推移を見ることなので、２行にわけることはしたくありません。

どうにかして１つの製番に１行あてがうことを守った上で上記の目的を達成することはできますか？

2007を使って表計算をしてるのですが、
別のシートからそのままの数値をもってくることはできますか？
多数のシートの合計を出したいのです。
教えてください。

>>367
そういう場合、増減理由ごとに行を分けるのが正しい。
増減理由ごとに増減額を入れる列を分ける方法もあるけど、自分ならやらない。
前者ならピボットテーブルに使いやすいし、後者は理由が増えると収拾がつかなくなる。

あくまでデータ作成の主目的は「製番ごと」の在庫高の月次推移を見ることなんです。
だからそれはできません・・・

>>370は
>>369に対してね

>>370
>あくまでデータ作成の主目的は「製番ごと」の在庫高の月次推移を見ることなんです。
>だからそれはできません・・・

言ってることがめちゃくちゃだな。
主目的は「あくまでデータ作成の主目的は「製番ごと」の在庫高の月次推移を見ること」
なんだろ？
なんで「だからそれはできません・・・」
になるんだ？

>367
横列に増減理由を入れる列を増やして、それで集計したらどうなの？
3月末の在庫/増減/理由・・・て感じで

>>367
増減ごとに行分けてから、元の表のようなものを加工して作るべきだなぁ
ただ何かの理由(アホな上司の意向等)でどうしても変えられないなら
最終列に理由をまとめて「1/1日、○○の理由で100万増加。1/5××の理由で50万減少・・」のように書くしかないかと
ちなみにalt+enterでセル内改行できるが行幅が太くなると見難くなるかな
>>368
同じフォルダのaaaというブックを参照してければ
=[aaa.xls]Sheet1!$A$1
のようにする
他のブックの参照はブックをまとめる等して極力避けた方がいい

>>367
一つの製番にたいして複数の理由を集計するんなら、理由に着目す限り
それらのセルが必要。あらかじめ理由が限定されているなら
横方向に理由の列を用意しておけばいい。"廃棄"、"転用"、"その他"
理由が限定できない、あるいは横に伸ばしたくないらない
一つの製番で複数の行を入れるしかない。
その場合、別途集計用のシートなり、ピボットなりでまとめ直せばいいんじゃないの。

>>365
>>366
おまえらエスパーなの

>>372
>>369の言うように、増減理由ごとに行を分けるとすれば、
上の例では（例えば製番がA01だとすると）
製番 ３末残高 3‐4増減額　増減理由　４末残高　4−5増減額　…
A01　200万円　−200万円　　転用　　　0万円
A01　200万円　−100万円　　廃棄　　　0万円
ってことになるじゃないですか

あくまで元データは
A01　300万円　　−300万円　　　　　　300万円
と表示するよう指示されているんです（増減理由は元データでは必ずしも表示しなくてもいい）
この元データに何らかの加工をして、プラスSUMIFか何かを使って「ついでに」増減理由別増減額のマトリックスを作りたいと言っているんです

>>377

例えばこうしろ。

年月 製番 数量 理由
200903 A01 1000 繰越
200904 A01 -200 他の製番への転用
200904 A01 -100 廃棄
200903 B02 800 繰越
200904 B02 -100 他の製番への転用
200904 B02 -50 廃棄

>>377の例に合わせたデータにするとこうだな。

年月 製番 数量 理由
200903 A01 200 繰越
200904 A01 -200 転用
200904 A01 -100 廃棄

このデータからピボットテーブルで製番ごと理由ごとの「累計」を年月順に求めればいい。

>>367にそこまで求めるのは酷だな。理由別に列を増やすのがいちばんかもしれん

>>377
事務仕事で使う計算なんてほとんどがグループ別の集計。
頭の中にクロス集計のモデルを構築しておくとよい。
問題をそのモデルに当てはめることができれば簡単に解決できる。

みなさんありがとうございます。
とりあえず僕が当初やりたいと思ってたことはできないみたいですねｗ
皆さんの意見を取り入れて、工夫していきたいと思います

素人がコテ使うってどうなの？

名前のとおりにリカバリーしたらEXCELやWORDが消えてしまった。

誰か助けて下さい

名前のとおりにリカバリーしたらEXCELやWORDが消えてしまった。

誰か助けて下さい

>>384
officeと書いてある箱が家のどっかに転がってると思うんで、
その箱の中からCD-R取り出して、インスコして下さい。

>>385
おちついてバックアップしておいたファイルを復元すればよろし。

初心者スレから誘導されて来ました。
Cドライブの空きが700MBを切ってきたので、OfficeXPをDドライブに入れようとしたら入れられませんでした。
HDDは1基で、C、Dとパーティションを切ってあり、Dドライブの空きは13.5GBです。
Cドライブ以外にはインストールできないのでしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsXP Home
【2 Excelのバージョン 　 】 Excel2002（OfficeXP）

>>388
インストール先を通常ＣドライブのところをＤドライブに変更してインストール
していけばいいかと。
インストール時に安易に”次へ→”をどんどん押さずに注意して確認しながら
変えていけば良いかと。

ただ、出来ればアプリケーションとかはＣドライブへ、データ類はＤドライブ
へと（元々の使い方として）分けたほうが良いかと思う。

>>839
Dに変えるとインストールできないんです。
アプリはC、データはDにしてるんですが、どう工面してもCの空きが少なくてOfficeを入れ直そうかと思った次第です。

>>391
CドラのofficeをアンインストールしてからDドラに入れなおしても駄目？

>>392
だめでした。
とりあえず、他のアプリを削除して空きを1.1GBにしました。

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

指定したフォルダ内のファイルを順次開いて、ファイル名がアンダースコア"_"で始まるものは
それを削除したファイル名に変え、そうでないものは上書き保存したい。

知りたいこと
1．"_"を削除して保存するには？（ _A001.xls を A001.xls で保存するには？）
2．フォルダ内から"_"で始まるファイルを削除するには？

C:\Data
　_A001.xls　←ファイル名を変えて保存
　_A002.xls　←ファイル名を変えて保存
　A003.xls　 ←上書き保存

　　↓

C:\Data
　A001.xls
　A002.xls
　A003.xls
　_A001.xls　←削除する
　_A002.xls　←削除する

>>394
1　ファイル名からLeftとかで1文字切り出して"-"かどうか比較する
2　Killで削除してから新規ファイルとして保存する
3　それ以外はそのまま上書き保存

いちいち開かないでもリネームですむ話　
FlexibleRenamerとか便利よ

>_A001.xls　←ファイル名を変えて保存
ファイル名を変えるだけでなく
変更されたブックを保存＋ファイル名の変更
ということか？

>>393
パーティションのサイズ変更してCの容量増やせば？
↓このソフトは英語だけどフリーで使える。（俺も使ってる）

http://www.forest.impress.co.jp/lib/sys/hardcust/defrag/easeuspart.html

英語わからなくても↓とかに手順書いてあったよ。

http://furi-sofuto.com/2008/12/easeus_2.html

あとはVectorや窓の杜で類似ソフトを探すとか。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい(ど素人)
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】マクロ　Excel　変数　コピー　複写　印刷　IF　セルをコピー　case　別Sheet
質問です。
「種類」、「品種」、「外観」、「値段」、「正否」の項目があり、
正否に○がついている行をSheet2の表に種類、品種、外観、値段を複写し、
複写し終わるとそのSheet2を印刷したいと考えています。
ネットでマクロを公開しているページをコピペしてみたりしたのですが、いざ実行するとエラー（？）
がでて実行どころではありませんでした。

以下がエクセルデータです。
ttp://proxy.f3.ymdb.yahoofs.jp/bc/4b0a330f_4dd7/bc/%a5%de%a5%a4%a5%c9%a5%ad%a5%e5%a5%e1%a5%f3%a5%c8/test.xls?BC7njCLBPi.TN.1s

>>399
コードは？

初心者にはよい勉強教材だったけどさ・・・
もうちょっと素晴らしいコードは他の人で。
Sub test()
Dim wk1 As Worksheet, wk2 As Worksheet
Dim i As Long
Dim rr As Range
Set wk1 = Worksheets("sheet1")
Set wk2 = Worksheets("sheet2")
i = 3
For Each rr In wk1.Range("e2", wk1.Cells(wk1.Rows.Count, 5).End(xlUp))
If rr = "○" Then
rr.Offset(0, -4).Resize(1, 4).Copy
wk2.Cells(i, 2).PasteSpecial Paste:=xlPasteValues
i = i + 1
End If
Next rr
Application.CutCopyMode = False
wk2.PrintOut
End Sub

>>396
いちいち開いて、全てのファイルを処理するんですが・・・

>>397
そういうことです。

一旦保存して削除するしかないですかね？

やべ、E列見てたｗ
このリクエストでは間違いではないけど、厳密にはA列見ないとだめだった
コードは書き直さないけど。

>>400
すいません、2時間コードと格闘した末消してしまいました。

>>401
わざわざ作ってくださってありがとうございます。
今少し用事があり試せませんが、もし疑問があるときはまたご教示くださいm(--)m

数式のとちゅうで”E”がでてるくんだが
nnkr？

>>403
For Each rr In wk1.Range("e2", wk1.Cells(wk1.Rows.Count, 5).End(xlUp))
ここのことでしょうか？

>>406　うん。間違いではないんだけどね。
やはりきちんとデータが入っている列を見たほうがいい。
ってことで、
For Each rr In wk1.Range("a2", wk1.Cells(wk1.Rows.Count, 1).End(xlUp))
If rr.Offset(, 4) = "○" Then
rr.Resize(1, 4).Copy

＞ 一旦保存して削除するしかないですかね？

それで良くね？ここまでの解答もらってる組み合わせで多分作れるじゃん頑張れ。

関数を使いたいのですが、本屋に行っていろいろ入門書を見ても、わかりません。
ヨドバシにいったら、ソースネクストが出しているエクセルの関数学習ソフトがあったんですが、
超ド初心者のわたしでも、わかるでしょうか？

ＯＳ：ＷｉｎＸＰ
バージョン：２００３

>>409
まっ、とりあえずSUM関数と IF関数を使えるようになればいいよ。
その後面白くなって欲が出てきたら他の色んな関数覚えればいいんじゃないかな。

>>409
エクセル　関数
でgoogleで検索すればいくらでもサイト見つかるよ
↓は私が良く見るサイト
ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/itiran.html
後はやっぱり実務で使わないと覚えにくいｶﾓ。帳簿でも作ってみては?

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

フォルダ内に、社内01.doc〜社内47.docファイルがあります。
エクセルでファイル名（sheet1）とタイトルを管理していて
A1に　社内01　　　B1に　社内合理化委員会開催の通知書
A2に　社内02　　　B2に　セールスマネジメント研修会開催の通知書
…
A47に　社内47　　B47に　・・・・・・・・・・・・・・・・・・・・・・・・・・稟議書
という具合に管理しています。

私がやりたいのは、
�@フォルダを見て、ファイル名から内容がわかるように
リネームをしたい　社内01.doc→社内01（社内合理化委員会開催の通知書）.doc
できればVBAで

�A　エクセルからリンクを張りたいです（A1をクリックしたら）
社内01（社内合理化委員会開催の通知書）.docが起動するように

どれも手作業でコツコツやればできますが、マクロやVBAでサクッとできたらいいなと考えています。
�@�Aは別々にできるようにしたいです。
ご教授お願いします

>>412
�@の方はリネームソフト使った方がいいよ。使ったことないうちは敷居が高いかもしれないけれど一度使えばなんてことない。
�Aはふくちちさんに任せるかｗ

>>412
先に2
C1=HYPERLINK(A1&B1&"doc.",A1&B1)
が楽だと思う。
VBAはマクロの記録で作ってみて。
無理で、どうしてもマクロがいいなら作ってみるけど

次は1↓。拡張子の表示をしておいた方がいいかもしれない。

Option Explicit
Dim gyo, i
Sub SEX()
gyo = Range("A10000").End(xlUp).Row
ChDir ThisWorkbook.Path

For i = 1 To gyo
On Error Resume Next
Name Cells(i, 1) & ".doc" As Cells(i, 1) & Cells(i, 2) & ".doc"
Next

End Sub

複乳ってなんだ？
おっぱい1個の人なんていねーぞ？

>>408
完成しました。
アドバイスありがとうございました。

>>416
おーそれはよかったよかった。
ここ来てる人でおみやいりな人わりといるから気になるのよね。

たぶん副乳って書きたかったんだろ
おれのわきばらにもある

>>414
ありがとうございます
これから作成します

>>414
できました　ありがとうございます
�@
ひとまず関数をぶち込んだだけですけど各関数の意味を調べます。
�Aについては
C1に作業列？を作る方がらくですね　　doc.　→.doc　の試練がありました
余力ができたらVBAも作ってみます　

会社で使うマクロなんですが、ある特定の人しか動作しない仕掛は作れますか？

>>421
パスワードでも設定しとけ
そいつだけに教えればいい

>>420
お、気づいたか
完全にミスしてただけなんだけどね。ﾊﾊﾊ
Cり作業列も言い忘れてたよごめんよー

>>421
指紋センサーつければよい

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

回数　（回数から計算した）データ
1　　10
2　　15
3　　20
4　　25
5　　30
6　　25
7　　20
8　　15
9　　10
10　　5

このような形のデータから、「データが最大になる回数」を別のセルに表示させたいです。
このデータの例で言うと、

最適回数　5
最大値　　30

といった感じです。
最大値の方はMaxを使って簡単に出来たのですが、それに対応する回数を出力させる方法がわかりません。
ちょうどいい関数等がありましたら教えてください。

>>425
=INDEX(a1:a100,MATCH(MAX(B:B),B:B,0))
列をコピーしてvlookupや、offset、indirectでもできる気がする
あとは=IF(COUNTIF(B:B,MAX(B:B))>1,"最大値複数アリ")
などで最大値が複数ある状態に対応してみるのもいいかもしれない

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

>>421
IPアドレスで弾くｗ
見た目は使えるのに、最後の最後でエラー出してメッセージを出すとかやってるよｗ

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

A列に連番、B〜E列にはBook1からのデータをコピペ、F〜I列にはBook2からの
データをコピペして、名前順に並べてあります。

　A　　　B　　　　　　　F
　1　　ABC 　 　 　 ABC
　2　　BCD 　 　 　 CDE
　3　　DEF　　　　　DEF
　4　　FGH　　　　　EFG
　5　　GHJ　　　　　FGH

これをB列とF列の文字が隣り合うようにするには、どうすればいいですか？

　A　　　B　　　　　　　F
　1　　ABC　　　　　ABC
　2　　BCD
　3　　　　　　　　　　CDE
　4　　DEF 　　　　　DEF
　5　　　　　　　　　　EFG
　6　　FGH 　　　　　FGH
　7　　GHJ

>>429
概念的には一度Ｂ列とＦ列を一緒にしてからそれを元に各Ｂ，Ｆ列へ振り分け
る方法が良いかと。

>>430
省略して書いたので誤解されてるようですが、データはB列とF列だけではなく、
B〜E列とF〜I列がそれぞれ１行ずつの塊になっています。

ちょっと漠然として判りにくかったかも。
１、まずＢデータとＦデータをどこか一つの列に一緒に入力（コピペでいいよ。）
２、１デ入力した値で重複するデータをなくす。
３、２を元に>>429下図のように合致するデータを各行をあわせてＢ列および
　　Ｆ列に抽出する。

>>431
ご指摘の”一連の塊”についてはLOOKUP関数で対応できます。

質問です。
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 (ヘルプでの)検索キーワード】検索

表1として
日付 単価 金額
20090101 1500 15000
20090101 2000 24000
20090105 1500 4500
20090110 1550 1550

というのがあります。
これを別表に
20090101をA1に入れると
A2〜A3に表1の20090101の単価を昇順に、
対応する金額をB2〜B3に入れるようにしたいのです。

VLOOKUPやDSUMなど使おうとしましたがうまく行きません。

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

>>432
やっぱり勘違いされてますね。
重複したデータを削除してはいけません。
小出しするつもりはないですが、B〜E列のデータとF〜I列のデータを比較したいんです。
429の例でいうと、それぞれのデータ行に増減があり、B列とF列をキーにして
両者を同一行で比較したい。

>>435
言葉足らずですみません。
>>432の２、１デ入力した値で重複するデータをなくす〜というのは二つのうち
一つ消す（または統合して一つに絞る）という意味で書きました。重複データを
全部消してしまうという意味ではありません。

>>436
何度も書かせて頂きますが、１つでもデータを削除してはいけません。
「比較」って意味が分りますか？

>>437
あのですね、>>429の中でいうとABCというのがＢ列とＦ列にそれぞれ一つずつ
あるでしょ、>>432の２ではそれを”一つのキーワード”として使用するための
方策として二つあると不便なのでその”キーワード”ごとにまとめようという
ことなのです。
そして３ではそれを再度Ｂ列とＦ列（と各その関連する塊）へ>>429下図のような
形へと再配列させて容易に「比較」出来るようにしようって話です。
結果、あなたが心配なさるような”削除”ではないのでご心配なく。

>429

Sub macro()

Dim i As Long
Dim value1 As Integer
Dim value2 As Integer

i = 1

Do

If Cells(i, 2) = "" Or Cells(i, 6) = "" Then Exit Do

value1 = Asc(Left(Cells(i, 2), 1))
value2 = Asc(Left(Cells(i, 6), 1))

If value1 < value2 Then Cells(i, 6).Insert Shift:=xlDown
If value1 > value2 Then Cells(i, 2).Insert Shift:=xlDown

i = i + 1
Cells(i, 1) = i

Loop

End Sub

>>434
コピーして並び替え
VBAならそれをマクロの記録
関数はめんどい

セルA1 に "A"（太字、赤色）
セルB1 に "B"（斜字、青色）
とあって、C1 に =A1&B1 とすると "AB"　と表示されますが、
この時、色等の属性もそのまま結合することは可能ですか？（C1"AB"の"A"は太赤・"B"は斜青になる）

>>441
マクロでやるしかないと思う。
http://okwave.jp/qa1547388.html

>>442
素早い回答ありがとうございます！

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

そんなに難しいものだったのですか。
自分なんかの手に負えるものじゃなかったんですね。

諦めて手作業で頑張ります。

>>444
マクロの記録覚えて全自動化すればいいよ

=A1
=A2
=A3
=A4
・・・
と入力した行があるとして、
ドラッグして2行目と3行目を入れ替えると
=A1
=A3
=A2
=A4
・・・
のように数式も変わってしまうのですが、
数式はそのまま維持するように移動することはできないのでしょうか？

>>446
移動させたらそうなる仕様だからねぇ

もしフォントなどの書式だけ移動させたいなら、
コピーしてはり付けするときに右クリックで「形式を〜」で書式を選択すると良い

もし参照してるところを変えたくないというなら
=A1〜=A4を全て
=INDIRECT("a"&ROW())
に変えると変わらないといえば変わらない

>>447
ありがとうございます。
関数で工夫するしかないんですね。

WinXP、エクセル２００２です。

http://grad.ps.land.to/exl.jpg
こんな風に、マウスカーソルを合わせると
コメントが画面からはみ出てしまうのですが
画面内に表示させるにはどうすれば良いのでしょうか？

>>449
>>322

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

やってみましたがうまく出来ませんでした。

１．新規でエクセルを開いて、コメントを作成しました。
　http://grad.ps.land.to/ex2.jpg

２．>>322 のマクロのTrueの部分をFalseに変更してマクロを実行する

３.　http://grad.ps.land.to/ex3.jpg
　このようになるだけです。フォントの色と、大きさ、コメントの枠の大きさも
　無効になっただけでした。　何か操作がまずいのでしょうか？

色や大きさも有効にしたいです。 よろしくお願い致します m(_ _)m

質問です。

他ブックのパスを指定する時、例えばそのファイル名が

[社員コード][社員名].xls　だった場合、

[社員コード]を変数にし、[社員名]は無視してパスを指定したいです。

そのようなことは可能でしょうか？？

>452

用語の使い方が変なのでよく分からんが多分可能。

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

CDR1
CD-R1
CDR2
CD-R2
CD-R3
CD-R4

これを並び替えると

CD-R1
CD-R2
CDR2
CD-R4
CDR1
CD-R3

になりますが

CDR1
CDR2
CD-R1
CD-R2
CD-R3
CD-R4

のようにするにはどうすればいいですか？
データは5000行くらいあります

>>451
ふと思ったんだけど、データ→入力規則→入力時メッセージはダメかな?
似たような機能なんだけど

どうしてもコメントをマクロで固定させたいなら、解説を図で作ってみた。きっと分かりにくいだろう
ttp://www1.axfc.net/uploader/File/so/34855.jpg
ttp://www1.axfc.net/uploader/File/so/34856.jpg
ttp://www1.axfc.net/uploader/File/so/34857.jpg
そして作ってから気づいた
ファイル上げた方が早かったな
ttp://www1.axfc.net/uploader/File/so/34858.xls

マクロの登録が無理だったら下のファイルを使ってみてくれ
それでも無理なら諦めてくれ。基本的にできないことをしようとしているのでな
>>452
indirectを使う
B1に[社員コード]。社員コードは数字だけだよね?ｶｷﾞｶｯｺ勝手に抜いちゃったけど
=INDIRECT("["B1&"][社員名].xls]Sheet1!$A$1")

ごめんなさい何か質問の仕方が悪かったみたいですね。。。

簡単に言うと、ファイル名に特定の文字列が入っているファイルを、
VBAで開きたいんです＞＜

>454

置換すれば？

>>454
B1=(MID(A1,3,1)="-")*1
でB列で並び替えると上半分にハイフンありが集まるのでグループで分けた後、
コピーしてはりつけとか
>>456
どこにも開けるなんて書いてないじゃないか><。。。
つーか普通に&で結合すればok

Sub Macro4()
Dim sine
sine = "[社員コード]"
Workbooks.Open Filename:=sine & "a.xls"
End Sub

sine....死ね・・・（；ω；）

shineのうち間違いだよきっとそうだよﾊﾊﾊ

>>458
簡単にできました
ありがとうございます

>>439
ありがとうございます。
If value1 < value2 Then Range(Cells(i, 6), Cells(i, 9)).Insert Shift:=xlDown
If value1 > value2 Then Range(Cells(i, 2), Cells(i, 5)).Insert Shift:=xlDown
これで思い通りになりました。

SUBPRODUCTで、３つの条件を指定しても
ちゃんと全ての条件を満たす行数をカウントして
くれないんですが、原因として考えられるのは
何でしょうか？

数式が間違っている

SUBPRODUCTって何？

入力間違い若しくはユーザー定義関数でしょう

windowsXPです
エクセル2003以前の物を安く購入したいのですが、どこかに打ってませんか?
PCショップ回ってみましたが2007しかありませんでした
あとPCソフトって型落品が安く売られるってことはほとんど無いんでしょうかね?
サブ機用に98か2000辺りを入れたかったのですが、これも売ってませんでしたし

>467
中古ＰＣ（メーカー製）を探したらどうですか？
たいていOfficeもバンドルしてあるので、リカバリＣＤの中にもOfficeが含まれている場合が
多いと思う。
ただし、中古ＰＣショップがＯＳだけ独自に再インストールして、K-Officeを入れてる場合も
あるから要注意。

>>468
なるほど、そんな手もありますね
ありがとうございます

アホか
バンドル品はそのハードウェアとのセット商品だ
えらそうに犯罪の手口教えてんじゃねーよ糞が

マクロでChDirを実行したあと、元のディレクトリへ戻すにはどうすればいいですか？
例えば、元のディレクトリが　C:\新垣結衣　になってるとき、マクロで　ChDir C:\綾瀬はるか　に変えたら、
C:\新垣結衣　に戻したい。

ChDir C:\新垣結衣　と書くのではなく、アクティブになってたディレクトリ名　"C:\新垣結衣"　を
導く方法を教えてくださいです。

>>471
カレントディレクトリを変数に保存しとく

>>472
いや、だからその方法を知りたいんだけど・・・

誰か助けてくれ(´・ω・｀)
Win　XP　Execel2003　環境なんだが
ハイパーリンクをオートフィルさせたときにリンク先も
01.xls　→　02.xls　→　03.xls　→　・・・　とさせたいんだ
普通にｵｰﾄﾌｨﾙさせると表示名だけが01→02→03…となるだけだよな…

リンク先は別のExcelのファイル。
項目が5000近くあるから手打ちじゃいつまでもおわらん(´・ω・｀)
それでできるのかも知らんがﾏｸﾛは使わない方向で頼む(´・ω・｀)

誰か助けてくれ…(´・ω・｀)

>>473
VBAだったら↓みたいになるけど・・・

Dim a As String

a = CurDir

ChDir "C:\綾瀬はるか"

ChDir a

>>475
即レス、ありが�d!!

>>474
=HYPERLINK(ROW()&".xls","名前")

A1に設定すれば同じフォルダの1.xlsが開くはず(01.xlsではない)
別のエクセルファイルが同じフォルダならこう
後はファイルの数字がどういう風な規則かによるね
最初と最後のファイル名、あとフォルダ名教えてくれればもう少し詳しく解説する
ついでにいうと私は関数以外の設定でVBAを使わない方法は知らない

複乳氏　すまねぇ、ほんと助かる(´・ω・｀)

リンクさせたいxlsファイルは別フォルダにあるんだ
その別フォルダには001.xls〜999.xlsって名前で999個リンクさせたいファイルを用意してある
フォルダ名は"TEST01"フォルダの場所は
C:\Documents and Settings\ユーザー名\デスクトップ\TEST01　ここに置いてある

最初の書き込みからずっとｸﾞｸﾞﾙだの別関数の応用でなんとかなるか？と試してるが
まったく解決の糸口が見つからん(´・ω・｀)

なにとぞよろしく頼む(´・ω・｀)

>>478
A1=HYPERLINK("C:\Documents and Settings\名前\デスクトップ\test01\"&TEXT(ROW(),"000")&".xls",TEXT(ROW(),"000"))
下にオートフィル

>>472-473
いい流れだｗ

if関数で結果が
trueの場合もfalseの場合も返り値を文字列で指定。

数式の結果が文字列、AとかBとかC、で表示されているにもかかわらず
「0」ってセルに表示される。

なぜだ？

if関数のネストは7以下、
ただしcountifを多用してるのでそれらを合わせると「if」の数は20ぐらい。

原因を見つけ出す方法内かな？

>>481
とりあえず式を分解。それしかねーべ

>>481
ファイルアップロードするか数式みせてもらえれば見るよ。暇で死にそうだ
書式設定で「"0";"0";"0";"0"」になってれば何入力しても強制的に0を表示させることはできるけど
そんなことはしてないよねぇ

>>483
笑わせんでくれ

>>482
>>とりあえず式を分解。

だよな。

>>483
>>そんなことはしてないよねぇ

してねぇ〜。

>>暇で死にそうだ

Excel職場なんだ。それに苦手なWindowsだし、バージョンも興味ないし、、、
家のはMac2008、OS共に英語仕様。
月曜日以降暇だったら見てよ、おねがい。

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

よろしくお願いします

時刻　　　　　　　　売上
１月１日01:00　　　　10
１月１日02:00　　　　10
１月１日03:00　　　　20
１月１日04:00　　　　30
１月１日05:00　　　　10
１月１日06:00　　　　20
・
・
・
のように１時間ごとに集計した表を
以下のように３時間ごとに集計するにはどうすれば良いですか？
１月１日01:00　　　　40
１月１日04:00　　　　60
・
・
・

=CEILING(A1,"3:00")で3時間ごとに区切ってからピボットとかDB関数とかで適当に集計

ありがとうございます。
=CEILING(A1,"3:00")で3時間ごとに区切った後の集計の方法を
詳しく教えてください。
よろしくお願いします。

ピボット使えよ、ピ　ボ　ッ　ト　！

ﾃﾞｰﾀｰが多いので関数の方がいいと思うのですがどうでしょうか？

好きにしてください

>>490
なんでデータが多いと関数がいいと思ったの？

関数の方がコピーが使えるからなんですが違いますか？
初歩的な質問ですみません。

>>493
ほんとに初歩的だね。
たくさんのデータを取り扱う方法はいろいろあるよ。
ところであなたは>>487なの？

間違えました。すみません。
関数で集計するなら、何を使えば良いですか？
よろしくお願いします。

>>495
C2=ROUND(CEILING(A1,"3:00"),5)
D2=IF(MOD(ROW(),3)=2,SUMIF(C:C,C2,B:B),"")
でc1d1選択して下にオートフィルでD列でオートフィルタで「空白以外」

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

数式の質問です。
C、E、G、I、K、M、O列に数値、D、F、H、J、L、N、P列に日付、Q列にC〜O列の合計、
R、T、V、X、Z、AB、AD列に数値、S、U、W、Y、AA、AC、AE列に日付、AF列にR〜AD列の合計、
AG、AI、AK、AM列に数値、AH、AJ、AL、AN列に日付、AO列にAG〜AM列の合計＋
C〜O列の合計＋R〜AD列の合計をしたいですが、次の３つをもっと簡素な書き方で出来ますか？

１．C〜O列の合計
２．R〜AD列の合計
３．AG〜AM列の合計＋C〜O列の合計＋R〜AD列の合計

今は、単にセルを足して=C1+E1+G1+I1+K1+M1+O1と書いてます。
よろしく御願いします。

すいません。訂正です。

１．C〜O列にある数値の合計
２．R〜AD列にある数値の合計
３．AG〜AM列にある数値の合計＋C〜O列にある数値の合計＋R〜AD列にある数値の合計

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

>>497
＝SUM(C1:O1)

>>497
1
=SUMPRODUCT((C1:O1)*(MOD(COLUMN(C1:O1),2)=1))
2
=SUMPRODUCT((R1:AD1)*(MOD(COLUMN(R1:AD1),2)=0))
AG-AM
=SUMPRODUCT((AG1:AM1)*(MOD(COLUMN(AG1:AM1),2)=1))
3はこれらを全て足す
後付け加えると、表の構成が多分悪い
日付はA列数値をB列にして縦に並べるのが、良い

もう一つ教えていただきたいのですが、
３時間ごとの最大値を関数で求めるにはどうすれば良いですか？
よろしくお願いします。

>>502
max関数

IF(MOD(ROW(),3)=2,max(C:C,C2,B:B),"")
では上手くいきません。
どのようにすれば良いですか？

>>504
D2=IF(MOD(ROW(),3)=2,max(c2:c4),"")
と思う。試してないけど。範囲を絞ればok

すみません。
「MOD(ROW(),3)=2」の２は
例えば６時間ごとの集計でも変えなくても大丈夫ですか？
たびたびすみません。

>>501
ありがとうございます。
表の構成は、価格（数値）を支払う予定日を添えてるので、日付をA列B列に書けばいい訳ではありません。

>>486
もうピボットテーブルにしちゃいなよ。

>>500
アフォすぐる・・・ｗｗｗ

>>507
またでた。
「表の構成は変えられません。その理由は…。」
この手でしっかりした理由のあるやつ見たことない。

500=510
アフォすぐるｗｗｗｗｗｗ

>>506
その数式の意味は「その数式が入ってる行の数字を3でわったあまりが2」
つまり2・5・8行目が対象になる
後は自分で考えてくれ
あと>>508は俺も同意。
今回は終わってからでいいから、ピボットでもできるようになっておいたほうがいい

>>507
支払う予定日等が横に18セットもあるのか。大変だな
まぁ、苦労するのは俺じゃないからいいんだけどさぁ

>>506
数値を変えてみてどう変化観察してみてください。関数を理解する一歩です。

お世話になりました。勉強します。

>>512
横に18セット、縦に312セット*12シートあります。
前任者が作ったのは、312シートでマトリクス状になってたものが12のブックに分かれてました。
苦労してます。

使いやすいテーブル作れってのはよく見るけれど
現実にはわけのわからんフォーマット作るやつが山のようにいるわけでさ、


糞ブック相手に苦労して作業するうちいらんExcelの知識がたまるんだよなー

ピボットテーブル語れる人はsumproductなんて低級なもの教えちゃダメじゃね？

同一の問題の解決法を複数出せるのが上級者。
「３×５」でも「３＋３＋３＋３＋３」でも要は問題が解決できればいいんだし、
相手のレベルに合ったものを教えられる。

>>518
そういうことなら初心者にとっても上級者にとっても
ピボットテーブルを使うほうがおすすめだな。
使うの簡単だし、強力だし。

SUMPRODUCT, ROW, INDEX, 配列数式は上級者向きかつ非力。

えっ

その程度で上級者向き

>>520
うん。世間じゃ簡単なことにされてると思うけど、ピボットよりは難しい概念だと思うよ。

SUMPRODUCTとか配列数式は典型的な初級者向けだと思うが。
でも勘違いしてるやつ多いんだよな。

>>522
初級者向けじゃねーだろ？
そんなもの素人に教えちゃいかんよ。
馬鹿が増えるばっかだ。

SUMPRODUCT使わなくてもSUMIFとかCOUNTIFを組み合わせれば出来る事が多いし、
作業列使えば解決する事が多いし。
やっぱり初級者向けじゃないと思う。

>>524
初心者にはSUMIFとCOUNTIFすら教えるべきじゃないと私は思ってる。
こんな貧弱な機能を先に教えてしまうから、もっと豊かな世界を知ろうとしなくなるんじゃないかな。

>>516

> 糞ブック相手に苦労して作業するうちいらんExcelの知識がたまるんだよなー
その通りだ。必要ない。
つまらないことは知らなくていいんだ。

>>515
>横に18セット、縦に312セット*12シートあります。
>苦労してます。

君と同じような苦労を世界中の人がやってると思う？
そんな問題は何十年も前に解決されているよ。
たまたま日本はIT後進国だから君みたいな苦労してる人が多いけどね。

そうやって横やらシートやらに展開しないで全部縦に並べて1次元で処理すればいんだよ
世の中のデータベースってのはそういうことになってる。それがいちばん簡単で確実だから。

>>517
そうは言うても質問者が関数で教えてくれって言ってたからな
>>519
には同意。でも会社の帳票などの問題で使わざるを得ない

あとそろそろデータベースソフトは中小に広まって欲しい
いつまでエクセルでやり続けるのか

しかしOfficeにAccessまでもが入ってたのは９７までだよね？
つまり需要がないってことか・・・
別途何万も出して買うのはきつい。

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel2002 SP3
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel 画像　図形の調整　位置合わせ　正確

貼り付けた画像をセルの枠線に合わせたくて、図形描画→図形の調整→位置合わせ→グリッド
をオンにしてみたんですが、どうも微妙にズレます。これは仕様なのでしょうか？
また、他に枠線に合わせる方法はありませんか？

>>531
Alt押しながら動かしてみたら

>>530
今もpro版か何かの上位版なら付いてくるはず。高いけど。
OOoのBase使うのが一番いいんじゃないかな

>>532
それは位置合わせONにするのと同じ

１週間前まで、全く問題なく開くことができた、Excel2003で作成した
ピボットテーブルを使ったファイルを、同じくExcel2003で（winXPのPC）
開こうとすると、左下の部分に「ピボットテーブル レポートの集計中」
と出てくる所でエラーが出てきて開けません。

次にドキュメント回復の画面になって、画面左側の分割された
「ドキュメントの回復」画面に、赤い！マークのついた、赤く「修復済み」
と書かれたファイルが出てくるので、それを開こうとすると、同じく
「ピボットテーブル レポートの集計中」の所でエラーにまたなってしまい、
同じことの繰り返しになってしまいます。

ピボットテーブルが何かおかしいのでしょうが、どういった対処をすれば
よいのでしょうか？
ちなみに、他の複数のPCで試してみても開かず、以前、正常に開いた前の
バージョンのファイルに復元しても、開かず、自動バックアップを停止して
開いてみても開かず、ほとほと困っております。
どうぞよろしくお願いいたします。

再度ピボットテーブルをつくりなおしてみてはどうかね

>>535
ファイルのどこかが壊れてるんじゃないかなぁ
新規ファイルにシートの内容をコピーした方がいいかも
ピボットも作り直したほうが良さそう

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

クラス　生徒　担当　成績　点数
Ａ１　　山田　加藤　２位　９８
Ａ１　　米沢　加藤　３位　９７
Ａ１　　増田　岡田　１位　９９
Ｂ１　　佐藤　加藤　７位　８８
Ｂ１　　武田　岡田　４位　９０
Ｂ１　　中川　岡田　５位　８９


↑のような票が続いているシートＡがあるのですが
シートＢでクラスと生徒と担当を入力して全てが一致すると
成績と点数が出るようにするにはどうすればいいでしょうか？
VLOOKUPを使ったのですが条件が１個ならできたのですが複数になるとできませんでした。
お力お貸しください。

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

質問です。
1行目にA列から順番にデータ（数値）が100個並んでるとします。（CV列まで）
B1に1から100の任意の数値を入力した場合にC1にその合計値を表示したいのですが、教えて下さい。
例えばB1に「10」と入力した場合はsum(A1:J1)を表示したいという事です。
よろしくお願い致します。

（訂正）
B1に1から100の任意の数値を入力した場合にC1にその合計値を表示したいのですが、教えて下さい。
↓↓↓
B1に1から100の任意の数値を入力した場合にC1にその列までの合計値を表示したいのですが、教えて下さい。

＞537
一応、ビューアーでは開けたので、必要なデータの抽出をして、
新規ファイルにコピーできました。ありがとうございました。

ビューアー使わないと、新規ファイル開こうにも、コピーしようにも、
強制終了→エラーのループになってしまって、全く操作ができない状態でした。

>>540
B1って計算される数字が入ってるんじゃないの。
B1→A2で読みかえるけど
=SUM(A1:OFFSET(A1,0,A2-1))

>>538
ピボットテーブルか。私はうまく使えないんだが
範囲を選択してピボットテーブル
「ここにページのフィールドをドラッグ」というところに担当とクラス
「行の〜」に生徒、「データアイテム」に点数
その後に担当とクラス選べばいいんじゃないかなぁ

じゃなきゃシートごとコピーしてオートフィルタか
オートフィルタ使った後の集計はsubtotal関数が使える

>>539
入力と出力は別にする。じゃなきゃ循環参照になって色々問題が発生しやすい
例だと2.3行目に出力、4行目に入力が見安いかね

A2=if(A4="",a1,a4)
A3=SUM($A$2:A2)
これをCV列までオートフィル。新しい数字は4行目で入力する
ほんの一例なので、好きなように変えておくれ

>>539
B1に任意の入力、C1に合計値、で、集計参照範囲はA1:CV1って無茶苦茶だな。

>>538
クラス　生徒　担当を＆で結合した値をどこかの列にいれておいて、そこでVLOOKUP

>>545
それ考えたけど、一人しか引っかからなくね？普通教室には何人も生徒がいるもんじゃね？
と思ったけど家庭教師みたいなマンツーマンかもしれないな

そうですマンツーマンの資料です。
ありがとうございます。

>>538
ピボットテーブルで結構使い勝手よさそうなのは出来たけど・・・
担当・クラスをプルダウンで選ぶと生徒のランク（成績）と点数が出る、みたいな。

ランクは「位」をはずして数値にすれば使える

【1 OSの種類 　 　 　 　 .】 Windows 7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード 　 　 】
散布図グラフを作成して誤差棒を付けたいのですが、誤差範囲を『各値の標準対数の平方根』とすることは出来ないんでしょうか？

>>547
ナンテコッタ。じゃあ>>545が一番いいと思う

>>542
>>544
ご指摘の通り「B1→A2」「C1→A3」の間違いです。
>>542
間違いをくみ取って解決していただきました。
ありがとう御座いました。

酒は抜けたけどデートの予定もない、けだるい日曜の午後、
100%は面倒だけど10%位再現してみた。

1) }if関数とcountif関数の入ったセルを作る、式にエラーはない。
2} そのセルを元に隣接する複数セルに式をコピーする、循環エラー。

コピーされたセルはそれら各々の1部セルを参照している。

3} 元セルを修正、循環エラーも解決した、つ、も、り。
4} 返り値を文字列で指定しているにもかかわらずその元セル表示は数字の「0」、と変化。

ところが2)でコピーしたセル表示は元の文字列のまま、なんらか変化するはずなのに。
ここで分かった。
循環エラーは解決していない、当たり前だ、元セル以外は2)でコピーしたままだから。

だから、計算はされず元セル表示は、「0」。
そして、2}でコピーしたセルは再計算されずそのまま表示。

な〜〜〜んだ、猿にも分かるエラーじゃないか。

ぬりがとう、みんな。
もちょっと精進するわ、100%マメになるわ。
女に。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 vba の勉強をしたいのですが、本を買ったほうが良いですか？

>2･B

>>553
時間があるなら、ここで半年ROM

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

EXCEL2007ってよく画面乱れない？

PCのスペックが足りてないんじゃないでしょうか

Winxp SP3/C2D E7200/4GB RAM/500GB HDD/UXGA+SXGA２画面表示です
なんか、リソース枯渇の時に起こるようなコントロールの乱れ（メニューバー、リボン、その他いろんな物が乱れて消失）
が結構な頻度で起きるんだよね
２画面表示しているからだろうかなぁ
WORDやパワポでは起こらない
バグフィックスもないから一般的な問題ではないということなんだろうけど

とりあえず、TrueType切ってみる

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 コピペなら
【4 VBAでの回答の可否】
【5 検索キーワード 　 　 】 数値　置き換え

日付を含んだデータが送られてきたのですが
データ形式が　月/日/年　という形なのでソートが不便です
これを　年月日　というデータにするにはどうしたらいいでしょうか

03/05/07　ああああ
10/02/08　いいいい
11/30/09　ううううう

↓こうしたい

070305　ああああ
081002　いいいい
091130　ううううう

よろしくおねがいします

>>559
スペックは十分ぽいね
OSごとインストールされてみては

>>560
元のデータがシリアル値でそうなってるのか文字列なのかで変わってくる

シリアル値の場合
書式設定でユーザー書式「yymmdd」

元のデータがもういう文字列の場合
=MID(A1,7,2)&MID(A1,1,2)&MID(A1,4,2)

シリアル値が分からん買ったら両方試してください

>>561
それはちょっと・・・・

経験上、ひとつのブックに多数のシートを作成し、シート間でリンクを張っていくとおかしくなってきます
グラフの数も問題かも
それほど大量データを扱っているわけでもないのですけどね
ファイルサイズもxlsxで160 KBぐらいしかないですし

今は、おかしくなったらそのつどEXCEL立ち上げ直してごまかしてます
EXCEL 2003以前では全くおかしくならないんですけどね
これが2007の残念なところ
プラグインとかの外的問題なんだろうか・・・・

そういやゴミとして残ってるtempファイルを消せば不具合が解消されるかも
じゃなきゃ2003形式のxlsファイルで作業してみるか
excelのアプリケーション自体がぶっ壊れてるならエクセル再インストール
APIがおかしいならOSごと再インストール

突然ですが、懐かしい画像

昔のエクセル
http://www-accps.kek.jp/staff/MR-Group/FastLoss/loss/ekuseru1.jpg

今のエクセル
http://okirakukoubou.com/office/excel//sample-image/macro-vba/security2007/2007_security-102.jpg

グロ注意！

画像くずれすぎだろ

ほれ
ttp://downloads.myphotos.cc:8080/up1/src/FancyFree0734.png

C18セルに書いたフォルダ名に入ってるファイルを開いて集計したいのですが、
ChDirがうまく動作せず、フォルダが切り替わらないときがあります。
どこがマズーですか？

FLD = Range("C18").Text
ChDir FLD
FN = Dir("*.xls")

Do While FN <> ""
　　If FN <> ThisWorkbook.Name Then
　　　　IBO = False
　　　　For Each WB In Workbooks
　　　　　　If WB.Name = FN Then
　　　　　　　　IBO = True
　　　　　　　　Exit For
　　　　　　End If
　　　　Next

　　　　If IBO = False Then
　　　　Workbooks.Open Filename:=FLD & "\" & FN
　　　　（以下略）

>>569
セルに記入してるシートとは別シートや別ブックがフクテイブにはなってないよね
じゃなきゃフォルダが切り替わらないことはないと思うんだけど
後はウォッチ式を使って、ステップインで実行してみたら原因が分かるかもしれない

フォルダ名が間違っていないか、そのフォルダが本当に存在するか、
余分なスペースなどが入っていないか、全角になっていないかチェック

つ Debug.Print "<ここから>"; FLD; "<ココまで>"

【1 OSの種類 　 　 　 　 .】 Windows　xp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel 時刻　自動開始

セルＡ１が８：３０になったら、処理Ａを開始するマクロを作りたいのですが、
よろしく、お願いします。

>>573
こちらこそ
今後とも宜しくお願い致します。

>>573
セルA1の時刻をどうやって変化させるかによる。
セルの中に時計を表示させる方法は、それほど単純じゃないので。

以前、MOS資格を取ろうとエクセル2002(XP)の問題集を買って勉強をしていてつい先日XPからvistaに買い換えました。
その場合エクセル2002の問題集に付いていたCDｰROMは使えないのでしょうか？入れてみたのですが起動しなくて…。
どなたか教えてほしいです。

まずはPCリテラシー身につけた方がいいような

>>573
A1に時計作って、8:30になったらイベントで処理Aを開始。

>>576
出版社にお聞きください

>>576
MOSを取る以前の問題だなｗ

7が出るのわかってて、つい先日vistaにかえちゃうような奴だしなｗｗｗ

576です！
出版社に確認してみたらできるとの事でした。
もう1度試しにやってみたら起動したのでよかったです！今一般しか持ってないので上級が取りたくて。
ありがとうございました！

>>578　他

既にA1セルには時刻データが１秒ごとに変更になるようにしてあります。
肝腎のイベントは何になりますか？

>>583
時計そのものが標準の機能じゃないんだからイベントなんてわかるわけないだろ
その時計を作ったやつに聞け

A1の時計が実際の時刻なら、
A1関係なくふつーにアラームくんだらいいんじゃないの？

selectionchange しかなさそう。

久しぶりに来てみたけど・・・　orz

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

データを並べ替えで優先キーを設定して並べ替えます
その状態でフィルタを付けると↑で設定した並べ替え条件がクリアされてます
これは仕様なんでしょうか？何処かの設定を変える事によって並べ替え→フィルタをしても優先キーが消えないように出来ないでしょうか？
よろしくお願いします

>>587
クリアされないけど？

>>570-572
ありがとうございます。
自分だけが使うものではないので、絶対パスに変えようと思います。

FN = Dir("*.xls")　を　FN = Dir(FLD & "\" & "*.xls")　に変えるだけでよいのでしょうか？

-----------------------------------
FLD = Range("C18").Text
ChDir FLD
FN = Dir(FLD & "\" & "*.xls")

Do While FN <> ""
　　If FN <> ThisWorkbook.Name Then
　　　　IBO = False
　　　　For Each WB In Workbooks
　　　　　　If WB.Name = FN Then
　　　　　　　　IBO = True
　　　　　　　　Exit For
　　　　　　End If
　　　　Next

　　　　If IBO = False Then
　　　　　　Workbooks.Open Filename:=FLD & "\" & FN
　　　　　　'集計、他
　　　　　　Workbooks(FN).Close
　　　　End If
　　End If
　　FN = Dir()
Loop

ChDir FLD　を消すのを忘れました・・・

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

人物名・性別・住所・会社名を登録したエクセルのデータベースがあり、
このデータベースの内容を別のエクセルに貼り付け、
さらに性格・趣味・役職・出身を追加した拡張データベースを作成してました。
データベースは毎日更新され、新しいデータは一番下に追加される様になっており、
定期的に前回追加したデータから新しいものを拡張データベースに貼り付け、
追加のデータを更新していました。

ところが、データベースが壊れ、新しく登録したデータもろとも並び順がバラバラになってしまい、
どこからが新しいデータか分からなくなってしまいました。

そこで、今ある拡張データベースを元にして、
人物名を入力、またはコピペすると、性別・住所・会社名・性格・趣味・役職・出身が出てくるような
エクセルファイルを作りたいのですが、どの様にすれば良いでしょうか？
もしくは、どうすれば効率的に復旧出来るでしょうか？

説明が怪しいかもしれませんが、不明点はご説明したいと思いますので、
ぜひ、お力をお貸しください。

上記のサンプルファイルを下記にアップしましたので、参考にして頂ければと思います。
よろしくお願いします。

http://a-draw.com/uploader/upload.cgi?mode=dl&file=4562
DLKeyはxlssamです。

>>591
拡張データベースから余分なデータを削れば元のデータベースになるんじゃないの？

>>591
元データは時系列で正しく並んでいる。
拡張されたシートは時系列がめちゃくちゃになってる。
データの個数は一致していて、1対1で対応してる
でいいの？

人名が重複してないなら
元データE列に上から1,2,3って番号つけて
名前の列を並べ替え(昇順でも降順でも)
拡張シートも名前の列を同じルールで並べ替えて、
E列の数字を貼り付け
あとはE列をキーにして基の順番に並び替え。

そもそも、拡張シートのほうに日付なり、番号なり振っておくべき。

>>589
ウォッチ式、気に入らなければmsgbox使って変数の中身見れ
>>591
うーん、件数次第だねぇ
この件数なら、countifで行削除。F4(直前の行動の繰り返し)をするかね
I1=COUNTIF(A:A,A1)
下にオートフィル
あとはマクロで行削除。かなりクセの強いやり方と思う。
Option Explicit

Sub Macro1()
Dim gyo, i
gyo = Range("I65535").End(xlUp).Row
For i = gyo To 2 Step -1
If Cells(i, 9) > 1 Then
Rows(i & ":" & i).Delete Shift:=xlUp
End If

Next
End Sub

皆さんレスどうもです。
後付けの説明で申し訳ないんですが、
元データには人物名以外イレギュラーなデータが入力されていたり、
重複した個人が入力されてました。
その為、1対１または時系列順では対応していません。
件数としては3000件前後になります。
また、拡張DBにはサンプルでは趣味とかにしましたが、
再度入力するのがかなりの手間になる様なデータが入っている為、
極力、今ある拡張DBを生かしたいのです。

（説明がややこしいですが）めちゃくちゃになった元データから
拡張DBにあるデータを抽出してやれば、前述のイレギュラーデータは
あるものの、残りは基本的に新しく登録したデータのみとなり、
あとはいつも通りの作業をすれば良いと思ったからです。

説明不足であれば、指摘下さい。
引き続きよろしくお願いします。

例えば、新しいまっさらなシートに、めちゃくちゃとなった元データから名前の列だけを全部コピーしてきて
ペーストすると、拡張DBとマッチする名前だけ、
名前の横にその名前に付随したデータが表示される様に出来ないでしょうか？

>>595
作業列にVLOOKUP、オートフィルタ

>>595
正しく並んでいるのは、拡張シートで
登録順番が判らなくなったのは、元シートでいいの？
元シートにはまだ、拡張シートに登録してない新規の行があり、
その新規の行を含めて、元シートの順番がめちゃくちゃになったせいで
どれが新規の行か判らなくなった
でいいの？

元シートにゴミデータ行があるなら、Indexつけて並べ替えで順番そろえる手は
後で人間が修正してやる必要がある。
名前＋会社名の組み合わせがユニークなら、
その条件でMatchingさせてやればいいけど
もう寝るから今日はパス。

>>596
その程度のことならVLOOKUPとかINDEXとMATCHでできる

壊れた、というのがファイルが物理的にHDDなどのデータレベルで壊れたのか、
操作ミスで予期しない順序に並び替えられただけなのかで対処法が異なる
まぁvlookupの戻り値を&で結合したりすれば一発で戻るかもしれない
無理かもしれない

説明がきちんとしていなくてすみません。
>>593さん
シートの経緯に関してはその通りです。

>>600さん
ファイルが壊れて読み込めなくなりました。
しかし、登録したデータ自体は登録した各人がバックアップしていたので、
それを戻したのですが、順番までは復元出来なかった。という経緯になります。

Vlookupの戻り値を&で結合とはどういったやり方になるんでしょうか？

>>600
進研模試でいうとfjがおよそ偏差値45、民放地上波は約40、
ニュース速報＋は35程度を対象にしています。

>>601
こんな感じかねぇ。シートの番号がそのまま手順
後はテキトーにかいぞーしてつかって
vlookupはなんかめん゛くさくなってきたのでやめ
>>602
マジですか！？

進研模試でいうとfjがおよそ偏差値45、民放地上波は約40、 に一致する日本語のページ 約 457 件中 1 - 10 件目 (0.75 秒)
ウィルスにでも掛かってるのか、単なる変な人がコピペしてるだけか
なんでもいっか

番違いかもしれんが・・・

エクセルで作った表をパワポにコピペしたいんだけど、
エクセルの下地の薄い青線までしたくないのにペーストされてしまう。
どうしたらいいか教えてくだされ。

>>605
おぷしよん　ういんどうおぷしよん　わくせん　のちえつくをはずす

>>605
白で塗りつぶすのも良いかもな
こっちのほうが手っ取り早いかも

できた！！！！！！
>>606>>607ありがと

判別式が効いていません
９時以降ならという意味です。
訂正をお願いします。

　if time >= timevalue("09:00:00") then

>>609
なるけど。PCの時計がずれてるんじゃないか
Sub a()
If Time >= TimeValue("09:00:00") Then
MsgBox "9じいこう"
End If
If Time >= TimeValue("18:00:00") Then
MsgBox "18じいこう"
End If
End Sub

>>594
ありが�d!!
ウォッチ式って、ググって初めて知りまいた。
でも、msgboxの方がいいかな？

ついでに・・・
FN = Dir(FLD & "\" & "*.xls")　の意味は分かったんですが、
FN = Dir()　って、どういう意味でそ？

ちなみに私は女です＞＜

>>611
dir関数でぐぐれ
あとdirの引数無いとエラー出るよ

複乳　（←なんて読むの？）

ふくにゅうだよ

>>612
次のファイル名を取り出す　って意味でいいのかな？？
また教えてくださいね♥

>>610
サンクス。確かにＰＣの時計が orz

>>複乳さん
レスどうもです。サンプルを作って頂いたんでしょうか？
ぜひ参考にしたいのでアップ先を教けますか？

あ、リンクはってなかったか
ttp://a-draw.com/uploader/src/up4584.zip.html

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　VBA　項目　一致　データ入力
〜環境〜
営業所にどれだけ電話がかかってきたかを吐き出すソフトが入っていて
エクセルデータが吐き出される。

これを全国営業所一覧のシートにまとめたい。


dataフォルダに着信回数が入ったフォーマットを入れる
集計表にて「回数」の取り込みをおこなう。

毎日取り込むわけではなく、データを取り込むはランダムです。
取り込む一覧表に日付を入力して、日付が一致
かつ一覧の営業所番号がフォーマット中の営業所番号と一致したら
該当のセルへデータ反映とする考え方だと思うのですが…
VBコードにするまでには至らず。


うまく伝わっているか微妙ですが、お力を貸してください。

ttp://nosm2o.hp.infoseek.co.jp/cgi-bin/up/src/rs0636.zip

>>619
ttp://a-draw.com/uploader/src/up4607.zip.html
使い方
ふくっシートにコピーして追加する。追加したらボタンを押す。終わり。
名簿に反映されると思う
ただ同じ日・同じ人のデータが複数あるとどちらを取るかは分からない
あと営業署名・担当番号・担当名前が全て一致していないと追加されないので、
そこは気をつけて
もし数式読めるなら担当番号だけの一致などに減らすといいかもしれない

>>620
回答いただきありがとうございます。
これは一度、元のファイルからすべてのデータを集計表の方うつさないといけないのですよね？
こちらのほうは、バラバラのファイルから取得して一覧化できるマクロを組めそうなのですが
変更日の「日付が一致したとき」の設定はどのようにしたら良いですか？

>>621
fornextで回して一致すれば縦か横に検索、でいいんじゃないのん
ループ変数iをcells(i,1)のようにして使う
後はifで分岐させる
これを使えるようになればなーんとでもなる。気がする。

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

↓のようにA列に入力した数字（8桁以内）をB〜I列に右詰めで一文字づつ表示したいんですが
この場合B〜I列にはどんな関数を入力したらいいでしょうか？数字が入らないセルは空白にしたいです。
ttp://f12.aaa.livedoor.jp/~itatisa/phpup/cgi/src/up7944.jpg
よろしくお願いします

>>623
C3=IF(LEN($A3)>=8,MID($A3,1-8+LEN($A3),1),"")
G3=IF(LEN($A3)>=3,MID($A3,6-8+LEN($A3),1),"")
I3=IF(LEN($A3)>=1,MID($A3,8-8+LEN($A3),1),"")

法則は分かるかな。こんなカンジで2箇所ずつ変えながら入力
column()知ってるならそれに置き換えればいいと思う。知らなかったら手作業でやるべし

>>624
出来ました。ありがとうございました。
cloumn研究してみます

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

リンゴ-バナナ.xls
リンゴ-なし.xls
リンゴ-いちご.xls

のように、ファイル名に「リンゴ」が入っているブックを全て開く
マクロを作成したいのですが、助けてください。

たまにはググれ。カス野郎

>>626
Dir("リンゴ*.xls")

>>628
ありがとう

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

参照をするための式（＝A2など）を入れてあるのに
急にそれが実行されなくなりました
式自体はそのまま入っているので、そこをクリックしてenterキーを押すとやっと反映されます。
いままでのように自動的にはんえいされるようにするにはどうしたらいいですか？

>>630
ツール → オプション → 計算方法 → 自動

>>631
仕事が止まっていたので助かりました!
本当にありがとうございます!

こんな事で計算方法が手動になる事があるよ
ttp://www.relief.jp/itnote/archives/001258.php

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

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2000 / 2003
【5 検索キーワード 　 　 】 EXCEL ROUND 丸め

シートの関数について質問です。宜しくお願いします。

A1：=(350000*40.95/1000)
A2：=ROUNDDOWN(350000*40.95/1000,0)
A3：A1-A2

上記のように式を入れてセルの表示形式を数値（小数点以下2桁）にしたとき
A1：14332.50
A2：14332.00
A3：0.50
と表示されます。

小数点以下15桁にすると
A1：14332.500000000000000
A2：14332.000000000000000
A3：0.500000000001819
と表示されてしまい、A3の小数第12位以降に数値が表れ
予期せぬ結果となってしまいます。

小数第2位までで判断したかったのでA1,A2にROUNDをつければ解決できるのですが
この表れた数値はどのようなものなのでしょうか？

>>635
たぶんこの中に答えがある。計算してないけど。
ttp://support.microsoft.com/kb/78113/ja

>>635
それは2進数と10進数の変換誤差
ごまかすことはできるけどなくすことはできない

単に14332.500000000001819と数値で入れてもそんな表示だよね
15桁しか表示しないから誤差が隠れちゃってるんだよね

あー、しないというか簡単にはできない

>>635
小数誤差とか言う奴です
エクセルの仕様としか言い様がない。
知ってないと防ぐことはできないと思う

>>636-640
みなさんレスありがとうございました
勉強になりました

質問です。

ＰＨＯＮＥＴＩＣ関数で参照指定したセルが、他のセルを参照したもので
あった場合に振り仮名が表示されないようですが、表示させる方法はありますか？

例

　　Ａ　　　Ｂ　　　　Ｃ
１山田　＝Ａ１　＝ＰＨＯＮＥＴＩＣ（Ｂ１）


Ｃ１が空欄になってしまう。


よろしくお願いします。

>642

そういうものです。
ふりがな行を用意して「山田」と同じように参照するべし。

そ、そういうものですか・・・orz

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002（OfficeXP）

数式にエラーメッセージが出てしまいます。
自分では間違ってないと思うんですけど、どこか誤りがあればご指摘ください。
文章だけでは説明しにくいので、画像ファイルを用意しました。
http://uproda.2ch-library.com/194242fyj/lib194242.jpg

B2〜M2が日付（m"月"）、N2が日付（'yy"年"m"月"）、B3〜M4が数値になっています。
H6には　=IF($N$2<H2,H4,IF($N$2=H2,SUM($B$4:H4),0))　を入れ、エラー警告が出ています。

数式の意味は、もしN2がH2と比べて過去のときはH4の値、同じ月ならB4からH4までの合計、違うときは0です。
よろしくお願いします。

>>645
ヤマカンで答えてみる。
隣のセルと数式が違うってだけの無視していいエラーではないかと思う

>>645
手っ取り早く自分で調べる方法。

画像ファイルを参考に言うと、Ｃ列上に"fx"ってあるでしょ。それを使って
自分でどこがおかしいのかが調べられます。
まずＨ６を選択するとそのfxの隣に関数式が現れますがその関数式のIFと（
の間にカーソルを合わせてワンクリックしてください。そのあと"fx"をクリック
するとその関数式のどの位置が問題点かがわかります。
やってみてください。

>>645
数式の合計範囲（H6でいう”$B$4:H4")が、隣り合う数式とは違うためC6:M6
の各セルにエラー警告の緑タブが付いているだけで問題は無いでしょう。
気になるなら注意マークをクリックして”エラーを無視する”でかまわない
でしょう。

>>645
取りあえずエラー警告のマークにマウスを合わせてみて
なんて表示されてるかぐらいは確認しろよ

Excelグラフの作り方を学びたい。どの本が一番参考になりましたか？
中級以上のもので研究報告の際、見栄えのいいものを作りたい。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
円グラフを作っています。
表で小数点の％を入れるけど、グラフにしたら整数でしかでてきません。
どうすれば小数点以下の数字も出せますか？
（表では16.8％と記入→グラフ17％となるのをグラフでも16.8％と出したい）
いろいろググってみたけど、よくわかりませんでした。

>>651
17％の表示形式を変更すればよい。表示形式まで辿り着いてみましょう。

【1 OSの種類】 Windows xp SP3
【2 Excelのバージョン】 Excel2003
【3 VBAが使えるか　】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】抜け、チェック、=IF、ttp://okwave.jp/qa3116582.html

Aというシートには連番が振られたデータが1000個あるハズが、途中、いくつも抜けがあります。
BというシートにはAでは抜けてしまっているデータも含めきちんと1000個あります。
Aの抜けていないデータにはBから更新されたデータがいくつか入っており、
それが複数あり、かつ、目印になるものがない為、AからBに更新分を入れ替える方法は難しい為、
BからAへ抜けたデータを補完していこうと思っています。
どうすれば効率良く補完出来るでしょうか？
よろしくお願いします。

>>646-648
645です。
ありがとうございました。

シートまるごとコピーしちゃだめなのか

>>653
シートAに1〜1000までちゃんと行があり
データが抜けてる箇所が単純に空欄になってるなら
シートAを丸ごとコピーして、
Bシートに形式選択貼り付け→空欄を無視

>>652
651です。おかげさまでできました。
ありがとうございました。

>>656氏
残念ながら、リスト抜け部分は1、2、３、7、19の様に、空欄セルは無く、
詰められてしまっている状態なんです・・・。

>>653
１．Aというシートには連番が振られているということはこの連番でデータを一意に把握できるということかな？
そうだとすれば作業用のシートにAの連番をコピーしてその下にBの連番をコピーしてピボット集計を
使って連番のカウントを取れば抜けてる連番が把握できる。
(2個あるはずのところが１個しかないのが抜けてるデータ)

２．シートBから抜けてる連番の表をVLOOKUPなどで参照して目印をつけてフィルタをかければ
抜けてるデータだけを抽出できる。

３．そのデータをシートAの下にコピーしてソートをかければいいんじゃないかな

>>653
1：1〜1000までの連番？の列を作る
2：vlookupでAシートの内容、Bシートの内容を引っ張ってくる。
3：別の列で、もしAがN/Aになっていれば、Bシートの内容にする・・・というIFでAにないものはBにないものを持ってくる。

以上

訂正
3：別の列で、もしAがN/Aになっていれば、Bシートの内容にする・・・というIFでAにないものはBの内容を持ってくる。

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel2003 & Access2003
【3 VBAが使えるか　 　 .】 はい（Accessは使いますがExcelは余り分かっていません）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel VBA 表示 ズーム

AccessからTransferSpreadsheetでExcelを吐いています。
但しただ吐き出したものではなくいくつか体裁を整えた状態にしたいのですがその1つである表示ズーム率の変更（30%指定）ができません。
あくまでAccess上のコードなので、もしAccessスレで聞くべきものでしたら済みません。Excel操作のVBAなのでこちらでまず質問させて頂きます。

長すぎると怒られたので分割します。
'========================================================================
Dim StrXLfile As String
StrXLfile = "C:\Documents and Settings\ユーザ名\デスクトップ\今日の一覧" & Format(Date, "yyyymmdd") & ".xls"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Q_今日の一覧", StrXLfile

Dim objEXCEL As Object
Dim wb As Excel.Workbook
Set objEXCEL = CreateObject("Excel.Application")
objEXCEL.Visible = False
objEXCEL.UserControl = True
objEXCEL.Workbooks.Open Filename:=StrXLfile

Set wb = objEXCEL.Workbooks.Open(StrXLfile)
With wb.Worksheets("Q_今日の一覧")

With ActiveSheet
.Zoom = 30
End With
wb.Save
wb.Close
Set wb = Nothing
objEXCEL.Quit
Set objEXCEL = Nothing
'========================================================================
前提としてもちろんAccessの参照設定でMicrosoft Excel 11.0 Object Libraryはチェック入れてあります。他にも
wb.Worksheets("Q_今日の一覧").Activate
ActiveWindow.Zoom = 30
というやり方もしてみました。
いずれにしても.Zoomのところで「メソッドまたはデータ メンバが見つかりません。」とコンパイルエラーが出てしまいます。
正直ExcelVBAはよく分からないままコピペで作ったコードなのは自覚しております。不適切な部分を教えて頂ければ幸いです。

>>663
ちょっとしか見ていないが「End With」が足りなくないか？

>With wb.Worksheets("Q_今日の一覧")
>
>With ActiveSheet
>　　.Zoom = 30
>End With

↓「ActiveSheet」じゃなくて「ActiveWindow」じゃないかな？
ActiveWindow.Zoom

>「メソッドまたはデータ メンバが見つかりません。」
エラーメッセージをよく読んで考えてみるとエラーメッセージの通りだったというのはよくある話

ActiveWindowも試したんだっけ？
ActiveWindowがアプリに所属するオブジェクトなのかブックなのかシートなのか
というオブジェクト階層の話かもしれない↓

objEXCEL.ActiveWindow
wb.ActiveWindow

>>664
済みません確かに最後にもう1つEnd Withが必要ですね。関係の無い部分を除いてコピペする際に貼り付け忘れました。
End With
End With
wb.Save
に読み替えてください。

.Zoomのところでコンパイルエラーが出るので.ZoomでF1押すとWordとMS Formsの.Zoomも候補に出るので
どの.Zoomか明示できていないのかな？という気もするのですが…
ただ明らかにExcelオブジェクトの中で書いてるつもりですので違うのでしょうか。

あとはActiveWindowというのは>>665でもおっしゃっているようにどのレベルでActiveでなければならないのかという
問題な気もします。あくまでExcelの中であればシート1つのブックなのでActiveになり得るシートは他に無いと思うのですが。
もしWindows全体の中でActiveで無ければならないとしたら、そもそも
objEXCEL.Visible = False にしている時点で無理なのでしょうか…？

wb.Application.ActiveWindow.Zoom = 30
かな？

>>667
ありがとうございます。できました<(_ _)>
やはりオブジェクトの階層を明示してやる必要があったということでしょうか？
あまりよく分かっていませんがｗ求めることは果たせました。
ありがとうございました。

【1 OSの種類 　 　 　 　 .】 WindowsXp
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 否
Excelの関数で質問です。よろしくお願いします。

x　1　　 2　　3
■■■■■■■■■
■１■■２■■３■　1
■■■■■■■■■
■４■■５■■６■　2
■■■■■■■■■
■７■■８■■９■　3
■■■■■■■■■
　　　　　　　　　　y
xの最大数=3、yの最大数=3

上記の様な番号があった場合にAのセルに以下の番号を設定するとXとyのセルに以下の値を返す。
1、4、7の場合にXのセルに1を
2、5、8の場合にXのセルに2を
7、8、9の場合にXのセルに3を

1〜3の場合はyのセルに1を
4〜6の場合はyのセルに2を
7〜9の場合はyのセルに3を

設定するような関数を教えてください。
縦や横が伸びた場合(x=4, y=8)とかにも対応出来る様にしたくて、
IF文とROUNDDOWN、MOD関数の複合でやったのですが
思うように行きません。

どうぞご教授をお願いします。

>>669
説明がさっぱりわからん
Aのセルとは？
またその図も崩れてるのか何なのかまるでわからない
ファイルのアップロードを希望

>>670
http://uproda11.2ch-library.com/11213888.zip.shtml


手元にファイルが無かったので即興で作りましたが、
こんな感じでまとめたいのですが、手打ちじゃ辛いので関数での
どう言う風にすれば良いか教えてください。

>>671
７の場合はXのセルは１なの？３なの？
何をしたいのかまったくわからん。

>>661
0-1整数計画問題として考えるとよい。
0または1の値しかとらない変数をX, Y, 数値 の組み合わせ分用意して、それらの関係を一次式で表現するんだ。

>>672

お前の頭が悪いのさ。

アンカーミス。
>>673は>>669への回答。

>>669
http://uproda11.2ch-library.com/11213893.xls.shtml

>>673
>>676
すみません回答ありがとうございました。
今確認しながら自分のやってたパターンと何が違って居たのか見ています。

本当にありがとうございました。

>>676
なんだそりゃ？
それのどこが回答なんだ？

「説明わかりにくいんじゃ！」などと悪態つくのは説明がわかってからにしろ。

自分はロム専だが、このまま質問者が回答者に対し悪態をつくようでは、
回答してくれる方がいなくなりそうで怖い。
折角技術を提供して貰っているのに・・・それも無償で。
この前の質問者も、おかしな人だったな。
よく分からないような質問の仕方をして「恐らくこういうことだろう」という内容で
マクロを貰っておきながら、お礼の言葉どころか、「私の言ってることの意味、分かってます？」
などという・・・。

ロム専ならROMってろよ
回答することに生きがいを感じてるのもいるんだよｗ

>>679
>>678は質問者じゃないぞ。
いいかげんな回答者は不要。
厨房は回答するな。

>>681
「>>678は質問者じゃないぞ」って言い切れるのは、お前のカキコだからか？

>>682
そうだ。

>>679
質問もろくに読まず、勝手に解釈して回答するのもいるからな。
過去ログをざっと読み返してみたけど、「私の言ってることの意味、分かってます？」なんて書いて
お礼を書かなかったやつが探せなかったんだが、どれ？

>>683
疑って悪かったｗ

>>684
俺も脳裏に残ってたのを探して>>437を見つけたが、
マクロをもらったのが>>439で、>>462でお礼をしてた。
679氏は、どれを指してるんだろうね？

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

A列にユニークなＩＤ番号、B列に担当係名のような表があるとします

Ａ　　　　B
001 図書係
001 掃除係
002 給食係
003 植物係
003　　 動物係
003　　 保健係
004　　 体育係

このときB列の値を、A列の値の単位で集計（結合？）してC列に表示するにはどうしたら良いでしょうか？
具体的には

Ａ　　　　B C
001 図書係 図書係兼掃除係
002 給食係　　 給食係
003 植物係　　 植物係兼動物係兼保健係
004　　 体育係　　 体育係

のように"兼"という文字でつなげて表示したいです。行は400行近くあり、B列は文字列です。

ご教示のほど、どうぞよろしくお願いいたします。

・・・すみません。列ズレが酷かったので再投稿します。

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

A列にユニークなＩＤ番号、B列に担当係名のような表があるとします

Ａ　　　　　　B
001　　　　　図書係
001　　　　　掃除係
002　　　　　給食係
003　　　　　植物係
003　　　　　動物係
003　　　　　保健係
004　　　　　体育係

このときB列の値を、A列の値の単位で集計（結合？）してC列に表示するにはどうしたら良いでしょうか？
具体的には

Ａ　　　　　　 B　　　　　　　　 C
001　　　　　図書係　　　　　図書係兼掃除係
002　　　　　給食係　　　　　給食係
003　　　　　植物係　　　　　植物係兼動物係兼保健係
004　　　　　体育係　　　　　体育係

のように"兼"という文字でつなげて表示したいです。行は400行近くあり、B列は文字列です。

ご教示のほど、どうぞよろしくお願いいたします。

お二方、書き込みありがとうございます。
659氏のピポット集計というのが分からない為、
わかりそうな660氏のN/Aになった場合〜というのをやりたいのですが、
どの様な式になりますか？
=Vlookup(A1,参照１!A2:Z30,1,FALSE)と
=Vlookup(A1,参照２!A2:Z30,1,FALSE)を
IFで条件によって切り替えるのかと思うんですが、
#N/Aとなった場合に参照２側を探すというのが…。
ご教示よろしくお願いいたします。

>>688
Sub aaa()
　　r1 = 1
　　Do
　　　　If Cells(r1, 3) = "" Then Cells(r1, 3) = Cells(r1, 2)
　　　　r2 = r1 + 1
　　　　If Cells(r1, 1) = Cells(r2, 1) Then
　　　　　　Cells(r1, 3) = Cells(r1, 3) + "兼" + Cells(r2, 2)
　　　　　　Rows(r2).Delete
　　　　Else
　　　　　　r1 = r1 + 1
　　　　End If
　　Loop Until Cells(r1, 1) = ""
End Sub

>>689
ISNA関数

>>689
=IF(ISNA(A1),B1,A1)
とかそんな感じ。
iserrorでも。

>>690
無事できました！！ありがとうございます！

EXCEL2002で積み上げ棒グラフを作り
データラベルの系列名表示を施したのですが
ちょっと困ったことになりました

データの都合で0値の項目がいくつかあるのですが
その部分のグラフの系列名が重なって表示されて見づらくなってしまってます
その項目を非表示にすることなく、項目名も消すことなく
その部分の系列名だけを表示させなくすることはできますか？

StarSuiteとオープンオフィス、どちらにしようか迷っているのですが
双方の弱点とかありますか?

共通してマイナー

そうですね、ありがとうございました

Excel2007→Excel2005以下のﾊﾞｰｼﾞｮﾝで一部互換性がないと風の噂というか２ｃｈで
チラミしたんですが、2007で作成されたものを2005で開いても、特にﾊﾞｸﾞもｴﾗｰも見当たりません。

どういった時（何をしたとき？）に、互換性がないのでしょうか？

また2007作成のﾌｧｲﾙを「名前を付けて保存」してﾊﾞｰｼﾞｮﾝを2005に落とせば大丈夫でしょうか？

>>698
ぐぐてみるとこういうのがありました。
http://www.asahi-net.or.jp/~ef2o-inue/kankyo/sub02_04.html

>>699
とても参考になりました。ありがとうございました。




2010で更なる変貌を遂げ、（２ｃｈ情報では列はXXXXまであり、行は億までなんだそうで）
Excel崩壊か・・・・これﾋｯﾄﾞｲﾜｧ(´・ω・)

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

Book1に下記のようなデータがあります。
Book2のD列へ、Book1のF列、G列を参照しながら、合致するE列のデータを
入れたいんですが、同じ番号が複数あるので、VLOOKUPでは別のデータを
取り込んでしまいます。どのような方法でやればいいでしょうか？

Book1.xls
　A　　　 E 　　　F　　　G
A01　　1000　　K1
A01　　2000　　K2　　P012
C01　　1500　　K2　　P013
B01　　3000　　K1
A01　　1200　　K2　　P014

Book2.xls
　A　　 B　　　 C　　　　 D
A01　　K2　　P014
B01　　K1　　　　　
A01　　K2　　P012

　　　　　↓

Book2.xls
　A　　 B　　　 C　　　　 D
A01　　K2　　P014　　1200
B01　　K1　　　　　　　3000
A01　　K2　　P012　　2000

>>701
H列辺りに=a1&f1&G1
のようにしてそれをキーにしてmatch、vlookupなど

>>702
ありが�d！できました。
=CONCATENATE(A1,F1,G1)と書かなくてもいいのねん。ちょっとﾋﾞｸｰﾘｗ

Sub あああ()
Dim a, b, c, d
Set a = Workbooks("book2").Worksheets("sheet1")
Set b = Workbooks("book1").Worksheets("sheet1")
Application.ScreenUpdating = False
a.Activate
For c = 1 To 100
For d = 1 To 100
If b.Cells(d, 1) = a.Cells(c, 1) And b.Cells(d, 6) = a.Cells(c, 2) _
And b.Cells(d, 7) = a.Cells(c, 3) Then
a.Cells(d, 4) = b.Cells(c, 2)
Exit For
End If
Next
Next
Application.ScreenUpdating = True
End Sub

>>704
ありが�d！
でも、実行時エラー9　インデックスが有効範囲にありません　と出て、
Set a = Workbooks("book2").Worksheets("sheet1")で止まってしまいます。

あーすまんsheet1のとこにそれぞれのシート名を入れてくれ
でもマクロ無しでいけるならそっちのほうがいーぜ

>>706
マクロどおりにファイル名とシート名を変えてみました。
Set a = Workbooks("Book2.xls").Worksheets("Sheet1")
Set b = Workbooks("Book1.xls").Worksheets("Sheet1")

エラーは出なくなったものの、何も書かれません＞＜

よし　じゃーなかったことで

そこで、複乳さんの登場ですよ

これでおｋ？
Sub あああ()
Dim a, b, c, d
Set a = Workbooks("Book2.xls").Worksheets("Sheet1")
Set b = Workbooks("Book1.xls").Worksheets("Sheet1")
Application.ScreenUpdating = False
a.Activate
For c = 1 To 100
For d = 1 To 100
If b.Cells(c, 1) = a.Cells(d, 1) Then
If b.Cells(c, 6) = a.Cells(d, 2) Then
If b.Cells(c, 7) = a.Cells(d, 3) Then
a.Cells(d, 4) = b.Cells(c, 5)
Exit For
End If
End If
End If
Next
Next
Application.ScreenUpdating = True
End Sub

参照するのは２箇所っていってるぞ

WindowsXPSP2でExcel2007を使用。
［名前を付けて保存］から［エクセルマクロ有効ブック］の形式で［tool］で［全般オプション］でパスを設定し、
パス付き、マクロ有りの.xlsmを作成しました。

ファイルを開いてマクロを実行しようとしたら［セキュリティの設定により、マクロが無効化されました］と表示され実行できません。
［セキュリティセンター］の設定で［全てのマクロを有効にする］にチェックを入れているのですが、実行できない原因がわかりません
パスを解除するとマクロが実行可能になるのですが…

パス付きでマクロ実行可能なセキュリティ設定の仕方をどのように設定したらいいのかわからないので教えてください

2007はそのあたりなんか違うよな

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

予算管理のため、毎月の支出予想・実績をEXCELで表にしたいと思っています。

セルB1〜M1には"4月"から"3月"までが記入されていて、その下の列は
2行が毎月の支出予想値、3行は支出実績値です。
2行は支出予想値なのであらかじめ値が入っていて
3行は支出実績値なので最初は空欄、その月の決算が終わったら値を入力する
という使い方をします。

セルN2に年間支出予想値を表示させたいのですが、
"その月までの実績値"＋"翌月以降の予想値"を出したいと思ってます。具体的には、

年度当初：N2=B2〜M2の合計
７月時点：B3-D3まで値が入力されている→N2=B3〜D3の合計+E2〜M2の合計
1月時点：B3-J3まで値が入力されている→N2=B3〜J3の合計+K2〜M2の合計

といった感じです。

説明がうまくいったか不安ですが、うまいやり方があればお願いします。

>>714
どっかに一行作業用の行（今気付いたけど「作業列」とはいうけど「作業行」と言わないのはなんでｗ）を作って、
そこに実績が入力されてれば実績、なければ予定という数式を入れる
→そいつらを合計して完成

というやり方が一般的かな。

>>715
作業行って言えばええやん。
言わないのはなんで？

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

セルの左上にある緑の三角形はなんですか？
消すことはできますか？

画像を付けます↓

Down Key　→　aaa
（アップローダの仕様でkey必須だったので設定しました。）
http://onishibata.ddo.jp/2/download.php?id=00620

画像のURLが違ってましたorz

http://onishibata.ddo.jp/2/download.php?id=00621
Down Key　→　aaa

>>718
ttp://syosinsyaexcel.seesaa.net/article/58293438.html

>>719
できました！
素早いご回答ありがとうございました！

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

経緯を少し書かせてもらいます。
会社でパソコンが壊れたため、windows7のパソコンを購入しました。他にXPのパソコンがあります。
会社に置いてあった2003があったので、インストし、XPに入ってるエクセルデータなどもwin7のパソコンに入れました。
ダブルクリックでエクセルの見積書などを開こうとすると、「プログラムにコマンドを送信しているときにエラーが発生しました」という表示が出ます。

検索したらとても似た症状の方がいました
http://windowsxp_nec.pasokoma.jp/6_125671.html
↑の方は
＞「アクション」の「OPEN」の「編集」の中の「アクションを実行するアプリケーション」
＞をエクセルファイルを選び、その最後に、スーペースをいれその後に　"%1"　を書き足しました。
＞それから、「DDEメッセジー」をすべて消しました。そうしたら正常に開くようになりました。
＞ワードも同じ対策で直りました。
で直ったそうなんですが、win7の操作になれていなくて、自分はフォルダオプションは開けたんですが、
＞「アクション」の「OPEN」の「編集」の中の「アクションを実行するアプリケーション」がどこにあるのか分かりませんでした。

ようはダブルクリックして開こうとするとエラーが出るということなんです。分かりにくい説明すいませんでした。

>>709
ほとんど同じだけど
Sub fuku()
gyo1 = Workbooks("Book2.xls").Worksheets("Sheet1").Range("A60000").End(xlUp).Row
gyo2 = Workbooks("Book1.xls").Worksheets("Sheet1").Range("A60000").End(xlUp).Row
For i = 1 To gyo1
For k = 1 To gyo2
If Workbooks("Book2.xls").Worksheets("Sheet1").Cells(i, 1) = Workbooks("Book1.xls").Worksheets("Sheet1").Cells(k, 1) _
And Workbooks("Book2.xls").Worksheets("Sheet1").Cells(i, 2) = Workbooks("Book1.xls").Worksheets("Sheet1").Cells(k, 6) _
And Workbooks("Book2.xls").Worksheets("Sheet1").Cells(i, 3) = Workbooks("Book1.xls").Worksheets("Sheet1").Cells(k, 7) _
Then
Workbooks("Book2.xls").Worksheets("Sheet1").Cells(i, 4) = Workbooks("Book1.xls").Worksheets("Sheet1").Cells(k, 5)
End If
Next
Next
End Sub
>>716
単純におなじ読みの言葉が繰り返されるのが気持ち悪いからではないでしょうか

2007で作成したファイルを97-2003形式で保存し、2002で開くと
シートは表示しますが、ピボットテーブルが操作できません。
そんなもんなんですか。

>>723
これか?
ttp://office.microsoft.com/ja-jp/excel/HA101672981041.aspx

Excel2007です
フォームのActiveXコントロールを使用した場合
ラジオボタンやラベルの文字が汚くなる（太字になっている？）
のはなぜなんでしょうか・・・
またそれを戻す手段というのはありますか？

【1 OSの種類 　 　 　 　 .】 Windows XP/2k3/Vista/7Client (複数人で使うことが考えられるため)
【2 Excelのバージョン 　 】 Excel2007 (今後、2010も使われると思います。断然2010の方が便利ですし)
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 +VBA コーディングルール　、+VBA 命名規則 、+VBA variable naming、column

Excel VBAにて、命名規則、コーディングルールで迷っています。
特に Const HogehogeCol as ingeger = 1　というように
カラムの名前にあわせた定数を定義しているのですが、この定数名で悩んでいます

候補に挙がっているのはこれだけです(=思いつくのはこれだけ)
{1] IdCol [2] ColId [3] Col_Id [4] COL_ID

意味的に{1]が一番わかりやすく、はじめはこれを使っていたのですが
コーディングする際、Colを頭につけた方が補完が効き有利になると思い
[2]以降に変更した方がいいと考えました。

特にIdの例でわかりやすいのですが、[2]は読みづらいと思います。
ということで、[3]を考えてみましたが、中途半端な印象があり、これもどうかなと思います。
伝統的には[3]を定数名として使われていましたが、
最近このような表記を避けている傾向があるように重い、避けるべきかと悩んでいます。

ネット上でVBAのサンプルなどに目を通しましたが、
そもそも、定数を使わず直接生の値(リテラル値)を使ってる例ばかりでした。
また、命名規則も、あまり統一されている様子はありませんでした。
そのため、個人で命名規則・慣習を調べるには限界を感じ、ここで質問するに至りました。

皆さんは、カラムに対応する定数を定義する場合、どのような名前でやっているのでしょうか？
何かテクニックがあれば伺いたいです。

>>726
長ければ分かりやすい分、タイプの時間をとられる。これはトレードオフ
意味も無く長いのは問題外な
↓こういうスレもある
ttp://pc12.2ch.net/test/read.cgi/tech/1258777686/
ハンガリアン記法なんてのもある
俺は"a"や"m"が多い。一文字で目立つからね。
なんでもいいよ、本当に

>>726
定数の値が整数型だけなら
列挙型(Enum)を使えばある程度すっきりかける

候補の中で自分がよく使うのは[2]かな

定数や変数はある程度長くても2〜3文字打てば
Ctrl+スペースで変換候補が出るからこまらんな

それより後で見た時にパッと見わからん方が困る

>>728
なるほど、Enum型をそんなことに応用するんですか。
型の扱いが曖昧なVBAならではの手法ですね。

たとえば、CountColと一緒にCountという変数が宣言されている場合が多く
こういう場合には、あまりIDEの補完の恩恵を受けられなくなるんです。
そのため、[2]を採用したいが、これは見た目が悪かったので躊躇していました。

Enumなら間にコロンを挟むので多少見やすくなりますし、後続の単語の頭文字も小文字にできますしいいですね。

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

紙の数十枚のデータをエクセルに取り込みたいのです。
フリーのOCRソフトでエクセルに取りこむことはできたのですが
縦や横の複数のセルががっちり結合して一つの文字列になっています。
これらを分解し　数値　ごとに1個のセルを割り当てたいのですが
手作業でやるしかないのでしょうか

参照でググって何が出ると思ったのかわかりませんが
今度は文字列　関数でググってみたらどうだろう？

文字列から抽出するいろんなパターンが載ってるので
まずはそれを見て、それでも駄目ならもっと具体的な情報をもってここで聞くといいと思う。
元のセルにどんなデータがどういった規則で入ってたかがわからないと何とも言えないし。

>>730
スキャン→読み取り　なんて業務用ですらエラーが出るんだから、
そこら辺のデータを読み取るのは無理だよ。
直していくより、地道に打ち込んだ方が早いね。

>>730
文字と文字の間にスペースとか特定の記号とかあればデータ(D)→区切り位置
というのを使えば文字をセルごとに分けられる機能があるんですが。

>>722
701です。定期的にやるハメになりそうなので、マクロでやります。
ありが�dございますた。

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

マクロでVlookupなどから条件抽出した文字データを別のシートに貼り付けます。
その際、記載しているフリガナも一緒に貼り付けたいのですが上手くいきません。
具体的には名前とか住所のフリガナです。よろしくお願いします。

>>735
せめてどんな感じにデータが並んでて
どういうことをしたらうまくいかなかったのかぐらい書こうね

人に聞くときには、答える人の立場になって考えるといいよ。
そうすると答えをもらうために必要なものが見えてくる。そうなると相手に答えてもらえやすい

エクセルが使える携帯の購入を検討中です。
用途は基本的に四則計算程度で入力は数字がほとんどになってくると思います。
タッチパネルとテンキーのメリット・デメリット、それぞれの機種の使いやすさなど、
携帯でエクセルを利用してる方がいらっしゃったら教えていただけませんでしょうか？
それか、そういったものを比較・検証しているサイト、レビューサイトをご存じの方がいらっしゃいましたら教えていただけるとありがたいです。

ちなみに、携帯の形をしているものでないといけないので関数電卓やミニノートPCなどは使うつもりはありません。

>>735
フリガナはねーセルのプロパテイなんだー
Cells(1, 1).Characters(1, 2).PhoneticCharacters = "フクニュー"
ってやるとセルkフリガナt@フクニューになっちゃうんだよね
つまり
cells(1,1).VALUE=cells(1,2).VALUE
みたいにしてもvalueが上書きされるだけでフリガナは移動されない
Cells(1, 2).Characters(1, 2).PhoneticCharacters = Cells(1, 1).Characters(1, 2).PhoneticCharacters
みたいにすればうまくいく
やってないけどsetを使ってobjectごとコピーする要領でやればきっと上手くいくはず゛た
copyメソッド使うのもいいかもしれない
関数じゃ多分無理だからvlookupの代わりに他の方法を使うべきだと思う
>>737
携帯機種板の方がいいと思います
せめてキャリアぐらい書こう

ちなみにタツチパネルで文字入力は最悪なので絶対にやめたほうがいい、というぐらいしか知らない

>>738
> 携帯機種板の方がいいと思います
レス有り難うございます。
それっぽいスレが見つからなかったもので

> せめてキャリアぐらい書こう
ウインドウズモバイル搭載してればエクセルは使えるようなので、特にキャリアにこだわりません。

> ちなみにタツチパネルで文字入力は最悪なので絶対にやめたほうがいい、というぐらいしか知らない
ありがとうございます。
キーの配列をカスタマイズできるのが魅力的なんですけど片手の指だけでの操作には限界があるかもしれませんね。

722のマクロを書いた複乳さんは素晴らしいｗ
俺が超初心者だった頃、Set やら With を多用されてチンプンカンプンだったので
「略さないで書いてほしい」ってやりとりしたのをふと思い出した。

ＬＯＴ　　　　　Ａ箇所　　　　　Ｂ箇所
　Ａ　　　　　　　10　　　　　　　150　
　Ｂ　　　　　　　20　　　　　　　200

縦軸をＡ箇所　横軸をＢ箇所としたとき縦10と横150　20と200の
交差するところにプロットされる様グラフを作りたいのですがうまくいきません。
ご教授願えないでしょうか

　　
20|　　　　　　　　　　　　　　　　　・ 　　　　　　　　　　　　
|
|
10| ・ 　　　　　　
|
-----------------------150----------200-----