Excel総合相談所 62

Excelに関する質問は、ここで！

▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★2 要望は具体例や図を使って明確かつ具体的に。
★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
★4 質問テンプレ(雛形)は必須じゃないけど、
　　　OSやExcelのバージョン､VBAの可否など(下記テンプレ1〜4の情報)は必須情報。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード

※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣
　 VBAを使うのは避けたいって場合は｢否｣にしましょう。丸投げする場合は､必要に応じてブックをアップすること。

※【5】は、あなたがGoogleやヘルプで検索した際に使ったキーワードを書いてください。
　 まだ検索してないなら、質問の前にGoogleやヘルプで検索してみてください。
　 ttp://www.google.co.jp/

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

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

＊推奨NGネーム＊
せんせー ◆adhRKFl5jU

>>7
乙

>>1-7乙

　　　＊推奨NGトリップ＊
　　　　◆adhRKFl5jU

せんせーの人気に嫉妬

初歩的な質問なんですが・・・

セルに　１　を入力してユーザー定義で　1.00本　と表記されるように設定しました。

小数点第２位まで見えるように設定したのですが、1.00本の場合や　1.20本の場合　0　を省く事はできるでしょうか？

例えば
１本
２本
２.１２本

てな感じです。

小数点以下の　０　を見えなくする方法おしえてください。

初歩的な質問じゃないと思うな。

俺なら安易にVBAに頼ってしまうけどな。

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

Excel2007で、小さいテキストボックスに長い文字列を書くと
テキストボックスの外側まで文字が表示されてしまいます。

Officeのサポート技術情報によると
「Excel 2007 のテキスト ボックスに文字列を入力すると
文字列がテキストボックスの外側にも表示される」のは仕様
らしいのですが、これをExcel2003以前のように、外側には
表示されないようにする方法はありますか？

小さいテキストボックスに長い文字列を書いてExcel2003で
保存し、そのファイルをExcel2007で開くと、従来通りの表示
（テキストボックスの外側には表示されない）になるので、
なにかしら設定があるのではないかと思うのですが。

>>12
書式設定だけで末尾のゼロを消すのは無理だと思う。

=SUBSTITUTE(TEXT(A1, "#.##本"), ".本", "本")

これで表示は希望通りになるけど、文字列に変換されちゃうから計算はできなくなる。

書式を

G/標準"本"

として、セルには少数以下2桁までしか入力しない、ってのはどう？

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

名前をつけて保存時に、ファイル名のあとに日付を強制付加して保存させたいのですが、
そのやり方を教えてください。

GetSaveAsFilenameにてあらかじめ日付を表示させたダイアログを開くことは
できましたが、入力時に消してしまったり、日付がファイル名の前に来て保存したりするケースが
あります（私以外の人間も使うエクセルシートのため・・）

そこでファイル名が何であれ、○○○ 20071117.xls　（○○○が任意のファイル名）の形で
強制的に保存させる方法があればお教えください。

すみません。できそうです。
保存ダイアログの前に、フォームを表示させて、そこにファイル名を入力したら
ファイル名+日付をダイアログの入力欄に表示って感じで。
ありがとうございました。

>>16,17さん

ありがとうございます。

１７さんので解決しました

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

ふつー >12 の回答としては
書式設定　0.??"本"
だと思うんだけどな。
整数のときも小数点が消えないけど。

ＸＰ　２００３　
ｊマクロを含んで、１．３Mのブック（データシート、出力シート（ｉｎｄｅｘｍａｔｃｈ等の関数あり））の、データシート（入力規則あり）のセルの横移動において、非常に重くなったが、軽くする方法はありませんか？

WindowsXP Pro, Excel2000を使っています。
address(x1,x2)を使って、
他のワークシートのセルを参照するのはどうすればいいんでしょうか。

1) sheet1!A1
2) sheet1!address(1,1)
3) sheet1!indirect(address(1,1))

1)は通ります。2)と3)が通らなくて困っています。

>>21
そんなのわかった上でできるだけ要望通りにしようとしてるだけだろ

>>24
VBAでSheetCalculateイベントなどを拾って表示形式を自動的に変更する

>>18
ThisWorkbook.SaveAs Filename:=

日付や固定の部分はセルにでも書いておけば？

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

キーボードの上下左右のキーでセルを編集するときの黒い枠を動かすことができなくなり，
勝手にスクロールしてしまう状況に陥りました．
元に戻すにはどうすればいいのでしょうか？

>>27
Scroll Lockのボタン

>>28
解決しました．ありがとうございました．

時刻の列を作り入力、書式はhh:mm、降順で並べ替えしたらhhが一桁の行が上に来てしまうのを何とかしたい。

[セル内]　　[数式バー内]
　07:00　→　7:00:00
　06:00　→　6:00:00
　05:00　→　5:00:00
　19:00　→　19:00:00
　18:00　→　18:00:00
　17:00　→　17:00:00

>>30
=TEXT(A2*24,0)みたいな作業列を作って並び替えでは？

>>30
hh:mmで同じデータ入れてみたらちゃんと並ぶんだんだが。
Officeのバージョンは？

>>23
> 2)と3)が通らなくて困っています。
当たり前だろ

=INDIRECT(ADDRESS(1,1,,,"sheet1"))
=INDIRECT("sheet1!"&ADDRESS(1,1))

>>21
小数点が残るのは具合悪いんじゃない？見た目もカッコ悪いし、
元の質問の例でも小数点は書いてないし。
それを消すのが意外に面倒だから、回答者も色々と考えてるんでしょ。

>>31,32

Office2003Pro

日付　　　　曜　時刻
07/11/16 金　07:25
07/11/16 金　06:00
07/11/15 木　07:00
07/11/15 木　21:29
07/11/15 木　21:29
07/11/15 木　21:29
07/11/15 木　21:12
07/11/14 水　07:30
07/11/14 水　21:26
07/11/14 水　21:26
07/11/14 水　21:14
07/11/14 水　21:11
07/11/14 水　21:11
07/11/13 火　06:30
07/11/13 火　21:35
07/11/13 火　21:35
07/11/12 月　06:00
07/11/12 火　20:54
07/11/12 火　20:54

データはアクセスからエクセルにエクスポートしたもので、レコードは600くらい。
最優先を日付、2番目を時刻にしたらこうなった。一部分を抜き出して新しいシートにコピペしたら出来た。
元のシートに戻り、今度はそれぞれ単発で時刻→日付の順で2回並べ替えをしたらちゃんと並んだ。
こういうものなの？

時刻が日付も隠し持ってるとか

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

ホームページで住所などが一覧で表示されているものをコピーしてエクセルに張り付けると
名前
住所
電話 （複数のデータなのでこれの繰り返し）
と縦(列)にて表示されます。これをＡ列：名前、Ｂ列：住所、Ｃ列：電話
と横並びにしたい場合どのような方法があるか教えてください。
件数が1000件近くあって、コピーして形式の選択をして貼り付けで行列入替えの方法は取れません。

>>37
きっちり3列間隔に並んでいるか、あるいは「住所」などのキーワードが必ず含まれているなら、
フィルターを使って選択、別シートに貼り付けという作業を名前、住所、電話の3回やればいい。

ホームページに置いてあってデータがテーブルタグで囲まれているなら、エクスポートした方が
作業しやすいかもしれない。

いずれにしろ元データの状態によっても方法は色々と変わってくるので、具体的なデータがないと
具体的なアドバイスも無理。

たとえば
http://www.toben.or.jp/attorney/webapp/attorney/search_result/
こんなページです。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ダイアログ　条件分岐　VBA

ボタンをクリックすると印刷されてブックをフォルダに保存するマクロを作ったのですが
内容に間違い（主に日付）があってもそのまま印刷されてしまうので
間違いがあった場合に「日付が違うけどいいですか？」「はい」「いいえ」
といった感じのダイアログをだして「はい」の時は印刷＆保存
「いいえ」の時はなにもしない
というマクロを作りたいのですがどのようにすればいいのでしょうか？
上記の日付は常に決まったセルに入力してあり、それが本日の日付か否かで
判断をするといった形です
宜しくお願いします

>>40
If Range("A1") = Date Then
'印刷するコード
Else
MsgBox ("日付が違うけどいいですか")
End If

環境：WindowsXP Excel2002
質問：Application.OnTime に関して
　マクロを編集していたところ、今まで利用していたOnTimeの処理が実行されなくなりました。
　色々調べた結果、最終的に下記の状況で発生することがわかりました。

新規Microsoft Excel ワークシート.xlsを作成し、シートには何も無い状態で
マクロを以下のように記述しました。

ThisWorkbookのマクロ---------------
　Private Sub Workbook_Open()
　　UserForm1.Show
　End Sub

Module1マクロ---------------
　Sub aaa()
　　Application.OnTime TimeValue("03:00:00"), "bbb"
　End Sub

　Sub bbb()
　　Range("A1").Value = 1
　End Sub

　　*　もともとの発生状況ではシートやUserForm1や他マクロにも色々な内容を含みますが、
　　*　上記の最小の構成にて発生するので割愛させていただきます。

この様な内容のブックにおいて、OnTimeマクロが動きません。
問題はUserForm1.Showに有るらしく、UserForm1.Showを無くすとなぜかOnTimeマクロが実行できます。
ちなみにUserForm1は起動時に開かれて、そのまま×でウィンドウを閉じて、("03:00:00")の処理を待っています。
VBAに関してあまり詳しくないのですが、UserForm1.Showを使いつつOnTimeを利用する方法として
上記内容のどのあたりに問題があるのでしょうか？
解決策をご教示ください。

すみません。
解決しました。 Application.Run "aaa"をWorkbook_Openに入れなければいけないのですね。
　UserForm1.Showも関係ないみたいでした。すみません。

>>41
こんな夜中に有難うございました
早速実行してみまして
申し訳ありませんが重ねて質問です
A1の部分が日付の入ったセルということでいいんですか？
そして、そこに入力されている値が今日の日付で無いならばElse以降の処理
今日の日付ならばそのまま処理といった形にする場合

If Range("S23") = TODAY() Then
とやってみたのですが
コンパイルエラーと出てしまいます
どのようにすればいいのでしょうか？

>>44
余計なことしないでDateのまま使え

すみません、自己解決しました
せっかく>>41にDateと書いてあったのに・・・
Today関数はVBAには無いんですね（汗

有難うございました、望んでいるものがおかげで出来ました

>>46
よく考えたら>>41じゃ日付が違うときのYes,Noが出ないな

Dim Rtn As Integer
If Range("S23") = Date Then
'印刷のコード
Else
Rtn = MsgBox("日付が違うけどいいですか？", vbYesNo, "選択")
If Rtn = vbYes Then
'印刷のコード
Else
End If
End If

>>40
＞上記の日付は常に決まったセルに入力してあり、それが本日の日付か否か
そのセルに、
=today()
って入れるってのはだめなん？

>>47
有難うございます
その後調べてみてなんとかそこまではたどり着きました
ですが変数の宣言がうまくいかなくまたまた困っていたところに
ちょうどレスがあり大変感謝してます

>>48
日付は別の式で自動的に入力されてしまいますので
それができないのです
もともと、別の者がつくったマクロでして、それを何とか改造して使いやすく
人的エラーの無いものにしたかったので、調べながらやっているところなんです
すみません・・

>>39
そこならデータ規則正しく並んでいるのでが全体をエクスポートすれば

>>39
そこならデータが規則正しく並んでいるので、ページ全体をExcelにエクスポートしてから
単純に「所在地」「電話番号」などで抽出すれば、目的の住所録が作れる。

Excelにエクスポートって何だ
IEか何かにそんな機能あるのか？

初歩的な事かもしれませんが、お願いします。
【1 OSの種類 　 　 　 　 .】 XPとMeの両方で使いたい
【2 Excelのバージョン 　 】 2003と97の両方で使いたい
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

ある文字列の頭３文字を判定して、条件に合致すればその部分を削除、
条件に合致しなければそのままを返すような処理は出来ますか？

例）
「対象の文字列」→「処理結果」

（勝）佐藤太郎→佐藤太郎
（負）鈴木次郎→鈴木次郎
　高橋三郎→高橋三郎

>>52
ExcelのWebクエリのことでしょ？違う？

>>53
=if(left(a1,3)="ある条件",""&a1,a1)みたいな？

=IF(LEFT(A1,3)="ある条",SUBSTITUTE(A1,"ある条",""),A1)みたいな？

>>55-56
上手くいきました。
ありがとうございました。

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

すいません。教えてください｡

今ダイエット中でして、日々の体重の推移をグラフにしております。
シートが４枚ほどになってきたのですが、
グラフの元のデータを複数のシートにわたって設定するには
どうすれば良いのでしょうか？
どうぞよろしくお願いします｡

>>58
作業シート作って､その4つのシートのデータをまとめる
その作業シートをグラフの元データにする

以上

>50>51
1列だけ共通の項目名がなく抽出が困難でしたが、
なんとかうまく出来ました。ありがとうございました。

>>54
エクスポート＝Webクエリなの？
びっくり

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

グラフを作ってグラフの大きさなどを変更してると
全部グレーになってしまいました。

これってどうやったら元に戻せますか？

>>59
ありがとうございました。
それには気が付きませんでした＾＾；

>>52
OfficeをインスコするとIEの右クリックメニューに「Microsoft Excelにエクスポート」ってのが追加される。
テーブルの中で右クリックすると、そのテーブルだけがExcelのワークシートに取り込まれる。
それ以外の余白や文章で右クリックすると、ページ全体がエクスポートされる。
ただしASPやPHPみたいな動的に生成されるページはうまくいかないことが多い。

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

関数を作り、それを4，5個のExcelファイルで使用しています。それで、この先
この関数を変更した時に一気に修正とかしたいんですけど、良い方法とかって
ありませんかね？一個一個ずつやると修正漏れが出てきそうなんで。

例えば
function XXXX()

end Function

これを a.xls、b.xls、c.xlsに同じ名前で組み込んでいてそれを一気に修正
したいって事なんですけど。

むしろ同じ関数を別々のファイルに組み込むのがおかしい。
どっかひとつのファイルに置いて、それをあちこちから使えるようにすべき。

エクセルでVBAを学んでいるのですが、元々C言語しか知らない人間なので基本的な事柄を覚えるのが面倒です。
で、質問なのですが、このさきエクセルでC言語をサポートする環境ができるような計画はありますでしょうか？
C言語をサポートするならそれまでは適当な処理で間に合わせようと思ってるのですが･･。

>>66

シートの参照なら判りますが、関数をあっちこっちから参照して使えるようにする事って出来るんですか？

>>67
適当な処理で間に合うんなら、それでいいじゃん。

>>68
個人用マクロブック

>>68
Application.Runかなんかで出来たような気がする

>>68
アドイン関数にする。関数はPublic宣言で。くわしいことはググるかヘルプで調べて。

>>69
他に応用が利かないプログラムをその都度作り続けるのは嫌なんです。
それに、Cだったら思ったとおりの動作がすぐにできますが、VBは色んなHPを参照しながら作らざるを得なくて
この先C言語がサポートされないなら、ちょっと本気で覚えないと仕事が増えるかな？と

おおっ、なるほど。教えていただいたキーワードを調べてみます　
皆さん、ありがとですm(__)m。

>>73
なーに甘っちょろいこと言ってんの。
VBAなんて変数と関数と制御構造で回してるって点でCと大差なし。演算子や型の違いなんてかわいいもんよ。
ライブラリの一つだと思って覚えとけ。

Cの仕様なんて時代とともにどんどん変わってるし、処理系が変われば完全に別物になるし、
新しい仕事をするたびにライブラリと格闘しなきゃならない。
この程度の応用もできないヤツは、はっきり言ってCを使い続けるのも無理。

>>75
なんとなく予感はしてたけど、やっぱりそうですか。
ありがとうです。本腰いれて勉強してみます。

エクセル初心者です。
「名前を付けて保存」で、保存しようとする時
プルダウンで、名前の履歴がでますが、
その履歴を消すことは、できますか？

OS：XP　　　エクセル：XP　　ハードは、職場、自宅等色々です。

質問です。
エクセルで名簿とかを作ったんですが、初心者なもので、１〜１０・１１〜２０…といった具合に分けて名前をつけて保存してしまいました。
できれば最初の１〜１０のファイルのページに１１〜２０のページを他のファイルからコピーかなんかして持ってきたいんですが、いい方法ありますか？

>>78
いい方法・・・コピー（＆ペースト）

>>64
へー、そんな機能あったんだ。知らんかった。サンキュ。

>>77
[ツール]→[オプション]→[全般]タブ→最近使用したファイルの一覧のチェックをはずす

【1 OSの種類 　 　 　 .】 WindowsXP
【2 Excelのバージョン　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否　 】 可
【5 検索キーワード 　 】 エクセル　画像の保存,エクセル　オブジェクトの保存

ワード文書を（office以外のソフトを使わずに）画像ファイルに変換したいのですが、今のところエクセルで対象のファイルを「オブジェクトの挿入」で取り込み、htmlで保存して自動生成されるフォルダ内の画像を使うというやり方しか思いつきません。
これ以外の方法で画像データとして保存するマクロを探していますがありませんでしょうか。できれば画像を保存する際に名前も自分でつけたいです。
office限定としているのは会社で定めている以外のソフトをインストールしないよう規制されているからです。
アドインというものもあるようですが他の社員のパソコンすべてに入れるのは難しいのでそれ以外の方法を探しています。
お分かりになる方がいましたらお教え願います。

>>82
PrintScreen

>>82
そういうのは普通仮想プリンタを使う。仮想プリンタと言うとpdfが有名だが､bmpやjpgのもある。

定めている以外のソフトをインストールしないよう規制されてるなんてのは関係ない。
必要なら仮想プリンタをインストール出来るものとして認定して貰えば良いだけ。
業務上で本当に必要なら当然認定してくれるだろう。認定してくれなかったらそれは必要ない物だってことだ。
全てのPCにインストールするのが面倒なんてのも関係ない。面倒でも必要ならばやる､それが｢仕事｣ってものです。

あとは全て貴社の社内で解決するべき問題なので､よろしくお願いします。
まあPrintScreenの張り合わせで満足できるならそれでもいいが。

それと､マクロもアドインも導入の手間は同じような物だよ。マクロだってそのマクロを含むブックを配布しなければ全てのPCで使えるようにはならないし､
ブックを共有できるシステムが構築されてるならそれを利用してアドイン共有しちゃえば良いだけ。仮想プリンタだって同じ。

ちょっと聞いてください。

うちは父一人、娘一人の二人暮らしでした。
父は再婚もせずに私を育ててくれましたが、やはり男性でしたし、相手が欲しかったようで
中学二年の頃から、私が毎晩父の相手をしていました。

最初はよくわからなかったのですが、父が優しく手ほどきをしてくれて
大好きな父が相手でしたから、私も嬉しくて、素直な気持ちで毎晩相手をしていました。
父はとても上手で、いろんな角度から私を攻めてきました。
二人で時間を忘れて朝まで続けてしまったこともあります。

そんな父もすでに亡くなり
今では母親となった私は、当時のことを思い出しながら
夫だけではなく中学生になった息子も相手にしています。

夫と息子がしているのを見るのも好きです。
夫が一番弱いですね。
息子はけっこう強いです。













ちなみに将棋の話です。

オートフィルタで抽出された行を切り取りしたいんですが、
切り取り→貼り付けってすると抽出されてない行も切り取られて付いて来ちゃいます。

ある値が入ってる行だけのシートとその項目のないシートに分けたいのですがどうすればよろしいのでしょうか？

>>86
抽出した列を選択したらどう？

可視セルのみ選択してコピー

>>88
レスありがとうございます。
コピーなら行けるんですけど可視セル切り取りができないんですよ。
コピー→貼り付け。元の行は削除で行くことにします。

>>.87
列っすか？？

ｅｘｃｅｌ２００３　ＸＰ　
マクロを含むブックがあってブックを開いた後、自作マクロを実施するときに、
昨日までは長いこと、正常に動いていたのですが、次のメッセージが出て
実行できなくなりました。
今日、あるフリーウェアー乃至シェアウエアー（マクロ等は隠している）の
エクセルを実施した後からです。

エラーメッセージとして、
ファイルにアクセスできませんでした。次のいずれかを行ってみてください。
・指定したファイルがあることを確認します。
・ファイルを含むフォルダーが、読み取り専用になっていないことを確認します。
・指定したファイルの名前に次のいずれかの文字も含まれていないことを確認します。
　　　　　: < > ? 最後につけたファイル名.xls *
・ファイル名およびパス名が半角で218文字より長くなっていないことを確認します。

いずれも、確認済みで該当なしですが、動きません。気になるのは最後に就け
たファイルの名前が出てくることです。

アドバイスをお願いします。

>>83-84
回答ありがとうございます。
PrintScreenだとちょっと厳しいです。ＰＤＦ以外の仮想プリンタというのは知りませんでした。勉強してみます。
どうもありがとうございました。

