Excel総合相談所 69

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

▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★2 要望は具体例や図を使って明確かつ具体的に。
★3 質問前に>>2-10あたりの注意書きや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総合相談所 68
http://pc11.2ch.net/test/read.cgi/bsoft/1210171205/

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･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 質問するときは、環境や条件をキチンと書くこと。情報後出しはダメ。
　　　||　★2 要望は具体例や図を使って明確かつ具体的にしる。
　　　||　★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
　　　||　★4 質問テンプレ(雛形)は必須ではないが、
　　　||　　　　OSやExcelのバージョン､VBAの可否などは必須情報。
　　　||
　　　||　 　 　 　　　　　　∧ ∧ 　 。
　　　||　　　　　　　　　　( ,,ﾟДﾟ)／　ｼﾞｭｳﾖｳ!!　　　　　　Ｅ[]ヨ
　　　￣￣￣￣￣￣￣ﾉ　　つ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　 　 　 　 　 　 　 / ￣￣￣ ./| ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　 　 　 　 　 　 　 　 |￣￣￣￣| | |
￣￣￣￣￣￣￣￣|＿＿＿＿|/｜
　　　　　　　　　　　　 　 　 　 　 　 ￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　＼　　　　は〜〜〜〜い　　　　　　／
　　　　∧ ∧　　　　∧,,∧　　　∧ ∧
　　　 ( ,,　∧▲　　ﾐ　 ∧ ∧　(　　∧ ∧
　　〜（＿(　　∧ ∧＿(　∧ ∧＿ﾐ･д･∧ ∧
　　　　＠（＿(,,・∀・)＠ (　　 *)〜ミ＿ ( 　　,,)
　　　　　　＠（＿__ﾉ　〜（＿__ﾉ　 　 〜（＿__ﾉ

エクセルの技術的な質問と関係ない議論・雑談は下記スレッドで。

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

乙

先生にここのログを見せたらどんな顔するだろうな
そもそもRIGHT(A2,2)がダメっって完全に後出し条件じゃん。質問スレでは門前払いされるレベルだぞ

後だしじゃないじゃん？

909 名前：名無しさん＠そうだ選挙にいこう　[]　投稿日：2008/05/23(金) 20:16:39
すみませんどなたかこの関数問題を教えて下さい。
問題としては守備位置の名前を表示させず名字の名前だけ 右のセルに表示させる問題です。※ﾗｲﾄ関数で右2文字だけ表示させるのはダメです。

こんな板で吊られた？

>>11
943 ：名無しさん＠そうだ選挙にいこう ：2008/05/24(土) 01:50:14
自分は>>909です。
皆さん、多数決の回答ありがとうございます。
正直な所、習った事がない問題で四苦八苦してました。
最初は、名前が皆二文字の為右二文字を表示されば良いと思いﾗｲﾄ関数を使ってほらよ。解いたぞ〜 と思ったらそんな単純なもんじゃないと一喝され
『名字は一文字の人も居れば三文字の人も居る』と言われてしまいました。
後日、教室にこのカンニングに等しい回答を手にとり出撃します。

前スレで終わったんじゃないのか？引きずるなよ

前スレ994
ありがとうございました。やっぱりその方法しかないんですね。
最終行あたりを使って、保存時・終了時に削除するようにします。

前スレと元カレって似てますね

>>13
終わったかどうかはお前が判断することではない。

じゃ、俺が判断する。

終了。

乙
前スレ992
分かりませんか・・・。
VBAとかマクロとかならできるか調べてみます。
検証ありがとうございました。

>17
HYPERLINKが入ってると否応なしにリンクされるっぽいから、
INDIRECTとかでばらして強引にやれば関数でもいけるんじゃない？

>18
IF関数の書き方が間違っていると思ってました。
ばらして・・・。なるほど！！もう少し関数でがんばってみます。

=SUM(HYPERLINK(B2),A1)
でもリンクされるな。この関数が入ってればリンクされる・・ということかも

>20
どこに入れてもHYPERLINKされるんですね
何度も何度もIF書き換えてました(泣)

こんな・・・
=IF(A1=1,HYPERLINK("http://localhost","はいぱー"),HYPERLINK("","なし"))

>22
おぉー！！
無理やりリンクをはずせばよかったんですね。思いつきませんでした。
「なし」でもカーソルを持っていくと、人差し指をさした形になりますが実用上問題なしです。
ありがとうございました。

アドバイスくれたみなさん
ありがとうございました。とても助かりましたm(_ _)m

よし、じゃ約束のチューをさせてもらうぞ。
その後ものの弾みで最後までやってしまっても事故だからな。

や、やさしくしてくりゃれ…

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

質問です。

たとえば、１列目と３列目のそれぞれの番号がふられていて
２列目と４列目にはそれぞれの番号に対する金額がが書かれているとします。

１列目　２列目　３列目　４列目
００１　２０円　００２　２３円
００２　１１円　００３　３０円
００４　２０円　００５　３０円

こんな感じです。これを、

００１　２０円　−−−　−−−
００２　１１円　００２　２３円
ーーー　−−−　００３　３０円
００４　２０円　−−−　−−−
ーーー　−−−　００５　３０円

このような感じで同じ番号同士のものを同じ行にくるようにしたいのですが
どのようにすればいいのでしょうか？
よろしくお願いします。

挿入

>26
やりたいことにあうかどうかはわからんけど、
3・4列目を1・2列目に貼り付けてしまって、
1列目で並び替え、もしくはピボットとかで集計すればどう？

別の個所にVlookupで引っ張ってきて、
#N/Aを置換で---に置き換える

>>26
データを不規則に移動させるのはVBA使わないと難しいんじゃないかなあ

すいませんーーーは空白の意味です。>>28さん>>29さんありがとうございます。
ためしてみます

>>26
こんなデータを用意する。
001 20 002 23
002 11 003 30
004 20 005 30
001 001
002 002
003 003
004 004
005 005
006 006
007 007
008 008
009 009
010 010

フィルタ機能を使って１列目から重複データを取り除き、それを別シートにコピペ。
フィルタ機能を使って３列目から重複データを取り除き、それを別シートにコピペ。
するとこんなデータができる。

001 20 002 23
002 11 003 30
004 20 005 30
003 001
005 004
006 006
007 007
008 008
009 009
010 010

>32
できてない・・・・！

見にくいのでもう一度
>>26
こんなデータを用意する。
001　20　002　23
002　11　003　30
004　20　005　30
001　　　001
002　　　002
003　　　003
004　　　004
005　　　005
006　　　006
007　　　007
008　　　008
009　　　009
010　　　010

フィルタ機能を使って１列目から重複データを取り除き、それを別シートにコピペ。
フィルタ機能を使って３列目から重複データを取り除き、それを別シートにコピペ。
するとこんなデータができる。

001　20　002　23
002　11　003　30
004　20　005　30
003　　　001
005　　　004
006　　　006
007　　　007
008　　　008
009　　　009
010　　　010

つづき
１列目と２列目を選択して１列目で昇順にソート。
３列目と４列目を選択して３列目で昇順にソート。
できあがり。

>>33
あわてものだのう。

まずは1列目と3列目のデータをどこか別の一列に集めてソート、重複行を削除。
これを作業列として、LOOKUPで対応する値段をあてはめてく。

>35-36
でも結局できてないじゃない・・・！
003とか残るし、手動で消さなきゃいけないじゃない・・・・。
ていうか普通に>>28でよかったんでしょ？

もっと効率のいい方法もある。
こういうデータに変更する。
番号 金額 列
001 20 1
002 11 1
004 20 1
002 23 3
003 30 3
005 30 3

そしてピボットテーブル
番号 1 3
001 20
002 11 23
003 　 30
004 20 　
005 　 30
完成

>>38
>>28だとできてないでしょ。

>>26
まずA列とC列から作業列を作る。合わせてソートして重複を除いた物をE列に入れる。
次にG1に =IF(ISERROR(VLOOKUP($E1,A$1:B$3,2,0)),"",VLOOKUP($E1,A$1:B$3,2,0)) と入れて
G列とH列にコピペ。
さらにF1に =IF(G1="","",$E1) と入れてF列とH列にコピペ

ttp://paint.s13.dxbeat.com/up/src/paint_7188.png

タイプミス
× G列とH列にコピペ。
○ G列とI列にコピペ。

>>41
出力はこれが一番質問者の希望通りだな。
私の好みは>>39。

【1 OSの種類 　 　 　 　 .】 Windows xp home
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード 　 　 】 エクセル　重複　合計
http://www-2ch.net:8080/up/download/1211639915837869.TaAP4f
図の左の表を右の様に加工したいです。具体的には

1.月ごとに分ける
2.1つのユーザーに対して複数の作業先がある場合は、それぞれの1番早い日付に
　他の日付の作業数を合計を入れる
　（月が違う場合はまとめない）

3000行程度あり、手作業ではちょっと面倒なので効率的に出来るよう、知恵を貸してください。
お願いします。

>>44
ピボットテーブル

>>44
基本的にはピボットテーブルでできますが、その前にデータを
「作業」と「作業明細」に分ける必要があります。

>2.1つのユーザーに対して複数の作業先がある場合は、それぞれの1番早い日付に
>　他の日付の作業数を合計を入れる

これ間違ってるでしょ？

>45,46
やっぱりそれなんですね…。
使った事ないのでまだよく分かってません。
ピボットテーブルでどのようにやればいいかも出来れば教えて頂けるとありがたいです。
とりあえず調べてみます。

あと間違いとはどういうことでしょうか？

ＡＢＣの列があったとすると
ＡとＣだけコピペしたい場合はいちいち
ＡとＣをひとつづつコピペするしかないのでしょうか？

>>47
>2.1つのユーザーに対して複数の作業先がある場合は、それぞれの1番早い日付に
>　他の日付の作業数を合計を入れる

2.1つのユーザーに対して同じ作業先がある場合は、それぞれの1番早い日付に
　他の日付の作業数を合計を入れる

じゃないの？

>>48
ctrl押しながらクリックしていけば離れてる範囲を選択できる

>49
あ、読み返すとおかしいですね。

1つのユーザーに対して同じ作業先がある場合は、
1番早い日付の作業数に、他の日付の作業数の合計を加える。
さらに作業先が複数ある場合は、それぞれの1番早い日付の作業数に、
他の日付の作業数の合計を加える。

かな。分かりにくくてすみませんでした。

もうひとつ間違い。
あなたの名前は>>44でしょ。

データをこのように整理してみました。
作業番号 ユーザー 受注数 作業先 作業数 日付 開始日付
1 A 50000 X 7000 4月1日 4月1日
1 A 50000 X 7000 4月2日 4月1日
1 A 50000 X 7000 4月3日 4月1日
2 A 50000 Y 7000 4月3日 4月3日
3 A 50000 Z 4000 4月4日 4月4日
4 A 50000 X 7000 5月1日 5月1日
5 A 50000 Y 7000 5月1日 5月1日
6 A 50000 Z 4000 5月1日 5月1日
7 B 30000 X 15000 4月1日 4月1日
7 B 30000 X 10000 4月2日 4月1日
8 B 30000 X 5000 5月1日 5月1日

>52
その1列目は、1番上に1を入れてそれ以降は
=IF(AND(B3=B2,D3=D2,MONTH(F3)=MONTH(F2)),A2,A2+1)
こんな感じでしょうか？
そしてその後、開始日付はどうなってるのか分かりません。

>>47
まずF列に「月」を作る。1行目に月と入れて、2行目に=MONTH(E2)
次にピボットテーブルを置きたい場所の左上のセルをクリックしてから
メニューからデータ→「ピボットテーブルとピボットグラフ レポート」→「次へ」
範囲を入れるダイアログが出たら元データの入った表全体をドラッグ→完了

すると、青い罫線で囲まれたピボットテーブルと、「ピボットテーブルのフィールドリスト」ってのが出てくるから
まずフィールドリストから月をドラッグ。(月にマウスポインタを合わせ、左ボタンを押す。押したままマウスを動かして
薄いグレーで「ここに行のアイテムをドラッグします」と書かれた枠の中までポインタを動かして左ボタンを離す)
続けてユーザー、作業先を同じ場所にドラッグ。

次に作業数を「ここにデータアイテムをドラッグします」のところへドラッグ。

ピボットテーブルの見出しの「月」の部分を右クリック、フィールドの設定、
出てきた「ピボットテーブルフィールド」ダイアログのラジオボタンの「なし」を選択、OK。
「ユーザー」「作業先」の合計も同様に消す。

データ領域の見出しの「集計」を右クリック、オプション、「列の総計」のチェックを外してOK。

ここまでやったのが以下のようなテーブル。
ttp://downloads.myphotos.cc:8080/up1/src/FancyFree0532.png

同じように受注数の合計も出して、日付はVLOOKUPで入れるしかないと思う。

>>53
いえ、考え方を逆にしてみてください。
ユーザー，受注数，作業先，開始日付が作業番号に従属しているのです。
つまり，作業番号が決まれば、その行のユーザー，受注数，作業先，開始日付も決まります。

ピボットテーブルは、操作方法を文章で書くとめちゃくちゃ長くなるけど、
実際は30秒もかからずに集計表が完成するから
ちゃんと覚えておくと色々と役に立つよ。

>>52で示したデータをピボットテーブルで集計すれば目的の表ができあがります。
ここではもう一歩進んで、どうやったら>>52のようなデータを管理することができるか
考えて見ましょう。

>>52のデータでは作業番号が決まれば、その行のユーザー，受注数，作業先，開始日付が決まります。
そこでデータを「作業」と「作業明細」に分離します。

こうなります。

作業
作業番号 ユーザー 受注数 作業先 開始日付
1 A 50000 X 4月1日
2 A 50000 Y 4月3日
3 A 50000 X 4月4日
4 A 50000 X 5月1日
5 A 50000 Y 5月1日
6 A 50000 Z 5月1日
7 B 30000 X 4月1日
8 B 30000 X 5月1日


作業明細
作業番号 作業数 日付
1 7000 4月1日
1 7000 4月2日
1 7000 4月3日
2 7000 4月3日
3 4000 4月4日
4 7000 5月1日
5 7000 5月1日
6 4000 5月1日
7 15000 4月1日
7 10000 4月2日
8 5000 5月1日

http://www-2ch.net:8080/up/download/1211647085948806.HkdGzK
一応やってみたこの方法を添削して頂きたいです。

・A列
A2に1、A3以降は
=IF(AND(C3=C2,E3=E2,MONTH(H3)=MONTH(H2)),A2,A2+1)
・B列
B2に
=IF(A2=A1,B1+1,1)
・G列
=SUMIF($A$2:$A$12,A2,$F$2:$F$12)
・I列
=IF(B2=1,H2,"")
・J列
=MONTH(I2)

眠くなてキター

うわリロード忘れてました！
また明日暇なんで参考にして試させて頂きます。
親切にレスくれた方々ありがとうございました。

おまいら難しく考えすぎ。これでいいじゃん。
J2=IF($A3&$C3&MONTH($E3)=$A2&$C2&MONTH($E2),B2+J3,B2)
L2=IF($A3&$C3&MONTH($E3)=$A2&$C2&MONTH($E2),D2+L3,D2)
N2=MONTH(E2)
O2=IF(I1&K1&N1<>I2&K2&N2,"○","")

で、フラグが○の行だけオートフィルタ
ttp://x072.s10.x-beat.com/up/src/up0635.png.html

>>59
それならもっと簡単にできる
ttp://i-get.jp/upload500/src/up16471.png

G2=MONTH(E2)
H2=IF(J3,B2+H3,B2)
I2=IF(J3,D2+I3,D2)
J2=A2&C2&G2=A1&C1&G1

最後に作業列がFALSEのところだけオートフィルタ

>>59
>>55でも説明しましたが、A列（作業番号）をユーザーや受注数のような他の項目から導いてはいけません。
考え方が逆です。作業番号を与えれば、ユーザーや受注数が決まるのです。

>>59
この表は上段が作業明細データ、下段が作業データになっていますね。
作業番号に従属する項目は>>55で説明したように
ユーザー，受注数，作業先，開始日付です。

ですから、作業データ（下段の表）には作業数と日付の項目は不要です。

>>61と>>62は不正解。
それじゃだめなんだよ。
日付が月をまたぐような場合うまくいかないだろ？

>>65
月ごとに分けて集計すんのに、月をまたぐとだめってどういうこと？

>>62の画像が削除されたんで別んとこに再掲
ttp://bull.s11.x-beat.com/src/bull111066.png

>>66
おっと月ごとに分けるんだったね。
不正解とか言って失礼。ごめん。

>>50
貼り付け時にもＡＢＣのＢを飛ばして
はりつけしたいのですが

>>68
ctrl押しながら（列を）クリックしていけば離れてる範囲を選択できる

>>69
コピーしようとしたら
そのコマンドは複数の選択範囲には使用できません
ってでるのですが・・・

>>70
列ならできる。

複数のセルを指定してるとか言わないよね？>>48

>>71
列ではなくセルです、すいません

でも、列でもコピペはできてもはりつけができないのですが

何度もすいません
ようするにやりたいのは複数の離れ離れのセルを一度で
コピペできないかということです。もちろんセルの貼り付け位置も
間隔はそのままではなればなれのまます

>>72
コピペとはコピー＆ペーストの略。
日本語に訳すと複写と貼り付け。
だからコピペはできても貼り付けできないなんてことはありえないですよ。

>>73
できないということなんじゃないかな。
マクロでやれば？

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

＜通常＞　オートフィルを使った場合
1　りんご
2　りんご
3　みかん
4　みかん
5　ばなな
6　ばなな

＜希望＞　同じデータは同じ連番（昇順）にしたい
1　りんご
1　りんご
2　みかん
2　みかん
3　ばなな　
3　ばなな

この＜希望＞のようにするにはどうしたらいいでしょうか？
宜しくお願いします。

1列目に連番、2列目に商品が並べ替えられて入力されているとして、
A1に「１」
A2に、=IF(B1=B2,A1,A1+1)
で、A2を選択してセルの右下の黒いとこダブルクリックでフィルすればおkじゃね？
できあがったら値のみコピーして貼り付け

>>77
な、なるほど。IF関数だけで、そんなに簡単にできてしまうんですね。
勉強になりました。
ありがとうございます！

excelで簡単にカード型データベースがつくれるようなキットないですか
入力・編集フォームのレイアウトが自由に作れて、レコードの追加・更新・削除ができるやつ。
vectorにいくつかあるようですが、項目数に制限があるのでいやです。

>79

そんなのをEXCELで始めようとするから後で手が付けられなくなる。
知識がないならACCESSでも使え。
知識があるならそんな簡単なものくらい自作しろ。

ACCESSなり使えればいいんだけど、職場ではwordとexcelしか使わせてくれない。
なければ自分で汎用的につかえるものつくるしかないけど、あるなら使おうと思った。

知識があるなら作るほうが早いな

Access使わせてもらえるようにするのが一番いいんじゃないか。

>>79
なぜ入力フォームが必要なのかをつきつめて考えてみたら？
入力フォームのどんな機能が使いたいのか。
案外不要なんじゃないか？

アクセスで入力フォームが果たしている決定的な仕事は
非正規化されたテーブルへのデータ入力じゃないかなあ。

売上テーブルに得意先名や売上単価を冗長に記録するよう
な非正規化された設計がされている場合なんかに、得意先
コードや商品コードから得意先マスターや単価マスターを
参照して値をコピーするような。

これ以外に入力フォームの存在価値がわからない。
>>79もこんなことしたいの？

>>73-75
離れたままのペーストは残念ながらCtrl+Vではできない。
値だけなら参照式を入れてCtrl+Enterでコピーできるが、内容(式や書式)はマクロを使わないと無理。

>>46いつものピボット厨うぜー、一度で説明すれや！

>>79
ユーザーフォームでググって自分で作れ。

>>87
>>46の説明が理解できないような人に回答者づらしてほしくないよ。

>>88
てめーは日本語も読めないのか？ｗｗｗ
内容に文句を言ってるんじゃねえよ。
いくつのレスしてんだよ？説明がへたくそなんだよ、ボケ！

確かに。

こういつ奴が、質問の仕方が悪いと本気で思ってるから救いがない

構ってほしいだけなんだから相手しない

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

HYPERLINKについて質問
他のエクセルファイルのシートまで指定して開くリンクのシート名を他のセルから読み込みたいのですが可能でしょうか？

>>93
よくわからん・・とりあえずシート名を出すならこれ

ttp://www.relief.jp/itnote/archives/001079.php
▼操作手順：セルにワークシート名を表示させる
ワークシート名を表示させたいセルに、
「=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))」

一度どこかに保存しないと機能しないので注意

>>93
セルを右クリック→ハイパーリンクを選んだ時と、HYPERLINK関数を使った場合とで方法が違うんで、
まずどっちか書いて。

>>95
HYPERLINK関数を使うつもりです

>>96
A1のリンクからシート名を取り出してB1に入れる

Sub GetSheetName()
　L = Range("A1").Formula
　X = InStr(L, "]") + 1
　Range("B1") = Mid(L, X, InStr(L, "!") - X)
End Sub

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

あるシートのセルに、そのブックに存在する他の全てのシート名を列記することは可能でしょうか？
ちょうどそのブックに存在するシート名の目次・見出しを作るような感じです。
VBAを使えば可能ということをどこかで見かけた気もしますが、一般の関数等だけではやはり無理でしょうか。
よろしくお願いします。

>>98
そのとおり、VBAじゃないと無理

>98

すぐ上の方法で各セルのシート名を各シートのどっかにだして
まとめセルで参照する。

>>99-100
即レスありがとうございます。
>>100さんの方法はなんとなく思いつきましたが、各シートの特定のセル（例えばA1）にそのシート名を書き出させた場合、
新しいシートが末尾に追加される場合も途中に割り込ませることも想定した上で、
まとめシートにおいて自動的に列方向または行方向に並べる方法↓

　　A
1　シート1
2　シート2
3　シート3
　　・
　　・
　　・

が思いつきませんでした。
なにか方法はありますか？

sheet1、sheet2・・とデフルトの状態でいくつシートがあるか、欠番が無いかを調べるなら
sheet0のA1に=INDIRECT("sheet"&ROW()&"!A1")
と入れて下にオートフィルすれば欠番シートがエラー値になるので分かりやすい・・って程度

基本、シート名は>>94かVBAしか無理だな

>>102
なるほど、シート名を連番にしさえすれば、エラー値はIF関数で消すとして、ある程度用は足りますね。
実はシート名は飛び飛びの日付にしているのでこの方法は使えませんが、参考になりました。
ありがとうございました。

質問です
仕事で毎週重たいエクセルのファイルをもらうようになったんですが、
サクサク動かすために、グラボの導入は効果ありますか。

メインメモリはXPで１GBあるんでそこそこ足りてるはずと思います。

効果はほとんど期待できません
自腹で購入してください

>>104
ビデオカードはあまり関係ない。
必要なのは1にCPUパワー、2にメモリ。
ファイルの内容にもよるが、1GBでは足りない可能性もある。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel バージョン5.0
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード
マイクロソフトエクセル　バージョン５　互換性

新しく始めた仕事で、エクセルを使うことになりました。
先方からエクセルで仕事を送られてくることになったので、
知り合いからバージョン５というのを貰いました。
先方のファイルは２００８というお試し用で開いていたのですが、使用期限切れに伴い
開くことが出来なくなりました。
そこで、貰ったエクセルで開こうとしたところ、開けませんでした。
必要な情報はダウンロードしたつもりだったのですが・・・。
開こうとしたファイルの画面には、エクセルの絵とびっくりマークが
出ていて開くことが出来ません。

何が足りないのか、ご教授いただけると有難いです。
教えてちゃんで申し訳ありませんが、どうぞよろしくお願い申し上げます。

以前、表のまとめ方で質問しましたが、
もう一度別件で質問したいことがあります。

【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】勉強中なのでほぼできないと思ってください
【4 VBAでの回答の可否】 可（というか是非お願いします）

＜やりたいこと＞
�@二つの異なるxlsファイルがあり、その中身をマクロを使って自動的にまとめて表を生成する。
�Aマクロによって生成された表から、グラフが出るようにしてほしい。

説明が下手くそですいません。
なので、実物をアップしといたので、よろしければ下記へ飛んで、ご教授ください。

ttp://uploaders.ddo.jp/upload/1mb/の
1up4575.rar

>>107
Excel 5.0は今から10年以上も前に発売された、とても古いソフトです。
はっきり言って役に立ちません。新しいExcelを買ってきてください。

最新のバージョン2007を買うのが一番確実ですが、まだあまり普及していないので
大抵の仕事は、1つ前のバージョン2003でも大丈夫です。
まずは先方に必要なExcelのバージョンを確認してください。
ttp://www.amazon.co.jp/dp/B000JQLPO0

最新版以外はオークションで探すことになりますが、オークションでは、
たまにライセンスの問題で使えない物を売っている人もいるので
あまり安すぎる物には注意が必要です。

>>107
つOpenOffice.org
とりあえずこれ使っとくとか。

リカバリしたら試用版がまた使えるようにならないか？

個人的に使うだけなら5.0だろうがOpenOfficeだろうがなんでもいいけど、
仕事で人とファイルの交換をする時はバージョンを合わせないとトラブルの元だぞ。

>>108
別ファイルのデータを参照する時は

[ファイル名]シート名!セル名

のように書く。たとえば

=[登録リスト.xls]登録リスト!B3

のように。関数の中でも同じように使える。
これで複数のファイルに分かれたデータを1つにまとめられる。
あとは前スレで出たとおり。

レス下さった皆様、どうもありがとうございました。
役に立たないんですか・・・＞バージョン５

仕方ないので、購入を検討することにしようと思います・・・。

請求書を興味本位でOOoで開いたら全然違っててﾜﾛﾀ

sheet1の変数からsheet2に記載された変数を呼び出すことは可能？
自作標準問わず関数はシートを跨げるんでしょうか。

>>116
=Sheet2!A1

MS-Officeの仕様って公開されることになったんじゃなかったっけ？
まだOpenOfficeの対応が追いついてないのかな？

>>117
Excel関数じゃなくてマクロ関数で呼び出す場合はどうしたらいいんでしょうか。

>>119
Range("Sheet2!A1").Value

あわわわ、いつのまにかセルの指定の話になってますけど
そもそも最初の質問はマクロで算出した値の話です。

例えばsheet1のマクロでA1:A30の合計やらなにやらを算出して
manという値（実数）を得たとします。sheet2のマクロで、
その値をセルに出力して「man個」と表示させたいのです。

sheet2のマクロからsheet1の範囲を指定して算出しろという
突っ込みは

　　　 　 　 ⊂ ⊂ヽ、　　/）/）
　 　 　 　 　 ｃ､　 　`っ（　　ヽ
　　　　　　　　（　　　v）ｃ、 　`っ　
　　　　　　　 　　V''V　 （　　　ｖ）　 /￣`⊃
　　　　　　　　　　　　　　 V''V　　　|　　⊃　　　　　
　　　　　　　　　　　　　　　　　　　（　　　v）　　ﾊ,,ﾊ　　
　　　　　　　　　　　　　　　　　　　　 V''V　　（ﾟωﾟ　 ）　　　
　　　　　　　　　　　　　　　　　　　　　　　　　 ⊂⊂　ヽ
　　　　　　　　　　　　　　　　　　　　　　　　　　 >　　　）
　　　　　　　　　　　　　　　　　　　　　　　　　　(／(／
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ﾊ,,ﾊ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ ﾟωﾟ )　　おことわりします
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　／　　 　＼
　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ((⊂ 　） 　 ﾉ＼つ))
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（＿⌒ヽ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ヽ　ﾍ　}
　　　　　　　　　　　　　　　　　　　　　　　　　　　　ε≡Ξ　ﾉノ ｀J

man個・・・・バカにしやがって！

書き忘れてました。すみません。

122は違ったｗ
書き直して123にするつもりが残して123を追加しちゃってました。すんまそん。

>>121
まずSheet1でマクロやら関数を使って何らかの計算をしたとして、
その結果はSheet1のどこかのセルに入ってるだろ？
それを参照しろ。

計算だけして結果をどこにも入れない、なんて使い方はできないからな。

そうなんですか・・・何か方法はないんですか？

何がやりたいんだ？
どうしてもシートを書き換えたくないんならクリップボードにでも入れとけ。
つーか、マクロはどうやって呼び出してんのよ。

>>116
「sheet2に記載された変数」の意味がよくわかりません。

まず、変数はマクロの中だけで使う物なので、ワークシートに直接書くことは出来ません。
ワークシートの中で値を格納する場所は「セル」になります。

そして、マクロはモジュールという単位で管理されます。
どのマクロでも、どのシートからでも呼び出すことができます。
Sheet1のマクロ、Sheet2のマクロ、といった分け方はしません。
(例外でイベントハンドラというのはありますが)

何か、言葉の使い方を間違っていると思います。
まずはそのあたりをはっきりさせるための質問を考えた方がいいと思います。

ワークシートモジュールの変数のスコープの話じゃないかな

いや関数かな

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

Sumif関数の条件式について質問です。

コード　　　値
412515　　2
405112　　1
412815　　2
400817　　1
407212　　1

こんな感じの大量データを集計したいのですが、
コードの下2桁（12とか15とか）でSumifしたいのですが
式一発で、できないでしょうか？

>>131
コードが文字列なら=SUMIF(A1:A6,"*12",B1:B6)とか配列数式でできるが、下二桁を作業列に取り出してピボットテーブルの方がよい。

>>132
すばやい回答をありがとうございます。
やっぱりそうですね、数値だと*で合計できなくて＞＜
ありがとうございました。

=SUMPRODUCT((MOD(A1:A99,100)=12)*B1:B99)

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

ATANを角度の"45°"とかの角度で求めたいのですが出し方がよく分かりません。
どなたか教えてください、お願いします。

>>135
DEGRESS：ラジアンを度に変換
RADIANS：度をラジアンに変換

>>135
DEGREES：ラジアンを度に変換
RADIANS：度をラジアンに変換

まちがえちゃった、コッチを見て

シートを跨いで変数扱えるじゃないですか！
■sheet1 のマクロ
Public Unko As Integer 'うんこフラグ
sub test()
Unko = 1
End Sub
-------------------------------------------
■sheet2のマクロ
sub tynko()
msgbox sheet1.Unko
End Sub
-------------------------------------------
でちゃんと表示されましたよ。
「いやいや当たり前だしそもそもお前が何したいかちゃんと説明できてないから」というツッコミは

　　　 　 　 ⊂ ⊂ヽ、　　/）/）
　 　 　 　 　 ｃ､　 　`っ（　　ヽ
　　　　　　　　（　　　v）ｃ、 　`っ　
　　　　　　　 　　V''V　 （　　　ｖ）　 /￣`⊃
　　　　　　　　　　　　　　 V''V　　　|　　⊃　　　　　
　　　　　　　　　　　　　　　　　　　（　　　v）　　ﾊ,,ﾊ　　
　　　　　　　　　　　　　　　　　　　　 V''V　　（ﾟωﾟ　 ）　　　
　　　　　　　　　　　　　　　　　　　　　　　　　 ⊂⊂　ヽ
　　　　　　　　　　　　　　　　　　　　　　　　　　 >　　　）
　　　　　　　　　　　　　　　　　　　　　　　　　　(／(／
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ﾊ,,ﾊ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ ﾟωﾟ )　　お断りします
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　／　　 　＼
　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ((⊂ 　） 　 ﾉ＼つ))
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（＿⌒ヽ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ヽ　ﾍ　}
　　　　　　　　　　　　　　　　　　　　　　　　　　　　ε≡Ξ　ﾉノ ｀J

>>138
こいつ教えてもらう態度じゃないな・・・

>>138
いやいや当たり前だしそもそもお前が何したいかちゃんと説明できてないから
つーか、聞く前にやったほうが早かったね

シートを跨ぐってそういう意味だったのね。
シート関係ないやんｗ

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

Sheet 1に参照用のデータ（それぞれの列の項目は番号、氏名、生年月日、住所…など）の表
Sheet 2で番号をドロップダウンリストから選択、Vlookup関数で参照し氏名や生年月日などが自動で入力される表

現在はこのような状態で使用しているのですが、これを番号だけではなく氏名もドロップダウンリストで選択、
番号やその他の項目が表示されるようにしたいのですが、どんな方法がありますでしょうか？
よろしくお願いします。

>>142
vlookupは右側を検索できるが、左側を検索したいならlookupを使うといい
matchでもできると思う

BookAのSheet1に「=Sheet2!A1」のように別シートを参照しているセルがあり、それをコピーして
BookBのSheet1に貼り付けようとすると「=[BookA.xls]Sheet2:A1」と、コピー元のブックを参照してしまいます。
これを、BookBのSheet2を指すように貼り付けたいのですが、そのような事はできますか？

（大量のセルをコピーするので、数式そのものをコピーして貼り付けするのは避けたいです。）

環境はWinXP、Office2007です。解決法がVBAでも構わないです。
よろしくお願いします。

>>144
[BookA.xls]を空白に置換

>>145
なるほどその手がありましたか。
ありがとうございます。
VBAを含めてもそれが最速ですかね？

>>146

VBAを何だと思ってるのかな？

>>147
自動化手段かな。
意図がよく汲み取れないのですが、どういう事ですか？

>VBAを含めてもそれが最速ですかね？

実行時間なら手作業よりVBAの方が当然早いんだが
コーディング時間と>>148の頭の中身によっては･･･

手作業とVBAの処理時間を比較する意図がワカンネ＝>>147

>>149
あー、いえ。置換以外の方法を求めたのです。

何かコイツ、VBAでもかまわないといいながら全然分かって無い気がする･･･

>>150
置換をＶＢＡでやれと先輩方は言っているのだよ。

････････････････････････････････････

全然･･･

分かって･･････

無い気がする･････････

アホ丸出しだな先輩方

VSAに固執するアンタの了見の狭さがキモイ

>>149
あー。ごめんなさい。
元々ＶＢＡでやるつもりだったんですが、>>145が手作業の方法を提示してくれたものだと思っての>>146です。

・・・にしても変な日本語ですね。すみません。
×「ＶＢＡを含めても〜」→○「ＶＢＡで置換するのが最速ですかね？」

ああ！なんか自分のせいで荒れてる！
スレ汚し失礼しました〜。

あと一応ですが>>154は自分ではありません。

>>156
いやだから、どっちが速いかは、その質問だけじゃわからんのだってば。
たとえば、貼り付けと置換を何十回もしなきゃならなくて、ある程度
機械的に処理できるような内容ならVBAを使った方がたぶん早い。

>157
VBA使うなら置換のみじゃなくて張り付ける作業をやらせるべきじゃない？
置換のみの速度はVBAでも手動でもほぼ一緒でしょ。

単純な規則性とか決まった法則があるならVBAのが速い。
ルールが複雑すぎる場合は手作業でやった方が早いこともある。
内容と量で使い分けるもんだ。

A1、B2、C3・・のみ置換、但し他は置換しないこと
なんていう変な規則性＆手作業でやりにくいものなら断然VBAだな
あと正確にできるってのも強味
でもそういうのが200ぐらいないと手作業の方が余程はやい
100ぐらいなら間違いなく手作業の方が早い

いちいちCtrl押しながらクリックは意外と面倒だし間違えやすい。
俺なら不規則に100個あったら事前にセルの一覧をテキストで打ち込んどいてVBAかな。
シート上の作業はマクロの記録でもしない限り残らないけれど、
リストが残っていると、ミスしてないかどうかあとから確認できるというメリットもある。

2007を使っていますが
ある行全てのセルの頭４文字だけデリートするようなことって
出来るのでしょうか？
その方法を教えて下さい。

>>163
A1に文字が入ってるとすれば
=RIGHT(A1,4)
で値として残したければこのままA1にコピー＆ペーストで値のみ

間違えた。これはひどい

>164

MID/MIDBじゃないの？

>>163
=RIGHT(A1,LEN(A1)-4)
こうだ、うん
4文字以下の時は
=if(,LEN(A1)-4<0
辺りで条件分岐させておくれ

>165

ｗｗｗ

>163

=MID(A1,5,LEN(A1))

>>166>>168
ありが�d
MIDだとエラーが出ないのかｗ
>>163
>>167より>>168の方が100倍使いやすいぜ

>167

あれ？
>163は頭４文字消したいんだよな？

俺が勘違いしてるのか？

いや、>>168で正解

>167

あっ！
やっと意図が分かったｗ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい（勉強中）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】　繰り返し　処理　など

す・・すいません。VBA入門買ってしまってなんですがたぶん本当の初歩なんでしょう・・・掲載されてない・・・

a1セルに番号←基点番号
A2セルに連番個数

a1からa2の連番分数値を他のセルに連続出力したいのですが
--------------
Range("c1").Select
For i = ○○ To ○○
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Select

Next i
-------------
for　next文の所にA1　A2セルの内容を参照させたいのですが　ど・・どうすれば
・・・よく本見てみると構文はそこそこ掲載されてるんですが初歩すぎてVBAにセルを組み込む例が全く書いていない・・・
よろしければアドバイスを・・・(´･ω･`)

【1 OSの種類 　 　 　 　 .】 WindowsVISTA Business
【2 Excelのバージョン 　】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel2007 Excel2003 リストボックス コンボボックス
　　　　　　　　　　　　　　　　 エラー 不具合 マウス スクロール マクロ activeXコントロール

リストボックス（コントロール）で複数行選択するときに2列×50行なんで
マウスでスクロールしようとしたところ終了しますとメッセージがでて終了してしまいます。
原因は表示されません。
2003では正常に動作していたんで2007の不具合かと思ったんですが、
今自宅なんで2007がアップデート済みかどうか確認していません。ファイルも職場です。
明日またいじってみますが、なにをチェックしたらよいでしょうか。

　

>173

Range("A1").Value

>>173
Range("C1").Select
For i = Range("A1") To Range("A2")
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Select
Next

>>175>>176
俺がググルよりも早いとは・・・

おまえら・・・神すぎるぜ・・・・

トンクス

>>173
Range("C1").Value = Range("A1").Value
Range("C1").Resize(Range("A2").Value).DataSeries

>>176
× For i = Range("A1") To Range("A2")
○ For i = Range("A1").Value To Range("A1").Value + Range("A2").Value - 1

>>178
オブジェクトを正確に書けと言いたいんなら

× Range("A1").Value
○ Range("A1").Cells.Item(1,1).Value

>>179
アフォ発見！

.Value付けると付けないでどう違うの？

>181

説明しても分かんないだろうからvalue付けとけ。
そのうち分かる。

Webページとして保存と発行の違いって何なのでしょうか？

さらに、選択範囲でシートを保存した場合と発行の違いがわかりません。
同じように思えます。

>>134
どうもありがとう。でもそれだと#VALUE!なのです＞＜

VISTAでExcel2007を使ってますが、セルを右クリックでセルの書式設定の画面を開くまでタイムラグが結構あるのですが、これは仕様ですか？
PCの性能的にはCore2Duoの2.1Gメモリ2G積んでるので問題ないと思いますが。

>185

ウィルスとマクロのチェック。

あと「結構」と言われてそんな体感的な表現で分かるわけがない。
まずは右クリック→[F]→[ESC]を100回やって平均をだせ。

>>186
PCを立ち上げて初めてエクセルで操作するときだけ遅く、その後はストレス無く開くのです。
最初の操作はだいたい4，5秒かかるかな。
こんなもんですか？

>187
そんなもん。
セルの書式設定ダイアログボックスはExcelの起動時には
メモリに読み込まれてないらしく、最初の一回目は時間がかかる。
2007に限らず従来のバージョンでも同じだったと思う。

>>187
HDDの読み込み速度の問題なので、CPUやメモリは関係ない。
一度読み込んでしまえばメモリ上に残るので、その後は時間がかからない。
多分だが、フォントの読み込みに一番時間がかかってる。いらないフォントをアンインストールしたらマシになるかもしれない。

参考になるかわからんが、自分の環境ではFontフォルダが256MB、その中に278個のフォントファイルが入ってる（隠しファイル含む）。
かかる時間は6秒程度。CPUはC2D,E4500。

>>188-189
ありがとうございます。
そういう仕組みなのですね。
Excel2002ではこんなストレス感じなかったので不安に思ってました。
フォントなどいろいろいじってみます。

>PCを立ち上げて初めてエクセルで操作するときだけ遅く、

何でこういう情報を後出しするかな〜･･･

そういうとこまで気使えるレベルなら最初から質問してないだろ

>>183
発行の方は、MSのSharePointServerと連携できる機能だったかな。
単体だとweb書き出しと変わらないと思うよ。

>>184
この式はあくまでも例だから、A1:A99 と B1:B99 の部分には、実際に集計したい数字の範囲を入れるんだよ。
1行目が見出しでデータが2行目から始まるなら A2:A250 、 B2:B250 みたいに。

1/1月 100
1/2火 150
1/3水 200
　　　　　　☆第一週の最高値
1/8月 100
1/9火 100
1/10水 300
1/12金 150
　　　　　☆第二週の最高値

週の日数が異なる表から、
各週の最高値を検索するにはどうすれば良いですか？

よろしくお願いします。

>>195

1.全日数分のｼｰﾄを用意する。
2.LookupなりIndex/Matchで該当日の値を表示させる。
3.好きな単位で集計しろ。

>>195
バージョン明記しようね。ピボットテーブルって知ってる？

日付 曜日 金額
1月1日 月 100
1月2日 火 150
1月3日 水 200
1月8日 月 100
1月9日 火 100
1月10日 水 300
1月12日 金 150

↑これに対し、(バージョンが2007なら)「挿入」から「ピボットテーブル」、(バージョンが2003以前なら「データ」から「ピボットテーブルとピボットグラフレポート」)
行ラベル（行フィールド）に日付、値ラベル（データアイテム）に金額
行フィールドで右クリック→「グループ化」→「日」にチェック、開始日・最終日を指定、日数を７に指定、→OK
値フィールドで右クリック→値フィールドの設定→「集計の方法」タブで最大値を選択→OK

完成例↓
ttp://paint.s13.dxbeat.com/up/src/paint_7283.jpg

>>184
Ｂ列に文字列があるんだろ？
だいたいSUMPRODUCTなんてアフォが使うものなんだがｗ
その式なら
=SUM(IF(MOD(A1:A99,100)=12,B1:B99))
の配列数式の方がまだマシってもんだ。

VBAの質問です。テキストボックスで、異常値が入力された場合、
再びテキストボックスへの入力からやり直しさせたいのですが
どうすればいいのでしょうか。

Sub test()
Dim nenkin

'('A`)
nenkin = Application.InputBox("年金は月何万欲しいですか？", "やるやる詐欺", "欲しい年金の額を数字で入れてね", Type:=1)

If Len(nenkin) < 2 Then

MsgBox "2桁以上入れろや！遠慮してんじゃねぇぞテメェ！" & Chr(13) _
"今まで苦労した分、豊な老後を過ごせやコラ！！"
End If

End Sub



と記述し、1桁だけ入力された場合、メッセージ表示後、再び('A`)の処理に戻らせたいんです。
ループ等は何か違うよな、という気がして。スマートに入力をやり直させる方法はあるんでしょうか？

196さん、197さん
ありがとうございます。
バージョンは２００７です。
やってみますね。

Sub test()
　Dim inp_nenkin As Integer
　inp_nenkin = get_nenkin()
End Sub

Public Function get_nenkin() As Integer
nenkin = Application.InputBox("年金は月何万欲しいですか？", "やるやる詐欺", "欲しい年金の額を数字で入れてね", Type:=1)

If Len(nenkin) < 2 Then
MsgBox "2桁以上入れろや！遠慮してんじゃねぇぞテメェ！" & Chr(13) & "今まで苦労した分、豊な老後を過ごせやコラ！！"
nenkin = get_nenkin()
End If
get_nenkin = nenkin
End Function

書き込みﾐｽです。すんません。

>>199
ループが嫌なら>>201のようにFunctionにしてしまって、再帰的に呼び出すのはどう？
（書き込みミスったので、変な所に改行が入ってたり宣言が抜けてたりするのは気にしないで）

別にループでいいと思うけど。

>>194
いや、それくらいわかるんだけど、MOD関数とかって範囲指定でも計算するのかな？

>>200
>>196はからかってるだけだと思う。

はじめまして。以下の状況での打開策を質問します。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】非アクティブ時　ペーストモード　スペシャルペースト等

ブックＡをアクティブ時にセル移動方向を右に、非アクティブ時（他のブックがアクティブ時）に
セル移動方向を下に戻すようにコードを書いてあります。

このとき、ブックＡのセルの値をＣＴＲＬ＋Ｃでコピーして他のブックに貼り付けようとしても、
ＣＴＲＬ＋Ｖ（右クリック→貼り付け）が出来なくなっている。
クリップボード経由なら貼り付けできるが、縦横入れ替えで貼り付けたいので不可。

ブックＡではセル移動方向を右にしつつ、他ブックへのコピペを自由にできるような
設定は可能でしょうか？

Mac用エクセル2008にiphotoからの写真をはりこみました
Winの人に送っても写真が見えないといわれてしましました

設定で回避出来る問題でしょうか？

写真をみたらjpgではなくピクチャーになっています
大量に書類作ったんでMac側の書類はいじりたくありません

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

ぜんぶやり直しです。あきらめてください。

四捨五入した値で計算したいです。
わかりくいと思うので画像を見てください。
http://imepita.jp/20080527/784770

OSはwindowsで
バージョンは2000です。
検索は四捨五入　エクセル　小数　でぐぐりました。

何がしたいのか良くわからん
そのまま四捨五入した値で計算すればいいのでは？

=sum(C1:C6)
っていれればいいだけじゃないの

>208
仮にA列に入ってるとして、B列などに、
=ROUND(A1,0)
って入れると小数点1桁目で四捨五入した値になるから、それを合計。

>>206
似たような例で2007から2003に送ったときは保存形式をxlsにすればいけた
デフォルトの拡張子は.mxlsだかで少し互換性が低い
2008は触ったこと無いんで全然違うかもしれないが一応

countblankが空白セルをカウントしないんだけど、空白セルに
どんな情報が入っているのかって、どうやったらわかる？
別に、countblank以外にやりようはあるので、いいんだけど、
分からないのは気持ちわるす。
ググっても、空白に見えても「空白」じゃないセルがあるので注意、
という情報しか見つけられなかった。

>>213
数式で""が表示されているとか・・・

>>214
それは>>213に対する"どんな情報"という回答例であり
"どうやったら"という要件定義を満たしていない。

なんだ、コイツ

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

>>213
よくわかんないけど、判定対象セルを全部trimしてやりゃ完全なブランクになんじゃないのん

>213
前スレだったかで話題の出てた、
cleanをかけてみたらどう？

こなん感じか
Function what(a As Range)
Dim t
t = TypeName(a.Value)
what = t
If t <> "Empty" Then
If a.HasFormula Then
what = what & " Formula[" & a.Formula & "]"
Else
what = what & " [" & a.Value & "]"
End If
End If
End Function

>>215
なんかこいつ嫌い、きもいし

>>213
=CODE(A1)

このスレはいつも（生）暖かいなぁ。
レスくれた人に感謝！
明日、やってみるぜ。あぁ、もう「今日」か。

　　　 　 　 ⊂ ⊂ヽ、　　/）/）
　 　 　 　 　 ｃ､　 　`っ（　　ヽ
　　　　　　　　（　　　v）ｃ、 　`っ　
　　　　　　　 　　V''V　 （　　　ｖ）　 /￣`⊃
　　　　　　　　　　　　　　 V''V　　　|　　⊃　　　　　
　　　　　　　　　　　　　　　　　　　（　　　v）　　ﾊ,,ﾊ　　
　　　　　　　　　　　　　　　　　　　　 V''V　　（ﾟωﾟ　 ）　　　
　　　　　　　　　　　　　　　　　　　　　　　　　 ⊂⊂　ヽ
　　　　　　　　　　　　　　　　　　　　　　　　　　 >　　　）
　　　　　　　　　　　　　　　　　　　　　　　　　　(／(／
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 (;;ﾟ;;)
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（＿_）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 （＿＿)　お断りします
　　　　　　　　　　　　　　　　　　　　　　　　　　　　／⌒＼　（ ﾟωﾟ )　／⌒＼　お断りします
　　　　　　　　　　　　　　　　　　　　　　　　　　　　＼●／／　　 　＼＼●／
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ((⊂ 　 ） 　 ﾉ＼　つ))
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 （＿⌒ヽ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　　　　　ヽ　ﾍ　}
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ε≡Ξ　ﾉノ ｀J

>>205
貼り付けとセルの移動方向は関係ない。
また、Ctrl+Vというのは「クリップボードの中身を貼り付ける」という操作なので、
Ctrl+Vが使えないのにクリップボードが使える、というのも矛盾している。

原因がよくわからないなら自分で判断せずもっと詳しい情報を書くように。

>>203
聞く前に実際にやって見ろ

初めまして。
質問させてください。
【1 OSの種類　 　 　.】 WindowsXP
【2 Excelのバージョン】 Excel2003
【3 VBAが使えるか　 .】 勉強中
【4 VBAでの回答の可否】 可
【5 検索キーワード　 】比較　参照　抽出等

AというファイルとBというファイルがありまして、それぞれ
　No　　型名　　　品名　　　　 　　品名カナ　 　組織番号　　　日付　　　　・・・　・・・
4001　PP2223　テーブルタップ　テーブルタップ　003　2008/05/28 00:00:00
4002　PP2752　コネクター　　　コネクター　　 　 001　2008/05/28 00:00:00
4007　PA4201　スイッチ　　　　　　　　　　　　 　　021　2008/05/28 00:00:00
・
・
・

という風にデータが入っているのですが、AファイルとBファイルを比較しまして
間違いや抜けがないか確認したいのですが、どうしてもうまくいきません。
データ量は、それぞれ一万行近くあります。

あと、Aファイルにはあるけれど、Bファイルには無い行
（上の例で言いますと、N0.4002の行がまるまる無い)がそれなりにあります。
そういうのは無視してしまって大丈夫なのですが、
たとえば、No.4001の行の型番や組織番号などに間違いが無いか比較したいのです。
私的には、No.の欄を見て、その行の比較を行うような感じで考えていたのですが、
関数では、やっぱり無理ですかね…。

よろしくお願いします。

>>226
VLOOKUPでNoから型名？型番？と組織番号を取り出して比較すればいいと思うよ。
別ファイル、別シートからでも検索できるから。

>>227
ありがとうございます。
VLOOKUPでやってみます。

表がシートの左上にあって、例えばA1に"No"、A2に4001が入ってるとすると、
Bファイルの方に
=VLOOKUP(A2,[A-file.xls]Sheet1!A:E,2,0)=B2
と入れると、両方のファイルからNoが4001の行を探して、型番が同じかどうか調べることができる。
あとはこの式を最後の行までコピペして、オートフィルタでFALSEの行だけを取り出せばいい。

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

-1のとき-14、0のときマイナス無限大、1のとき-10(一部のみ抜粋)
上記のようなデータをグラフにしたいのですが、セルに-∞と入れるときどのように表記すれば
グラフで0を漸近線としたグラフがちゃんと出来上がるでしょうか？
「-∞」と打ち込むと「#NAME?」と出ますし、試しに「∞」と打ち込んでそのままグラフを作ると
∞のところが0としてグラフが作成されてしまいます。

>>137
遅くなりましたが、ありがとうございました。

>>230
ネタですか？

>230

無限大は「数値」ではありません。

>>230
無限大は扱えない
それっぽく見えるように工夫してくれ

>>230
でかい数字を入れた後、テキストボックスを重ねるといいと思う

>>230
Excelは無限大を扱えません。
手作業でグラフを書く時のように自分で都合のよい点を選べばいいですよ。
数式処理ソフトなど無限大を解釈してくれるソフトも存在します。

>>230
0のとき200くらいにして縦軸の範囲を100以下くらいにすればいいんじゃない？

皆さんありがとうございます
おかげさまで想定していたグラフが書けました。

初心者です。
winxp エクセル2007です。

減算で

=A1-B1 をC1に出そうとすると♯VALUEが表示される。

この表示はA1、B１の値がまずいというエラーらしいですが、

120.98と111.11が入力されています。
なにがまずいのでしょう。
セルの書式も色々かえてみましたが無駄でした。

ちなみにこの数値はテキストファイルだったものを取り込んだものです。

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

>>239
A1とB1をドラッグして囲み、書式を数値にして、F2 Enter F2 Enterと押してみろ

>>239
エクセルの特性で数字は文字列でも計算される(エクセルだけじやない機能だけど)
よってA1に「120.98　　　111.11」のような文字列が入ってると思う
D1に=A1、E1に=B1といれて見て
両方数字なら、「．」ピリオドがカンマになっている、あるいは全角の可能性がある

>>239
余分なスペースが入ってるとか？
セルに入ってるデータが数値として正常かどうかはISNUMBERという関数で調べることができる。
どっかのセルに =ISNUMBER(A1) 、 =ISNUMBER(B1) と入れてみて、どちらがエラーの原因か
まず調べるといいかも。

前スレで出た余分な文字を消す関数、CLEAN を使ってみるという手も。

ありがとうございます。
いろいろやってますが進展ありません。面倒ですが今日は電卓で計算します。

>>240 結果かわらずでした。
>>241　D1に　=A1　だとそのまま120.98が表示されます。
全角かどうかは確認しましたが半角でした。
,にもなっていません。

>243
A1,B1をコピーして、
そのまま形式を選択して貼り付け
→値、で加算にチェック

ってやってみたらどうでしょう？

>243
ごめん、そのままやると倍になってまうから
シートコピーして、新しいシートにするか、

あるいはどこかに0を入力してコピーして、
それをA1,B1に加算で貼り付けしてみて。

俺が直接調べてやるからそのブックうp

こんなに優しいスレは久々にみたぜ・・・

【1 OSの種類 　 　 　 　 .】 WindowsVISTA Business
【2 Excelのバージョン 　】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel2007 Excel2003 条件付き書式


Excel2003で作ったファイルを2007で読み込んだら
コピペしてあった条件付き書式の参照がメチャクチャになってました。
2003ではB2：B51がB55の値以上になると強調されるようにしてあったんですが
2007で開いてみるとコピペしたC2：C51以降もB55の値を参照してるし、
コピペした列全部が範囲に指定されてるんです。
もちろん相対参照で貼り付けてあったんですが、なぜか絶対参照になってます
これって仕様ですかね？
結局１列ずつ設定し直してるんですが、効率悪いんで
相対参照で書式だけコピーする方法をご存じでしたら教えてください。

>>248
条件付き書式は2007になって大幅に仕様が変更された部分の一つだから、
もしかしたらバグかもね。
書式は

Range("B2").FormatConditions

で設定できるから、VBAで修正した方が早いかも。

枠線をシート全体ではなく、一部分のみ消すことは可能ですか？

>>250
無理。
目的によっては、罫線やオートシェイプで代用できるかも。

>>248
まずC列をどこかにコピーしておき、B列をC列に普通にコピーしてから、
保存しておいたC列の値だけをもう一度貼り付ける

>>251
どうもありがとうございました。

>>249>>252
ありがとうございます。
出勤したら試してみます。

>>253
背景色を白で塗り潰すと、部分的に消したようには見える。

>>253
書式設定で白い罫線を引く
セルを結合する
好きなのを選べ
ttp://aaabbbccc.s6.x-beat.com/upload/src/up17799.png

SQL Server Express に接続してSQLを実行したいのだが．．．

>>257
すればいいと思うよ

非常に漠然とした質問なんですが、
VBAと複雑なワークシート関数が混在する場合、どこまでVBAで書けば良いでしょう？
シートをただのデータ置き場や入力＆印刷フォームにして、計算処理はすべて
VBAで書くことは何か利点がありますか？

 

そりゃ何か利点はある
あなたの処理がそのことをもってVBAだけで計算すべきかどうかはしらない

計算をVBAに任せれば一度計算するだけでいいので、軽くなる
ワークシート関数だと再計算の度に計算するからな
でも最近のPCだと相当に重いファイルじゃないとあまり意味がない
自動の再計算を切ればいいだけの話でもあるが、戻し忘れたときに
計算をしてない数字で後の処理を進めてしまうととんでもないことになりかねないので、
そういう意味では保険とも取れるかもしれない

あとアレだ
deleteキーなんかで式を消してしまう事故も防ぐことができるね
ただフォームの数字を消してしまうことも考えれば、同じかもしれないけど

VBAならソースリストの中にコメントが入れられるし、
関数や変数にもわかりやすい名前が使える。

超初心者の俺が言うのもなんだけど
VBAの方が複雑な処理を簡単な記載で書ける。
っつーかワークシート関数で算出する方が
ややこしくて見辛いし絶対難しい。

俺が思うに
　プログラミングの知識が少しでもある人→VBA
　無い人　　　　　　　　　　　　　　　→ワークシート関数
ってことなんじゃないかと思う。

誰かに使わせるならワークシート関数の方が何やってるか
素人でもわかりやすいし修正も容易だからいいと思うけど
自分で使う分にはVBAしかないと思う。

複雑な処理にはVBとかC#などのプログラミング言語を使うべき。

VBAは言語として中途半端すぎるし、いちいちExcelという重たいアプリを起動しないと
確認も実行もできない。

Excelは何のためのソフトかよく考えるべき。
こういうのを本末転倒という。

VBでやるとさ、大量のデータをどうするか迷うんだよね。
いちいちファイルの読み書きや入出力フォームを作るのが面倒。

Excel VBAなら最初からワークシートが用意されてるから、
データはそこに入れとけばいいし
結果もシートに書き出せばいい。
こういうことを考えなくていいのって楽。

>>266
そういう話じゃねーと思うんだけど

>>268
>>266はネタだろ

エクセルで質問です。
ある範囲内で複数の条件に合うものの個数を
別のシートに表示させたいのですが、式が分かったら教えて頂けますか？
よろしくお願いいたします。

>>270
=DCOUNT

エクセル2003です。
ある商品の売上高の割合を横の棒グラフにしてみました。が、Ｙ軸の項目を二列にしたのですが、

↓こんな感じ

(商品Ａ)・(18年度)
(商品Ｂ)・(19年度)
(商品Ｃ)・(20年度)
・
・

商品名の文字の向きが横向きになってしまうのですが、直す方法はないでしょうか。
フォントの設定を直そうとしても年度の部分しか変わりません。

すみません
Ｅｘｃｅｌ2003のメニューバーのメニューのうち、
「データ」だけがないのですが、どうしたら表示可能でしょうか？

>>273
購入店舗で交換してくれるよ

・・・ということは、不良品てことですか？
会社のなんで・・。
オートフィルタとか使いたいのに困ってます

すみません仕事で使用しているのすが困っています助けてください

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

エクセルを開いてどのセルに数字を入力しても下二桁が小数になってしまいます

たとえば1000と入力すると下二桁が削除されて10になり、1111と入力すると11.11になります

どうか解決方法を教えてくださいお願いします

オランダの政府機関「The Dutch Council of State」（オランダ政府協議会）が、
MS Office形式の文書をオープンな形式であるODFやPDFに変換するツールを自前
で開発したそうです（The INQUIERの記事）。
ヨーロッパの政府機関ではオープンソースソフトウェアの採用が進んでおり
（マイコミジャーナルの記事）、協議会内に保管されている数千にも渡る機密書
類をオープンな形式に変換するために、議会内でツールの開発を行ったそうです。
ヨーロッパではコスト削減のためにオープンソースソフトウェアを採用する例が多
いそうですが、機密情報を扱う機関でもこれは例外ではないようです。

http://slashdot.jp/opensource/article.pl?sid=08/05/29/086203

>>275
Alt→D→Fでどうなる？

Alt→D→F→Fな

>>276
Ctrl＋１を押して、数値の所で小数点以下のケタ数をゼロにする

>>278
Ｅｘｃｅｌを開いた状態でその操作してみたらよいですか？
早速明日やってみます！

>>255
>>256
どうもありがとうございました。

>>280
すみませんやってみたけど駄目でした

>>283
これを試してみそ
http://kokoro.kir.jp/office/user2.html

>>277
会津若松市がOpenOffice.orgを全庁導入へ
「順次MS Offceから切り替え，5年間で約1500万円削減」
http://itpro.nikkeibp.co.jp/article/NEWS/20080529/304780/

>>283
こっち
http://support.microsoft.com/kb/834643/ja

ごめん
>>286は>>281への回答れした

>>283
マクロは入ってないだろうな？
書式は問題ないんだろうな？

問題ないセルの書式をコピペしてみる。
なければ新しくEXCEL開いてコピーしる。

ってか、うｐしてみろ

>>288
マクロ･書式は問題ないです

新規でエクセルを起動した状態で既にすべてのセルがこのような状態になります

別名保存して他のPCで開けば普通に使えます

小数点位置を固定するがオンだからって訳じゃないなあ>>276の通りだとすると

Excel・VBAの質問です。
他のBookのセルをVBAで「数値か文字列か」を判定する事はできるのでしょうか。

セルの表示設定→[表示形式]タブ->分類(C)
では”標準”となっているのに、sheet上で見ると左上に緑の
▲がついた、「文字列入力セル」扱いになっているセルがあります。
（入力されているのは数字）
そのセル自体は、F2で入力状態にしてからEnterを押すだけで数値扱いになります。
（このxlsはあるツールで生成されている）

しかし、2002以降のExcelは問題ないのですが、office2000lでは
その矢印が見えないため問題となっています。

VBAで「数値か文字列か」を判定したいのですが、吐き出されるxlsのため
VBAを埋め込むわけにはいきません。
そこで判定用マクロを内包したxlsを作り、チェックする際には対象のxlsと
チェック用のxlsを同時に立ち上げ、対象のxlsのセルをチェックさせようと
しているのですが実現可能でしょうか？

>>271
ありがとうございます。
=DCOUNTAで計算出来たのですが、その個数表示を同シートには全くせずに
別シートだけに各合計個数を表示したいのですが可能でしょうか？

すみません、質問です。
会社ではネットが使えない環境なので、
バージョンがあってるかどうか不安ですが・・・

【1 OSの種類 　 　 　 　 .】 WindowsXP Professional (自宅はHomeエディション)
【2 Excelのバージョン 　 】 Excel2003 (自宅は2002 SP3)
【3 VBAが使えるか　 　 .】 いいえ (触ったことはありますが、今回は使用禁止)
【4 VBAでの回答の可否】 否 (使っちゃいけないそうなので。)
【5 検索キーワード 　 　 】 ユーザー書式　書式設定

Excelの普通のセルに
ほげー
と入力して
「ほげー」様依頼分
と表示させることは可能でしょうか？

シートのD列にひたすら"「〜」様依頼分"という文字を
書いていかなきゃならないんですが、
初めの"「"がじゃまでコピーして張り付けるのも難しいし、
名前だけ入れたら書式を自動変換してくれるとうれしいのですが
そういうすばらしい機能ってエクセルについてませんか？

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

>>293
書式を「@"様依頼分"」にする

"「"@"」様依頼分"だな

>>296
@で入力文字が取れるんですね。
ありがとうございます。
今試してみたらできました。
明日早速実行してみます。

なまえ入れるの忘れてました。
>>297
ごめんなさい。

許されないだろ･･･ＭＳ的に考えて･･･
君出入り禁止ね

MacOSX上で作成したEXCELファイルを
WindowsXP上のEXCELで読むことはできるのでしょうか
(CSVとかでなく、ブック形式のもの）

昔関数だけのブックなら読めたな
けど条件付書式や、VBAが混じってきた場合互換性の程度は知らない
とりあえず日付はずれると聞いたことがある
(1と入力して日付にするとwindowsだと1900/1/1だがmacだと1904/1/1と聞いたことがある)

>>291
ヤフーは好きではないが
ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1313863058
ちなみに検索ワードは「エクセル vba 文字列 数値　判別」ね

>>292
その別シートに=DCOUNTAを書くんだよ

>>300
Macで保存するときに「××互換形式」みたいなの選べない？

>>301
1904年から計算するオプションで変更だ

すみません、どなたかエクセル詳しい方お力を貸してください。
【1 OSの種類 　 　 　 　 .】 Win2000（ファイルの作成はVISTA機）
【2 Excelのバージョン 　 】 Excel2007（但し旧エクセルファイルで保存）

ファイルの使用目的は、あるテーブルゲームでの得点集計用です。
プレイヤーが最大１０ゲームプレイし、その中で成績の良かった上位４位を集計します。

large関数で10個ある得点セルの中から上位4位を抽出して、それら4位の合計を出しています。
（マイナスの場合は減算したい）

■困っている事■
得点セルの記入は、プレイしたゲーム数によるので必ずしも埋まっているわけではありません。
例えば4ゲームしかやっていないプレイヤーの場合、得点セルは4つしか埋まらない為、残り6セルは０のまま。
（ブランクではなく０になっているのは、この得点セルも計算式で求めている為です）

すると、例えば４ゲームの得点が　２００,　−５０,　−１００,　５０
だった場合、一位から順番に　　　２００,　５０,　−５０,　−１００
で、上位４位の差し引き合計で【１００】になってほしいのですが、

large関数を使って、上位４位を求める範囲の中に０が６セル分あるので

−５０と−１００は０よりも小さいものとして扱われ

一位からの順番が　２００,　５０,　０,　０

になって合計得点が【２５０】になってしまいます。

このような場合で、ゼロはノーカウントにする方法はありませんでしょうか？
どなたかお分かりの方どうかよろしくお願いいたします。

作業列を作って=IF(?=0,MIN(?)-1,?)などにしてそっちで計算
本当の0点との区別が付かないけど

条件付き書式について質問した者ですが、
早速今日試してみました
どうもドラッグでコピーすると形式にかかわらず
ドラッグした範囲全部が指定されてしまうようです
ドラッグしないでコピーすると問題ありません

>>249さん、>>252さんありがとうございました
引き継ぎの関係でＶＢＡはなるべく使わないようにしてるんですが、
ＶＢＡのほうが楽かもしれませんね。

>>306
未プレイの0点と、ゲームをした結果の得点が0点の区別ができないと、どうしようもない。
まず、集計する前の段階で、得点を計算する部分を修正して、未プレイなら0でなく
空欄になるように計算式を修正すべきだな。

>306

>307氏も触れてるが、結果が0点の人と不参加の0点との区別はどうしてるの？

条件付書式で、相対参照で、下のような上下の値を調べて、
値の大きい（小さい）方を自動で赤でマークしたりできる？
ググってもイマイチ。


         　　　1番　　2番　　3番　・・・
2007年度  30%　　60% 　 90%　・・・
2008年度  40%　　20%  　50%　・・・

>>311
できる

>>311
セルが　次の値に　等しい　=max(b2:b7)
で書式はテキトーにかえる
b2:b7はテキトーにつけたんで、そっちのシートの範囲にあわせてね

>>306
こんな感じでどう？
ttp://www11.axfc.net/uploader/He/so/He_105086.xls
パスは「2」

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

>>311
書き忘れたけど、小さい方はmin関数で、3つ以上条件があるならRANK関数を使うとよい

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

その書き方が分からないのですが
元になる表がsheet1として、別シートに入れる数式は
=DCOUNTA(Sheet1!A1:B5,,Sheet!C3:D4)
と入れてみましたが、正しい値は得られませんでした。
カッコ内の、　,,の両サイドは双方元シートでしょうか？
他にも間違っている点があったらおしえて下さい。

はじめまして。質問なんですが、リスト作成でできる枠の大きさって変えられませんでしたっけ？
長文でも枠を伸ばして表示させたり、字を大きくしたりできたような気がするんですが・・・

>317

キーワードﾞ貰ったんだからHELPかググるかすれば？

>318

枠って何？

>>317
単なる入力ミスかもしれないけど
Sheet1がSheetになってるよ

>>318
リスト作ったセルの右にできるアイコンをクリックしたときに開く入力候補データが表示される枠です。

間違えた。>>320さん宛て。

>>322
リストそのものだね
補足はしたものの俺は知らない

>322

リストって入力規則のリストのことか。

一応知る限りでいろいろ試してみたがダメでした。
私が知らないだけで出来るかも知れません。気長にお待ちください。

>>322
これ？
ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1110849136

職場の詳しい人にも聞いたけどダメっぽいんですよね・・・
なーんかできた気がするけどなぁ・・・
枠や字がでかく表示されてるのも見た事あるし。なにより自分で作った気もするし。
解ったかたお願いします。

列幅変えるか、エクセルの表示サイズ(メニューバーの何%っての)を変えるか
>>326か

列幅変えるとレイアウト変わるからダメです・・・
ズームも７５よりでかくすると能率悪くなるので×
例えズーム変えても枠の幅広げるっていう根本的な解決にはならないし・・・
参照元の横幅なら変えられるけどリスト枠には反映されないし・・・
単純ながら悩ましいorz
解ったらレスします。お邪魔しました。

１、モニターをで買い物に代えて、75%以上でも効率が落ちないようにする。
２．大きく見えるレンズ（老眼鏡ともい）をかけて仕事をする。

ぐらいしかないだろうよ、その条件じゃ。
列幅もズームも変えずに大きくするって…。

まさか、左寄せにして、文字列が右隣のセルまで伸びることを言ってなんかいないよね。

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

>>319
昨日から解説本や、ネットのテキストを読みつつ同時進行で調べていますが
初心者の上聞く人がいないので、進んではいますが、解答迄行きつきません。何度もすみません。

>>326
GJ！
自分も>>322同様リストの幅を広くしたいと思ってたんだが、
参照先のやり方で思い通りになったよ、ありがとう。
ちなみに幅調整のためのダミーリストを削除しても、そのままの幅が保持されるようだ。
しかし、バグだか使用だかわからんけど、なんでも利用できるものだなw

質問です。
EXCEL2000でxlsx形式で保存することはできますか？

無理です

>>312 >>313 >>316
thanks!

エクセルで作った表をワードにビットマップ形式で貼り付けるときに
一番上と一番左の罫線が薄くなりますね

他の罫線と同じ濃さで表示させるには、他の形式にするしかないですか

>>336
うちでいつも使ってる2007だと薄くならないけどなあ。
バージョンはいくつ？

>>337
どうも、すみません。
バージョンはよく分かりませんが、自宅の2003と会社の2007両方ともそうなるのです。
ビットマップ以外の形式にすれば、すべて同じ濃さとなります。

>>338
2007で試してみた
ttp://uploaders.ddo.jp/upload/1mb/src/1up4580.png

どんな感じになってんの？

>>339
すみませんでした。
こちらの説明不足だったのですが
罫線を引いた状態で表を作った場合です
一番上のラインと左端の線が、枠線と同じ薄さになります

じゃあとりあえずビットマップ以外の形式にしておく。
ビットマップ貼り付けは文字も図形もガタガタで汚くなるし、あまり積極的に選ぶ理由もないと思うけど、
どうしてもビットマップじゃないとダメ？

>>341
他の形式にします。
お忙しいところ、たびたび、ありがとうございました。

Excelで押すとマクロの処理が始まるボタンを作ったのですが、
ボタンを押すと即実行ではなく、確認ダイアログを表示して、キャンセルも出来るようにするにはどうしたらよいでしょうか？

>>343
そうなるようにコード書けばいいよ
ヒント Msgbox VBYesNo

>>344
うまくいきました。

ブックＡのA1セルの式をブックＢのA1セルにコピペするとき、ブックＡが入らない式で
コピペできませんか？
式の文字数が限度一杯なので、コピー元のブック名がはいると文字数あふれになるので。

>>346
単に式をコピーしたいだけなら数式バーの中身をドラッグしてコピー。
ブックAのデータを参照したいなら作業列を作って式を分けるしかない。

>>347
単に数式をコピーしたいだけなので、数式バーの中身をコピーしてできました。
ありがとう。

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


たとえばA１に6月と入力した場合に
A2　1日（日）
A3　2日（月）

などの様に日付を自動で表示させたい場合はどのようにすればよいでしょうか？

>>349
例えばA1に6月1日と入力して、オートフィルで下の方へのばしていけば自動的に6月2日、6月3日となるんだけど、それではだめなの？

>>349
おまい、VBAは少し使えるなんてうそだろ？ｗ

>>351
アンタが思う「少し」の程度が違うだけ
わざわざレスする事でもない

>>349
A１に入れたシリアル値を取得して下に一つずらすと１加算される。とか。

日付は手入力でいれてくれ　そこは妥協だ
曜日はB列に書式で表示可能
それでいいじゃん　そうしてくれ

VBAが勉強始めたばかりなので
ボタンを作って色を付ける・消す　デリートする・しない程度しかできないです。すんません・・

たしかに皆さんのおっしゃる通り日付入れるだけなら
月一回の作業だしオートフィルや書式設定で十分できるのですが

以前に>>349に書いたように月を入力しただけで
年度にあったカレンダーが自動で表示される表があったので
やり方が気になったのです。
VBAではなかったように思ったのですが（マクロの確認が常にでるように設定しているが出なかったため）
関数だけでやるのは無理なのでしょうか？

DATE関数などで出来ました。
どうもです。

>>349
日付関数を調べるてみな、
色々有るから君のやりたい事に合った関数がきっと見つかるよ

万年カレンダーは作成可能だけど非常に難しい。
ここのメンバーじゃ無理。

>>358
作り方はどこにでも書いてあるんだから誰でも作れるんじゃない？
面倒だし何の役にも立たないからやらないけど。
エクセルでカレンダーなんか作って何の意味があるんだろう。

>>358　＞万年カレンダーは作成可能だけど非常に難しい

カレンダー作成はエクセル入門レベルだぞ
ここのヤツらは、こだわりはきついけど馬鹿じゃない

うるう年正確に計算できます？春分・秋分も？

>361
それくらいexcelが勝手にやってくれるし。。。

>>361
お前、本当はエクセルのコトあんまり知らねぇんだろ
ビボットだけっだてか！

祝日やハッピーマンデーも出る関数なんてあったっけか

>>363
エクセルはピボットだけ知ってればなんでもできる。
逆にピボットでできないようなことはエクセルに不向きな仕事だよ。
あおりでも釣りでもなく心のそこからそう思ってる。

>>364
そこまで関数に頼るなよ、ちょっとの工夫で簡単にできるぞ
>>365
ハイハイ、そうですか

>>366
ハイハイで流そうとしているけど実際そうだろ。
本当にExcelが役に立つのはピボットテーブルを使うときだけだ。
他のは遊びと言ったら言い過ぎかな。

>>367
( ´,_ゝ`)ﾌﾟｯ
１年後自分のレス見てなんとも思わなかったら
成長してないってコトだ

>>368
君はExcelをどんなふうに使っているの？
披露してくれないか。

【1 OSの種類 　 　 　 　 .】 WindowsXP SP3
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 ファイルを開く 2007 /　開かない / 遅い

Excel2007に関連づけられたファイルをクリック(ダブルクリック)しても，
Excel本体が起動するだけで，ファイルが開きません。
もちろん，Excelを起動した後に，当該のファイルを「開く」「ドラッグ＆ドロップ」すれば
普通に開きます。

ダブルクリックで Office Excel 2007 のファイルを開くことができない場合がある
http://support.microsoft.com/kb/938381/ja

を見つけましたが，その通りにしても結果は改善させません。
他のサイトを見ても，同様の解決方法だけしか見つかりませんでした。

ちなみに，当該のファイルをクリック → Excel本体だけが起動
したあとで，Excel2007のどこか，Officeボタンや最大化ボタン，
クイックアクセスツールバーのアイコンなどをクリックすると，
思い出したように当該のファイルが開きます。

解決方法がありましたら教えてください。

>>369
それじゃ子供のけんかだ。
大人になったら、そん時お話しましょ。

>>371
ふふ。うまくかわしたね。
大人の対応だな。

> エクセルはピボットだけ知ってればなんでもできる。
とりあえずこれはないな
なんでもってなんだよ、ピボット知ってりゃ関数全部使いこなせるのかと

>>372
ひょっとして、悔しいの？
傷ついたのだたらゴメンネ

>>373
ははは。まいったな。これは。

生半可な知識でピボット厨につっこむのはやめとけよ。あいつら理論派だからな。大火傷することになる。
>>374なんかもう涙目だろ。

＞あいつら理論派
キミはあれを理論と呼ぶのか？、ただの屁理屈だろ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 セル　行　列　クリップボード　\n

文字列"aa\naa\naa\naa"をクリップボードにコピーして
エクセルにペーストしたところ、
aa
aa
aa
aa
というように改行して貼り付けられました。
これを
aa aa
aa aa
というように、どこかで次の列に移すようにするには
どうすればいいのでしょうか。
\nみたいな、列を移る文字があるのでしょうか。
よろしくお願いします。

>>377
それって理屈としては正しいと認める発言じゃん。
どんどん傷口が広がってるぞ。

へえそんな機能があったんだと思って試してみたけど、うちじゃそんなふうにならないぞ。
1つのセルに「aa\naa」という文字列がそのまま入る。Excelに\nを貼り付けたら改行って何の機能だろう？

想像で書くと、列の移動は\tとか。

>>362
春分の日って勝手に出たっけ？

>>380
うお、\tでできました！　ありがとうございます！
この機能テキストファイルからコピーでもできると思っていたのですが、
今やってみたらできませんでした。
プログラムでクリップボードに貼り付けたときのみ
\nや\tを読み取ってくれるみたいです。

>>382
要するに改行コードを\nで表示するシステムなんでしょ。

>>361
>>381
わかってて書いてるのかもしれないけど、春分の日とか秋分の日というのは祝日だからね。
>>362が言及しているのは閏年のことだけだと解釈すべきだよ。常識的に。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 どういうキーワードで検索したらよいかわかりませんでした。

【質問】
下記のようにデータ（●●は任意のデータ）がある場合に、
各行の一番右側のデータだけをH列に表示させたいのですが、どうしたらいいでしょうか？
1行目ならF列のデータを、2行目ならE列のデータ、3行目ならA列のデータを、
4行目はD列のデータ、5行目はB列のデータを（ryをH列に表示させたいです。

　　A列　　　B列　　　C列　　　D列　　　E列　　　F列　　　G列　　　H列
1　●●　　●●　　　●●　　●●　　　●●　　●●
2　●●　　●●　　　●●
3　●●
4　●●　　●●　　　●●　　●●　　
5　●●　　●●

つまり祝日の自動計算にも対応した万年カレンダーは超難しいってことですね
わかりました

>>385
間違いがあったので訂正します。

（誤）　2行目ならE列のデータ
（正）　2行目ならC列のデータ

>>386
ちょっと違う。難しいのではない。
「祝日の自動計算はできない」が正しい。

計算ができなかったらどうやって祝日を決めるの？
来年の○○の祝日は○○月○○日ですって政府が発表するの？

>>389
当たり。

前年2月第1平日付の官報で発表される。

↑春分の日な

世間一般の万年カレンダーは春分・秋分は計算して出してるけどね

Aセルに型番を入力し、Enterを押すとあるシートもしくは外部のCSVを読み込み
それに合致する商品名・金額・残り在庫をそれぞれB、C、Dセルに表示させたいのですが
可能でしょうか？

同じブックの中にあるシートからならエクセル関数で可能なのですが、データ量が多いため
作成するxls全てがそのシートを持っていることになり、冗長なのでどちらかといえば
csvを参照したいです。

すみませんVBAの話です。計算式を埋め込むと破壊されかねず、
シートを保護すると色々やっかいなのです。

よけいな駄洒落を思いついたら名前欄がリンクになりませんでした・・・
>>394-395は自分です。

万年カレンダーなんかやろうと思えばだれでもできるって。
角田レベルのことは俺でもできる。

>>394
不可能ではないけど…

HDDが10MBしかなかった太古の昔ならともかく、
今はデータファイルが冗長だからって理由でCVS選ぶのは得策ではない。
CSVから目的のデータを取り出すためのコーディングの手間の方が大きい。
普通のワークシートにしときなさい。

>>382-383
プログラムから貼り付けって、そりゃ当たり前だわ。CかJavaか何かで作ったんだろ。
\nを改行に変換してるのはコンパイラ(厳密にはプリプロセッサ)の仕事だ。
クリップボードにもExcelにもそんな機能はない。

>>394
別のブックにあっても参照はふつーに可能

>>385
文字数が2文字と決まってるんなら
=LEFT(G1&F1&E1&D1&C1&B1&A1,2)

>>401
レスありがとうございます！

文字数は2文字とは限りません。
日付データだったり、部署名だったり、個人の名前だったり、色々です。

一番右側のデータだけをまとめる機会がよくあるのですが、いつも
1行1行、目と手入力でやっています。
簡単に出来る方法がないかなと思って質問しました。

うまい方法が思いつかないけど
IFで右から順々にデータがあるかどうか調べるくらいかな

>>398
その場合、VBAやエクセル関数では目的のブックを
開いておかなくても問題ないのでしょうか。

>>402
例えば人事のデータだとして

山田　　営業　　　経理
佐藤　　総務
鈴木　　製造　　　品管
後藤　　開発　　　営業　　総務
本田　　営業

こんなふうに形式を変えるわけにはいかないの？

管理番号　名前　所属
１　　　　山田　営業
２　　　　本田　営業
３　　　　後藤　開発
４　　　　後藤　営業
５　　　　佐藤　総務
６　　　　山田　経理
７　　　　鈴木　製造
８　　　　後藤　総務
９　　　　鈴木　品管

>>404
そのとおり。
保存されてるブックの好きなセルからいきなりデータを取り出して関数の中で使える。

=SUM([C:\エクセルフォルダ\ファイル.xls]Sheet2!A1:A10)

みたいに書けばいい。

>>406
すごい！抱いてください！

>>405
説明が悪くてすみません。

＞日付データだったり、部署名だったり、個人の名前だったり、色々です。

というのは、作成を頼まれる資料によって、データが違うという意味です。

なので、
【例1】
処理日(1)　　処理日(2)　　処理日(3)　　処理日(4)　　　最新処理日
日付A　　　　　日付B　　　　日付C　　　　　　　　　　　　　日付Cを表示させたい
日付D　　　　　日付E　　　　　　　　　　　　　　　　　　　　　日付Eを表示させたい
日付F　　　　　日付G　　　　日付H　　　　　日付I　　　　　日付Iを表示させたい

【例2】
担当者(1)　　担当者(2)　　担当者(3)　　担当者(4)　　　最新処理日
名前A　　　　　名前B　　　　　　　　　　　　　　　　　　　　　名前Bを表示させたい
名前C　　　　　名前D　　　　名前E　　　　　名前F　　　　　名前Fを表示させたい
名前G　　　　　名前H　　　　名前H　　　　　名前I　　　　　名前IIを表示させたい


こんな感じです。

遅くなりましたが、状況を説明しなおして今一度質問します。

目的は、
１・特定のブック（ブックＡ）のみセルの移動方向を右にしたい。


これを実現するためにブックＡに以下のコードを記述。

Private Sub Workbook_Activate()
Application.MoveAfterReturnDirection = xlDown
End Sub

Private Sub Workbook_Deactivate()
Application.MoveAfterReturnDirection = xlToRight
End Sub


これにより目的は達成されたが、今度はコピペできなくなる現象が発生。
よって、
２・ブックＡのセル内容を別のブック（数種類ある）に縦横入れ替えでコピペしたい。

１の目的を達成しつつ、２のような不具合の出ないような設定は可能でしょうか？

>>408
=INDEX(A1:G1,1,COUNTA(A1:G1))

おお　美しい回答だ

だが速さが足りない






いや言ってみたかっただけ

>>410
レスありがとうございます。
しかし、それだと空白セルを選んできてしまいます。

>>409
すいません、コードの内容が逆になってますので、
逆にして読んでください。

>>408
【例1】
処理日(1)　　処理日(2)　　処理日(3)　　処理日(4)　　　最新処理日
日付A　　　　　日付B　　　　日付C　　　　　　　　　　　　　日付Cを表示させたい
日付D　　　　　日付E　　　　　　　　　　　　　　　　　　　　　日付Eを表示させたい
日付F　　　　　日付G　　　　日付H　　　　　日付I　　　　　日付Iを表示させたい

【例2】
担当者(1)　　担当者(2)　　担当者(3)　　担当者(4)　　　最新処理日
名前A　　　　　名前B　　　　　　　　　　　　　　　　　　　　　名前Bを表示させたい
名前C　　　　　名前D　　　　名前E　　　　　名前F　　　　　名前Fを表示させたい
名前G　　　　　名前H　　　　名前H　　　　　名前I　　　　　名前IIを表示させたい

このデータだって行に何らかの意味が本当はあるんじゃないの？
>>405は何も説明を読み違えてるわけじゃないよ。
>>410の回答で満足ならそれでもいいけど。

>>413
>>410は1行目、つまりH1に入れる式だよ。1行目には見出しが入ってるみたいだから

2行目なら=INDEX(A2:G2,1,COUNTA(A2:G2))
3行目なら=INDEX(A3:G3,1,COUNTA(A3:G3))

みたいに直さなきゃいけないんだけど、間違えてない？

>>415
データをダウンロードしたときに、このような形式になっているのです。
処理した日付順、担当者が変更になっていった順に。

>>416
直してやりましたがダメでした。

【例1】
　　A列　　　　　　　B列　　　　　C列　　　　　　D列
処理日(1)　　処理日(2)　　処理日(3)　　処理日(4)　　　最新処理日
1 日付A　　　　　日付B　　　　日付C　　　　　　　　　　　　　D1の空白セルを拾ってきた
2 日付D　　　　　日付E　　　　　　　　　　　　　　　　　　　　　D2の空白セルを拾ってきた
3 日付F　　　　　日付G　　　　日付H　　　　　日付I　　　　　きちんと日付Iを拾ってきた

>>415
あんたバカだろ。他人が例まで示してるのに。

>>417
試しにD1、C2、D2を選択してDeleteキーを押してみ

>>416
すみません！できました！

>>418
わたしの説明が悪かったんです。わたしのために喧嘩はやめてください＞＜

>>419
ビンゴです！できました！
こんな簡単な式でできてしまうなんて！

みなさん本当にありがとございました！

>>417
>データをダウンロードしたときに、このような形式になっているのです。
>処理した日付順、担当者が変更になっていった順に。
行には意味がないのか。それなら一行にしてくれたらいいのにね。
不親切なデータだな。

連投してすみませんがこの式の意味を教えていただけませんか？
VLOOKUPやIF関数ならよく使うのですが・・・INDEX関数と、COUNTA関数は調べて意味も
読んでみましたが、イマイチ意味がわかりませんでした。

=INDEX(A2:G2,1,COUNTA(A2:G2))

　　　　　　　　　↑特に、この式のこの1はどういう意味なのでしょうか？

>>422
社内のシステムがそうなっているのです。

　　　A列　　　　　　B列　　　　　　　C列　　　　　　D列　　　　　E列　　
　　管理番号　アイテムの概要　　処理日(1)　　処理日(2)　　処理日(3)
1　*******　　　　　　　　　　　　20070616
2　*******
3　*******
4　*******
5　*******

>>424
やっぱり行に意味あるんじゃねーか。ちゃんと会話してくれよ。
ともかく解決おめでとう。

>>423
普通、データ(セル)の位置ってのはシートの左端からA列、B列、C列、最上段から1行目、2行目、のように
順に数えてくけど、データが増えたり複雑になってくると、場所を表すのがだんだん大変になってくる。

だから、広大なワークシートから一部分だけを切り取って、扱いやすい大きさの表を作るのがINDEX。
最初のA2:G2というのが、この範囲を切り取りますよっていう指定。
で、2番目と3番目の数字は、その小さな表の中だけで数えて上から何番目、左から何番目かを示す。

COUNTAはデータの個数を調べる。だから右端のデータが出てくるってわけ。

関数の中の「1」はINDEXで指定した範囲の中の1行目って意味だよ。

>>425
説明が下手で本当にすみませんでした＞＜

>>426
上の5行の説明は、非常によくわかったのですが、最後の1行の説明がわかりません。

左から何番目かを数えたのに、どうして一番右のデータだけが取り出せるのでしょうか？
データ個数とどう関係があるのでしょうか？

つくづく頭が悪くてすみません・・・

>>427
1「行目」ということなら、>>416は

2行目なら=INDEX(A2:G2,1,COUNTA(A2:G2))
3行目なら=INDEX(A3:G3,1,COUNTA(A3:G3))　←「1」ではなく、「2」にならないといけないのではないでしょうか？

平成元年の天皇誕生日はどうなってたんだろう？
昭和天皇は1月に死んでるから、カレンダー業者全員死亡？

>>428
左から順にデータが並んでて、
データの数が2個なら2番目が右端になる。
データの数が3個なら3番目が右端になる。
データの数が4個なら4番目が右端になる。

データの数が△個なら△番目が右端になる。

つまり、データの数を数えるCOUNTA関数を使えば、右端のデータは何番目かってのが自動的にわかってしまう。

つまり処女・非処女もわかってしまうと？

耳と尻尾があるのが処女、童貞。
ちなみに英語だと童貞も「ヴァージン」だからな。

>>430
COUNTA関数で何個目のデータかを数えたまでは理解できました。
しかし、一番右のを抽出するというコマンドはどこでなされているのでしょうか？
やっぱり「1」の意味がわかりません。

=INDEX(A2:G2,1,COUNTA(A2:G2))

を訳すと、
「A2からG2の範囲内で、データが何個あるか数えたよ」
でも、一番右だけのデータはどうやって取り出したのでしょうか？

>>432
そういういたずらはやめてください＞＜
トリップつけました。

>>434
=INDEX(A2
　　　　　↑
この「A2」セルを基準にする、って意味だよ。
ここから数え始めて、上から1番目、左からCOUNTA番目を取り出すのが、ここでのINDEX関数の役目。

いいかげん、自力で ぐ ぐ れ

理解力なさすぐる。
中卒？

関数の入れ子はコンピューターのセンスがないとなかなか理解できないもんだよ。
高校までで習う「関数」ってのは意味的にかなり限定された物だからねえ。

>>435
むむ、だいぶわかってきました。ぼやっとした感じではありますが。

>>436,437
一応国立4大卒です。しかし、理解力なさすぎですね・・・すみません。

>>438
わたしはセンスがないと思います。
関数の説明とか読んでも理解できないことがほとんどないので。
複数の関数の複合とかになるともうわけわかめ。

とにかく、みなさん親切に回答をありがとうございました。
INDEX関数とか使ったことがなかったのですが、使えるようになるとかなりできることが広がりそうですね。
今回のを機に本腰を入れて勉強してみます。

それじゃExcelなんてまともに使えないのでは

まあ、右端のデータを取り出すのが作業列も使わずにピボットだけでできるってんなら話は別だけど。
なあ、ピボット厨さんよぉ

「できないことがほとんどない」なら、ちゃんと理解できたって意味になると思うんだけど…

>>440
セル操作はテラ早いんですよ。
「どんな操作やってるか見えないｗ」って言われるくらい。
VLOOKとIF関数はよく使いますが、単純な使い方しかしていません。
関数の入れ子は苦手です。

実際、使って色々試してみるといいんだとは思うんですけど、
関数の説明読んで理解するより操作早い分、チマチマ1個1個手動でやってましたｗ

>>441
失礼しました・・・

×　できないことがほとんどない
○　できたことがほとんどない

ここまでのレス読んでわかった。

>>385は100%女。かなりの自信家だが自分の力を過信しており
自分では仕事が速く終わり帰っているつもりだがその裏では
先輩社員が尻拭いを行っている。


最近、やけに自分に冷たい先輩いないか？

>385

そろそろお引取り願えませんか？

>>385
おっぱいうｐ

速いだけでムダが多いと見た。
なんでも力業で解決するタイプ。

>>440
そもそも右端の値を取り出すようなはめにならないようにデータを設計するんだよ。
社内のシステムがそうなってるって本当かなあ。
あくまでもレポートの一つがそうなっているだけであって、根本のデータは>>405のようになっている様な気がするけどな。

最初はパソコンなんかなくて、紙の上で手作業でやってたんだろうな。
だから、右へ右へと最新のデータを追記するしかなかった。

これをそのままパソコンで再現しようとして四苦八苦。おおかたそんなとこだろう。

VBAに手を出すとエクセル関数使いたくなくなるな。

「おーいなんか計算されねーんだけど」
↓
計算式に直接入力したアホのためにワークシートを保護
↓
「おーいフォントサイズ変えらんねーんだけど」
↓
計算をVBAに任せて解決

>>449
Excelを使わないのが正解。

Application.WorksheetFunctionだらけのVBA…

便乗しますけど保護してないセルはフォントサイズも弄れるけど
保護してるセルは弄れないようにするってのは不可能なんでしょうか。

保護のオプションでセルの書式設定にチェック入れると
保護・非保護両方の書式が弄れてしまうんです。

=INDEX(A2:G2,1,COUNTA(A2:G2))
これは単一行なので普通は
=INDEX(A2:G2,COUNTA(A2:G2))
と引数は1個にする。
単一列でも同じ。

>>453
ふざけろ

>>454
あんたヴァカ？

>>452
ロックされたセル範囲の選択をオフにして、セルの書式設定をONでは。

>>349
年も入れるべき。
B1に「2008」と追加させていただくぜ。書式設定は「0"年"」
そしてA1に「6」だけいれて書式設定は「0"月"」
A2に=DATE(B1,A1,1)書式設定は「d"日""("aaa")"」
A3に=A2+1を入れた後、下までオートフィル
A30は=IF(DAY(A29+1)=29,A29+1,"")
A31は=IF(DAY(A29+2)=30,A29+2,"")
A32は=IF(DAY(A29+3)=31,A29+3,"")
>>410
ifネストは確か7段階までだからギリギリ足りるなー(ﾆﾔﾆﾔ
と思っていた自分が恥ずかしい。しかしよく思いつくな

>>455
>>454は=INDEX(A2:G2,COUNTA(A2:G2))の式には同意してるんじゃない？
一つの行や列なら、わざわざ行番号や列番号の1を書くやつは滅多にいないからね。
引数は1個じゃなくて2個だから「ふざけろ」と書いたんだろう。

>>457
d"日("aaa")"

>>459
d"日"(aaa)

休み時間ヒマだったので、上司のパソコンに

「うんゆ｣→「運輪」
「こくどこうつうしょう」→「国土文通省｣
「せんじつは」→「先曰は」
「けっさん」→「抉算｣
「ねんどまつ」→「年度未」
「しゃちょう」→「杜長｣
「おくえん」→「憶円｣

などを辞書登録しておいた。
どうやらまだバレていないようだ。
無知な方が幸せってこともあるなぁ

これも間違いですか？

100 Let Cells("1", "a").Value = "hoge"

またアホがコテ化して居座る予感

普通の事務では間違いではない
が商用のプログラムやとても重いものを作るときに余計なものを書いて更に重くすることは
誤動作・相対的なスペック不足を起こさせてしまうのでそういう場合は「間違い」の範疇に入るとは思っている

>>461
そうか、それでか。おまえ、ちっちゃなこだな。

>>465
それ、コピペだぞ

それもコピペだぞ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 複数の条件に合うデータ　まとめて呼び出す

日付｜店　名｜商　品｜価　格｜数
04/01｜Ａ店｜010051｜\1,000｜10
04/01｜Ｂ店｜185325｜\1,500｜2
04/01｜Ａ店｜220424｜\1,200｜5
04/12｜Ｂ店｜445876｜\1,100｜4
04/15｜Ｃ店｜048423｜\1,800｜3
04/15｜Ｃ店｜145862｜　\500｜4
　　・　　　・　　　　　・　　　　　・　　・
　　・　　　・　　　　　・　　　　　・　　・
　　・　　　・　　　　　・　　　　　・　　・
上記のような基礎データシートから個別のデータを別のシート上に呼び出し、別の処理をしたいのですが、
別処理用のシートにおいて、基礎データシートに存在する日付と店名を選択肢として持ったリストを自動生成し、
それを選択することで目的のデータ（商品・価格・数）をまとめて呼び出すにはどのような仕組みにしたらよいのでしょうか？
呼び出し欄は以下のような感じにしたいと思っています。

日付｜店　名｜商　品｜価　格｜数
　　▼｜　　▼｜　　　　｜　　　　｜

よろしくお願いします。

>468

INDEX/MATCH/AND

>>468
週に一回ぐらいの作成ならピボットテーブル。
逐一変化するリストを何度も出したい・・というようなのならオートフィルタかな？
両方使ってみればいいと思う

連書きすみません、補足です。
呼び出すデータは一度に1行とは限らず、呼び出し欄で指定した条件に合致する場合は、
複数行を全て並べて呼び出したいこともあります。
例えば>>468の日付04/15は2行ともＣ店ですが、日付04/15・店名Ｃ店と選択した場合は、
以下のように2行とも並べて呼び出すようにしたいと思っています。

　日　付｜店　名｜商　品｜価　格｜数
04/15▼｜Ｃ店▼｜048423｜\1,800｜3
　　　　　　　　　　　｜145862｜　\500｜4

よろしくお願いします。

オートフィルタを二列に設定すればok

>>469-470
即レスありがとうございます。
>>469
すみません、もう少し詳しく説明していただけるとありがたいのですが・・・
>>470
別処理作業の頻度としてはほぼ毎日で、増える要素としてはその日の日付と商品・価格・数量の個別データです。（店名はたまに追加される程度）
ただし、毎日追加される個別データは、同一日・同一店で1〜数十までかなり変化します。

>>473
とにかくオートフィルタかピボットテーブルだね。
>>470は週に一回とか書いてるけど別に毎日だろうが1時間ごとだろうが
そんなに面倒でもないよ。

やってみた？どうだった？

>>474
とりあえずオートフィルタだけはやってみました。
条件に合うデータが絞り込まれるのは判りましたが、それを別のシートに書き出す方法がわかりません・・・
というか、条件を絞り込むリストは別のシート上に設けたいので・・・
オートフィルタの設定とかをいじって試行錯誤中です。

シートごとコピーしてからオートフィルタ

>>475
ピボットテーブルで日付別，店舗別に集計した後で、集計値をダブルクリックしてみるんだ。

>>476
つまりこういうことでしょうか？
基礎データシート（シート1とする）にはなにも仕掛けを設けず、ひたすらデータを入力しておくのみ。
別処理用シート（シート2とする）は、基礎データに対応する各セルに常にシート1の値を反映させる（=シート1!C2等）ようにしておき、
シート2の日付と店名欄にオートフィルタを設定する。
もしこれでしたらなんとなくいけそうな気がしてきましたが、
問題はシート2には別処理用の計算式があり、処理対象としないデータまで書き写されていると、
余計なデータまで拾って処理してしまいそうな気がするのですが・・・

>>477
ピボットテーブルは少し前から挑戦してるんですが、どうもとっつきにくくて・・・
余裕があれば取り組んでみます。

>>478
シート1をコピーして新しいシートを作るんだ
シート見出しを右クリックしてコピーするといい
シート見出しをctrl押しながらドラッグしても簡単にコピーできる

わからなかったら↓
メニューの編集→シートの移動またはコピー→移動先は同じファイル名、挿入先は好きなところでコピーを作成するにチェックしてok

べつにこんなことしなくても、シート1にそのままオートフィルタかけてしまってもいいと思うけど

そういうのはAccessを使うべきだと思うんだけどねえ…

>>479
シートをコピーする方法はさすがにわかります＾＾；；
ちょっと誤解されてるような気もしますが、処理は一度きりではなく、毎日繰り返しです。
そのたびにシートをコピーしてフィルタをかけるということではなく、
基礎データ用のシートと別処理用のシートは常にそのままで、
基礎データが増えるたびに別シートで処理をしたいと思っています。

基礎データと別処理を同じシート上で行ってもよいのですが、それを分けたい理由は、
基礎データだけでも、別処理用のシートだけでもモニタの画面がいっぱいになってしまうし、基礎データは何千行にもなってしまうので、
スクロールではなくタブの切り替えで基礎データ入力と別処理作業とを切り替えたい事と、
ある特定の日付・店舗のデータだけを別処理対象にしたいので、
一連で並んでいる基礎データの中から、条件選択によって目的のデータをダイレクトに処理対象にするやり方がわからなかったので、
それなら別処理用のシートを用意しておき、基礎データから対象となるデータのみを呼び出せばいいだろうと考えたからでした。

>>480
同じく。でも無いんだろう
>>481
やはりオートフィルタしか思いつかない
シートはやりやすいところならどこでもいいと思う
あとVBA覚えた方が結果的に楽だと思うぞ

>>482
ACCESSはないですし、入手見込みもありません・・・
今試しに>>478の方法で別処理をかけてみましたが、
フィルタリングしても見栄えとしてデータが絞り込まれるだけで、
やはり条件外のデータを処理対象から外すことはできないようです。
条件に合う行だけをずら〜っと抜き出すいい方法はないものでしょうか・・・
あと、VBAもゆくゆくはと思っていますが、何しろ余裕がなく・・・

コピーしたら？

基礎データに連番を振っておく
基礎データにフィルタをかける
フィルタ後の連番をコピーして別処理用のシートに貼り付け
別処理用のシートには抽出した連番を元にVLOOKUPで必要な項目を参照する式をつくっておく

完璧だな

Sheet1のA列とB列に名前定義
Sheet2にクライテリアを作る
重複は削除できないけど、クライテリアは入力規則で名前定義した範囲を設定
フィルタオプションでSheet2に書き出し

で、いいんじゃない？

>>485
いい方法だなと思いましたが、「フィルタ後の連番をコピーして別処理用のシートに貼り付け」
という部分が引っかかります。
エクセルに慣れてない者も作業することがあるので、基礎データの入力と処理対象呼び出し以外、
コピペなどの作業はできるだけ省きたいところです。（操作や対象範囲を間違えるおそれがあるので）
理想はやはり日付・店名の選択のみで一発呼び出しなのですが・・・

>>486
なんとなくいけそうな感じがしないでもないですが、「クライテリア」が判りませんので、後で調べて確かめてみます。

んー、それじゃ日付・店名を連結した検索キーを基礎データにつくる
別処理用のシートには検索キーに一致する行の項目をVLOOKUPで参照する式をつくっておく

これでどうよ。検索キーは重複がないことが条件だ。

>>488
ありがとうございます。
今はちょっと時間がなくなってしまったのと、検索キーが判らないので、後で調べてやってみます。
結果はまた夜か明日にでも報告します。

>>489
オートフィルタの結果はAlt+ ; →Ctrl+Cでコピーできるから、
これを別シートにCtrl+Vで貼り付けて処理したら？

とりあえず「マクロの記録」で、手作業でやってる操作の手順を記録して、
あとから自動で再現できるようにしとくだけでもだいぶ楽になると思うぞ。

>>481
よくわからないなあ。
モニタの画面がいっぱいになる
基礎データが何千行にもなる
ある特定のデータだけを処理対象にしたい

どれも別シートを用意しなければならない理由になってない。基礎データだけのシートをオートフィルタで操作するのが単純でいいよ。

>>468
>>486が書いてるようにフィルタオプションの設定を使え。
オートフィルタは使うんじゃねーぞ。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 セルの書式設定　ユーザー定義

セルに「16」と数字を入力したら、自動で「16件」となるように設定したいのですが、
セルの書式設定のユーザー定義で「@"件"」と設定したところ、
セルには「16件」と表示はされるものの、エラーマークが出て、
「数値が文字列として変換されています」となってしまいます。

設定方法を教えてください。

>>493
0"件"

>>494
@ではなかったんですね
できました、ありがとう！

Excelで需要曲線って描ける？

いろいろ調べてみたのですが、>>486の「クライテリアの作り方」が判らず、実証までたどり着いていません。
そこで>>488の検索キー方式を試してみました。
検索キーの重複がNGとのことなので、同一日付・同一店名で複数のデータが存在するケースのために
同一日付・同一店名のデータに各行整理番号を付し、日付・店名・整理番号を連結した検索キーの項目を設けました。

基礎データ
日付｜店名｜整理番号｜検索キー｜商　品｜価　格｜数量
4/01｜A　　｜1　　　　　｜0401A1　｜010051｜\1,000｜10
4/01｜A　　｜2　　　　　｜0401A2　｜185325｜\1,500｜2
4/01｜A　　｜3　　　　　｜0401A3　｜220424｜\1,200｜5
4/05｜B　　｜1　　　　　｜0405B1　｜458564｜　\600｜1
4/05｜B　　｜2　　　　　｜0405B2　｜145753｜　\850｜8
4/05｜C　　｜1　　　　　｜0408C1　｜854620｜\1,420｜3
4/12｜B　　｜1　　　　　｜0412B1　｜445876｜\1,100｜4
4/15｜C　　｜1　　　　　｜0415C1　｜048423｜\1,800｜3
4/15｜C　　｜2　　　　　｜0415C2　｜145862｜　\500｜4

下記の別処理用シートの呼び出し欄の商品・価格・数量の欄には、
=VLOOKUP($D18,$D$3:$G$11,2,FALSE)と仕込み（別処理用シート名は省略）、
これに日付・店名を入力（整理番号はあらかじめ書き込んでおく）すると、下記のような結果になり、ほぼ求めている内容となりました。

処理シートの呼び出し欄
日付｜店名｜整理番号｜検索キー｜商　品｜価　格｜数量
4/05｜B　　｜1　　　　　｜0405B1　｜010051｜\1,000｜10
↑ここを↑　｜2　　　　　｜0405B2　｜185325｜\1,500｜2
　手入力　　｜3　　　　　｜0405B3　｜#N/A　｜#N/A　｜#N/A
　　　　　　　｜4　　　　　｜0405B4　｜#N/A　｜#N/A　｜#N/A
　　　　　　　｜5　　　　　｜0405B5　｜#N/A　｜#N/A　｜#N/A

あとは、処理対象となる日付・店名の入力指定リストを、基礎データに存在する日付・店名の中から
重複日付・重複店名を省いて自動生成できればほぼ完成なのですが、どうしたらよいのでしょうか・・・。

>>496
価格と需要の関係さえ定義してやれば描ける。

あぁなんか、、慌てて書き込んだので
>>497の基礎データと処理シート呼び出し欄のデータが整合していませんが、
結果はちゃんと整合していました。すみません・・・。

>>497
結局最終的には何を求めたいの？
店舗別日付別の売上とかいう落ちじゃないだろうな。

>>497
ああ、すまん、フィルタオプションではクライテリアじゃなくて、
検索条件範囲って言うみたいだね

いっその事、入力規則の重複のないリストも
フィルタオプションで別シートに作っちまうって手もあるけど

>>498
関数のグラフ化ってエクセルでできたっけ？

>>502
本気で言ってるのか。
それとも「関数を定義するだけではグラフを描けませんよーだ。バーカ。」という釣りですか。

>>500
それならピボットテーブルでいっぱつだけど、まさかねえ

>>503
本気だけど・・・？
0.0001単位でPとXの関係作って作図するのか？
正直エクセルにそんな機能を求めたことはないので・・・。

>>504
そのまさかではないかとだんだん思ってきた。
このあたりで。

>>497
>あとは、処理対象となる日付・店名の入力指定リストを、基礎データに存在する日付・店名の中から
>重複日付・重複店名を省いて自動生成できればほぼ完成なのですが、どうしたらよいのでしょうか・・・。

>>505
なんだその0.0001単位って。
座標データにしてしまえばグラフにできるよ。

>>507
P X
0 700
0.0001（てかできるだけ小さい数）　699
0.0002 698
とかこんなの。

>>508
折れ線でも、棒でも散布図でも好きに描いたらいいじゃない。

>>508
数字が小さいか大きいかなんてあくまでも相対的にしか決められないんだよ。
0.0001が小さいとか勝手に決めたら先生に注意されるぞ。

>>501
なるほど、わかりました。
ただ、フィルタオプションはいろいろいじってみたのですが、うまく設定ができず、
ご指示いただいた方法を突っ込んで試すことができていません。

>>506
例示した内容はやろうとしていることをあくまで単純に模式化しただけのもので、
実際の内容は全然違い、詳細なパラメータが並ぶデータを整理・解析するというものです。
店舗別日付別の売上をまとめたいというような単純な話ではさすがにありませんよ。

>>511
うまくもなにも、重複するレコードを無視するにチェックいれるだけだけど

>>511
要するに基礎データから店舗別日付別の明細データを別シートに取り出したいんじゃないの？

>>511
>例示した内容はやろうとしていることをあくまで単純に模式化しただけのもので、
>実際の内容は全然違い、詳細なパラメータが並ぶデータを整理・解析するというものです。

ここをちゃんと説明したらもっと適切な回答をもらえるかもしれないよ。

>>511
>フィルタオプションはいろいろいじってみたのですが、うまく設定ができず、…

そういう人のためにヘルプがあるんだけど

なんでここにいるやつらってのは、なんでも質問者を自分の土俵に引きずりこんで話をしようとするかね。
わからなくて聞いてきてるんだから、質問者が欲してる答えだけを素直に教えてやればよくないか？
質問者のスキルにしたって千差万別、知ってることも知らないことも、できることもできないこともあるし、
言葉足らずの一行レスで推し量れなんて無理。
解決策のひとつも提示せずに、最終的になにがしたいの？なんて、どうでもいいだろう。

>>497
日付のデータがA2:A10にあるものとして、B列およびC列に以下の作業列を挿入する。
まずB2に、
=IF(A2="","",IF(COUNTIF(A$2:A2,A2)=1,MAX(B$1:B1)+1,""))
を入力し、C2に、
=IF(ROW(A1)>MAX(B:B),"",INDEX(A:A,MATCH(ROW(A1),B:B,0)))
を入力、そしてB2とC2を必要な行数までドラッグ。
するとC列に重複した日付を除いたデータが生成される。
このC列の範囲に名前（「日付」等）を定義し、
処理用シートの入力欄のリストが参照する範囲（入力規則の条件設定の元の値）を定義した名前にする。
これで重複データを省いたリストが作成できる。
店名についても同様。
見栄え上作業列が邪魔なら非表示にすればよい。

言われたことしかやらないからゆとりって言われちゃうんだよ

言われたことが出来ない人間を三流。
言われたことが出来てようやく二流。
お前らはいつになったら一流になるんだ？

>>516
ださい回答だが、質問者は飛びついて大喜びしそうだな。
似たもの同士というところか。

>>518を訂正
言われたことしかできない人間を三流。
言われたことを上手にできる人間で二流。

だめだな、もうあいまいになってるよorz

モニタの画面がいっぱいになる
基礎データが何千行にもなる
ある特定のデータだけを処理対象にしたい
詳細なパラメータが並ぶデータを整理・解析する

どれひとつとして別シートにデータを並べる理由になっていないと思わないか？

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

VBAとか全然関係ないんでこのスレであってるか不安なんですけど
検索するときにデフォルトだとシートを対象に検索しますけど、
常にブックを検索するようにできますか？

>>519
そういう事はもっとカッコいい回答をビシッと示してやってから言ってくれよ
>>521
なんでお前はそこにこだわる？
そうまでしての揚げ足とりたいのか？
分けたいって言ってんだから別にいいじゃん、お前にめんどくさい仕事押し付けるわけじゃないんだし

>>522
デフォルトの設定は変更できないので
マクロを作ってボタンかショーカットに割り付け

>>511
エクセルに不慣れな者が操作する事もあるって前にレスしてるけど
別シートに抽出したデータをエクセルに不慣れな人が具体的にどのように整理・解析するんですか？

>>523
与えられた条件だけからだとシートを分けないのが一番かっこいい解決方法だろ。
別シートに分けるのだってコピペの方がスマート。

>>515がフィルタオプションがうまく設定できなかったってのは、別シートに抽出できなかったってことだろ？
抽出先のシート上でフィルタオプションの操作を始めればうまくいくよ。
オートフィルタからコピペはやるなよ。
全然スマートじゃねーからな。

>>516
結果をソートすることもできる？

>>527
フィルタオプションで日付をユニークにしたら失われる情報があると思うけど。

>>529
店名と日付が合致したデータを別シートに抽出するんじゃないの？
ユニークとか関係ないだろ？

>>525-526
朝っぱらからあら探しに必死だなw
お前らは想像力が欠如してるよ
>>511がボタン一発にこだわってるところからして、
行った先にはすでに計算式やら表やらが用意されてて、
手を加える必要はほとんどないんだろ
あとはそれを眺めて何か考えたり、
また違う何か他の作業に役立てるってところじゃないのか？
世の中はエクセルの中だけで完結してるわけではないんだよ？w
自分に見えるものだけが世の中の全てと思うなよ井の中の蛙
>>526
だからそういうのを自分の土俵に引っ張り込むって言ってんだよ
質問者はそれを望んでないだろ？むしろ分けたがってる
分けたい理由なんてどうでもいいんだよ、
>>481でスクロールをしたくないって言ってる、それで充分だ
お前の言う“スマートな方法”を無視されたって事がそんなに悔しいのか？
別にいいだろ、スマートじゃない方法でやれって作業をお前に押し付けてるわけじゃないんだから
あら探しするんだったら、質問者が望む土俵の上で一番スマートな方法を提示してからにしとけ
>>528
今までソートする必要に迫られなかったから知らない
自分が知ってたやり方を提示したまでだ
これで用が足りなかったらまたなんか聞いてくるだろ

A,B,Cのシートがあった場合、Aのシートを選択中にマクロを実行した場合は
BとCのシートのA1に「ぬるぽ」、同様にBを選択中に実行した場合はAとCに
Cを選択中に実行した場合はAとBに…と、選択シート以外を弄りたいです。

もちろん名前とシート数が固定なら指定できますし
シート名の取得・シート数のカウントができるのもわかります。
ですがそれをどう組み合わせたらいいのかがわかりません…
配列にするにしても現在のワークシートの番号なんてものはないですよね？

>>532
ワークシートを全部回せばいいんじゃない？
シートの番号とか使うのはスマートじゃないからやめとけ。

Dim sh As Worksheet
Dim ws As Worksheet
Set sh = ActiveSheet
For Each ws In Worksheets
　　If Not sh Is ws Then
　　　　ws.Range("A1").Value = "ぬるぽ"
　　End If
Next

FillAcrossSheetsで全部のシートに書き込んでだあとでActiveSheetのA1だけ消すのもありかな？

不細工に書くとこんなかな？
Dim i As Long, j As Long
j = ActiveSheet.Index
For i = 1 To Worksheets.Count
　　If i <> j Then
　　　　Worksheets(i).Range("A1").Value = "ぬるぽ"
　　End If
Next

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


1つの行に１１９００とか２９０１０とかあって、後ろ三桁を全部800にしたい。
末尾が800より上だったら、切り上げて揃えたい。


１１９００の場合→12800
２９０１０の場合→29800

よろしくお願いします。

>535

MOD

>535

MODよりINTのが楽だわ。
訂正しとく。

>>535
=ROUND(対象数値-301,-3)+800

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

日付を一気に6月1日から6月30日までSheet別に載せる方法を教えてください。
例えば、Sheet1のあるセルに2008年6月1日、Sheet2の同じセルに2008年6月2日、
Sheet3の同じセルに2008年6月3日・・・と、6月30日まで一気に打ち込むやり方を教えてください。

>>532-534
RANGE("A1").value="ｶﾞｯ"

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

vlookupで範囲指定するときに空白があるところまで
自動で範囲指定してくる関数か方法があった気がするのですが
忘れてしまったので教えてください。
よろしくお願いします。

>>539
VBAか手入力。

仕事から帰ってきて読んでみたら>>531がめちゃめちゃキレててびっくりした。
そんなに怒らせるようなこと言ったかなあ？

ところで>>539は最終的に何がやりたいの？
例えば毎日何かを記録してその日の合計を出したいのかな？

質問に端的に答えるってのも一つの方法だけど
質問者の真意を汲み取ろうとする努力を否定するような事でも無いと思うな。

「たかがExcelの質問スレでそこまで親切にする必要無い。適当に答えとけばいいだろ、面倒くせーんだよ」
という意見なら分からないでもないが。

>>539
sheet2以下は前のシートの日付+1になる式を入れる

>>541

>>541

>>541

541

555

>>541

>>541
Shift + Ctrl + スペース
あるいは
Ctrl + End
あたりの応かなあ。

誰も回答者全員に必要以上に親切にしろと言ってるわけじゃないから、
面倒なら口を出さなければいいだけじゃない？
おせっかいな人は個人の意志で勝手にやってるだけなんでしょ？

回答もせずに他人のやりとりに横から口をはさんでケチつけるだけのレスのが
よっぽど邪魔だと思う。

>>541
これか？
ttp://www.microsoft.com/japan/enable/products/keyboard/excel2003/extendselection.mspx

>>539
そもそも1シート=1日という設計はどうなのよ？

とか言うとまた「質問だけに答えてりゃいいんだよ」と怒り出す人が出てくるんだろうな・・・

>>539
マクロの記録。
ちなみにページ(シート)の切り替えはCtrl+PageUp/PageDown。
あとはカットアンドペーストとマクロの登録で、キーボードかマウス連打で次々と日付が入るようになる。

本当に一気にやりたいならVBA。

教えてください。

【1 OSの種類 　 　 　 　 .】 WindowsXP,vista
【2 Excelのバージョン 　 】 Excel2000,2003,2007
【3 VBAが使えるか　 　 .】 使えなくもない程度
【4 VBAでの回答の可否】 可(望む)
【5 検索キーワード 　 　 】 codename excel sheets

あらかじめ、string型変数に設定されている、
ワークシートのオブジェクト名を使用して、
ワークシートにアクセスしたいのですが、どうすればよいか御存知の方、どうかお教えください。

オブジェクト名：sheet1、
シート名：sheet1name
シートIndex：1、
というワークシートがあった場合、
sheet1.range("a1).value = 100
sheets(1).range("a1").value = 100
sheets("sheet1name").range("a1").value = 100
の操作の結果は、全て同じものになると思うのですが、
これと同じことを、
sheet1.codename
によって得られる文字列を用いて行いたいと思っています。
可能でしょうか？
可能でしたら方法をご教授ください。

Excel2003

水泳のタイムを表にしたいのですが
1:23.45　など、分があるときは問題ありません。
しかし、分がないとき　12.34　と表示させたいのですが
0:12.34　と表示されてしまいます。

?":"00"."00　で表示形式を設定したところ、頭の0は
表示されずにうまくいったのですが、 : 　が表示されてしまいます。
どう設定すれば表示されなくなるのでしょうか。
お力をお貸しいただきたいと思います。

＞そもそも1シート=1日という設計はどうなのよ？

＞とか言うとまた「質問だけに答えてりゃいいんだよ」と怒り出す人が出てくるんだろうな・・・

禿同。
やたらにBook重くしてるような気がする。
各シートにそれだけ必要なデータなり関数なり入っているなら、VBAは必須だと思う。

>>533-534
ありがとうございました。

>>558
Excel2007だと条件付き書式で記号を消せるんだけど、
2003以前だと作業列を作って文字列として : を消すか、
VBAでタイムを調べて書式を書き換えるみたいな方法しか思い付かない。

>>541,554
そうでした！
ありがとうございます！

>>558
>>分がないとき　12.34　と表示させたいのですが

その発想がまずダメ。

>>557
ThisWorkbook.Worksheets(ThisWorkbook.VBProject.VBComponents("Sheet1").Properties("Name").Value).Range("A1").Value = 1234
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ^^^↑^^^
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ここにオブジェクト名を書く

ただ、この方法は長くてプログラムが見づらくなるしスピードも遅くなるので、
できればモジュールの先頭でシート名やシートインデックスを取得しておくか、
アクティブシートを切り替えてから処理した方がいいと思う。

>>563
出た。ケチつけるだけで回答を示せないくん

>>558
=IF(LEN(A1)>=5,LEFT(A1,LEN(A1)-4)&":","")&LEFT(RIGHT("000"&A1,4),2)&"."&RIGHT("0"&A1,2)

ttp://aaabbbccc.s6.x-beat.com/upload/src/up17861.png

すげえ

>>565
出た。煽るだけで回答を示せないちゃん

出た。野次馬さん

>>566 さん
ありがとうございます。
何のこっちゃ分かりませんがコピペで使わせていただきます。

その他　考えてくれたみなさん　ありがとうございました

＞564
ありがとうございます。

Const codeName01 As String = "sheet1"
Sub ababa()
Dim obje As Object
Set obje = ThisWorkbook.Worksheets(ThisWorkbook.VBProject.VBComponents(codeName01).Properties("Name").Value)
obje.Range("A1").Value = 123456
End Sub
の形で使用しようと思います。
Objectの指定で間違いないか少々不安ですが、動いたので、たぶん…。

VBAで名前をつけて保存時にのみ、設定したファイル名をあらかじめ
表示するようにするにはどうすればよいのでしょうか。
あくまで、「標準の名前を付けて保存の時にファイル名を表示させたいんです。
ActiveWorkbook.SaveAsを使うとややこしくなるので・・・

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

A列　　B列
○○

>>573 すみません、途中で書き込んでしまいました・・・

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

　　A列　　B列
1　○○
2　×○
3　　　　　　■×

わらた

あ、また途中で書き込んでしまった・・・本当にすみません・・・

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

　　A列　　B列　　　C列
1　○▲　　　　　　　　　
2　×○
3　　　　　　■×
4　△●　　○△
5　××
6　　　　　　●●

上記のようにデータがあり、C列にA列とB列を統合したデータを入力したいのですが
どうやったらできますか？

=A1&B1

【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 （適切なワードが思いつきませんでした）

分類1　分類2　分類3　1960 ... 2007

と1行目にあるでーたをもとにピボットテーブルを作成したいです。
分類i (i = 1, 2, 3)は国名やデータ種類です。4桁の数字は西暦です。
このままだと、1960などがベクトル名？のような扱いになってしまうと思うんですが、1960などをYearとしてピボットテーブルで扱えるようにしたいです。
どうすればよいでしょうか？

>>578
書式でyyyyとか

>>572
質問の意味がよくわからん
どうしたらどうなってほしいのか、手順を書いてくれ

>>579
ありがとうございます。でも、それでも西暦がフィールドリスト（名前わかりましたｗベクトル名じゃないですね）の選択肢にひとつづつ表示されるのは変わらないんですが・・・

>>577
おお！ものすごくシンプル！その手があったとは！
ありがとうございます！

>>582
お前テンプレ5も書いてないし、自分で調べてないだろ？

すみません、わかりにくいと思うので補足させてください。

西暦部分の一つ一つがピボットテーブルのフィールドになる現状を、

Yearという形でまとめたひとつのフィールド（その中身は西暦）にしたいのです。

よろしくお願いします。

よく分からんけど1960/1/1みたいに入力しといて表示形式をyyyyでいいんじゃね

>>585
気に留めてくださりありがとうございます。
分類1　分類2　分類3　Year

と1行目にある状態でピボットテーブルを作った状態が目指す形なので、それだと状況が変わりません。表示形式の問題ではないので

　　　E　　　　　　　F　　　　　ZZ
　　year　　　　　1960　…　2007
=F2& … &ZZ2　　**　　　　　**

みたいな表にするとか

>>586
質問の意味がよく分からないな。
元のデータがどういうものか、もう少し具体的に実データもしくはそれっぽいデータで書いてくれると有難いんだが。

>>586
yearの下に入るデータと、1960〜2007の下に入るデータの関係は？合計？最大値？

>>587
すみません、>>586がわかりにくかったですね。
分類1 分類2　分類3　Year　Data
文字列1　文字列2　文字列3　西暦　データ（数値）

という形なので、Yearの中身がデータではありません。
Yearは分類のひとつという感じなんです。

元のデータ
Series Name Series Code Country Name Country Code YR1960 ... YR2007
Methane Emission MT.EM China CHN 555 ... 777

こういう状態でできるピボットテーブルを作成したいです↓
Series Name Series Code Country Name Country Code Year Data
Methane Emission MT.EM China CHN 1960 555
.
.
.
Methane Emission MT.EM China CHN 2007 777

普段は>>592のように出力するデータベースを使うんですが、違うデータがほしかったのでこういう形式になってしまいました。

>>590-592
ずれててよくわかんねー。どこがセルの区切りだよ。
あと、例を書くなら3行ぐらい書いてくれ。1行だけだとよくわからん。

元のデータはこういう感じ？

　　　A　　　　　 B　　　　　C　　　　D　　　E
1 分類1 　　分類2　　 分類3　　 Year　Data
2 文字列1　文字列2　文字列3　西暦　数値
3 文字列1　文字列2　文字列3　西暦　数値
4 文字列1　文字列2　文字列3　西暦　数値
5 文字列1　文字列2　文字列3　西暦　数値

ちなみに、「データの正規化」ってわかる？
正規化されてないデータはピボットテーブルにできないよ。

データの正規化、わかりません。今ググってみたんですが・・・。重複の有無、という認識でよいなら重複はないと思います。有料データベースからとったものなので。
元のデータは
　　　A　　　　　 B　　　　　C　　　　D　　　E
1 分類1 　　分類2　　 分類3　　 1960　　 1961　　 1962...2007　
2 文字列1　文字列2　文字列3　数値　数値　数値...数値
3 文字列1　文字列2　文字列3　数値　数値　数値...数値
4 文字列1　文字列2　文字列3　数値　数値　数値...数値
5 文字列1　文字列2　文字列3　数値　数値　数値...数値
です。

>>594
>>592で言いたかったことはご指摘のとおりです。

で、各行に47個ずつある数値をどうやってまとめたいの？

あ、48個か

まとめたいんじゃなくてバラしたいんじゃないの？
1行を48行に。
元のデータが100行あったとしたら、全部で4800行ある巨大なワークシートに。

>>595
正規化っていうのは次のようなデータになってればいいって事

1 分類1 　　分類2　　 分類3　　 Year　Data
2 文字列1　文字列2　文字列3　1960 数値
3 文字列1　文字列2　文字列3　1961 数値
4 文字列1　文字列2　文字列3　1962 数値
5 文字列1　文字列2　文字列3　1963 数値
・・・

　　　A　　　　　 B　　　　　C　　　　D　　　E
1 分類1 　　分類2　　 分類3　　 1960　　 1961　　 1962...2007　
2 文字列1　文字列2　文字列3　Ａ　　数値　数値...数値
3 文字列1　文字列2　文字列3　数値　数値　数値...数値
4 文字列1　文字列2　文字列3　数値　数値　数値...数値
5 文字列1　文字列2　文字列3　数値　数値　数値...数値

　　　A　　　　　 B　　　　　C　　　　D　　　E
1 分類1 　　分類2　　 分類3　　 Year　Data
2 文字列1　文字列2　文字列3　1960　Ａ
3 文字列1　文字列2　文字列3　西暦　数値
4 文字列1　文字列2　文字列3　西暦　数値
5 文字列1　文字列2　文字列3　西暦　数値
という感じなんですが・・・。
あるデータの持つ、(文字列1 文字列2 文字列3 西暦)という情報を崩さない、ということなんですが。。

まさかと思うけど、こういうこと？？

1960　1961　1962
数値1 数値2 数値3
数値4 数値5 数値6

↓

1960 数値1
1961 数値2
1962 数値3
1960 数値4
1961 数値5
1962 数値6

ピボットテーブルを作るんじゃなくて、その逆か？

>>599
>>602
そうです！
>>600
あ、正規化したい、っていう感じなんです。

>>604
逆じゃボケ
ピボットじゃねえじゃん
VBAでやれ

>>604
正規化っていうのはピボットテーブルを作る前にする作業なんだよ。
まずデータを整理して正規化して、それからピボットテーブルを作る。

578がやりたいのは、最終的に正規化されたデータが欲しいのであって、
ピボットテーブルを作ることじゃない。

この違いがわかるか？

>>605
最終的にはピボットテーブルを使える形にしたいんです。データ範囲の設定なんかでできたらいいと思ったんですが、やっぱり無理でしたか・・・
VBAでどうやるんでしょうか？
プログラムは大学関連で数時間やったことがある程度なので、自分ではかけません。

>>606
あ、なんとなく・・・。質問の仕方が悪いのはよくわかりました。ごめんなさい。

>>607
すでにまとまったデータがあるんだから、
何も一旦ばらさなくても、
そっから範囲の指定とかしてきゃいいじゃん。
フィルタとか使って色々できるぞ。

>>609
具体的にどういう風にするんでしょうか？フィルタで抽出→手作業で正規化ってことですか？

>>607
Sub aaa()
　Application.ScreenUpdating = False
　Worksheets("Sheet2").Range("A1:C1").Value = Worksheets("Sheet1").Range("A1:C1").Value
　Worksheets("Sheet2").Range("D1") = "Year"
　Worksheets("Sheet2").Range("E1") = "Data"
　r = 2
　r2 = 2
　While Worksheets("Sheet1").Cells(r, 1) <> ""
　　For i = 4 To 51
　　　Worksheets("Sheet2").Cells(r2, 1) = Worksheets("Sheet1").Cells(r, 1)
　　　Worksheets("Sheet2").Cells(r2, 2) = Worksheets("Sheet1").Cells(r, 2)
　　　Worksheets("Sheet2").Cells(r2, 3) = Worksheets("Sheet1").Cells(r, 3)
　　　Worksheets("Sheet2").Cells(r2, 4) = Worksheets("Sheet1").Cells(1, i)
　　　Worksheets("Sheet2").Cells(r2, 5) = Worksheets("Sheet1").Cells(r, i)
　　　r2 = r2 + 1
　　Next
　　r = r + 1
　Wend
　Application.ScreenUpdating = True
End Sub

>>571
シートと分かってるのにDim obje As Objectはまずくない？

まずくはない

その程度なら最初から厳密には○○のほうが良い、とか書けばいいのに

>>614
出た。煽るだけで回答を示せないちゃん

ブックもシートもセルもみんなオブジェクトだから

>>615
何でもかんでも示せないちゃん認定しちゃだめだよ。
>>614は示しているからね。

出た。野次馬さん 。

Object型は最後の手段。
オブジェクトの依存関係はちゃんと把握して使い分けた方がいい。
まずはここを読んで勉強だ。
ttp://msdn.microsoft.com/ja-jp/library/cc363964.aspx

>>616
ExcelのVBEに書く場合は
ブックと分りきってるならAs Workbook
シートと分かりきってるならAs Worksheet
セルと分かりきってるならAs Range
とするのが普通。

ワークシートと分かりきってるならに訂正

As Excel.Worksheetとした方がプロっぽい

それは単なるムダ

>>621
三流プロっぽいねｗ

上は>>622への間違い

そこまで書くんならApplication修飾子もつけてやれよ

プログラマーの賃金が1行いくらで支払われてた時代があってな。
ムダに行数を増やすテクニックを色々と覚えたもんだよ。

>>626
ExcelがApplicationだから
両方つけたらエラー
それはともかく冗長なのは汚いね
人の書き込みに適当なところで改行をいれろとしつこいやつが昔いたが、てめーのその全体的に長いコードを何とかしろと言いたかったｗ

両方つけたらエラーじゃなくてApplicationをつけたらエラーか

>>580
例えばA.xlsのファイルを編集中に「名前を付けて保存」を実行すると
あらかじめファイル名の欄に「A.xls」が表示されていますよね？
その部分を処理によって変えたいのです。

例えばマクロAを実行したら「江原はいつホスピス作るのｗｗｗ.xls」
マクロBを実行したら「犬HKはなんで細木なんて出してんのｗｗｗｗｗ.xls」
のように、名前を付けて実行であらかじめ表示されるファイル名を変えたいのです。

>>630
残念ながらその部分は簡単には変更することができない。
ファイルの保存ダイアログを自前で作るか、非公開でアクセス可能なプロパティがあれば操作。

あまりスマートではないが、一旦tempフォルダに名前を付けて保存してしまい、
あとでtemp内のファイルを消すという方法もある。

みなさんありがとうございました。
まだ試していませんが、これでやってみますね。

>>631
うそだろ？

そう思うならお前が答えてやりゃいいだろ

【1 OSの種類 　 　 　 　 .】XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
小数点が付いた数値にそのまま「%」の記号を付けたいのですが、方法は無いでしょうか？
付加した瞬間数値が変わってしまい困っています。
尚、その数値は数行とあり、まとめて付加できれば理想的です。

>>572
> ActiveWorkbook.SaveAsを使うとややこしくなるので・・・
そんなにややこしいかな？
GetSaveAsFilenameでデフォルトのファイル名指定してやるだけの話に読めるけど。

>>630
ttp://www.officepro.jp/excelvba/book_new/index10.html

>>635
範囲選択して書式の最後に"%"を付け足す
今の書式が不明なのでデフォルト状態に対する例を示すと

G/標準
　　↓
G/標準"%"

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

As Object に対するレスありがとうございます。
参考にさせてもらいます。
Excel.WorkSheet という記述方法は初めて知りました。

msdnはリンク保存しました。

どもです。

>>636
GetSaveAsFilenameを使うと、マクロで実施した「名前を付けて保存」と
標準の「名前を付けて保存」の二つが存在することになり、
　『なんか名前が設定されてる時とされてない時があるんだけど』
とクレームがくるんですよ

>>614
そのとおり！
会社で答えようと思ったらアク禁されててちょっと歯がゆかったぜ

会社なのにアク禁てどんなだよ

>>641
もうすこし研究して、名前が設定される時とされない時が、それぞれどんな場合かを突き止めるんだ
単純なミスかもしらんぞ

>>644
例えば保存時にマクロが動くように設定してGetSaveAsFilenameを使うと、

標準の「名前を付けて保存」を実行
↓
マクロが動いて、「任意の文字列を設定したダイアログ」が表示される
↓
保存（またはキャンセル）
↓
続けて「現在のファイル名が入ったダイアログ（標準）」が表示される

といった動きにならないですか？保存時に呼ぶのがおかしいのかなぁ。
でもボタンか何かで配置しても、結局エクセル標準の機能で保存されると
差異がでますし・・・

>>645
標準のはSaved = True で止める
その分、自前のモノは緻密に作り上げる必要があるが…

>>643
会社側が社内ネットワークからのアクセスを禁止してるんじゃないの？

それはアク禁じゃない

アク禁には違いなかろう。

どうでもいいがなｗ

アク禁の語源はアクセス禁止だけどニュアンスが違うからな

【1 OSの種類 　 　 　 　 .】XP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
オートシェイプを使って、図面を作成しているのですが、
プレビューでみるとちゃんと配置してあるのに、印刷をすると伸びたり、配置位置がずれたりしてしまいます。
エクセルでつくるような物ではないとは解っているのですが、上の者がエクセルで作れと言うので困ってしまいます。
しまいには、縮尺も合わせろと。。。

一度印刷をして、微調整等をしようとも思いますが、枚数が枚数なので、簡単にできる方法はないものかと。。。
質問してみた次第であります。

ご教授よろしくお願いします。

>651

無駄な努力はやめましょう。

×ご教授
○ご教示

>>651
どんな図面かにもよるけど、別のソフトで作ったデータを貼り付けた方がいいぞ。WMF形式とか。
ベクトル形式の元データがあれば、VBAを使って一気にオートシェイプに変換するという方法もあるにはあるけど。

とりあえず上司に、Excelなんかで図面を書こうとすると、通常の100倍以上の手間がかかって
人件費も無駄になりますよと言いなさい。

>>651
こういうのもある。ただしあまり使いやすくはないので、ごく簡単な図面に限る。
ttp://www.vector.co.jp/soft/win95/business/se403804.html

>>651
CADソフトの定番。
ttp://www.autodesk.co.jp/adsk/servlet/mform?validate=no&siteID=1169823&id=9605868

体験版で図面を書き、wmf形式で保存。
Excelでwmf形式のデータを読み込むと、自動的にオートシェイプに変換してくれる。

とりあえずExcel「だけ」で全部やるのは無理。不可能じゃないけど無謀すぎるにもほどがある。

図面と言っても処理フローとか配置図とかそんなんでしょう。
CAD使うような設計図面の作成をプロがExcelでやらせるわけないし、
そんなこともわからないような素人が、作業を行う人間の
上司としているわけがないでしょうし。

上司の子供部屋の配置図です

>>651
ワードで作っといてエクセルに貼りつけては？

>657

うそだと思うだろうがそういう会社も存在するよ。

>>658

つまらないネタ投下はいりません。

Excelにこだわるのは、自宅にデータを持ち帰って、家族で見ながら修正したいんだろうな。

>651
例えば400x400ピクセルのセルを作り罫線を引いて印刷する。
これを測ってみると、私の場合、横97.2�o x 縦95.5�o
よって、行の高さを21ピクセル、列の巾を１列おきに20と
21ピクセルにすれば、5�o方眼が出来る。
ここでAltを押しながら図形描画すれば5�o単位の精度が出る。
後は応用で。

本当に子供部屋の配置図作りたいだけなら
Wordの方がほぼWYSWYGで作れる分楽だよ。

上司の子供部屋の配置図ではないですｗ

エクセルにラスタデータを貼り付けて、そこに旗揚げ等をオートシェイプで作成。

で、用紙サイズがA0〜A1ロングで出力と・・・

で、図面の縮尺を合わせろと・・・

１つの図面でだいたい５０〜７０M位になるので、PCも頻繁に固まってしまうし。。。

CADで作って、PDFに変換。さらにJPGに変換しようかなと。。。

一応、データとしてはエクセルだからいいかなと・・・

いろいろとお答えありがとうございました。

>>665
縮尺はExcelの画面上でやるよりプリンターの設定で印刷サイズを微調整して合わせる方が簡単。
つーか、そんな巨大なデータなら、なおのことちゃんとしたCADを使うべき。

なんでExcelにこだわるのか、ぜひ理由を問いただして欲しい。
おおかたExcel以外のソフトの使い方を覚えるのが面倒とか、そういうのじゃないかと思うけど。

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

A1〜A3までを範囲選択し、文字を入力する。
ｴﾝﾀｰを押すごとにｱｸﾃｨﾌﾞｾﾙがA1〜A3に移動していくが、
例えばA2だけ削除したい時、
これまではA2をｱｸﾃｨﾌﾞｾﾙにさえしていればA2だけが消えて
A1、A3は消えなかったけれど、
突然ｱｸﾃｨﾌﾞｾﾙではない、範囲選択した全てが削除されてしまうという
設定に変わってしまいました。
解決策を見つけられませんでした。

>>667
消すとき、BackSpaceキーじゃダメなの？

A2をアクティブにしてF2→BkSpでは？

参考までに教えて下さい
範囲指定したままの編集って
どういう状況でそうしないといけないんですか

範囲指定しておくとエンターキーだけで次のセルへ順番に移動できるから
決まった範囲にたくさんのデータを連続入力する時には楽な場合があるっすよ。

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

A1に数字を入力
A2→A1に入力した数字が0より大きい(正の数)場合、Xを乗算した結果を出したい
A2→A1に入力した数字が0より小さい(負の数)場合、Yを乗算した結果を出したい

例)
A1に5を入力した場合1.5倍した結果の7.5をA2に表示
A1に-5を入力した場合0.8倍した結果の-4をA2に表示

解る方、どうぞよろしくお願いします。

>>672
=IF(A1>0,A1*1.5,A1*0.8)

ありがとうございます。

>>665
地獄だな
でも俺もjpgを貼り付ける方法を考えた

A1サイズまで拡大印刷して図面として通用する画質のjpegってどんな恐ろしいファイルサイズになることやら

>676

そんな大したことないだろ。
計算してみれば？

ヘルプください。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000,2002,2003,2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ランダム rnd rand 乱数 visual-basic

excelにて、
4byte符号無し整数全体に現れうる数値を
ランダムに得たいです。

excelのシートに、
=INT( RAND()*(4294967296 -1) )
と書くと、一見ランダムな数値が得られているようです。
上記式は範囲内の全ての値が出力される機能を持っているのでしょうか。
(多くとも、16777216種類しか得られないとの話が。)

また、vbaで書く場合はrnd()関数を使用して、
ランダムな値を得るようですが、これも同様でしょうか？

ランダム数の種の管理が面倒なので、
vbaの中で、RAND()を使用したのですが、可能でしょうか？
(というか始めこの方法をとろうとして、出来ないことを知って絶望しました。)
(『=RAND()』を設定した特定のセルのみ更新できればうれしいのですが。(シートが大きいので全体更新は速度面に…(=rand()は1セルのみ)))

よろしく御願いします。

300dpiで7000*10000ピクセルか

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 セル　ＶＢＡ　クリック　マクロ

マクロの作動に必要なコントロールボックスやショートカットでマクロが起動できるように作っているんですが
実際の作業（業務です）で試した所、コントロールボックスやショートカットでさえも、連続してデータ系の打ち込みがある作業で
非常に煩わしい事や件数が膨大で時間が掛かってしまいます。

特定のセルでエンターキーを押すだけでマクロを作動させる事は可能でしょうか？

>>678
質問の意味がよくわからない。もうちょっとしっかりした文章を書け。
とりあえず乱数の精度を上げたかったら
ttp://phys.sblo.jp/article/944148.html

(678です。もうひとつ御願いします。)

VBAのコードで、
Sub hoge()
Dim d1 As Double
Dim s1 As String
d1 = 65536 * 65536# * 65536 * 65536
s1 = d1
MsgBox s1
End Sub
をすると、指数表示が文字列に入ってしまうのですが、
これは、桁が小さいときのように普通の表示に出来ないでしょうか？

>>680
Application.OnKey "{RETURN}", "hoge"
Application.OnKey "{ENTER}", "hoge"

>>682
MsgBox Format(s1, "0")

まちがえた。
s1 = Format(d1, "0")

>>681
バカっぽいブログ。
なんでこんなの紹介したの？

出た。ケチつけるだけで回答を示せないくん

>>683
多分私への回答なんでしょうが>>682に応えているようにも見えるんで・・・

今時点で、Vba冒頭書式に
Private Sub hyouzi_Click()
と入れています。

早速で助かるのですがなにぶん勉強不足なもんで
よろしければ　Application.OnKey "{ENTER}", "hoge"　というのはどこに入れればいいのか教えてくだされ・・・

>>687
正解ｗｗｗだから何？ｗｗｗ

>>688
アンカー

Application.OnKey "{RETURN}", "hoge"
Application.OnKey "{ENTER}", "hoge"
の2行を実行すると、Enterキーを押された時に手続きhoge()が呼び出されるようになるので、
何らかの方法で最初に実行しておく。Workbook_Open()の中とか。

これだけだとシートのどこでEnterが押されてもhoge()が呼ばれるので、hoge()の中で
アクティブなシートとセルを調べて、目的の位置ならhyouzi_Click()を呼ぶようにする。

682です。

＞684,685
おぉぉおおおお！
ありがとうございます。
まさしく、この回答がほしかったです。


678です。
こちらも言葉足りないようで、申し訳ないです。
ただ他になんと言っていいものか。
『VisualC++のrand関数は、0〜32767』は、32768種類の数値しか出しませんよね。
ExcelVBA rnd()(単精度浮動小数点数)は？？？
検索した結果は、16777216個と書いてありましたが、microsoftではその記述を見つけていません。
そのため質問しました。

何気に使っているRAND()も同様かと…。
あまり理解できませんが、いただいたリンクを深く呼んでみます。

>>691
出力の仮数部分が15ビットなら、出てくる数値は32768種類にしかならない。
どこに小数点を打とうが32768種類であることに変わりはない。
24ビットなら16777216種類になるってだけのこと。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000〜2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 座標計算　CAD

Excelで計算させて座標点をはじきだし、プロットしたデータをCSVを出力し、CADに読ませるつもりです。

設計上、ある直線を引いたとき、この線が（ある任意の距離までに）違う線に重なるか否かをプログラム的に判別するには、
サインコサインを使ってやるのかな？
それともそれぞれのXY軸の数値から？

どういう手段を取れば最高なのか模索中です。
図形、設計でCADの事を考えられる猛者から是非ともヒントを。

>>693
ASINでもACOSでもATANでもどれでもいいから2本の直線の傾きを求める。
平行なら交わらない。平行でなければどこかで交わる。
「線分と交わるか」なら交点を求めて線分の端点の座標と比較

Excelでなく算数だなｗ

Excelと関係あんの、質問の最初の1行だけだしw

なんとふところの深いスレ！

中学校を思い出した
線分とか懐かしいな

>>693は直線という言葉を使っているけど本当は線分の交差をチェックしたいんじゃないの？

>この線が（ある任意の距離までに）違う線に重なるか否かを

>>690
遅レスですがありがとうございました。

ヒントを頂いたのですが結局　条件分岐が出来なくて、どこデエンターを押してもマクロ処理が発生してしまい、特定のセル押下時のみ実行というのは
私の今の力量では無理でしたので、とりあえずどこでキーを叩いても実行されたままですが普段使用しないであろうファンクションに割り当てしまして、なんとか制御できるようにできました！

この答えだけでも業務の合間でやって３日かかってたんで非常に助かりました！

>>700
Sub Enter監視開始()
　Application.OnKey "{RETURN}", "hoge"
　Application.OnKey "{ENTER}", "hoge"
End Sub

Sub Enter監視終了()
　Application.OnKey "{RETURN}"
　Application.OnKey "{ENTER}"
End Sub

Sub hoge()
　MsgBox (ActiveSheet.Name & " " & ActiveCell.Row & " " & ActiveCell.Column)
End Sub

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

最近PCを買換えまして、それに伴ってOSやExcelのバージョンが変わり、今までできたことが
よくわかんなくなってしまいました…
ワードアートってありますよね。あれの大きさを変えるのに今までなら右下をドラッグしたんですが、
2007になってから大きさが変わらなくなってしまい、いろいろいじってもよくわからないので
質問させていただきました。
ちなみに前のExcelのバージョンはわかりません…
できれば縦横の比率もいじれれば助かります。

>>702
メニューからこれを選ぶと、好きに変形できるようになる
ttp://cgi2.coara.or.jp/~negichan/imgloda/src/img10203.png

まず変形させたいテキストボックスをクリックして選択
書式→ワードアートスタイル→変形→形状→四角
を選択するとテキストボックスのアンカーの色が変わる。
この状態でテキストボックスの枠線やアンカーをドラッグすると自由に変形できる。

>>704
回答ありがとうございます。
やってみたのですが、書式のワードアートスタイルの欄には
文字の塗りつぶし
文字の輪郭
文字の効果
しか表示されていません…

>>705
違うとこ見てるぞ。それは「図形のスタイル」だ。「ワードアートスタイル」じゃない。

>>705
>>703のリンク先の画像は見たか？

>>706
いえ、ワードアートを選択すると上に描画ツールと出て、
そこの「書式」に「ワードアートスタイル」と出ています。
まったく違うとこみてるんですかね？

>>707
いえ、見ていません。何があるんですか？

× 書式→ワードアートスタイル→変形→形状→四角
○ 書式→ワードアートスタイル→文字の効果→変形→形状→四角

>>709
操作方法の解説だよ。画像見りゃ一発でわかんのに。

>>710
できました！！
どうもありがとうございます！助かりました！

やれやれだぜ（ｒｙ

ありがとうございました。
確かにDelだと選択範囲が全部消え、Back spaceだとｱｸﾃｨﾌﾞｾﾙだけが
消えますね。
でもこれまではDelでもｱｸﾃｨﾌﾞｾﾙのみの削除ができていたので、
どこを触れば元の設定に戻るのか知りたいです。
分かる方いらっしゃいますか？

Excel2002 VBA×
条件付書式で、「2の倍数」「3n-1」といった条件を指定できませんか？
レーティング表の数値を、奇数偶数で塗り分けたいと思っています。

>>715
条件を「数式が」にして「=MOD(A1,2)=0」など

すみませんエクセル２００３での質問です
OKWEBで教えていただいたコードなのですが
（選択した行の　「全角文字を半角に変換」　というものです）
これを行ではなく列で実行するにはどうしたらよいのでしょうか？
色々と試したのですがわかりませんでした、、、
何卒よろしくお願い致します


Sub test02()

Selection.SpecialCells(xlCellTypeConstants, 3).Select

Selection = StrConv(Selection.Value, vbNarrow)
End Sub

>>717
手動で列を選択してからそのマクロを実行すれば良い

>>702
直接解決にはならないけど、これを入れるのもいんじゃないかしら
ttp://members.at.infoseek.co.jp/dr_admk/o2007oldui/images/excel00.jpg
ttp://members.at.infoseek.co.jp/dr_admk/o2007oldui/

>>718
すみません、今試してわかったのですが
行でも列でも２つ以上の値が入っていると
（例えば列の場合、B3セルとB4セルに値が入っているとエラーが出ました
　B3セルだけだときちんと全角の文字が半角に変換されました）
「型が一致しません」というエラーが出るようです

複数のセルを変更できないと困るのですが
どうやって対処したらよいでしょうか？

質問がおかしいだろ。
「このソースを複数セルを選択しても実行できるようにしてくだしあ」
って書くべきだろ

出た。煽るだけで回答を示せないちゃん

>>720
選択された範囲全体を半角に変換
Sub aaaa()
　For Each c In Selection.Cells
　　c.Value = StrConv(c.Value, vbNarrow)
　Next
End Sub

ascだかjisだか使ったほうが早いな

>>721-724
ありがとうございます。
おかげさまでなんとかなりました！

質問も文章もとんちんかんで本当にすみませんでした
これで家に帰れます。。。うれしい

>>716
きれいなシマシマができました。ありがとう

【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
角度の計算をしたいのですが、分の部分だけを60進数で計算させたいです
ヘルプを見ても時間関連のものばかりでした

>>727
単純に言うと繰り上がりと繰り下がりを自作するといい。
乗算は考える必要ある？

2003で作った色見本、画像重ねて表示するだけ
2007でやるとずれてめちゃくちゃになるけど互換性ないの？

ＭＳもう死ねよ

2007は互換性が本当に低いな

なんでExcelに計算以外のことをさせたがるかなあ。
図面を書かせたり。

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　複数シート　印刷

複数のシートを選択して、一括印刷しようとしたのですが、
１ページのみ印刷されて、２ページ以降印刷されません。
原因として考えられることがあれば教えてください。

>>732
印刷の設定
ドライバの設定
データがない
範囲指定ミス
プレビューの確認漏れ
紙切れ
操作ミス
気のせい
紙がどこかに飛んでいった

普通に印刷範囲の指定だろ？

【1 OSの種類 　 　 　 　 .】 WindowsXPPro
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可（コードを書いて欲しいです。）
【5 検索キーワード 　 　 】 エクセル　VBA　列　合計　複数　ファイル　出力

失礼します。

１．１つのファイルに１シートしかない
２．一行目がフィールド名
３．列がＡからAC
４．データが入力されている行数が、各ファイルによって違う

このようなxlsファイル500程ありまして、
それぞれのファイルのF列の合計（SUM）計算結果とファイル名を

ファイル名｜F列合計
○○○○ ｜100000
△△△△ ｜20000
×××× ｜500000
　　　・　　　　　　・
　　　・　　　　　　・
　　　・　　　　　　・

のように、別の１つのファイルに出力したいのです。

このような処理を、複数のファイル（たとえば指定したフォルダ内の全てのファイル）に対して
一括してできるコードを書いて頂きたいのですが・・・よろしくお願いします。

>>735
こんなんでどうだ。もしシート名がSheet1じゃなかったら、もうちょっと工夫する必要が出てくるが。

Sub aaa()
　Application.ScreenUpdating = False

　Dim P As String　'パス名
　Dim N As String　'ファイル名
　Dim R As Long　　'行
　
　P = "C:\Documents and Settings\Administrator\デスクトップ\test\"　'フォルダの指定
　If Right(P, 1) <> "\" Then P = P & "\"

　N = Dir(P & "*.xls")　'Excelのファイルを検索
　R = 2
　While N <> ""
　　Cells(R, 1) = N
　　Cells(R, 2) = "=SUM('" & P & "[" & N & "]Sheet1'!$F$1:$F$65536)"
　　N = Dir()
　　R = R + 1
　Wend
　
　Cells(1, 1) = "ファイル名"
　Cells(1, 2) = "F列合計"

　Application.ScreenUpdating = True
End Sub

【1 OSの種類 　 　 　 　 .】 MacOSX　or　WindowsXP
【2 Excelのバージョン 　 】 Mac:Excel2004 Win:Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 バッチリスト　Excel　作成　書式設定


セルの書式設定の表示形式をいじって
「12345678」と入力すると「12:34:56;78」となるようなセルを作りたいのですが
可能なんでしょうか。
色々調べてみましたが、無理なんすかね〜。

>>737
数字の意味がどうでもいいのならユーザー定義で
0":"00":"00";"00

>>737
00":"00":"00";"00

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

現在、商品の登録をにわか覚えのVlookup,Match等を使い行っているのですが、
A1にある「りんご」を入力するとB1、B2の値がﾌｫｰﾑに入力されるような
物を作りたいんです。
B1は、Vlookupで出せるのですが、B2がどうしても出せません。
B2を出す式がございましたら、ご教授下さい。

A B C
1 りんご　 50 70
2 30 40
3 ばなな　 40 60

>>740
B3は出ているんだから同じようにやればいいじゃない。

A B C
1りんご 50 70
2 30 40
3ばなな　40 60


ズレてしまったので・・・。
宜しくお願いします。

>>739
00!:00!:00!;00

　　 A 　　　B　C
1 りんご.　 50 70
2 　　　　　 30 40
3 ばなな　 40 60

>738-739

いやーありがとうございます。助かります。
これで入力時間がかなり短縮できそうです。感謝です。

【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】ワークシート　振り分け
　　A B C D E F G
1 Period　TF　R　P　 Code　 Description　 Value
2 2005 I α Γ BE-5 (Codeの詳細) (数値)

というように、1行目に分類、2行目以降にその内容があるものがあります。
以下の作業をしたいです。VBAで可能ならコードをいただきたいです。複雑すぎて自分ではかけませんでした。
�@C列、D列のデータを集めて、重複があれば抜く。それを、ほかのすべてのワークシートの1行目と1列目に貼り付ける（リーグ戦のような形になります。A1のみ空欄です。）
�A2行目以降、E列の先頭3文字(BE-)を抜いた数値を見て、その数値と同じワークシート名のワークシートがあれば、元のデータのC列（例の2行目ならα）と1行目、元のデータのD列（例の2行目ならΓ）と1行目が一致する箇所に下のデータのG列の数値を持ってくる。
�B2行目以降、E列の先頭3文字(BE-)を抜いた数値を見て、その数値と同じワークシート名のワークシートがなければその行はとばす

A, B, Fの各行のデータは使わないです。どうぞよろしくお願いします。

>>746
振り分けしたいデータの入ったシートは何枚あんの？
もしくは、振り分け作業はこれから何回ぐらいやる予定なの？

>>747
それぞれ、
17枚
20回
です

>>747
もとのデータは1枚にまとまっています。
Periodごとに別ファイルにしてあり、20期分の操作をしたいと考えています。

すみません、振り分け先の枚数かと勘違いしました

>>746
テストデータ作んのめんどくさい
擬似データうｐしたらコード書いてあげるよ

>>750
ttp://www11.axfc.net/uploader/He/so/107140.xls
example
データの一部を取り出しました。お願いします。

>>751
ttp://www11.axfc.net/uploader/He/so/107145.xlsexample
example

これでいいのかな？

>>751
コピペミスった
ttp://www11.axfc.net/uploader/He/so/107145.xls

>>751
連投ｺﾞﾒｿ

Set dct2 = New Scripting.Dictionary

の後に、

n1 = 1
n2 = 1

追加。

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

>>736
おお！ありがとうございます！
ただ、シート名がSheet1で統一されてはないのです…
（各ファイル名の一部がそのままシート名になっていて、全シート違う名前なんです）
アクティブシートで指定すればいけそうですね。
ちょっと自分でがんばってみます。
また、夜くらいに報告します。

2007はOSで言うところのVistaみたいなもんだろ。
高性能とか直観的IFとか言われても過去のユーザーを
無視した重い糞ツールなんて要りません＾＾
2003の後継ﾏﾀﾞｰ？

出ません。
次の質問どうぞ

17 名前：デフォルトの名無しさん[sage] 投稿日：2008/06/06(金) 02:16:52
>>11
あるよ。
以上。
はい、次。

時刻入力を楽にする(対応する数値で時刻を入力)のに、表示形式の分類で00!:00!:00
を使っていて、なおかつ文字列の角度を75度、右側に罫線で使おうとしてます。

数値を入力後は、罫線も75度に傾いて自分の目的どおりなのですが、
数値入力前の罫線は、真っ直ぐ垂直に立っているように表示されます。
これを数値入力前でも、罫線が75度傾いているように見せるいい方法はないでしょうか？

>>760
とりあえず全部のセルに0を入れておく。

罫線を消して、線をオートシェイプの線で書くことにしました。
お騒がせしました。

>>761
スペース入れるだけでも、罫線が傾いてくれるみたいなのですが、
人(身内)に渡すソフトで、しかも同じセルで時刻入力を何度も
消し書きするので、何を入れといても消されてしまうので悩んでました。
ありがとうございました。

>>763
セルの中身が消されたらスペースを入れるVBAを作るとか

セルを保護しておけばいいだけでわ

>>765
人災！

>>736
報告です。
Sheet1の箇所をWorksheets(1)に変更するだけで
期待していた処理が１秒で終わりました!!
ファイル数が多すぎて途方にくれていたので、
本当に聞いて良かったです。
VBAはすごいですね。
今回は完璧なコードを書いて頂き、ありがとうございました。

すみません、関数教えて下さい。m(_ _)m
『問題』
水曜日、定休日の会社で水曜日が祝日であれば翌日を振替休日に表示させましょう。
なお、「11月の祭日」欄も参考にして条件付書式を用いて赤字の設定をすること。

日付 曜日 番号 振替 11/1 火 3 11/2 水 4 11/3 木 5 11/4 金 6 11/5 土 7 11/6 日 1 ↓ ↓ ↓ 11/23 水 4 11/24 木 5 振替 ↓ ↓ ↓ 月末までつづく！

＠ 2005年11月
11月祭日
文化の日 11/3
勤労感謝の日 11/23

※曜日番号はweekday関数を入れるだけでしたのですぐわかったんですが 日曜と日付＋曜日を赤く表示させる方法と 11/24に振替を表示させる方法をどうぞプロの方教えて下さい！
どうか私に勇気と愛を…

すみませんちょっと訂正です
※日曜と祭日日付と祭日曜日を赤く表示です。
ごめん！

カレンダーはだれでもつくれると豪語する人がちょっと前にいたから
すぐ解答がつくよ

>>770 本当ですか！よ〜し期待して待ちます。

>>771
無理でした

とりあえずバージョンを書いてくれなきゃイヤだ！

>>773 2003エクセルです！

>>774
了解した！




そして、無理でした！
てか宿題なら自分でやりなさい！

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

ブックＢのデータをブックＡにコピーしてるんですが、
もっとスマートな記述方法お教えてください。

With Workbooks(A).Worksheets("DATA")
　　.Cells(ii + 0, jj + 0).Value = Workbooks(B).Worksheets("DATA").Cells(i + 1, j + 1).Value
　　.Cells(ii + 1, jj + 1).Value = Workbooks(B).Worksheets("DATA").Cells(i + 1, j + 2).Value
　　.Cells(ii + 1, jj + 16).Value = Workbooks(B).Worksheets("DATA").Cells(i + 1, j + 3).Value
　　.Cells(ii + 2, jj + 16).Value = Workbooks(B).Worksheets("DATA").Cells(i + 1, j + 4).Value
　　.Cells(ii + 0, jj + 44).Value = Workbooks(B).Worksheets("DATA").Cells(i + 1, j + 5).Value
　　.Cells(ii + 1, jj + 44).Value = Workbooks(B).Worksheets("DATA").Cells(i + 1, j + 6).Value
　　.Cells(ii + 2, jj + 49).Value = Workbooks(B).Worksheets("DATA").Cells(i + 1, j + 7).Value
End With

数式エディタは、ワードで作ってからエクセルにペーストしたほうがうまくいくのですが

みなさんも、そんなものですか

内容：
【1 OSの種類】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 EXCEL 関数　同じ文字列

皆様よろしくお願いします。

現在ショップリストを作成しており、
●●SHOP　〒108-0001 東京都〜
■■STORE 〒100-0021 東京都〜
△△店　　〒130-0032 千葉県〜

のようにHPからテキストをコピペをしています。
100店を超えてくると同じ店舗と気付かずにペーストしてしまっている事がある
のですが、
被らないようにする手段はありますでしょうか？

私の思いつく限り、店舗名を1つ1つ検索し、被っている店舗がないか確認するし
か思いつきません。
現在300店を超えておりますが、今からでも手段があれば行っていきたいです。
よろしくお願いします。

※ちなみに(●●SHOP　〒108-0001 東京都〜)は1セル内に収まっています。
全然違うソフトですが、確かadobe in designでは出来たような気がします。

>>776
コピー先のセルの並びが不規則だからこんな方法しか思い付かん。
見た目は多少スッキリするがスピードは遅くなる。

Dim x As Long
ir = Array(0, 1, 1, 2, 0, 1, 2)
ic = Array(0, 1, 16, 16, 44, 44, 49)

For x = 0 To 6
　Workbooks(A).Worksheets("DATA").Cells(ii + ir(x), jj + ic(x)) = Workbooks(B).Worksheets("DATA").Cells(i + 1, j + x + 1)
Next

RangeとSelectionsの組み合わせでどうにかできそうなんだけどなあ…

最後の+1が気になったので修正。こっちのが式の意味がわかりやすいと思う。

Dim x As Long
ir = Array(, 0, 1, 1, 2, 0, 1, 2)
ic = Array(, 0, 1, 16, 16, 44, 44, 49)

For x = 1 To 7
　Workbooks(A).Worksheets("DATA").Cells(ii + ir(x), jj + ic(x)) = Workbooks(B).Worksheets("DATA").Cells(i + 1, j + x)
Next

>>778
なにができたのかわからんが、できたのならadobe in designでもなんでも好きに使えよ。
EXCEL使ってで管理するならスペースでセル分けろ。
ピボットでも駆使して重複をさがせ。

いろんな人間が好き勝手作った文字列を管理するのに
コピペだけで楽して管理できると思ったらイカンよ。

>>778
A列にデータが入ってるとして、作業列を用意して2行目以降に
=IF(ISERROR(VLOOKUP(A2,A$1:A1,1,0)),"OK","重複")

あと、店名、郵便番号、住所、電話番号は列を分けた方がいいぞ

>>768
特定の1ヶ月分を作るだけなら手作業で字を赤くしてきゃいいじゃん

>>783
その通りだと思う。
カレンダーはマスターとして持つのがスマートな解。
5年だろうが10ねんだろうが手入力すべき。
その程度の入力は業務のボトルネックではない。

>>779 >>780
ご親切にどうもありがとうございます。
これは基礎知識をつけるべく勉強します。

>>781
おっしゃる通りです。
お怒りの中ヒントをくれてありがとうございます。

>>782
出来るとしたらIFかなと思っていたのですが、何を入れてよいのやらさっぱりで
した。
ありがとうございます。
一通り集まったら列分けていきます。

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

同一人物だったのかw

>>785
別に怒っているわけじゃねぇよ
郵便番号や住所にしても数字を全角や半角で書いているのもあるだろうし
どこかにスペースが入っているのがあるかもしれない。
住所も県名を省略して市から記載されているかもしれない。
いろんな可能性を考えてなきゃならないから面倒だよ
まぁ、300行くらいなら郵便番号住所で並び変えて目で見たほうが早いかもな
今後も増えるのなら>>782のいう通りに項目は分けろ。

しかし同一人物とはｗ

>>783>>784 関数の問題ですので(^_^;)

さらに意味のない短縮して223バイト

Dim x As Long
ic = Array(, 0, 1, 16, 16, 44, 44, 49)

For x = 1 To 7
　Workbooks(A).Worksheets("DATA").Cells(ii + (Int(x * 0.9 + 0.2) - 1) Mod 3, jj + ic(x)) = Workbooks(B).Worksheets("DATA").Cells(i + 1, j + x)
Next

フィルターをかけた後のデータだけをコピーすることができるはずなのですが、
操作の方法を忘れました。ダイヤログボックスが出て、明示セルなんたらを
チェックするのだった記憶があるのですがわからないので、教えてください。
ちなみに、ＸＰand２００３です。