Excel総合相談所 87

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

以上でテンプレ終わり

>>1　おまえいいやつだな

>>1ｰ6
　*-+｡･+｡-*｡+｡*
　 ＼　 　｡*ﾟ
　　∩　*
　　(･ω･`)
　　｡＼　 つ
　 *　 丶 _⊃
　+｡　　∪　　 ☆
　 ﾟ+｡*｡･+｡-*｡*ﾟ

質問です。お願い致します。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel エンター　ペーストされる

いつのまにかセルをコピーしている状態でエンターを押すと勝手にペーストされるようになってしまいました。
どこで設定を直せば良いのでしょうか？探してみたのですがちょっとわからなかったです。

>>9
それは仕様です
コピーしていると下に、「エンターを押すか・・」と説明でるっしょ
間違えてコピーしたときはESCオスと解除されるよ

入力規則リストに連動して、ほかのセルに自動入力ってできる？

>>10
ええーそうなんですが。今まで気づかなかった。
コピーして列の一番下のその次に書き込みたくてctr+下のあとリターンで次のセルに行きたいのだけど
リターンすると貼り付けられちゃってめっちゃふべんです。わかりにくくてごめんなさい。

>>12
それだったら、ctr+下のあともう一度↓を押すのが早い

ああああー確かにそうですね。気づきませんでした。

カワイイ

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

上から順に入力されている数字を上下逆の順にしたいのですが
何かいい方法ありませんか？

>>16
作業列に連番を入れて降順に並べ替え
行数固定ならワークシート関数
VBA

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

前スレ980ですがDropButtonClickイベントを使ったら、
今度はコンボボックス１をドロップダウンした時にエラーが発生してしまいました。
ドロップダウンリストを非表示にした時のみ起こるイベントがあればいいと思うのですが、
調べても見つかりません…
他に方法はありますでしょうか？


↓前回の質問
>vbaの質問です。
>フォーム上にコンボボックスが2つある状態で、
>コンボボックス１でドロップダウンして値を選択すると、コンボボックス２がドロップダウン状態になるようにしたいのですが、
>下記のコードではドロップダウンしてくれませんでした。（コンボボックス１が既にドロップダウン状態のため？）
>何かいい方法はありますでしょうか？
>
>Private Sub Combobox1_Change()
>Combobox2.dropdown
>End Sub

>>16
降順・昇順それぞれ専用のボタンがあるよ。（Σ”オートSUM”とグラフウィザード
のボタンの間にあります。）
並び替えたい範囲を選択してそのボタン押せば即変わる。

つか、前スレでつい最近質問＆回答あったばかりなんだが。

>>20
データを降順・昇順に並べるのではなく、単に上下逆転したい時はどうすればいいですか？

>21

ﾊﾞｶ? を ?ｶﾞﾊ にしたいってこと？

>>19
ttp://www.red.oit-net.jp/tatsuya/vb/ComboBox_Event.htm
ないんじゃないかな
エラーは「VBA　コンボボックス　エラー」などでぐぐるといいかも
俺のところでは再現できなかった
ttp://74.125.153.132/search?q=cache:jJZfQmSCb6wJ:okwave.jp/qa3581632.html+VBA+%E3%82%B3%E3%83%B3%E3%83%9C%E3%83%9C%E3%83%83%E3%82%AF%E3%82%B9+%E3%82%A8%E3%83%A9%E3%83%BC&cd=1&hl=ja&ct=clnk&gl=jp&lr=lang_ja
>>21
作業列、が分からないか
例えばA列を並び替えたいとき、B列に1、2、3・・とA列のはしまで入力
そしてAB列を選択した後B列を基準に降順で並び替えると、B列が3、2、1・・
となりそれに連動してA列も変わる
このB列を作業列という。公式な呼び方かどうかは知らんけど

>>19
確かにDropButtonClickでやってみたら

実行時エラー’-2147417848 (800101108)':
オートメーション　エラーです。
起動されたオブジェクトはクライアントから切断されました。

て、エラーでたわ

それで、実際どういう動作をさせたいの？
2つ同時にドロップダウンリストを表示させたいんだったら
リストボックスを使ったほうがいいと思うよ

曲線のグラフを書きたいのですが
折れ線グラフでちょこちょこ書かないと無理でしょうか？

>25
点の集合でグラフを書くなら、散布図が便利です

>>25
それでもかなり面倒そうですね
ワードでも探してみます
ありがとうございます

>>22

> ﾊﾞｶ? を ?ｶﾞﾊ にしたいってこと？
質問の内容はそういうことだろ。
つまり>>20がバカということ。

また恥かくからそういう言い方はやめておきなって

>>21
エスパーが回答するよ〜
「shift押しながらドラッグしたらどうなん？」

Office2000から2003になりました。
オートフィルしたり、コピペしたりすると小さなボックスが出てきてウザいんですが、
出さなくする方法を教えてください。

>>31
ツール＞オプション＞編集＞[貼り付けオプションボタン]を表示するのチェックをはずす

手元に2003が無いのであやふやだが、これだったはず

>>23>>24
回答ありがとうございます

>それで、実際どういう動作をさせたいの？
>2つ同時にドロップダウンリストを表示させたいんだったら
>リストボックスを使ったほうがいいと思うよ

いえ、複数のコンボボックスに順番に値を入力していくのに、
1つ目に値を入力したら2つ目のドロップダウンリストを自動で開く
2つ目に値を入力したら3つ目のドロップダウンリストを自動で開く
…
としたかっただけなのですが、なぜかうまくいきませんでした。

諦めて手動で開くことにします。

>>33
どうもコンボボックスを繋げるとバグがおきやすいみたいだな
ボタンにするか、別のメソッド(動作)を試すといいかもしれない

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】”違うシート　集計”、”Vlookup 集計”

こんばんは。早速質問させていただきます。

今、複数のシートにデータが入っています。
Sheet1　契約店リスト　＞＞300件くらいのリスト。2列。契約店コードと契約店名。
Sheet2　商品受注表　＞＞1000件くらいのリスト。
　　　　　　　　　　　＞＞受注月、受注日、契約店コード、契約店名（VlookupでSheet1から検索）、
　　　　　　　　　　　＞＞オプションのありなし（1か0が入力されている）
Sheet3　集計表1　＞＞ピボットテーブル

まず、Sheet2の受注表は、毎日10件くらい増えます。
これを月末に、月ごと・契約店ごとに、受注個数・オプション契約個数の2つを集計します。
これは、ピボットテーブルでなんとか作りました。（Sheet3 ）

お聞きしたいのは、こんなことです。
やりたいのは、Sheet1のリストには入っていてもまだ受注していない契約店の分も「0」として表示して、
全部の契約店の受注個数とオプション契約数を出したいのです。（0個のところは営業を強化したりしたいので）

出来れば、今作っているのと似たレイアウトで、月ごとにまとめられて、かつ今までの累計も見られるようなかたちで。
Sheet1とSheet2をうまく使ってこういうものをこしらえるには、どうすれば出来るでしょうか？

前の担当者は月末ごとに電卓をたたいていて、それが手間なのとミスしやすいなあと思ってExcelでやりたいのですが。
どうか教えてください。

>>35
ピボットテーブルだとSheet2にダミーデータを入れるしかないのではないか？

SQLだと外部結合というので実現できる。
AccessやSqliteを試してみてもおもしろいよ。

2003だと追加インストールが必要かもしれんけど、データのあるブックとは別のブックから「外部データの取り込み」で
Query起動して外部結合できんじゃねーかなそれは

早速ありがとうございます。

>>35さん
申し遅れていました。Sheet2は自動でデータが入るようになっているのです。
（受注システムからデータを読んでいるのだとか）
ですので、Sheet2はいじれないかと・・・
やはり、こういったものはAccessでしょうか。わたしを含め、課内はあまり
Accessに強いものがおらず、ついExcelでなんでもやってしまおうとしてしまいます。

外部結合というのを調べてみます。37さんもありがとうございました。
あす出社しましたら、追加インストールが必要かどうかを含め、まずは検討してみます。
ピボットテーブルをかじり始めたばかりなので、ピボットテーブルで出来るのかと思い
躍起になっておりました。やはり視野が狭いのはいけませんね。

>>38
「ちょっと重い」程度のことなら、余計なことはせずに
がまんして使った方がいいかもしれんぞ
新しいシステムを導入すると必ずトラブルが起こるの法則

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 簡単なものなら
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 "シート保護"　"ロックされた範囲の選択　再起動"

シートを保護する際「ロックされたセル範囲の選択」チェックをオフにし、
ロックされたセルは選択出来ないよう設定したいのですが、エクセルを再起動するとシートの保護はされているのに
ロックされた範囲の選択は可能になってしまいます。
複数シートを使って何度も試してみたところ、時々ロックされた範囲を選択出来ないままの場合もありました。
どういうケースでそうなるのか再現は出来ませんでした。

解決方法をご存知でしたら、ご教授をお願い致します。

書き忘れた情報を追加します。ごめんなさい。

>>40の事象は、現在作成中の納品書請求書作成用のbookでのみ起こります。
新規でbookを作成した場合は再起動しても、ロックされたセルは選択出来ないままでした。
納品書請求書作成用のbookでも、新規でシートを追加した場合は大丈夫です。

シート保護のチェックは「ロックされていないセル範囲の選択」のみにチェックを入れています。

知らない間にどこかの設定を変えてしまったのでしょうか。
よろしくお願いします。

質問です。

sub k ()

for i= 1 to 30
〜〜〜〜〜〜
next i


for h=1 to 10
〜〜〜〜〜〜〜
next h

end sub

こうゆう構文ってなりたちますか？？（〜〜〜〜はなんでもいいです。）
試してみたのですができませんでした。本にもこのようなものは書いていませんでした。
なにかやり方があるのか知りたくて質問してみました。
エクセル2003です。よろしくお願いします。

>>39
>「ちょっと重い」程度のことなら、余計なことはせずに
>がまんして使った方がいいかもしれんぞ

「ちょっと重い」なんて書いてあったか？

>>42
Option Explicit

Sub k()
Dim i, h
For i = 1 To 30
Cells(i, 1) = "ループ1の" & i & "かいめ"
Next i


For h = 1 To 10
Cells(h, 2) = "ループ2の" & h & "かいめ"
Next h

End Sub
できるよ

スレチなんだが、だれかVBA質問スレたてて下さい

Excel VBA質問スレ Part13
http://pc12.2ch.net/test/read.cgi/tech/1254281104/l50

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

>>44
ありがとうございました。
かなり作業が進みました。感謝です。

Excel 2007の使い方について質問です。

【内容】
Excel 2007のハイパーリンクで、外部プログラムを起動していますが、
この外部プログラムに引数を渡したいと思っています。その引数の指定方法を教えていただけないでしょうか？

**.exe *** ***

と、スペースで引数を指定すると、" "が"%20"に変換されてしまい、うまく指定できません。
スペースをうまく指定する方法を教えてください。

宜しくお願いします。

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

作成したブックです。
ttp://www.dotup.org/uploda/www.dotup.org205926.xls.html

A2に文字があります。
B2からF2に日付があります。
G2のセルに、「もしB2からF2の日付の内一つでもTODAYなら、G2にA2を表示させる」
という事を行いたいです。

お手数ですがご回答よろしくお願いします。

お騒がせしました、自己解決しました。

>>50
"一つでも"ということなら
=IF(COUNTIF(B2:F2,TODAY())>=1,A2,"")

ただ実際範囲内で重複している日付は無さそうだから
=IF(COUNTIF(B2:F2,TODAY())=1,A2,"")
とやってもよさそうだけどね。

orz...

【1 OSの種類 　 　 　 　 .】 XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 ある程度
【4 VBAでの回答の可否】 否
ピボットで商品の今年度と昨年度の集計を出しました。
その集計から前年比などを出すのですが
ピボットで集計したものを別のシートに貼り付けて計算式「今年-昨年」で
前年比をだしているのですが、ピボットのあるシート内でこういった計算はできませんでしょうか？

商品名　＊＊

顧客　今年　前年　
　Ａ　10　　　5
　Ｂ　15　　　3
以下続く　　　　　
上のものを別シートに貼り付けて

顧客　今年　前年　今年-前年←新しいシート・列にこの計算式を入れてる　
　Ａ　10　　　5　　　5
　Ｂ　15　　　3　　　12

複数商品を何度も何度もコピペしてるので、もう少し効率的にできれば…
と思いました。判りづらいところもあるかもしれませんが
何卒ご教示お願い致します。

>>54
できるよ。そのまま式をピボットテーブルの隣に書き足せばいい。

＞55
ありがとうございます！
質問前に最初やってみたのですができなくて、今やり直してみたらできました！
なんでだろう…GETPIVOTDATAってなるから何か特別なことが必要なのかと思ってました。

>>56

前年比をピボットで計算させることもできるよ。

【1 OSの種類 　 　 　 　 .】 Windows XP Pro
【2 Excelのバージョン 　 】 Excel2003(出来れば２００７でも使いたいです)
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可（貼り付けだけなら出来ます）
【5 検索キーワード 　 　 】 まだググってません
以前に印刷の際、指定したセルに連番を作りながら、印刷が出来るような下記のＶＢＡを作って頂きました

Sub 連番印刷()
'
' 連番印刷 Macro
'
' Keyboard Shortcut: Ctrl+Shift+F
'
Dim i As Integer
For i = 1 To 4
Range("G12").NumberFormatLocal = "-00000"
Range("G12") = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
DoEvents
Next i

End Sub

しかし桁数と＊＊＊の都合で
連番をアルファベットと数字で構成した４桁で繰り上げるように変更したいのですが、書いて頂けますか？
文字の順番は数字→アルファベット（逆でもOKです）です
0→1→2→3→4→5→6→7→8→9→A→B→C→D→E→F→G→H→I→J→K→L→M→N→O→P→Q→R→S→T→U→V→W→X→Y→Z→0→1
という感じで

例
0001→0002→･･･0009→000A→000B→000C・・という感じで
36×36×36×36=1,679,616種類を作れないでしょうか？

できれば
アルファベットで「I」と「O」は数字の「0」と「1」と誤認識する可能性がありますので
極力省きたいと思いますので、32×32×32×32=1,048,576種類の連番を作成します
しかしまとめて100万枚印刷は出来ないので、開始番号と終了番号を指定して印刷が出来るようにしたいです
例
開始「0000」　終了「00FZ」で512枚・・という感じです

>58

Sub Macro1()

Dim myText As String
Dim i As Long
Dim myLength As Integer
Const myArray As String = "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ"

myLength = Len(myArray)

For i = 1 To 512

myText = Mid(myArray, Int(i / (myLength ^ 3)) + 1, 1)
myText = myText & Mid(myArray, Int(i / (myLength ^ 2)) + 1, 1)
myText = myText & Mid(myArray, Int(i / (myLength ^ 1)) + 1, 1)
myText = myText & Mid(myArray, i Mod myLength + 1, 1)

With Cells(i, 1)
.NumberFormatLocal = "@"
.Value = myText
End With

Next i

End Sub

【1 OSの種類 　 　 　 　 .】 Windows XP P
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】 可　よろしくお願いします。

ＶＢＡで
= Application.WorksheetFunction.Average(Worksheets("sheet1").Range(Cells(1, 3), Cells(10, 3)))
のように　average でＣ1からＣ10まで求めるやり方ははかりました、

Ａ3、Ａ6、Ａ9、Ａ12　「Ｃｅｌｌｓ（1,h*3）」　のような飛び飛びのセルを
average したいのですがどのようにすればよいですか？
教えてください。よろしくお願いします。

>61

= Application.WorksheetFunction.Average(Cells(3, 1), Cells(6, 1), Cells(9, 1), Cells(12, 1))

>「Ｃｅｌｌｓ（1,h*3）」　のような

無茶言うなよｗ

>>61
変数aとbを用意
fornextでstep3
a = a + cells(a,1)
b = b + 1
でa/b
もしかしたらコレクションを使えるかも知れないけど使え
いかも

初心者スレで荒らされたのでこちらでお願いいたします

使用OS　　XP
使用ソフトウェア　　excel2007

問題点　ピボットテーブルについて
　　　　範囲を指定して合計すると1行目がタイトル扱いになり
　　　　計算に加えてくれません。
　　　　1行目にタイトルを加えるのは複雑で大量になる為できません
　　　　オプション設定のどこを触ったらよいのでしょうか？　　　　

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 否
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excell 文字　置き換え

A1で計算した答えによって、文字の置き換えをしたいのですが、どうやればいいのかわからないです。
例えば、計算した答えが1だった場合は「りんご」、2だった場合は「バナナ」、3だった場合は…
というような表示をしたいのですが、関数でできるのでしょうか？

>65
Ａ１セルには計算式があるんですよね？
では、りんごやバナナなどの文字はどのセルに表示したいんですか？
まさか「Ａ１セルに」ではありませんよね？

>>65
=IF(A1=1,"りんご",IF(A1=2,"バナナ",IF(A1=3,"うんこ","ゲロ")))

>62
説明不足で申し訳ありません。
A1には計算式があり、答えは別のセル(A2とかA3)に表示させたいです。

>65,68
了解。それから計算結果は何通りくらいあるんですか？　３通りなら>67さんのやり方でいいと思うけど
数十通りとかなったら別のセル範囲に　値　と　表示したい文字列　のリストを作っておいてMATCHと
INDEXで表引きした方がいいと思う。

>>32
ありが�d!!
できました。

>>67
ありがとうございます。IFを使えばよかったんですね。
数通りの場合はこちらを使用します。

>>69
計算結果は2通りから、最大30通りぐらいまであります。
計算結果が多い時はMATCHとINDEXで表引きをすればいいのですか。
使用した事ないので使い方はわからないですが、ググって調べてみます。
ご丁寧にありがとうございました。

>>56
EXCEL2003ではGETPIVOTDATAって関数が勝手に入る仕様になって、俺はちょっとうざいと感じた。

下記の方法で、普通の感覚の式が使えるようになるよ。
http://www11.plala.or.jp/koma_Excel/contents6/mame6045/mame604501.html

>>65
質問の意図どおりの関数としては
=CHOOSE(A1,"りんご","バナナ","イチゴ","スイカ")
っていうのもある。

まあ、外にテーブル付くって>>69さんのようにするのがいいと思うけど

【質問です】
EXCEL2003において、ワイルドカードが使える（使えない）代表的な関数一覧・・・ってどこかにありますか？
ぐぐったのですが、よく分からない･･･
もちろん、個別関数において「使える」「使えない」というのは調べられるのですが、一覧があると分かりやすい･･･と思って。

>>74
使いたい関数ごとに調べるほうが良いと思うよ
ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/itiran.html
「ワイルドカードが使える」と書いてない限り、使えないと思ったほうが良いかも

質問です
エクセル2000から2007に変更したのですが、セルの塗りつぶしの
標準色セットが変わってしまっています
今までと同じ色で塗りつぶしたいのに、同じ色を探すだけで時間を取られます

2000と同じ標準色パレットを使用したいのですが、そのようなことはできますか？

>>76
こういうのがあるよ
ttp://fnya.cocolog-nifty.com/blog/2009/02/excel-2007-exce.html

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

１、実行してみましたが、Ａ１から下に向かい連番がふれられていくだけです
前回のＶＢＡの何処かに追加するのですか？

２、連番を入れるセルは何処でしていすれば良いでしょうか？

>For i = 1 To 512
ここが開始と終了ですね？

>>77
ありがとうございます
ちょっと操作感は違いますが、以前と同じ色を入力できるようになりました

他にも挿入した図形が印刷したらシャギシャギになってたり
2007って2000や2003との互換性があまりないのでしょうか・・・

>>79
ワードもエクセルも2007から内部構造が完全に変わった。xlsxファイルの拡張子をzipに変えてみるとわかるよ。
図形やグラフは互換性がとても低い。印刷するとずれたり大きさが変わったりする。

>>80
なるほど・・・厄介ですね
周りがまだ2000〜2003だらけなので、戻した方がよさそうですね

>78

それくらい応用してくれ。

>>58 >>78

暇だったから作ってみた

Option Explicit

Const cBase As String = "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ"
Dim BVCol As Collection

Sub 連番()
Dim lX As Long, lR As Long, lC As Long, st As Long, en As Long

Set BVCol = New Collection
For lX = 0 To Len(cBase)
BVCol.Add lX, Mid(cBase, lX + 1, 1)
Next lX

st = CValIndex("0000") ' 開始番号を「""」の中に記入
en = CValIndex("00FZ") ' 終了番号を「""」の中に記入
lR = 0
lC = 0
With Range("A1")
For lX = st To en
With .Offset(lR, lC)
.NumberFormatLocal = "@"
.Value = CTxtIndex(lX)
End With
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
DoEvents
lR = lR + 1 ' 行方向に書き込む場合、コメントブロック解除して
' lC = lC + 1 ' 列方向に書き込む場合、コメントブロック解除して

>>83　の続き

' lC = lC + 1 ' 列方向に書き込む場合、コメントブロック解除して
Next lX
End With
End Sub

' 引数[index]で指定した数値を、[BVCol]で定義した文字列に変換する
Private Function CTxtIndex(ByVal index As Long) As String
Dim lX As Long, vT As Variant, tTxt As String, cTmp As Collection

Set cTmp = New Collection
lX = index
Do
cTmp.Add lX Mod (BVCol.Count - 1)
lX = Fix(lX / (BVCol.Count - 1))
Loop Until lX <= 0

For Each vT In cTmp
tTxt = Mid(cBase, vT + 1, 1) & tTxt
Next vT

If Len(tTxt) > 4 Then
tTxt = Right(tTxt, 4)
Else
Do Until Len(tTxt) >= 4
tTxt = "0" & tTxt
Loop
End If
CTxtIndex = tTxt

>>84　の続き

End Function

' 引数[txt]で指定した文字列を、[BVCol]で定義した文字列で数値に変換する
Private Function CValIndex(ByVal txt As String) As Long
Dim lX As Long, lX2 As Long, lX3 As Long, stlX() As Long, stTmp As Long

ReDim stlX(1 To Len(txt))

txt = StrConv(txt, vbUpperCase)
For lX = 1 To Len(txt)
stlX(lX) = BVCol(Mid(txt, lX, 1))
Next lX

lX2 = UBound(stlX, 1) - 1
For lX = LBound(stlX, 1) To UBound(stlX, 1)
If lX2 < 1 Then
stTmp = stTmp + stlX(lX)
Else
stTmp = stTmp + (stlX(lX) * ((BVCol.Count - 1) ^ lX2))
End If
lX2 = lX2 - 1
Next lX
CValIndex = stTmp
End Function

>>83-85 のコードを
同じ標準モジュールに順番にコピペすればOKだから

>>82
すみません、コピペしかできません

>>82-85
ありがとうございました、明日試してみます

こんばんは。質問です。よろしくお願いします。
エクセル2003です。ＶＢＡ

ＶＢＡで、　
　　Ａ1：Ａ100　で　"月"　と表示のあるもの　　　　かつ
　　range(cells(10,h*3),cells(100,h*3))　で0より大きいものを

　　平均したいのですが、、、

sub k()

if 　If Range("A1:A100") = "月" Then

この先がわかりません。教えてください。お願いします。
”〜かつ〜”のＶＢＡでの表現法がわかりません。
　

セルの中の文の特定の部分だけ塗りつぶしをかける方法はありませんか？

Excel2007です。

質問です、お願いします

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

商品の仕入れ履歴をエクセルで記録しています。
元々、なにかしらの準備をしておくことで
品目コードから、商品名を一つ右隣のセルに自動呼び出しすることは可能でしょうか？
（例）　　コード　　　商品名　　　　一箱収容数
　　　　12512575　　○○○○　　　　　▲▲▲
上の○と▲が自動で入力できるようなシートを作れれば嬉しいです。

会社で使ってるファイルですが、=VLOOKUP(N8, $A:$FI, 3) と書いてありました。
この $A:$FI は、どういう意味でしょうか？
A1:FI20 なら分るんですが・・・

>>91
A列からFI列を選択している。
おいらも行数が不定の場合はこうするよ

>88
VBA質問相談所にも似たよう質問してませんか？で、何か条件が増えたような。

セルひとつづつ条件をチェックしていくしかないと思うけど。
まず、処理対象のセル範囲があやふや。
A1:A100の条件があるかと思うとrange(cells(10,h*3),cells(100,h*3))ということで10:100の範囲になってるし。
hの値が１から始まるならＣ、Ｆ・・・ＩＵ列（255列目　ｈ＝８５)まであるんですか？
VBA質問相談所の方(レス�ｂP５)を見ると
＞Ａ3、Ａ6、Ａ9、Ａ12　「Ｃｅｌｌｓ（1,h*3）」　のような飛び飛びのセルを average したい
ってあるけど。ひょっとして１０列目〜100列目ってこと？
ＶＢＥで　CELLS(　まで入力したら行と列の順序がわかりますよ。

>>83
83・84・85の順番に張り付けて実行しましたが、A1から下に向かって連番が
振られていくだけで、印刷は出来ませんでした

こんにちは。
エクセル2007って安いお店でいくら位でかえますか？

>83の
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
の行は有効に（'をはずす）してますよね？

>>96
レスありがとうございます
（' ）を削除して実行した結果、印刷はするのですが
A1に連番の指定した値がでて印刷→A2に次の連番が出てきて印刷になってしまいます
・・は指定したセルにだけ、違った連番が現れる毎に印刷にしたいです

ちなみにセルを指定する場合は
>With Range("A1")
のA1を変更すればいいんですよね？

>>95
これぐらい
ttp://kakaku.com/item/03206020367/

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

例えばマスタとしてSheet2のA2以降に番号,B2以降に氏,D2以降に単価がある時
Sheet1のB6に入力規則を設定して、そのリスト選択で
Sheet1のB6に氏,C6に名,D6に時給を表示させることはできますか？
関数ではなくVBAでお願いします。

>97
>83の
lR = lR + 1 ' 行方向に書き込む場合、コメントブロック解除して
をそのまま生かしているのなら、行方向にずれます。出力先固定ならば、コメント化すること。

出力セル位置(基準位置)の指定は　>97　のとおりです。

>>96
コメント化とはどうすればよいですか？

>>101
'

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 可
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ピボット　ゼロ　非表示

ピボットテーブルで、値がゼロのものは項目ごと表示させない方法はありますか？
ピボットテーブルの上からフィルターは使用したくないので他の方法があれば教えてください。

>>103
少しだけ手作業してもいいなら、グループ化という方法がある。
まず、集計値でソートしておいて値ゼロを一ヶ所に集めて、
その項目を全部グループ化
そしてそのグループを非表示にする。

>>58
テンプレの3・4見てなかったよゴメン

暇だから作るけど
してほしい動作をもう少し詳しく

>>58のコード通りなら
セルG12に番号を入れる→印刷、でいいのか？

それと、違った連番が現れる毎に印刷したいって
連番の範囲を指定するときに、重複する範囲を指定する場合があるってこと？

【1 OSの種類 　 　 　 .】 Windows XP Home
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか　 　 .】 少々
【4 VBAでの回答の可否 】 可
【5 検索キーワード 　　 】 任意の行数の挿入

下記VBA 「25行目から最初の上方向の空白行を選択」のつもり

Sub 空白行選択()

Const FirstRow = 25
Const LastRow = 2
Dim MyRow As Long

MyRow = FirstRow
Do Until Cells(MyRow, 2) = ""
MyRow = MyRow - 1
If MyRow < LastRow Then Exit Sub
Loop

Rows(MyRow & ":" & MyRow).Select
End Sub

ここまでは何とかできたのですが（合ってますよね？）
ここに、"25-(上記で検索した最初の空白行の行数)"の空白行をを挿入したいのですが、
どうすればいいのでしょう？
※上記で検索した最初の空白行の行数が 18であれば 25-18 = 7 行を挿入

よろしくお願いします。

>>106
とにかくデータ行の下に25行の空白行を設けたいってことであってるのかな？

横から失礼
>106さんがしたいのは、
２５行目から上方向に検査を行い、最初に見つけた（Ｂ列の）空白セルのある行から２５行目までに空白行を挿入したい
ということだと思います。
例えば、Ｂ２５セルが空白だった場合は　２５−２５＝０　で空白行の挿入は行われず、
　　　　Ｂ２４セルが空白だった場合は　２５−２４＝１　で１行挿入する　という具合。

106です。

>>107さん 108さん　ありがとうございます。
すいません。説明が言葉足らずでした。

シートには、２行目からＮ行目までデータが入力されています。
途中、不規則に空白行があります。

空白行から次の空白行までのデーターが、印刷時複数のシートに分割されないように
というのがそもそもの意図です。１シートのデーター入力行数が２５です。

例　２２行目　データー有り　　２３行目　空白行　　　　２４行目　データー有り
　　２５行目　データー有り　　２６行目　データー有り　２７行目　空白行

　　２３行目（２５行目から上方向の最初の空白行）に　２５−２３＝２　行の空白行
　　を挿入することによって、１枚目のシートは２２行目までデーター有り、２３〜２５
　　行目は空白行。２枚目のシートは（行挿入する前の）２４行目から始まる。
　　
意図したことは、上記のようなことです。よろしくお願いします。

>109
＞印刷時複数のシートに分割されないように
複数のページに分割されないようにして　ということですね。

改ページを設定する方法じゃダメ？　行挿入したら計算式に影響ありませんか？（計算式があるのか知らないけど）

106です。
>>108さん
「複数のシート」ではなく「複数のページ」でした。重ね重ねすいません。

「改ページを設定する」ってのは分かりませんです。そういう方法も
あるのでしょうか？

計算式の参照は行方向だけなので、行挿入しても問題ないと思います。

>111
手作業での改ページはわかりますね？（メニュー−挿入−改ページ）
マクロの自動記録をしてみたら、次のようなコードができました。
※12行目を選択して改ページしたときの内容です。（当方はExcel2003です）

Rows("12:12").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Range("A12").Select
こういうこともできるということで。

>>106
連続データが30行（B2:B31まで）あったらどうすんのかな？

> １シートのデーター入力行数が２５です。
あ、ごめん。よく読んでナカッタヨ。

106です。
皆様　色々なコメント、ありがとうございます。私の質問自体に、誤りとあいまいな点がありました。
すいませんです。質問自体を訂正・整理して、もう一度ＵＰします。
下記VBA 「25行目から最初の上方向の空白行を選択」のつもり

Sub 空白行選択()

Const FirstRow = 25
Const LastRow = 2
Dim MyRow As Long

MyRow = FirstRow
Do Until Cells(MyRow, 2) = ""
MyRow = MyRow - 1
If MyRow < LastRow Then Exit Sub
Loop

Rows(MyRow & ":" & MyRow).Select
End Sub

ここまでは何とかできたのですが（合ってますよね？）ここに、"25-(上記で検索した最初の空白行の行数)"
の空白行をを挿入したいのですが、 どうすればいいのでしょう？
※上記で検索した最初の空白行の行数が 18であれば 25-18 = 7 行を挿入

シートには、２行目からＮ行目までデータが入力されています。 途中、不規則に空白行があります。
空白行から次の空白行までのデーターが、印刷時複数のページに分割されないように
というのがそもそもの意図です。１ページのデーター入力行数が２５です。
例　２２行目　データー有り　　２３行目　空白行　　　　２４行目　データー有り
　　２５行目　データー有り　　２６行目　データー有り　２７行目　空白行

　　２３行目（２５行目から上方向の最初の空白行）に　２５−２３＝２（行）の空白行
　　を挿入することによって、１枚目のぺージは２２行目までデーター有り、２３〜２５
　　行目は空白行。２枚目のページは（行挿入する前の）２４行目から始まる。
意図したことは、上記のようなことです。よろしくお願いします。

>>108さん　　　　手作業の改ページ

<12行目を選択して改ページしたときの内容です。（当方はExcel2003です）

Rows("12:12").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Range("A12").Select >

12行目を選択の代わりに、Rows(MyRow & ":" & MyRow).Select とすればいいと言うことでしょうか？

↑　すいません　106です。115の続きです。

>116
１２行目だけの　１行挿入　ならそうですが、106さんがしたいのは　MyRow行から２５行(こっちは固定)まで
の行挿入ではありませんか？
だから、
×　Rows(MyRow & ":" & MyRow).Select
○　Rows(MyRow & ":" & 25).Select　かと思う。
ただ、これだと25行目が空白だと25:25の1行挿入になってしまい、
"25-(上記で検索した最初の空白行の行数)" の空白行を挿入　と矛盾する（２５−２５＝０で行挿入なし）。
検査は２４行目から（上記コードもRows(MyRow & ":" & 24).Select）ではないのかな？

>>92
ご回答ありがとうございました。

>>104
おお、そういう方法もあるのか。
ありがとう

【1 OSの種類 　 　 　 　　】 WindowsXP
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 EXCEL　外部プログラム起動

Excel 2007のハイパーリンクで、外部プログラムを起動していますが、
この外部プログラムに引数を渡したいと思っています。その引数の指定方法を教えていただけないでしょうか？

**.exe *** ***

と、スペースで引数を指定すると、" "が"%20"に変換されてしまい、うまく指定できません。
スペースをうまく指定する方法を教えてください。

宜しくお願いします。

エクセルで確率を計算したいのですが、
２０％の当たりを、５回連続ではずす確率は？
みたいな問題に対する式とかありますでしょうか。

>122
２０％の当たり　なら　８０％の外れ
５回連続で外れ　なら　８０％の５乗　でいいんじゃないですか？

>>123
統計関数、の所を探していて混乱してました。
普通の計算ですね・・
ありがとうございます。

宿題させんな

>>106
1シートのデータ行数が25で固定なら
最初から印刷範囲を設定しておけばいいのでは？
また、改ページが自動で設定されるのがイヤなら
印刷プレビュー → 設定 → ページ設定の次のページ数に合わせて印刷で
横と縦をそれぞれ1に設定すればいい

それともこうゆう事？
・ある列(例えばＡ列)をチェックして
・空白行があればそこで区切り25行になるようにする
・それを2行目からＮ行目まで行うと
・1シートのデータ入力数じゃなく、1改ページ当りのデータ数が25

計算で例えばA1から順に1 10 100 1000ってなってて1と10の差（9） 10と100の差（90） 100と1000（900）の差それぞれのを一編に出す方法教えて下さい またこの計算が出来る関数はありますか??

宿題させんな

>>127
-を使うとよい

手順を教えてもらえません??(>_<｡)

B2に=A3-A2ていれて
下にフィルコピー

106です。

>>118　ありがとうございます。
改ページはうまく行くのですが、印刷した時にデーターのある行までしか印刷できません。
最後の２５行目まで（例えデーターが空白であっても）、罫線の枠組みだけでも印刷
に反映したいのですが・・・。

>>126さん　ありがとうございます。
１シートのデーター行数は１〜Ｎ（多分100ぐらいまで）です。
シートには、２行目からＮ行目までデータが入力されています。 途中、不規則に空白行があります。
空白行から次の空白行までのデーターが、印刷時複数のページに分割されないように
というのがそもそもの意図です。１ページのデーター入力行数が２５です。
例　２２行目　データー有り　　２３行目　空白行　　　　２４行目　データー有り
　　２５行目　データー有り　　２６行目　データー有り　２７行目　空白行

　　２３行目（２５行目から上方向の最初の空白行）に　２５−２３＝２（行）の空白行
　　を挿入することによって、１枚目のぺージは２２行目までデーター有り、２３〜２５
　　行目は空白行。２枚目のページは（行挿入する前の）２４行目から始まる。

よろしくお願いします。

>132
手作業（もしくはＶＢＡ）での改ページしていませんか？
表示形式を通常から「改ページプレビュー」にしてみたらいいです。
改ページの解除はできますか？
それから、行挿入した部分は罫線はどうなってますか？　画面上で表示されていますか？

>>132
印刷範囲は25行目で固定なの？

>例　２２行目　データー有り　　２３行目　空白行　　　　２４行目　データー有り
>　　２５行目　データー有り　　２６行目　データー有り　２７行目　空白行
この例だと、２枚目のページ(行挿入前の24行目)以降は印刷しないの？

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

Excelで就職用の履歴書を作ろうとしているのですが、
ネット上でダウンロードできるものではなく、自分でそういったものを作りたいのです。
そういった表を作る上での丁寧な解説などがのったサイトはありませんか？

就職できるかどうかはそこからすでにはじまってるんだよ

>>136
いやまあ、そういわれてしまうとそうなんですが…

一応、基本操作はマスターしています。
セルの結合とかやればうまくいくのかな、という気はするのですが。

>>137
マスターしてるんならできるでしょうに
落ちてる奴改変すりゃすぐできるでしょ

>>138
うーむ…それもそうですね、
これも一つの勉強と思って頑張ってみます。
ありがとうございました。

・いちから自分で作成できるかどうか
・ネットでテンプレートを検索して応用できるかどうか
・知人につくらせるだけの人脈があるかどうか

どれも無理なら就職は無理よ

今、手持ちの履歴書(PDF等ではなく実際の紙)
を参考に作成していますが、なんとか作れそうです。
背中を押してくれてありがとうございました。就職に向けて頑張ります。

そういうのはワードで作れよ

確かに・・・
エクセルよりはワードで作った方が自分の勉強になるよ
自分はワードだとどこかで爆発しそうだけど

昨日隣のおばちゃんが10行くらいの文章Excelで作ってたわｗ

>>143
ワードなんて別に勉強してまで使うもんじゃないでしょ。
ただのワープロだぞ。

エクセル＞ワードだな
大抵のものはエクセルで作ってるお

会社ではワードはある程度使えないと、顰蹙なもんで・・・
自分もエクセルの方が楽だけどさ。

>>146
>>147
あほか。文書作成ならワード>エクセルだろ。
常識。

俺もエクセル派。エクセルで作る方が早いから
あと複数文書を1ファイルにまとめられるのもいい
数字やグラフが入るとエクセル必須だしな。
よくわからないけど団塊のおじさんは妙にワード使うのが上手い傾向がある
エクセルは全く使えないんだけどw

>>105
親切な応対ありがとうございます
会社の伝票を会社のプリンターで発行したいのですが
以前に、まとめて５００枚くらい印刷してしまうと、プリンターが、正常に動かなくなったことがありましたので・・
それと今回は、取引会社（ＶＢＡ自体知らない人たち）にも手伝って貰うために、連番の範囲を指定した
ファイルを渡して印刷してもらう事にしました

詳しい動作
１、セル「Ｇ１２」に連番を書き込み、異なる連番が現れる都度印刷される
２、範囲は　１TO 50　みたいに指定できたら楽です
３、伝票１枚に１つの連番が入り、重複する連番は指定しません

追加できたら
１、連番の先頭に−（ハイフン）を入れられますか？
２、数字→アルファベットの後に「#$%&\」等の記号も追加することは可能ですか？

>>149
例えば5行の文章で2行目を修正したい時はどうするの？

>150
追加の部分は　セルの書式−ユーザー定義で好きなようにできますよ。

G12セルを選択した状態で　書式−セル−表示形式　で　ユーザー定義　を選び、種類(T):の欄に
"!#$%&-"@
って指定してみてください。G12セルの内容の前に　!#$%&-　が付加されます。

>>152
ハイフンの件はわかりました
!#$%&は
123456789ABCDEFGHJKLMNPQRSTUVWXYZ#$%&\
と言う感じで桁数を増やしたいと言う意味です、
（すみません言葉足らずでした）

>>150
>２、範囲は　１TO 50　みたいに指定できたら楽です
これは、1〜50て指定したら0001〜001Gてなるようにて事？
どっちか決めてもらった方が作りやすい

>連番の先頭に−（ハイフン）を入れられますか？
>数字→アルファベットの後に「#$%&\」等の記号も追加することは可能ですか？

可能か不可能かでいえば可能だよ
追加する記号が固定なら簡単だし、変化するならその条件が判らないと無理

>>105
レスありがとうございます
１〜５０と設定したら
0000〜001Gがでる様にしてください。

先頭の「-（ハイフン）」もお願いします。

「#$%&\」の４つの記号もお願いします。

なんなの？この人↑

>>156
何度もおじゃましてすみません
自分の中でも仕様が上手くまとまっていなくて
ご迷惑をおかけします

↑誰も相手にすんな。

105がやってくれるんならいいんじゃないか？
俺はゴメンだが

106です。
>>133 >>134 さん　ありがとうございます。皆様のアドバイスを参考に、色々やってみた結果
下記のVBAで、何とかなりそうです。

Sub 空白行選択()

Const FirstRow = 25
Const LastRow = 2
Dim MyRow As Long

MyRow = FirstRow
Do Until Cells(MyRow, 2) = ""
MyRow = MyRow - 1
If MyRow < LastRow Then Exit Sub
Loop

If MyRow = 25 Then
Range("A26").Select

Else
Rows(MyRow & ":24").Select
Selection.Insert Shift:=xlDown
Range("A26").Select

End If
End Sub

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

>>155 できたよ
Sub 連番2()
Dim lX As Long, sTmp As String, st As Long, en As Long, isChekOK As Boolean

Set BVCol = New Collection
For lX = 0 To Len(cBase)
BVCol.Add lX, Mid(cBase, lX + 1, 1)
Next lX

isChekOK = False
Do
Do
sTmp = StrConv(InputBox("連番の開始する数値を入力してください", "開始値の入力"), vbLowerCase)
If sTmp = "" Then
If vbNo = MsgBox("数値が入力されていません" & vbCrLf & _
"再入力しますか？", vbYesNo + vbInformation, "確認") Then
Set BVCol = Nothing
Exit Sub
End If
ElseIf Not IsNumeric(sTmp) Then
If vbNo = MsgBox("入力された値が数値として認識できません" & vbCrLf & _
"再入力しますか？", vbYesNo + vbInformation, "確認") Then
Set BVCol = Nothing
Exit Sub
End If
End If
Loop While sTmp = ""
st = CLng(sTmp)

>>161 の続き

Do
sTmp = StrConv(InputBox("連番の終了する数値を入力してください", "終了値の入力"), vbLowerCase)
If sTmp = "" Then
If vbNo = MsgBox("数値が入力されていません" & vbCrLf & _
"再入力しますか？", vbYesNo + vbInformation, "確認") Then
Set BVCol = Nothing
Exit Sub
End If
ElseIf Not IsNumeric(sTmp) Then
If vbNo = MsgBox("入力された値が数値として認識できません" & vbCrLf & _
"再入力しますか？", vbYesNo + vbInformation, "確認") Then
Set BVCol = Nothing
Exit Sub
End If
End If
Loop While sTmp = ""
en = CLng(sTmp)

If st > en Then
If vbNo = MsgBox("開始値より終了値の値が小さい場合の連番は作成できません" & vbCrLf & _
"再入力しますか？", vbYesNo + vbInformation, "確認") Then
Set BVCol = Nothing
Exit Sub
End If
Else
isChekOK = True
End If
Loop Until isChekOK

>>162 の続き

With Range(cIDCell)
For lX = st To en
.NumberFormatLocal = "@"
.Value = CTxtIndex(lX)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
DoEvents
Next lX
End With
End Sub

' 引数[index]で指定した数値を、[BVCol]で定義した文字列に変換する
Private Function CTxtIndex(ByVal index As Long) As String
Dim lX As Long, vT As Variant, tTxt As String, cTmp As Collection

Set cTmp = New Collection
lX = index

>>163 の続き

Do
cTmp.Add lX Mod (BVCol.Count - 1)
lX = Fix(lX / (BVCol.Count - 1))
Loop Until lX <= 0

For Each vT In cTmp
tTxt = Mid(cBase, vT + 1, 1) & tTxt
Next vT

If Len(tTxt) > cBaseN Then
tTxt = Right(tTxt, cBaseN)
Else
Do Until Len(tTxt) >= cBaseN
tTxt = "0" & tTxt
Loop
End If
CTxtIndex = cTopID & tTxt
End Function

>>161-164
のコードを新しい標準モジュールにコピペしてくれ

これを忘れてた
↓のコードの後に>>161-164をコピペしてくれ

Option Explicit
'↓連番を入力するセルアドレス
Private Const cIDCell As String = "G12"
'↓連番の先頭に付け足す文字列
Private Const cTopID As String = "-"
'↓変換に使用する文字列リスト
Private Const cBase As String = "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ#$%&\"
'↓連番の桁数[0000]なら4
Private Const cBaseN As Long = 4
Private BVCol As Collection

>>160
解決したようだが、別解として。
Sub 空白行選択02()
Dim MyCnt As Long
For MyCnt = 25 To 2 Step -1
If Cells(MyCnt, 2).Value = "" Then
If MyCnt = 25 Then Exit For
Rows(MyCnt & ":24").Insert Shift:=xlDown
Exit For
End If
Next MyCnt
Range("A26").Select
End Sub

>>105
ありがとうございます、無事に印刷ができました

取引会社に >161〜166 のマクロを入れて渡すのは
どうかと思うけどなあ、他人事だからどうでもいいけど。

>58 解決したようだけど一応
Sub hoge()
　 Dim Ary39(39) '配列に対応文字格納
　 For i = 0 To 9: Ary39(i) = Chr(i + 48): Next
　 For i = 10 To 17: Ary39(i) = Chr(i + 55): Next
　 For i = 18 To 22: Ary39(i) = Chr(i + 56): Next
　 For i = 23 To 33: Ary39(i) = Chr(i + 57): Next
　 For i = 34 To 37: Ary39(i) = Chr(i + 1): Next
　 Ary39(38) = "\"
　 Cells(12, "G").NumberFormatLocal = "@"

　 Dim TmpStr, SrcNum, StartNum, EndNum
　 StartNum = Cells(1, "A") '開始値がＡ１にあると仮定
　 EndNum = Cells(1, "B") '終了Ｂ1と仮定、エラー処理略
　 For i = StartNum To EndNum
　 　 TmpStr = "": SrcNum = i
　 　 For j = 1 To 4 '条件により４桁固定
　 　 　 TmpStr = Ary39(SrcNum Mod 39) & TmpStr
　 　 　 SrcNum = Int(SrcNum / 39)
　 　 Next j
　 　 Cells(12, "G") = "-" & TmpStr
　 　 ActiveSheet.PrintOut
　 Next i
End Sub

エクセル2003です

今セルに入っている数字（金額）の表示を、たとえば
1,234,567
を
1,234 （千円台） や 123 （万円台）
に変更することはできますか？
元の値を弄らずに、表示だけを変更したいのですが・・・

質問なのですが、マイクロソフトオフィススペシャリスト講座を
募集しているパソコン教室があるのですが、一ヶ月短期間コース
というのは一体どんなカラクリがあるのでしょうか？
初心者を集めてます。

>>171
ttp://www.relief.jp/itnote/archives/000167.php

もしくは excel　表示形式　千円　とかでググってみな

>>172
自習

>>172
テストの傾向に対して暗記させるだけ
ここの連中でも傾向知らずに受けると落ちると思う

一応補足しておくと、それが悪いって言ってるんじゃないよ
ただ正直、ちょっと気に食わないというのはあるがね

A1〜A100に果物名が入ってるとします。

B列に重複なしに、一意の果物リストをつくる関数を教えて下さい。

>>177

一意のリストを作ったらその後どうしたいの？

>>178
果物の金額合計

>>179

ピボットテーブル知ってる？

>>180
知ってる。

シートを追加してリネームするマクロなんですが、今月だったら "OCT 09"（OCTは全て大文字） に
するには、???にどう書けばいいですか？

Sheets.Add.Name = ??? & " " & Right(Format(Date, "yyyy"), 2)

ピボットテーブルを作れば、一意なリストの作成と金額の合計がいっぺんにできるよ！

>>182
俺ならこう書くけど、

Sheets.Add.Name = UCase(Format(Date, "mmm yy"))

どうしてもその式の???を埋めるような方法じゃなきゃだめ？何かの練習問題？

>>184
練習問題じゃないです。
Oct 09なら出来たので、OCTのとこだけ聞いたつもりでしたが、そちらの方が
スッキリしてていいですね。ありが�dございました（ﾍﾟｺｯ

質問です。

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

保存したファイルを開いたときに
普段なら保存した時のセルから開始されると思うのですが
なぜか違う場所から（シートもセルも）開始されてしまいます。

なぜでしょうか？

エクセルについて質問です。お願いいたします。

エクセルファイルが３つあるとします。A、B、Cとします。
それぞれのファイルのあるシートだけコピーして、新しいエクセルファイル
を作成する方法はないでしょうか？

つまり、エクセルファイルAのシート２のみを、新しいエクセルファイルDを作成し
ここにコピーする。エクセルファイルBのシート３のみをエクセルファイルDに、
エクセルファイルCのシート１を、エクセルファイルDへコピーする。

という方法はないでしょうか？
エクセルファイルAを、新しいファイルにコピペすると、セルのサイズなどを
もう一度あわせないといけなくて、非常に不便なんです。セルの形ごと
コピーできればいいんですが。

>>187
シート名の所右クリックして出るメニューのコピー使えばいいんじゃね？

新規ブックにコピーだな

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

列幅コピペてのもあるけどね

2003、別シートのA1セルの値を参照させたいのですが
どうしたらいいでしょうか

>>192
=別シート!A1

>>193
おお、できました
ありがとうございます

随分低レベルな質問になったな。

＼
　 ￣ヽ、　　　_ノ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　　　｀'ｰ '´　　　　　　　　
　　　　　　○　　　　　　　　
　　　　　　　Ｏ 　　　　　　
　　　　　　　　o　　
　　　　　　　　　。
　　　　　　　 　　　　,,,,,,---ー---､､､
　　　　　　　　　　,.-'";:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:ヽ､
　　　　　　　 ,,.;;;::;:;:;:;::;;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;!i`ヽ
　　　　　　／;:;:;:;:;:;:;:;:;:;:;:;:!!!!!!!!!''""":::;!!!!ﾉヾ;:;:＼
　　　　　/;:;:;:;:;:;:;:;:;::!!''"　　　　　　　　　　　!;:;:;:;:;ヽ　　　　　　　　と
　　　　　|;:;:;:;:;:;:;:!'"　　　　　　　　　　　　　　ヽ;:;:;:;ヽ　　　　　　　思　　
　　　　　|;:;:;:;i''"　　　　　　　　　　　　　　　　　i!;:;:;:;|　　　　　　　う　
　　　　　|;:;:;:;|　　　　　　　　　　　　　　　　　　ヾ;:;:;:|　　　　　　　亀　
　　　　　|;:;:;:;|　　　 ,,,;;:iii;;;;;　　　　,.-＝＝--､.　`!;:;|ヽ　　　　　　井　　　
　　　　　 〉;:;:|　,.-''"￣￣￣`ヽ⌒|　　--｡､-､ ヽ-`'　|　　　　　　で　
　　　　　i　`u　i　-‐'"ヾ'"　　::　::!　　　　　　:　|　　ノ　　　　　　 あ　
　　　　　 i　　　|　　　　　　 ノ　　 ヾ､＿＿＿ノ　　::|　　　　　　　っ
　　　　　　|　|　 ヽ､＿＿,.-i　　　　　i　､　　　　:　　:|　　　　　　　た
　　　　　　 | |　　:　　　: '" `〜ー〜'"　ヽ　:　:　　 ::|　　　　　　　　
　　　　　　 `i　　　ヾ　'　　　　＿＿＿＿　　;:　　;: :|　　　　　　　
　　　　　　　 ＼　　　　 -‐'''"~￣￣￣￣　 ;　　;: :/-､＿　　　　　　
　　　　　　　　　ヾ:　:　.　　　`　"　"　"　　　　,.／　　　　`ー-､
　　　　　　　 ,,,--'＼:　:　　　　　　　　　　,.　,.イ
　　　　_,.-‐'"　　　　|`ヾ;:;:ヽ....､　:　:　:　　 ／ !
_,.--‐'"　　　　　　　 |　 `ｰ､;:;:;:;:;:;:;:;:;:;:,.-''"　 |
　　　　　　　　　　　　|　　　`＞ー‐＜　　　 /
　　　　　　　　　　　　 !　　／　　　 ,.'"＼　 !
　　　　　　　　　　　　 |　/~i　　　／　　　`/

やめろw

>>177
猿並みの式なら
=INDEX(A:A,SMALL((MATCH(A$1:A$100&"",A$1:A$100&"",)<>ROW(A$1:A$100))*1000+ROW(A$1:A$100),ROW(A1)))&""
と打ってCtrl + Shift + Enterだったっけか。
ちょっち違うかな？

A3セルに10/7と入れたら、B3セルに2009/09/01と表示させるには
どう書けばいいでしょうか？

>199
10/7　と　2009/09/01　はどこがどう対応するんでしょうか？
10/7　と入れたら　2009/10/7　なら話はわかるんですが（というか自動的に日付とみなしてこうなる）。

>>199
どういう関連性があるんだ？
先月の月はじめなら
=A1-DAY(A1)-DAY(A1-DAY(A1))+1
=DATE(YEAR(A1),MONTH(A1)-1,1)
とかかな？
色々方法はあるだろうな。

>>199
単純で良いなら、
B3セル　 =IF(A3="10/7","2009/09/01","")

↑ただしこれはA3セルの書式設定を文字列とかに変えないとダメなようです

あぁぁ、、、　素直に書けばよかったかもｗ
=today() なんだけど、先月の１日をyyyy/mm/dd形式で表示させたいんです。

>>201
=A1-DAY(A1)-DAY(A1-DAY(A1))+1　だと、1 になりました。

=DATE(YEAR(A1),MONTH(A1)-1,1)　だと、#NUM! になりました。

連投すんません。

yyyy/mm/dd形式　じゃなくて、yy/mmm形式で、09/SEPにする　でした。

>>205
=DATE(YEAR(A3),MONTH(A3)-1,1)
じゃねーの
A1とA3を間違えてるんだろう

>>207
できました。

別に間違えたわけじゃないよ。
A1で質問するのが普通だからそう書いたまで。
A1をA3に直すことくらい自分で気がつかないのかな。

どんな言い訳してもそれは間違いだろw
>A1をA3に直すことくらい自分で気がつかないのかな。
気が付かない初心者なんだろうに
なんで上から目線なの?アホなの?

＞A3セルに10/7と入れたら、B3セルに

どう読んでもA1には見えんがなｗｗｗ

>>209
最近よく見かける恥の上塗りの人か
大人なら素直に間違いを認めようぜ
誰だって間違いはするんだ
完璧な人間なんて居ないのさ

「あっ間違ったゴメン」　とかって書けばすむことなのにｗ

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

例えばD20に、
=CELL（"address",C10）　
のような式を入れてそのセルには「$C$10」と返してもらっています。

で、MINやMAXの式で範囲の片方をその返してもらった「$C$10」の番地そのものを使い
たいんですがそのままMIN(D20,・・と入力しても$C$10の中味を参照しにいってしまって
うまくできません。

この場合D20の頭に何を付ければ良いですか？

よろしくお願いします。

>>214
＞$C$10の中味を参照しにいってしまって
の意味がよく分からなかったけど、やりたいことは
=MIN(INDIRECT(D20), 10, 20, 15)
みたいなことかな・・・

>>215
ありがとうございます、その通りです。
ちょっと勘違いしてました、カンマ使ってて範囲が指定されなくておかしいなと・・orz

無事うまくいきました。

まーた偏執狂がいるなｗ

>>199はいくらなんでもネタだろうよ。

>>199じゃなくて>>205な

205はネタじゃないぞ
A3に10/7、B3にその数式を入れてみろ

アホでつか？

つぎいこ、つぎ。

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

積み上げタイプのグラフについての質問です。
データ順序を変更すると、その順序が全ての系列に反映されますが、
これを１系列ごとに変更することって可能でしょうか？
http://www.aoten.jp/snack/excel/s4_10.html
この頁で言いますと、４月は札幌が一番下、５月は福岡が一番下・・・みたいに
それぞれの月で数量の多い順に並べたいわけです。
可能でしょうか？

なんかどっかで見たような質問だな

>>223
たぶん、できないと思う

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

2009/1/1、1:00
・
・
・
のように日にちと時間が別セルにある時に、
すべての時間を6時間進めるのはどうすれば良いでしょうか？
よろしくお願いします。

=A1+6/24

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 おｋ
【5 検索キーワード 　 　 】 for each アスタリスク　ファイル名　を含む

マクロを書いたブックの他に、”売上”という文字を含むファイル名のブックが
開いてたら動作するのを作ってるんですが、"*売上*" がダメっぽいので
何て書けばいいのか教えてください。

Sub test()
Dim WB, WB1
　For Each WB In Workbooks
　　If WB.Name = "*売上*" Then
　　　WB1 = WB.Name
　　End If
　Next

　If WB1 = "" Then
　　Exit Sub
　End If
　
End Sub

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

シート１にマスターデータみたいに全部のデータが
A　　　　　　　　B
JAN　　　　　商品名
４９０６７・・・・　　まんじゅう
・
・
・
みたいにあって
シート２に　
JAN　
４９０６８・・
・
みたいにマスターデータ内のJANだけが飛び飛びで並んでるんですけど
JANの隣のセルにマスターデータから商品名を参照して貼り付けるにはどんな関数でどんな数式つかえばいいですか？
JANの隣のセルにに

>>226
A1=2009/1/1 ,B1=1:00 　という場合、
A2 =IF(DAY(B1)=DAY(B2),A1,A1+1)
B2 =B1+6/24
で下方へコピー

>>226
どこかのセルに6:00と打って、コピー、形式を選択して貼り付けから加算でOK

なんだ日付と時刻が別セルか。
上は駄目だな。
同じセルに日付と時刻をまとめてから6時間を足すのが簡単だな。

>.232

俺もそこは気が付かなんだｗ

>226

別セルで日付の繰り上がりもしたいのか？
簡単だが説明するのがﾒﾝﾄﾞｸｻｲ。

あと本当にそのｷｰﾜｰﾄﾞで検索したのか？
それでHitしたｻｲﾄの解説が分からないの
ならｱｷﾗﾒﾛﾝ(AA略

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


２つの列から重複しているデータを抜き出すにはどうしたら良いでしょうか？

例えば、

　A　　　　　　　B
中村俊輔　　長谷部誠
中村憲剛　　中村俊輔
遠藤保仁　　本田圭祐
長谷部誠　　今野泰幸
稲本潤一　　中沢祐二

とあったら、

「中村俊輔」と「長谷部誠」を抽出する感じです。
フィルタオプションの設定からやってもうまくいきませんでした。
よろしくお願いいたします。

ググって自己解決しました。

>>234
その検索キーワードでググって解決しない理由がわからないのだが。

例えば、
C1=IF(COUNTIF(B:B,A1),ROW(),"")
D1=INDEX(A:A,SMALL(C:C,ROW()))

>>226
A1=2009/1/1
B1=1:00
C1=6時間後の日付
D1=6時間後の時刻

としたい場合

C1の数式=A1+B1+"6:00"
D1の数式=A1+B1+"6:00"
C1の表示形式 yyyy/m/d
D1の表示形式 h:mm

>>229
Sheet1にマスター、Sheet2のA2に49067とかあるなら、となりのB2に
=VLOOKUP(A2,Sheet1!A:B,2,0)
みたいでどお？

>>234
２つの列の項目名を同じにしてから、フィルタオプションの設定

名前 名前
中村俊輔 長谷部誠
中村憲剛 中村俊輔
遠藤保仁 本田圭祐
長谷部誠 今野泰幸
稲本潤一 中沢祐二

リスト範囲　$B$1:$B$6
検索条件範囲　$A$1:$A$6
みたいにすればＢ列に中村と長谷部が出る。

>>239
分ってるとは思うが、それはExcel2002でしか通用しないよ。
しかもデータが少ないときだけだな。

2003とかなら稲本潤一と稲本潤一朗とかで前方一致で不具合が出るから、検索条件範囲のデータを
'=中村俊介
'=中村憲剛
'=遠藤保仁
'=長谷部誠
'=稲本潤一
としないと。

>>226に関しては誤差対策無しで大丈夫かなぁ。

241だが、時間だけ進めるなら>>230や>>237で大丈夫みたいだな。
何時間何分進めるとかなら誤差対策が必要そうだが。

>>240
作業列に="="&A2などとして、その作業列を検索条件範囲にすればよさそうだね。

>>226
a1+b1-int(b1)+6/24
でいいんじゃないのか

>>243
そういうことだね。

各列ごとに、同時に複数の列を挿入することはできますか？

最近は頭がうまく働かないという人が多いな。

どうも空気中のオゾンの濃度が上昇してるようで、これが原因みたいなんだな。
オゾンの濃度が上昇すると、人間の呼吸機能が害される。人間の呼吸器の機能が
低下すると、体内に取り込まれる酸素の量が減少する。すると脳にまわる酸素が
不足するようになって、脳の機能が低下する。脳の機能が低下すると頭が疲れやすく
なり、文字とかをたくさん読んだり書いたりすることが難しくなってきたりするし、複雑な
思考をすることも難しくなるんだな。
ちなみに一酸化炭素の致死濃度は1500ppmに対し、オゾンの致死濃度は50ｐｐｍで、
単純計算でオゾンの毒性は一酸化炭素の30倍強い。
http://www.showaboss.co.jp/sub2-safety02.htm
http://ja.wikipedia.org/wiki/%E4%B8%80%E9%85%B8%E5%8C%96%E7%82%AD%E7%B4%A0

生活環境基準では0.05ppm(50ppb)が安全基準の上限なんだが、実際にはこの基準を
超える地域というのが最近は結構多い。
http://www.jamstec.go.jp/frcgc/gcwm/jp/japan.html

このオゾン濃度が上昇する原因なんだが、最近はバイオ燃料を自動車で使うことが
原因として指摘されたりしている。
http://tvert.livedoor.biz/archives/50893079.html
http://wiredvision.jp/blog/wiredscience/200706/20070606133755.html

通常のガソリン・軽油は炭素と水素原子だけで構成されるんだが、バイオ燃料（バイオエタノール）の
場合、酸素原子も燃料に含む。そしてその酸素原子がエンジンが吸入する空気中の酸素分子と
結合してオゾン（Ｏ３）になるのが原因ではないかと言われている。

>>246
できない

>>246
列を挿入するんじゃなくて、並び替え使えば出来る。
作業行に連番振って、その連番を右に必要回数コピーして
その作業行をキーにして列単位で並び変えればOK。
最後に作業行を消せばよい。

>>248
>>249
ありがとうございます
解決しました。

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

以下のようなデータで、2行目がタイトル行になっておりオートフィルタが掛かっています。
オートフィルタでB列から0.0000を抽出、D列が0より大きいものを抽出したとき、DとEの値を
BとCへコピペしたいのですが、3行目しかうまくコピペできません。
マクロでやってますが、どうすればいいでしょうか？

　　　A　　　　　B　　　　　　C　　　　　　D　　　　　　E
3　　U$　　　0.0000　　　0.0000　　　0.0175　　　0.0175
4　　U$　　　0.0000　　　0.0000　　　0.0000　　　0.0000
5　　U$　　　0.0282　　　0.0282　　　0.0293　　　0.0293
6　　U$　　　0.0000　　　0.0000　　　0.0155　　　0.0155
7　　U$　　　0.0135　　　0.0135　　　0.0135　　　0.0135


ちなみに、今はForで全ての行をIfで分岐して条件に合致したらコピペ・・・をやってますが、
データ量が多いため、オートフィルタの方法で試してみたいと思っています。

エクセル２００７で列を挿入しようとすると、オブジェクトがはみ出しますとか出て、
挿入できないんです。
いままでエクセル２０００使ってたから、使いにくくて仕方がありません。
どなたか対処法を知っている方見えましたら教えてください。

表のいちばん右の列から右端の列までを選択して削除

>>251
それはオートフィルタの仕様っぽい
コピーだと非表示のところがコピーされないため、>>251の通り貼り付けると
B3:C4の位置に貼り付けられる。表示されているセルを上に詰めてコピーされてるのかな
ttp://www.moug.net/tech/exvba/0050104.htm
を見る限り有効な方法は思いつかない。

強いて言うならコピー貼り付けでなく
range("a1").value=range("b1").value
みたいにすると値を簡単に移せる

後は配列を覚えるといいかも。

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

次のように規則的に３カウントずつ並べていきたいのですがどのようにすればよいでしょうか(´・ω・｀)
３個並べて右にずれてまた３個というような繰り返しです。

A1=B1
A2=B2
A3=B3
A4=C1
A5=C2
A6=C3

>>255
関数
A1=INDIRECT("r"&MOD((ROW()-1),3)+1&"c"&INT((ROW()-1)/3)+2,0)
下にオートフィル

VBA
Option Explicit
Sub a()
Dim i
For i = 0 To 10
Cells(i + 1, 1) = Cells((i Mod 3) + 1, Int(i / 3) + 2)
Next
End Sub

ピボット
無理w

>>256
出来ました！

ありがとうございます(｀･ω･´)ゞﾋﾞｼｯ!!

>>255
前からINDIRECTの好きな先生が住みついてるよなぁ。
=INDEX(B:IV,MOD(ROW()-1,3)+1,INT((ROW()-1)/3)+1)

やってること同じじゃないの？

>>255
＞ 次のように規則的に３カウントずつ並べていきたいのですがどのようにすればよいでしょうか(´・ω・｀)

本当にやりたいことは３カウントずつ並べることなんだろうか？
もっと上位の概念でやりたいことを質問したほうがいい回答がもらえるよ。
グループ別に集計したいとか、制約を満たす最適解が欲しいとか。

またまたINDIRECTを理解できない小僧がキャンキャン吼えてるよ

>>255と>>258はどう違うの?indirect関数はバグが多いとか?

>>260
レスありがとうございます。
本当にやりたいことはちょっと難儀で
似たような3行をひたすら繰り返す形ですね

元データまま

A1=LCLICK 70,230 　デスクトップの座標を示している。座標は順番に２４通り、24までいったら１に戻る。２４通りは作業列に用意
A2=delay 50　　　常に同じ
A3=send C:\001.txt 002 003と増えていく　制限なし

自分がしたこと
上記３列をコピーして別シートに行と列を入れ替えて貼り付け
オートフィルで右側に必要な分だけコピー
+
>>256さんの関数で１列に並べて完了

出来上がり

LCLICK 70,230
delay 50
send C:\001.txt
LCLICK 78,405
delay 50
send C:\002.txt

300.TXTくらいまで。

こんな感じです(´・ω・｀)

それは確かキーボードマクロの内容か
まぁそれはいいとして、VBAで↓作った方が早かったね。出来たみたいだしもういいことだけどさ〜
A1=LCLICK 70,230 　デスクトップの座標を示している。座標は順番に２４通り、24までいったら１に戻る。２４通りは作業列に用意
A2=delay 50　　　常に同じ
A3=send C:\001.txt 002 003と増えていく　制限なし

>>263
そんなのソート使えば余裕じゃないの？
indirectやrowはデータへのポインタを意識しなければならない手法で低級なテクニックだよ。
まあ解決してるならどうでもいいことだが。

>>256>>258
どうみてもやってることは同じです
本当に(

>>266
コピーから値貼りつけするのであればどれでもよいが、式を残すのであれば揮発性関数のINDIRECTやOFFSETは使わないのが常識。
まぁ値貼りつけ前提の式だろうけど。

>>255はピボットでも出来なくはないわな。

>>251
Sub Macro1()
Dim WS As Worksheet
Dim LastRow As Long, h As Long
Application.ScreenUpdating = False
Set WS = Worksheets("Sheet1")
With WS
LastRow = .Range("$A$65536").End(xlUp).Row
With Range("A3:E" & LastRow)
.AutoFilter Field:=2, Criteria1:="0.0000 "
.AutoFilter Field:=4, Criteria1:=">0.0000", Operator:=xlAnd
End With
h = 1
For Each i In .Columns(1).SpecialCells(xlCellTypeVisible)
If i = "" And i.Row <> 1 Then Exit Sub
If h >= 3 Then
.Range("B" & i.Row).Value = .Range("D" & i.Row).Value
.Range("C" & i.Row).Value = .Range("E" & i.Row).Value
End If
h = h + 1
Next i
End With
Application.ScreenUpdating = True
Set WS = Nothing
End Sub

こんなコードですまん。

書き忘れたが行列入れ替えてからピボットな。

>>268
たしかに出来るな。
>>256並み駄目ｗ

>>254
ありがとうございます。
イコールで数値を合わせる方法もあるんですね。
別の機会に応用してみます。

>>269
ありがとうございます。そのまま使えました。
データは会社から持ち出せないので、13日に試してみます。

【1 OSの種類 　 　 　 　 .】 Windows　VISTA
【2 Excelのバージョン 　 】 Excel2003　SP3
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　タイム　時間管理

エクセルで自転車の走行記録を付けているのですが
走行時間が60分以内の時と　60分以上の時があるのですが

セルの表示を　h"時間"mm"分"ss"秒";@
にして　入力を
1時間以上の時　1:20:34とすると　1時間20分34秒と表示されるのですが
1時間以内の時　0:20:34とすると　0時間20分34秒と表示されます

当たり前といえば当たり前ですが　60分以内の時　20分34秒と表示できるようなテクニックは
あるでしょうか　ご存じの方お願いします

>>267
INDEXも揮発性関数じゃないか？

>>273
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Hour(Range("A1").Value) >= 1 Then
Range("A1").NumberFormatLocal = "h""時間""mm""分""ss""秒"""
Else
Range("A1").NumberFormatLocal = "mm""分""ss""秒"""
End If
End Sub

>>275さん
回答ありがとうございます
しかし　マクロに貼り付けが上手くいきません

ツール　マクロ　マクロ名”時間入力”　作成まで進むと

Sub 時間入力（）

End　Sub
のウインドウがでるので
その間に
275の本文を入れ　上書き保存して
元のエクセルファイルに戻り　ツール　マクロ　実行すると

コンパイルエラー　End　Subが必要です　と表示され　上手くいきません
なにかやり方が間違っているでしょうか　済みません

>>273
text関数とかどうかな
=IF(A1>=1/24,TEXT(A1,"h時間mm分ss秒"),TEXT(A1,"mm分ss秒"))
>>276
この場合は標準モジュールじゅなくてsheet1に記述する
ttp://www1.axfc.net/uploader/Img/so/61822.jpg

質問です。よろしくお願いします。
エクセル2007.

sub jjj()

Dim inputnuma, inputnumb
inputnuma = InputBox("何月?")
inputnumb = InputBox("何日?")
If MsgBox(" ", vbOKCancel, "実行確認") = vbOK Then

end if

ボックスに月日を入力して次に、実行の確認をします。
その際に、　　inputnuma 月　inputnumb 日でok? 　　　と表示したいです。
(例えば、、、10月16日でok? という感じ。 )
上記にプログラムに　If MsgBox("inputnuma 月　inputnumb 日　でok?" ,
と入力すると　そのまんまで　inputnuma 月　inputnumb 日　でok?　　となってしまいます。

なんとかなりませんか？わかる方教えてください。お願いします。

If MsgBox(inputnuma & "月"　& inputnumb & "日　でok?" ,
みたいな感じ
変数はダブルクオーテーションでくくらない

今EXCELの勉強しているのですが、実際に仕事でexcelを使うとなると
本に載ってる問題のようなものを渡されて「これやっといて」っていう
わけではないですよね？
実際の仕事では、まっさらな状態から自分でやっていかなきゃいけないのですか？
例えば、問題の段階では既にある表を使ってグラフを作ったりするわけですけど
本当の仕事となると、表から自分で作るのでしょうか？

ま〜大概は入力作業だな
既にあるフォーマットに在庫なり、日付なりデータを入力していく
それを決まった形式のグラフで毎回同じように作るってパターンが多いと思う

後は多岐に渡りすぎてどういうのがあるとは言えない
ただ表は作れるようになっておいたほうがいいね
セル内で計算して合計を出すのと、罫線。後は表示形式か

他は会社により過ぎてなんとも言えない。困ったときはここで聞いてみては

>>281
ありがとうございます。
やるべきことが少しわかってスッキリしました。
今できることを頑張って、困ったときはまた相談させていただきます。

ごめん、ちょっと間違いがあったので修正も兼ねて．．．
>>276
そうであれば
ツール　マクロ　マクロ名”時間入力”　作成へと進み

Sub 時間入力（）

End　Sub
のウインドウがでたら
その間に

If Format(ActiveCell.Value, "h") >= 1 Then
ActiveCell.NumberFormatLocal = "h""時間""mm""分""ss""秒"""
Else
ActiveCell.NumberFormatLocal = "mm""分""ss""秒"""
End If

を貼り付けして
さらにその画面左側のプロジェクトエクスプローラーの中の
実際に時間を入力するシート（たとえばSheet1）を選択してを右クリック
[コードの表示]を選択して
コードウインドウに

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call 時間入力
End Sub

をそのまま貼り付けて
上のメニューから[デバッグ]→[VBAprojectのコンパイル]を選択してください。

あとはSheet1のA1に時間を入力すると実行されるはずです。
セル範囲とか不明なんでアクティブセルで実行されるようにしといたから。

あ〜、たびたび間違いスマソ

削除：　あとはSheet1のA1に時間を入力すると実行されるはずです。
> セル範囲とか不明なんでアクティブセルで実行されるようにしといたから。

>>283 を読み替えて下さい。

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

subimitできないんです。

Sub ie_Forms_DataSET() 'データセットのテスト

Dim objIE As Object 'ＩＥオブジェクト参照用

'IEを起動する
Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る
objIE.Visible = True '見えるようにする(お約束)

'.Navigate で 指定したURLを開く
objIE.Navigate "https://wwwi.mbrace.or.jp/mb2ninsyouservlet"

'ページが表示される 完了を待つ
While objIE.ReadyState <> 4 'READYSTATE_COMPLETE = 4
While objIE.Busy = True
DoEvents '特に何もしないで.Busyの状態が変わるまで待つ
Wend
Wend

'データをセットする
'htmlドキュメント フォーム(0番目) アイテム(MEMO)に転記(代入)する
objIE.Document.Forms(0).Item("uid").Value = "○○○○"
objIE.Document.Forms(0).Item("np").Value = "○○○○"

'フォーム(0番目)を .Submit(送信・投稿) する
objIE.Document.Forms(0).Submit '送信処理

End Sub
---------------------------------------------------

＞＞２８６と同じ人間
HTMLソースの頭の部分が
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="HOTALL Ver.7.2W">
<TITLE>･､･ｿ｡ｼ･ﾍ･ﾃ･ﾈﾅ・ｼｲｧｾﾚｲ靂ﾌ</TITLE>
<SCRIPT LANGUAGE="JavaScript">
<!--

となっていて、
ジャバスクリプトで書かれている？みたいですが、
もし、submitできれば、
https://wwwi.mbrace.or.jp/mbw_020.cgi　にいくのですが、、
パスワードは入力できたのですが、submitができなく、ページが切り替わりません。

関係してるらしいところらへんのソースは、
function sosin(){
if(haneisuu(document.form1.uid.value) == true) {
if( document.form1.uid.value.length != "" && document.form1.np.value.length != ""){
document.form1.action="mbw_020.cgi";
document.form1.submit();
}
else {
alert(NINSYOU_ALERT_2);
}
}
return false
}

-------------------------------------------------------
ＶＢＡで、submitできますか？教えてください。

>>273
書式設定で
[>=0.041666]h"時間"mm"分"ss"秒";mm"分"ss"秒"

数字の大小を条件とした書式の切り替えを使った。

>>275
前からなにかとSelectionChange使うやつがいるがお前か？
>>288で簡単だが、どうしてもマクロでやりたきゃSelectionChangeイベントじゃなくChangeイベントだろ?

>>289
じゃあ自分で書いたら

だれか、競艇ログインさせてください。

ログインできるまで粘着します。

さっさと逝け
http://namidame.2ch.net/kyotei/

もう来るな。

質問ですが
Excel2007でパスワード設定をしています
それを他のＰＣでたとえば別にバージョンで開くことは可能でしょうか？
また仮にExcel2007が壊れて再インストールしなければいけなくなった場合、
インストールしたバージョンで同じパスワードさえ入れれば別にまた開く事は可能でしょうか？

>>294
パスは共通だよ
>>291
笑ったw
面白いから放置させていただきます

objIE.Document.Forms(0).Submit　でsubmitできません。
ソースが
if(haneisuu(document.form1.uid.value) == true) {
if( document.form1.uid.value.length != "" && document.form1.np.value.length != ""){
document.form1.action="mbw_020.cgi";
document.form1.submit();
}
else {
alert(NINSYOU_ALERT_2);
}
}
return false
}
となっているのですが、
どうやったら、ＳＵＢＭＩＴできますでしょうか？

【1 OSの種類 　 　 　 　 .】 Windows　XP
【2 Excelのバージョン 　 】 Excel　２００７
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 抽出、関数

（ｼｰﾄ１）
・
・
10/1、80、85、88
10/2、77、64、71

（ｼｰﾄ２）
10/2、77、64、71

のように、日つけ、金額、金額、金額、という行が毎日一行ずつ追加される表の
最終行（日付が入力された最終行）だけを、別シートに抜き出すにはどうすれば良いでしょうか。
よろしくお願いします。

>>297
=INDEX(Sheet1!$A:A,COUNTA(Sheet1!$A:$A))
これでA列の最終行の値。
=INDEX(Sheet1!$A:A,COUNTA(Sheet1!$B:$B))
INDEXはA列じゃなくてB列でもいいかも。
C列も同じように。。。

これは、途中にブランクがあると効かなくなるよ。
A列のデータ数を数えているから。

>>289
ActiveCellに入力したのをActiveCellに代入するから
Changeイベントで拾えないからSelectionChange
やってみてから文句家粕

>>297
=MAX(ROW(A1:A1000)*(0<>(A1:A1000)))
でshift+ctrl+enterで確定する。ブランクがあっても問題なし
A1000ってのは1000行ぐらいと勝手に決めてるけどシートによって変えてね

配列数式を使う日が来るとは思わなかったぜ

298さん
ありがとうございます。
実はシート１の日付セルは関数が入っているため、
この方法だと関数が入っていないセルまで進んでしまいます。
関数はカウントしない方法はありますでしょうか？
よろしくお願いします。

>>299
釣りか？
入力値によって表示形式変えるんだから、イベントならChangeに決まってるだろうよ。
>>288が書いた方法で簡単だから書かないけどね。

>>301
VBA以外だと無理と思う

>>301

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

やりたいことの全体像ですが、
入力シートに入力したデーターを計算し、
日々の計算結果を蓄積するのにシート１を使い、
最新の計算結果だけシート２に表示したいと考えています。
この流れを関数だけで表現するのは無理でしょうか？

>>305
それならsumifでも使えば

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
A列には日付、B列にはその日の売り上げがあったとして、
Cが月、Dがその月で売り上げがあった日数の合計、
Eがその月の売り上げ合計金額とする場合、うまく数式で表す方法を教えてください。

今現在は自分でB列で、１月の範囲を指定してcountifなどで出していますが、
A列の日付から、自動的にBから指定月の売り上げだけを拾ってくる方法を教えてください。
　　　　A　　　B　　　C　　　　D　　　　E
　 1　1/1　　500　　 1　　　　 5　　　3000
　 2　1/2　　　　　　 2　　　　　・　 　　・
　 3　1/3　　　　　　 3　　　　　・　 　　・
　 4　1/4　　　　　　 4　　　　　・　　 　・
　 5　1/5　　　　　　 5　　　　　・　　 　・
　 6　1/6　　1000　 6　　　　　・　　 　・
　 7　1/7　　　　　　 7　　　　　・　　 　・
　 8　1/8　　　　　　 8　　　　　・　　 　・
　 9　1/9　　　　　　 9　　　　　・　　 　・
　10　1/10　　　　　 10　　　　2　　　1100
　　　・
300　10/1
301　10/2　300
302　10/3　
303　10/4
304　10/5　
304　10/6　
304　10/7　800
304　10/8　
304　10/9　
304　10/10　

>>307
Ａ列とＢ列からピボットがいいのでは？

>>307
D1は1でE1は500、ではないのか?

すみません。どこにsumifを使えば良いのでしょうか？

>>310
ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/sumif.htm
自分で覚えて

変数の質問です。
A = Range("A1").Value のように書く場合と、
Set A = Worksheets("Sheet1") のように書く場合があります。

このスレをはじめ、ネットで紹介されてるのを真似てますが、
Set が必要・不必要の使い分けは、どう覚えればいいのでしょうか？

set オブジェクト
でぐぐれ
あとウォッチ式で見たら何となく分かるかもしれない

>>302
だ　か　ら　や　っ　て　み　な　さ　い

わかりやすく書いたよ。

値か、そうじゃないか・・・って大雑把過ぎる?

setに関していえばオブジェクトか否かだろう
ただこれは使っていないと分かりにくい
普通に構造体にでもしておいてくれれば良かったのに

>>314
おまえ見込みないからexcelやめろ。

かなり前からおかしなイベントマクロよく見たよね。
たしたTargetを使ってなかったんじゃなかったかな？
Targetがなんたるかを知らないのかも知れないな。

>>314はActiveCellの代わりにTarget使ってみな？
顔が真っ赤になるはずだから。

>>318
知ってますよ。引数ぐらい。

>>320
まー俺は別に動けばなんでもいい派だけど、
皆あなたのやり方は変ですよーみたいな事言ってるんだよ
俺もTarget使うやり方しか知らないのであまり偉そうなことはいえないんだけど

>>320
じゃぁなんでChangeイベント使わないんだ？
Target知らないからActiveCellなんて寝ぼけたこと言ってるんだろうよ。

ところで>>320はどこの離島なの？

>>313 >>315 >>316
ググっていろいろ見ました。
値か、そうじゃないか　ですねｗ

離島のサンデーPGの「PG」って、、、

ピン芸人？

>>321
ご助言ありがとうございます。
私も動けばなんでもいい派ですが（サンデーＰＧなんで）
今回の例は質問が特定範囲を指定していないという状況下で
だったらTarget指定したら質問者の実範囲と重ならない場合
動きませんってことになるんじゃないかと思ってActiveCellを使ったまでで
その結果ActiveCellを使ってChangeイベントドリブンできないということを
言ったまでなんです。Target.cellsで動くことはわかります。

>>326
あなたがもしブログやってるなら、アドレス貼ってください。

>>327
？やってませんが。

>>326
おめーはやっぱりなんにも分ってないよ。
だまってActiveCellの代わりにTarget使ってみりゃ分ることだろうに。

>>325
間違ってもプログラマーじゃないな。

そんなばかにｋまってないで仕事しろ

ピボットvsVBAの時もそうだが、お前らっていつも喧嘩してるよなw

（；´Д｀）７

まあVBA厨は頭悪いからな。
やつらコードの良し悪ししか興味がない。

1万回ループ回してこっちのコードの方が1秒速いとかいってるしな

>>335
まったくだ。
ループの回数を減らす方法なら聞いてやってもいいが。

良いコード書けるに越したことはないと思うけど、何レスも言い合いするほどのことでもないよね
速さの競い合いは世間話みたいなもんでしょう

人のコードに茶々いれる基地外指摘厨みてると笑えるな

コードがいいかどうか以前のやつが多過ぎる。
例えば項目別の収支計算とかさせるとすぐにボロが出るからな。
収入から支出を引けばいいんでしょとばかりに組んだはいいが、収入のデータにが無くて支出だけある場合の処理がぬけてたりね。
これ実例だよ。

【1 OSの種類 　 　 　 　 .】 Windows Vista Ultimate
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 cell関数 col 条件付き書式 範囲
現在、A7:E15の範囲で条件付き書式に
[数式が]　=CELL("row")=ROW() を設定して
[条件が真のときに使用する書式のプレビュー：]　を黄色にして
たとえば
B7が選択されたらA7:E7の範囲が黄色になる
D13を選択されたらA13:E13の範囲が黄色になる
というようなことをしていますが
範囲外のセル、上記例で言うとH7とかF13を選択したときも
範囲の色が変わってしまうのですが
これを範囲以外は色が変わらないようにできますか？

要素にばかりとらわれず、やるべきことについて高次のモデルを頭に描けるようにならなければならない。
実装なんかどうでもいいとは言わないが、優先度は低いのは確かだ。
モデルさえ正しければ、できるに決まっていることなんだからな。

>>340
CELL関数の第二引数を指定しないと最後に指定したセルが指定されるー
とあるから、340の通りだと条件付書式の再計算を止める方法か。cell関数と条件付書式じゃ無理っぽいな
当然VBAになるけど、条件付書式を使わずにVBAで直接色をつけてしまったほうが早いと思う

CELL("col")の値も調べろって話じゃないのか

初心者です。
ベテランの方なら即わかると思うのですが、質問させていただきます。
セルB1に=COUNTIF(B5:B60,">3")という計算式を書着込みたいのです。
Range（"B1") = "=COUNTIF(B5:B60,">3")"とやると「コンパイルエラー」というのが出ます。
これを回避する方法を教えてください。
よろしくお願いします。

>>344
マクロの記録で一発
分からなかったらぐぐってくれ

初心者質問ですんません。
Sheets("MENU")にマクロボタンを置いて、アクティブになっています。
（Ａ）はＯＫなのに、（Ｂ）はRangeクラスのメソッドが失敗しました　となります。
シートをSelectせずにA1セルをSelectするのは、できないのでしょうか？

（Ａ）
Sheets("10月").Select
Range("A1").Select

（Ｂ）
Sheets("10月").Range("A1").Select

>>343
俺も思ったんだけど、元々付いている色が消えてしまう
と思ったけど、それでもいいのかな?
>>340
範囲外を選んだときに元々付いている色が消えてもよければ
=(CELL("row")=ROW())*(CELL("col")>=1)*(CELL("col")<=5)
で条件付書式
>>346
sheet内にマクロを書いている場合はそのsheet内しか触れない
そういう場合は標準モジュールにマクロを記述し、callで呼び出す
callの使い方はぐぐればすぐに出てくる
ttp://officetanaka.net/excel/vba/statement/Call.htm

>>347
俺へのレスですか？
貼られたサイトを見ましたがサッパリわかりません。
シートをSelectせずにA1セルをSelectするのはできないのでしょうか？

>>348
ttp://www1.axfc.net/uploader/Img/so/61937.jpg
めんどいから図で説明

何が問題なのかっていうと、
MENUシートの中で10月シートに関する記述はできない(10月シートの選択はできるけど)
346のABの記述どちらも間違いじゃないが、書くところが間違っているって話
後は図の通りやっておくれ

>>345
なるほど、やってみたらわかりました。
ありがとうございました。

>>349
図を見てもわかりません・・・　orz
標準モジュール以外にもマクロを書くんですか？

Private subって何？
ちょっとググってきます。

ググってきましたが、専門用語？が多すぎて良く分りませんでした。
349さん、図までつくってくださったのに、理解できないおバカですんません。
しばらくSelectを使って書くことにします。

>>351
ああ、ごめんそういうことか
最初から標準に書いてたのね

ttp://www.moug.net/faq/viewtopic.php?t=41317
標準モジュールであれば、
Range("A1").Select は、ActiveSheets.Range("A1").Select と書かれているものとみなされます。

ということだそうです

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

はじめまして。初心者の質問ですみません。
PC2台保有しており、2台を使いデータをまとめていました。
夜はデスクトップで作業・昼間はノートで作業といったように…
ノートからEXCELデータを添付してデスクトップへメールを送り
この連休中に作業を終わらせました。そして上書き保存。
もう一度確認しようと思いファイルを探したのですが、無い…
受信したメールに添付されていたデータをそのまま編集していて
デスクトップやマイドキュメントに保存せずそのまま上書き保存して
しまっていました。受信したメールを開いても上書き保存する前のデータのまま…
ファイル検索をしても出てこない。上書き保存はしているのでどこかにあるはずなのに…
連休すべて使ってまとめたのに…　誰か助けてください。

>>354
ファイル名が判ればウィンドウズの検索機能で検索すればいいんでない？

>>354
Windowsの検索機能やExcelの最近使用したファイルの一覧で
探しても見つからないならメールソフトから開いた時に
一時ファイルとして扱われて終了時に消されたとも考えられるが

>>354
誰でも一度は通る道だから・・・。　

>>354
マイコンピュータを.xlsか.tmpで探して見ては？
拡張子を隠しファイルをonにしてね
無理かなぁ・・

上書き保存の時にどこのフォルダに保存しているのかチェックしてみるといい。
検索機能使うより手っ取り早い気がする。

>>354
スレチだがｗ
受信したメールに添付されていたデータをそのまま編集できるの？
俺が使ってるメーラーは、Temporaryフォルダに入れられて編集できず、メーラーを閉じると
そのフォルダ内のファイルも消される。

ファイル検索して見つからないなら、もぅダメぽ・・・

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

A〜G列までデータが入っており、C列の文字列のうしろに余計な半角スペースがあります。
F列に、=trim(C2)と入れれば余計な半角スペースが無くせて、値をC列に
貼り付ければいいのですが、F列とか他の列を使わずに、余計な半角スペースを
無くす方法はありあｍすか？

痴漢

>>361
本来の用途ではないのですが、C列を選択後、
データ→区切り位置→○　カンマやタブによって〜　…の○にチェックを入れる
→次へ→□　スペース　…の□にチェックを入れる→次へ→完了
とすると後ろのスペースは消えます。

ただし、文字列の途中にスペースがある場合、区切り位置を後ろへ指定する
必要がありますが。

あ、ごめん、途中にスペースある場合はダメだった。

>>362-365
ありが�d！
痴漢で出来ますた。

質問させてください。　よろしくお願いします。
エクセル2007.
VBA

＝Application.WorksheetFunction.Average(Worksheets("A").Range（cells(1,1),cells(30,1)）

指定範囲のA1 から　A30　に　何個か　"-"　というのがありまして、計算されないのですが解決方法を教えてください。
"-"　は空白と同じ扱いにしたいです。（割り算するときのカウントに入れたくありません。）

よろしくお願いします。

>367

本当に試したのか？？？

再カキコです。
361の例ですが、半角スペースを置換すると、途中にある半角スペースも
削除（というか置換）されてしまいます。（当たり前ですが）
Columns("C:C").Replace What:=" ", Replacement:="", LookAt:=xlPart, _
　SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

他に方法があるでしょうか？

367です。
>>368　さん
勘違いでした。
ワークシート名が間違っていました。
本当にすみませんでした。

>>367
Sub a()
Cells(2, 2) = Application.WorksheetFunction.Average(Sheets("A").Range(Cells(1, 1), Cells(30, 1)))
End Sub

文字列は割り算から除外されるよ
>>369
fornextで、一番右の文字列が半角スペースならそれを削除
を繰り返すとか

>>371
データが2〜3万行くらいあって、シート数も決まってないので、For Nextは避けるつもりでいます。
列の数も予測できないので、D列を追加、"=TRIM(RC[-1])を書く、値をC列にコピペ、
D列削除でとりあえずつくります。

>>372
シート数が不定ならFor〜Each〜Next
データ数が不定ならUsedRange
という便利な機能がある

【1 OSの種類】 Windows Vista
【2 Excelのバージョン】 Excel2000
【3 VBAが使えるか】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 入力規則 リスト 配列 生成

質問ですが、入力規則に使うリストは配列で生成出来ないのでしょうか？例えば時間を6:00から30分刻みで6:30,7:00,7:30〜24:00まで生成するとかして、それを入力規則に使うとかですが。

Targetの使い方知らない離島の人、使い方覚えたかな？

>>367
>>371
Sheets("A").Range(Cells(1, 1), Cells(30, 1))
って書き方間違いだから気をつけたほうがいい。
Cellsにもシートを指定しないと。

excel関係は
http://www.efcit.co.jp/excelyou/

EXCEL　ファンクラブで　ほぼ全部答えてくれるよ。
凄い反応早い。

ほかのACCESSとかWEBも案外答えてくれる。

>>374
一旦文字列に直さないとダメかも
入力規則のリストへの登録の仕方はマクロの記録で
>>375
空気嫁
>>377
ゴミ以下のBBSはご遠慮くださいませ

>>378
参考になります。ありがとうございます。

>>376
勉強になりました。ご指摘ありがとうございました。

求人に「excel初級程度使える人」と書いてあったんですけど
初級程度ってどれくらいですか？

求人出してる所に聞けや・・・

>>381
ワークシート関数の使い方を20個以上暗記してること

>>381
書類作成と思う
罫線とグラフ、sum関数とaverage関数作れたら大体okじゃないかな

こう書くと「エクセルで書類を作るのはダメな奴」とか言われるんだろうなー

>>384
いや、大丈夫。Wordが腰抜けな分、Excelで作るほうが安全だから。
SUMとかIFとかVLOOKUPあとは実務で憶えればＯＫだろ。

average関数って何？ｗ
仕事で一度も使ったことがない希ガス・・・

>>381です。
みなさんありがとうございます。
安心しました。

あ、平均値かｗ
使ったこと無いな・・・ｗｗｗ

平均以下だもんな
（；￣Д￣）

平均値なんて、俺も今の仕事だと使わないな。
むかーし、昇級レポートで標準偏差を算出してたときに使ったくらいかな？
もっとも、エクセルで標準偏差ならSTDEVPで済むけどね。

>>387
求人の条件でExcelと書いてある場合、一般に>>384の言うような書類作成能力を期待されていると思う。
「エクセルで書類を作るのはダメなやつ」なんだけど、ダメなやつは求人側にもたくさんいる。

>>391
だからわざとaverage関数なんて書いたんだけどねぇ
どうやらそこまでの意図は汲み取ってくれなかったようだ。
まぁ、関数より一枚の書類作成能力+入力ができるかどうかでしょ
オッサンとか未だにPCの電源の付け方知らなかったりするんだぜ

>>392
averageって何？って聞いてるやつもいるだろ？
Excel以前の問題だよね。

勃発の予感

（´ω｀）

Excelは本来書類作成の道具ではない。方眼紙Excelは日本だけで広がっている怪奇現象。
それじゃExcelは何の道具かと言うと、合計を求める道具です。平均や標準偏差も求められるけど。

方眼紙はさすがに見たこと無いけど、
エクセルで文書作る会社は良くある
郷に入らば郷に従えってね

Yahooの競馬結果が今週より、エクセルへの外部データの取り込みをすると、
このweb　クエリによって返されるデータがありません。・・・・と
メッセージが出て取り込めなくなりました。
取り込み出来るようにするには、どうすば、いいのでしょうか？
教えてください。

>>289
>>302
粕は私でした。
申しわけなかったです。
しばらく山にこもって修業します。

>>398
まずはそのページのURLを貼ってくれ
競馬にはまったく興味がないからどのデータが必要なのかわからん

ttp://keiba.yahoo.co.jp/race/result/0909040508/
お願いします。

>>397

＞ エクセルで文書作る会社は良くある
＞ 郷に入らば郷に従えってね

バカを真似る必要はない。
例えばわざわざ電卓で計算してからエクセルに入力しているやつもいる。

やりたい内容によってワードでやるべき仕事はワードで正しく使いましょう。
エクセルはエクセルで正しく使いましょう。
ワードを正しく使っててもエクセルで間違った使い方してるおっさんも多いんだよな。
いくらエクセルが計算が得意だって無駄な計算させまくりじゃいかんぜよ。

>>401
URLの末尾の「/」が勝手に消されてしまうのが原因ぽい。
いったんクエリをディスクに保存して、クエリファイルをメモ帳で編集、
「http://keiba.yahoo.co.jp/race/result/0909040508」
となっている部分の最後に「/」を書き足して
「http://keiba.yahoo.co.jp/race/result/0909040508/」
に修正、もういちどファイルを開けば正常に取り込めるようになる。

>>401
ページ全体を取り込むのではなく、成績表など必要な部分だけを取り込むようにするという手もある。

理想論とか寝言は就職して同じ会社に4年以上勤務できた人だけ言ってね。
仕事のできない人は何言っても説得力がないから。

子供の夢壊すなよ。そっとしといてやれ

VBAを使ってVBAのコードを書くことは出来るんでしょうか？
これで何がしたいというわけではないのですが、もしできる方法があれば教えてください

>>405
成績表など必要な部分だけを取り込むようにするという手もある。

教えて頂けないでしょうか。

>>408
作るだけならテキストファイルに書き出して拡張子をbasにする

>>409
「新しいWebクエリ」の画面で、取り込みたい部分の矢印をクリックするだけ
ttp://petite-soeur.dyndns.org/cgi-bin/up2/src/ps23286.png

>>410
おお、テキストファイルに書き出せばよいのですね
ありがとうございました

>>406
定年まで勤めたのにまったく駄目なやつもいるから的外れ。

エクセルだけが評価の対象かよwww

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

よろしくお願いします
Sheet1とSheet2がありSeet1のCells(1, 1)に りんご という文字列が入ってます
Sheet2の1列にはCells(1, 1) みかんCells(1, 2)ぶどう…などさまざまな果物名が文字列入ってます
りんごもどこかにあります

Worksheets("Sheet1").Select
Dim 変数箱 As Variant　
変数箱 = Cells(1, 1) 'りんご
Worksheets("Sheet2").Select
Cells(2, 1) = "=COUNTIF(R[-1]," & 変数箱 & ")"

としてもかえってくるCells(2, 1)の値が0になってしまいます
変数箱の中が りんご ではなく 1234 なら問題なかったので

Cells(2, 1) = "=COUNTIF(R[-1],"" & 変数箱 & "")"

"を増やしてもだめでした

どのように記述すればいいのか教えてください

>>413
本当にだめなやつは定年前に辞めることになる。
Excelとまったく縁のない仕事の方が多い。
ここまで親切に書かないとわからないのかねえ…

>415
.FormulaR1C1

ふと気づいた
>>413は信者って奴なのか

VBAは最近使えるようになってきた、初心者です。
■本見てると”VB”というのをみるのですが、VBAみたいにエクセル持っていれば使用できるものなのですか？？
　あとVBAとの違いを簡単に教えてください。すみませんがお願いします。

VBとはビジュアルベーシック
エクセルについてるVBAはVBの一部だよ
VB6までは有料でVBAともかなり似てたんだけど、VB.NET(VB6の次のバージョン)になってからはがらりと変わった
ちなみに無料
プログラミング初心者にはかなりオススメ

VBAが「使える」ようになってきたならこんな質問はしないと思うが･･･

fornextでも覚えて舞い上がってるところなんでしょう
距離を置いて暖かく見守ってあげましょう

>>419
>>本見てると”VB”というのをみるのですが、VBAみたいにエクセル持っていれば使用できるものなのですか？？

斬新な発想だｗｗｗ

ここ雑談スレじゃないから。雑談したいなら他所いってね

総合だし面倒みよう

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可（スキル不足ですみません）

関数について全くの初心者なのですが、下記のようなものは関数で作れますか？

答えが正数であれば、切り上げ（ラウンドアップ）、答えが負の数字であれば切り捨て（ラウンドダウン）。
多分、ＩＦ関数とを組み合わせれば作れるのだと思うのですが、どうしてもうまくいきません。
教えてもらえないでしょうか。宜しくお願いします。

=-INT(-A1)かな

A1<0じゃ判定できなかったっけ？

=IF(A1>0,ROUNDUP(A1,1),ROUNDDOWN(A1,1))ってことじゃね？

>426

=TRUNC(A1)

正数は切り上げか･･･ｽﾏﾝ

2行目がタイトルになってるシートがあります。マクロで、オートフィルタの抽出で
コピー＆ペーストするとき、該当するデータがあれば問題ないですが、
該当するデータがないときにタイトルをコピーしてしまいます。
どんな対策をすればいいですか？
Range("A3", Range("H65536").End(xlUp)).Copy

>>432
いきなりコピーせずにデータがあるかないか判定する

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

初心者ですいません
仕事の関係で期間を日割りで求める計算式を作成したいのですが、
datedif関数だと、うるう年の関係でバグが起きて日数が１日ズレてしまいます

この問題を解消するためにネットで検索していくなかで、以下のエクセル式を発見したのですが、
これは月単位も入っており、私が求めている「○年と○日」という回答は得られません

　 =IF(DAY(開始日+1)=1,
DATEDIF(開始日+1,終了日+1,"y")&"年"
&DATEDIF(開始日+1,終了日+1,"ym")&"ヶ月"
&(終了日+1-EDATE(開始日+1,DATEDIF(開始日+1,終了日+1,"m")))&"日" ,
IF(AND(DAY(終了日+1)=1,DAY(開始日)>DAY(終了日)),
DATEDIF(開始日,終了日,"y")&"年"
&(DATEDIF(開始日,終了日,"ym")+1)&"ヶ月0日" ,
DATEDIF(開始日,終了日,"y")&"年"
&DATEDIF(開始日,終了日,"ym")&"ヶ月"
&(終了日-EDATE(開始日,DATEDIF(開始日,終了日,"m")))&"日"))

可能であれば、誰か教えていただけると助かります
お手数お掛けして申し訳ございません

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】 文字列操作 Excel
━━
hogeaaa
sagebbb
abcdaaa
dcabbbb
━━

と言う表を入力情報として、"aaa"を
含む行だけ抽出して、

━━
hogeaaa
abcdaaa
━━

と言う出力を得たいのですが、
何かいい手は無いでしょうか

※
入力と出力は別シートでも問題はありませんが、
入力情報のレコード数が一定ではないので、
出力シートのすべてのセルに
IF(RIGHT(出力シート!A1,3)="aaa",出力シート!A1,"はずれ")
みたいな関数を埋め込んで、フィルタで除外する・・・

と言うようなやり方は避けたいです

質問文中の関数が間違っていました・・・

IF(RIGHT(出力シート!A1,3)="aaa",出力シート!A1,"はずれ")
ではなく、
IF(RIGHT(入力シート!A1,3)="aaa",入力シート!A1,"はずれ")

です。。。
恥ずかしい

>>435
元のデータに対してオートフィルタで「aaaを含む」
結果を別シートにコピペ

>>434
ヒント　年数差と日数差を分けて考えるのがポイント

(1) 年数差の求め方
=DATEDIF(開始日,終了日,"y")

(2) 開始日の月日＞終了日の月日 である場合の日数差の求め方
=DATEDIF(DATE(YEAR(終了日)-1,MONTH(開始日),DAY(開始日)),終了日,"d")

(3) 開始日の月日＜終了日の月日 である場合の日数差の求め方
=DATEDIF(DATE(YEAR(終了日),MONTH(開始日),DAY(開始日)),終了日,"d")

上記をIFで分岐させたり、&でつなげればなんとかなるでしょう。

'というか、その参考にした式が既にバグッてるんだが…
'終了日を2008/2/28とした場合に、開始日に2007/1/29〜2007/1/31の
'どれを指定しても結果が「1年1ヶ月0日」になるぞ。

>>434
こうかな？ A1=開始日、B1=終了日として
=DATEDIF(A1,B1,"Y")&"年と"&B1-DATE(YEAR(A1)+DATEDIF(A1,B1,"Y"),MONTH(A1),DAY(A1))&"日"

よく見たら>>439にはバグがあるな。もう眠いから誰か任せた。

>>426-431さん
ありがとうございます。自宅ではofficeがないので、明日試してみます。
助かりました。

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


２００行ほどの足し算がしたくて２０１行目にシグマをしたんですが、
結果が"2E+6"と表示されて正しい結果になりません。
計算したり数字は全て４桁から５桁です。

宜しくお願いします。

>>442
シグマをしたというセルの表示形式を標準にする。

>>442
列幅を広くするんじゃないの

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

3点アドバイスいただければと思います。
よろしくお願いします。

●他のセルの状態を見て入力(コピーによる上書き含む)を
制限することはできますでしょうか？
（例）
A1セルに入力がないと、B1セルおよびC1に入力ができないようにする。

●セルに設定した入力規則をコピーによる上書き時にも
有効にすることはできますでしょうか？
（例）
・B1セルに「長さが10と等しい」の入力規則を設定。
・A1セルの値は20（長さ2）。
・A1セルをコピーしてB1セルに貼付け。
・入力（ペースト）を抑止。（エラーメッセージ出力）

●入力規則で全角の入力を抑止することはできますでしょうか？
（例）
・C1セルに「リスト（値：1,2,3）」の入力規則を設定。
・C1セルに全角で１を入力。
・入力（ペースト含む）を抑止。（エラーメッセージ出力）

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

>>445
自分で試してみたのかい？
色々やってみれば分らなくても出来るはずだが。
まず入力規則に数式を設定出来るだろ？
B:Cを選択して、入力規則で=$A1<>""とでもすりゃいい。
コピー、形式を選択して貼り付けに入力規則もあるはずだ。
全角を抑止ももちろんできるが、日本語入力をオフ(英語モード)にした方が簡単

参考までに日本語入力は入力規則のメニューにある。

>>411やってみましたが・・・
リクエストされたアイテムが見つかりませんでした。HTTP/1.0 404　
となります。

>>449
>>404にも書いたように、クエリファイルかスクリプトを修正しないとだめだよ。
そのままだとアドレスの最後の「/」が抜けるから。

ttp://gold.tanaka.co.jp/commodity/souba/d-gold.php
胃ヤッホーーーーーーーーーーーーーーーーーーーーーーー

誤爆ですすいません

俺が買った時よりだいぶ安いんで、ちっとも喜べない

Excel2003です

日付の入力で、例えば
A1にH22.12 A2にH21.12　のように年月をたくさん入力した後
昇順の並べ替えしようとしても上手くいきません
どうやったら、昇順に並べ変えられるのでしょうか

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

B2セルに D:\Excel と入れ、その中に test というフォルダを新しくつくり、
集計したファイルをその中に入れたいんですが、２回目に実行すると
「パス名が無効です」と怒られてしまいます。
「既に test フォルダがあったら、次の人どぞ〜」って感じにするには
どうすればいいですか？

Sub test()
　　MkDir Range("B2") & "\test"
End Sub

>455

on error resume next
必要に応じてｴﾗｰｺｰﾄﾞで分岐させる。

>>454
「H21.12」が日付と理解できるのは人間だけで、Excelは単なる文字列型と認識する。
データの全貌がわからないとなんとも言えないけど、とりあえず「H08.06」のように
年、月を必ず2桁で入れるようにすれば整列できるようになる。

>>456
それをやると、次にエラーが出たときﾇﾙｰされちゃうんですけど・・

>>458
ちっとは考えろや

On Error Resume Next
MkDir Range("B2") & "\test"
On Error GoTo 0

この3行で1セット

ジャバスクリプトで書かれている・・・
ＳＵＢＭＩＴできますか？

>>286 です。
ＥＸＣＥＬから競艇自動投票したい。

>>458
ありがとうございました
できるようになりました

>>455
テストしてないけどこんな感じ

Sub test()
Dim strDIRNAME
strDIRNAME=Range("B2") & "\test"
If Dir(strDIRNAME, vbDirectory) = "" Then MkDir strDIRNAM
End Sub

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 xml 編集　XMLスキーマ スタイルシート

XMLスキーマ、スタイルシート つきのXMLファイルをExcelで編集したいんですが、
「XMLシートとして開く」だと新しいブックが開かれてしまい、
それを保存しても元のファイルにあったXMLスキーマやスタイルシートに関する情報が
失われてしまいます。

Excel 2007だと元のファイルがスキーマやスタイルシートに関する情報を保存したまま
編集できたりするのでしょうか？

スキーマ自体やドキュメントは、validateであることを確認しています。
また、スキーマは入れ子等を含まず、ドキュメントに対応付け可能であることも確認しています。

>>463
test フォルダがあるときはOKですが、無いときは実行時エラー76が出て
Then MkDir strDIRNAM が黄色くなります。

ググってみてるんですが、Dir(フォルダパス, vbDirectory) の　戻り値　って何でしょう？

>>465
ごめん変数の名前最後Ｅ抜けてた。
Dir(strDIRNAME, vbDirectory) でstrDIRNAME　の文字列型の値を返してる。
それが""ならフォルダはないってこと。

Sub test()
Dim strDIRNAME
strDIRNAME = Range("B2") & "\test"
If Dir(strDIRNAME, vbDirectory) = "" Then MkDir strDIRNAME
End Sub

>>459さん、素敵・・・・・

Excel2003です

年月を入力しようと思い2010/11と入力しエンターを押すと
2010/11/1と入力されてしまいます
年月日のうち日が勝手に入力されないようにするには
どうしたらいいでしょうか

>>466
いろいろ調べてたら時間が掛かってしまいました。
ご丁寧に回答していただき、ありがとうございました。

>>459
素敵です♥

>>468
先頭に ' をつけるといいのでは？

>>468
セルの書式でyyyy/m

>>468
入力しなければいいと思います

>>286
がんばれ！気味ならできる
>>468
>>471がオススメだけど次点で書式設定で「文字列」に設定

yyyy/m としても、セルの値自体は 2009/11/01になるのでは？
文字列にすれば、値も 2009/11 になるので、こちらの方がいいような…

その辺は質問者次第でしょ

>>475

ご冗談をｗｗｗ
質問者がそんなこと理解してる訳無いじゃんｗ

>>476
うんまぁ俺もそう思うんだけど
質問者はほんとうに「年月日のうち日が勝手に入力されない」ことだけを望んでると思うから
何故俺がそう思うかというと、書式設定の中でそういう設定が無いからね
どっちでもいいんじゃないかな
あまり細かいことを言うとまたスレで大戦が起きるだけのようでな

>>468の件はおいとくとして、質問者次第なんていうとえてして悪い方法を採用しがちだよなぁ。

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

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

毎日の営業成績管理の表を作成しています。
作成中の表での例えはややこしいですので、最も簡略化した例えで書きますと、

Aさん　80点
Bさん 40点
Cさん 70点
Dさん 40点
Eさん　40点

というテストの点があったとして、最低点を取った人の名前を出したいのです。
MIN関数やRANK関数やINDEXを組み合わせて挑戦してみたのですが、「同点最下位の人」が多数いる場合、
一人の名前（例で言うとAさんの名前のみ）しか出せませんでした。

何かいい方法はありませんでしょうか？
よろしくお願いします。

＞一人の名前（例で言うとAさんの名前のみ）しか出せませんでした。

↑Bさんの名前のみ、ですね。訂正いたします。

>>479

オートフィルタを使う。
作業列を用意して、最低得点の人はそこにフラグを立てておけばよい。

>>479

単純に得点でソートするだけでもよい。
関係ない行は非表示にしたらよい。

>>479
条件付き書式で色をつけてみた。
http://kabutomo.net/img.php?filename=dc_740042_1_1255563419.png

質問させてください。
仕事で使う関数だけ独学で学んだだけなので初心者です。
列ごとの最小値が入力されているセルの色を変えたいのですがどうすればいいでしょうか？
1列や2列などなら条件付き書式で一列づつやり可能なのですが。
列の数が数百とあり一列一列やっていくのは時間がかかるので全てを一度の操作で済ませたいのですがやり方がわかりません。

Ａ　50　30　20　35
Ｂ　20　25　30　15
Ｃ　90　95　80　85
Ｄ　55　60　60　75

仮に上の図ならＡ列は20が赤くなり、Ｂ列は15、Ｃ列は80、Ｄ列は55が赤くなる
これを一列一列するのではなく一度にやりたいのですが何かよい方法はありますか？

【1 OSの種類 　 　 　 　 .】 ＶＩＳＴＡ
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 ＶＢＡがわかりません。
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】条件付き書式　色　ＩＦ　列

>>484
A1セルの条件付書式で「数式が」
=MIN(A:A)=A1

後は下のいずれかを実行
・右クリックでオートフイル、「書式のみ」
・コピーして右クリックで形式を選択して貼り付け。「書式」を選択してok

ただ条件付書式のみコピーはできないので、フォントサイズや色が違うとコピーされてしまう
残念ながら会費する方法はVBAしかない。

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

Book1は商品の台帳で、約5000行あります。Book2のB列が歯抜けになっており
Book1の商品名に合致した数値を入れるとき、Forで１行ずつチェックしていますが、
多いときには20,000行くらいのシートが50枚くらいあり、時間が掛かっています。
効率よく埋めるには、他にどんな方法でやればいいでしょうか？
以下の例では、Book2のB2へは120.25、B4へは50.02が入ります。

Book1.xls
　　A　　　　 B　　　　　C
　連番　　商品名　　 数値
　　1　　　りんご　　　120.25
　　2　　　みかん　　　50.02
　　3　　　ぶどう　　　 83.63
　　4　　　いちご　　 150.01

Book2.xls
　　A　　　　B　　　　　C
　連番　　 数値　　商品名
　　1　　　150.01　　いちご
　　2　　　　　　　　　りんご
　　3　　　120.25　　りんご
　　4　　　　　　　　　みかん

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 WindowsXP Pro
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 行　半分　ずらす　などで検索

特定の行だけを半分ずらしたいのですが方法が分かりません
例えば

A　　A　　A　　A
--------------
B　　B　　B　　B
--------------
C　　C　　C　　C

というようなものを

A　　A
------　A　---
B　　B ---　　
------　B　---
C　　C ----　
------　C　---
　　　　　----


というずらし方をしたいのですがどうやるのでしょうか？

>>487
不可能

皆さんいろいろとありがとうございます。
なかなか慣れないもので苦戦しております。

作成中の表は
>>483
の例でいいますと、最終的にはB,C,D列は全部非表示にします。
そして、最低得点者の名前のみを、例で言えばA1に「Bさん」、A2に「Dさん」、A3に「Eさんと」表示したいのです。

【1 OSの種類 　 　 　 　 .】 Windows　xp
【2 Excelのバージョン 　 】 Excel　2003
【3 VBAが使えるか　 　 .】 できれば関数で(複数の列の値を変更して直ぐに反映された表を確認したいので)
【4 VBAでの回答の可否】 関数で無理でしたらVBAでも可です。

IF関数を使って24時またぎの表を作ろうと思っていますが24時を過ぎると表示されません。

例）午後19時から午前3時まで、「■」を使った10分刻みの表を作るとします。
下記関数を使用し(予め、ある時刻のセルに■を表示させる関数を入力しておき)
A７に19:00B7に3:00と入れると表示されません…23:50までは正常に表示されます。
何か方法は無いでしょうか、よろしくお願い致します。

使用している関数
=IF(AND(A7<=TIME(23,40,0),B7>=TIME(24,50,0)),"■","")

10分刻みなのでこうでした
=IF(AND(A7<=TIME(23,40,0),B7>=TIME(23,50,0)),"■","")

>>490
A7の方が大きい場合B7は翌日だと判断して1を足す
=IF(AND(A7<=TIME(23,40,0),B7+(A7>B7)>=TIME(23,50,0)),"■","")

本来はこんなことせずに最初から日のデータも入れておいた方が良いと思うけど。

>>492
汎用的に使いたいので日時を指定せずできればと思っています。
せっかくご教示頂きました関数で試しましたが、これだと常にセルが
塗りつぶされている状態になり、正常に動作しないようですが
ちなみに1を何処に＋すればよいでしょうか

完成イメージですが、横に延びるグラフにしたいです。
A7　19：00と入力
B7　3:00と入力
とすると同一行に時刻を埋め込んだセルのみが■■■■■■■■■■というように
塗りつぶされる感じです

R7　=IF(AND(A7<=TIME(23,40,0),B7>=TIME(23,50,0)),"■","")
S7　=IF(AND(A7<=TIME(23,50,0),B7>=TIME(24,0,0)),"■","")
T7　=IF(AND(A7<=TIME(0,0,0),B7>=TIME(0,10,0)),"■","")
U7　=IF(AND(A7<=TIME(0,20,0),B7>=TIME(0,30,0)),"■","")
・・・・

>>487
A,B,C間にそれぞれ一行ずつ空けてその後ずらしたい列をカット＆コピーで
一行ずらしてやっとけ。

>>493
時間*■の個数でいいのかな。めんどくさいから全部作りかえるよ
=REPT("■",ROUND(((B7>A7)*(B7-A7)+(B7<=A7)*(B7+1-A7))*24,0))
>>486
配列に入れて最後にセルに戻す
再計算や描画を一時的にとめる、など

【1 OSの種類 　 　 　 　 .】 WindowsXP home edition
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 参照　挿入　リンク　イメージ　オブジェクト　など

同一ファイル内シート、または別ファイル内シートの中にある一部（セルで指定）を
参照してイメージとして挿入するという機能があったと思うのですが
やり方がわかりません。
色々いじってみましたが
[挿入]の[オブジェクトの挿入]、[ファイルから]という指定がもっとも近い
機能でした。（ドラッグで挿入したイメージをサイズ変更できる）
初歩的ですみませんがよろしくお願いします。

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

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

"Jan1"という文字列のあるテキストファイルを読み込むと"1-Jan"となってしまいます。

読み込んだあとに文字列に変更しても既に数字データになっているし
テキストファイルを直接"jann1"としてから読み込んだあと
エクセル上で文字列に変更しても、"Jann1"→"Ｊａｎ1"と置換した時点で
日付属性に戻って"1-Jan"になってしまいます。
（置換オプションで文字列を指定すると、なぜか最初から数字データになります）

一つずつ直接変更すれば文字列のままなんですが、大量にあるため
現実的ではありません。何かよい方法はないでしょうか

>>498
書式設定で対象セルを文字列にしてから置換するのがいいかな

>>499
文字列にしてあるんですが、不思議なことに置換すると何故か日付に変わってしまうんです。

>>500
置換が出来ないぜ・・

テキストファイルは書式設定が無いから、
書式設定を設定しても一旦保存してから開くと必ず解除されるよ

解決策として、A1に入ってるとして、
B1=TEXT(A1,"mmmd")
もしくは
B1=TEXT(A1,"@")
でどうでしょうか?

>>501
テキストファイルをエクセルファイルとして保存してやっています。

やはり関数使うしかないですかね。
ただ該当の文字列はランダムに多数存在しているので
結局手作業になってしまうんですよね。
文字列の書式設定が変わらない方法があるといいんですけど。

引き続き模索してみます。レスありがとうございました。

>>502
まず新規ワークシートを開いて全セルの書式を文字列にしておく。
テキストファイルをメモ帳で開いてすべて選択→コピー、Excelに貼り付け。
タブ区切りならそのまま貼り付けられるので終了。コンマ区切りなら区切り位置→コンマ。

Excel2003について質問なんですが、例えば６月のあるデータと７月のあるデータ
を='６月'!C52+'７月'!C64のような計算式にして導く場合はどうすればいいでしょうか？
収支決算を作りたいので楽な方法がいいです。

>>503
実はその方法でもやっぱりダメだったんですが、ふと思いついて
引き続き同じクリップボードを貼り付けてみたらうまくいきました。

元データ
jan1,jax1,jay1
jan2,jax2,jay2
jan3,jax3,jay3

1回目（貼り付け後、区切り位置調整）
1-Jan jax1 jay1
2-Jan jax2 jay2
3-Jan jax3 jay3

2回目（1回目の作業のあとそのまま貼り付け）
jan1 jax1 jay1
jan2 jax2 jay2
jan3 jax3 jay3

これで何とかミスを誘発する手作業無しに行けそうです。
いろいろありがとうございました！

>>504
どうしようもこうしようもそうするしかないんじゃいか
シートの内容が分かればindirectとmatch、sumif辺りを組み合わせたりもできるだろうけど

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
http://www.nicovideo.jp/watch/sm6732647
この動画をみて相談したいんですが、
エクセルでフルHDサイズにしたいのですがどうすればいいですか？
エクセルに関する知識は全くないものですから・・・。
こんな簡単な質問ですが、親切な人、誰かお願いします。

>>495
すばらしいです！できればこれを１セルに１こ■と言う風にして
シフト表を作るとして10分刻みでこんな表にしたいんです。
出勤　退勤　18　19　20　21　22　23　24 　1 　2　　3 　4　　5　
19:00　2:00　　　　■　■　■　■　■　■　■　■
22:00　4:00　　　　　　　　　　　 ■ ■ ■ ■ ■ ■ ■　

よろしくおねがいします。

>>504
”収支決算シート”を作成してそこにその計算式を入れればどうでしょうか？

>>498
エクセルへの読み込み方
まず、エクセルの白紙シートで属性を文字列に変える
読みたいテキストファイルをメモ帳で開く　＞　全選択コピー　＞　エクセルに貼り付け

置換した時点で属性変えたくないなら、置き換え先の文字の頭に ' を入れる。
"Jann1"→"Ｊａｎ1"なら
置き換え元 Jann
置き換え先　'Jan
みたいに

>>505
横書きの日本文に「，．」を用いるのは朝鮮人だよ。日本語は横書きでも「、。」が正しい。
韓国語では、縦書き文書では「、」が用いられ、横書き文書では「，」が用いられる。
この用い方は統一されているため、縦書き文書に「，」を、横書き文書に「、」を用いるのは誤り。
だから日本語で書くときもカンマピリオドの癖が出るんだろうね。

常にセルに＝がある前提にしたい。
つまり、＝1+1と入れなくて、1+1と入れれば計算されるようにしたいということ。

目的
コピぺして計算するときに、いちいち全てのセルに＝を入れていく作業を無くしたい。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 ＝SUM（A1：B2）とかができる程度のレベル
【4 VBAでの回答の可否】 検索して理解できる程度の内容なら可
【5 検索キーワード 　 　 】 エクセル　イコール　　＝　前提　据え置き等

>>512
逆に先に＝をセルに入れておくというのはどうですか？
並びのセルなら一つ＝を入れておいてオートフィルタでコピーペーストして
おくとか。

>>511

これは朝鮮とか関係ない。
日本語の横書きは句読点の使い方に流派がある。
理系の専門書なんかコンマ派が多いぞ。

>>512
WorkSheetChangeで入力された文字列を数式に置き換える

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

>>511

韓国語の横書きでコンマを使うのは日帝残滓でしょう。つまり日本統治の名残です。
韓国人に指摘してあげたらどうでしょう。日本なマネすんなと。

>>508
http://kissho.xii.jp/1/src/1jyou94273.png

>>513
＝をすべてのセルに入力後、コピぺしたところ、数式が上書きされて意味がありませんでした。
オートフィルタを利用したコピぺというのが良く分かっていない可能性が高いので、
オートフィルタ　コピーで検索した。
そして、オートフィルタに＝を入れてそれらを全セルにぶち込んだが、特に結果が変わらない。
というか、オートフィルタ自体が上書きされて消される。
そして、オートフィルタをセル行・列に入れても、抽出するだけで良く分からない状況です。

できれば、操作含めて教えてください。

>>515は現在検索し、知識追加中です。
どうやら、VBAについては全く分からなかったようで、そこから勉強しています。
また、VBAの使い方までは行きましたが、いまだコードの書き方を理解していません。
このまま知識を蓄えれば行けるんでしょうか？

http://questionbox.jp.msn.com/qa463848.html
似た内容の質問を発見しました。置換ってこれのことですか？

で、出来たーーーお休みなさい。どうもありがとうございました。

>>511
実は公務員系の一部で横書きがコンマになるソフトがあるんだな、これが
何ていうのかはは知らないけど
>>508
C6から右に数字が入っている前提で
C7=IF(AND(($A7*24)<=IF(C6<12,C6+24,C6),((($B7+1)*24))>=(IF(C6<12,C6+24,C6))),"■","")

韓国とかなにいってんの
公務文書とかは書き方が法律で決まってるんだけどな

(;ﾟдﾟ)ｧ

>>518
>>522

大変参考になりました。ありがとうございました。
これを元に自分でも勉強してみます。

横書きのカンマはJISで決まってるし文部省もそういう基準を示してる。
公用文も正式にはカンマだが、だれも守らないだけ。ぐぐればすぐわかることだが。

文科省管轄公務員の友人もカンマピリオド使ってたわそう言えば

テキトー書いて失礼しました。ソフトと思い込んでいましたよ
法律っつーか最近そういう基準があるんだね

最近というか、基準が出たのは昭和25年だけどな

【1 OSの種類 　 　 　 　 .】 WindowsVistaUltimate
【2 Excelのバージョン 　 】 Excel2k
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel vba 処理 プロシージャ

複数のプロシジャを次々実行していくようなとき
Call test1
Call test2
Call test3
と書いて実行していますが

シェルスクリプトのように test1 && test2 && test3
のようにシーケンシャルに実行させる方法はあるのでしょうか？
それともフラグを立てて確認するしかないのでしょうか？

初歩的なことで質問です。
A1に5.5、A2に5.5、A3に=A1+A2と入れると11になります。
A1とA2を Comma [0] にして表示をそれぞれ6にしたとき、A3の表示を12（6+6なので）に
したいのですが、どのようにすればいいでしょうか？

>>531
表示と同じようにroundしてから足す

A3 =SUM(ROUNDUP(A1,0)+ROUNDUP(A2,0))

=IF(A1/10>=0.5,A1+0.5,A1)+IF(A2/10>=0.5,A2+0.5,A2)

”up”いらんかった

>>531
オプションー計算方法の表示桁数で計算にチェック
ただ、色々と危ない木はするけど

>>532-536
ありが�d!!
=SUM(ROUND(A1,0)+ROUND(A2,0))でうまくいきました。

SUMもいらんがな

好きにせい

好きだ。（はー

そう言えば

=sum(A1+A2) とかなんでもsum付けるオヤジが会社にいるけど
いつツッコミ入れればいいのか、考え中

複数の数字が順番バラバラにセルの上にあるのですが、
例えば、1がｎ個　２がｎ´個と表をまとめたいのですが
どのようなツールをつかえばいいのですかね
ご指導よろしくおねがいします。

>>541
さっさとツッコメ

>>542
COUNTIF関数

ピボット

>>544
理解しました。
ありがとうございます。

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

セルの中に数式や、別シートのリンク？（=上期!B5）が書かれています。
数式の結果ではなく、数式そのものを表示させることは出来ますか？

>>547
ツール＞オプション
表示タブの中の、数式ってのにチェック

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

あるセルにAと入力した場合、他のセルを結合してそこにAと表示させる事は可能ですか？

>>549
可能

その程度の事はちょっと試せば判りそうな事だけど、手元にエクセル無いんだ
ろうなと思って手元にエクセルがある私からのレス。

>>549
条件によって結合したりしなかったり、というのならVBAが必要

>>549
あるセルをA1とB1とする
=a1&b1
=CONCATENATE(a1,b1）

>552

まさかそれを「結合」と言うのか？

>>553
お、スマン。質問をちゃんと読んでなかった
>>549
>>552は忘れてください
で、セルの結合をした場合、左上のセルの文字列や数式が優先される
ただし範囲内で入力されている箇所が一箇所だけだとそれになる
他のセルを先に消しておくのが早いかな
じゃなきゃ先にコピーしておいて、結合してから元のセルにコピーしなおすなど

>549
「あるセルにＡと入力した」というイベントから「セル結合＋当該セル範囲に参照式設定」を行う
という意味にもとれる。だったらChangeイベントとマクロの自動記録でできたコードをちょっと修正
だけでいいと思う。

それとも単なる結合セルへの参照式設定のことなんだろうか？

結合済みのセルに数式を入れる程度のことなら
普通に何も考えずにやってしまうレベルの話だと思わんか

>>548
547です。
ありがとうございｍあした。

またか

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

行数が一定しないリストで、最右列にあるデータの列番号と行番号を得るにはどうすればいでしょうか？

>>559
=MAX(COLUMN(1:1)*(0<>(1:1)))
と入れてCtrl+shift押しながらenter
1:1って部分は1行目から1行目って意味だから2行目なら2:2と買えておくれ

みなさん有難うございます。
Changeイベントというのが自分には出来そうにないので、今回は断念します。

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

ハイパーリンクになっているセルについて、表示されている文字ではなくリンク先URL
をコピーして貼り付ける事はできますか？

たとえば"グーグル"と表示されていてクリックするとhttp://google.comに飛ぶ文字列があり、
これをコピペすると"グーグル"がペーストされますよね？
そこを、http://google.comのほうでペーストをしたいのです。

>>562
ハイパーリンクの編集画面からコピペする以外だとリンク先を取り出すのはVBA使わないと無理
たとえばこんな感じ
Range("B1") = Range("A1").Hyperlinks(1).Address

【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　一文字　変える　計算

シートが1,2,3と三つあり、シート１のA3×シート２のA3の答えをシート３のA3に、ということを、

A3B3C3・・・
A4B4C4・・・
A5B5C5・・・
・ ・　・
・　・　・

↑のように繰り返したいのですが、この場合、シート３のセルに１つずつ地道に入力していくしかないのでしょうか？
何か賢いやり方をご存じの方がいれば、ご教示願います。

>>564
オートフィル
でぐぐれ

>>564
コピペ

>>566
10×72のセルを、変える文字以外コピペして、カチカチ入力しました。地獄でした。

>>565
感動しました。エクセルって素晴らしい。

>>564
>>565
興奮のあまりお礼をするのを忘れてしまいました。
お二方初歩的な質問にも関わらずレスどうもありがとうございました。

誰でも最初は初心者だからね〜
がんばってね

エクセルが重くなってくると、テンポラリフォルダを消す+デフラグすると
速度動作が戻ることがある。というか戻った。動作が重いと感じたら試してみてください。

>>567
そうじゃなくて。
「変える文字以外」じゃなくて、セルをそのままコピペするんだってば。

たとえば
=A1+A2
みたいな式が入ってたとして、そのセルを隣にコピペするだけで
=B1+B2
に自動的に式が書き変わる。
範囲指定して一気に貼り付ければ、全部のセルに適切な数式が自動的に入る。

>>564
シート3のＡ3をダブルクリックしてセルに　＝　を入力。
シート1のＡ3をクリックそして　*　を入力。
シート2のＡ3をクリック。Enter。

→　シート3のＡ3に答えがでる。そのセルからしたにオートフィルでおｋ。のはず。

追加
ＡＢＣもだしたいなら右に３つ分オートフィルして、
Ａ3Ｂ3Ｃ3の答えをだして、Ａ3Ｂ3Ｃ3を選択してそのまま3つまとめて下にオートフィル。

すんません、VBAに関して教えてください。
OS: WinXP,Vista
Ver: Excel2003だが、2007にも使える対処法を希望します。

マクロで、#refのセルの扱い方について教えてください。

if range("A1") <> range("A2") then ...

というときに、A1が #ref の場合、比較以前に「型が一致しません」と
なってしまいます。
これを鑑みるに、A1が #ref かどうかという条件をまず入れたいのですが、
この比較ができません。
どのようにするべきでしょうか。

>>569
いつか私も誰かに教えられるようにがんばります。

>>570
ああ・・・。そういうことでしたか。誤解してしまいました。すみません。

今試したら、ちゃんと書き変わってました。驚きました。エクセル素晴らしいです。

>>571
すごい。これなら自分で入力する文字をかなり減らせますね。これは色々な場面で使えてとても便利に違いない…


本当にみなさんどうもありがとうございました。すっかりオートフィルの虜です。

関数を使ってセル内の全ての空白を取る方法ありませんか？
TRIMだと半角一文字の空白が残ってしまいます。

>>575
どうしても関数じゃなきゃだめなの？
置換じゃだめなの？

つーか、全ての空白は取れんだろ？
釣りか？

>>573
Sub a()
If Range("A1").Text = "#REF!" Then
Debug.Print "A1が#REF!です"
ElseIf Range("A2").Text = "#REF!" Then
Debug.Print "A2が#REF!です"
ElseIf Range("A1") <> Range("A2") Then
Debug.Print "同じではありません"
Else
Debug.Print "同じです"
End If
End Sub

>>575
=SUBSTITUTE(SUBSTITUTE(A1,"　","")," ","")

>>573
エラーってのは特殊な値が入ってるからねー
>>578は個人的には微妙、というか本質的にはダメだろう

ttp://www.asahi-net.or.jp/~ZN3Y-NGI/YNxv98c3.html
など見て、エラー値というものを覚えるといい
これは文字列ではない

結果オーライ

>>580
ダメ出ししてるくせに、自分では答えられない馬鹿。
句点も打てないお前は、日本語の勉強をしろよ。
小学校すら行けなかったのか？

なんでそんなにいかってんだよw

>>583
>>580が痛すぎるからだろ

そうだねw
↓次の質問どうぞ〜

>>584

痛すぎるのは>>578だと思うが。。。

EXCEL2003です。VBA使用可。

シート上にある複数のオブジェクト（画像）を全て選択する方法を
教えて下さい。

『[Ctrl]キーを押しながら、全オブジェクトをクリックする』は
除きます。

よろしくお願いします。

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

何度も出ている質問かもしれないですがすみません。

バージョン2007？拡張子ｘｌｓｘのもので作成したファイルをｘｌｓに保存しなおして
それで、VLOOKUPを使おうとしたら、帰ってくる値がデタラメになってしまいます。
範囲指定を絶対参照にしたり、範囲に名前をつけてみたりしたのですが、できません。

どうしたらいいですか？
すみません、よろしくお願いいたします。m(__)m

>>586
折角スルーしてんのに相手するなよぉ
>>587
編集→ジャンプ→セル選択でオブジェクト
ActiveSheet.DrawingObjects.Select
>>588
環境がないんで再現できないな
そのファイルをアップロードすることが可能なら原因を探ってみるよ

すみません！
今、仮のデータで新しいシートでVLOOKをやってみても全然おかしい。orz

どうなってるんだろう。。。
VLOOK自体が出来ない。

ほんとに困った。誰か助けて〜

>>589さん
ありがとう！

でも、バージョンとかの問題じゃなさそうですよね。。。

>>590
使い方間違えてるんじゃない
A1-A3に「あ、い、う」。B1-B3に「1、2、3」
=VLOOKUP("あ",A1:B4,2,0)
=VLOOKUP("い",A1:B4,2,0)
=VLOOKUP("う",A1:B4,2,0)
で試してみて

>>592

できましたあ！
検索の型に０を入れなかったのです。(>_<)

ありがとうございました。
とても助かりました！！m(__)m

ひでぇｗ

俺も同じことやらかしたので批判はできねーんだぜ

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

私女だけど、入力規則のリストで質問です＞＜

リスト用の定義が2種類（定義A、定義B）があります。
B1でリストを使います。

ここで、
A1が「あ」だったら、定義Aを
A1が「い」だったら、定義Bを　リストとして使うことは可能ですか？？

>>596
A1には「あ」「い」のどちらかを入力
A2=IF(A1="あ","定義A","")&IF(A1="い","定義B","")
B1のリスト元の値=INDIRECT(A2)

元の値にif使えるかと思ったが無理だったな

>>597
INDIRECTかああああああああああああああああああああああああああああ

その発想はなかった。ありがとう＞＜

>>589
レスありがとうございます

反復計算機能をマクロから呼んで数値計算をしてるんですが、
2日程度ほっておくとリソース不足云々といわれ、止まってしまいます。
データの入っているセルを増やすわけではないし、
どうしてこうなるのでしょうか？また、対処法があれば教えてください。
WindowsXPPro、Excel2007です。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 「右クリックメニューが出ない excel」「xlbファイルがない」など

よろしくお願いします。

先日から、エクセルにて右クリックメニュー及び上部メニューが表示されなくなりました。
右クリック窓が白い影のような状態で表示され、
文字などは見えず、適当な場所でクリックしても反応しない状態です。

この状態は割とあるらしく、xlbファイルが破損などで異常になった場合の症状で、
対処法としてxlbファイルを削除することで治ることが多いようです。

ところが、このxlbファイルが存在しないので困りました。
検索をかけても、直接C:\Documents and Settings\<ユーザー名>\Application Data\Microsoft\Excelにアクセスしても、
存在しないのです。
もちろん両方とも隠しファイルも含まれる・表示されるようにしてあります。

Office自体の再インストール、システムの復元も試しましたが無理でした。
こうなったらリカバリしかないのですが、
諸事情は省きますがシステム導入のためリカバリすると万単位でお金がかかることになってしまうで、
出来ればリカバリをせず解決できればと思い、こちらで質問させていただきました。

解決方法・アドバイスなどがありましたらどうぞよろしくお願いいたします。

>>600
俺もよく分からないだけど、
例えば変数Aに1を代入、これをdoloopで延々繰り返すだけでも
メモリはモリモリ増えていく。仕様じゃないかなぁ
>>601
ttp://support.microsoft.com/default.aspx?scid=kb;ja;882248
とか？
拡張子xlbのファイルはｴｸｾﾙ2000にも無かったよ

>>602
そのサイトを参照してxlbの異常で起きる不具合とあったので、
手順どおりxlbを探してみたのですがなかったのです。

* Excel 2003 の場合 : Excel11.xlb
* Excel 2002 の場合 の場合 : Excel10.xlb
* Excel 2000 の場合 の場合 : Excel.xlb

とあるので、普通は存在してるはずなのですが・・・
何かxlbファイルが構成される条件などがあるのでしょうか。

>>603
うちのマシンで探してみたら、Excel11.xlbは
C:\Documents and Settings\ユーザー名\Application Data\Microsoft\Excel
というフォルダの中にあった。
Excel2000もインストールしてあるんだけどExcel.xlbはどこにもなかった。圧縮してあるんだろうか。

>>602
ありがとうございます。なんとかメモリの消費を抑える方法を調べてみます。

Wordでドキュメントをマクロでいじっていたら、同様にリソース不足になった

その時の対処法は、こまめにセーブするで切り抜けたけど
同様の方法じゃダメかな？

>>604
わからないですね…

が。
別にユーザーアカウントを作ることでいちおうは解決しました。
ということは、やっぱりdocument and setting/ユーザー名以下のどこかに、原因となるものがあると思うんですが……

>>603
ゴメン、隠しフオルダ検索してなかった
確かに>>604さんと同じ場所にあるね。ただしエクセル2000
思いつく方法は管理者権限で探して見る・・とか、別のユーザー名のフォルダを探してみるとか
それともそのファイルが無いことが問題なのかなぁ
あと、拡張子は表示してる?拡張子表示しないと多分検索にはひっかからない

さっきまで作業していたエクセルのデータが何故かとづぜん
今日の朝の時点のものに変わりました。
その時はCtrl＋S と間違えてCtrl＋Wを押してしまいました。
今日のうちに何度も保存をしていたのにそれがなくなってしまって困っています。
データを元に戻す方法はないでしょうか？

Ctrl＋Wはウィンドウを閉じるシヨートカット

ただ何度も保存をしてるなら別の場所に保存してるんじゃないか？
拡張子「.xls」でファイルを検索してみるとあるかも

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

>>608
拡張子も表示してますね。
アカウントも管理者権限のあるものしか使ってなかったですし…
とりあえずは新規アカウントということで解決を見せたのでこの質問はこれまでにします。
ありがとうございました。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　ウインドウ　別　表示


Excel2003で、複数のファイルを別ウィンドウで開く方法を教えてください。

例えばデスクトップ上に Excelの「A」「B」…という複数の
エクセルファイルのアイコンがあったとします。
今までは 各アイコンをダブルクリックすることで、
それぞれ自動的に別ウィンドウが立ち上がっていました。

しかし、ある時突然同じウインドウでしか表示されなくなってしまいました。
もちろん特別な操作や設定の変更はしていません。
（同じ操作をしても別ウィンドウが立ち上がるのではなく、
既に開いているウィンドウの上に重ねて別ファイルのデータが表示される感じです。）

この時、ファイル切替はデスクトップ最下にあるタブを選択・切替すること
でしかできません。(AからBにタブを切り替えると　Aは見れなくなってしまいます)
またタブの右クリックで表示されるメニュー（重ねて表示等）は全てグレーアウトに
なっているため　どれも選択不可です。

【続き】
ネット上で複数解決方法を見つけましたが、
どれも意図するものではありませんでした。


■並べて表示：同じウィンドウの中で 縦や横に各ファイルを並べて表示
→別ウィンドウではない為 問題外

■「ツール」→「オプション」→「全般」→「ほかのアプリケーションを無視する」
→開かれているAで上記操作を行った後、デスクトップのBをダブルクリックで
開くと、別ウィンドウは立ち上がるため「別ウィンドウ」という点では
解消されますが、そのウィンドウ(B)にはデータが表示されていない(灰色の空excel)
また全てのファイルを一旦閉じると、次回以降Aやその他のファイルをダブルクリックしても
デフォルトで空Excelが起動するようになってしまう

■デスクトップ最下のタブで切替
→別ウインドウの表示ではない為問題外。切り替えると他のファイルが見れない

■「スタート」→excel起動、 「ファイル」→「開く」→「ファイル名を指定」
→別ウィンドウで起動するが、手間が掛かる

■excelツールバー「ウインドウ」→「新しいウィンドウを開く」
→「A」「A：2」…というように同じデータのファイルが
別ウインドウで開かれるだけなので問題外

■タスクバーのプロパティから「同様のタスクバーボタンをグループ化」も
試してみましたが、タスクバーの「タブのみ」が別々になったりひとつになるだけで、
ウィンドウは別になりませんでした…

【続き２】

尚、ネットで検索した結果の中には
「Excelは元々 一つのウィンドウでしか開かないような仕様になっている」
との情報も見受けられましたが今まで「別ウィンドウで自動的に立ち上がって」いて
ずっと普通に使ってきたので当てはまりません。

ネットで検索したどの方法も、解決になっていないものや
スタートボタンから手順を踏むもの、
いちいちファイル名を指定して開くものなど
非常に手間がかかるものばかりで 大変困っています。


あくまで、今まで使い慣れた「ダブルクリックのみ」で
「複数ファイルを自動的に別ウィンドウ起動」する方法が知りたいです。

この困った状況の原因や、元の使い勝手に戻す為の設定方法をご存知の方、
是非解決方法を宜しくお願いします。 長文にて失礼いたしました。

ツール - オプション - 表示　の「ウィンドウをタスクバーに表示」かな？

>>613
他のアプリケーションを無視する
って項目が
つーる　おぷしょん　全般　にある

言いたいことは分かった
もしかしてブックごとに独立したウインドウで開きたいってことじゃね

おっと失礼これではダメなのだな
俺の環境ではブックBは開くんだけどなぁ

>>618
簡単に言うとそうだな
で、それが617のオプションのはずだがうまくいかないらしい。そんな状態にはならないからわかんねーんだなー

どんな操作したのか知らんけど、元に戻したいんだったらリカバリしてみりゃいいんじゃねーの？
あんたの元の状態なんてわからんし

検索したらこんなのあったよ。ダブルクリックじゃないみたいだけど、
キレてイライラしてるよりはましなんじゃね？

http://www.trickpalace.net/windows/tips/excel.open.window.htm

>>617
おい
開けなくなったぞ

ショートカット消したりしてないよな

>>621
リカバリは無理･･･会社のPCだもんで。

もちろんショートカットも消してない。

そもそもその動作自体がデフォルトではない状態なんだよ
カスタマイズした後で不調になられても答えれる人は少ないだろう
さっさとリカバリするかオプションをデフォルトにすればいいと思う

ちなみにリカバリした後ならすぐに
■「ツール」→「オプション」→「全般」→「ほかのアプリケーションを無視する」
でそれまでの状態に戻せる

これの下の方みたいなカスタマイズしてたんじゃね？
http://www.asahi-net.or.jp/~ef2o-inue/kankyo/sub02_03_02.html
Officeアップデートで上書きされるらしいから、それで「不具合」起きたんじゃね？

オフィスのアップデートもバージョンアップもしてないし、
カスタマイズを加えた訳でもなくて、
Excelの作業中に　途中から動作設定がいきなり変わる事ってあるのかな？

その日の初め(PC起動時)とか　MSのパッチ当てた直後とかなら
まだ理解できるんだが･･･

>>628
ある
「ツール」→「オプション」→「全般」→「ほかのアプリケーションを無視する」
にチェックが入ってたことと、自動計算が手動計算になってたことはある

どこかでショートカットキーを押したのか、エクセルの機能かは知らん
ただ絶対に自分で操作はしていないのは自分がよく知ってるし、
それは君も同じことだろう
誰が悪いとか言うよりさっさと解決したほうが良いと思ふ

【1 OSの種類 　 　 　 　 .】 WindowsXPSP3
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ　必要なら勉強します
【4 VBAでの回答の可否】 可

こんな感じの形式のデータ部分を”, ”(カンマと半角スペース)
でつなぎ合わせてテキスト形式に出力したいのですが可能でしょうか？

ttp://windyakin.if.land.to/src/up38_1702.png

あるわけねーだろ
アホくさ

>>631
アホはお前ｗ
ttp://www.relief.jp/itnote/archives/001258.php
エクセルのバグが多いことも知らないの？
>>613
「エクセル ほかのアプリケーションを無視する」
でぐぐれ
似たような症状の報告が多いので片っ端から試してみるほうが早い

>>630
直接の解決方法は知らないけど
CSVで保存した後、カンマをカンマ+半角スペースに置換してみるというのはどう？

お前がそう思うならそうなんだろ
お前ん中では

>>633
おぉ、これで行けそうです
タイトルの中に","があった場合は各々対応しないといけないですがかなり楽に作業できそうです
ありがとうございます

いくつかブックを開いていたとき、"MENU" というシート名が入ってるブック名を
TGTという変数に入れたいんですが、うまくいきません。
アドバイスお願いします。

Sub てすと1()

　For Each WB In Workbooks
　　For Each WS In Worksheets
　　　If WS.Name = "MENU" Then
　　　　TGT = WB.Name
　　　End If
　　Next
　Next

　MsgBox TGT

End Sub

>>636

俺もまだ駆け出しだが･･･

>　　　If WS.Name = "MENU" Then

　　　If WB.WS.Name = "MENU" Then

じゃね？

>>637
実行時エラー'438':
オブジェクトは、このプロパティまたはメソッドをサポートしていません。

となっります・・・

x となっります・・・
o となります・・・

取り出したWB使わなきゃ
For Each WS In WB.Worksheets

>>631
この子っていつも謝らない人だよね・・・
本当に実年齢聞きたい
小学生なら許す。
ただ将来しんどいから、誤れるだけのプライドはもてるようになった方がいいよ、とだけ
部下に謝ると、すごい人望付くよ

>>641
誤れる

つまらん釣りはやめろ

>>636
うちはあんたが書いたこれでうまくいってるヨン。

Sub てすと1()

For Each WB In Workbooks
For Each WS In Worksheets
If WS.Name = "MENU" Then
TGT = WB.Name
End If
Next
Next

MsgBox TGT

End Sub

>>640
ありがとうございます。
うまくいきました。

>>643
空白を返してダメでした・・・

>>640

なるほど･･･orz

>>644
空白返すのは名前が不一致
ループの中に次を書いて実行してみ
Debug.Print wb.name & ws.name

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

セルに埋め込まれたコメントのようなものが編集出来ないのですが
編集するにはどうすればよいのでしょうか。
セルに赤い▲マークがないのでコメントとはちょっと違うみないなんですが・・・

>>354
超遅レスだけど、間違いなく消えてるのを確認
98だとC:\windows\temporary internet files\content.ie5\IFid6fig
というファイルに保存されていた。作業を終了させるとそのファイルも消滅
復元　というソフトがあれば解決できたかも・・
>>647
データ、入力規則
にある「入力時メッセージ」だな

>>648
そこにありました。
ありがとうございます。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】いいえ
”I4”のセルと”D１〜９９”にデータを入力し”I4”と”D列”で演算させたいのですが
式を一つ作ってセルをドラッグすると下記のように”I列”も＋１されていってしまいます。
=D1/I4^2
=D2/I5^2
=D3/I6^2
以下のようにしたいのですがなにか簡単な方法はありますでしょうか
=D1/I4^2
=D2/I4^2
・・・・

>>650
=D1/I$4^2

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

windowsXP
excel2003
を使用しています

グラフの横軸の目盛りの値を変えたいのですがどのようにすればいいのでしょうか？
お願いします

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

IF()で値を抽出した以下のようなデータを
グラフで表示したいるのですが、
無効なデータを""にすると0として扱われ、
NA()にしても#N/Aの前後が繋がってしまいます。
IF()を使用した上で折れ線を途切れさせる方法はありませんか？

10
15
#N/A 又は ""
13
14

>>654
=""
を値でコピーしてもつながってしまった。VBAしか無理だろうな
ファイルがどういう風になってるか、そのifの式がどういう値を返すかで
マクロ自体も変わってくる
作るのは問題ないが、ファイルの様式がわからないと作れないのでアップロードをするか
詳細にそのファイルの内容を教えていただきたい

>>655
以下にアップしたもののSheet2です。
DLキーは 3210 です。
よろしくお願いします。
ttp://www.dotup.org/uploda/www.dotup.org290234.zip.html

>>653
その値の部分を右クリック

>>656
7時すぎぐらいに作れると思う
とりあえずシート2のN/Aエラーを消せばよいかな？

>>658
#N/A は消さなくてもいいので、
グラフの方をお願いします。
もちろんグラフを途切れさせるために必要であれば
その限りではありませんが。

>>636
なんかまた書きなぐったような無駄の多いコードですが
これでどうでしょ？

Sub ブック検索()
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim Sh As Worksheet
Dim StrWb As String
Dim MyPath As String
Dim ShCnt As Long
Dim TGT As String

Application.ScreenUpdating = False
Application.DisplayStatusBar = True

Set Wb1 = ThisWorkbook

MyPath = ThisWorkbook.Path
StrWb = Dir(MyPath & "\*.xls")
'つづく

>>636
>>660のつづき
Do While StrWb <> ""
If StrWb <> Wb1.Name Then
Application.StatusBar = StrWb & "を開いています。"
Workbooks.Open Filename:=MyPath & "\" & StrWb
Set Wb2 = Workbooks(StrWb)
If Wb2.Sheets.Count >= 2 Then
For Each Sh In Wb2.Sheets
' Debug.Print "シート名は、" & Sh.Name
If Sh.Name = "MENU" Then
TGT = StrWb
MsgBox "ブック名は、" & TGT
End If
Next
End If
Wb2.Close
Else
Set Wb2 = Workbooks(StrWb)
If Wb2.Sheets.Count >= 2 Then
For Each Sh In Wb2.Sheets
If Sh.Name = "MENU" Then
TGT = StrWb
MsgBox "ブック名は、" & TGT
End If
Next
End If
End If
StrWb = Dir()
Loop

>>636
>>661のつづき
Application.DisplayStatusBar = False
Application.ScreenUpdating = True
MsgBox "終了します!"
Exit Sub
Resume
Set Wb1 = Nothing
Set Wb2 = Nothing
End Sub

>>659
グラフを希望通りにするにはエラーをクリアするしかない、と思う
とりあえずシート2のA1セルにボタンを付けておいた。単純にエラー値をdeleteキー押して消すのと同じ状態にするマクロが入ってる
これだけじゃ希望通りにならないかな?
ttp://www.dotup.org/uploda/www.dotup.org290823.xls.html

なんでもいいけどエラー値って置換も何もできねーんだな

ISERR関数使え。

>>636
こんな感じかな。^^

Sub てすと1()
　　Dim Wb As Workbook
　　Dim Ws As Worksheet
　　Dim Ff As Boolean
　　
　　For Each Wb In Workbooks
　　　　For Each Ws In Wb.Worksheets
　　　　　　If UCase(Ws.Name) = "MENU" Then
　　　　　　　　TGT = Wb.Name
　　　　　　　　Ff = True
　　　　　　　　Exit For
　　　　　　End If
　　　　Next
　　　　If Ff Then Exit For
　　Next

　　MsgBox TGT

End Sub

>>665
忘れ物。(^^ゞ

Dim TGT As String

なぁーおまいら、636の事例って640で解決してるんじゃねーの？

安価付ける勉強してこいｋｓｇ！

>>665
>>636の要求仕様満たしてないよ。
いくつかのブックのMENUというシートがあるブック名を変数TGTに入れるんだから
それじゃ拾えないんじゃないのかな？動かしても空白が返るだけだと．．．

>>667
解決してねーから

あ〜、質問は「いくつかのブックを開いているとき」か、>>665スマソ
ちなみに>>660はブックを開いていなくてもブック名が取得できるから。

>>668
なぁーおまいら、>>636の事例って>>640で解決してるんじゃねーの？

なぁーおまいら、うんこしてこい

>>669-670
644で「うまくいきました」と書かれており、解決済みです

離島のサンデーPGはプログラム能力が低い上に日本語をあまり理解しないという・・
VBA厨ってバカが目立ちやすいんだよな
なんでだろう
>>673
申した

>>669
複数のブックに"MENU"というシートがあれば、Exit Forでループを抜け出してないんだから
最後に抽出したWB.NameがTGTに入るだろ？

もしかしてここじゃないのかもしれませんが
Googleマップを最大にエリア拡大して、
プリントスクリーンで画面上に出ている地図情報を画像ファイルで保存してJpgにして
その画像をExcelに貼り付けているのですが、

それをたとえば新宿区全域を貼り付けたい場合
ちょっとずつ移動しては貼り付けてって感じになって
とても大変です

これを一気にまとめて決められた範囲を貼り付けるってのは可能でしょうか？
つまり画面に映っていない部分も
まとめて地図情報を取りだすみたいな感じで

フリーソフトとかでもかまいせん

googleさんにスクリプト・プログラムで連続アクセス(短時間で情報とりまくる)するとIP規制くらうから基本的にやらんほうがいい
個人的には体験版アリの地図ソフト+キーボードマクロを組み合わせて使うのがいいと思う
じゃなきゃキーボードマクロをウェイト大きくしてgoogleマップに使うか

Sub Macro1()
　　Dim KEY1 As String, KEY2 As String, OPRT As String

　　For i = 1 To 3
　　　　If i = 1 Then
　　　　　　KEY1 = "=ELT*"
　　　　　　KEY2 = "=ELS*"
　　　　　　OPRT = "xlOr"
　　　　ElseIf i = 2 Then
　　　　　　KEY1 = "=ECR*"
　　　　　　KEY2 = "=ECS*"
　　　　　　OPRT = "xlOr"
　　　　ElseIf i = 2 Then
　　　　　　KEY1 = "=ERW*"
　　　　　　KEY2 = "<>*Z"
　　　　　　OPRT = "xlAnd"
　　　　End If
　　　　Range("A2:G2").AutoFilter Field:=2, Criteria1:=KEY1, Operator:=OPRT, Criteria2:=KEY2
　　Next

End Sub

「RangeクラスのAutoFilterメリッドが失敗しました」って出ちゃいます。
どこが良くないのん？

Operator:=OPRT,
かなぁ。バージョンによっては対応していないようだ

>>679
AutoFilterメソッドのヘルプを見ると「Operator 引数には XlAutoFilterOperator クラスの定数を指定します」とあるので

宣言時は
OPRT As XlAutoFilterOperator ←Variantでもいいのかも

値のセットは
OPRT = xlOr ←ダブルクォーテーションで括る必要はない

で試してみて

なぜループさせているんだろ・・・

データを抽出とか行削除とか想像もつかんのか？

最後のがi=3の書きﾏﾂｶﾞｲとしても、必ずi=3のケースになるじゃん

あ、見間違えてた。寝るわ

>>677
見えてない部分を取り出す方法はないと思う。

「このページのリンク」に出てるURLをよく見ると座標(緯度、経度)が含まれてるでしょ。
うまく計算してページを更新してやれば、自動的に連続したエリアを表示させることは可能。
それを順番に取り込んでいけばいい。自力でやるならVBAが必要。
フリーウェアの質問はWindows板へ。

多分まだ途中経過で、本当はループの一回ごとに何かしらやりたいんだろう

>>676
>>671に書いてるんじゃないの？

なんでみんなループ回すの？
Sub てすと2()
Const S As String = "MENU"
Dim TGT() As String
Dim Wb As Workbook
Dim Ws As Worksheet
Dim i As Long

ReDim TGT(1 To Workbooks.Count)
For Each Wb In Workbooks
　　Set Ws = Nothing
　　On Error Resume Next
　　Set Ws = Wb.Worksheets(S)
　　On Error GoTo 0
　　If Not Ws Is Nothing Then
　　　　i = i + 1
　　　　TGT(i) = Wb.Name
　　End If
Next
If i > 0 Then
　　ReDim Preserve TGT(1 To i)
　　MsgBox Join(TGT, ",")
End If
End Sub

Workbooks2回使ってるのがちょい気になるけどな。

まー、賛否両論あるんだろーが>>636のお悩み解決策は>>640で終わりですね。
>>665 >>689 は書き方の違いの参考にしましょう。
私、個人的にはいちいちブックを開かなくても良い>>660のが良いと思いますが
これは好みの問題ですね。

Workbooks.Open Filename:=MyPath & "\" & StrWb
Set Wb2 = Workbooks(StrWb)
ここみると相変わらず上達してねーなぁ。
なんで1行にしないんだか。

>>691
そこばっかじゃないな。
似たような記述を2回書く必要がどこにあるんだか。

>>690
確かにスマートで好ましいが

今開いてるブック
って条件なんじゃね

>>691-692

この子はいつものコピペ房でしょ。
それぞれの意味を理解せずに使用してるからこうなる。

>>689

半年ROM推奨

ずいぶん上からみてんな

俺のレベルは知らんが>>689は下の部類。
恥ずかしげもなく披露する点では下の下。

問題を解決できればいいだろ。コードの良し悪しなんかくだらね。こだわり厨ｳｾﾞｴな。

回答者のレベルがあがるって意味なら、
色々なコードがでることはいいだと思うよ

>>663
お礼が遅くなり申し訳ありません。

見てみました。
しかし、完全に消去状態になるということで、
A列を変更した時に操作が必要なようです。
正直に言うと、思っていた挙動ではありませんでしたが、
こちらの作業が増えるだけなので問題ではありません。
ありがとうございました。
ありがたく使わせていただきます。

>>699
完全に消去しないとグラフに反映されないのよ
ifでエラーを回避しようと何しようと数式が入ってるだけでダメ(グラフはつながる)
そういうエクセルの仕様と思ってあきらめてくだせい

>>696
お前のレベルは>>689より大分下だよｗ

だな、>>696は下下下の鬼太郎ｗ

>>700
ただ、VBAでなら途切れさせる(消去する)ことが可能なようなので、
コピーして抽出しているIF()をVBAで組めば
思ったとおりのことができそうですね。
VBAを勉強してみます。
解説ありがとうございました。

助けてください
下記のようにA1に１月１日と入力したらB,C,D,E,F,Gセルは自動に翌月の○月１日にするにはどうしたらいいのでしょうか？

　　A　　　B　　　C　　　D　　　E　　　F　　　J
1　1/1　2/1　　3/1　　4/1　　5/1　6/1　　7/1

>>704
B1=DATE(YEAR(A1),MONTH(A1)+1,1)
後はB1を右にオートフィル

679です。

>>680>>681
すごーい！ビンゴです！！
OPRT = xlOrで動きましたよん。

ElseIf i = 2 Then　の3つ目のi=2は書き間違いです。
事務所で作ったファイルを思い出しながら書いたので間違っちゃいました（＾＾；

>>704
自動というのは関数？
オートフィルだったら、右クリックしながら引っ張って「連続データ（月単位）」

Fの次がJという・・・

２００３で起動させたいので、よろしく。

【1 OSの種類 　 　 　 　 .】 Windows　xp
【2 Excelのバージョン 　 】 Excel2003 と2007　とがはいってる
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード　思いつかない

昨日まで、ショートカットで起動していたものは２００３でしたが、セキュリティの更新が
昨日行われていたためか？、今日は２００７の互換モードで開くようになってしまいました。
元のように２００３で起動させられるようにしたいのです。が、エクセルプログラムを２００３に
しようとショートカットのプロパティを見て、office11のを選んでもoffice12の２００７互換モードが
選択されてしまいます。

>>705
おかげさまで出来ました。
ありがとうございます、これで作業が楽になります。。

>>707
説明不足ですみません。関数でした

>>708
すみません

>>709
デスクトップかどこかのエクセルのファイルを右クリック
プロパティ→変更→参照
で古いほうのエクセルがある場所探してそれを「開く」

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

表の中から数字を検索（数式や文字を残す）して削除するってのを作ってみたんですが
実行したら=15*24みたいな式が消えずに残っちゃいまして…
当然なんでしょうけど、消えないでほしいのは=F1*G5みたいな式だけなんです
これってどうにかならないんでしょうか？

>>712
数値だけ消すマクロ
Option Explicit
Dim sex
Sub ClearError()
For Each sex In ActiveSheet.UsedRange
If IsNumeric(sex) Then
sex.ClearContents
End If
Next
End Sub

>>713
全部消えちゃいましたけど…

Sub Test2()
Dim r As Range
If MsgBox("◆数値を削除しますか？◆", vbYesNo, "削除の確認") _
= vbYes Then
On Error GoTo line
For Each r In Selection.SpecialCells(xlCellTypeConstants, 1)
On Error GoTo 0
r.ClearContents
Next r
Exit Sub
line:
MsgBox "指定範囲内に数値がありません。"
End If
End Sub

今出来てる（というか作ってもらった）のはこんな感じです
また、これだと検索した数値が結合したセル上にあった場合、エラーが発生する事が判明しました

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

照会説明が拙かったですが、お答えの方法で選んでもできないので聞きに来ました。
２００３と２００７とで何故か、優先して選択するものが常に２００７に変更されたため、
生じているものと考えております。
この関係の操作を思い出せない、わからないので、困っております。
よろしくお願いします。

>>714
ｽﾏﾝかった。こういうことかな
Sub Test2()
Cells.SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub
>>715
私のほうだとこれで大丈夫だったんだよなぁ。この先は他の人に教えてもらうしかないな
とりあえず↓の結果何個か試してみてはいかがでしょうか
ttp://www.google.com/search?client=opera&rls=ja&q=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB+2007+%E3%81%8C%E7%AB%8B%E3%81%A1%E4%B8%8A%E3%81%8C%E3%82%8B&sourceid=opera&ie=utf-8&oe=utf-8

>>714
選択範囲の中で消したいなら
Selection.SpecialCells(xlCellTypeConstants, 1).ClearContents
を使っておくれ

　

Sub 2009年度の売上集計() と書いたらコパイルエラーになってしまいました。
調べたら、数字で始まるのはダメぽのようですが、マクロ名に集計したいタイトルを
書いておきたいとき、どんな対策をすればいいでしょうか？

>>719
前がダメなら後ろに書けばいいじゃん。（例：売上集計2009()

どんな対策も数字で始まらないようにするしかない
業務命令でやらされる場合、俺なら「a2009年度・・」というタイトルにするかな

>>719
頭に目立たない文字として、句点 "。" をつける。

でも、なぜか半角になんるんだが・・・

�A009とかｗ

>>720-723
即レス感謝です。
参考にします。

>>722
"゜"だと不正な文字といわれるね。
コンパイラの仕様としか言いようが無いな。もしかしたら1bit目に制御文字でもあるのかもねぇ

リストボックスAを通常グレーアウトさせておいて、
チェックボックスAをONにしたら、リストボックスAも選べるようになるように
するにはどうすればいいでしょうか。

>>726
Private Sub CheckBox1_Click()
With ListBox1
.Clear
.AddItem ("みかん")
.AddItem ("りんご")
.AddItem ("ばなな")
.MultiSelect = fmMultiSelectMulti
If CheckBox1.Value = True Then
.Enabled = True
.ForeColor = &H0
.BackColor = &HFFFFFF
Else
.Enabled = False
.ForeColor = &H999999
.BackColor = &HCCCCCC
End If
End With
End Sub

>>712
Sub test()
Dim MyVal As String
Dim MyReg As Object, MyPat As String, s As Range
Set MyReg = CreateObject("VBScript.RegExp")
MyPat = "[=\/\(\)\-\+\*]"
With MyReg
.Pattern = MyPat
.Global = True
For Each s In ActiveSheet.UsedRange
MyVal = .Replace(s.Formula, "")
If IsNumeric(MyVal) = True Then
Debug.Print s.Address
Range(s.Address).ClearContents
End If
Next
End With
Set MyReg = Nothing
End Sub

変数にmyをつける人は多いが先頭を大文字にする人は
初めてみた気がする・・・

行番号と列番号を１６進で０からＦに設定するにはどうすればいいの？

＞If CheckBox1.Value = True Then
＞If IsNumeric(MyVal) = True Then
上はプロパティがTrueなら、と明示する意味で
わからんでもないけど、下はなんかモヤモヤする。

>>730
ttp://www.relief.jp/itnote/archives/000925.php
これとROW()やcolumn()を組み合わせる。
アドイン入れないならfloor()とmod()を組み合わせると思うけどやりたくないな

VBAなら
ttp://www.bekkoame.ne.jp/~poetlabo/COMP/Excel/TIPS/Hex.htm