>>89
編集→ジャンプ→セル選択→可視セル

自己解決しましたw
自作マクロの設定が不十分と思っていろいろやっていたのですが、結局、
フリーウェア乃至シェアウエアのエクセルを再度、実施して、終了させたら
自作マクロが正常に動きました ;(~o~);
スレ汚し、すまそ

ユーザーフォームのテキストボックス内のテキスト表示が収まりきっていない場合に、
ControlTipTextのようにマウスのポイントで全文を表示させたいのですが、
どうすればよいのでしょうか？

>>78
つ【インポート】

>>73
フリーだとこう考える。

×　ちょっと本気で覚えないと仕事が増えるかな？
○　ちょっと本気で覚えれば仕事が増えて、ｳﾏｰかな？

【1 OSの種類 　 　 　 　 .】 Windows98
【2 Excelのバージョン 　 】 Excel2k
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】TRANSPOSE関数・列と行の入れ替えなど

A・B・C列に入ってるﾃﾞｰﾀを
A1・A2・A3・B1・B2・B3・・
と1行につき3列ずつ、横1行に並べ替えることは可能ですか?

>>97
C3まで行ったら終わり？
9個ずつの並べ替えならTRANSPOSEを3つ手作業で入力してからコピーとか。

すいません、31*50行あります
具体的にいうと、50人分のタイムカードの時間計算に使う表です
1日目・・Aが出勤時間、Bが退出時間、Cが休憩時間
2日目・・Dが出勤時間、Eが退出時間・・
となっている表があり、
このままだとうち間違いがあまりにも多発するため、
タイムカードどおり縦に入力して、
それを横向き(以前まで入力していた部分)に反映させたいのです
(そうしないと上司は納得しないんです・・)

教えてください!!
エクセル２００７、ワード２００７でシート保護の設定ができないんです？
パスワードを決める画面がどうしてもでてこないんです？
２００３のときはたしか、ツールから保護シートができたんですけど、２００７にはツールのタグもない
んです。
誰か助けて！！

入力用と計算用のシートなり別に作って雛形にすればいい

>>100
どちらも「校閲」タブにでっかいのがあるだろが。よく探せ。

１０１さん
２００３のファイルみたいにパスワードを入れて
みれるようにならないんです？

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

セルに0からはじまる数字を入力したいのですが0が消えてしまいます。
（たとえば01111だったら1111になってしまう）
どうすれば入力できるようになるのでしょうか？
教えてください＞＜

>>104
ｾﾙの書式設定で文字列を指定

>>104
桁数が例えば5桁と決まってるなら書式設定のユーザー定義で00000にする。
桁数が毎回違ってて、文字列になってしまってもいいのなら先頭に ' を付けて入力する。

>>99
入力(並べ替え)は毎日？
それとも月末にまとめて？
毎日やるなら入力フォームを使った方がいいかもよ。

>>106
解決しました！
ありがとうございます！

【1 OSの種類 　 　 　 　 .】 WindowsXP-HE
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 （Google）Excel　VBA　条件　２つ以上の処理

条件構文で質問です。If判定の後に、2つ以上の処理をするにはどうしたら
よいでしょうか？　例えば

If A = B Then C = D , E = E + 1 , F = 100

のような感じです。

＞109
これでいいですか？
If A = B Then
C = D
E = E + 1
F = 100
End If

>>109
ああ、・・・　最後のEnd If が抜けていた・・・

Thx

>>103＝100?
少なくとも100に書いてあるExcel2003のツール＞保護＞シートの保護でできることは、
Ｅｘｃｅｌ2007の校閲＞変更＞シートの保護でまったく同じことが出来る。
違うと言うなら、おまいが別の機能を「シートの保護」と誤解しとる。

パスワードがないと開けない（読み取りパスワードの設定）ようにしたいなら、
2007の場合はOｆｆｉｃｅボタン＞配布準備＞ドキュメントの暗号化を使え。

>>107
月末にまとめて一月分入力です

>>109
こういう書き方も出来る。式や命令をコロンで区切る。この場合はEnd Ifは書かない。

If A = B Then C = D : E = E + 1 : F = 100

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

エクセルでB4用紙に横に印刷された表をA4で縦に印刷しなおしたいのですが
ページ設定で位置を縦にして％を小さくしてみたのですが
縦になっても上半分で切れてしまったり１枚に収まってもA4の上半分
ぐらいの小さな表になってしまったりと上手く出来ません。
どうすれば綺麗におさまるでしょうか？

>>115
＞A4の上半分ぐらいの小さな表になってしまったり
・・・これで正解だから

大きく印刷したいならA4【横】で印刷しなさい

>>113
それならVBAでやった方が早いかな。
Sheet2からSheet1へ、順番を変えながらデータをコピーする

Sub TimeCardCopy()
Dim Person, Day1, Col1

Application.ScreenUpdating = False ' 画面更新を一時的に止める
Application.Calculation = xlCalculationManual ' 再計算を一時的に止める

For Person = 1 To 50 ' 50人分
For Day1 = 1 To 31 ' 31日まで
For Col1 = 1 To 3 ' 3マスずつコピー
Worksheets("Sheet1").Cells(Person, Day1 * 3 + Col1 - 3) = Worksheets("Sheet2").Cells(Day1, Person * 3 + Col1 - 3)
Next Col1
Next Day1
Next Person

Application.ScreenUpdating = True ' 画面更新する
Application.Calculation = xlCalculationAutomatic ' 再計算する

End Sub

>>117
ありがとうございます！
これでうまくいきそうです

>>116
会社で上司に頼まれたのですが私も最初A4横で印刷したら「こうじゃなくて縦長にA4用紙に
納めて」と言われてしまいました。どうやっても、縦にすると横が半分ぐらいきれてしまいます。
印刷設定ではここまではできないのでしょうか。。。

excelを買おうと思って価格comで調べたんですが、（AC）ってのはなんでしょうか？
（UPG）はアップグレード版だとわかるのですが。
無印の　Office Excel 2007　って言うのを買えばいいのでしょうか？
OSはwinです。
よろしくお願いします。

>>119　ページ設定で　縦？ページ×横？ページに収めるって設定がある　１X1にすればおｋ

>>120
あかでみっく？

>>119
無理やりA4におさめたいのなら、
印刷したいセルを選択して、「印刷範囲の設定」を選ぶ。
次に、印刷プレビューを見る。設定で余白を狭めたり、
拡大率を変更し、ページ枚数が一枚になるようにする。

分かりにくい説明だと思うが、これでできるはず。

>>116,121,123
ありがとうございます。明日また挑戦してみます。

>>122
あっ、なるほどー
ってことは学生さん用ですね。
レスありがとうございます。

=SUMPRODUCT((A1:A10)="AAA")*(B1:B10="EEE")*(C1:C10))

上記は、A列が"AAA"で、B列が"EEE"の行の対応するC列の値を合計する
式ですが、例えばA列に"BBB"と"CCC"が存在し、これらもOR条件で集計
したい場合のスマート書き方がありましたら教えてください。
気持ちとしては、下記のような式を作りたいと思っています。

=SUMPRODUCT((A1:A10)="AAA"or"BBB"or"CCC")*(B1:B10="EEE")*(C1:C10))

配列とVBA、実務で比較的役に立つのはどちらでしょうか？

>>127
VBA。VBAの中には配列も含まれるし。

仕事の内容にもよるけど、Excelそのものの使い方よりも計算に対する一般常識をたくさん知っていた方がいい。

>>125
別に学生でなくとも教職関係者であればアカデミック版は購入可能だと思うが

>>126
条件の and は * に、or は + に置き換えればいい。
+は*よりも優先順位が低いからカッコでまとめること。

=SUMPRODUCT(((A1:A10="AAA")+(A1:A10="BBB")+(A1:A10="CCC"))*(B1:B10="EEE")*(C1:C10))

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

http://toi.kuronekoyamato.co.jp/cgi-bin/tneko

発送管理と発送状態をすぐわかるように
このクロネコヤマトのお問い合わせに自動でお問い合わせを入力して、お問い合わせボタンを押してくれるようなの希望です。

相手方の　名前　　住所　メモ　　の横にお問い合わせ番号を書いといて、その番号のリンクをダブルクリックすると上記のように
クロネコのサイトが開いて、自動で書いてあるお問い合わせ番号入力、お問い合わせボタンを押してくれたら感激です。

>>128
どもっす

>>131
検索したらこういうのがありました。応用できそうです。
ttp://q.hatena.ne.jp/1168525751

そこの回答者も大変だな、けんもほろろ。

クロネコの問い合わせページは暗号化されたアクセス日時が隠しフォームに入ってて、
いきなりリクエストだけ送ってもダメだからちょっと面倒だね。

初心者です！　
次のエクセルの式の情報関連のレポートの宿題ですが、

＝IF（A1+B1＊（１+C＄１＞１００，IF（＄D1＜＞"X"，"あ"，"い"），"う"）
の式についてどういう意味かできれば具体的にお教え願います。

�@特に、+と＊のどちら先に計算されるのか
�AIF関数とその入れ子についてと、
�B"あ"　"い"　"う"と表示されるのはどのような場合か

どうぞ宜しくお願いします。

>>136
おめーのようなのは、おれはスルーだ

>>136
宿題は自分でやれ！

一言だけ教えてやると、その式、たぶん一箇所　）　を写し間違えてるぞw

使い始めたばかりのど素人ですがよろしくおねがいします。
データ分析の回帰分析から回帰直線y=a+bxのaとbを求めたものと、
データを散布図にプロットして線形近似した式と比べてみたのですが
式が一致しませんでした。線形近似は回帰直線にならないのでしょうか。

>>131
これで一応希望の動作はできるから、あとは自分の作ったブックに合わせてカスタマイズしてね。
VBAは「いいえ」になってるけど、ブラウザの操作はVBAを使わないと無理だから、がんばって勉強してね。

Sub Kuroneko_check()

' IEオブジェクトのインスタンス化
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True ' ブラウザを開く

' クロネコのサイトに飛ぶ
objIE.Navigate "http://toi.kuronekoyamato.co.jp/cgi-bin/tneko"
Do While objIE.Busy = True 'ページが表示されるまで待つ
DoEvents
Loop

' 伝票番号をセルA1から取得してフォームにセット
objIE.document.all.number01.Value = Range("A1").Value

' テスト用仮データをセット (動作確認用)
objIE.document.all.number01.Value = "1111-2222-9993"

' 問い合わせボタンをクリック
objIE.document.all.sch.Click

End Sub

>>136
そういうのはまず、自分で実際にエクセルの画面に入力して確かめてみるところから始めるといい。
そうすると入力ミスしていないかどうかも確認できるし。

1つだけヒント
+ は足し算
* はかけ算。×のかわりに * と書く決まり。どっちを先に計算するかは小学校で習ったよね？

>>136
宿題なら教科書をみて自分で考えれ

>>131

個人相手ではどうか知らんが、法人ならばやり方教えてくれるかもよ>クロネコ
131が物流と言う言葉にピンと来れば、そこに聞いてみるといい。

初歩的な質問ですみません。

Excel2007の単独導入を考えているのですが、
Excel2007にMS数式3.0は付いてきますか?

VBAでデスクトップにある<aaa>フォルダーの<bbb.csv>ファイルを開きたい。
Workbooks.Open Filename:= の続きを教えてください。

>>145
これでいいの？Windowsのバージョンによってはパスが違うことも…

Workbooks.Open Filename:="C:\Documents and Settings\ユーザー名\デスクトップ\aaa\bbb.csv"

サンクスです。
できました。

>>145
デスクトップのフォルダ名は以下のようなメソッドで取り出すことが出来ます。

CreateObject("WScript.Shell").SpecialFolders("desktop")

これを応用して書き換えるとこうなります。

Workbooks.Open Filename:=CreateObject("WScript.Shell").SpecialFolders("desktop") & "\aaa\bbb.csv"

これならユーザー名が変わってもWindowsのバージョンが変わってもそのまま使えます。

サンクス。
それいいですね。

http://successmix.xsrv.jp/
ってビジネスどう思う？
これなら、できる？

>>150
全然、欲しいとも思えない商品ばかり。悪質なマルチ商法

【1 OSの種類 　 　 　 　 .】 WindowsXP-HE
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 （Google）Excel　VBA　セル　選択　不連続　グラフ

不連続（飛び飛び）のセルの数値を使ってグラフを作成したく思っています。

例えば、http://www.imgup.org/iup506935.jpg　で、土地の行のAさん〜Cさん
の2006年のデータを円グラフにする際には、どのような記述になるのでしょうか？
この場合だと、対象の数値は、100，150，500　となります。

不連続の表を連続の表に変換してからグラフにしたほうが簡単だな

>>151
おまえいいやつだな。単なる広告コピペにわざわざレスつけるなんて。

>>152
フィルターかけてからグラフを作成。非表示のセルを空白に。

あるいはデータの範囲を
=Sheet1!B4,Sheet1!D4,Sheet1!F4
みたいにコンマで区切って並べれば飛び飛びのセルを指定できる。
Ctrl押しながらクリックして複数のセルを選択してからグラフを作っても同じこと。

>>153，155
さんきゅうです。やってみます。

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

かなり初歩的な質問だと思うのですがお願いします。

http://image13.bannch.com/bbs/185085/img/0082290336.jpg
このように縦に数字の桁をそろえるにはどうしたらいいのでしょうか？

ちょっとちがうかもしれないけど書式を　???.?? としてみる　（？が３つ　ピリオドが１つ　？が２つ）

横からスマソ
その???.??は書式→セル等、どうやっていれるか教えてくれ

書式と言うか書式設定の中の表示形式､更にその中のユーザー定義
Excelでは書式と言うと､セルの文字色や背景色､罫線などまで含めたものを指す

それと???.??より0.??の方が良いだろうな
まぁ､どちらにしろ整数でも小数点が表示されるのが嫌だとか言い出しそうだがな
その場合はVBA使うとかセル分けするとかかな

>>159
こうやるの。基本中の基本だからしっかり覚えておくように
ttp://www.wanichan.com/pc/faq/excel/02.htm

>>157
(1) ここで説明する方法はExcel2003以前では使えないので、まずExcel2007に乗り換える
(2) セルを右クリックして「セルの書式設定」→「書式」→「ユーザー定義」を開いて「??0.??」と入れる
(3) 同じく「セルの書式設定」の中の「配置」タブを開き、横位置を「左詰め (インデント)」にしてインデントを1にする
(4) 条件付き書式を開き、「新しいルール」→「数式を使用(r」を選ぶ
(5) 数式のところに「=A1=INT(A1)」と書き、書式をユーザー定義で「??0」にする

このとおり
ttp://pict.or.tp/img/31351.png

へー　2007買おうかな

MS　ゴシック　のような等幅フォントにして小数点以下がないものは半角スペースを3つ
小数点以下が一桁ある場合は半角スペースを1つ入れる
配置を右詰めにしたらできあがり
2003以前でも対応可

俺って天才

値の最初に「'」をつけるのを忘れずに＾＾

それじゃ式に使えないじゃない

前スレで、=MAX(0,)を教えてもらったものです(Excel9007使用)m(_ _)m

Ｈ３に、
=MAX(0,(F3-F2-G2)*0.05)という計算式を入れてますが、ここに小数点以下は切り捨てという条件も入れるにはどうしたらよいでしょうか？
Ｈ４にINT関数入れれば出来るのは知っているのですが、一つにまとめたいので。

>>167
式全体をINT(　)のカッコの中に入れればいいんだよ。

=INT(MAX(0,(F3-F2-G2)*0.05))

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

9007　いいなあ

>>157
VBA使っていいならThisWorkbookに
Private Sub autochange(ByVal Target As Range)
Dim c As Range, f As String, s As String, e As String
On Error Resume Next
Application.EnableEvents = False
For Each c In Target
f = c.NumberFormat
If Right(f, 7) = "AUTO1""@" Then
s = Mid(f, InStr(1, f, """", vbTextCompare) + 1, Len(f))
s = Left(s, InStr(1, s, ";AUTO1""", vbTextCompare) - 1)
If Int(c.Value) = c.Value Then
e = Left(s, InStr(1, s, ";", vbTextCompare) - 1)
c.NumberFormat = e & ";""" & s & ";AUTO1""@"
Else
e = Mid(s, InStr(1, s, ";", vbTextCompare) + 1, Len(s))
c.NumberFormat = e & ";""" & s & ";AUTO1""@"
End If
End If
Next
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
autochange Sh.UsedRange
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
autochange Target
End Sub
こんな感じにして表示形式を
0.00;"0_._0_0;0.00;AUTO1"@
にする

WindowsXP
Excel2000
VBA使えません。

y軸に普通の値を、x軸に乗数を含む数値を入れた滑らかなグラフを作りたいのですが、どうすればいいんでしょうか。
折れ線で試したのですが、x軸の値が乗数表示できず、10-6のように表示されてしまい、
また、滑らかなグラフになりません。

>>172
自動的に乗数を出すことはできないので、データラベル用の列か行を自分で作っておく必要がある。
例えば10のマイナス6乗を書きたい場合は、まず「10-6」と入力してから「-6」の部分だけを選択して、
書式→セルを開いて「上付き」をチェックする。
先に1つだけ作って、それをコピーしてから数字だけを修正していった方が早くできる。

グラフをなめらかな曲線にするには、まず折れ線グラフを作ってからプロパティ→系列→書式を選んで
「スムージング」にチェックを入れる。

あ、スマン。たしかに書式が無視されるね。これは気が付かなかった。

>>173
セル上はちゃんと乗数になってるのに、グラフの数値では書式が戻ってしまうんですよね。
これはどうしようもないんでしょうか…。

指定した文字があるセルにジャンプすることはできる？
「E」と入力すると「English」というセルに飛べるか

>>175
VBAでできないか調べてみたけど、軸ラベルは単純な文字列じゃないんだね。
オートシェイプのテキストボックスを重ねるしかないかなあ。

>>175
とりあえずオートシェイプで誤魔化してみた。俺の頭じゃこれが限界だ。
ttp://upsurusuru.hp.infoseek.co.jp/cgi-bin/src/up1301.png

>>177
わざわざスクショまでうｐしていただいて、ありがとうございます。
やってみます。本当にありがとうございました!

>>130
遅ればせながらできました。ありがとうございました！

>>176　検索

>>176
ブックやシートには標準ではKeyPressイベントが公開されてないから、
どっかからオーバーライドしてくるか、別のプロセスでイベントハンドラを用意しないとダメかも。
不可能ではないけど、けっこうめんどくさい。

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

　　 　A　　 　　 B　　 　　 C
　
1　 01A01 　02A02 　03A03
2　 　　　　 　02B02 　03B03
3　 01C01 　02C02 　03C03
4　
5　 　　　 　　02D02 　03D03
6　
7　 01E01 　02E02


という表で、たとえば
A10に01A01と打ち込むとその行の一番右列にある03A03を返す
A10に02D02と打ち込めばその行の一番右列にある03B03を返す
A10に01E01と打ち込めばその行の一番右列にある02E02を返す

という関数を作りたいのですが上手くいきません。何かいい方法はないでしょうか？
空白の行・セルはソートはできません。

>>183
ちょっと長くなるけど

=IF(ISERROR(VLOOKUP(A10,A1:C7,3,FALSE)),IF(ISERROR(VLOOKUP(A10,B1:C7,2,FALSE)),"",
VLOOKUP(A10,B1:C7,2,FALSE)),IF(VLOOKUP(A10,A1:C7,3,FALSE)="",
VLOOKUP(A10,A1:B7,2,FALSE),VLOOKUP(A10,A1:C7,3,FALSE)))

>>183
一番左に１列挿入して次の式を入力
=LEFT(B1&C1&D1,5)
この列を検索範囲に入れて
=VLOOKUP(A10,A1:D7,4,1)

すみませんが教えて下さい。

PCの買替え（→vista）を検討中ですが、Excel2000で作成したファイルは
いきなりExcel2007で作業することは可能ですか？

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

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

セル内の文字の中から、指定の文字を数える方法はありませんかね？
たとえばセル内に aaaabcd と書いてある場合、a の数が4個だと分かるような関数はありますか？Len関数を使えば、上記の場合7と答えが出ますが、文字の指定はできなかったはずです。

>>187
釣りじゃないよね？
=LEN("aaaabcd")-LEN(SUBSTITUTE("aaaabcd","a",""))
「元の文字数」−「指定文字を除いた文字数」
簡単だろ。

うぜー

エッ！　難しかったの？

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

セル内の二色を使った文字列のうち1色だけを他の色に置き換えることはできないんでしょうか
「置換」を使うとセル内すべての文字色が置き換わってしまうのですが

赤黒→青黒にしたいところ
赤黒→青青になってしまいます

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

2003で作成したものを2007で読むとウインドウ枠の固定ができません。
ページによってはできるのですが、そこが白黒表示でできません。
同様の方はいらっしゃるでしょうか。
また、解決法などあるでしょうか。

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

会計ソフト(市販のモノです)からエクスポートしてきたデータ(エクセル形式)を貼る付けと同時に加工することは可能でしょうか？
例えば貼りつけるとすぐに「売上債権回転率」や「流動比率」などを計算させる、などです。
貼りつけた数値の位置が毎回同じなら良いのですが、月次によって勘定科目の増減がありますので、
貼る付ける位置が常に同じとは限りません。
何か良い方法はありませんでしょうか？

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

既に打ち込まれてある数値（少数）をセルごと100倍するにはどうすればいいでしょうか。
ググルと関数でできるような事が書いてありますが、できませぬ。。
お助け願います。

なんか回答がないようだがレベルが高いのか？低いのか？

どうしたいのか今一わからぬ。
もう少しわかりやすどうしたいか書くとイイかもね。

例えば>>194
=A1*100みたいに計算したらだめなん？
関数を使いたいの？

>>195
このスレって質問者が中級で回答する人が初中級というヘンなスレです。
前から見ててそう思ってます。

>>193
情報が足りない。張り付けるのは数値だけなのか数値と項目名なのか。縦一列なのか表形式なのか。
数値だけなら無理だな。項目名もあるならDSUMあたりでなんとかなるだろう。

>>197
で、あんたのレベルは？

>>199
図星だね。
そういうレスが来るのがその証拠だ。　笑

>>188
トンクス
釣りじゃないよ、まだ慣れていないんだ

>>184
ありがとうございます。
しかし実際使う表が800行ぐらいあるので厳しいです。。。

>>185
ありがとうございます。
01A01でやると０が返ってきたり、02B02でやると03C03がきたりしてちゃんとできませんでした。。。

>>202
＞しかし実際使う表が800行ぐらいあるので厳しいです。。。
８００回記入しなくても、式をコピーできるのは知ってる？

>>203
書き方が悪かったですすいません
制限文字数以上いきそうです・・・。

>>183 >>202
各行の最左項をキーに最右項のデータを検索するって事でいいのなら

「１８５改造案」

Ｄ列に：=LEFT(A1&B1&C1,5)
Ｅ列に：=RIGHT(A1&B1&C1,5)
検索式は：=VLOOKUP(A10,D1:E7,2,0)　最後の項は１じゃなくて０の間違い

>>205
途中で0にしてみて、できた！と思ったんですがだめでした
最左項だけではなく、最右項以外（>>183　１行目でいうと、01A01か02A02）がキーだったら最右項の03A03を返すです
空白行や空白セルがある＆頭に数字が付いてるのが厳しい。。。

>>197
残念､ハズレ

質問者も回答者も初級以下から上級まで様々です
ただし､質問者にはPCやExcelのレベルに関係なく
日本語出来てなかったり､要領を得ない質問してたりする奴が多い傾向にはあるけどね
その為に回答が滞りがちではある

>>206
後から条件を追加しちゃダメだよ

>>191
ひとくちに赤、青と言っても、明るかったり暗かったりいろんな色があるから
標準以外の色を使っていた場合にはこのVBAは使えないので注意。

Sub test() ' 呼び出しサンプル
ChangeColor ("A1") ' 置き換えたいセルを指定する
End Sub

Sub ChangeColor(R) '指定されたセルの赤い文字だけを青に変える
For I = 1 To Len(Range(R))
If Range(R).Characters(Start:=I, Length:=1).Font.Color = vbRed Then Range(R).Characters(Start:=I, Length:=1).Font.Color = vbBlue
Next I
End Sub

>>193
行数の増減があったとしても、下から数えて必ず同じ位置に同じ項目が来るなら
VBAなどを使って処理することは可能。

>>207
残念。
回答者に上級レベルなど居ません。
それでもあると仰るのであれば具体的な指摘をお願いしたい。

>>206
最大何列まであるの？行数はどんだけあっても関係ないから。
あと、800行あるなら検索するデータの入力先もA10じゃないよね。
ありのままの条件を書いて。

>>183
そういった変則的な検索条件になるって事は
データベースのフィールドの作り方が間違ってるって事だよ
後々複雑な式になって編集や変更がしにくくなる前に
根本的に表の設計をやりなおしたほうが得策だよ

>>194
質問の意味が今ひとつわからないので勝手に解釈するぞ。

まず、適当に使っていないセルに100と入力し、そのセルを選択、コピーする。
次に、100倍にしたいセル(範囲)を選択して右クリック、形式を選択して貼り付け、を開く。
演算の下の「乗算」のラジオボタンをチェック、OKを押すと、選択したセルが一度に100倍される。

>>210なんかは回答者だけど日本語読めてないよね。
これなんかはどうよ？>>207

的外れだったらすり合わせればいいだけ。
それができない回答否定＝人格否定＝ボク悪くないお前が馬鹿なのが悪い
っつーお子様が粘着して貼りついてしまってるだけ。

焦るなよ
曖昧な質問に無理やり答えようとするからおかしな回答になるんだろ

不明な点、曖昧な点を明らかにするよう誘導くらいはしようぜ

>>216
それ自分に言い聞かせてるの？

悪い質問には悪い回答しかつかないんだからそれでいいじゃん

【1 OSの種類 　 　 　 　 .】 Windows XP SP2
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】excel 関数　で検索して関数を調べたりしました。


説明がややこしいのでサンプルを作ってみました。

ttp://hilala-web.hp.infoseek.co.jp/excel/sample01.xls

このように、個人ごとの注文表があったとします。
この注文を1つにまとめて、それぞれ鉛筆何本、シャーペン何本という合計の表を
作るのにはどのようにすればいいでしょうか？

個人注文表で品物と個数を選ぶと、別の表ですべての合計が表示される、といった感じにしたいです。


よろしくお願いします！

>220
俺あんまり頭良くないから長ったらしい式書いちゃうけど

例えばA10に商品の名前を入れておいて
B10=SUMPRODUCT((G$2:G$7=A10)*(H$2:H$7)+(D$2:D$7=A10)*(E$2:E$7)+(A$2:A$7=A10)*(B$2:B$7))
と入れれば集計は出来ると思う

あとは応用してみて

>221
{=SUM((G$2:G$7=A10)*(H$2:H$7),(D$2:D$7=A10)*(E$2:E$7),(A$2:A$7=A10)*(B$2:B$7))}
=SUMIF(A$2:A$7,A10,B$2:B$7)+SUMIF(G$2:G$7,A10,H$2:H$7)+SUMIF(D$2:D$7,A10,E$2:E$7)
=SUMPRODUCT((G$2:G$7=A10)*(H$2:H$7)+(D$2:D$7=A10)*(E$2:E$7)+(A$2:A$7=A10)*(B$2:B$7))

>>191
それは仕様なのではないでしょうか。
自分は、Excelでは置換をしない、と決めています。

>>211
新参だと知らないかもしれないが､ゴッホ氏とかhoge氏とか
最近は来ないけど､このスレに居た事実は変わらないし
コテ無しでもこのレベルの奴は偶に来てる

(君にとって)残念ながら､(俺にとっては)残念ではなかった

>>209
>>223
皆さんありがとうございます
ちょっとVBA勉強してきます

>>221, >>222
ありがとうございます、その式でとりあえずは集計することができました。
ただ、実際作るものは、山田、田中、鈴木、のように3つではなくもっと多くなってしまいそうです。

かなり長い式を書けばできなくもないんですが、もう少し効率的な方法はないでしょうか？
できれば可変にも対応させたいのですが・・・
(最悪ずっと右のほうまで計算するように作っておけばいいので、あまり重視しません)

よろしくお願いします。

>>220
>>213氏が別の質問に対して答えてる内容と同じになるのですが、
マスターとなる表自体の作りを変えた方が良いですよ。
この例だったら、
A列：注文者名
B列：注文品名
C列：注文品の個数
みたいな感じ。

人間にとって見易い表から機械で処理し易い表を作るのは
大変ですが、逆は簡単ですから。

そういうのはピボットテーブルで集計するのが楽だね

ピボット使う奴は雑魚

ん？　くやしかったの？

>>219
だな。
お前のような質の悪い人間が混じってくる。

>>229
ピボットを使う奴は決して雑魚ではない

>>220
例えば
商品表のC2に

=SUMIF(個人注文表!$A$2:$I$7,A2,個人注文表!$B$2:$J$7)

を下にコピーする。

みなさんレスありがとうございます。

>>227
なるほど。
しかし実際はもっと複雑なのでなかなか簡単にはいかないのです・・・
そして実際に数値を入れるのは他の人(不特定多数に近い)にやってもらうので、
多少式が複雑でも見た目がわかりやすいほうがいいのでこの形にしました。

>>228
ピボットは使ったことないのでまた調べて見ます。

>>232
おお、すばらしい！
これはシンプルでいいですね。

SUMIFの検索範囲、合計範囲が複数列になっていますが、この場合
検索範囲が$A、合計範囲が$Bから始まっているので、検索に合致したセルの
右のセルの値が合計される、という意味になるのでしょうか？
(説明がややこしいですが･･･)

>>233
不特定多数が入力するんなら、入力フォームを使ったほうがいいぞ。
集計しやすいように表を作ることも出来るし、入力する位置の間違いなんかも防ぐことが出来る。

商いの規模にもよるけど、ExcelよりAccessを使った方がいいかもよ。
Accessなら複雑な集計がExcelよりは楽に出来ることのが多い。

>>233
＞検索範囲が$A、合計範囲が$Bから始まっているので、検索に合致したセルの
＞右のセルの値が合計される、という意味になるのでしょうか？

右のセルの値とは限らないです
今回は検索範囲と合計範囲の大きさ（範囲の形）を同じにしています
選択した検索範囲と同じ形の合計範囲が同じならば、イメージとしては検索範囲と合計範囲を
重ねた時に一致したセルの値が合計されます

例えば　=SUMIF(A1:C5."条件",X21:Z25)　という式では
B2とC5に"条件"という文字が入っていた場合Y22とZ25の値が合計されます

書き忘れました
＞今回は検索範囲と合計範囲の大きさ（範囲の形）を同じにしています
ヘルプより
「合計範囲に含まれるセルの個数と形状は、必ずしも対応するセルと一致している必要はありません。
加算の対象となる実際のセルは、合計範囲の左上のセルを基準にして決定されます。」

でも一致させた方がわかりやすいので今回は一致させました

また出てきたのか>>◆adhRKFl5jU
なんでそんなに自己主張したがるの？
無名で回答すれば､単なる初級回答者として多少は有り難がられるのに
酉付きで出てくると､過去の暴走を知ってる人達から叩かれるだけだよ

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

詳しく説明するとかなり長くなってしまうのでやめときますが、
今回の場合はフォームよりはこっちのほうがよさそうです。

不特定多数といっても、1人1つこのファイルに入力してもらう感じで、
入力者は全部のシートを見て全体をみながら考える・・・といった感じなのです。
わかりにくいかもしれませんがどうでもいいので気にしないでくださいｗ


>>235
なるほど、そういう事ですか。
かなり参考になりました、ありがとうございます！

期間中にクリック数の一番多い国が優勝！
http://www.clickclickclick.com/default.asp　（戦場はこちら）
ルールは簡単（ ＾ω＾）認証文字を打ち込んだら、あとはクリックボタンを連打連打！！！
おまえさんたちのクリック魂を見せてくれ！

◇新規さんや古参帰還兵さんへ
初めまして、そして久しぶりです。この熱き戦いももう半年を迎えました。
現在GAME29(11/26-11/30まで)に突入、我らが日本は強豪ハンガリーに苦戦を強いられています。
世界が総力を挙げて競っているこの戦いに、あなたの力を貸してください！

ClickJapanポータルサイト→　http://www.clickjapan.jp/
初めての方はこちらのwikiを→　http://www37.atwiki.jp/clickjapan/
久しぶりに参戦の方へ→　http://www33.atwiki.jp/clickvip/pages/237.html

わからない事はこのスレ（落ちてたら↓から）で聞いてね！(ポータル内のフォーラムでもＯＫ！)
http://www.clickjapan.jp/find2ch.php

【砲台ランキング】一番クリックした国が優勝【はじめました】
http://yutori.2ch.net/test/read.cgi/news4vip/1195966264/

>>214
うをを、簡単にできました。
どうもありがとうございました。

こんなの本に載ってないし、ググっても出てこないのでまいります。

２００３使ってます。

セルで列または行に
例　(列)
TEL１２３−４５６−７８９
TEL１２３−４５６−７８９
TEL１２３−４５６−７８９
TEL１２３−４５６−７８９
TEL１２３−４５６−７８９
並んでいるときにTELの文字だけ一気に消したいのですが
どうしたらいいのでしょうか？

>>241
置換で空白にするとか

>>242
天才ですね！！！！！！！！！！！
ありがとうございます！！！！！！！！！！！！！！！！

>>220
関数を使わずに、「データ」メニューから「統合」を使うのも良いのでは？
左端列をチェックすれば、集計出来ます。

>>237
自己紹介乙ｗ

方向キーを押すとカーソルが移動しないでシート全体が移動してしまいます。
カーソルを移動するようにするにはどうすればいいでしょうか？

ScrollLock

>>245
せんせー､おはようございます

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

エクセルで、グラフとかどう作るの？
途中までできるんだけど、完全にできない。

あなたにはできないので、諦めてください。

ひどい質問だ。
この聞き方じゃリアルでもどうにも答えられんよな。。。

教えてください。

シート１のセル「A2」に何か入力（文字種は問わない）があれば、

シート２のセル「B3」に、

シート１のセル「A1」に入力されている文字（例えば人の名前とか）をそのまま表示する。

シート１のセル「A2」に何も入力がなければ、シート２のセル「B3」は空白のままにしておく


ということをするために、シート２のセル「B3」に入力する書式がわからなくて困っています。

どなたかご教授いただけないでしょうか？

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

sage

書き忘れました、すいません

【1 OSの種類 　 　 　 　 .】 Windows XP SP2
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 よくわかりません
【5 検索キーワード 　 　 】excel 関数を調べてみましたがよくわかりませんでした

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

>>253
=if(シート１!A2<>"",シート１!A2,"")

>>255
どんな関数でも数式でも、別のシートを参照するにはセル指定の前にシート名とびっくりマークを書けばいいだけ。
=IF(Sheet1!A2<>"",Sheet1!A1,"")

行に名前データがあるのですが、同じセル内で名前の前に
番号をふりたいのですが、一括で番号を加える方法教えてください
よろしくお願いします

>>258
ＶＢＡを組めばいい

>>258
行に名前が並んでいるの？

>>258
同じセル内ではやめた方がいい
A列だったら列を挿入汁

>>259
VBAはほとんどわからないんです
>>260
行に名前データがあって番号ふるのを忘れてたので
同じセルで　番号．名前というデータにしたいんです
>>261
印刷すると同じなのですが、データとしてひとつのセル内にまとめるのは
方法ないでしょうか？

>>262
＆で結ぶ
=番号&名前の入ったセル番地

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel07?
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 セル 連続 とかです。
質問させてください。
例えばA1のセルに数字と入力し、その後同一(A1)のセルに数字を打つと
+し続けてくれる機能とかありますか？

>>264
そういう機能はない
加算貼り付け(コピペ)は出来るけど
貼り付けではなく入力でやりたいならVBA使うしかない

>>265さん
回答ありがとうございます。
出来れば入力でやりたいのですが、VBAは使ったことが無く・・
コードを書いて頂けませんか？
丸投げでほんとすいません。

>>264
F2で編集モードにすれば？

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

スレがふさわしくないようでしたらすみません。
複数行に渡って、年月日が入力されている列があるとして、
そのデータに記載のある「月数」を求めようとしました。
その列の隣に　=YEAR(A1)&MONTH(A1)という列を挿入し、
データの種類数を算出する関数を探していて、検索で
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q129452917
上記のページを見つけました。

「ベストアンサー以外の回答」に出ている
=SUMPRODUCT(1/COUNTIF(A1:A3,A1:A3))
がふさわしく、求めていた回答が出たのですが、
この関数の意味がわかりません。
SUMPRODUCTは、条件に合うデータの合計数を出す意味がある
ということはわかったのですが、特に(1/COUNTIF(A1:A3,A1:A3))
の解説をして頂けたら幸いです。

SUMPRODUCTは引数に含まれる配列を分解してその積の和を返します
=SUMPRODUCT(1/COUNTIF(A1:A3,A1:A3)) は引数は一つであり
COUNTIFの一つめの引数は配列を与えるので
1/COUNTIF(A1:A3,A1)+1/COUNTIF(A1:A3,A2)+1/COUNTIF(A1:A3,A3)
を計算しています
なので、一種類つまり3つとも同じ場合は1/3+1/3+1/3=1
二種類の場合、1/2+1/2+1/1=2　三種類の場合、1/1+1/1+1/1=3
となります

>>263
ありがとうございます
解決できました

>>269
解説どうもありがとうございました。
理解できたと思います。
COUNTIFの検索対象を配列に出来るとは目から鱗です。

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

Private Sub SpinButton9_Change()
TextBox9.Value = SpinButton9.Value
End Sub
Private Sub SpinButton10_Change()
TextBox10.Value = SpinButton10.Value
End Sub
Private Sub SpinButton11_Change()
TextBox11.Value = SpinButton11.Value
End Sub
・
・
・
こんな感じでたくさん同じコードがあるのですが、これをまとめるやり方をお願いします。
検索でクラスを使うと良い。とあったのですが、よくわかりませんでした。

COUNTIFの第一引数が直接配列を取れるって意味ではないからね
レンジ形式だからね

excel2003で質問です。

'1001-1

と表示されているセルを

1001-1

と表示させたいのですが出来るだけ簡単に沢山のセルを一括変換する方法を教えて下さい。

ここは質問時上げるんでしたっけ？

>>274
ctrl+H '1001-1 1001-1じゃ駄目なの？そういうことじゃなくて何か深い内容があるの？

表示はともあれ、どのように入力されているのかを書かないと…。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】　EXCEL関数　集計　グループ化等

いま勤務先のクレジットカードの利用金額の月毎の表を作っているのですが
毎日の利用者数がちがうため、一定の場所に収められないため
日付　　金額
１　　　1000
　　　　1000
　　　　1000

２　　　1000
　　　　1000

４　　　1000
このようになっています。このような形で１日〜２０日の集計を出したいのですがうまくいきません。
どうしたらよいでしょうか？
一応グループ化などを行ってみましたがうまくいきませんでした。
よろしくお願いします

>>278
日付を全部埋めてピボットテーブルレポート使うと便利ですよ。

日付　　金額
１　　　1000
１　　　1000
１　　　1000
２　　　1000
２　　　1000
４　　　1000

日付が全部埋まってんなら
=SUMIF(A:A,"<=20",B:B)
で20日までの合計は出るんだけど。。。

>>276
回答どうもです。
深い意味はありません。ただセルを一つづつ選択して’を消すには
セルの数が余りに多すぎるので一括して消したいのです。
ctrl+HはBSキーに割り当てているので消せませんでした。

>>277
csvファイルから読み込んだ'1001-1という文字列がexcelでも'1001-1と表示されています。
同じ文字をexcelに直接入力すれば’は表示されず1001-1と表示されます。
実際に入力されているのは'1001-1です。

>>274
編集／置換
置換え後の文字を未入力にする

>>282
すいませんが書かれている意味がわかりません。
具体的にどういう処理をするのでしょうか？

>>283
メニューから編集を選ぶ → 置換を選ぶ
検索する文字列のところに ' と入れて「すべて置換」ボタンを押す

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

マルチページのページ数を4に増やしたいのですが、どこで設定するのでしょうか？
よろしくご教授願います。

>>285
タブの部分を右クリックして新しいページ

ツール→オプション→全般
のことを聞いているのだと思う

>>285
ありがとう御座います。解決いたしました。

どうでもいいですが、×教授○教示でしたね。失礼しました。

VBA使えない奴ほど使えない奴はいない

【1 OSの種類 　 　 　 　 .】 Windowｓｘｐ
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　割合

例えば１つの棒グラフで１００の棒の割合で４０や５０を中に入れて
どのくらいの割合かを分かりやすく見せたいのですが、どうすればいいのでしょうか？
おねがいします

>>289
だよな。
Excelに限らず表計算ソフトは､ワープロソフトと違ってマクロが使えてなんぼなのに
マクロも使えずMicrosoftOfficeSpecialistのExcel Specialist程度で
｢Excel使えます｣とか､ちゃんちゃらおかしい。

>>290
積み上げ？

>>291
可哀相にずっといじめられてたんだろ、ここでうっぷん晴らしちゃいな

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

国家の統計の値の推移を比較する折れ線グラフを作るのですが、
毎年すべての国で行われている調査ではないので、毎年の値を出すことが不可能です。

A国 1980年は100、1990年105
B国 1985年は102、1995年112
というグラフを作るときは、どう入力すればよいでしょうか？

----|A--|B--
1980|100|空欄
1985|空欄|102
1990|105|空欄
1995|空欄|112

では散布図みたいなのができてしまいました。

>>291
お前の腐った脳ミソの方がもっとちゃんちゃらおかしいｗｗｗ
まっ、いわゆる『クズ』だな。

きっとVBAは使えても関数が使えない可哀相な子…

>>294
これ？
ttp://www.relief.jp/itnote/archives/000748.php

>>297
それです！できました・・・。
ありがとうございました。

こんなグラフを作りたいんだけど、作り方おしえてくれ
何グラフにすればいいんだ？

http://f.hatena.ne.jp/kobarin/20070618203430

>>299
100%積み上げ縦棒

>>300

棒が２本あるんでこまってんだ。
2本を横にならべるにはどうすんだ。

まず、どういう表をつくればいいのかがわからん。

>>301
　｜1　　　　　　2
-｜―――――――――
A｜0　　　　　　739221
B｜5102578　1944094
C｜5723779　8143051

これで棒の重なり０にしたらサンプルと同じグラフができる

>>301
データを2列に並べて書くと棒も2本になる。
2本の棒をくっつけるにはデータ系列の書式設定→オプションの間隔を0にする

>>302-303
やってみます！　激しく感謝しる

VBA使えない子達の必死な反応っぷりにﾜﾛﾀw

>>305の必死な反応っぷりにﾜﾛﾀw

これは痛い
やっぱ劣等感があるのかな?

とりあえず難易度は
関数単発＜VBA＜関数の複雑なネスト
だな

>>308
おおむねそうだと思うが、VBAはプログラミング言語経験の有無で
難易度があからさまに違うからなあ。

ひとつでも経験があればこんなに易しいものはないし、
まったく未経験ならしばらく手間取るのは仕方ない。

ﾏｸﾛの記録がうまくいきません。
指定したセルのみの高さを20センチに変更したい。
範囲指定なら範囲全てのセルを。
アクティブセルを基準に相対的な位置を記録する相対参照でもなく、
当然絶対参照でもない。相対参照だと基準を軸に動くし、
絶対参照だとそのセルに飛ぶ。
以前は普通に記録し普通にボタンを作り、普通に使えていたのだが、
OSｸﾘｰﾝｲﾝｽﾄｰﾙ後、再度記録しようとしたらまったくうまくいかない。
どうしたらいいのだろうか。。。

別のファイルで作業中のファイル保存してみたら今度はうまくいきました。
指定した行やセルのみの高さを変更することができます。
どう作業が違うのか分からない・・・・
同じように作業しているのに出る結果が全然違う・・・

>>308
関数の複雑なネストって･･･w
関数式はいくらネストしたってVBAの右には来ないよ
配列式のネストなら話は別だが

>>284
お礼遅れてすいません。
うまく行きました。ありがとうございました。m(__)m

>>312
{=SUM(IF(B1:B12="販売実績",C1:C12,""))}
だって関数のネストだよ。まあいいや、訂正。

難易度は
関数単発＜VBA＜複雑な配列式のネスト

>>312
いろいろ人に教えたことのある身としては、
VBAの基本を理解できる人でも、
複雑な関数の組み合わせが理解できないという人は
非常に多かった。そんなもんだ。

気持ち悪いな

雑談は雑談スレでやれ

【質問不可】Excel総合相談所スレの雑談・議論スレ2
http://pc11.2ch.net/test/read.cgi/bsoft/1151651536/

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 プルダウンメニュー　値　リンクなど

プルダウンメニューを使用して連動した値をほかのセルに入力したいです。
たとえばＡをプルダウンメニューで選択したら、隣のセルににＸその隣のセルにはＹとあらかじめ入力しておいた値を連動して入れていきたいのです。
ご教示のほどよろしくお願いいたします。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可（VBAについてわからんが、頑張ってみます）
【5 検索キーワード 】　エクセル　置換　一斉　一気　など

ある膨大な間違った数値の入ったデータの数値を正しい数値に置換するのが目的です。
そのデータの他に、正しい数値のわかるファイルもあり、
A列に間違った数値、B列に正しい数値が入っています。

もし後者のデータを使って前者の間違っている数値を
一気に置換できるのでしたら、教えて下さい。宜しく御願いします。

>>314
△だって関数のネストだよ
○だって配列数式内での関数のネストだよ

>>319
こんな感じでどうでしょうか。^^

Sub 置き換え()
　　Dim Dic As Object 'Dictionary
　　Dim rngMoto As Range
　　Dim rngSaki As Range
　　Dim R As Range
　　
　　Set Dic = CreateObject("Scripting.Dictionary")
　　Set rngMoto = Workbooks("正book.xls").Worksheets("Sheet1").Range("A1")
　　Set rngMoto = Range(rngMoto, rngMoto.End(xlDown))
　　Set rngSaki = Workbooks("誤book.xls").Worksheets("Sheet1").Range("A1")
　　Set rngSaki = Range(rngSaki, rngSaki.End(xlDown))
　　
　　For Each R In rngMoto
　　　　Dic(R.Value) = R.Offset(, 1).Value
　　Next
　　For Each R In rngSaki
　　　　If Dic.Exists(R.Value) Then
　　　　　　R.Value = Dic(R.Value)
　　　　End If
　　Next
　　
　　Set Dic = Nothing
End Sub

VBA使えない奴が多いのはわかった。

>>321
をいをい

>>318
どこか別の場所に一覧表(対応表)を作っておいてVLOOKUP

A列の数値は重複しないんだろうか

>>319
正誤表が別のファイルにあって、一括置換するプログラム

Sub 訂正()
Dim objXLS As New Excel.Application
Dim EWB As Excel.Workbook

'正しいデータの書かれたファイルを開く
fname = "C:\正誤表.xls"
Set EWB = objXLS.Workbooks.Open(fname)

'修正前と修正後のデータを1つずつ取り出して置換
I = 1
While EWB.Sheets("Sheet1").Range("A" & I) <> ""
Cells.Replace What:=EWB.Sheets("Sheet1").Range("A" & I), Replacement:=EWB.Sheets("Sheet1").Range("B" & I), LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
I = I + 1
Wend

'完了
EWB.Close
Set objXLS = Nothing
End Sub

ここって、ＶＢ表現はありなの？

？

VBAの中で動けばなんでもアリじゃない？

単発関数は、基本
ＶＢＡは、道具
関数ネストは、論理
それぞれ、比較する意味無し。

>>324
有難う御座います！夕方、会社にもどりましたら試してみますね！

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

一つ左のセルと二つ上のセルの数値の合計を出すという風にしたいのですがよろしくお願いします。

いつも=sum(　でctrlキー押しながら指定してるので；；

>>332
1つ式を作ったら、あとはコピペ。
セル番号はペーストした場所に応じて自動的に変わってくれる。
別のシートでも別のブックでも、同時に開いた状態ならそのままコピーできる。

>>332
いきなりどのセルに入れても、左と二つ上を足す式ってのは作れるけど、
長くなるからあんまり省力化にはならない。
=OFFSET(INDIRECT(ADDRESS(ROW(),COLUMN())),0,-1)+OFFSET(INDIRECT(ADDRESS(ROW(),COLUMN())),-2,0)

あと、計算式の入力にはこういう方法もある。
キーボードを「=」「←」「+」「↑」「↑」Enter、の順に押す。
覚えてしまえばマウスを使うより何倍も早くできる。

>>334　相対アドレスで式つくればすむ話だろ　B3=A3+B1　無理やりすぎｗ

こんな単純なことをわざわざ質問してくるぐらいだから、相対参照は使いたくないんじゃないの？
正直、質問者の意図が今一つ理解できないんだよね。わざわざSUM関数を使う意味もよくわかんないし。

>>335
「どのセルに入れても」って書いてあるでしょ。
それだと入力するセルに応じて式(セル番号)が変わるじゃん。

>>334
その考えで数式を組むなら
=INDIRECT("RC[-1]",FALSE)+INDIRECT("R[-2]C",FALSE)
って方法もあるんだぜ

>>338
私が勉強不足でしたすいません。

みなさんありがとうございました；；
実は私もOFFSETでやろうとしていました・・
>>338さんの短くていいですね！
使わせてください！

m(。_。;))m ペコペコ…

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

HPから表データをコピペしました。データの一部にURLリンクが入ってて
コピペでそのリンク情報も入っちゃいます。
現状、リンクのあるセルと無いセルがごちゃまぜなんですが
一気に全てのURLリンクを外す方法ってないでしょうか？

>>3441
VBA使うのが手っ取り早いんで､VBA使う方法しか知らない
VBA使わずに出来るかどうかなんて無駄なことは考えたことも無いからなぁ

>>341
リンクを外したいセル(範囲)を選択 → Ctrl+C → Ctrl+V → Ctrl+V

これでリンクはみんな外れる。

でもそれだと…

>>3441
大元のHTMLｿｰｽを書き換えてからコピペしなおすとかは？

>>344
文字の青色とアンダーラインもリセットしたいなら、まず空白のセルを1つコピーしてから
目的の範囲を選択、「形式を選択して貼り付け」→「書式」のあと、Ctrl+C-V-V

>>326　
ありがとうございます、ただ途中で引っかかってしまいました

>>While EWB.Sheets("Sheet1").Range("A" & I) <> ""

ここの意味について教えていただけないでしょうか？
自分でも調べてみますが・・・

ラルク-アン-エクセルに改名してほしいのですが
どうすればいいですか

>>347
置換用のデータをA1、B1から順に取り出していき、A2、A3と進んでいって、
A列のセルが空白だったら終了するという意味です。

ファイル名とシート名の部分は自分の用意したファイルに合わせて書き換えてください。
シート名を書き換える時は3ヶ所とも書き換えてください。

342
この子VBAにとり憑かれてるネ！可哀想、、、
応用力なんて微塵もないんだろうなぁー

>>348
マイクロソフトの株を51%買えば何でも思い通りになるぞ。
18兆円ぐらいあれば大丈夫。

応用力ない奴はVBA使えないんじゃない

この子（笑）

>>350はFOMで出来る気になっちゃった
役立たず派遣主婦か？

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

すみません、お願いします。表現が難しいのですが、
A4用紙で印刷した時、印刷した用紙が６分割又は８分割になるようにセルを設定して
罫線を引きたい（切り取り線みたいな形で、切ると６枚・８枚に）のですが、
簡単にできる何かよい方法はありませんでしょうか？
（余白は０でヘッダ・フッタも０で設定・垂直水平に設定としています）
宜しくお願いします<(_ _)>

>>349
ありがとうございます、どうやら走ってるっぽいです
ただ結構時間かかりそうですね
VBAって時間はかかるものなんでしょうか？
かかるのは構わないのですが、フリーズしてないか心配なので・・・

ちなみに、正誤表も元データも10000行以上あります

>>342
つかえねーwww

>>356
もう手遅れかもしれませんが、途中経過を確認する必要がなくて、
セルの内容を大幅に書き換えるようなVBAを動かす場合、
サブルーチンの最初に以下の2行を追加すると、処理スピードが何倍にも速くなります。

ActiveSheet.EnableCalculation = False
Application.ScreenUpdating = False

上の2行を追加した時は、必ずサブルーチンの最後の部分に以下の3行も書き足してください。

Application.ScreenUpdating = True
ActiveSheet.EnableCalculation = True
ActiveSheet.Calculate

あと、結果が未知のVBAを使う時は、行数の少ない試験用のデータで動作を確認してから
本番に移った方がいいですよ。

>>356
よほどボロPCとくされコードじゃなきゃ
大して時間かからない

>>355
Excelで決まった間隔の線を引くのは非常に難しい。簡単にやる方法はない。
セルの幅や高さをミリ単位で設定するためのアドインをネットで探し、自分で紙の大きさを測って、
実際に印刷してみて、ずれていたら微調整という作業を繰り返すしかない。

あと、エクセルの設定で余白を0にしても、プリンターの仕様で余白が0にできないこともあるので注意。
また、同じシートを何枚も印刷すると、1枚ごとに印刷位置がちょっとずつずれることもあるので、
厳密にやるのは不可能だということを念頭に置いておくこと。

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

長いひとつながりのテキストを、
特定の「A」という文字の前で改行（列を変える）したい
と思っているのですが
なにかいい手はありませんか？
セル内改行でなく、別セルに改行したいのですが
よろしくおねがいします。

>>355
Excelは表"計算"ソフトであって､図表作成ソフトではない

用途に相応しくないことを無理矢理やるのは､それを自分の力(技術や労力)のみで出来る人のみってことで
自分で出来ない人は､用途に相応しいソフトを使ってください

マクロとＶＢＡの違いってなんですか？
ＭＯＳスペシャリストを最近とったのですが、全く触ってません。
これから勉強するにあたり、どっちを先に勉強したらよいのですか？

低レベルな質問ですいません。。。

>>363
VBAがマニュアル車。マクロがオートマ車

別プロシージャにシートの参照を渡すとき、受け側はByValとByRefどちらがいいの？

>>363
マクロの中身はVBAでできている。マスターしたいならVBAをきっちり覚えるべし。

厳密に言えば違うけど、いまは同じものを指してると思っていいです。

>>365
処理の内容による。

マクロは機能
VBAは Visual Basic for Applications という言語名

>>361
これで

Sub 改行()
dl = "A" '区切り文字を決める
ar = Split(Range("A1"), dl) 'セルA1から文字列を取り出して分割
For i = 1 To UBound(ar)
ar(i) = dl + ar(i) '区切り文字そのものが消えて困る場合は元に戻す
Next i
Cells(1, 2).Resize(1, UBound(ar) + 1).Value = ar 'セルB1以降に分割された文字列を入れていく
End Sub

>>365
シートの参照ならByRefで十分だと思うが、ByValの方がいい処理って思いつかないな。
>>368教えてちょ

>>314
複雑な配列式のネストなんてほとんどヴァカのやることだぞ？

いつの時代もスピードとメンテ性のどっちをとるかでみんな悩んでるんだよ。
配列式のネストはブラックボックスにはいいけど、あとで修正する身にもなってくれ。

たくさんのレスありがとう

じゃあ素直にＶＢＡの入門書でも買って覚えてみます。
>>364の例えは何気にわかりやすかったｗ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　作業時間　個数　仕事
エクセルにて計算をしたいのですが、個数×1つあたりの作業時間（分）=何日何時間何分と表示させたいのですが、どうやれば良いのでしょうか？。セルの書式設定あたりの調整が必要だと思うのですが、わかりませんでした。
どうかお願いします。

>>375
書式設定のユーザー定義で
d"日"hh"時間"mm"分"

回答ありがとう御座います。
しかしそれでは、できなかったのです。
A | B|書式d"日"hh"時間"mm"分" c|
1|個数　|必要作業時間| かかった作業時間|
2|1　　|　　　　　　5|5日00時間00分
3|100　|　　　　　　5|14日00時間00分
4|1000 |　　　　　10|18日00時間00分
となってしまいます、C2は5分、C3は8時間20分、C4は?日?時間?分となって欲しいのです。
可能ですか？。

>>370
ありがとうございます！できました（＾▽＾）

書式設定では無理かな
関数を組み合わせて地道にやるしかない

>>377
とりあえずB列に入力するのは
0:5
0:5
0:10
で

>>377

>>377
Excelで数字の1ってのは1日のことだから、時間単位にするには24で割って、
さらに分単位に直すには60で割らないとだめなのよ。
つまり、C列に入れる式は
=A*B
じゃなくて
=A*B/24/60
ってことね。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 可
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 レーダーチャート　くもの巣グラフ

レーダーチャートでグラフを作成中なのですが、離れすぎた値をうまい具合に収める方法がわかりません
一つの数値だけにまっすぐ伸びていくような感じになってしまいます。改善策ありませんか？
また、普通の数字と、パーセントは同じグラフの中に入れれますか?

>>380なら割らなくてもいいけどな。

>>384
入力が面倒だよ

>>383
軸の書式設定を対数目盛にするのはどう？

>>384
表の見た目が変わっちゃうし入力の手間も増える

>>386
さっきより形になりました！
ありがとうございます！！

できました!!。とても助かりました。
本当にありがとうございました。

>>360 >>362 有り難うございました。微調整でなんとかやってみます。

WindowsXP, Excel2003
VBA; たぶん使えるけどできれば避けたい

縦方向と横方向を入れ替える形で、他のセルを参照したいのですが、
(縦方向に "=A1", "=B1", "=C1", "=D1", ... という値を連続で入力したい）
何か簡単にできる方法はありますでしょうか？

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 WindowsXP Home SP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル 近似 切片 日付

体重を記録してってグラフに出しているというお恥ずかしい状況なのですが
横軸に日付、縦軸に体重の折れ線グラフを作り、
線形近似で直線を出したとき、切片の指定がうまくいかず困っています。

具体的には、1900/1/1が日付のスタートの仕様になっているため
記録をとり始めた時の体重をそのまま切片に指定してしまうと。
1900/1/1に切片がとられてしまいます。

5のキーワードで検索したところ、yahooでは一番上に教えてgooでまさに同じ内容の
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1211534362
というものがあるのですが、もう少しまともな方法は無いものでしょうか？

(x,y)=(○,△)を通る線形近似、という指定が出来れば楽なんですが･･･

excel2003使っています。
以下のようなデータがあったとして、

種類　　商品　　　金額
果物　　みかん　　200
果物　　りんご　　 100
果物　　ブドウ　　 300
魚　　　 鯛　　　　 300
魚　　　 サンマ　　100
野菜　　レタス　　 100
野菜　　トマト　　　150
野菜　　キャベシ　200

これを以下のように集計する機能があったようなウヤムヤな記憶ですが、
どのようにすれば出来るでしょうか？

種類　　金額
-果物　　500　　　　　　　　　　　　　←「果物」の前の+をクリックすると
　　　　みかん　　200　　　　　　　　　　展開して、+が-になる。
　　　　りんご　　 100　　　　　　　　←展開した行には、その種類の内訳が出る。
　　　　ブドウ　　 300
+魚　　　 400
+野菜　　450

>>393
データ　→　集計

>>358-359
すいません、終わりましたｗ　
本当に助かりました、なんといったらいいのかわからなくなるくらいありがたいです
>>358のものに関してはまだ使うことがあるので、是非利用させてもらいます

本当にありがとうございます。

くだらない事お聞きします。
関数を使って割り算をしたいときはどの関数を使えばいいのでしょうか？
ＭＯＤは除数のあまりしか出してくれないのですが・・・
素直に/で計算？？？

>>392
体重のデータの隣にもう1行(または1列)用意して、そこに本来の日付を入れておけば
好きな範囲のグラフが作れると思うんだけど。
そういうのじゃだめなの？

>>396
50÷8 = 6余り2 の 6を出したいってこと？？
それならROUNDDOWN関数（切捨て）を使う

6.25という答えが欲しいなら、普通にA1/A2
関数というのは、基本的に四則演算で出来ないことをするためのものだと思うが

>>396
そうです。

ありがとうございます。
参考になりました！
ラウンドダウンだ。

サークルで１３人で旅行に行きます。
運転手・幹事共に割り引くという習慣がありますので、二人の分を２５％割引し
割り引いた分を他の１１人に負担させる計算はどのようにしたらいいのでしょうか？

>>401
つ【電卓】

授業中ノートはきちんととりましょう

>>401
それってExcel関係あんの？
あと、配分方法がよくわからないんだけど、
最終的な金額が25%差になるようにするのか、
それともまず13等分してから、割り引いた額をさらに11人に上乗せするの？

学校の宿題か？

関数の使い方を聞きたかったんじゃないの

考え方すら分かってないのに関数使うことできないだろ

>>401
この類の問題はゴールシークやソルバー使うと楽にできるよ。
13人の旅費合計が目的の値になるように一人当たりの負担額をexcelに求めさ
せればいい。

>>396
>>398
小数点以下の切り捨てならROUNDDOWNは無駄だぞ？
INTを使え
=INT(50/8)

関数と演算子の区別がついてないやつがいるな

>>373
意味不明
メンテ性が悪ければいいとこ何もないじゃん
スピードが速いとでも思ってるの？

>>409
マイナス値も想定するとINTは駄目

>>412
そんなのは用途次第
-6.2を-7にするケースも多い
-6にしたければTRUNCを使えばいいだけの話

>>413
お前この流れで-6.2をー7にする用途だと思ったの？バカだろ

>>414
バカはお前
何で小数点以下の切捨てにROUNDDOWN使うんだよ

はいはい　えらいえらい

>>415
さて小数点以下という
指定された桁数で切り捨て　にはどちらを使うべきかな(￣ー￣)ﾆﾔﾘｯ

指定された桁数で切り捨て→ROUNDDOWN
指定した数値を超えない最大の整数を返す→INT

>>417
お前基地外女か？
話の流れでマイナスがどこに出てるのか知ららいが-6.2を6にしたければTRUNCだ
ROUNDDOWNはバカ

>>417が読解力と応用力のないゆとりなのはわかった

>>324
できました！有難う御座いました。

元の質問は数値を切り下げる方法ではなく商の整数部を取り出す方法ではないのか？
話の流れからそう判断したんだが。

>>401
運転手と幹事は0.06を掛ける
他の者は0.08を掛ける
こういう複雑な計算は
エクセルに限るなｗ

小数点以下の処理は忘れずになｗ

>>421
悔しさのあまりマイナスを持ち出したやつがいる
TRUNC関数を知らなかったらｽｲｗ

>>397
僕の言い方が悪いんでしょうか…

1900/1/1が起点になっているのはExcelの仕様です。
横軸に日付、縦軸に体重として散布図でグラフを作って
もちろんグラフの範囲はデータのある期間になってますが
線形近似の切片を指定するとＸ＝1900/1/1でのＹ(体重)と判断されます。
なお常識なのだとは思いますが、日付のデータはおそらく
1900/1/1を「1」として1日進むごとに＋1していくものです。
携帯からなので正確な計算はしませんが、2007/11/30は大体100年ちょっと経っているので
「37000」くらいの数値になります。
これをセルの書式を「日付」とすると勝手に変換して読み込むようです

>>423
割り勘を1円単位で計算するとウザがられるから100円単位に切り上げたのち、
超過分を総合計からこっそり引いて幹事のフトコロに入れる処理を忘れちゃいかんよ。

>>425
ふつう切片はxが0の時のyの値だからしかたない
それと1900/1/0基準ではないか?

>>396
切り捨て系の関数でみんな熱くなってしまったが、
君はMOD()が機能的に近いと分かったいるなら、ヘルプでMOD()を出して「関連項目」をクリックしてみようと思わなかったのか？

>>426
そこまでいくと、Excelの練習問題としてちょうどいいかもなw
「旅費が××万円だったとき、幹事の取り分はいくらになるでしょう？」って。

>>427
そうですね、切片の日付はコピペったミスです…

切片の数学での意味はもちろん分かっているので、だからこそ代替方法を、
例えば(x,y)＝(○,△)を通る〜という指定が出来ないのか、という質問なのですが
やはり無理なんでしょうか？

>>430
グラフのみの使用ではあなたが検索した「データをずらす」
それ以外も使っていいなら計算式を使って切片等を自動で求めるか
ゴールシークや分析ツールで工夫してみるとかくらいしか思いつかない

Excel２０００　OSW2Kです

セルの編集について質問です
ロータス１２３ではセル編集時に（F2）キーを押せばマウスでダブルクリックしなくても編集
操作ができました

Excelでそのようなショートカット的な機能はありますか？

できればマウス操作無しで表計算をしたいです

よろしく御願い致します

>>432
F2

VBAでお願いします。

A=現在時刻　　'=NOW()
C=昨日の時刻
とした時、If A - 0.002083 < C And C < A + 0.001389 Then
にすると、日にちの分が計算されてしまいます。
AとCに時刻(小数点)だけ取得する方法を教えてください。
（TIMEVALUE(A)でやってみましたがダメでしたorz）

1の剰余で比較すればいいんじゃね？

>>435
了解です。CPUに負担かかりますが、これで対応します。

Do While A > 1
A = A - 1
Loop

F２　おしてもダメなんですけど
どこかに設定があるのでしょうか？

すみませんExcel初心者のモンで

>>437
ツール →オプション →編集 →セル内で編集する

>>434
A=A-INT(A)

>>436
A=MOD(NOW(),1)
C=MOD(昨日の時刻,1)

＞440
それはワークシート関数ずら。

>>439
ありがとうございます。
こっちの方が処理早いですね。

在　日　参　政　権　付　与　反　対　デ　モ　に　来　れ　る　者　援　軍　求　む　！
http://sports11.2ch.net/test/read.cgi/offmatrix/1196265306/

外国人参政権がなぜいけないか
http://jp.youtube.com/watch?v=reIRrRDzFxE
【政治】 「放置すると、日韓関係にヒビ」 外国人参政権付与、成立への流れ加速も…公明に各党同調、自民反対派は沈黙、首相次第か★２０
http://news22.2ch.net/test/read.cgi/newsplus/1196405135/

この法案が成立したオランダじゃ、永住イスラム人がどんどん増え
そのせいで今もどんどん文化と国そのものがぶち壊されちまってる。
そして、オランダ以外のこの法案が成立した国々でも全く同じことが起こってる。

永住外国人にはかなりありがたい法律だけど、国民にとっちゃ百害あって一利なし。

そ　ん　な　悪　法　が　日　本　で　も　成　立　し　よ　う　と　し　て　る　ん　だ。

こんな大事になのに、マスコミは沈黙を決め込んでいる。
だから　俺らの力で何がなんでも阻止しなきゃならない。
　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
このコピペをみた奴はMixiや自分のブログにこのことについて記事を書いてほしい。
どんな簡単な記事でもいい。アドレスを貼るだけでもいい。
もしくは、このコピペをどっかに投下するのでもいい。
とにかくどんな方法でもいいから、できるだけ多くの人にこのことを伝えてほしい。


お願いだ。今回は冗談抜きで日本の未来が危ない。

時計関連のネタついでに質問だけど、エクセル上でリアルタイムを表示し続けるって結構難しいこと？
とある理由でVBAを先週くらいから使い始めたんだけど、単に時刻（タイマーでも）を表示することが
結構困難でいまいち希望の動作ができなかった。

ウェブでチラ見してもいまいちパッとしないよね。

Sub Sample()
Application.OnTime Now + TimeValue("0:00:01"), "Sample"
Range("A1").Value = Now
End Sub

できたぞ

>>444
あんまりいい方法じゃないけど、特定のセル(この場合はA1)に時計を表示し続けることは可能。

Sub 時計()
Application.OnTime (Now + 1 / 24 / 3600), "時計"
Range("A1") = Format(Now, "hh:mm:ss")
End Sub

あ、一歩遅かったか…

とりあえず、書式を設定しないと秒が表示されないから、それだと1秒で回す意味がないぞ>>445

>>445
まぁ大体同じかな。俺が作ってた奴と。
たださぁ、それ。一秒ごとにマクロ実行するからちらつくんだよね。
もちろん描写falseにしてるけど。
なんかいい方法ないかなｧ。

っておお！
>>446はちらつかないジャン。
これ貰うわ。

関数の値を固定する方法ってありますか？

例えば=rand()をその時出ている数字で固定するとか。
いちいち再計算して遅くなってしょうがないんです。(T-T)

カリキュレイト＝マニュアルとかなかったっけ？

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

会社であてがわれたパソコンにインストールされているExcle2003なのですが、
少し挙動が違うので、質問させてください。

結合セルを含むように、行番号や列番号をクリックしたときの動作です。

例えば、セル範囲B2からE5が結合されているとします。列番号のCをクリックすると
C列のみが選択されるはずですが、B列からE列までが選択されてしまいます。
同様に、行番号の３をクリックすると3行目から5行目が選択されてしまいます。

結合セルにかかるように、列番号や行番号をクリックすると、結合範囲に含まれる、行や列がすべて
選択状態になってしまいます。

私のパソコンだけそのような動作になってしまうので、シートの修正が非常にやりにくいです。

いろいろ調べましたが、解決できていません。厄介なことにOffice2003をインストールしなおしたのですが、
それでも、修正されません。OSごとのインストールが会社の管理基準に抵触するので、おいそれとは
できないのです。

なにか特別な設定でもあるのでしょうか。ご存知の方がいましたら、どうか教えてください。
お願いいたします。

あぁ、やっぱり>>446でも一秒ごとにチラチラしてしまうなぁ。
ﾏｳｽポインタが脈打ってるみたいになる。

もう、いっその事
Sub test()
Call Shell(Environ("ComSpec") & " /c start timedate.cpl")
End Sub
とか

>>438
どうもありがとうございます
できました

ついでに
MacOS10.5　　Excel2004
の場合はどんな感じでしょうか？

よろしくお願い致します

仕方ないな。ﾌﾗｯｼｭの時計を配置するか。

>>450
手動計算にすると、もどせなくなる人続出・・・たぶん

Excelに時刻表示するよりtclockでも入れた方がいいんじゃないの

>>457
いにゃ、ﾃｨｰｸﾛｯｸは入れてるけどそういうのとはﾁと違うんだよね。
質問ではリアルタイムの表示としたけど、
実際欲しいのはタイマー。

とある動作をしたあとにタイマー表示していくみたいな。
んでリアルタイムが取れればC＝A-NOWとかで簡単に出したいな。って考えていたけど、
どうもエクセルVBAは時間が苦手みたいだな。

ごめん。とある動作のときにA=Now()
タイマーC＝Now-Aってことで>458は。

まぁアレだわ。時計を表示するなんてありふれた内容のものが
ウェブを見てる限りなかなか上手く言ってないところを見ると、
これはエクセルVBAですべき内容じゃないだろうな。
諦めて他の手使うよ。
どうもありがとう。

>>459
このスレで扱うのはVBAまでって決まってるから回答はしないけど、
ActiveXを使うと、もうちょっとマシなもんができるよ。ぐぐってみ。

>>456
つまり自動計算の設定のまま自動計算を止めたいって事デスカ？

>>460
('A`)ﾒﾝﾄﾞｲからいいわ。

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

フィルタオプションで、重複のデータを削除したのですが、
完全には削除できません。完全に削除するにはどうしたらよいのでしょうか。

2ch語辞典=http://www.media-k.co.jp/jiten/wiki.cgi?mycmd=search&mymsg=$TEXT
2ch語辞典=http://www.media-k.co.jp/jiten/wiki.cgi?mycmd=search&mymsg=$TEXT
2ch鯖勝手な監視所=http://users72.psychedance.com/
2ch鯖勝手な監視所=http://users72.psychedance.com/

どうみても、同じデータだと思うのですが、フィルタオプションしても変化なし。
どういう判断で、違うデータと認識しているのでしょうか。
どうかよろしくお願いします。

>>461
そう。
vlookupとかオートフィルで大量に入ってるんですが、
もう変更の可能性がない分は、氏名とかセルにそれが
普通に代入されている状態にしたいんです

タイマーとか特に何もいらんだろ
sub hoge()
dim time1
time1 = time
処理
debug.print "実行時間=" & format(time - time1, "n:ss")
end sub

とりあえず、計算手動で行きます。
サンクス

>>464
入力終わったら値の貼り付けで数式解除すればいいじゃん

エクセルでなんとか好きなあの子とセックスしたいのですが
どういう関数を使えばいいですか？

>>467
値のはりつけ？？
それってどうやるんですか・・・すんません

>>468
とりあえず好きなあの子をエクセルファイルにしろ
話はそれからだ

VBAがせっせと活動してる待ち時間に
エロいこと考えて勃起してる俺だから
関数やVBAの挙動をみるだけで濡れる女がいるかもしれない。

>>469
式を消して結果だけを残したいセルを範囲選択してコピー、選択した範囲内を右クリック、
形式を選択して貼り付け、値、OK

このド低脳がぁーーーーーーーーーーーーッ！

ごめん

確率ｎ％を３回試行した場合に
３回とも成功 ２回とも成功　１回成功 全部失敗の数字を出したいんですが
どういう計算式作ればいいでしょうか？

○○○　3回とも成功＝n%^3

○××
×○×
××○　1回だけ成功＝n%*3

○○×
×○○
○×○　2回だけ成功＝n%^2*3

×××　全部失敗＝(1-n%)^3

あんまし自信なし

>>475
エクセルの問題じゃない

【sin】高校生のための数学質問スレPART153【cos】
http://science6.2ch.net/test/read.cgi/math/1196074672/l50

こっち池

>>475
計算式というか、そのまんまBINOMDISTワークシート関数かな

とあるネトゲ制作会社に内定が決まりました。
本採用の条件として、いくつかの課題が出されました。
しかし全く分かりませんので、どうかアドバイスを
していただけないでしょうか？
よろしくお願いいたします！！


１．エクセルのオートシェイプ機能などを用いて
　下記WEBサイトの仕様書(各ページ仕様、ページ遷移図)を作成してください。
　http://www.emotion-puzzle.com/

２．2つのcsvファイルが同じであることをエクセルの関数を使って証明してください。

>>479
そういうのを自分であれこれ調べてできることが条件なんだと思うが。
他人に任せるのは違うんじゃないか？

「全く分からない」というのも、「何も試していない」ってことだろ？

できないのに入社したら余計苦労するよ。つかえねーっていわれてクビになるのがオチ
つーか１はつくればいいんだし、２はちょっと考えればだれでもできそうだが

自己解決したので報告。簡単なのに思いつくまで時間かかった

(手順1) "=A$1", "=B$1" と横に記入したセルを延長する
(手順2) 手順1で作った部分を選択して、行列入れ替えで数値のみコピー

>>482
参照だったらこれでよくね？
A1:D1を元データとすると、A2:A5を選択しといて
=TRANSPOSE(A1:D1)
でCtrl＋Shift＋Enter

Thanks、専用の関数があったとはorz
おかげで、次はもっと楽できそうです

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

例) A 　1〜10
B　11〜20
C　21〜30
　　 D 31〜…

と言う表を作りました。
数字を入れたらアルファベットの部分を返すような式を作りたいです。
IFを入れて作ってみたりしたのですが、うまく行かないのと、仮にうまく行っても、結構な量なので賄いきれない気がします。
どなたか教えて下さい。
お願い致します。

逆につくると楽。これなら単純なVLOOKUPが使える。
１　A
２　A
３　A
省略
１１　B
１２　B

１　A
１１　B
２１　C
３１　D
この形式にすれば、LOOKUPを使えばできる。こっちのほうがいいかも。

行数が１００万を超えたらできないポ
値が大きいんだったらLookup使うか、ceilingとvlookupのネストがいいかも

表を左右逆にすればVLOOKUPだけでできるんじゃないか？

A列 B列 C列
　1　 10　 A
.11　 20　 Ｂ
.21　 30　 Ｃ

始まりと終わりの数字が別々の列に入ってて、数字の範囲が切れ目なく連続していればMATCHで検索できる。

例えば表の中にこんな部分があって、5に対応するアルファベットは存在しない、みたいな特別なケースがあると、
この方法は使えなくなる。

A 1〜4
B 6〜10

A 1 10
B 11 20
C 21 30

=INDEX(A1:A4,MATCH(検索値,B1:B4))
が俺の基本形

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ActiveCell count union セル　選択行

入力用シートの選択行の各列の文字列を抜き出し、帳票のフォームに反映するマクロを作成したのですが
作業者に「複数行を選択して、連続で表紙を印刷できるようにして欲しい」と言われたのですが
複数行の行番号を配列変数に代入する方法がわかりません。

単一行の表紙コピペのコードはこんな感じです。
Sub P_GetRow()
Tg_R=ActiveCell.Row
call P_GetValue(Tg_R)
call P_SetValue
End Sub
Sub P_GetValue(Tg_R)
FrmOrderNum = shtDB.cells(Tg_R, 3)
End Sub
Sub P_SetValue(Tg_R)
shtForm.cells(5, 4) = FrmOrderNum
shtForm.PrintOut
End Sub

現在はこんな感じですがSub P_GetRowのTg_Rを配列変数なりに変更して
選択行を連続で印刷したいです。宜しくお願いします。

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


入団テストで
投手は遠投、スローイングが上限200点まで
バッティング、ノック、ベースランニングが上限100点まで

野手はノック、バッティングが上限200点まで
遠投、スローイング、ベースランニングが上限100点まで

というものがあったとして
投手は合計点が420点、遠投140点、スローイング120点、その他3つは50点以上取れば合格
野手は合計点が420点、バッティング140点、ノック120点、その他3つは50点以上取れば合格

これを受験者が投手か野手か入れて、得点を入れたら判定が出るように教えて下さい。
まず何の関数を使えばいいのか全くわからん。

A　　　　B　　C　　　　　　　　D　　　　　　　　　E　　　　F　　　　　　　　　　G
1 番号　遠投　スローイング　バッティング　ノック　ベースランニング　　合計

F1=IF(AND(G1>=420,B1>=140,C1>=120,SUM(D1:F1)>=50),"合格","不合格")

野手も同じような感じで

それぞれの種目の判定セルをまず作る

バッティングの判定
=IF(守備位置のセル ="投手", IF(バッティングのセル>=50, 1, 0) , IF(バッティングのセル>=140, 1, 0))
他のも同じように作る


んで それぞれの判定セルを足して
=IF(総合判定セル=6 ,"合格" ,"不合格")

ってやればいいんじゃない？

>>491
> 複数行の行番号を配列変数に代入する方法がわかりません。
行番号を配列に入れる必要なんて無し
選択範囲の上端行と下端行だけわかれば､その範囲でループすれば良い
Dim Tg_R As Long
With Selection
　　For Tg_R = .Row To .Row + .Rows.Count - 1
　　　　Debug.Print Tg_R & "行目を処理"
　　Next Tg_R
End With

又は選択範囲を1列範囲にした状態で各セルの行番号を取得する方法もある
Dim Tg_R As Long
Dim r As Range
For Each r In Selection.Resize(, 1)
　　Tg_R = r.Row
　　Debug.Print Tg_R & "行目を処理"
Next r
こっちの場合はRowで行番号取るより､Offsetで直接値取りに行った方がいいけどね

┏━━┳┓┏┳┳━┳┳━━┓┏━━┳━━┳━━┳━━┓
┃┏━┫┗┛┃┃┃┃┃┏┓┃┃┏━┫┏┓┃　 ━┫　 ━┫
┃┗━┫┏┓┃┃┃ 　┃┏┓┃┃┏━┫┏┓┫　 ━┫　 ━┫
┗━━┻┛┗┻┻┻━┻┛┗┛┗┛　 ┗┛┗┻━━┻━━┛

.　　　　　　　　　　　　　　　　 _∧∧_,
　　　　　　　　　　　　　　　 ／／ 中＼ ＼
　　　　　　　　　　　　　　./ 　（ 　｀ハ´）､ ｀、
　　　　　　　　　　　　　/　/＼ ＼つ　 つ、ヽ
　　　　　　　　　　　　　|　|　　,＼ ＼ ﾉ　　|　|
　　　　　　　　　　　　　ヽヽ 　し ＼ ＼） /　/
　　　　　　　　　　　　　 ＼ `＼_____＼' ／／
　　　　　　　　　　　　　　　ヽ､ _＿＿_,, ／
チャイナ・フリー
http://ja.wikipedia.org/wiki/%E3%83%81%E3%83%A3%E3%82%A4%E3%83%8A%E3%83%BB%E3%83%95%E3%83%AA%E3%83%BC

チャイナ･フリー(China Free)とは「〜を使用していない」という
意味のFreeと、「中国産」を意味するChinaを組み合わせた造語で、
中国産の原材料を使用していないことを意味する。

中国製品の安全性問題、
中国産食品の安全性が世界的に大きな問題となる中で
2007年7月にアメリカ合衆国内で使われ始めた。それに関連し、
米国の健康食品会社が、中国産食品や製品に対する
不信感の高まりに対処するため、自社製品に
「CHINA FREE」と記したシールを貼るようになったのが始まりである。

中国製品購入禁止条例案を審議　米フロリダ州パームベイ
http://sankei.jp.msn.com/world/america/071201/amr0712011714008-n1.htm

>>495
ありがとうございます。
しかし選択範囲が連続していれば問題無いんですが、連続していない場合もあるんです。
その為、どうしても選択行の行番号を全て取得せざるを得ないんです。
後だしになってしまって申し訳ないです。

.Resize(, 1)を外して､作業者に2列以上に跨らないように選択させれば良い

>>493
>>494
ありがとう

パソ移って打ってたのだが・・・　


　　　　A　　　　　B　　　　　C　　　　　D　　　　　E　　　　　　　　　F　　　　　G　　　　　　　　　　　H
１　　なまえ　　投/野　　　遠投　スローイング　バッティング　ノック　ベースランニング　　　合計
２　　太郎　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　H2

H2は
=IF（OR（B2="野手",IF（AND（SUM（C2：G2）>=420,D2>=140,E2>=120,C2>=50,F2>=50,G2>=50）,"合格","不合格",
　　　　　　　　　B2="投手",IF（AND（SUM（C2：G2）>=420,C2>=140,g2>=120,D2>=50,F2>=50,G2>=50）"合格","不合格"）

初歩から分かって無いのがいたいと思いながら、迷走している。誰か間違え箇所の指摘を・・・

ORじゃないだろ。IFを二重にしないといかん。
投手と野手分けて入力したほうが式が簡単になるぞ

Excelファイルを作成し、パスワードを入力しないと開かないようにするのにはどうやればよいのでしょうか？ファイルを開けようとすると（パスワード　読取り　キャンセル　と表示されるようにしたい）誰かお願いします。

>>501
ファイル＞名前を付けて保存＞ツール＞全般オプション＞読み取りパスワード

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

>>498
おお！できました！
本当にありがとうございます。

自分なりに配列変数使ってやってみたら一応できたんですが
Sub Count3()
Dim i As Integer
Dim myRowCount As Integer
Dim StRowNum As Integer
Dim EnRowNum As Integer
Dim j As Integer
Dim k As Integer
Dim Tg_Row() As Integer

For i = 1 To Selection.Areas.Count
StRowNum = Selection.Areas(i).Row
myRowCount = Selection.Areas(i).Rows.Count
EnRowNum = StRowNum + myRowCount - 1
For j = StRowNum To EnRowNum
k = k + 1
ReDim Preserve Tg_Row(k)
Tg_Row(k) = j
Next j
Next i
i = k
For k = 0 To i
Debug.Print (k) & "行目を処理"
Next
End Sub

糞長いし分かりにくいしよくわからなくなってしまいました。
本当にありがとうございます。

便乗で似た質問なんだけど､マクロ無効になってると開けないようにするにはどうしたらいいの?
マクロセキュリティが高や最高でマクロ自動無効の場合か､マクロセキュリティが中でマクロ無効を選択した場合は
｢マクロを有効にしないと開けません｣みたいなメッセージを出すようにしたいんだけど。

>>499
>>500の言うように投手シートと野手シートを作ってそれぞれでやるか
各項目ごとで判定して（合格なら１をたてる）、１の合計数＝項目数なら合格ってやった方がいい。
各項目の判定列は非表示にすりゃあ問題ない

>>505
ブックにパスワードを設定する
マクロ有効なら自動でパス入力して開く

エクセルの２００７を使ってます。

セルの書式設定なんですが・・・

日付で、種類を　[ 2001/3/14 ]　に選んでＯＫにしました。
それから上書き保存して終了したんですが、
次に開いたときには、セルの書式設定は
何も関連付けされていない状態に戻ってしまいます・・・
考えられる原因は何かありますでしょうか？

それから、セルの幅が狭いと、日付は＃＃＃＃＃＃って表示されますが、
セルの幅を広く固定することはどうすれば良いのでしょうか？

エクセルを覚えたてで・・・教えていただけると嬉しいです

>>486-490
ありがとうございました。
明日、会社に行ったら試してみます。

>>508
例えばB列の幅を広げたいときは、列番号がABCと書いてある一番上の列の、
BとCの境界線のところにマウスポインタを当てる。
そうすると矢印が ←|→ という形に変わるから、そこでダブルクリックな。

書式は、何か操作ミスをしてるかデータがおかしいかどっちかだろう。
初心者は自分が何をやったかまったくわかってないことが多いから、
もういっぺんデータを入れて書式を設定してみ。
あと、数字、英字、記号はすべて半角で入れること。

今ものすごく悩んでいるのですが…
43 39 51 71　46 40 49 54 51 43 64 60 91 45 31 41 45　37 37 39
の20個のデータから正規分布のグラフを描きたいのですがどのようにしたらいいのでしょうか？

>>511
ヒストグラムを書きたいのでしたら分析ツールやピボットグラフが使えます。
個人的にはピボットグラフを推薦します。

>>ヒストグラムじゃなくて正規分布曲線が書きたいんですが…

学校の宿題？
「NORMDISTで関数」でぐぐれ。

エクセル関係の質問じゃないかもしれないけど、
あまりＰＣに詳しくないので質問。

２００３使ってるんだけど、エクセル開くたびに
｢オートメーションエラーです。エラーを特定できません｣
って出るんだが、何をしたらいいのかさっぱりわからん。
自分が使ってたわけじゃないからどういう経緯でこうなったかもわからないんで
考えられる原因だけでも教えてもらえるとありがたい。

超初心者みたいな質問でゴメン。使ってて別に問題があるわけじゃないんだけど
なんか気になるのでよろしく頼みます。

いらんアドインと参照設定を外すんだ

>>515
それはVBA関係のエラーだから、変なアドインが登録されてる可能性がある。
ツールバーに標準以外のボタンがあればまず疑う。

うだうだ足掻いてみたけど全然わかりません。
コンボボックスで、A/B/Cがえらべるようになっていて、
それぞれにちがうマクロを割り当てたいです。
VBAでやるんでしょうが…

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

>>518
ListIndexプロパティで何番目の項目が選択されたか判定して分岐する

>>519
ありが�d。明日職場で再度チャレンジしてみます。
わからんわからんばかり言ってても始まらないしね。

>>516-517
アドインの設定いじくったり
Excelを再インストールしたらでなくなった。
�dクス

【3 VBAが使えるか　 　 .】 いいえ（これから使いたいので勉強中）　【4 VBAでの回答の可否】 可

A1の値がが10以上ならB1に”10以上”と入力、5以下なら”5以下”と入力。
という簡単な物なのですが、基礎がわからないので質問させてください。

�@
if range("a1").value >= 10 then range("b1").value = "10以上"
if range("a1").value <= 5 then　range("b1").value = "5以下"
�A
if range("a1").value >= 10 then
　range("b1").value = "10以上"
end if
if range("a1").value <= 5 then
　range("b1").value = "5以下"
end if
�B
if range("a1").value >= 10 then
　range("b1").value = "10以上"
elseif range("a1").value <= 5 then
　range("b1").value = "5以下"
end if

�@〜�Bどれも目的の動作をしてくれたのですが、
質問1：�@と�Aについて、then のあとに改行があればend ifが必要であり、
　　　　その表記が違うだけで�@と�Aはまるっきり同じものと捕らえて合ってますか？

質問2：�Aと�Bについて、一つ目の条件をend ifで終えて、二つ目の条件をまたifで始めるのと、
　　　　二つ目の条件をelseifで表記するのとでは何が違うのでしょうか？

質問3：�Bについて、どの参考サイトを見ても、elseifで複数の条件分岐があったあと、
　　　　最後にelse（=どの条件にも当てはまらないときの処理）が使われているのですが、
　　　　そういった処理の必要が無い場合、これは無くても問題ないのでしょうか？

質問１：そのとーり
質問２：例えばa1が10以上の時 5以下のはずが無いのだが
　 　 　�Aではその評価が実行される。
質問３：無くても良い

回答1：
　合ってる

回答2：
　この条件では結果は変わらないけど､前者の条件に一致した際に後者の条件が評価されるか否かが違う
　�Aでは前者の条件の一致不一致に関係なく後者の条件が評価されるが､�Bでは前者の条件が不一致の場合のみ後者の条件が評価される

　条件を｢>=10 → 10以上､<=5 → 5以下｣から｢<=5 → 5以下､<=10 → 10以下｣にしてみると結果も違うよ
　この条件でA1が3の場合､�Aの書き方だと<=5に一致し"5以下"が入力されたあと､<=10の条件も評価され
　これにも一致するので更に"10以下"が入力され､結果"10以下"が入力された状態で処理が終わる
　対して�Bの書き方だと<=5に一致し"5以下"が入力されたら､<=10の条件は無視され一致していても"10以下"の入力は行われず
　結果"5以下"が入力された状態で処理が終わる

回答3：
　問題ない
　ElseIfが無くてもIf文が成立するように､Else文が無くてもIf文は成立する
　解説サイトでは使える物を説明しなかったら不備になるので書いてあるだけ
　例文とかではなく構文解説では[ ]で囲ってあると思うが､[ ]ってのは省略可能って意味

捕捉：
　If文ではなくSelect Case文を使うとこうなる
　　Select Case Range("A1").Value
　　　　Case Is <= 5
　　　　　　Range("B1").Value = "5以下"
　　　　Case Is >= 10
　　　　　　Range("B1").Value = "10以上"
　　End Select
　因みにこれは�Bと同じ意味を持つ
　>>522の条件では�@､�A､�B､更に上のSelectも同じ結果になるがコードの意味には違いがある
　�@と�Aは表記が違うだけで意味は同じだが､�@と�Bまたは�Aと�Bは｢回答2｣で説明したように意味も違う
　今回のような場合､前者の条件に一致したら後者の評価を行う意味はないので
　�Bもしくは上にSelect文が正解であり､�@と�Aは｢(この条件では)結果に不都合はないが不正解｣ということになる

>>523-524
非常に詳しい説明いただきありがとうございました。
理解できました。

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

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 グラフ　X軸　数値　項目軸

あるウェブサイトの、1ヶ月間のページビュー数推移の折れ線グラフを作っています。
（X軸を日付、Y軸をページビュー数とした折れ線グラフで期間は2007/11/1〜30です）
なるべく週単位で見やすくしたいので、現在X軸は
Y軸との交点　1
目盛ラベルの間隔　7
目盛の間隔　1
で設定しており、1日ごとに目盛があって日付が1、8、15、22、29と表示されています。
この表示させる日付を月曜日にして、5、12、19、26と表示させることはできますか？

excelの初級受けようと思うんだけど
参考書読んだ程度で受かる？

>>526
出来ます
過去ログにもGoogleにもいっぱいヒントがあるので頑張って

>>527
Excelの｢何の｣初級か知らないが
参考書読んだ程度で何かの試験に受かるかどうかはあなたの頭の出来次第
そんなことにも気付かず､こんなアフォみたいな質問しちゃうような頭の出来では
余程簡単な物でなければ落ちるだろうけど

>>527
どういう試験なのかわからないんで断言はしないが、
たとえば「車の運転の仕方を書いてある本」を読んだだけで
運転免許が取れるものかどうか考えてみ。

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

A1には正の整数が入力されており、A1の値を秒数として読み込み、
A1秒後に他処理を行う。というマクロを教えてください。

例えばA1に75と入力されていれば、75秒後にmsg="時間です"のように
したいと考えています。

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

>>527
参考書だけで受かる人もいれば、受からない人もいる。
実際に本を読みながらパソコンを操作してみた方が確実なのは間違いない。

>>530
いくつか方法はあるけれど、たとえばこんなん。

Sub TimerSet1() 'タイマーをセットして起動
Application.OnTime (Now + Cells("A1") / 24 / 3600), "Timeout1" '時間になったらTimeout1関数を実行
End Sub

Sub Timeout1()
Msgbox("時間です")
End Sub

>>532
なるほどありがとうございました。
ところで
(Now + Cells("A1") / 24 / 3600)
の　(Cells("A1") / 24 / 3600)　はどういうデータ（？）なのでしょうか？

知ろうと思って
msg=(Cells("A1") / 24 / 3600)
としたら、型が一致しませんと警告が出ました。

【1 OSの種類 　 　 　 　 .】 Windows XP Pro
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　データ　排除　など

本体のデータから、別に用意したデータ（シートを2つ用意しても大丈夫ですが）の
A列にある数字だけを排除したいのですが、できますか？
このスレに質問したことをきっかけにVBA勉強してますが、さっぱりですorz

排除すべき数字の載ったデータは、本体の方に無い数字も含まれてます
例えば・・・

本体F　排除F　結果F
0　 　 　0　 　 　×
1 　 　 　 　 　 　1
2 　 　 　 　 　 　2　 　 　　 　 　
　 　 　 3
　 　 　 4
5 　 　 　 　 　 　5
6　 　 　6　 　 　×
7 　 　 　 　 　 　7

といった感じになります、×という表示までは要りませんが
0とか6は排除対象ですから排除したいですし、3とか4はスルーしてほしいです
こういったことはできますでしょうか？
大変申し訳ありませんがお手すきの方、教えて下さい、お願いします。

>>532
解決しました。ありがとうございました。

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

すみませんが教えてください
日付と日数についてです。

　　　Ａ　　　　　　Ｂ　　　　　　Ｃ
１　ＡｏｒB　　１月１日　　　××日
２
３

Ｃ１に=IF(1A="Ａ",1B+100,IF(1A="Ｂ",1B+150,""))
交通事故が１月１日発生、Ａの場合１００日目××。Ｂの場合１５０日目××。までできましたが
Ｃ１に日付がでます。それぞれＡ、Ｂの設定日数が超えた場合”以上”と表示したいのですが
どうすればよいでしょうか？

近似曲線を描く際、プロットされるデータ系列は15個以上にはできないのでしょうか？

>>534
C列に
=IF(A1=B1,"×",IF(A1="","",A1))
としてはいかがですか。

>>536
C1のセルの書式設定が日付になっていませんか？

★毎月毎月、お金で悩む日々・・。毎日が楽しくありませんでした。★
　　☆☆　　そんな時、このビジネスに出会いました　　☆☆
　　　　　パソコンを好きな時間にいじるだけで！！？？
　　　　すっごいことが起きたんですっっ！！！！　　きっかけは
★　　ココ→　http://www.bravo-hbl.com/yamaya/　　★

>>539
日付は必要なので出るようにしております。

>>538　
これは書き方が悪かったですね・・・
わかりやすくするように書きましたが、
実際は数字がばらばらなので困ってます

>>541
>>542
具体的なデータを例に挙げてほしいな。

>>543　わかりました、とりあえず簡単に

元データはこんな感じだとします
383　 　 　 　
446
177
177
53
109
150
166
193
210
267
360
372
440
95
199
214
365
199
438
91
200
336
411
414
196
59
60
91

排除したいデータ
131
132
133
134
136
138
139
140
141
142
143
144
147
148
149
150
151
152
155
156
157
158
159
161
162
163
164
165
166
この状況なら、150とか166だけを取り除けられればいいです
実際はもうちょっといい感じで取れると思いますが、結構無い数字も多いので

元データがA1から、排除データがB1からとして、C1に
=IF(ISERROR(VLOOKUP(A1,B:B,1,FALSE)),A1,"×")
で、下までずーっとコピー

>>543
具体的に書きました。
Ｂ１に平成２０年１月１日入力、Ａ１は入力規制でAorB選択、すると
Ｃ１にＡなら１００日目は４月１１日、Ｂなら１５０日目は５月３１日と表示されます。
C1に表示された日を超えない場合”以内”超えた場合”以上”と表示したい。
入力していない場合は空欄表示。

こんな感じですがよろしくお願いします。

>>545
A B C
131 x 383
132 x 446
133 x 177
134 x 177
136 x 53
138 x 109
139 x 150
140 x 166
141 x 193
142 x 210

と入力してください。
そしてD1に=VLOOKUP(C1,A:B,2,FALSE)と入力して数式を下にコピーしていけば
排除したいデータだけxになりますよ。

図をセルに固定することはできますか？
IF文で図を選びたいのです。

>>547
>C1に表示された日を超えない場合”以内”超えた場合”以上”と表示したい。
何を超えない場合？今日の日付？
”以内”、”以上”はどこに表示？C1？
C1に表示だとすれば、100日目あるいは150日目の日付と並べたいの？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】ごくごく初歩的なことなら
【4 VBAでの回答の可否】 おｋ
【5 検索キーワード 　 　 】時間　指定　ファイル名　指定　

すでに雛形は作っているファイルに必要な部分を記入したあとに
ファイル名をつけて保存するを選んだときに
自動で当日の日付を入れるようにしたいのですが
ご助言お願いします。

例：　今日の献立20071203

>>547
C1には何が表示されますか？
日を超えるというのは何と何を比較してるの？
ここもう少し詳しく。

>>551
Dim Save_File, Save_Filename As String
Save_Filename = Format(Date, "yyyymmdd")
Save_File = Application.GetSaveAsFilename(Save_Filename)
On Error GoTo ERR1
If Save_File <> "False" Then
ActiveWorkbook.SaveAs Filename:=Save_File
End If
これでどうだろう。

>>547
=IF(B1="","",IF(A1="A",IF(B1>TODAY()-100,"以内","以上"),IF(B1>TODAY()-150,"以内","以上")))

VBAはボタンになにかを設定して発動させることしかできないのですが
>>553のようなのはどのように使えばよいのでしょうか
すいません。

ボタンに設定して発動させるんだ

ていうか>>553はそのままじゃ動かんな

あと
>ファイル名をつけて保存するを選んだときに
これは無理

>>546>>548　
できました、本当にありがとうございます
有効活用させてもらいます

>>550,552
レスありがとうございます。
Ｃ１にはA、B選択で選んだ１００日目と１５０日目の年月日が表示されます。
Ａ１は１月１日と入力
Ａ選ぶと４月１１日”以内”、４月１２日は”以上”
Ｂ選ぶと５月３１日”以内”、６月１日は”以上”
以内、以上を表示するのは別のセルでも結構です。

比べるのはそれぞれ１００日目、１５０日目日の値です。

Ｃ１で求められる”以内以上”は今日の日付で自動更新されるのでしょうか？

>>559
１００日目、１５０日目日と何を比べるのかと聞いてるんだが。
まぁ今日の日付なんだろうけど。

だとしたらこれですむ
=IF(C1="","",IF(C1<TODAY(),"以上","以内"))

>>559
>Ａ１は１月１日と入力
多分「Ｂ１は１月１日と入力」の間違いかな。

C1の値と何かを比べたいのだと思います。
それは何ですか？

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

シートAに数字列がA列にあります。
シートBに数字列がD、E列にあります。
数字列はA列内では重複はありませんが、D、E列内では繰り返しが沢山あります。

D、E列にあってA列にない不一致な数字列を知りたいです。
抽出という形でも良いのですが、できればシートBの不一致な数字列に背景色を付けるような形がベストです。
繰り返しを無視せず、全てに背景色がつけたいです。

お願いします。

>>562
まずE1に
=MATCH(C1,Sheet1!$A:$A,0)
という式を書く。E1をF1にコピー。E1とF1を選択して、Ctrlを押しながらフィルハンドルをダブルクリック。
C列とD列全体に条件付き書式を設定、式を
=ISERROR(E1)
にする。

これで、好きな書式が適用されるようになる。

>>553
Dim はコンマで複数の宣言は出来んよ。

560、561
C1はABで求められた指定日と今日を比べたいのです。必ずTODAY関数は必要でしょうか？C1値の以内以上を1ヶ月のトータル書き出した場合、指定日が過ぎると全て変わってしまうおそれがあるのではないでしょうか？

>>565
「今日」と「指定日」を比較するのではなく，「ある日」と「指定日」を比較したいということでしょうか。
today()の代わりにどこかのセルを参照するのではだめ？

>>564
おまえは何を言ってるんだ

>>567
×　Dim Save_File, Save_Filename As String
○　Dim Save_File As String, Dim Save_Filename As String
ってことじゃないのか？

それで正解

×　Dim Save_File As String, Dim Save_Filename As String
○　Dim Save_File As String, Save_Filename As String

>>554
関数ありがとうございます。
”B”に対応するにはどうすればよいでしょうか？

>>571
おまえ説明へたくそすぎるからファイルうp汁
何が聞きたいかわからん

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

価格 人数
500 1
1200 1
1500 2
1800 1
1980 1
2000 2
2100 1
2500 1
2800 1
2980 2
3000 4
3500 1
3800 1
3980 2
4000 1
4500 1


こういうのがあるんですが、横軸を価格、縦を人数
にしたいのですが、横軸を100円の一定にしたいのです。
下2桁は四捨五入で。

どのようにすればよいのでしょうか

すいませんよくわからないですね。。。
横軸を価格、縦を人数の「グラフ」にしたいです。

>>566
他のセルを参照してもＯＫです。

現在は
　　　　A　　　　B　　　　　C　　　　　D
１　　ＡｏｒＢ　　開始日　　期限日

=IF(Ａ１="A",ｂ１+1００,IF(Ａ１="Ｂ",ｂ１+1５０,""))
の式と=IF(ｔｏｄａｙ>C1,"以上","")をD1に表示
という２段階の式を使っています。

たとえば４月２日が期限とすると
別セルにＤ１の値を別に毎日表示させ
４月
１日以内　
２日以上
３日以上、となるわけですがtoday関数で比較した場合、
毎日Ｄ１の値が変化させないためにはどうすればよいでしょうか？

ちょっとお聞きしたいんですが…
ENTERをクリックしていくと下にポイント(?)がずれるじゃないですか…
あれを右に動かす方法ってありますか？

TABキー

>>576
オプションを一通り確認すると幸せになれると思う

>>572
Ｂに対する対応は自己解決しました。
ありがとうございます。

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

過去のファイルを見ていたら、列も行も2桁のアルファベットのシートが出てきました。
数字を入れると、その番号に対応した人の名前が出てくるので、テンプレが1個で済みます。
改良したいのですが、シートの見方が分からないので、どうやって作るのか教えて下さい。
もしくは検索ワードを教えて頂けると助かります。

解決しました＞＜
どうもありがとうございました!!

外部テキストファイルがあり、その中のデータをセルに入力する方法についての質問は
>3の★VBAについてに従うとスレ違いの質問になりますか？

>>580
>>572


質問者へ。

回答者はあなたの環境や状況、知りたい内容を、あなたのレスからでしか読み取れません。
書き込みボタンを押す前に、誰が読んでも理解できる質問内容かどうかを確認してください。

わからないなら黙ってて

>>583
エスパー系のスレで回答経験積んでごらん
あらゆる質問者の意図や思考が手に取るようにわかる能力が身に付くと思う

といったものの、>>580の質問はかなりのエスパーですら頭を抱える内容とおもふ

>>583-586
説明が下手でスミマセン。
通常のシートは
　 A B C D…
1
2
3
…
って感じだと思うんですけど、行番号がR1C1(？)みたいな番号なんです。
例)のようなテンプレに、番号を入れると対応する人の名前や情報が出てきます。
例)
　　番号＿＿
　国語　〇〇点
　理科　〇〇点
　社会　〇〇点
　数学　〇〇点
　英語　〇〇点

これを変形させて違うファイルを作りたいのですが、普通に関数とか使えるのでしょうか？
また、R1C1みたいな形式にする理由はなんなのでしょうか？
説明が足りなかったらすみません。

書いている文字は日本語なのは確かなのに、意味がさっぱり判らん w >>580

それはおまえがゆとりだから

>>585　の　>>580へのレスまだーー？

説明が下手というか、なんというか、自覚してる時点で質問者失格だぜ。
＞通常のシートは○○だったと・・
＞通常例
＞でも行番号がR1C1(？)みたいな番号なんです。

笑わせたいのか嫌がらせなのか知らないけれど、普通に質問するならさ、
通常のシートの例なんて載せるより、どう考えても聞きたい方（R1C1(？)）の
状況を図示するでしょ？ホント意味がわからん。

　　　　　　　　　　　　　　　　　　　　　　素敵過ぎる流れ

>>591
エスパー以外には興味ありません！

>>587
行番号がR1C1みたいなのは、おそらく
[ツール]-[オプション]-[全般]で「R1C1参照形式を使用する」にチェックが入ってるんじゃないかな？
たぶん、それを作った人がその方が使いやすかったんだと思う。

でも、それと「番号を入れると別のシートのデータを表引きしてくる」ってのはあんま関係ない。別の話。

表引きをする方法はいろいろあるけと、だいたvlookup関数、index関数、match関数、lookup関数あたりを
使ってるはず。>>587の「○○点」のセルを選択すると、数式か関数式が入ってんじゃない？
まずはその関数の名前を調べて、で、関数の使い方を調べれば応用できんじゃ？

>>580
エスパーしてみる

ツール　- オプション - 全般で　R1C1参照形式を使用するにチェックを入れるとR1C1形式のシートになる
こうすると通常の　セル参照　A1とかB1は数式に入れても正しく機能しない
A1は R1C1、B1は R1C2　と入力することで同じような数式を作ることが可能になる
ちなみに　R1C1　の「R」は行をあらわし「C」は列を表す。
つまり「R1C1」というのは「行が1で列が1」 = A1セル　という意味。
同じように「R3C2」は「行が3で列が2」 = B3 という意味
なお、「RC」というように数字を省略するとその式が入ったセルを表す
例えば「R1C」 は 「行が1で列がその式が入っている列と同じ列」。
その他、色々利用方法はあるがあとは「R1C1参照形式」でググってくれ

＞R1C1みたいな形式にする理由はなんなのでしょうか？
これに関してはプログラマーはA1というセル参照よりR1C1というセル参照の方がなじみがあるからじゃないかな

＞これに関してはプログラマーはA1というセル参照よりR1C1という
＞セル参照の方がなじみがあるからじゃないかな

作った人が必ずしもプログラマーとは限らないな
↑は取り下げ

>>588
本当にスミマセン

>>594>>595
ありがとうございました。
初めて見る形式だったので、頭が固まってしまいました。
それを作った人はプログラマーさんだったのかな。
分かりづらい文章に対して親切な説明、本当にありがとうございました。

>>591
引用符を使うならちゃんと引用してくださいね。

>>596
はい。

>>575
today()は今日の日付を返す関数ですから，日付が変わる度に値が変わります。
それがいやな場合はtoday()を使わず他のセルの値を参照しましょう。

=IF(today()>C1,"以上","")
ではなく，期限日と比較したい日付をセルE1に入力しておいて
=IF($E$1>C1,"以上","")
としてはいかがですか。

>>599
ありがとうございます。ｔｏｄａｙは値が変化するのですね。

比較したい日付が×年の１ヶ月間の場合
すべて羅列するのでしょうか？

【1 OSの種類】
WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 できないのでやめてください
検索キーワード　ＡＶＥＲＡＧＥ



　　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ　　　Ｆ　　　Ｇ　　　Ｈ
１　　　　　
２　　　　　名前　テスト　追試１追試２追試３追試４　判定
３　　　　　　Ａ　　１０　　　２０　　３０　　４０　　５０　　no
４　　　　　　Ｂ　　８５　　　　　　　　　　　　　　　　　　　おｋ

追試３回目で受かった人→テスト＊４+追試１＊３+追試２＊２+追試３＊１が６０以上のとき合格にしたいとき、
=IF(AVERAGE(C4*COUNT(C4:G4)+D4*COUNT(D4:G4)+E4*COUNT(E4:G4)+F4*COUNT(F4:G4)+G4*COUNT(G4:G4))>=60,OK,no)

こんな感じだと合格祭になってしまうんですが、何処がおかしいのか指摘お願いします。

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

EXCELから[プリンターとFAX]の中のプリンターを起動する方法を教えてください
EXCELファイルを開く時に印刷スプールも起動して見えるようにしたいのですが
現在は手動でプリンターのショートカットで起動しています。
ぐぐっても見当がつきません><

>>601

=IF(C4*4+D4*3+E4*2+F4>=60,"OK","no")

>>601
>テスト＊４+追試１＊３+追試２＊２+追試３＊１
この計算式自体微妙じゃない？
10*4+20*3の時点で60点超えちゃう。

>>603>>604
そういわれてみればそうだ。
つーか俺の説明が糞だった

本当は追試１＊３+追試２＊２+追試３＊１の平均６０以上のとき合格にしたいときだった…

すいませんお願いします

>>605
平均って言っても追試受けないのもいるんだろ？
その場合どうすんの？

平均てなんの平均だよ？追試って全員3回受けるのか？それなら追試4てなんだ？
追試１＊３　追試２＊２　追試３＊１　の平均なら　＝AVERAGE(追試１＊３, 追試２＊２, 追試３＊１)
でいいやん。

でもはじめの追試１は20点でもokで追試３は60点とらないと合格できないっておかしくないか？
どの追試でも60点が合格点って決めるのが普通だとおもうがなー

>>605
=IF(AVERAGE(D2*3,E2*2,F2*1)>=60,"OK","no")

ほんとにこれでいいのか？
なんか>>601で求めてることと違う気がするが・・・

やっといい説明が思いついた。

例えば、三回目で合格した人はテスト*3と追試1*2と追試2*1、四回目で合格した人はテスト*4と追試1*3と追試2*2と追試3*1の割合で合計し、100点満点に換算、６０点に達すれば合格
合格したら次の試験は受けなくて良い


これで俺の日本語は限界

>>601
=IF(SUM(C4*4+D4*3+E4*2+F4)/COUNT(C4:F4)>=60,"OK","no")
間違ってたらスマン

面倒かもしれないけど…

=IF(OR(C4,(C4+D4)/2,(C4+D4+E4)/3,(C4+D4+E4+F4)/4)>=60,"OK","no")

かける意味ってTOTALの平均出したいからでいいのかな？
そうだとしたらORを使えば掛け算いらないかも。

>>609
てことは1回目で合格するにはテストで60点を取る必要がある？
2回目で合格するにはテスト×2＋追試1×1？

>>609
合格の定義がわからん

三回目で「合格」した人はテスト*3と追試1*2と追試2*1
四回目で「合格」した人はテスト*4と追試1*3と追試2*2と追試3*1
の割合で合計し、100点満点に換算、６０点に達すれば「合格」

合格の条件が合格した事が前提になってる…

>>613
それぐらい読み取ってやれよ・・・

>>573
ピボットテーブルレポートを作って下さい。
１．価格を行のフィールド，人数をデータアイテムにドラッグします。すると価格別の人数が集計されます。
２．次に価格のセルのところで右クリックしてグループ化します。グループ化の単位は100にしましょう。
３．今度はフィールドの設定で「データ無しでアイテムを表示する」にチェックをして下さい。
４．最後にピボットグラフを書いて出来上がり。

>>610
カウントの中が多分違うと思います
CからFの4で割るのではなく10（1＋2＋3＋4で）で割るはずです

>>612
はい
>>613
三回目で合格「する」人は〜
四回目で合格「する」人は〜
６０点に達「していること」です

>>609
作業セルに式を５つつくればいい。
１　テストで合格or不合格
２　テスト、追試１で合格or不合格
３　テスト、追試１、追試２で合格or不合格
イカ省略

ついでに、100点換算てことなら

１　省略
２　(テスト*2＋追試1)/300
３　(テスト*3＋追試1*2＋追試2)/600

てことになるのかなあ

今テスト：10点、追試１：20点、追試３：100点で計算してみたら、
=AVERAGE(10*3,20*2,100)で解が56.666・・・
=(10*3+20/2+100)/6で28.333・・・になるんだが、
この合格ラインおかしくないか？

ギコナビぶっ飛んで再インストールした…

>>609
=IF(OR(C4,(C4*2+D4)/3,(C4*3+D4*2+E4)/6,(C4*4+D4*3+E4*2+F4)/10)>=60,"OK","no")
かな。あとは明日…

>>563
遅くなりましたが、回答ありがとうございます。
一部改造して、マクロに登録しました。
格段に時間を短縮できそうです。

【1 OSの種類 　 　 　 　 .】 WindowsXp
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 初歩的なことでしたらなんとか。
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 グラフ　単位

グラフの作成をするのですが、表はセルに単位も書き込んだ状態でグラフにできないのでしょうか？
例）　水　１００ｇ
　　　塩　　１０ｇ
　　　麺　　４００ｇ
みたいな感じで数値だけでなく、文字も入れてしまうとグラフに反映してくれないんです。うまく数字だけを認識してくれるような術はないのでしょうか？
初歩的な質問なのかもしれませんが、よろしくお願い致します

>>609

早速ケアレスミス…
=IF(OR(C4>=60,(C4*2+D4)/3>=60,(C4*3+D4*2+E4)/6>=60,(C4*4+D4*3+E4*2+F4)/10>=60),"OK","no")

>>619
averageは３で割ってるだろ

>>622
書き込んだ状態にすると ＜文字列＞ になるだろ
文字をどうやってグラフの数値にしろと・・・。
97で「セルの表示形式」が使えるなら それで単位を付加させちゃダメか

>>615
できました！
まじ助かりました。
ありがとうございます。

>>624
２回目までのの点数が悪かったら、３回目100点とっても不合格？

（本試験*2 + 追試１）/ 300 >= 60
もし追試１の合否判定がこれだとすると
本試験で40点の者は、100点取らないと合格出来ない。
以下同様に
本試験20点の者は、追試１、２共100点取らないと合格出来ない。
本試験0点の者は、追試１、２、３全部100点取らないと合格できない。
>>609 を読むとこうなるんだが、、、

ツールバー上右クリック→ユーザ設定で、各種アイテムをＤ＆Ｄしてツールバーに配置できますが、
アイテムの一覧にないやつ（例えば2重線の“田”罫線など）を配置することはできるんでしょうか？

>>625
できました、早いご解答ありがとうございました。
はじめてユーザー定義の表示形式を使いました、自力だと絶対触れてなかったと思います。助かりましたっ

>>629
おれの2000は出来る

>>631
言い忘れました。私も2000です
どうやって出来るんでしょうか？
「ユーザー設定」の「コマンド」タブから選ぶしか方法がないですよね？

>>632
それを好きなツールバーに落とせばOK。ツールバーが全くなければ、メニューバーでもいける。

>>633
↑名前欄間違えた・・・。

お願い申します。

2007であるファイルを保存しようとすると互換性のチェックが走り、

「このブックのいくつかの数式は現在閉じている
他のブックにリンクされています。
以前のバージョンのExcelでは、リンク先のブックを
開いていないときにこれらの数式を再研鑽すると、
255文字を超える部分は返されません。」

と出て気持ち悪いのですが
このリンクがブック中のどこに含まれているかわかりません。

仕事でエクセルを使ってるのですが、最近2007に変えました。
写真を張り付け、A4のサイズで印刷して紙だしするのですが、2007にしてから必ず真ん中辺りに白い横線が入って(そこだけ印刷されない)出てきます。
今まで2003を使っててそのような事はなかったので2007では何か設定をしなければならないのかなと思っています。
色々いじってみたんですがさっぱりわかりません…
会社にいる人間も自分含め皆PCに疎く、全くわからない状況です…
誰かわかる方いたら教えてくださいm(__)m

>>615
俺からも礼をいう。ありがと。

ロックが来ました。















ロックはすごすご立ち去りました。

>>629 >>632
もし独自のコマンドを作りたいという事なら、
コマンドの分類「マクロ」の「ユーザー設定ボタン」を使う。
好きなマクロを登録できるよ。アイコンも好きに編集できる。

他にVBAからCommandBarオブジェクトを操作する方法もある。

まったくの初心者なんですが、Excelでグラフを作れるようになるには
どのくらいの期間が必要でしょうか？
とりあえず、それ系の本を見ながらやってみようと思うんですけど・・・。

>>640
元データさえあればワンクリックでできる。

>>641
ありがとうございます。
とりあえずなんとかがんばってみます。

>>627
追試を含めた平均を取って合格ラインを出すのか？
珍しい学校だ。

>>641
無茶言うな
せめて２クリックと言えよ

>>633
いやですから、「ユーザー設定」の「コマンド」タブに“ない”やつはどうやるんですか？
ここにあるのは田、□、＋、|　、　|、＿などの計13パターンと、▼マーク付きのやつ１個だけです。
全ての組み合わせパターンは、罫線（全8種）×線スタイル（全13種）＝104種あるはずですが、
これら全てを自由にカスタマイズしてツールバーに置くことはできないんでしょうか？

>>645
バージョンが書いてないから有効かどうか知らんが
編集したいツールバー（移動元/移動先）を表示させておいて
ツールバーの編集（ユーザー設定）をおこなえば、ツールバーの上で直接移動可能

ついでに、これだとメニューの項目も編集可能になる
[ファイル] [編集] [表示] [挿入] … [ヘルプ]
の各項目を移動作せられるし、ボタンを配置する事もできる

これらはCtrlキーを押しながら移動させればコピーになるから好きなように編集可能

くれぐれもカスタマイズしすぎで他人から説明を受けられないような構成にしないよう注意な

バージョン２０００って書いてあるじゃん。
回答者の読解力のなさにも困ったもんだ。
最初から ＞例えば2重線の“田”罫線など
と訊いているのに。

2つのブックを開いています。

アクティブなブックから
任意のブックのA1をコピーして
最初にアクティブだったブックに戻って貼り付けたいんだけど

任意のブック名は変わらないからokなんだけど
アクティブのブック名は変わるので、ブック名取得して、そのブックに戻る方法はどうやるの？

>>645
そこに無いパターンのものは無いよ。
カスタマイズしたいなら、自分でマクロ作って、自分でアイコンの絵作って、
ツールバーに貼り付けてマクロ登録。

すみません。
友達にExcelファイルが送りたいのですが、
友達のパソコンがExcelをインストールしていないんです。
表示されるのでしょうか？また、表示方法などありましたら教えてください。

>>651
つ　CSV

>>651
ExcelViewer

>>651です。
ありがとうございます！

>>636ですが、他でも聞いたんですがダメでした…
プリンターをクリーニングしてもダメでした
印刷プレビューではちゃんと表示されてるのに紙だしするとやはり真ん中に白い横線が出ます。
エクセル2000が入っているPCでは全く問題なく出てくるのですが
エクセル2007をインストールしたPCではダメみたいです…
何かPC上での設定の問題だと思っているのですが、誰か思い当たる節がありましたらお願いします。

>>655
2000の方で開いて.xlsの後にxつけて保存してもだめかな？
ただ単に2007で作ったファイルを97-2003で開くには、後ろのxを取って保存するって聞くからさ、逆転の発想で言ってみただけで、できるかどうかは分からないけど。
※データが壊れても責任は取れないので、コピーしてから試して下さい※

>>645
マクロ作れないなら無理だからあきらめな

>>655
他のソフトの印刷物はどうなってるの？

間違えてエクセルを消していました！
いつ消したかも覚えてなくて、買うしかないのかな？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 関数　空白セル　挿入　等
久々に仕事の都合でエクセルに触れたのですがどうしてもわからない事なので質問させてください

関数を複合してＡセルとＢセルの比較をして、AセルにデータがありＢセルに違うデータがある場合はＢセルの内容を他シートに記述する・・というのを関数入力し、これ自体は上手くできたんですが
初期値がお互い空白の場合　データ値が０で表示されてしまいます。
今後、印刷を前提にしている為、できればお互い入力されていない場合の初期値は空白にしたいのですが・・・・関数をすっかり忘れてしまいました・・・

今の状態はセル全体が0000000で覆い尽くされていますOrz
どなたかご助力ください・・・

>>659
部屋の掃除しろ

>>660
IF

IF(or(A1&B1="",B1=""),"",B1)

>>662,663
ありがとうございます。・・というか説明抜けてました(´･ω･`)
比較関数がこれなんですがＩＦ分の二重挿入可能なんだろうか・・・

=IF(ISERROR(MATCH(修正前シート!A1,修正後シート!A1, )),修正後シート!A1,""))

>>664
好きなだけネストしてくれ
（限界は7回だったかな忘れた）

>>665
好きなだけネストさせてもらいました。

仕事ごとだったのでうかつにも助かりました。ありがとうございました。

おそらくすごく簡単なことだと思うのですが教えてください。

表があって

日本人　２０
韓国人　１０
日本人　３０
中国人　２５
韓国人　　５

みたいになってるときそれぞれの計を出す関数ってありますか？

>>667
ピボットテーブル
COUNTIF

好きなほうを使いましょう

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】 エクセル　グラフ　軸を任意に

ある企業の、上場してからの株価の推移の折れ線グラフを作成しようとしています。
その企業は12月に上場したのですが、10月末決算なんです。
そこで、項目軸目盛線を決算期間ごとに表示したいのですが、
Y軸との交点を基準に目盛線が作成されてしまいます。
オートシェイプで一つ一つの軸・項目を作っていく方法も考えたのですが、
日次データを使用しているために各項目間の幅がかなり狭く、微妙な調整が難しいのです。
厳密なグラフを作成したいので、何か他に良い方法はないでしょうか？

　│　　　　　│　　　　　│　　　　　│　　　　　│
　│　　　　　│　　　　　│　　　　　│　　　　　│
　│　　　　　│　　　　　│　　　　　│　　　　　│
　└───┴────┴───┴───┴─────
'02/12　　'03/12　　　'04/12　　'05/12　　　'06/12

│　　　　│　　　　　│　　　　　│　　　　　│　　　　　│
│　　　　│　　　　　│　　　　　│　　　　　│　　　　　│
│　　　　│　　　　　│　　　　　│　　　　　│　　　　　│
└───┴───┴───┴────┴───┴──
↑
│　　　'03/10　　　'04/10　　'05/10　　'06/10　　　'07/10
ここは'02/12のまま

拙い図ですが、イメージとしては、今現在上のようになっているグラフを
下のグラフような項目を持つものにしたい、という感じです。
よろしくお願いします。

>>660
印刷時対応と言うことであれば、
条件付き書式というのもあるな。

>>650,657
やっぱりそうなんですね。ありがとうございました。
いい機会だしVBAやってみるかな

皆さん普段からマクロ作りまくってツールバーをカスタマイズしてるんです？

＞うかつにも助かりました

うかつ〔迂闊〕
(1)ぼんやりしていて注意がゆきとどかないこと
(2)実情から離れていて、実際の役に立たないこと
（goo国語辞典）

>>671
そうやってカスタマイズしまくってる人もいるだろうし、
さほどカスタマイズしなくても普通に使いこなしている人もいる。

自分がやりやすい方法ならそれでええんよ。

2007でカスタマイズ関連の機能が変わった際、
ヒステリックに騒いで貶しまくる人もいれば、
涼しい顔で対処する人もいるし、
我関せずで2007なんぞ見向きもしない人もいる。
そんなもんだ。

>>673
そーっすね。愚問でした

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

選択セルの移動って←↑↓→の方向キーで行いますよね
方向キーを押すとセルの移動ではなくウィンドウがスクロールするようになってしまいました
設定をいじったおぼえはないんですが，
方向キーでセル移動をするように戻すにはどうしたらいいでしょうか

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

計算式が入っているセルの値を、指定した日時時間が来たら固定にする方法が知りたいです。
実際には仕入額など日々変化する値なのですが、週末在庫などをその時点で確定させたいのです。
あらゆる参照を日付範囲指定すればできますが、純粋に固定できるか教えてください。

>>675
ScrollLock

>>676
無理。確定させたいときに値貼り付けで別シートに書き出すなど運用で対処しなはれ。

>>676
直りました！
ありがとうございます

エクセルとなんの関係もないとこで引っかかってたなんて若干ショックです．．．

印刷するときにページの下めいっぱいまで内容を印刷するには
どのようにすればよいのでしょうか？
ファイル＞ページ設定＞余白で「上」「ヘッダー」「下」「フッター」の
全てに0を入力したところ、上の方はめいっぱいまで内容が印刷できましたが、
下のほうがめいっぱいまでいきません。

>>680
余白の大きさはプリンタの機種によって違う。
プリンタのプロパティで余白を調整できなければ、そのプリンタではそれが限界。
プリンタを買い換えるしかない。

>681
回答ありがとう。
プリンタの方の問題だったのか。
解決はしなかったが諦めがついた！

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少々
【4 VBAでの回答の可否】 可
　A　　　B　　　C　　　D　　　
1
2山田　太郎　花子　...
3鈴木　一郎　次郎　三郎　...
4佐藤　一男　花子　太郎　...
というデータを空白セルは無視し、1行目に下記のように

山田太郎　山田花子　鈴木一郎　鈴木次郎　鈴木三郎　佐藤一男...　

「A列の苗字＋B列以降の名前」に結合し、並べ替えたいです。
よろしくお願いします。

>>683
もっといい方法がありそうな気もするけど、俺はVBA覚えたて厨なのでこれが限界。

Sub a()
x = 1
r = 2
While Cells(r, 1) <> ""
c = 2
While Cells(r, c) <> ""
Cells(1, x) = Cells(r, 1) & Cells(r, c)
c = c + 1
x = x + 1
Wend
r = r + 1
Wend
End Sub

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

A列に縦に並んだ項目を、各項目間に空の3セルを挿入しつつ、行列入れ替えたいです。
元のA列はそのままで。
数が多いのでマクロでやりたいのですが、どう記述すれば良いでしょうか。
お願いします。

>>685
A1→B1
A2→F1
A3→J1

ってこと？

>>686
はい、まさにその通りです。

>>687
Sub a()
n = 1
While Cells(n, 1) <> ""
Cells(1, n * 4 - 2) = Cells(n, 1)
n = n + 1
Wend
End Sub

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

まことに申し訳ないのですが、この後出来た行をコピペして使用する予定だったのですが、
横に並べてしまうと選択しづらいことが判明してしまいましたorz

なので、>>685の行列入れ替えを行わないようにするには>>688をどのように変えたら良いでしょうか？
B列に貼り付けられれば良いのですが。

本当に申し訳ありません。

>>689
Cells(n * 4 - 3, 2) = Cells(n, 1)

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

【1 OSの種類 　 　 　 　 .】 ﾋﾞｽﾀ
【2 Excelのバージョン 　 】 2007
【3 VBAが使えるか　 　 .】 使えません
【4 VBAでの回答の可否】 否です

お願いします。

離れたセルを選択するには、ctrl　を押しながら操作するのはわかるのですが、
連続データとして作成したい場合どうすれば良いのかわかりません。
単純な日付・曜日なのですが・・・。
一行目と三行目に、連続データとしてドラッグ作成は可能なのでしょうか？

ご教授願います。

>>692
2行目を非表示にしてドラッグ
終わったら表示するにしてもダメ？

XP 2003 ＶＢＡでの回答は非です。
Ａ列に氏名があり、同じ名前が何件か出てきます。
同一人物が１回のみ出てくるようにフィルターをかけるにはどうゆう風にしたらいいですか。

>>694
エスパーするとピボット使え

ピボットは名前ぐらいしか知りません。
データ　→　ピボット・・・　→　ピボットテーブル／ピボットグラフウィザードが出てきたのですが、あまり、わからないので、時間をかけて、やってみます。

>>694
作業列使っていいなら
A1=1
A2=COUNTIF(A$1:A2,A2)　を下にコピーして1でフィルター
もしくはフィルタオプションで重複を除く（？）にチェック

B1=1
B2=COUNTIF(A$1:A2,A2)
だった

>>526です。

>>528にて
>出来ます
>過去ログにもGoogleにもいっぱいヒントがあるので頑張って

との返答を頂き、調べてみましたが分かりませんでした。
どなたかヒントでもよいのでお願いします。
質問は以下です。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 グラフ　X軸　数値　項目軸

あるウェブサイトの、1ヶ月間のページビュー数推移の折れ線グラフを作っています。
（X軸を日付、Y軸をページビュー数とした折れ線グラフで期間は2007/11/1〜30です）
なるべく週単位で見やすくしたいので、現在X軸は
Y軸との交点　1
目盛ラベルの間隔　7
目盛の間隔　1
で設定しており、1日ごとに目盛があって日付が1、8、15、22、29と表示されています。
この表示させる日付を月曜日にして、5、12、19、26と表示させることはできますか？

>>692
A1に数字(曜日)を入れ、隣接した空白セルを選択。
空白セルの右下にポイント合わせてドラッグしたらどうなるんだろう。

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

Ｗord２００２のデータをエクセルに移動したいと思っています。
コピーペーストで１つずつ出来るのはわかってるんですが、
Ｗordファイル数が数千と多く、マクロ等で連続で移動は出来るものなのでしょうか。
何かいい方法あれば、ご教授お願いします。

富士通のデスクトップでXPプロフェッショナルです。
Excelに写真を貼り付けて、隣のシートにセルごと写真をコピペしようとしたらコピー出来ません。
今まで出来ていたのに急に出来なくなりました。
どうしたら出来るようになるでしょうか？

>>702
Ctrl押しながらシート名を右にでもドラッグしてみたらどう？

>>702
写真を選択したCtrl＋Cを押して、
貼り付ける所でCtrl＋Vでどう？

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

医療関係リハビリの業務を
エクセルで組んでるひといませんか？

いない

>>697-698
遅くなりましたが、サンクス

＞　B1=1
＞　B2=COUNTIF(A$1:A2,A2)　を下にコピーして1でフィルター
すばらしい！　これこそ、求めていたものです。

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】
はじめまして
エクセルでの計算について教えてください。
数枚のシートのある列に"A"、"B"、"C"....と数種類の文字列だけが入っているのですが
この数を数えたいのですがどのような数式を使えば良いのでしょうか？
教えてください。

>>709
COUNTIF

>>709
数種類ならCOUNTIFでもいいが、多ければピボットテーブル

【1 OSの種類 　 　 　 　 .】 Windows 2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】
次々と数値を入力していく中の
最新5つだけを選ぶ命令式を教えていただけますか。
最近5日の売上だけ選んで計算とか。
行を挿入して数値を入力すると、
式内の範囲も下にずれてしまうのです。
=SUMの（）内で＄かR[]を使えば良いかと思ったのですが、
やはりずれていくので、作れずにいます。
宜しくお願い致します。

>>712
OFFSET　または　INDEX
ここまでたどり着くのは大変だろうががんばれ

>712
行の挿入しても合計範囲を固定したいのなら
INDIRECTを使ってみたら?

>>712
A1セルから下にデータを入力しているのであれば
=SUM(OFFSET(A1,COUNT(A:A)-1,0,-5,1))
解説はしない。なにをやっているのかは自分で調べなさい。

>>710-711

ありがとう
くぐったら使い方が判りました。

例えば、B1＋C1の計算済みの数値200がD1に出力
　　　　B2＋C2の計算済みの数値300がD2に出力
D1-D2の数値-100がE3に出力
　　　　しかしA1にリスト選択した"正"と入力されていたら
　　　　E3の-100を100（プラス表示）にする
　　　　100だったら-100(マイナス表示）にする
　　というBVAプログラム
　　考えてください。
ネットとか調べてやってもうまくいきません
頭が悪いのでお願いします。

1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 あえて言うなら　いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 If,Select Case,Function,Sub

例えば、B1＋C1の計算済みの数値200がD1に出力
　　　　B2＋C2の計算済みの数値300がD2に出力
　　　　D1-D2の数値-100がE3に出力
　　　　しかしA1にリスト選択した"正"と入力されていたら
　　　　E3の-100を100（プラス表示）にする
　　　　100だったら-100(マイナス表示）にする
　　 というVBAプログラム
　　　　考えてください。
ネットとか調べてやってもうまくいきません
頭が悪いのでお願いします。

>>717
漏れも頭が悪いので頭が悪いコードになりました

Sub test()
　　Range("D1").Value = Range("B1").Value + Range("C1").Value
　　Range("D2").Value = Range("B2").Value + Range("C2").Value
　　If Range("A1").Value = "正" Then
　　　　Range("E3").Value = -(Range("D1").Value - Range("D2").Value)
　　Else
　　　　Range("E3").Value = Range("D1").Value - Range("D2").Value
　　End If
End Sub

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】
いつもお世話になってますm(_ _)m
株取引の計算式です。
Ｄ１　　Ｅ１　　Ｆ１　　Ｇ１　　Ｈ１
日付　　単価　　株数　　価格　　手数料

H3には、単価と株数を入力すれば、価格に応じた手数料になるように=IF(G3="","",VLOOKUP(G3,sheet13!$A$1:AB$8,2))と入力しています。
sheet13は下記の通りです。
0 0
1 200
100001 250
200001 450
500001 800
1000001 950
1500001 1500
30000001 1575

と、今までは１取引ごとに対しての手数料でしたが、今度から１日取引した金額に対して手数料が決まるプランに変更します。
そこで、同じ日付の取引金額を合計して、sheet13みたいな条件で取引料金を出し、取引回数で割ってＨ１に表示させるにはどうしたらいいでしょうか？

私の頭では限界です。

Ｈ３ではなく、Ｈ１m(_ _)m

あと、
=IF(G3="","",VLOOKUP(G3,sheet13!$A$1:AB$8,2))ではなく
=IF(G1="","",VLOOKUP(G1,sheet13!$A$1:AB$8,2))ですm(_ _)m

　　　＊推奨NGトリップ＊
　　　　◆adhRKFl5jU

すみません教えてください。
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

目的のワークブックが起動しているかしていないかを調べ、
起動しているなら新規ブック（何一つ入力されていない状態）なのか
そうでないかをVBAで見分けることは可能ですが？
可能ならばそのやり方を教えてください。

やりたいことは、Book1（←エクセルを開いたときに開くファイル。まだ保存してないため拡張子もない。）
が開いているか開いていないかを調べ、開いていないならそのまま何もしない
開いていた場合、空のブックなら閉じる。　書かれていれば何もしない。

としたいのです。
どうぞよろしくお願いします。

>>724
ActiveWorkbook.PathがNullかどうか調べるとか…

>>725
ありがとうございます。
nullが何なのかがわかりませんが、
Workbooks("Book1").Path=null　として、これは
→ブック1にパスが存在しない、すなわち保存されていない状態　という解釈であってますか？
この場合、保存はしていないものの、セルに書き込みがあった場合は上の条件だと駄目ですかね？


とりあえず
On Error GoTo openerr1
If Workbooks("Book1").Worksheets("Sheet1").Range("A1,Z100").Value = "" Then
Workbooks("Book1").Close
End If
openerr1:


今色々調べて書いてみたのですが、>724の動作を希望する場合、↑のマクロで問題ありますでしょうか？
errorの使い方が全くわからないのですが、添削お願いします。

あるかどうか、聞く前に自分で試せよ w

>>726
セルに書き込みがあっても
Application.DisplayAlerts = False
を入れとくと保存するかどうか聞かれませんが。

>>728
ありがとうございます。
Application.DisplayAlerts = False
book1.close
ということでしょうか？

希望動作は、セルに書き込みがあれば、ブックを閉じるという命令は行わないので
保存するかどうか聞いて閉じるでも、強制非表示で閉じるでもなく、
閉じない（そのまま）をキープしたいのです。

まとめると
　閉じるケース：Book1が起動していて、何も入力されていない状態
　何もしないケース：Book1が起動していない もしくは Book1が起動していて何かが入力されている
このような動作になります。


>>727
ありがとうございます。
もちろん試しては居ます。予期せぬケースに、
上のマクロで対応できるかどうかという意味で、問題ありますでしょうか？
と質問しました。わかりづらくてすみません。

>>720
SUMIFで合計してCOUNTIFで割ればいいのでは？

>>726
セルに一切の入力がなく、book1のマクロに書き込んでるケースだと　そのマクロだと対応できない。
Sheet2以降のシートに入力されてるケースでも対応できない。
あと知ってると思うが、range(Z100)以降には対応してない。

そんなところかな。

すいません...再訂正と詳細です

..｜A ｜ B ｜　　 C 　　｜ D ｜ E　｜ F　｜
-----------------------------------------------
1｜正｜ B1｜ C1文字列式｜200｜　　｜C1合計｜
-----------------------------------------------
2｜. .| B2 | C2文字列式｜300｜　　｜C2合計｜
------------------------------------------------
3 |　 ｜　 ｜　 　　　 ｜　 ｜-100｜ ｜
-------------------------------------------------
4｜　 ｜　 ｜　　　　 ｜　 ｜　　｜　　　｜

例えば
B1＋F1の計算済みの数値200がD1に出力
B2＋F2の計算済みの数値300がD2に出力
D1-D2の数値-100がE3に出力
しかしA1にリスト選択した"正"と入力されていたら
E3の-100を100（プラス表示）にする。100だったら-100(マイナス表示）にする
というVBAプログラムを考えてください。
いまのところ
　　　F1,F2にはC1,C2文字列式計算ユーザー定義関数
　　Function KEISAN(R As Range)
KEISAN = Evaluate(R.Value)
　　End Function

E3には関数SUM=D1-D2が設定してあります。
　ユーザー定義関数がわかりません。

ネットとか調べてやってもうまくいきません
頭が悪いのでお願いします。

>>719
やってみましたがうまくできません...

>>730
ありがとうございますm(_ _)m
しかし、どう条件づけしたらいいのか分りません＞Д＜
あと、sheetを月別にしている為、範囲が全sheetになります。(購入日順に入力しますが、売却はバラバラの為)

>>724
On Error Resume Next
If Workbooks("Book1").Saved Then Workbooks("Book1").Close
On Error GoTo 0

でどうかな。

>730
ためしにそのまんま作ってみた

12シートから特定の日(A2)の取引料金を合計して、取引回数で割る数式
=SUM(SUMIF(Sheet1!A:A,A2,Sheet1!G:G),SUMIF(Sheet2!A:A,A2,Sheet2!G:G),SUMIF(Sheet3!A:A,A2,Sheet3!G:G),
SUMIF(Sheet4!A:A,A2,Sheet4!G:G),SUMIF(Sheet5!A:A,A2,Sheet5!G:G),SUMIF(Sheet6!A:A,A2,Sheet6!G:G),
SUMIF(Sheet7!A:A,A2,Sheet7!G:G),SUMIF(Sheet8!A:A,A2,Sheet8!G:G),SUMIF(Sheet9!A:A,A2,Sheet9!G:G),
SUMIF(Sheet10!A:A,A2,Sheet10!G:G),SUMIF(Sheet11!A:A,A2,Sheet11!G:G),SUMIF(Sheet12!A:A,A2,Sheet12!G:G))
/SUM(COUNTIF(Sheet1!A:A,A2),COUNTIF(Sheet2!A:A,A2),COUNTIF(Sheet3!A:A,A2),COUNTIF(Sheet4!A:A,A2),
COUNTIF(Sheet5!A:A,A2),COUNTIF(Sheet6!A:A,A2),COUNTIF(Sheet7!A:A,A2),COUNTIF(Sheet8!A:A,A2),
COUNTIF(Sheet9!A:A,A2),COUNTIF(Sheet10!A:A,A2),COUNTIF(Sheet11!A:A,A2),COUNTIF(Sheet12!A:A,A2))

この結果にlookupをかませば計算は出来ると思うけど
・・・ピボット使って集計するっていう手もあるかもね
あるいはもっと簡単な式で作ってくれる頭のいい人を待つか・・・

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

全てのシートのA行からB行間をコピーして、例えばTOTALシートに貼り付けるということは出来ますか？

VBAで可能。

すべてのシートが何枚あって、TOTALシートにどう貼り付けたいかわからんので
自分で調べて。

複数のブックがあって、それぞれシート枚数が異なります。
例えばシートが１〜５番まであるなら、コピーしたものをTOTALシート内に１〜５、上から順に貼り付けたいのです。
全てを統合するというのは↓の方法があったのですが、指定行だけというのは分からなくて･･･。
http://park11.wakwak.com/~miko/Excel_Note/04-01_sheet.htm#04-01-13

すいません、>>739＝>>737です

行単位指定(Rows)になってるところをセル単位指定(Range)にしてやればいいだけじゃん

エクセル本体のファイルパスを知る方法を教えてください。
どうもバージョンごとやOSごとに微妙にエクセルの標準インストール先が異なるようなので。
【1 OSの種類 　 　 　 　 .】 Windows 98 Me 2000 XP
【2 Excelのバージョン 　 】 Excel 98 2000 2002 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

>>742
これで。
Range("A1") = Application.Path + "\Excel.exe"

３行（又は列）目毎（）にとか、４行（又は列）目毎にとか、ｎ行（列）目毎に
合計を取得するスマートな方法がありますか。
「とびとび」で検索したり、
「=sumif(検索範囲,mod(row(行範囲),4)=1,合計する範囲)」で試してみたりしたけれど
うまくいかない。
頭のいい人にお願いするしかないと悟った。

いちばん簡単なのは横に作業セルをつくって合計する行に１をいれておき
１のある行だけSUMIFで集計

＋やSUMのかたまりよりチェックしやすいからよくつかう手

>>744
頭のいい人たちのサイト

ttp://support.microsoft.com/kb/402181/ja

いやぁー、やっぱり、聞いてみるモンだ。
結構、検索したり、考えたりしていたので>>745さんのは知っていたけれど、
>>746さんのはそのものズバリ！　microsoftの情報だからね。
とても、この式は考えつかない。
サンクス。

携帯からすみません。
クリップアートを大きくして背景に入れることは可能でしょうか？
今ネット接続不可な場所で作業をしていて、どうしてもわからないので、よろしくお願いします。

>>748
オートシェイプの塗りつぶしの効果で画像を指定して書式から半透明にする

>>748
書式→背景

クリップアート自体は拡張子がwmfのファイルで、データの入ったフォルダは
C:\Program Files\Microsoft Office\mediaの下。

携帯から失礼します。初歩的な質問なんですがピポットテーブルの意味がなかなか理解できません。なんとなくは使用できるのですが完全には理解できておりません。行列の各項目を集計できるツールという理解でよいのでしょうか？

YES
それからＰＩＰＯＴではなくて、ＰＩＶＯＴ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】
　　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ　　…　
１　　　　　　1/1　　1/2　　1/3　　1/4…　１月合計　最終売上日　
２　りんご　　　　　　1 　　　　　　　　　　　　　　ＸＸ　　　　　1/X
３　みかん　3 　　　　　　　　　　　　　　　　　　　ＸＸ　　　　　1/X
４　バナナ　　　　　　　　　　2

Ａ列には品目、１行目に日付を設定した表で、売上げた日に数量を入力していくんですが
表の最後の列にその品目が売れた最後の日を表示したいのですが
何か関数などで表示することは可能ですか？

>>753
そのシートの空きセルを利用しても良いのなら (少し汚いし回りくどくていいのなら)、出来そうな気がします。

　　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ　　…　
１　　　　　　1/1　　1/2　　1/3　　1/4…　１月合計　最終売上日　
２　りんご　　　　　　1 　　　　　　　　　　　　　　ＸＸ　　　　　1/X
３　みかん　3 　　　　　　　　　　　　　　　　　　　ＸＸ　　　　　1/X
４　バナナ　　　　　　　　　　2

この表のさらに右のほうに　同じサイズのセルを使って、
売り上げ個数を入力する部分、（例えば上のB2:E4に相当する部分）に
Offsetを用いて日付のセルを参照します。

　　　O　　　 P　　　 Q　　　 R　　　 S　　…　
１　　　　　　1/1　　1/2　　1/3　　1/4…
２　りんご　　☆　　　　　　　　　
３　みかん　　 　　　　　　　　　　　　　　　
４　バナナ　　　　　　

この表の☆の部分にOFFSET(P2,-1,0,1,1) ←これだとP1セル＝1/1がP2に入力される
そんな感じでP2:S4まで日付を参照させて、

最後に最初の表の最終売り上げのセルに
Max関数を使ってMax(P2:S2)見たいな感じにすれば出来ると思います。

汚いし頭の悪そうなやり方ですが、もし回答が付かなさそうであればこれ使ってください。
私にはこれしか無理です。
VBA使いたいです。

すみません>754のオフセットにセルがブランクかの判定を入れてください。
=IF(P2>0,OFFSET(P2,-2,0,1,1),0)

売り上げがあったときのみ日付セルを参照しないと意味ナイですね。