Excel総合相談所 81

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

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

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

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

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

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

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･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
もつ

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("w20"), Target) Is Nothing Then Exit Sub
For Each xxx In Range("j22:j28,l22:l28")
With xxx
以下同じで動きました、ありがとうございました

ソフトのことならここが良心的・・・
http://www.hhyyhh22.co.nr

見積書や納品書につかう字体は主に何になるのでしょうか？
MS　Pゴシックでいいのでしょうか？
アドバイスお願いします。

>>11
あなたのセンスでいいのでは？

>>11
スレ違いすぎ。サヨウナラ

スレ違いすみません
勉強のため他の会社からきた納品書を見て同じのをつくろうと
思っているんですが、なかなか見つからなくて悩んでおりました・・。
そして、会社で使う主な字体は何だろうと質問しました。

ゴシックか明朝では

>>15
ありがとうございます
早速、使ってみます(´∀｀)

教えてください。
A1のセルに 2009/4/1 12:58 が入っていまして、
A2には=SUM(A1+1)が入っていますが、見えるのは 2009/4/2 12:58
が見えています。この見えている 2009/4/2 12:58 の時間を編集したいのですが
いざ編集しようとすると =SUM(A1+1) が出てきてしまいます。

直接編集することは不可能では無いらしいのですが、検索しても分からず
困っています。どなたか教えていただけないでしょうか。

>>17
形式を選択して貼り付け→値

>>18
早速教えていただき大変うれしいです。
ちょっと検索しながらやってみます。
ありがとう御座いました。

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

エクセルで時間の計算をしているんですが、A1のセルに時間が入り、A2のセルに計算式を入れて
A1の時間が10時間以上になった数を割り出したいんです。
例えば、A1に12:00が入ったら2:00、15:00だったら5:00、10時間を越えなかったら0です。
この場合どういう式を入れればいいんでしょうか？
ifで出来るんでしょうか？分かる方教えてください。

=MAX(0,A1-TIME(10,0,0))

>>21
テクニカルすぎ笑った
>>20
=IF(A1>(10/24),A1-10/24,0)
普通はこんな感じな

>>21-22
ありがとうございました！

【1 OSの種類 　 　 　 　 .】 Windows　VISTA
【2 Excelのバージョン 　 】 Excel　2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 ピポットテーブル　"複数のテーブル"　複数のワークシート　集計

複数のテーブルに跨る集計方法を知りたいのですが・・・・・

1　　A　　　　　　　B
2 　1月売上
3 　商品名　　　　売上　　
4 　バナナ　　　　50
5 　メロン　　　 　40　
6 　リンゴ　　　 　30
7 　2月売上
8 　商品名　　　　売上　　
9　 パイン　　　　　70
10　メロン　　　　　60
11　すいか　　 　　20
12　3月売上
13 　商品名　　　　売上　　
14　きゅうり　　　　　50
15　セロリ　　　　　　40
16　メロン　　　　　　10

A3:B6、A8:B11…と、テーブルになっているものとします。
それぞれ、月刊売上の上位三つが入力されていて、これが12か月分、
一枚のシートに収まっているとして下さい。

このシートから、各月のテーブルに入力された売上数を、
一年間分、各商品ごとに自動的に集計し、
商品名と年間売上合計の一覧を適当な場所に表示するには、一体どうすればよいのでしょうか？

>>24
C1=IF(ROW()=2,"商品名",(IF(AND(ISERROR(FIND("月売上",A2)>0),ISERROR(FIND("商品名",A2)>0)),A2,"")))
D1=IF(ROW()=2,"価格",(IF(ISERROR(FIND("売上",B2)>0),B2,"")))

でCD列をピボットテーブル
ピボットで商品名を左、価格を真ん中に穂織り込む
左上の「データの個数/売り上げ」を右クリック、フィールドの設定で合計

前スレ984氏、THXです。

ｴｸｾﾙ2007で、
列幅調整をしたいときに、簡単に調整数値を入れるﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽを出すｼｮｰﾄｶｯﾄはありますか？

>>27
右クリ→列の幅
よりも簡単にしたいってこと？

>>28
ありがとうございます。
全ての列をまとめて3.0ﾎﾟｲﾝﾄにしたいとき、
2007だと右クリックした際に列の幅調整のメニューが出てこないんです。

>>29
2003まではツールバー→ユーザー設定→書式→幅コマンドあったんだけど
2007にはもうないのかな。
タブリボンとか使いづらそうだよね。

>>29
シートの左上、[ A ]の左の白い▲をクリックして全選択したあとAを右クリック→列の幅

>>31
いや2007では右クリだめだってことで聞いてるんでしょ。
ぐぐったけど2007はリボン（？）の書式から列の幅を選択するしかないっぽいな。

ありがとうございます。
昔みたいに、マウスを使わずにキーボードだけでの完結はできなさそうですね。
2003を使用したいですが、会社が2007になるので慣れなきゃ…。
泣きそうです。
ﾌﾛｰﾁｬｰﾄも描きたいのですが、効率よく作業するため、
分岐や帳票の図をﾕｰｻﾞｰﾂ-ﾙﾊﾞｰ上に登録したいと思っています。
その機能は2007に残っているでしょうか。

>>31
あ、ごめん。右クリできるのね。すまんかった。

マクロを自作してショートカット登録すればいいんじゃね？

>>35
そ…そうですね。
2007は2003よりかなり不便になったのでしょうか。
改悪という印象しかないですが、大きな改善点があるのでしょうね。

Altキーも使えないの？

ユーザー設定ツールバーに「列の幅」を登録すれば、Alt+数字で実行できる。
数字は環境によって違う。Altだけを押してみればチップで数字が表示される。

シートのプロパティからStandardWidthを変更すれば全セルの幅が一気に変わる。
プロパティを出すショートカットはAlt、L、L。

実は2007、見た目以外の改悪はほとんど無い
だが見た目があまりにもひどすぎて
かくいう俺も2003に戻してるわ。使いにくすぎるわ・・

>>37
altとｶｰｿﾙｷｰで、列幅調整にたどることができるけど、ﾌｫﾝﾄを選ぶﾎﾞｯｸｽにｶｰｿﾙが行ってしまったらやり直しになる…

2003ではｵｰﾄｼｪｲﾌﾟの個々の図形をﾕｰｻﾞｰ設定ﾂｰﾙﾊﾞｰに置くことができたけど、
2007は無理(-_-;)？

>>42
たいていの物は置けると思うけど

>>43
ﾕｰｻﾞｰ設定ﾂｰﾙﾊﾞｰの編集を試みたけど、特定の図形だけを乗せるやり方がワカリマセン。

>>40
> 実は2007、見た目以外の改悪はほとんど無い
正しくは「見た目」ではなく「インターフェイス(GUI)」ね
「見た目」だけなら気にしない人も多いだろうが
GUIソフトで一番重要な「インターフェイス(GUI)」の改悪とあっては看過できない

>>18
教えて頂いた意味が分かり、ちゃんと出来ました。
しかし教えて頂いた方法では、数式が無くなってしまい値のみに
なってしまうと都合が悪いです。

そこで数式を残しながら値を編集する事は不可能なのでしょうか？

なぜ数式が必要かと言いますと、翌月のシートを作る際に先頭のセルに5月1日と
打ち込むと後は一気に5月31日までのセルが出来上がります。
この出来上がったセルに後は実際の稼働時間を打ち込み編集したいわけです。
不躾ながら教えていただけないでしょうか

>>46
数式を残しながら値を編集するには
=SUM(A1+1)　+1
など数式の最後に数式を追加

数式を残すなら
b2やA3等に数式をコピーし、それを編集する

コメントを追加し、そこに数式を保存という方法もある

じゃなきゃメモにでも書いとけ

Ctrl+1の機能が残っていて助かったけど、ｵｰﾄｼｪｲﾌﾟがめんどくせぇ…。
今日からﾌﾛｰﾁｬｰﾄを書かなきゃいけないんだけど、ﾏｳｽでｵﾌﾞｼﾞｪｸﾄを配置するにも動きが遅いよ…。ﾂｰﾙﾊﾞｰにもﾊﾞﾗで登録できないし。ｽﾄﾚｽでﾊｹﾞそう。

フローチャートとコネクタは使ってる?
そんなに面倒でもないと思うんだがなぁ

>>49
2003まではｻｸｻｸできたけど、2007からは動きが遅くなった
(-_-;)。

そうなのか、それはスマンかった

GMT標準時刻で渡されるデータがあるのですが、これを日本時間に変換したいです。
日本はGMT+9なので9時間進めた日時時間にするにはどうすればいいでしょうか？

表示形式は下記のようにしたいです。
GMT時間 　　 日本時間
2009/04/09 00:15　　　　 2009/04/09 09:15

=A1+"9:00:00"

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

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

売上の集計表の本となるデータを作っていますが、関数で↓の計算式を
教えて下さい。

今日の日付（ファイルを開いた日）が2008/2/21〜2009/2/20でA1の値が
１・200603〜200702の場合は「前々期」と表示
２・200703〜200802の場合は　「前期」と表示
３・200803〜200902の場合は　「当期」と表示
４・いずれも該当がない場合は「該当無」と表示
と表示したいのですが、式を教えて下さい
また期が変わる都度１〜３の値を変更しなければならないと思うのですが
この部分も自動で繰り上がるように出来ないでしょうか？

>>55
VLOOKUPで、表示も繰り上げも解決する

>>56
VLOOKUPの使い方は多少わかりますが
具体的な使い方を教えて下さい。

>>55
西暦を調べるんじゃなくて「今日から何年前か」を計算すれば、いちいち式を書き換える必要はなくなる。
=LOOKUP(YEAR(DATE(YEAR(TODAY()),MONTH(TODAY())-2,DAY(TODAY())))-YEAR(DATE(YEAR(A1),MONTH(A1)-2,DAY(A1))),{0,1,2,3;"当期","前期","前々期","該当無"})

ごめん。↑の式は年度の区切りを3月1日で作っちゃったから、DAYの方も引き算しといてね。

>>58
ありがとうございます、発想の転換ですね（使ったことのない関数の山ですが）(^_^;)
貼り付けてみます。

>>55
B1=VLOOKUP(DATE(LEFT(A1,4),RIGHT(A1,2)+1,0),C1:D6,2,TRUE)
C1=DATE(-3+YEAR(NOW())+(MONTH(NOW())>2),2,21)
C2=DATE(-2+YEAR(NOW())+(MONTH(NOW())>2),2,20)
C3=DATE(-2+YEAR(NOW())+(MONTH(NOW())>2),2,21)
C4=DATE(-1+YEAR(NOW())+(MONTH(NOW())>2),2,20)
C5=DATE(-1+YEAR(NOW())+(MONTH(NOW())>2),2,21)
C6=DATE(YEAR(NOW())+(MONTH(NOW())>2),2,20)
D1,D2=前々期
D3,D4=前期
D5,D6=当期

でうまくいくか?
と思ったら既に解決済みすか・・

>>58
すみません、貼り付けてみましたが計算できませんでした
>>59
式がわかりません、式を組み立てて頂けますか？
>>61
これはどう使えば良いのですか？

>>62
ファイルを開いた日の区切りは2/21で年度の区切りは3/1？

>>63
おっしゃる通りです。
自分でも気づきませんでした

>>64
>>63の仕様でいいんなら
=LOOKUP(YEAR(TODAY()-51)-YEAR(DATE(YEAR(A1),MONTH(A1)-2,DAY(A1))),{0,1,2,3;"当期","前期","前々期","該当無"})

>55
=CHOOSE(YEAR(TODAY()-51)-YEAR(A1-51)+1,"当期","前期","前々期")

区切りが３月１日以降の時は、年末までの日数を足す。

>>66
3年以上前がエラー

>>65
度々申し訳ありません
A1に「200703」が入っていますが「#N/A」が表示されます

>>68
=LOOKUP(YEAR(TODAY()-51)-YEAR(DATE(LEFT(A3,4),RIGHT(A3,2)-2,1)),{0,1,2,3;"当期","前期","前々期","該当無"})

A1には年と月で日は入らないんか

訂正
=LOOKUP(YEAR(TODAY()-51)-YEAR(DATE(LEFT(A1,4),RIGHT(A1,2)-2,1)),{0,1,2,3;"当期","前期","前々期","該当無"})

>>67
リストを下に一行ずらして
B1=VLOOKUP(DATE(LEFT(A1,4),RIGHT(A1,2)+1,0),C1:D8,2,TRUE)
C1=1900/1/1
C8=DATE(YEAR(NOW())+(MONTH(NOW())>2),2,21)
D1,D8=該当無
でいいかな

>>皆様
ありがとうございました、御蔭さまで今後の仕事が楽になりましたm(-_-)m

=LOOKUP(YEAR(TODAY()-51)-LEFT(A1,4)+(MOD(A1,100)<3),{0,1,2,3;"当期","前期","前々期","該当無"})

あ、もう終わってたのか

この手のはいろいろ解法があって、いかにスマートに式を
短くできるかってのも楽しみの一つだからな。

回答者の回答を見てやっと質問の意味を理解できた
こんな自分が悲しい

> いかにスマートに式を
> 短くできるか
初心者は式の短さに目がいきがちだが
業務では読解性の方が重要だったりする

他の人が見ても、その式が何をしているのか理解しやすくないと
独りよがりその場限りで業務としての継続性が無くなるからな

↑
理解できるだけマシ
もれはサッパリわかんないんだぜｗ

？

>>77にレスしたんだが・・・＿|￣|○

消費税の式は合計×0.05としていますが
Excel2003使用です。

合計が30円のときの消費税あわせた合計は31円・32円
どちらになるのでしょうか？

また、合計欄に2.365円の円をつけたい場合は
どうしたら良いでしょうか？

初歩質問すみません
お願いします

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


5個横に並んだセルに1〜12の数字を入れていって、6個目のセルに5個のセルの合計を出しています。
その時に、「1〜12の数字で10以上になるものは切り捨てて合計」というのはできないでしょうか？
例として「5・5・1・12・11」と入ると合計は34ですが上限を10にしたいので「5・5・1・10・10」の結果にしたいです。
でもセルに入る数字は10までではなく12まで入らないといけないので困ってます。

解決しました＾＾
ただ、SUMで合計した欄に「円」をつけるのが
わからないです・・・。

>>84
消費税を四捨五入するか切捨てるかは
Excelで計算させたらこうなったとかいう問題じゃなくて
事業者の方針で決める事だけど、その辺分かってるのかな。

あと、表示上は32となってても内部的に31.5だとすると
合計したときに誤差が累積して結果が間違うから
ROUNDやROUNDDOWN関数で四捨五入や切捨ての処理を行ったほうがいいよ。

表示形式をユーザー定義 #,##0"円"

>>83
頭悪いならやりたいことは1つ1つクリアしていく癖を付けろ

×
「1〜12の数字で10以上になるものは切り捨てて合計」

○
「数字が10超なら10、それ以下なら数字をそのまま返す」
「返された値を合計する」


分けて考えれば1つ1つはなんら難しいことではない
5個並んだセルがA1:E1なら、

A2=IF(A1>10,10,A1)
をE2までフィルコピーして
F2=SUM(A2:E2)

たったこれだけ
これが出来れば、作業セル無しの式にまとめるのも簡単だ

>>87
自分の日本語がおかしくてすいませんでした。
そして回答ありがとうございます。

その数式なら自分もわかるんですが、下のA2に書くしかないですか？
下にも数字が入っていくので、出来れば下に書きたくなかったんです。
「表示しない」で消せば良いのであまり問題はないんですけど、他に方法あるのかと
思って質問しました。でもこれしかないならこれでやろうと思います。
ありがとうございました。

「これが出来れば、作業セル無しの式にまとめるのも簡単だ」

簡単ではないらしい

>>88

>>87じゃないけど、「関数のネスト」ってわかる？
SUM関数で指定するのはなにもセル番地じゃなくてもいい。
if関数そのものを指定してしまえば、作業セル無しで出来るよ。
・・・正直ブサイクな式だとは思うけど。

=SUM(IF(A1>10,10,A1),IF(B1>10,10,B1),IF(C1>10,10,C1),IF(D1>10,10,D1),IF(E1>10,10,E1))

>>90
わかります。
後出しで申し訳ないんですが、横に並ぶセルが5個の場合〜30個までの場合があって、
そのやり方だと5個の場合ならいいんですけど30個だと「SUM(IF(A1>10,10,A1)〜･･･」が
30個続いてしまうので、合計の数式でなんとかできないかと思ったんです。

>>47
ちゃんと教えてくれてありがとう御座います。
また検索して調べながらやってみます。

>>88
> 自分の日本語がおかしくてすいませんでした。
日本語がおかしいんじゃなくて、必要な情報を出してないだけだろ。
所謂「情報後出し厨氏ね」ってやつですな。

そして更に>>91で後出し。

配列数式で解決するが、度重なる後出しで式を書いてやる気は失せたので自分で調べろ。

×書いてやる気は失せた
○書けない

=SUMPRODUCT((A1:E1<10)*(A1:E1)+(A1:E1>=10)*10)
とか

残念、ハズレ

書けなかったら、配列数式で解決するか否かすら解らないぜ。

先生うぜえな

（´-`）.｡oO（ この子、いきなんりどうしたんだろう？ ）

>>93
まぁまぁ落ち着けｗ

>>91
最初に>>83で「5個横に並んだ」って言ったなら、回答する人はそれを基準に
考えると思うので、次からは気をつけたほうがいいと思います。
この程度の質問なら手間もかからないだろうけど、VBAでいちいち構文書いた
あとに後出し情報出されたら、おこる人の気持ちもわかるし。

てか、俺が>>90で書いたとおりの式で、30個であろうが出来ると思うけど。
ブサイクだけどねｗ
配列がわからない人にやり方教えても理解できないだろうと思ったのであの
方法書いたけど、とりあえず答えだしとくんで、あとで「配列」は勉強したほうが
いいですよ。

=SUM(IF(A1:E1>10,10,A1:E1)

この式をF1に入力したあと、「CTRL」「SHIFT」をおしたまま「ENTER」をおして確定。

すると式が
{=SUM(IF(A1:E1>10,10,A1:E1))}
となり、期待通りの答えが出ると思う。

つーか、配列数式の存在知っていて、これほど率直に書くだけで解決する
配列数式が書けないとか有り得ねーだろw
94はどういう頭してるんだ?

書き忘れ。

ttp://pc.nikkeibp.co.jp/pc21/special/hr/

こことか見たら配列はわかりやすいです。

煽ってみれば書いて貰えるとでも思ったんじゃないの？
結果的には煽りのは載ってくれなかったけど、別の先生が答えてくれたから結果オーライでしょ。

馬鹿しか答えたがらないんだろ

後出し後出し言うけど
あらかじめ全ての条件を完璧に出せる程度の頭を持ってる健常者は
２ｃｈなんかで質問しないでググって5分で解決してるよ。

お前らボケてる爺さんに向かって「さっきも同じこと聞いたけど」と冷たくあしらうような事やめてやれよ。
可哀想な人には優しく接してやるのが普通の人間てもんだ。

大人の対応に涙

自分が最後にレスしたのは>>91だけで後は書いてないです。
ID出ないので、嘘だと思われてもしょうがいないですが…。

>>93>>99
本当にありがとうございました。
もっと勉強してみます。

>>104
ボケてる爺さん(努力ではどうしようもない)ではなく
怠惰なガキ(努力してないだけ)だから
冷たくあしらわれるんだろ

お前らひどい事平気で言ってるなｗ
さすが２ｃｈだぜｗ

クソの役にもたたない先生様は
チラシの裏に「ボクは偉いです」って好きなだけ書いてろ

>>109
とりあえず落ち着け

カッカしてるとageとsageの使い分け間違うぞ

掲示板を情報源として利用している第三者からすると
余計な啓蒙や煽りは当人の自己満足のゴミカスでしか無いんだけどな。
知ってるなら答え書けばいいし、知らないなら何もレスしなくていいよ目ざわりなだけだから。

無用な情報(雑談や罵倒など)があったり、必要な情報がまとまってなかったりするから
「情報源」であるのに無料で利用できるんだろ。
君は2chを情報源として利用するには些か早すぎるようだ。
必要な情報だけが都合良く纏まってるものが欲しいなら解説書でも買え。

無料かどうかは別に関係ないだろｗ

喧嘩は〜やめ〜て〜⊂(´･ω･｀)⊃

>>113
無料で利用できる情報は、都合良く纏まってるとは限らないという話だよ

>>86
できたっ！
ありがとうございます(´∀｀*)ﾎﾟｯ

>>115
都合良く纏まってるとは限らないからといって
それに対して文句を言っちゃいけない事は無いだろ。
ひろゆきが「都合よく纏めるな」とでも利用規約を決めてるならそれに従うしかないが。

何言ってんだこいつ

>>117
なんか言ってる事の意味が理解できないｗｗｗ

>>115は「無料だから纏まってなくても仕方ない」といってるだけで、
別に「纏まってない事に文句言うな」なんていってないと思うがｗ
で、文句を言う事でさらに纏まらなくなっていくというｗｗｗ

2chはこういうもんだから気に入らなければ来なけりゃいい
は正論だけどつまんないよな。

>>117
誰も文句を言うこと自体をどうこうは言ってないじゃん。

それにまとまってないことに対して文句を言う自由が有るなら
まとまってないことに文句言ってる奴に文句言う自由もあるわけだな。
そして更にそれに対して・・・と永久ループ。

ぶっちゃけ>>117自身もが、まとまりの無さに一役買ってるわけだ。

Excelに関する情報が含まれてればどんな雑多な内容でもまとまってなくても構わないが
「知ってるけど書かない」みたいな女の腐ったようなExcelオタクの下らない自己漫レスはｲﾗﾈ
という事です。

>>122のような書き込みこそｲﾗﾈ

>>122
ただまあ、気持ちはわからないことはないよ、俺は。
「自分が時間と金と労力をかけて身に付けた知識を、
ただ数行の書込だけで手に入れようとするのか」って
思いがあるんじゃね？

俺の場合は「自分が解答する事で、自分の勉強にもなるし、
逆に自分が中途半端な知識しかない事も思い知らされる」
ことが多いから、自分自身のために解答するようにしてるけど。

ま、質問がなければ解答者も必要ないんだから、五分五分なはずだけどなｗ

>>122
> 知ってるけど書かない
それだけなら確かに要らないが、>>93みたいに
「この機能で解決するが、具体的な使い方は自分で調べろ」的なのはちゃんと情報になってるよ

得にくだ質とかじゃなければ、質問者にもある程度考えさせるのは重要なことだから
後出しが無かったとしても、配列数式で解決することと配列数式の解説サイト紹介くらいが丁度良い

それにしても「配列数式で出来るから自分で調べろ」ぐらいにしとけば
こんなに荒れなかっただろうになあ・・・

そうでもないか

2007でｷｰﾎﾞｰﾄﾞのみの操作で改ﾍﾟｰｼﾞﾌﾟﾚﾋﾞｭｰを出すにはどうしたらいいでしょうか…。
改ﾍﾟｰｼﾞﾌﾟﾚﾋﾞｭｰすらまだ居場所が分かっていませんが
(-_-;)。

>>128
Alt　W　I

スレ違いになるかもしれん
会社でoffice2000使っていて、俺はoffice2003を使っていたが
このたび　エクセル6万行以上使えるって事でoffice2007購入してしまった

エクセル2003とエクセル2007の併用ってできますか？

>>130
できるよ。2003→2007の順でインストールすればおｋ

まただ
回答を見てから質問の意味に気づく
同じパソコンでの併用ってことだったのね
こんな自分が悲しい

ここはお前の日記帳じゃない

Wordのコメントが削除できない

（Word バージョン2000）
他の人（バージョンは2000でないかもしれません）が入力したコメントを削除したいのですが、
右クリックの「コメントを削除」をクリックしても削除することができません。黄色くハイライトされたままになってしまいます。
また、できれば一つの文書でたくさんのコメントを一度に削除したいのですが。
バージョンが低いためにできないのでしょうか？
ご存知の方、教えていただきますようお願いします。

ここExcelですお(;ﾟдﾟ)ｧ

Excel2007なんだけど
バルーンヘルプが表示されない
表示させるようにするにはどうすれば？

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

5万円という値を万円を数値にできますか？
つまり5万円→50000

元データをWEBクエリで取り込んでいるので、入力してあるセルの書式を変更してもなかなかうまくいきません。。。
宜しくお願いします。

>>136
オプションの基本設定でポップヒントのスタイル変更できるからそれ変えればいいんじゃね？

=VALUE(SUBSTITUTE(SUBSTITUTE(A1,"万",""),"円",""))

でできました。お騒がせしました。

>>131
ありがとう
早速インストールします

>>132
５W１Hが欠けていた私の質問の仕方が悪かった思います。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 一塊，段落，区切り，並び替え

並び替えの機能を活用したいのですが，上手く行かないのでアドバイスをください。
例えば，A1に「名前」・B1に「番号」と入力して，そのすぐ下のA2/B2からA5/B5まで名前や数値を入力していきます。
その後，A1やB1をクリックして並び替えをすると，入力した名前や数値はソートされます。
ところが，さらにその下（A6/B6）にも「名前」や「番号」と入力し，
A7/B7以降に名前や数値を入れても，A1をソートするとグシャグシャなってしまいます。
私は，A1をソートするとA2〜A5が，A6を押すとA7〜A12と，それぞれ別にソートしたいのです。
A1：A6とA7:A12を独立させればいいのでしょうが，どうすればできるのかわかりません。
ご教示お願いします。

すいません，一行開けたら別々にソートできましました
勝手に脳みそが熱暴走してたみたい。
書き込んで，冷静になったら気づきました。
すんませんでした

>>142
俺は超初心者でやってることがよく分からなかった
どんなことが出来るようになったかUPしてくれたら嬉しい

http://www.axfc.net/uploader/　UPローダ　頼みます

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

保存しておいたはずの数式が消えてなくなり値だけが残ります。
以下が
設定した数式です。

セルA1=IF(TOP!$C$11="","",VLOOKUP(TOP!$C$11,別シート!$A$4:別シート!$BL$200,3,0))
セルA2=IF(TOP!$C$11="","",VLOOKUP(TOP!$C$11,別シート!$A$4:別シート!$BL$200,4,0))
セルA3=IF(TOP!$C$11="","",VLOOKUP(TOP!$C$11,別シート!$A$4:別シート!$BL$200,5,0))
セルA4=IF(TOP!$C$11="","",VLOOKUP(TOP!$C$11,別シート!$A$4:別シート!$BL$200,6,0))
セルA5=IF(TOP!$C$11="","",VLOOKUP(TOP!$C$11,別シート!$A$4:別シート!$BL$200,7,0))
セルA6=IF(TOP!$C$11="","",VLOOKUP(TOP!$C$11,別シート!$A$4:別シート!$BL$200,8,0))
セルA7=IF(TOP!$C$11="","",VLOOKUP(TOP!$C$11,別シート!$A$4:別シート!$BL$200,9,0))
セルA8=IF(TOP!$C$11="","",VLOOKUP(TOP!$C$11,別シート!$A$4:別シート!$BL$200,10,0))

例えばセルC11が""になったときにA1は数式でなく0（非表示）になってしまうんです。
ただ、A1からA8までのすべてのセルではなく特定のセルだけは数式が残ったままです。
考えられる原因はありますでしょうか？

つ 変なマクロが動いてる

>>145
やってみましたが、マクロを無効にしてセルC11を""にしても結果は同じです。

146=144です。すいません。

ブックうp

>>143
http://www1.axfc.net/uploader/File/so/21133.zip
前半と後半にある単位数や科目群を並べ替えたかった
でも最初は隙間を空けず羅列していたから上手く行かず
C列の単位数を押すと前半後半関係なくソートされていた
そこで小計と共に空白の行を挟んだら，空白以上以下を区別してソートしてくれるようになった。
なんか凄く単純なことでした。スレ汚しすいませんでした。

>>144
そのブックに特有の現象？
それとも新規にブック作成して同様の式を入れて同じ現象が起こる？

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

やってみたらこのブック特有の現象みたいでした。
他のブックにコピーしたらなんともありません。
まあコピーすればよいので、おかげさまで解決はするっぽいですが原因はいったい何なんでしょうか・・・
他のブックにコピーして少し様子を見てみます。

>>149
いい物見た。すごい

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

　　　A列　　B列　　C列
　　　条件1　条件2　数値
行1　　1　　　4　　　100
行2　空白　　 6　　　200
行3　　3　　　6　　　300
行4　空白　　 2　　　400
行5　　8　　　6　　　500

以上のような表の状態で、

1.条件1に1以上の数値が入力されている（空白は空白セルです）
2.条件2に6の数字が入力されている
3.2つの条件が一致したC列の数値の合計を求める

この場合の該当するセルは
1.A1 A3 A5
2.B2 B3 B5
3.C3 C5

求める合計としてはC3+C5で800です

以上の2つの条件に一致した数値の合計を求めたいのですが、
どのような関数を使用したらよろしいでしょうか？

条件1や2だけでしたらSUMIF関数で問題ないのですが、２つの条件が
重なった場合の関数の組み合わせがわからなかったので、どうか
皆さんの知恵を貸していただきたいのですが、よろしくお願いいたします。

作業列ってしってる？

>>153
2003じゃ配列数式かなあ
=SUM((A1:A5>0)*(B1:B5=6)*(C1:C5))で[ctrl]+[shift]+[enter]

お、かぶったか
そだね。作業列使った方がわかりやすいかな

そんじゃ作業列使って、1つずつ条件をクリアしていく方法

・1.
D1==ISNUMBER(A1)

・2.
E1=B1=6

・3.
F1=AND(D1,E1)

・合計
=SUMIF(F1:F5,TRUE,C1:C5)

横から作業列ってどうやって作るの？

縦からなら作れるの？

>>157
d列が0や-1じゃダメだろ

作業列って言ったら普通D列使うんじゃないの？
D1　=if(and(A1>=1,B1=6),C1,"")
程度の。で、D列合計。

解ってる奴(ここに質問に来ない奴)ならそれで良い
解ってない奴には、ネストせず1つ1つの処理が返した値を確認させた方が良い

>>162
('A`)y-ﾏﾝﾄﾞｸｾｰ

そりゃー解ってる奴から見れば面倒なのは当然だな

="あ">1
なぜこれがTRUEになるのでしょうか？

比較演算では両辺共に数値として解釈できない場合は文字コードで比較する
そして「あ」の文字コードの方が「1」の文字コードより大きいから

ありがとうございました

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】　いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 相関、回帰直線、傾き、slope、切片0

2種の値の相関を取るとき、散布図のグラフを作成して、回帰直線を表示し、
式を表示して、切片を0とすると、y=mxという式が表示されますが、
このときのmの値を関数で得ることはできますか？

切片を指定しない場合は、slope関数によってmの値を得られますが、
指定する場合はどうすればいいのかわかりません。
ｘとｙの値の配列に、それぞれ0を付け加えてみましたがやはりダメでした。

今は、グラフを作成して回帰直線と式を表示して、そこに表示される値をコピペして使ってます。
他に方法がないなら、次はこの値を自動でコピペする方法とか（VBA？）を考えますが
まずは関数で解決できるならそうしたいです。
よろしくお願いします。

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

オートシェイプの基本図形(b)の大かっこのコレクション名を教えてください。

現在ﾏｸﾛでLINEで描かれたシェイプはActiveSheet.Lines.Deleteで削除しています。
シートには他に作ったボタンやシェイプで描いた四角などがあり、大かっこのみを
削除するためです。

あげてみる

ごめんなさい

大かっこのコレクション名 →オブジェクト名

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

Excel2000ですが、シートを挿入すると、
シート3の手前にシート４が入ってしまいます。
これを数字通り並べ替えるのはどうするのでしょうか？

>>172
シートの見出しのところをクリックしてドラッグして右側に持ってくる

>>169
ActiveSheet.Shapes.AddShape(msoShapeDoubleBracket, 114#, 159.75, 118.5, _
76.5).Select
マクロの記録しなよ

>>173
ありがとうございました。
一度それ試したけどできなかったので諦めちゃったんだけど、
今やったらできました。面倒ですね・・・orz

ｻｰﾊﾞｰの共有ﾌｫﾙﾀﾞ内にExcelの顧客管理台帳を置いています。
その中で郵便番号による住所入力支援を使用していますが、
市町村合併による住所の名称変更を常に最新の状態で反映させるには、手動でﾃﾞｰﾀをﾀﾞｳﾝﾛｰﾄﾞしなければならないでしょうか。
また、このﾀﾞｳﾝﾛｰﾄﾞはｻｰﾊﾞｰのみに行えばよいのでしょうか？
よろしくお願いします。

　　　　A　　　　　　　B　　　　　　　C　　　　　　　D　　　　　　　E
1　　　節　　　　　チーム 　　　　得点　　　　　失点　　　　　対戦相手
2　　　 1　　　　　　鹿島　　　　　　 2　　　　　　　0　　　　　　　浦和
3　　 　1　　　　　　大宮　　　　　　 0　　　　　　　0　　　　　　　清水
4　　　 1　　　　　　F東京　　　　　 1　　　　　　　4　　　　　　　新潟
5　　　 1　　　　　　名古屋　　　　　3　　　　　　　2　　　　　　　大分
6　　　 2　　　　　　浦和　　　　　　 3　　　　　　　1　　　　　　　F東京
7　　　 2　　　　　　清水　　　　　　 0　　　　　　　1　　　　　　　名古屋
8　　　 2　　　　　　新潟　　　　　　 2　　　　　　　1　　　　　　　鹿島
9　　　 2　　　　　　大分　　　　　　 1　　　　　　　0　　　　　　　大宮
10　　. 3　　　　　　鹿島　　　　　　 1　　　　　　　0　　　　　　　大宮
11　　. 3　　　　　　F東京　　　　　 0　　　　　　　2　　　　　　　清水
12　　. 3　　　　　　新潟　　　　　　 1　　　　　　　1　　　　　　　大分
13　　. 3　　　　　　名古屋　　　　　3　　　　　　　1　　　　　　　浦和

上の表で、B列の特定チーム（たとえば鹿島）の「得点」の合計を欲しいのですが、
どうすればいいのでしょうか？

SUMIF

>>177
=SUMIF($B$1:$B$13,"鹿島",$C$1:$C$13)

>>178
どもです。
=SUMIF(B1:B100,"鹿島",C1:C100)
としたらできました。

>>179
ありがとうございます。絶対指定のほうがいいですかね？

この形の表をベースにして、
最新節時点での各チーム勝敗数とか総得点総失点とか色々派生させたいのですが
EXCELは難しいですね。＼(＾o＾)／ｱｷﾗﾒﾏｽ

>>181
どっちでもいいけど、下や横にフィルハンドルでコピペすると範囲がずれるからさ。
1個しか入れないなら>>180のでいいよ。

>>181に書いてるのも多分そんな難しいことしなくてできるような事だと思うけど、
いかんせん、サッカーの知識に乏しいので何がしたいのか具体的によく分からないｗ
諦めることはないと思うよ。やりたい事があるほうが上達も早いよ。

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

エクセルのシートの中にオブジェが大量にちりばめられている状態で
これを全て削除するにはどうしたらよいのですか？
４００くらいのオブジェがあって一個一個デリートすると結構な時間がかかってしまいます。

>>183
編集→ジャンプ→セルの選択→オブジェクトにチェック→OK→デリート

仕事に役立つソフトがいろいろあります
http://www.hhyyhh22.co.nr

【1 OSの種類 　 　 　 　 .】 WindowsXP Pro
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　グラフをまとめる

複数の表を一つのグラフで表現するには
どのようにすればよいでしょうか？

例）
Ｎ社製品
・条件A　: CPU 消費 aaa - 性能 ooo
・条件B　: CPU 消費 bbb - 性能 ppp

Ｆ社製品
・条件A　: CPU 消費 ccc - 性能 qqq
・条件B　: CPU 消費 ddd - 性能 rrr

「製品」毎の結果を二軸グラフにして、
それを一つのグラフの中に並べたい、
という意図になります。

>>185
ゴミばっかだな

>>186
複数の表を選択した状態でグラフ

>>181
得失点で勝ち負け引き分けを出した作業列とピボットテーブル。
もしかしたら作業列なしでも出来るかも知らんが俺は知らない。

>181
オートフィルタかけてSUBTOTAL使えばいいんじゃない

>>168
俺が得意な数学ｷﾀｰ
とりあえずbookをUPして

レスしてくれた方々、ありがとうございました。
大変参考になりました。
他にもSUMPRODUCT関数を使う方法もあるらしいので
いろいろ試してみます。

>>168
LINEST 関数

>>193
切片０なら一発
切片がたとえば2固定なら、与える(x,y)の数字からyの部分を
すべて2引いた組み合わせ使えばオケ

>>191
うｐしてみました（データは適当なのであまり例として良くないですが）
http://www1.axfc.net/uploader/File/so/21211.xls

>>193
Linest関数は、調べると色々出てくるのですが、いまひとつ使い方がわかりません。
今回の場合どうすればよいか、具体的に教えていただけると助かります。

>>194
切片0なら一発、とはどういうことでしょうか？
切片が2なら2を引くということは、切片0なら0を引く…ということになりますが意味が無いですよね？
理解力に乏しくて申し訳ありません…

>>194
ああ、すみません、アンカーを見間違えてました。
>>193の説明が>>194ということですよね？
ちょっと試しにやってみますが、理解できなくてまた質問するかもしれません。

>>193-194
ありがとうございます！
=LINEST(yの範囲,xの範囲,0,0)　でできました。

しかし、この関数のヘルプを見ると、配列で入力するようにとあり、戻り値も配列となっていますが、
この式の入ったセルには、傾きmしか表示されていませんが、
もう一つの戻り値も表示するにはどうすればよいのでしょうか？

また、この式を別の式にネストしたい場合、例えばA1に別のxの値が入っていてそのxからyの値を求めたい場合、
=A1*LINEST(〜)　というような式を作ってよいのでしょうか？
この場合は切片が0ですからいいですが、切片が0でないときはどうなるんでしょうか？

質問に質問を重ねてしまい申し訳ありませんが、よろしければご教授ください。

先日エクセル2003が入っているPCに2007もインストールしました。
>>195でファイルをDLしたけど、
エクセル2007で見るとグラフとか形が崩れるね。

しかもエクセル2007が標準で起動するようになってる。
緩やかに移行しようと思ったのに、

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


現在　ファイルをダブルクリックすると2007がデフォルトで起動します。
2003をデフォルトにする方法を教えてください

>>198
それはエクセルじゃなくてWindowsの問題なんでは…
拡張子の関連付けを2007から2003に変更すればいいだけでしょ。

>>198
xlsファイルを右クリック→プログラムから開く→プログラムの選択→Excel2003を選ぶ→
いつもこのプログラムを使う、にチェックしてOK

>>188
ありがとうです。さっそく試したのですが、
意図するものができませんでした…。

意図を正しく伝えられている自信がないのですが、
片方のグラフに対してもう一方を系列として追加するというより、
同じx/y軸＆複数の共通の系列を持ついくつかのグラフを
一つのグラフの中で横に並んでいるように見せたい
（y軸は共通、x軸の要素は元のグラフの数だけ繰り返し）、
複数のグラフを絵的に一つのグラフの中に嵌め込みたい、
ということを実現したいです。

>>201
それなら、複数のグラフを作って、横に並べて、
二つ目以降はy軸の数値を非表示にすればいいだけのことでは？

>>201
こういうこと？
ttp://ura.s2.x-beat.com/src/ar22272.png

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

>>202
背景を透明にすれば割と違和感なく実現できました。
グラフ間の調整で少し手間取りそうですが、
手段としてぜひストックさせていただきます。┏○ﾍﾟｺﾘ

>>203
まさにそれがしたいです。
確認のためにうｐまでありがとうです。

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

Excel で以下の表示をしたいのですが、やり方がわかりませんでした。
ご教授願えないでしょうか？

整数部には桁区切り"," を入れる。
少数は少数点以下も表示し最後のゼロは表示しない。

例)
1,234
1,234.56
0.12345
1,234,567.89

標準にすれば桁区切り"," が入りませんし、数値として
桁区切りと小数点の桁数を指定すると、少数点で指定した桁
まで０が追加されます。

よろしくお願いします。

>>206
ユーザー定義で
#,###.###############################################################
だと惜しいところまで行くんだがなぁ
TEXTとアンパサンドで無理やり作ってみるか

マイナスのときはどうすればいい？

>207
ありがとうございます。
マイナスのケースはないので考えていませんでした。

#,###.###############################################################

に近いことことはやっていたのですが、整数なのに "." がついたり、0未満の
数の最初のゼロがなかったりでうまくいかずに頓挫していました。

1,234.
.12345

#,##0.###############

なら最初のゼロはつく。でも整数でも小数点がつく。

>>208
=1*
IF(A1=0,0,
IF((INT(A1)=A1),TEXT(A1,"#,###"),
IF((1>A1),TEXT(A1,"0.####################"),
TEXT(INT(A1),"#,###")&"."&RIGHT(A1,LEN(A1)-FIND(".",A1)))))

作業列でこれを入力。ユーザー定義じゃ無理かな
2007ならできるかもしれないけどよく知らないや

>209

それは試していませんでした。
大分近づいて来ました。

関数ならこんな感じかな。
=TEXT(A1,IF(MOD(A1,1)=0,"#,##0 ","#,##0.###############"))

>212
ありがとうございます。
希望どおりの結果になりました。

2007が一番簡単だね。
表示形式を#.##0###############としておいて、条件付き書式で「新しいルール」から
「数式を使用して、書式設定するセルを決定」で「次の数式を満たす場合に書式設定」で=A1=INT(A1)とし
書式で表示形式を#,##0とするだけだ。

【1 OSの種類 　 　 　 　 .】 XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ユーザーフォーム　シート書き込み　シート記入

ユーザーフォームでテキストボックス２ことコンボボックス２こ設置してこの値をシート１のA1からD1に書き込みたいのですが、書き込むごとに上書きしていくようにするにはどのように記述したらよいでしょうか？
初心者です。スイマセン。

>>215
こういうこと？
Private Sub TextBox1_Change()
Range("A1").Value = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
Range("B1").Value = TextBox2.Value
End Sub
Private Sub ComboBox1_Change()
Range("C1").Value = ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
Range("D1").Value = ComboBox2.Value
End Sub

>>216
ありがとうございます！
おかげさまでうまくいきました。

WindowsXP　sp2　　Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
シート1で入力、シート2以降は各店の情報にしたい思います。
シート1に
A 　 B 　　　　　C 　　　　D　　　　　E
1　4/15 　 青山店　　あいう　　かきく　　
シート2（青山店)に
　　　A 　　　 B C
1 4/11 たちつ　 なにぬ　　はひふ　　
3 4/12　　
4 4/13 まみむ　やゆよ　　らりる　　
5 4/14　　
6 4/15
7 4/16
シート1に上記のように入力して、シート2以降(この場合は青山店)に反映させるにはどうすればいいですか？
(シート2以降のA列には日付が入っている状態)
流れ的には、
シート1のA1に日付･B1に店舗･C1以降にその日のデータを入力,シート1のB1に該当するシートを選ぶ(この場合はシート2の青山店)
シート1のA1に該当する行を選ぶ(この場合は5),シート2の該当する行に、シート1のC1以降のデータを反映させる
(この場合は、シート1のC1･D1･E1をシート2のB5･C5･D5に)
上記を実際に入力し、それがシート2以降に反映された場合
シート2(青山店)
　　　A B C D 　
1 4/11 たちつ　　なにぬ　　はひふ　　
3 4/12　　
4 4/13　　まみむ 　やゆよ　 　らりる　　
5 4/14　　
6 4/15　　あいう　 　かきく 　さしす
7 4/16
よろしくお願いします。

よくわからんがVLookupでいいんじゃない？

勘違いした。VBAじゃなきゃだめかも。

>>220
VBAでも良いので是非お願いします。

ファイルを１回保存する必要あるけどこれでいけないか？

=IF(RIGHT(CELL("filename",$A$1),LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))=VLOOKUP($A1,シート1!$A:$B,2,0),VLOOKUP($A1,シート1!$A:$E,COLUMN()+1,0),"")

エラー回避は書式設定かISERROR関数をかませる。

ISERROR使うならこうかな。
=IF(ISERROR(VLOOKUP($A1,シート1!$A:$B,2,0)),"",IF(RIGHT(CELL("filename",$A$1),LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))=VLOOKUP($A1,シート1!$A:$B,2,0),VLOOKUP($A1,シート1!$A:$E,COLUMN()+1,0),""))

あの、質問なんですがよろしくお願いします。
今散布図のグラフを作成しているんですが
そのグラフを斜め３０度くらいに傾けたいんですが
そんな事できるんでしょうか？
出来るならどうしたらいいですか？

興味ある

>>197
まずは切片が0の場合を完成させろ。
できたら切片が3の時どうするか考える。
グラフを下に3平行移動すれば切片が0の時と同じだ。
作業列作ってデータのyの値を3引いたものを表示。
それを使えば切片が0の時の式で傾きが求められる。
ある値xに対するyの推定値は、
y ＝ [傾き] × [xの値] ＋ 3
で求められる。

>>226
がいってる数学は高校の数学�Tレベルのだよね。
数学が出来ない人は分からないだろうね。

>>224
傾けるってグラフのx軸y軸も傾けるのか?
それとも軸は傾けずデータだけ傾けるのか?
前者ならグラフを画像にして画像を回転。
後者なら三角関数使ってデータを変換（回転）してからその値をグラフにする。

>>227
中学レベルで分かるだろ

>>229
中学でも分かるけど、中学でやるか（2次関数までやるしね）

ちゃんとLINESTのヘルプを読んだら良いのにね

>>226
ありがとうございました。わかりました。

>>227
大丈夫です。>>226さんの言いたいことは理解できてます。（これでも一応は大学の理学部卒です…）

>>231
すみません。LINESTのヘルプは読んだのですが、
戻り値が配列になっている関数の場合、どうすればよいのか分かりませんでした。
自分で調べて、必要ならINDEXで指定すればよいとわかりました。お騒がせしました。

セル内の文字の並べ替え（ex.べらえかな→ならべかえ）ってどうやるのでしょうか？

>>233
VBAでしこしこやるしかなんじゃない?

>>233
全くの逆順なら

strReverse("ならびかえ")

でいけるんだけどどういう規則で並び替えるの？ランダム？

>>235
ランダムです。

>>236
文字数は何文字か決まってる？

>>237
３文字〜９文字です。

なんにしてもスレ違いじゃね？
表計算と何の関係があるの？

【1 OSの種類 　 　 　 　 .】 XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ユーザーフォーム　閉じる 連続処理

たびたびスイマセン。ユーザーフォームをつくっていてシートに書き込むまではできたんですが、書き込んだ後に続けてフォームを閉じたいんですが、どうしてもできません。

Private Sub Command1_Click()
Range("A1").Value = TextBox1.Value
Range("B1").Value = TextBox2.Value
Range("C1").Value = ComboBox1.Value
Range("D1").Value = ComboBox2.Value
Unload Userform1
End Sub

としてみたんですが。。。
すいませんご教授願えませんでしょうか？

>>238
たぶんVBAが必要

>>240
Private Sub CommandButton1_Click()
なんじゃないか？

>>238
一発でやるのは無理だな。作業列が文字数+1列必要。

>>242
ありがとうございます！！
そのとおりでした。泣
感謝です。

かなり不恰好だけど
A2から最終データ行まで文字列を入力
B1に　=RANK(B2,$B$2:$J$2)　を入力してJ1までオートフィル
B2からJ列の最終データ行まで　=RAND()　をコピペ
K2に　=MID(A2,$B$1,1)&MID(A2,$C$1,1)&MID(A2,$D$1,1)&MID(A2,$E$1,1)&MID(A2,$F$1,1)&MID(A2,$G$1,1)&MID(A2,$H$1,1)&MID(A2,$I$1,1)&MID(A2,$J$1,1)
を入力して最終データ行までオートフィル

>>238
VBAで関数を作ってみた

Function StringRand(s As String) As String
　　Worksheets.Add
　　L = Len(s)
　　Range("A1:A" & L) = "=RAND()"
　　For i = 1 To L
　　　　t = t + Mid(s, Application.WorksheetFunction.Rank(Cells(i, 1), Range("A1:A" & L)), 1)
　　Next
　　StringRand = t
　　Application.DisplayAlerts = False
　　ActiveSheet.Delete
End Function

ワークシート関数として使えなかったのでやり直し

Function StringRand(s As String) As String
　　L = Len(s)
　　Dim c()
　　ReDim c(L)
　　For i = 1 To L
　　　　c(i - 1) = Mid(s, i, 1)
　　Next
　　For i = 1 To L
　　　　a = Int(Rnd() * L)
　　　　b = Int(Rnd() * (L - 1))
　　　　If b >= a Then b = b + 1
　　　　x = c(a): c(a) = c(b): c(b) = x
　　Next
　　For i = 0 To L - 1
　　　　t = t + c(i)
　　Next
　　StringRand = t
End Function

みんなこねくりまわしすぎだよ。
ユーザー定義関数なら普通に下のフィッシャー＆イェーツ法で充分じゃね？

Function StringRand(s As String) As String
　　Dim temp As String
　　Dim i As Long
　　Dim r As Long
　　Application.Volatile
　　For i = Len(s) To 2 Step -1
　　　　r = Int((i * Rnd) + 1)
　　　　temp = Mid(s, i, 1)
　　　　Mid(s, i, 1) = Mid(s, r, 1)
　　　　Mid(s, r, 1) = temp
　　Next
　　StringRand = s
End Function
変数もう一つ使ったりByte配列を使ったりすればもう少しパフォーマンスはよくなると思うけどな。

(i * Rnd)の括弧は要らなかったな。

文法規則上は要らないかも知れないが
コード的には要らないとも言い切れない
括弧が有った方が、明示性、読解性が上がるからね

今回みたいに算術演算のみならまだいいが
算術演算、比較演算、論理演算と織り交ぜて使う場合などは
文法規則上は不要であっても括弧付けした方が直感的に分かりやすいことが多い

それとパフォーマンス気にするなら、Midは関数もステートメントも$付けた方がいいよ

質問です。

エクセルのセルに文字を入力した時、自動で文字の大きさ変わったり、
セルの幅を変えても文字の大きさが自動で変わる設定方法を教えてください。

現在は、文字数が多いと＃＃＃＃＃になってしまいます。

>>250
ステートメントは$は要らないんじゃね？
VB6のスレだったか忘れたが、逆コンパイルだかなんだかしてみたらString型の変数を直に叩いてるだけだから変わらないはずだとかいう書き込みが昔あったよ。
もちろん関数は付けた方がいいのは常識で知ってる。

>>251
文字列なら####にはならないと思うけど、セルの書式設定の配置に「縮小して全体を表示する」ってのがある。

>>250
>>252
dim s as string
dim i as long
dim t1 as single,t2 as single
s = "abcde"
t1 = timer
For i = 1 To 10000000
Mid(s, 1, 1) = Mid(s, 2, 1)
Next
t2 = Timer
Range("a10000").end(xlup).offset(1).value = t2 - t1

こんなんで左辺(ステートメント)や右辺(関数)に$をつけたりつけなかったりの4パターンを15回ほど計測してみがが
たしかに右辺は付けた方が速くなるが左辺は有意差が見られないな。
>>252の言うとおりかも知らん。

>>253

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

>>247
君のはランダムじゃないよ。
元の文字列で残る確率が少し高い。
A2:A10001に"ABCD"として
B2以下に=STRINGRAND(A2)としてピボットテーブルで個数を数えてみりゃ"ABCD"がいつも少し多い。

確率云々もだが出てこないパターンもあるようだね。
4文字なら4*3*2*1の24パターンあるはずだが、>>247のじゃ12パターンしか出てこない。

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

リストボックスを作ってそこに複数列の表示をしたいと思ってますが、うまくいきません。

コントロールの書式設定で
入力範囲　$B$1:$E$100
リンクするセル　C1
ドロップダウンリストの行数10

として現在リストにはB列しか表示されていないんですが、B列〜E列まで表示するにはどうしたらよいでしょうか？

>>258
プロパティからColumnCountを5に汁
どの列の値をとるかはBoundColumnをいじればいい。

>>258
F1=INDEX($B$1:$E$100,MOD(ROW()-1,100)+1,INT((ROW()-1)/100)+1)
をF400まで引っ張って、入力範囲をF1:F400にする

因みにフォームツールのリストボックスでは

B1　　C1　　D1　　E1
B2　　C2　　D2　　E2

という表示は出来ず

B99
B100
C1
C2

となり、数式を使うことで「複数列分のデータ」を表示させることは出来るけど、
「複数列に分けて」表示させることは出来ないので覚えておいてね

コントロールツールの方なら複数列表示自体は出来るが、リストボックスだけで任意の項目選択することは出来ない

フォームのリストボックスだったのか。
道理でコントロールの書式設定に>>258みたいなのがないと思ったよ。
コントロールツールボックス(Active X)のを使うんだな。
ただし>>260が書いてるように選択してるリストからの任意の項目を取り出すことは出来ない。
取り出せるのはBoundColumnで設定した項目だけだ。

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

データをPRN形式（というかスペース区切りテキストファイルであれば.prnである必要はないのですが）
で出力したいのですが、
Excel2003の仕様で、横に長すぎると勝手に改行が入ってしまいます。
改行が入らないようにするには、マクロ等で出力するしかないと思うのですが、マクロが分からないため困っています。
http://support.microsoft.com/kb/249885/ja
↑この情報にあるマクロだと、""が入ったりスペースが合ってなかったりで…

動作としては、Excelの通常のスペース区切りテキストと同じで、
列の幅に応じて空白が挿入されている必要があります。

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

>>259>>260>>261
ありがとうございます。
フォームのを使ってたんですね。
ご指導いただいたようにコントロールツールボックスのリストを使ってみてます。
なんか四苦八苦してますので少ししてまた報告します。

>>262
そのリンク先のマクロ、最初に出る質問はちゃんと読んだ？
訳すと「ダブルクォートを付けて出力するか Yes/No 」なんだけど。
あと、できあがったファイルをワードとかメモ帳で開いてない？
テキストエディタで見ればちゃんと揃ってるよ。

遅くなりました。
つまりリストを選択してLinkedSellに番号を出力したい場合リストボックスの表示にも必然的に番号が入ってしまうということですね・・・
表示しないで行番号を出力できればいいんですが・・・
それと項目ごとの表示の幅とかは調整できないですよね？
いずれにせよありがとうございました。

VBA使えばどうにでもなるけどな
もともとコントロールツールの方はVBAで使うことを想定されてるものだし

>>264
すみません…最初のダイアログは見落としでした。
ただ、出力結果は、確かに揃ってはいるんですが、例えばExcelで列幅を10にしたとき、prnではデータ含めて半角10字分になるようにスペースが入ってくれるのですが、このマクロの出力結果では11字分になってしまいます。
また、数値のようにセル内で右揃えになってる場合、prnでは数字の前にスペースが入りますが、このマクロでは左揃えになってしまって、行の頭の数値の前にスペースが入ってくれません。

このマクロを多少修正すれば上手くいくのでしたら、ご教授いただければと思います。

そういう細かい拘りがあるなら自分で作るしかないよ
頑張って勉強してね

>>268
そうですか…このマクロをどうにかすればできるのか、
それとも一から作らなければならないのか、
それだけでも教えていただけませんか？

そのマクロをどうにかして出来ないこともないが俺だったら一から書くな

>>269
PRNって使ったことないのでよくわからないが
このあたりいじればなんとかならないかな。

Select Case .HorizontalAlignment
Case xlRight
CellText = Space(Abs(ColWidth - Len(.Text))) & .Text
Case xlCenter
CellText = Space(Abs(ColWidth - Len(.Text))/2) & .Text & _
Space(Abs(ColWidth - Len(.Text))/2)
Case Else
CellText = .Text & Space(Abs(ColWidth - Len(.Text)))
End Select

そういえば、Excelで横方向文字揃え(HorizontalAlignment)が自動になってる場合
値が右揃えになってるか左揃えになってるかを取得できるプロパティとかってある？

セルの値が数値の場合は基本的に右揃えになるが、表示形式が文字列になっていれば
セルの値が数値(数字)でも左揃えになるわけで、その辺を総合して判断するしかないのかね？

右寄せ、左寄せ、センタリング、見た目にこだわるとな〜りめんどくさいね。
素人さんには簡単そうに見えるかもしれないけど、実は非常に大変。

俺なら直接出力にこだわらず、まずは名前を付けて保存でHTML形式にするな。
これならいい感じのテキストっぽいファイルができるから、それを整形すれば
一から自分で作るよりかなり簡単になる。

つまり、HTML形式で保存→そのファイルを開いてtdタグのalignをチェックすれば、
右寄せ左寄せセンタリングは一発でわかる。
条件付き書式なんかが設定されていた場合の実際の表示状態もわかるし、
これが一番簡単ではないかと

セル内入れた文字数を変更するときセル内をダブルクリックして修正してましたが
Fキーでできると聞いたのですが、何番になるのでしょうか？

F2
ってか押せよw

>>276
ありがとう
言い訳になるけど
ひとつづつ押したけど
正解がでなかった・・・

最初にF1押したらヘルプ起動してフォーカスがそっちに移り
以後はヘルプビューアにキーが送られるから仕方ないか・・・・・

って、ヘルプ起動してるのにそれ気付かないなんてことあるのか？
しかし他には正解が出ない(F2押しても編集状態にならない)ような状況なんて思いつかないし

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 名前の定義　データの入力規則

aのexcelを元データとして、bのexcelを複数作成します。
aのexcelで名前の定義をし、bのexcelでデータの入力規則を使用してリストボックス
をつくりました。aとbのファイルを同フォルダに入れておくと問題がないのですが、
aの入っているフォルダ内にフォルダを作成し、その中にbのファイルをいれると出来なくなってしまいます。
理由はわかっているのですが、どうやれば出来るのかがわからなくて困ってます。
何か方法があれば教えて下さい。お願いします。

;;;;

>>279
解決しました。
ありがとうございました。

>>281
あんた何番？

　　　　Ａ　　　　　　Ｂ　　　　　　Ｃ
１　　　　　　　　　Ｘ軸　　　　　Ｙ軸　　　　　　
２　　座標１　　　　５　　　　　　　８　　　
３　　座標２　　　　１　　　　　　１５　
４　　座標３　　　１１　　　　　　１９　　

このような三つの座標を頂点とする三角形の面積はどうやって求めたらいいですか？　　　　

それはExcelじゃなく算数の質問だろ

いや、数学だな一応ｗ

>>283
http://www5d.biglobe.ne.jp/~tomoya03/shtml/algorithm/SurfaceArea.htm
sOAB = Abs(x2*y1 - x1*y2) / 2
↑が正しいなら↓の式でいけると思う
=ABS((D$2-B$2+B3)*(E$2-C$2+C4)-(E$2-C$2+C3)*(D$2-B$2+B4))/2
間違ってたらｽﾏﾝ。
>>284-285
雑談もいいけど答えてからにしなよ

答えるのもいいけどD2とかE2ってなによ

ごめんねお父さん作業列使ってそのままだったごめんね
=ABS((-B$2+B3)*(-C$2+C4)-(-C$2+C3)*(-B$2+B4))/2

宿題は自分でさせないとダメだよ

スレ違いに答えて得意満面とかってどんだけゆとりなんだよw
スレ違いだろうと答え貰えりゃ質問者は喜ぶから良いコトしたと勘違いしてるのかも知れないが
場のルールを無視した親切なんて、社会に出たら認めて貰えないぜ

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

A列を重複チェックしようとしています。
セルのデータ型は文字列型ですが、数字が入っています。

=IF(COUNTIF(A:A,A1)>1,"重複","")
のように重複チェックしようとすると、「001」と「1」を同じデータと数えてしまいます。
完全一致のものだけ重複とするには、どんな方法があるでしょうか。

>>286も自分だけで考えたわけじゃなさそうだけど、他の奴らは考える力はからっきしないらしいｗ

そうでもないか

>>291
http://www.efcit.co.jp/cgi-bin2/exqalounge.cgi?print+200808/08080102.txt

>>291
B1に="!"&A1とか入れて下までフィルしてB列の重複チェックをする。

=SUMPRODUCT(($A$1:$A$15=A1)*1)

>>283　ヒントだけ
A　座標１と座標２の距離を求める（ピタゴラスの定理）
B　座標１と座標２の直線の式を作る
C　B.の直線と座標３の距離を計算（点と直線の公式がある　絶対値を取ってね）

あとは　A*C/2　だな　　スレ汚してスマン

>>297だか
内積か外積の和で面積もとめられたな
非効率だったゴメン

>>294->>296
レスありがとうございます。
>>295さんの方法がてっとりばやかったので、それで解決いたしました。

何かの機会にSUMPRODUCTも使ってみようと思います。

Excel2007で図のリンク貼り付けで表とかを別シートにリンクさせると図形が鮮明なときとぼやけてる時があるんですけど、何が原因でぼやけたり鮮明になったりするのでしょうか？

環境：windows vista ultimate
office 2007

エクセルのファイル＞右クリック＞プロパティ＞詳細

詳細の項目に「元の場所」というのがあります
。
複数のエクセルファイルがありますが、「元の場所」の
作成者・前回保存者・会社をいっぺんに変更する方法があれば教えてください。

>>300
誰も答えてないから答えてみる。間違ってるかもしれないけど
例えば丸の図形
図形で書くとベクタデータっつって曲線の集合のデータになり、縮小・拡大をしても角が目立たない
ペイントで一度書き、jpgなんかで読み込むとラスタデータっつってドットの集合になり、角が目立つようになる

ベクタデータのままコピーすれば角が目立たなくなるが、解決方法はその時毎に色々あるから
確実なのはエクセルの上で図形等を書くことだな

>300
100％でなく99％とかにするとましになることがある。
根本的な対策ではなくすまないが。

>>302
ありがとうございました。直接描いてみます
>>303
ましになるって…そんなの解決方法じゃないですよ？

あのさぁ、親切にアドバイスしてくれた人に、その態度はないんじゃない？

>>301
それ系のソフトを使うか、
まとめて選択した状態で、右クリックしてプロパティ開く。
（複数の値）てなるけど変更できるはず。

質問です。エクセル2000のワークシートの切り替えって、
下の小さなタグをクリックするしか方法無いのでしょうか？
ショートカットキーとか、ファンクションキーに割り当てる
ということはできませんか？

Ctrl+PageUp
Ctrl+PageDown

ありがとう！

>>308
横からありがとう

なぜ３００を質問した俺じゃない人が教えてくれたレスにレスしてるんだ・・・？

なぜ３００を質問した俺じゃない人が教えてくれたレスにレスしてるんだ・・・？

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

きれいな水平線を書きたいのですが、挿入＞直線を選んでマウスでかいていますが、どうしても水平に引けません。数ドットずれてしまいます。
うまくひく方法はありませんでしょうか？

>>313
Alt押しながら引く。2007でできるかは知らん。

>>314
ありがとうございます。
すげーたすかりました。かたじけない・・・・・・

>>313
間違えた。Shift押しながら。だ。
Altだとセルの大きさに合わせた図形になる。
Shift押しながらだと正円や正方形もできる。

あ、一足遅かった。けどなんとかなったならいいか。

いやまだいます。
この恩は他社への質問で返すつもりですので。

他社への質問ではなく
他者への回答で返そうな

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ＶＢＡ　一番下の行にコピー

ユーザーフォームでボタンをクリックするとSheet1の1の行からSheet2の一番下の行にコピーするというようにするにはどのようにしたらよろしいでしょうか？
教えていただけませんでしょうか？

Private Sub CommandButton1_Click()
Sheet1.Rows(1).Copy Destination:=Sheet2.Rows(65536)
End Sub

すいません。Sheet1の1の行からSheet2の一番下の行にコピーと書きましたが、Sheet1のB1からE1をSheet2の一番下の行のB1からE1までということでお願いします。

>>321すいません。見てませんでした。有難うございます！！
あとは自分で何とかします。３２２はなかったことでお願いします。

Private Sub CommandButton1_Click()
Sheet1.Rows(1).range("B1:E1").Copy Destination:=Sheet2.Rows(65536).range("B1:E1")
End Sub

>>324
ありがとうございます！！
何とかしようと苦しんでました。助かります。
324さんにいいことがありますように。

会社で定型業務をVBAで楽に出来るようにしてるんですが、
他の営業所にもその書式を水平展開する事になり、メールで
添付して送りました。
ただ、他の営業所はセキュリティが「高」にされているようで、
自分が送ったファイルでマクロがうまく働かないようです。
うまく動かすには、やっぱりセキュリティを下げてもらうしか
方法はないですかね？
デジタル署名はまだ試してないんですが、あれって別のPCでも
効果はあるんですか？

>326
デジタル署名して、他のPCでそれを許可すればいけるよ。
でも、セキュリティ「高」でいけるかどうかは忘れた。
あくまで、「このファイルはマクロを含んでいます〜」みたいな
ファイル開いたときに出てくるのがなくなるだけな気がする。

>>327
ありがとうございます！
自分のいる営業所じゃないんで、出来ればセキュリティはいじらずにすむ方法
がないか考えてたんですが、あらためて明日移行に試してみます。

なぜ３２７を質問した俺じゃない人が教えてくれたレスにレスしてるんだ・・・？

もう一人の君が、君の居眠りしているうちにレスをしたのに違いない。

ggg

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 t検定　数値以外のデータ

excelでt検定をしたいのですが、数値以外のデータがありますと表示され分析することができません。

5

6
7
8
のように数字と数字の間に空白があるのが原因とも考えられましたが、そうでもないようです。

=IF(I15 = 0, "", I15)のように計算式で計算した数値を、形式選択して貼り付けで、値を貼り付けすると、

数値として計算で出された部分はいいのですが、計算して空白""が書かれた部分を、形式を選択して値を貼り付けにすると、
見た目上は普通の空白になっているのに、Excel上ではただの空白として認識されないようです。どうしたらいいのでしょうか？

詳しい方教えていただけませんか？

>>332
""は文字列として扱われる
=IF(I15 = 0, 0, I15)
にする
0で不都合があるなら、
・deleteで消す
・オートフィルタで空白以外にしたあと、コピー(すると非表示の部分は飛ばしてコピーされる)
VBAが使えるなら
式を=IF(I15 = 0, "あああ", I15)
にして↓を実行するとか
Sub Macro1()
Dim aaa
For Each aaa In Range("j:j")
If aaa = "あああ" Then
aaa.ClearContents
End If
Next
End Sub

ただt分析というものをやったことがないのでうまくいくかどうかわからない
上手く行かなかったらまた教えてね

>>332
計算する時に空白のセルを飛ばすかどうかは関数によって違う。
分析ツールのt検定は空白は普通に飛ばしてくれるみたいなんで、
何か別のところでひっかかってる可能性がある。

まずはデータを減らして試してみ。

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

勤務表を作っているのですが、
今までは、例えば9：00から18：30まで勤務した場合は、

出勤　9.0　　←記入
退勤　18.5　　←記入
定時勤務時間　7.0　←自動で出る
残業　1.5　←自動で出る

というように欄を分けて、出勤時刻と退勤時刻を記入すれば時間が出るようなExcelを作っていたのですが、
出勤時刻と退勤時刻を、きちんと時刻を入れるように、と指示がありました。
つまり、

出勤　09：05　　←記入
退勤　18：40　　←記入
定時勤務時間　7.0　←自動で出る
残業　1.5　←自動で出る

というようにしたいのです。
また、この例のように、5分遅刻しても遅刻にはならず、40分まで働いても0.5時間となります。
規定では、45分〜14分までを0とみなし、15分〜44分までは0.5とします。

ややこしくて申し訳ありませんが、どなたかヒントだけでもよろしくお願いいたします。

9：05＝9.0
18：40＝18.5
と変換できれば、これまで使っていたシートを活用できるかとは思うのですが…

遅刻した場合は30分単位?

>>335
30分単位で切り捨てて、2で割ればいいんじゃね？
=INT(時間の入ったセル/"00:30")/2
みたいなかんじ

>>335
1から作るから教えてくれ
>45分〜14分までを0とみなし、15分〜44分までは0.5
というのは終了?開始?
あと単位時間は何分?

説明が下手ですみません。

終了、開始にかかわらず、
例えば8：45〜9：14まで9.0となり、
9：15〜9：44までは9.5となり、
9：45〜10：14までは10.0となり
以下同様に続きます。
時刻はタイムカードに記載される数字で、1分刻みです。

出勤欄、退勤欄のみが時刻表示で、
その他の欄は0.5刻みの数値で表示される必要があります。
全部作り変えるなら、見た目だけがそうなっているというのでもいいのですが、
できれば数値に変換できているとありがたいです。
他のものと連動している部分がありますので…。

>>337
ちょっと試してみます。

>>339
暇だから作った
ttp://www1.axfc.net/uploader/He/so/217746.zip
好きなように編集するといい

>>337
=INT((B4+"00:15")/"00:30")/2
とすると希望の変換になった…気がします。
これを既存の式に組み込めば何とかなりそうです。
ありがとうございました。

>>340
よいものをありがとうございます。
今あるものにそのまま組み入れるわけにはいかなさそうですが、
色々と参考にさせていただきます。ありがとうございました。

>>341の式、B4ってところに時刻を入れてますｗ
Excelで試してそのままコピペしてしまいました。
分かるとは思いますが一応…。

B1に出勤時間　B2に退出時間　B3に定時勤務時間　B4に残業時間とすると
作業列を使ってしまいますが
B3に　=IF(B1="","",7.0)
C3に　=TIME(B3+1,0,0)　　休み時間を考えなくてよかったら+1は消す

C4に　=TIME(HOUR(IF(MINUTE(B2)>=45,HOUR(B2)+1&":00",HOUR(B2)&":00"))
,MINUTE(IF(MINUTE(B2)>=45,"0:00",IF(MINUTE(B2)>=30,"0:30","0:00"))),0)
-TIME(HOUR(IF(MINUTE(B1)>=30,HOUR(B1)+1&":00",HOUR(B1)&":00"))
,MINUTE(IF(MINUTE($B$1)>=30,"0:30","0:00")),0)-C3

B4に　=HOUR(C4)&IF(MINUTE(C4)=30,".5",".0")

時刻の場合小数誤差が起こる可能性があるから表から拾うようにしたほうがいいと思うぜ

>333
解決しました、ありがとうございました！！

>>343
その式使うんだったらC4に

=TIME(HOUR(IF(MINUTE(B2)>=45,HOUR(B2)+1&":00",HOUR(B2)&":00"))
,MINUTE(IF(MINUTE(B2)>=45,"0:00",IF(MINUTE(B2)>=15,"0:30","0:00"))),0)
-TIME(HOUR(IF(MINUTE(B1)>=45,HOUR(B1)+1&":00",HOUR(B1)&":00"))
,MINUTE(IF(MINUTE(B1)>=45,"0:00",IF(MINUTE(B1)>=15,"0:30","0:00"))),0)-C3

だろ

【1 OSの種類 　 　 　 　 .】 Windows XP PRO SP2
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】　数値
例えば１つのセルに計算式で求められた5桁までの数字が入っていて
今回は4桁の数字を別々のセルに表示するということは可能でしょうか？

例）
セルA1にsumの回答で「1,234」と表示されていたら
A2は　ブランク
A3は　1
A4は　2
A5は　3
A6は　4
という数字を表したのですが可能でしょうか？

>>347
rounddown関数を使えばできそうだよ

5桁なのか4桁なのかよく分からん質問だな
今までは5桁だからできたけど今回4桁になったからどうしようって話なのか

>>348
切り捨ての関数ですよね？あてはめて見ても、うまくいかなそうですが…
>>349
sumの合計値が４〜７桁位でマチマチになります。
今まで出来ていた訳ではありません。

普通に切り出せば良いだけの話じゃん

>>350
疑問
A2は桁数にかかわらず万の位でいいの？
あとA1は4〜7桁なのか5桁までなのかちゃんと書かなきゃ困るよ

A2に万の位の数字を表示させるんだったら
if(A1<10000,"",rounddown(A1-rounddown(A1,-5),-4)/10000)
A3以下も同じ感じでやってみて

>>347
文字列操作関数かINTとMODの組み合わせか　どっちでもお好きに

>>352
Ａ１セルは何桁になるかわからないのですが、Ａ２は必ず万の位になります。
書き込んで頂いた式で試してみます。ありがとうございました。

>>353
mod関数ってはじめて知りました
if(A1<10000,"",(mod(A1,100000)-mod(A1,10000))/10000)

勉強になりました

>>354
上の式でもいけるよ

MID関数のが簡単。表示形式で入れた桁区切りのコンマは無視される。
たとえばA1が1,234だったとして、MID(A1,2,1)は2になる。

頭合わせならMIDの方が簡単だが、ケツ合わせならMODの方が簡単
ケツ合わせの場合、総桁数に因って切り出す位置が変わるからな
6桁なら A4=MID(A1,4,1)
5桁なら A4=MID(A1,3,1)
4桁なら A4=MID(A1,2,1)
その可変部をLENから算出するくらいならMODの方が簡単だ

しかもMIDの場合は必ず桁数を条件にIF関数組まないとブランクの桁でエラーになるが
MODなら表示形式を「0;;;」とすることでIF関数無しの
=INT(MOD(A1,10^5)/10^4)
でいける

フィルコピーで入れられるようにすると、最大7桁(A8が1の位)の場合で
A2=INT(MOD($A$1,10^(9-ROW()))/10^(8-ROW()))
かな

>>344
ありがとうございます。
その可能性はありますが、今回の場合は必ずセルに9：05のように直接入力しますので、
一応0時から23時まで14分、15分、44分、45分で正しく判断されるか確認したところ、
手入力の場合はきちんと判断されたので、大丈夫かと思います。

ただしセルA１に0：00と入れて、A2に0：01と入れてフィルした場合や、
A2にA1+1/1440と入れてフィルした場合は狂いましたので、
そういう場合は使えないということは覚えておきたいと思います。

エクセルでのグラフの作り方についてなんですが、
１つの表から
ttp://up2.viploader.net/pic/src/viploader983321.jpg
このように単位が違うグラフを作るにはどうしたらよいのでしょうか？

赤[kg]は普通に出ますけど、青[g]の出し方が分かりません

>>359
１　普通に折れ線グラフを作る
２　gのほうのグラフの線を右クリックしてデータ系列の書式設定を選ぶ
３　「軸」タブを選択して、第2軸にチェック

Excel2007だったらｼﾗﾈ

>>357
ケタ数あわせなら頭に0をいくつかつけてから切り出せばいいんだけどね
MID(LEFT("0000"&A1,5),1,2,1)とか

位置調整処理がが桁数揃え処理になるだけじゃんw

あきらかに>>361のほうが簡単だけどね

>>361
引数が1つ余計だぞ
あとLEFTではなくRIGHTな
ついでに"0"はどうやって消すつもり？

そうだRIGHTだな間違えた
0がじゃまなら" "にすればいいやん

ブランク
=""
=0

文字列
="0"
=" "

今回はどうか知らないが、普通ブランクと言ったら0か0長文字で
スペースとか文字列の"0"とか入れちゃあかんがな

そういえばEmpty値返せる関数って標準では無いんだよね。
0と""は確かに空セルと等価演算してTRUEになるけどISBLANKではFALSEなんだよな。
もっともEmpty値返せる関数が無い以上、数式では0か""を返すしかないんだが。

>>366
0の事は普通ブランクって言わない

>>360
2007なのですが・・・

>>368
厳密に言えばね
しかし厳密に見ちゃうと367も書いてる通り、数式結果でブランクなセルは作れない
だから普通はブランクセルと同値として扱われる0や""が数式結果上では暫定的にブランク扱い

とりあえず論より証拠

=ISBLANK(A65536)
=A65536=0
=A65536=""
=A65536="0"
=A65536=" "

因みに0や""はブランクじゃないというのは間違ってないが、""はブランクで0はブランクじゃ無いというのは完全に間違いだからね

まあ完全なブランクじゃないから、状況によっては不都合もあるけどね
算術演算の場合は0じゃないと不味い(""ではエラーになる)し、
MIN関数の場合は""なら無視されるが0だと他が正の値なら結果が必ず0になってしまうとかね

キモ

勝矢くんキモ

>>369
そもそも最初にバージョン書かないのが悪いんだろ
てか第2軸を使うって分かったらヘルプなり何なり調べたらどうよ
そんな用語まで綺麗さっぱり変わったのか？2007って。

>>370
厳密とかじゃなくて、普通。
普通、0の事はブランクって言わない。

>>374
マイクロソフトが普通じゃないってオチ
あんまり噛み付かない方がいい
お前は間違ってない

己の常識(普通)、世界の非常識

>>370
ブランクが0または""として扱われるのであって
0や""がブランクとして扱われる訳じゃない

そうでもないか

ほい
=ISBLANK(0)
=ISBLANK("")

>>379
その位置は既に通り過ぎてる
お前も早く登ってこい

お山には興味ないな

潜ろうぜ

>>379
おまえ恥ずかしい奴だな。

まあ間違いを認めないだろうとは思っていたよ

そもそもまともに間違いを指摘できてない

""も0も(厳密には)ブランクじゃないという論拠ならあるが、それは最初から認めてるし
""はブランクで0はブランクじゃないという論拠は、「主観での"普通"」しか挙がってない

主観を論拠に間違いだと主張されても┐(´ー｀)┌なのは当たり前

> ブランクセルと同値として扱われる0や""が数式結果上では暫定的にブランク扱い
ここが間違い。

> ""はブランクで0はブランクじゃない
言ってない。

っていうか厳密じゃないにしても0をブランクと言う人を初めて見た。

言う言わないはともかく、ブランク代わりに0を利用してる人は結構居るけどね

>>386
> > ブランクセルと同値として扱われる0や""が数式結果上では暫定的にブランク扱い
> ここが間違い。
何を根拠にどう間違いで、数式が返す正しいブランク値とは何なのかを解説出来ないと主観の域を出ませんよ

> > ""はブランクで0はブランクじゃない
> 言ってない。
たしかにそうハッキリとはいってませんね
でもそれなら、""も0も厳密にはブランクじゃないというのは最初から認めてるんだから噛みつかれる謂われは無いような気が…


ついでにこっちにも
>>377
その通り
俺の主張も君と同じだよ

しかし数式ではブランクとして扱われる値は返せないから、代替としてブランクセルと等価と評価される値を返すって話をしてるだけ

>>377を認めるならもういいよ。
お前の日本語が（遠回しに言って）ユニークだってだけの話だ。

>>370
> 0や""はブランクじゃないというのは間違ってない

>>377
> 0や""がブランクとして扱われる訳じゃない

認める認めない以前に、0や""がブランクそのものじゃないってことは377よりこっちが先に言ってるんだがな

勝矢くん元気？ｗ

どうしたの？

あのーA1のセルが空白かどうかを調べるにはVBAならどうかくのでしょうか？

>>394
MsgBox IIf(IsEmpty(Range("A1").Value), "空白だよ", "空白じゃないよ")

IsEmpty(Range("A1").Value)
　の代わりに
VarType(Range("A1").Value) = vbEmpty
　とか
TypeName(Range("A1").Value) = "Empty"
　でもいけるが
Range("A1").Value = Empty
　だと0も""もブランク扱いになる

MODとINTだと上位が0で埋まる。ゼロサプレスしようとすると式が長くなる。
文字列関数の方が式が簡単にならない？

状況による
上位の空セルが単に見えなければ良いだけならブランクにせずスペース返しても構わないわけで、それならMIDとLIGHTの方法が向く
結果に対して演算が行われるなら、""やスペースではなく0を返さなければならないからMODとINTの方法が向く
結果を関数で使う場合は、関数によって0が良い場合と""が良い場合がある

ゼロサプレスは表示上だけなら表示形式設定だけで事足りるので式は長くならない
逆に0やスペースではなく""にするならMIDとLIGHTの場合も同じように式が長くなるのでどちらが向くとも言えない

0でも""でもよければ計算の軽さとか自然さならINTとMODだろうがお手軽さなら文字列操作関数かなぁ。
計算の軽さといっても今のCPUなら無視出来るけど。

>>387
俺は一人だけ知ってる。
>>388
多分君だけだと思う。その一人かな？

LIGHT

ほっといてやりなよ

なんでそんなに必死なの？

ほかにすることがないんだろ

office2007のソフトが安く購入したいけど
安い通販ないですか？

>>404
まあ　あれだ













ス　レ　チ

なんでそんなに改行するん

ここで売ってたよ
手頃な値段で
http://www.hhyyhh22.co.nr

>>398
暇なので10000の位を取り出す場合の式を作ってみた。
もっとお手軽な式があったら指摘宜しく。

▼ 表示さえ消えればよい場合

=INT(MOD(A1,10^5)/10^4)

=LEFT(RIGHT(REPT(" ",4)&A1,5),1)

▼ 0を返す場合

=INT(MOD(A1,10^5)/10^4)

=VALUE(LEFT(RIGHT(REPT("0",4)&A1,5),1))

▼ ""を返す場合

=IF(LEN(A1)>=5,INT(MOD(A1,10^5)/10^4),"")

=IF(LEN(A1)>=5,LEFT(RIGHT(REPT(" ",4)&A1,3),1),"")

▼ 存在しない桁では""を返し、存在する桁では数値を返す場合

=IF(LEN(A1)>=5,INT(MOD(A1,10^5)/10^4),"")

=IF(LEN(A1)>=5,VALUE(LEFT(RIGHT(REPT(" ",4)&A1,5),1)),"")


・ MIDよりLEFTの方が引数1つ減らせるし取り出す桁によって書き換える部分も少なくお手軽なのでLEFTを使った。
・ 1000000,100000や"000000","　　　　　　"などは避け、汎用性のある演算や関数を使った。
・ 表示形式設定の要否は別として、式のお手軽さや短さを比べてみた。

>>404
>>407は一見値段は手頃に見えるけど、不正コピーソフトなので
本質的には無価値なものに値段が付いてる激高品だよ

エクセル2007で
挿入、画像を選択、画像の貼り付け、一つ下のセルに移動
をマクロで組めないでしょうか？画像の名前は001.pngから100.pngでB1からB100に順に貼り付けたいです。

>>408
=RIGHT(INT(A1,10^4),1)

>>410
マクロの記録で1枚だけ貼り付けるとどうなるか見て
それを100回繰り返す

>>412
記録してやろうとしたけど↓見たいにしかならなかったんです。


Sub Macro2()
'
' Macro2 Macro
'
Range("E2").Select
End Sub

>>413
新しいマクロの記録→OK→B1セルをクリック→画像を挿入→記録停止

やってみ

2007では図形の操作は記録できなくなった。(2007で改悪された点の一つ)
古いバージョンのExcelで試すかネットで検索するか参考書を見るしかない。

そうだったのか。すまんかった。

>>410
Range("B1").Select
ActiveSheet.Pictures.Insert("001.png")

>>411
文字列関数と算術関数織り交ぜですか。
でも
×=RIGHT(INT(A1,10^4),1)
○=RIGHT(INT(A1/10^4),1)
では？

しかしながら""を返す場合だけは一番短くなるけど
他はINT,MODよりは長く、LEFT,RIGHTよりは短いって状態だね。

表示を消す場合はIFで""返すかVALUEで"0"を0にして表示形式で消さなきゃだし、
0や数値を返す場合も、やはり数字(文字列)をVALUEで数値に変換しなきゃだし。

数値にするときは"0"+0とか"0"*1でおｋ

>>417
A1が1万未満の時INT関数は0を返すから""にはならんと思うが

>>416
ありがとうございます。それと画像を順に参照するときは

For n=1 to 100
ActiveSheet.Pictures.Insert ("D:\pict\" & n & ".png")
next

であっていますか？PictureクラスのInsertメソッドが失敗しましたとでてしまって・・・

じゃあこうか
=IF(A1>=10^4,RIGHT(INT(A1/10^4),1)+0,"")

あ、nだと00*とかにならないからエラーがでるのか。
事故解決しました。

>>420
それだと1.pngになるからファイルが見つからずエラーになる。
001.pngにするにはFormat(n, "000")

>>418
その場合でも長さの結果は変わらないけどね。

>>419
その通りだよ。でも式にすると一番短くなる。

=IF(LEN(A1)>=5,RIGHT(INT(A1/10^4),1),"")

=IF(LEN(A1)>=5,INT(MOD(A1,10^5)/10^4),"")

=IF(LEN(A1)>=5,LEFT(RIGHT(REPT(" ",4)&A1,3),1),"")

↑最後のやつ間違ってる。エラーでるよ

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

MODとINTを逆にするだけで演算子が一つ減る
=INT(MOD(A1,10^5)/10^4)
=MOD(INT(A1/10^4),10)

画像についてなんですけど、画像が張り付けられる位置がすべてa1からb2にまたがった中途半端な位置に重なって張り付けられるのですが選んだセルに貼り付けるにはどうすればいいのでしょうか？

いちいち数値に変換しなくても右寄せでいいじゃん

>>428
>>410の人？>>416は2行で1セットだよ。
1枚貼るごとにセルをSelect。

>>425
引数間違ったけどエラーは出ないはず。というかうちでは出てないよ。
×=IF(LEN(A1)>=5,LEFT(RIGHT(REPT(" ",4)&A1,3),1),"")
○=IF(LEN(A1)>=5,LEFT(RIGHT(REPT(" ",5)&A1,4),1),"")

>>427
>>411の解法を算術関数だけでやったわけか。
これが最高点かも。

>>429
計算に使わない場合はね。
だから>>408の表示さえ消えればよい場合の下とかも文字列のままだよ。
でもいろんな条件でどうなるかって話だと、計算に使わない場合のみってわけにもいかないのさ。
表示形式で非表示にする場合も、数値になってないと消せないし。

>>430
４１０です。
↓のようにやってるんですけど>>428のようにります。

For n = 1 To 100
Range("b" & n).Select
ActiveSheet.Pictures.Insert ("D:\pict\" & Format(n, "000") & ".png")
Next

Excelのセル上で何か文字キーを押すと入力状態になりますが
これを最初から編集状態になるようにするにはどうすればよいですか?
入力状態からF2押すか、最初からF2でセルに入れば編集状態になるのは知ってますが
普通に文字キーを打っただけで編集状態にしたいです

WinXP、Excel2003、VBAは多少使えるしVBAでの回答も可です

>>432
2003だと問題ないのに、またしても2007の呪縛か…
2007は画像を読み込むとき、いちいちTopとLeftで位置を示してやらないといけないらしい。

For n = 1 To 100
　　Set P = ActiveSheet.Pictures.Insert ("D:\pict\" & Format(n, "000") & ".png")
　　P.Top = Range("b" & n).Top
　　P.Left = Range("b" & n).Left
Next

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

A B C D E
1 a あ a
2 a　い あ
3 b　う い
4 a　え え
5 b　お か
6 a　か

上のような表で、A列が「a」の全てのB列の値を抽出するには
どうすればいいですか？
（抽出結果はE列のようにしたいです）

>>433
Private Sub Workbook_Open()
　　SendKeys "{F2}"
End Sub

とか。でもこれになんの意味が？

質問がわからん

　A B C D E
1 a あ　　　a
2 a い　　. あ
3 b う　　　い
4 a え　.　 え
5 b お　　 か
6 a か

>>436
ブックを開いたときに編集状態にしたいのではなく
キーを打ったときに最初から編集状態になるようにしたいのです
標準ではキーを打ったときは最初入力状態で、F2押さないと編集状態にはなりません

>>439
入力中に矢印キーが使えないってこと？
それは無理だったはず。

俺がenter押したら改行しないで欲しいのと似ている

表がずれました
>>438
エスパーありがとう＾＾

>>435
Sub x()
Dim i, x
x = 1 'E1からの時はここをコメントアウト
For i = 1 To 65536
If Cells(i, 1) = "a" Then
x = x + 1
Cells(x, 5) = Cells(i, 2)
End If
Next
End Sub

>>443
ありがとう。試してみます。

>>440
オプション設定が無いなら
VBAでの実現でもいいんですけど

この程度の事も出来ないとかカスの集まりですね^^
もう一生来ません^^

急に顔文字とか使うと偽物なのバレるよ。

>>445
thisworkbookのSheetSelectionChangeのイベントで
Application.SendKeys ("{F2}")でどうでしょう

>>448
それだと編集するつもりが無くてもカーソル移動だけで編集状態になっちゃう。
つまり左右の移動がマウスでしかできなくなる。

そういうもんでしょ。編集状態って。
キーボードしか使わない人はTABとEnterとShifで移動しながら入力するんじゃない？

>>433みたいなことしようとするのがそもそもﾀｺなんだよ
それでだれがどう便利になるのかまったくわからん

自分の想像力の無さを自慢してどうするんだよｗ

それでは想像力のある方から
どういう状況で>>433が必要になるかの発表がありますので
皆さん心して拝聴するように

文字ヮ編集するときに左右キーを使うクセのある人だと思う
俺も昔そうだった、というかエクセル以外は今でもそうだ
逆にdeleteとバックスペース中心で文字列編集する人とどっちが多いんだろう

キーボードユーティリティで「F2]をカーソルキーの近くのキーに割り当てれば
済む話でもないのか？よくわからんが

想像力も無けりゃ文章読む力まで無いのか

説明する力のない人にいわれたくないなあ

>>433は
>>448と>>450でOKなんじゃないかな

毎年一回ぐらいこの編集の質問があるよ。
大概が使い方に問題がある。
マウス使わないならショートカットを当然自分で設定できる。
マウス使うならダブルクリックでセルの直接編集が出来るし、数式バーで編集すればいいだけだし。
で無理矢理やって見て初めて、使い勝手が悪いことに気付いてやめてしまうという落ちw

>>449
カーソルの移動に矢印キーを使う（編集）か
セルの選択の移動に矢印キーを使う（入力）かの二択で
どちらも矢印キーにと言うのは矛盾してる

キャレットが有るときはキャレット移動に使って
キャレットが無いときはセル移動に使うって事だから矛盾はしてない

カーソルが123が入力されているセルにあるとき、4を押すと1234になればいいのか。
4123にしたいときは1234の4を削除してカーソルを移動して再度4を入力することになる。
そんなことするくらいならはじめからF2を押せばいいとは思わないのかな。

>>462
理解力を鍛えてからまたおいで。
君はこの話題に参加するにはまだ早すぎるようだ。

エクセルを方眼紙にして文書作るような層に
「いちいちダブルクリックしたりF2押すの面倒だからどうにかしてよ」
って頼まれてるんだろうなというのが俺の精一杯の想像力です。

ハイアンドローみたいだね　答えを出すたびに「もっと上」「もっと下」とかいわれてる気分

wordでやれ、ってことか

ランダムに上の行から日付を入力したのですが、
その日付順に上から並べるのはどうすればいいのでしょうか？

初歩的な事だとおもいますがお願いします・・

>>467
ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/sort.html

ありがとうございます。

もう一つ聞きたいのですが、　リターンを押すと下のセルに移ってしまうのですが、
隣のセルに移るようにはどうすれば良いでしょうか？

日付を入れたあと、ＡＭかＰＭを入れる予定なので、リターン押したら
一度横のセルにカーソルが動いたあと、次のリターンで下のセルに移ることはできますか？

>>469
ttp://www.nyumon.net/column/kn/index.html
なんか初心者向けの本買えば？

>>469
エンターキーで右に移動するようにも設定できるけど
＞一度横のセルにカーソルが動いたあと、次のリターンで下のセルに移ることはできますか？
て事であれば横移動にはTABキー使うのがいいよ

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

まず図を用意しました。
http://2sen.dip.jp/cgi-bin/upgun/up1/source/up26214.gif

上図のように、製品を複数回払いで購入したことを想定し、
発生月日時と総額、支払い回数を入力することで、
発生月から終了月までのセルへ、均等額が表示されるようにしたいと考えています。

この場合、どのような式を組むといいでしょうか。
アドバイスをください。

SendKeyでF2
馬鹿じゃないのかっぴぴぴぴｐ

http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/zaimu.htm#pmt
>>472
E1=2009/4/1
F1=2009/5/1
E1F1選択して右にオートフィル
E1の書式設定に「mm"月"」
E2=($A2<=E$1)*(DATE(YEAR($A2),MONTH($A2)+$D2,0)>=E$1)*ROUNDDOWN($C2/$D2,0)
下と右にオートフィル
もし年度ごとに分けたい、とかの場合はC列から支払った金額・回数を最初に引いておくと良い

ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/zaimu.htm#pmt
は財務関数って奴で本当は恐らくこっちを使うんだろうけど、俺は使い方を知らない。ｽﾏﾝ
知ってる人いたらこれで出す方法も教えて欲しい

金利もない支払いで財務関数なんて関係ないだろ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 セルの結合　データ保持

http://2sen.dip.jp/cgi-bin/upgun/up1/source/up26216.gif

図のように、複数のセルのデータを一つにまとめるうまい方法はないものでしょうか・・・


似たような事例で、任意のセルに「＝A1&A2&A3…」と入力すれば
選択されたセルのデータが結合されて一行で表示されるのは理解できました。

元データのセルの違いが改行として反映される方法がありましたらご教授願いたいと思います。

>>477

なぜワープロ代わりにエクセルを使うの？
http://pc5.2ch.net/test/read.cgi/bsoft/961383630/

ワープロ代わりにExcel使うなハゲ!
http://pc5.2ch.net/test/read.cgi/bsoft/1025524380/

何でもかんでもExcelで資料作る奴
http://pc11.2ch.net/test/read.cgi/bsoft/1208509894/

>>477
打った後でそのままワードにコピペすればいいよｗ

>478　479

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

すでに文章はテキスト化してあります。

問題をジャンル分けする際に、問題のセルの横にタグのような感じで数字を入力して
並べ替えを行うとあら不思議、問題がジャンル分けされて並んじゃいました!!
あとはコピーしてそのままWordにでも貼り付けてしまえば…問題集完成!!

などと考えていたのですが、難しいでしょうか。

>>480

・改行したい位置に「CHAR(10)」を入れる
・「セルの書式設定」で、「折り返して全体を表示する」をチェック。

（例）sheet1のA1,A2,A3,A4,A5にデータが入っていて、A1が問題、A2-A5が答えとする。
それらをsheet2のA1に表示したい場合。

=Sheet1!A1& CHAR(10)&Sheet1!A2& CHAR(10)&Sheet1!A3& CHAR(10)&Sheet1!A4& CHAR(10)&Sheet1!A5

書き忘れ。
CHAR（10）ってのはいわゆる「改行コード」の事。
数式入れるだけでは思うようには表示されないので、「折り返して全体を表示」を忘れずに。
で、今試したが、問題が長い場合など、列幅調整、高さ調整をしてからでないと表示が綺麗にならない可能性もあるかも。

>>481
詳しくありがとうございます。
表示に関しては当方で気になるものはありませんでした。

仕事の効率あがりました。感謝いたします。

本当に効率上がったのか？？？？

もともと効率が悪いんだろ

>>478
社内文書みたいに定型化されたものは、ワープロで作成するよりエクセルの方が作りやすい。

「ワードを使いこなせない人には」が抜けてるよ

たしかに。実際ワードなんて使うことなくなったね。

底辺企業ではそうなのか？

今や上場企業も零細企業も紙一重

そうでもないか

教えてください。
ExcelのVBAを勉強しています。

プログラムを記述する際に、
VBAのエディター画面での、タブ(TAB)をTABのままにすることはできないでしょうか?

もう少し具体的に言いますと、
入力するときにTABキーを押すと、4スペース分が送られます。これはOKです。
ところが、修正する際に、さきほど入力したTABが、TABのままではなくて、スペース4個になってしまっています。
これをTABのままにすることはできないでしょうか?
通常のテキストエディターでは、TABはTAB、スペース4個はスペース4個のままで扱いやすいのですが。

出来ません

>>493
さっそくのご回答ありがとうございます。できないですか。残念です。
便利になると思ったのですが、残念でした。
ありがとうございました。

ところて、なぜできないようになっているのでしょうか?
Windows標準のメモ帳でさえ、TABをTABとして扱っているのに、
VBAのエディターでできない理由が、何かあるのでしょうか。

俺はTABの扱いってどっちの方式が優れてるとも思わないけどなあ
なんつーかなあ、うまく説明出来ないんだが

何でだろうね。そうなってるからとしか言いようがない
ttp://okwave.jp/qa1029548.html
shift+tabなんて操作もあるようです

VBEがインデントを半角スペースに自動変換してくれるおかげで、
2chにコード貼るときに全角スペースでインデント出来る

みなさん、ありがとうございました。
「そういう仕様」という感じですね。
どうもありがとうございました。

ＶＢＡで↓見たいに変数定義してFor で
Dim A1 as Range
Dim A2 as Range

For　n=1 to 2

みすった
ＶＢＡで↓見たいに変数定義してForで繰り返して使うことできますか？
Dim A1 as Range
Dim A2 as Range

For　n=1 to 2
　select case An
　　An="〜"・・・
　End select
next

forのなかでrangeに代入しなおしました。事故解決しました。

配列…

オブジェクト、プロパティ一覧の乗っているサイトを探しているのですが。
もしそんなサイトがあったら教えてください。
お願いします

ヘルプに乗ってるのみた方が早いんじゃねーかそれは

>>504
ヘルプだと
当を得ない説明が載ってるばかりで
どのオブジェクトにどのプロパティがあるのか
一覧にしてあるのを見たことがありません。

きっと、探し方が悪いのでしょうね。
生活のために仕方なくやりたくもない仕事しているという方は、たいていそう言います。

さすが　無職はいうことがちがう

ヘルプってOffice97とかの頃の方が使いやすかったな・・・

>>505
「オブジェクト、プロパティ」ってことはVBAだよね？

VBAのオブジェクト構造なら付属のオブジェクトブラウザで見れる
説明に関しては、あまり親切とは言えないかもしれないが
あれで理解できる奴も居る以上、理解力の問題とも言える

俺はExcelのVBA以外に関しては本も買ったしググったりもするが
VBAに関しては本にもWebにもほとんど頼らずに、付属ヘルプの情報だけで
社内でVBA含むExcelに指導役やるくれいのレベルにはなれたよ

そもそも>>2･Bがあるので、そういう質問はスレ違いだしな

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

在庫管理表を作成中ですがシート間のコピーのやり方がイマイチ？です。
　　　　A　　　　　B　　　C
　　　　　　　　　入庫　出庫　　　（4/1）　　　※シート1
3　TH-L17F1
4　TH-L32G1 　　　　　　　　　　　　　　　　　←の様なシートが１ヵ月分あります
5　TH-L32V1

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
　　A　　　B　　 C　　　D　　　　E　　　F　　　G　　　　　H　　　I　　　　G
　　　　　TH-L17F1　繰残　　　TH-L32G1 繰残　　　TH-L32V1 　繰残
　　　　　入庫　出庫　在庫　　入庫　出庫　在庫　　　入庫　出庫　在庫　　　※シート2
4　4/1
5　4/2　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　←１ヵ月分をまとめた入出在庫推移表です
6　4/3 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

シート2のB4に=H21年4月1日!B3　シート2のF4に=H21年4月1日!C4
シート2のB5に=H21年4月2日!B3　シート2のF5に=H21年4月2日!C4
シート2のB6に=H21年4月3日!B3　シート2のF6に=H21年4月3日!C4

シート2のB列を確定させてC、D、E、F・・・・にコピーしたいのですが、セル値（入庫：B 出庫：Cの繰り返し）が上手くいきません
良い方法がありませんか？

>>510
一つのブック「入出庫在庫推移表.xls」(仮称）があって、その中に
「H21年4月1日」〜「H21年4月30日」まで、計30枚(月によって28〜31枚）
のシートが存在し、それに加えて「一ヶ月合計の推移表」シート(仮)がある
ということ？

シート1、シート2と便宜上呼んでいながら、「シート2のＢ4に『=H21年4月1日! 』」
と、いきなり「H21年4月1日」というシート名を出されても話がややこしくなると
思いますよ。

あ〜、3Ｄ参照で推移表に合計を出したいのかと誤解してたｗ
要は、「一個一個を数式入力するのが面倒だから、コピペで済ませたいけど、
ずれてしまうから困ってる」って事ですねｗ

F4使って絶対参照や複合参照にするなど工夫して、少しでも手を抜く事は
可能かもしれませんが、基本的には「参照元と参照先の表の配置がバラバラ」
なわけで、それを規則的に一発でコピペで済ませるのは難しいような。

他の方にお任せしますorz

>>503
クラスの一覧はここにある
ttp://msdn.microsoft.com/ja-jp/library/microsoft.office.tools.excel(VS.80).aspx

>>510
頭にシングルコーテーションをつけて
'=H21年4月1日
をオートフィルすれば？
で、B3なりC4は&（アンパサンド）でくっつけたあとデータ→区切り位置で式に戻す。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】 エクセル　チェックシート セル、同じ内容 順番



Excel2007の質問です

一枚のシートにExcelで1〜500行までバラバラに入力したため見にくいみたいです

見やすいようにセル内の内容が同じものを順番に、まとめたいです
日付けが同じ物、住所が同じ物同士で固めて表示したいです

例えば1と4と7の行が似ている内容で順番を変え1、２、3や8、９、10のように続けて載せるのは出来ますか？

1、ねこ うさぎ うま
2、イルカ
3、羊
4、ねこ うさぎ うま
5、羊
7、ねこ うさぎ うま
↓
1、ねこ うさぎ うま
2、ねこ うさぎ うま
3、ねこ うさぎ うま
4、羊
5、羊
どのようにすればいいか詳しく教えてください
お願いします

>>515
並べ替え(ソート)

範囲指定して並べ替え選べばいいのでは

ネタでないなら
後学のために、
エクセル 並べ替え 等のやりたいことをキーワードとして
ｇｏｏｇｌｅ で 検索することを覚えると有意義かもしれません。

初心者は何でもいいから本一冊最初から最後まで読んだ方がいいかもね
ダイソーのエクセル初級本マジでオススメ。100円。
>>510
B4=INDIRECT("H21年4月"&ROW()-3&"日!B3")
下にオートフィル

けっこう前から探してるんだけど、
ダイソーの100円参考書、うちの地区じゃ売ってないんだよ。

ttp://page7.auctions.yahoo.co.jp/jp/auction/g68176470
ヤフオクだと4冊セットで100円だった

100円本は大した事書いてないから
探す暇あるならExcelいじって試行錯誤して分からない事はググった方が手っ取り早いよ

大した事ない事でも初心者にとっては大事だったりするわけです

すぐに覚える機能でもその機能の概念自体がない場合もあるからな
顕著な例が>>515だろう
そういうのはエクセル初心者というよりPC初心者ってほうが正しい気もするが

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


文字にURLデータ属性が含まれてるものを、文字とURLに分離させたいのですが
どうやったらいいんでしょう？

FINDかSUBSTITUTEか

>>525
どんな風に含まれてるのかで違う

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

Sheet1のA2には管理用の数字が入っているとします。で、Sheet1のB2からE2には文字列が入っているとします。
Sheet2にはA列には管理用の数字が入っているとします。で、Sheet1のB列からE列には文字列が入っているとします。
SheetA2に入っている数字とSheet2のA列の同じ数字を検索してその数字の行のB列からE列の値をSheet1のB列からE列の値で上書きしたいのです。
ただし、Sheet2のA列の数字は上書きせずにそのままにしておきたいのです。
ユーザーフォームのボタンをクリックすると以上の上書き作業をおこなうようにするにはどのようにしたらよろしいでしょうか？


【Sheet1】
　　　　A　　　　　　　B　　　　　　　C　　　　　　　D　　　　　　　E
1　　　管理番号　　　メーカー　　　　年式　　　　　ミッション　　　 色
2　　 　3　　　　　　ホンダ　　　　 13年　　　　　オートマ　　　　 シルバー


【Sheet2】
　　　　A　　　　　　　B　　　　　　　C　　　　　　　D　　　　　　　E
1　　　管理番号　　　メーカー　　　　年式　　　　　ミッション　　　 色
2　　　
3　　 　1　　　　　 トヨタ　　　　　15年　　　　　オートマ　　　　 赤
4　　　 2　　　　　　日産　　　　　 13年　　　　　オートマ　　　　 青
5　　 　3　　　　　　ホンダ　　　　 12年　　　　　オートマ　　　　 黄色
6　　　 4　　　　　　三菱　　　　　 11年　　　　　５速　　　　　 　緑
7　　　 5　　　　　　マツダ　　　　　10年　　　　　オートマ　　　　 白
　

Sheet1のB列からE列の値で上書きしたいのです
↓
Sheet1のB2からE2の値で上書きしたいのです

に変更します。すいません。

> 【3 VBAが使えるか　 　 】 いいえ
な人にユーザーフォームの使い方教えるのは面倒なんだよな

つーか、【Sheet1】をそのままユーザーに移植したいってならまだしも
シート対シートでやるなら、ボタンはユーザーフォーム上ではなくシート上で良いのでは？

>>530

そうですね・・・
ではユーザーフォームの話はなしにしてシート上のボタンということでも結構です。

なぜユーザーフォームなのかについてはSheet1の2行目の値はユーザーフォームによって入力されるからです。
で、できればユーザーフォーム上で完結したいと思った次第です。。。

>>525
できるよ。
以上。
↓次どうぞ

> なぜユーザーフォームなのかについてはSheet1の2行目の値はユーザーフォームによって入力されるからです。
なんでそういう情報後出しするの？

だったらSheet1全く要らないじゃん

それに
> 【3 VBAが使えるか　 　 】 いいえ
な人が、なんでユーザーフォーム使ってるの？

>>525
ハイパーリンクってことか?
VBAじゃなきゃ無理

>>528
SheetA2
とは新しいシート?それとも打ち間違い?

>>528
あと数字が無い場合の処理は

>>533
VBAが使えるかどうかは程度の問題でほとんど使えないに等しいです。
ここで使えるとか書くと余計にはまります。
試行錯誤の上でユーザーフォームで入力した値をシート上に打ち出せるようになりました。
後出しになるかといえばそうなのかもしれませんが、ユーザーフォーム云々はこの話とはまったく関係ない話だと思いましたもので。
たまたまユーザーフォームと書いてしまいましたが、必要な情報はユーザーフォームがどうのこうのではなくボタンをクリックしたら上書き作業が行われるというVBAの文章をどうしたらよいのかということです。
すべてをお話しするとなるといろんな事情がからみあいますのでとてつもない量を書き込まないといけません。
文章がへたで意味が通じないかもしれませんがすいません。
ぜひともよろしくお願いします。


>>535
Sheet1のA2でした。すいません。。。

>>536
数字が見つからなかった場合には「数字が見つかりません」というエラー表示を出したいです。

>>537
Sheet2でFind
Findの戻りがNothingだったら「数字が見つかりません」
Findの戻りがRangeだったらそこからOffset(, n)に値を書き込み
nが1ならB列、2ならC列になる

これで解らなかったらブックうp

ブックうp出来ないならさようなら

>>528
Sub Macro1()
g = Sheets("Sheet2").Range("A65536").End(xlUp).Row
a = Sheets("Sheet1").Range("a2").Value
Sheets("Sheet2").Select

For i = 1 To g
If Cells(i, 1).Value = a Then
Range("b" & i).Value = Sheets("Sheet1").Range("b2").Value
Range("c" & i).Value = Sheets("Sheet1").Range("c2").Value
Range("d" & i).Value = Sheets("Sheet1").Range("d2").Value
Range("e" & i).Value = Sheets("Sheet1").Range("e2").Value
End
End If
Next
MsgBox "管理番号なし"
End Sub

だんだんめんどくさくなってきた・・・けど動くだろう
変数iをcellsの引数に入れるんだ。これを覚えればたいていのことはできるようになる

ネタ？ボケ？騙し？

>>539

ありがとうございます。
面倒なことをさせてしまったようで申し訳ないです。

変数iをcellsの引数に入れる・・・なんかすごく難しいんですが、理解できるように勉強します！
動作を確認してみます。

ボタンだっけ
フォームにボタン配置してボタンダブルクリックして
command〜
とか出るからSub Macro1() と最後のEnd Sub を消して中にコピーペースト
寝る。また明日

>>538
まったくわかりません・・・
が、いろいろと情報をあつめてちょっと理解を試みてみます。
ありがとうございました。

>>539
ちゃんと思い通りに動きました！
素晴らしいです。
大変お疲れのところ本当にありがとうございました！

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

60以上の数値を入力した場合、そのセルに60が表示されるようにしたいのですがどうすればよいのでしょうか？
よろしくお願いします。

60以上を入力出来なくするなら入力規則
60以上を入力したら、入力セルの値を自動的に60に書き換えるならVBA必須
入力セルと表示セルが別で、入力セルに60以上が入力されても表示セルは60とするならIF関数かMIN関数

以上

>>546
VBAが必須なんですね。VBAを勉強してみます
どうもありがとうございました

>>547
60をデフォで入力しておき
入力規則で60以下に制限。
ま、ポップアップが面倒で、キャンセルも面倒ですがね。
間違いはなくなるでしょう。

>>545
普通は隣のセルに=if(a1>=60,60,a1)
って感じで入力する

>>545
計算にはそのままでは使えないが、表示するだけなら簡単だね。
表示形式を[>=60]"60";G/標準などとすればいい。

>>550でうまくいきました。ほんとにありがとうございました！

おい、大丈夫か?

>>551
A1に100と入れて60と表示されても、A1-50では50になるぞ
気をつけなよ

値は伴わなくても良いって話だったのか？

ある人からもらった資料でlookupの前に+が付いていたんですがこのプラスはどういう意味ですか？

=の代わり

3+lookup(・・・
だとlookupで検索した値と3を足す

古いソフトの名残だな。年輩の人は+を使うイメージ。

確かに＋の前に数値を入れたらその分だけプラスになりました。
初めて知りましたがこのやり方は常識なんですか？
ネットで調べても出て来なかったんですけど？

>>559
"Excel 四則演算"とか"Excel 加減乗除"とかでぐぐると色々出てくるよ。
算数や数学で書くような書き順で数式を入力すれば
その通りの計算をしてくれるというだけで特に難しい話じゃないよ。

なるほどね。。。
どうも有難うございました。

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

シートのあちこちにあるデータを使って、折れ線グラフを作りたいのです。
そのままデータ選択をしていくと、複雑すぎてダメと言われます。
リンク貼り付けでデータを１列に並べてグラフを作ると、ほぼ出来上がるのですが、
元データが空白の所が、グラフでは０になってしまいます。
折れ線グラフが途切れてほしいのですが、０でつながってしまいます。
何とかならないでしょうか？

=na()
=n()
どっちか入れるとまっすぐになったと思う

A列に日付型で
2001/01/01
2005/12/11
2002/07/27
〜
とあるとして
その列ので最初の4文字が2001だけのデータの合計を出したい場合どうすればいいのでしょうか？
おそらく
=COUNTIF(A1:A65535,2001)
=LEFT(A1,4)
これらの組み合わせだと思うのですが
どうしてもうまくいかないので教えてください

また、ちなみにLEFT(A1,4)にすると3713みたいに
標準形式での数値が出力されますので2001とは呼んでくれないようです

>>564
B1=IF(YEAR(A1)=2001,A1,"")
C1=sum(B:B)
や
b1=year(a1)
c1=COUNTIF(b:b,2001)
など
A1の内部データは36892、見かけ上2001/1/1になってるだけ

C列に合計する数値があるとして、B列に年だけだしておく =YEAR(A1)
=SUMIF(B1:B100,2004,C1:C100)

6行目はミスですごめんなさい
カウントしてんじゃねーよな

作業列を作っていいなら、>>564-565の方法で良いでしょうね。

途中までなので役に立たないですが、「2001を出力」だけで良いなら
回りくどいですがB1に

=LEFT(TEXT(A1,"yyyy/mm/dd"),4)

とかもあります。
（TEXT関数で2001年1月1日を文字列にし、yyyy/mm/ddの表示形式で表示した上で、
LEFT関数で最初の4文字を取り出し）

ただ、ここからCOUNTIFにネストする方法はわかりません、スマソｏｒｚ

どうもです

西暦を取り出すだけなら
=YEAR(A1)

A1の値がB1〜B100の間にある値に一つでも一致する値があればC1に○、
一致するものがなければ×
これってわかるでしょうか？

>>571
=IF(ISERROR(VLOOKUP(A1,B1:B100,1,0)),"×","○")
とか

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

オートフィルについてです

シート1で入力、シート2以降にシート１のデータを反映させたものを表示するとします

シート2のB2に=COUNTIF('Sheet1'!A2:E22,"リンゴ")
シート2のB3に=COUNTIF('Sheeｔ1'!A23:E43,"リンゴ")
シート2のB4に=COUNTIF('Sheet1'!A44:E64,"リンゴ")
(列は変わらず、行数は+21)

このようにオートフィルでするにはどうすれば良いのでしょうか？
（オートフィルさせても
シート2のB2=COUNTIF('Sheet1'!A2:E22,"リンゴ")
シート2のB3=COUNTIF('Sheet1'!A3:E23,"リンゴ")
シート2のB4=COUNTIF('Sheet1'!A4:E24,"リンゴ")
に、なってしまいます)

よろしくお願いします

>>573
そういうのはオートフィルでは無理。
作業列を使うか数式を工夫するか。

Aセル、Bセルにそれぞれ
1926/12/25、1989/01/07
とあった場合、死亡時の年齢を出したい
1926/12/25、なし
とあった場合、今現在の年齢を出したい
1873/05/04、1917/12/22
とあった場合、1900年以前の場合でも計算して死亡時の年齢を出したい

お願いします

>>573
これ参考になるかも。
http://www2.odn.ne.jp/excel/waza/edit.html#SEC44

>>563
もう少し詳しくお願いします

>>572
ありがとう
基本的にそれでいいと思うんだけど
でもセルをコピーしたら
=IF(ISERROR(VLOOKUP(A12,B2:B101,1,0)),"×","○")
と動いてしまうんだよなぁ
1,2だったらいいけど100行とかあれば苦しいし

>>578
「$b$2:$b$100」

「絶対参照」でググッてみましょう

>>577
563じゃないけど

リンク貼り付けするとき、リンク貼り付けじゃなくて、
=if(A1="",NA(),A1)
みたいにすると、空欄のところにエラー値が出る。
このエラーは、グラフでは無視されるので、0じゃなくて途切れると思う。

>>574
>作業列を使うか数式を工夫するか。

作業列を使う場合、具体的にはどうすれば良いのでしょう?
オートフィルを使わなくとも、作業が簡易化さえしてくれれば・・・、
と、思います。

$B$1:$B$100
だった、ｽﾏｿorz

>>573
とりあえずのやり方だけど、C列〜E列が仮にあいてるとして、
↓　「=」でなく「A=」として式を分解する。

C1　A=COUNTIF(Sheet1!A2
C2　A=COUNTIF(Sheet1!A23

D1　:E22,"リンゴ")
D2　:E43,"リンゴ")
↑これで、必要な列までオートフィル。

E1　=C1＆D1　　で、
E1　は　A=COUNTIF(Sheet1!A2:E22,"リンゴ")　と表示される。
E列をコピーして、B列に形式を選択して貼り付け　で　値　で貼り付け。
B列の　「A=」を「=」　に置換。

>>583
ありがとう
明日、職場で試してみます

>>580
ありがとうございます。
やってみました。エラー値になりますが、
グラフはリンク貼り付けと同じ結果になりました。

フィルタで抽出した行（100行ほど）なんですが
これをすべて削除しようとしたら20秒ぐらいかかってしまいます
これって仕方ないんでしょうか？

>>586
複雑な式が入ってると時間がかかるようになる
再計算を手動にする

>>585
同じになる？無視されず0が入るってこと？

>>588
0にはならないけど、空白にもならず繋がっちゃうんじゃないかな。
>>562の希望は、途切れさせたいんだろ。

途切れさせたいなら本当に「空白セル」じゃないと無理じゃないのかな…
エラーの出てるセルを、ジャンプとかで選択して一気消しとか、
あるいはマクロを使うしかないと思う。
ただし2007で設定が増えてたら知らないけど。自分は2003しか持ってないから。

みなさん、ありがとうございます。
>>588
はい。#N/Aになりますが、グラフでは０の扱いらしく、折れ線グラフがつながってしまいます。
家では2003なので、明日職場の2007で試してみます。
>>589
マクロですか。頑張ってみます。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】　エクセル　シフト表　夜間

すみません夜間のシフト表を作りたいと思うのですがセルを選択して
条件付き書式から「次の数式を満たす場合に値を書式設定」で
セルD2に　=AND($B2<=D$1,$C2>=E$1)
と入力してセルD2を書式のみ他のセルにコピーして
開始時間「B2」終了時間「D2」に値を入れることにより
行の塗りつぶしのグラフを作成したいと思っています。が、日中帯は表示されますが
24時を過ぎると表示されません…どうしたらいいでしょうか…
22：00〜3：00、20：00〜4：00など0時を過ぎる時間帯を横にグラフで表したいと思っています。
よろしくおねがいします。

>>591
D1は0:00？1:00？

とりあえず、条件付き書式じゃなくて数式で。
=IF(HOUR($B2)<HOUR($C2),IF((HOUR($B2)<=HOUR(D$1))*(HOUR(D$1)<HOUR($C2)),"■",""),IF((HOUR(D$1)<HOUR($C2))+(HOUR($B2)<=HOUR(D$1)),"■",""))
これでいいの？
ttp://windyakin.if.land.to/src/up38_1179.png

ちなみに22時を「22:00」じゃなくて「22」とだけ入れるようにすれば
もっと式が短くなるけどね

起動したら特定のシートを表示させるのはできますか？
今は起動→新規シート→邪魔なので消す→履歴から選択して表示してます
面倒くさい

>>595
つ 最近使ったファイル

>>558
俺は、テンキー一発だから、+派かな

>>592
D1は例えば18：00の値が入ります。

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

>>573
=COUNTIF(INDIRECT("Sheet1!A"&2+(ROW()-2)*21&":E"&22+(ROW()-2)*21),"リンゴ")
下にオートフィル
>>574
勝手に決め付けるんじゃないよ

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

セルA1　H21.4.24
セルA2　H21.8
という違った形式の日にちが入力されている場合
セルA3に3(ヶ月)と表示したいのですが、どのようにしたらよろしいでしょうか？

>>600
おそらくA2のほうが、日付と認識されてないと思うので厳しいな。
必ずA2がその形式なんだったらいいけど、どうせばらばらに色々なんだろうし。

もし、A2が表示形式でそうなってるだけで、中身はちゃんと日付と認識されてるようなら

A3に
=month(A2)-month(A1)

年をまたがるようだったら、
=(YEAR(A2)-YEAR(A1))*12+MONTH(A2)-MONTH(A1)

でいけると思うんだが…。

EXCEL2007,Vistaです。

タイトルのついていないグラフにタイトルをつけたいのですが、
どうすれば、タイトル設定画面を表示できるのでしょうか

よろしくお願いします

>>600
A2の日付を1日として見ていいのかな
=DATEDIF(A1,DATE(MID(A2,2,2)+1988,RIGHT(A2,LEN(A2)-FIND(".",A2)),1),"m")
>>601テキトーに回答しない

>>601
ありがとうございます。
やってみましたが、やはり#VARUE! エラーが出ます。
A2の形式はH21.8となっていて日にちまでは入力していませんが、必ずH21.8の形式にはなってます。

これを無理やりH21.8.31とかにすることはできればよいのでしょうけど･･･
あとは日にちの入力ですよね。。。

>>603

見事にできました！！！
ありがとうございます！
これでゆっくり寝れます
回答していただいていて気づきませんでした。

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

>>575
=DATEDIF(
IF(NOT(ISERROR(FIND("/",A1))),DATE(LEFT(A1,4)+2000,MID(A1,FIND("/",A1)+1,FIND("/",A1,6)-FIND("/",A1)-1),1),A1),
IF(b1="なし",NOW(),
IF(NOT(ISERROR(FIND("/",b1))),DATE(LEFT(b1,4)+2000,MID(b1,FIND("/",b1)+1,FIND("/",b1,6)-FIND("/",b1)-1),1),
IF(NOT(ISERROR(FIND("/",A1))),DATE(YEAR(b1)+2000,MONTH(b1),DAY(b1)),b1))),"y")

VBAだと一行なんだけどね・・

>>602
タイトルを付けたいグラフをクリックするとメニューバーの右端に
デザイン　レイアウト　書式
ってのが出てくるから右から2番目のレイアウトを選んでグラフタイトル
ttp://tomiya.bne.jp/cgi-bin/upup/src/myg_l1062.jpg

Vbaの記述で質問です
三行
a+bが2か3の時かつ、a(i, j) = 1の時に真としたいのですが、
以下の文だとa+bが3の時にしか真になりません
どういう風に記述したらいいでしょう?
a+b = (2 Or 3) And (a(i, j) = 1) Then

c=a+b
(c = 2 or c= 3) And (a(i, j) = 1) Then

>>609ありがとー!

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

今回ノートパソコンを購入。Excel 97をインストール。
新しいエクセルのファイルを作成、新規マクロを作ろうとすると、
「記録できません。」と表示されて、新マクロ名を登録できない。
前のパソコンで作ったマクロ入りのEXCELでは、新ﾏｸﾛを登録できる。
解決方法を教えてください。よろしく。

4649-!

>>607
レスありがとうございます。
コンテキストメニューには出てこないんですね。

ISREF関数ってどうゆう場面で使うんですか？

オートフィルしてはみ出す場合とか、かねぇ

>>609-610
ちょっとﾏﾃ
変数aの型はなんだ

質問させてください。

　　Ａ列　Ｂ列　Ｃ列
１行　あ　　Ａ　　10
２行　い　　Ｂ　　15
３行　う　　Ａ　　10
４行　あ　　Ｂ　　20
５行　あ　　Ｂ　　15

Ａ合計　20
Ｂ合計　50
全合計　70

こんなデータがあり、Ａ列をオートフィルタで「あ」だけを抽出した後
全合計はSUBTOTALで「あ」だけの合計を求められるのですが、
SUMPRODUCT((B1:B5="Ａ")*(C1:C5))で抽出しているＡ合計がフィルタを掛けた後
変化してくれません、可視状態の物だけ集計するにはどうしたらいいでしょうか？

SUBTOTALでいいやん　引数がちがうんだったかな

>>616
すいません、aは配列で、a+bはもともと違う式でした(d+eみたいな)
お騒がせしました

>>617
=SUMPRODUCT((A1:A5="あ")*(B1:B5="Ａ")*(C1:C5))
オートフィルタで可視状態か否か、が分かれるのはSUBTOTALだけだったと思う
D1=IF(B1="Ａ",C1,"")
で下にオートフィル、
E1=SUBTOTAL(9,D1:D5)
とかが現実的かなぁ

Excelのデータで
A列の同じ値のデータをすべて削除という処理なんですが
現状VBAで
A列で並び替える
if文でA列の上下を比較して同じだったらC列に○をつける
フィルタをかけてC列が○の行だけを表示
すべて選択して削除
元に戻す

こういうやり方をやっているのですが
どうしても時間がかかってしまいます（だいたい20秒ほど）
これ以外にうまいやり方ってないものなんでしょうか？

>>621
オートフィルタのフィルタオプションで重複するレコードは無視するにチェック
コピー、貼り付けが早いかな

最終行を調べて
A1の値をA2、A3・・A最終行と調べて同じならClearContents(deleteキーの操作)
A2の値をA3、A4・・A最終行
で、並べ替えとか

配列が一番早いだろうけどさすがにこんなところで使うのもな
勉強がてら覚えるのもいいかもしれないけど

ともかく折角のVBAだし、作業列使うのはなるべく避けよう

2007に重複データの削除ってのがあるが、これってひどいバグがあるんじゃね？

A1
A2
A3
.
.
.
A200000

みたいなユニークなデータを作って重複データの削除を実行すると重複データがなくてもかなりのデータが削除される。
ひでーなこりゃ。

A000001
A000002
A000003
.
.
.
A200000
みたいなデータだと正常みたいだが。

「重複データの削除　バグ 2007」でググってみたら既知のバグらしいね。
今まで知らなかった。

何が削除されるのか調べてみた。
A1
A2
A3
.
.
A1999
A2000

みたいな2000行のユニークなデータだとA1930〜A1939の１０個のデータがごっそり削除されるたｗ

えー！ﾋﾄﾞｽ。2007は糞だな。

>>625のデータの右側に=RAND()としてこの作業列をキーにランダムに並べ替えてから実行すると、"A193"の１個だけ削除された。
"193"って文字列が鍵を握ってるのか？
でもランダムに並べ替えない>>625のデータのままでは"A193"は削除されなかったな。

A列に誕生日
B列に死亡日
があった場合年齢を計算する時に
Datedefを使うと思うのですが

A列の値が1900年以前だった場合
どうすればいいのでしょうか？
200年プラスして計算って事ですが、いまいちやり方がよくわからないので
教えて下さい

またそれを他の計算用のセルを使わずに関数内だけで組み合わせて
年齢を求めることって可能なんでしょうか？
多少複雑になってもかまいませんが

>>628
ガイシュツ

>>575と>>606

ちなみにそれ2000年プラス

>>599
思い通りにいきました
ありがとう

ガイシュツってすげー久しぶりに見たな

【XP/Excel2007/VBA×】

数千件のデータがあり、それぞれに名前データを含んでいます。
各行について「=COUNTIF(名前の列,その行の名前)」のセルを設けて、その名前が何件あるかを数えて、おおむねうまく機能しているのですが、
実際の名前データは下のような感じでアスタリスクが使われている場合があり、ワイルドカードとして認識されて正常な個数が表示されません。
何か対処方法はありますでしょうか？

あいう
かきくけこ
***
abc
あいう
*きく*
***

期待する結果（現状の結果）
2(2)
1(1)
2(7)
1(1)
2(2)
1(2)
2(7)

>>633
データがあまり多くなければ=SUM(($A$1:$A$7=A1)*1)の配列数式でいける。
COUNTIFも重いけど配列数式やSUMPRODUCTはそれに以上に重い。

数千件のデータとあるから上は多分駄目だな。
かなり速いマシンじゃないとストレスがたまるだろう。
COUNTIFでもどうかと思うけど。

>>633
「~」を使う
=COUNTIF($A$1:$A$7,SUBSTITUTE(B1,"*","~*"))

>>633
=SUBSTITUTE(A1,"*","数千件")
みたいに*を使ってない文字列(検索すれば確実だと思う)に置換した後、countif等してみては
更新・追加が無ければctrl+Hで実際に置換してもいいかもしれない

>>634-635　ありがとうございます
=SUM((A:A=A1)*1)の配列数式で一応いけたのですが、やはり思いですね

現状でも結構重めのシートなんですけど、さらに2，3倍かかるのでやっぱりちょっときついですかね；
でも配列数式とか使ったことがなかったので今後の参考にします。

>>636-637
現状と変わらない重さで実現できました。ありがとうございます/

すみませんもうひとつだけ 上で書いていなかったのですが、
名前が空欄のデータが数個あって、このときの数値が　60394　みたいなかなり大きな数字になってしまいます。
大した問題ではないのでこれを防ぐために式が長くなるようならあきらめますが、何か簡単な対策はありますか？

出来れば空欄は空欄のままにしておきたいです。

>>639
=IF(OR(A1="",A1=" ",A1="　"),"",COUNTIF(A:A,A1))

最終的に
=COUNTIF(A:A,IF(ISBLANK(A2)," ",SUBSTITUTE(A2,"*","~*")))としました。
>>641　どうもです

>>620
有難うございました。
一つの式で出来ないかと悩んでいたのですが、そんな方法もあるのですねぇ
大変助かりました、どもです。

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel 関数　文字列　小数点
＜やりたいこと＞
　エクセル関数をつかって、文字列セルの値（hhmm）を、別のセルで小数点(時間)表示したい。
例）
$A$1・・・"1" (h)
$B$1・・・"00" (mm)
→$C$1・・・1.00

例）
$A$1・・・"4" (h)
$B$1・・・"15" (mm)
→$C$1・・・4.25

例）
$A$1・・・"6" (h)
$B$1・・・"30" (mm)
→$C$1・・・6.5

例）
$A$1・・・"8" (h)
$B$1・・・"45" (mm)
→$C$1・・・8.75

おねがいします。
Cセルに、式をいれたいですが、公式がわかりません。

>>644
=A1+B1*60/100

>>645

例）
$A$1・・・"4" (h)
$B$1・・・"15" (mm)
→$C$1・・・4.25

の場合、=A1+B1*60/100　をしたら、

答えが、13になりました。（´･ω･`）

>>646
=A1+B1/60
ごめん間違ってた方書いちゃった

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

シート1
　　　　A　　　　　　B　　　C　　　D　　　E　　　F
1　選手／回　　　 1　　　2　　　 3　　　 4　　　5　　
2　　鈴木
3 　 田中　　　　　　　　　　　　　★
4 　 山田
5　　佐藤

上の表で★のところに、
=SUM（シート2!B18:B25)
とやって、別のシートから田中氏の合計点を持ってきています。
範囲指定「B18:B25」を、行1の開催回（★のセルであればセルD1の3）から引き出したいのですが
どう書けばいいのでしょうか？

ちなみに、第3回の指定がB18:B25になっているのは、シート2で
タイトル行+（第1回の8セッション）+（第2回の8セッション）+（第3回の8セッション）
=1+8+8+8+・・・
という形で行を使っているからです。
第3回であればB18:B25、第4回であればB26:B33を得たい
（開催回が1増えるごとに、参照範囲が8行ずれるようにしたい）と思います
よろしくお願いします。

>>649
行１の開催回行無視して>>599さんの応用の方が楽だな。

=SUM(INDIRECT("シート2!B"&COLUMN()+(COLUMN()-2)*7 & ":B" & COLUMN()+(COLUMN()-1)*7))

行１の開催回を使うならこんな感じか。

=SUM(INDIRECT("シート2!B"&B$1+1+(B$1-1)*7&":B"&B$1+1+(B$1*7)))

田中氏のセルに入力するのは
=SUM(INDIRECT("シート2!B"&D$1+1+(D$1-1)*7&":B"&D$1+1+(D$1*7)))

EXCEL2003です。

２つのブックを開くと、１つのEXCELウィンドウの中に２つ表示（並べて
表示ｏｒ切り替えて表示）されますが、
これを２つのウィンドウに分けて表示することはできないのでしょうか？

よろしくお願いします。

>>652
ファイルを開いた後、
EXCEL.exeを開いてファイル→開く

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel 2003, 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel 条件付書式　数値

Ａ１セルに入力した場合、Ａ１セルの値が、数値で無い場合、セルの背景色を変更したい。

数式が=NOT(ISNUMBER(A1))

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

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

【Windows XP】【Excel 2007】【VBA使用,回答 否,否】

各行のA列に数値、B列にテキスト、、のようなデータがあり、
A列全体に「条件付き書式」「2色スケール」でA列の最小値〜A列の最大値でグラデーションのように設定しているのですが、
このA列の数値を使ってB列にも同じようにグラデーションカラーの書式を設定することは可能でしょうか？

ちょっと試してみたところ、相対参照は出来ないとかでうまく設定できませんでした。
よろしくお願いします。

>>650-651
できました！
エクセルが動いた！この大いなる感動！！
651の方を使ってみました
ありがとうございました。

A1に名前/年齢/職業
こういったセルがある場合
B1に名前
C1に年齢
D1に職業
を関数を使って表示させたいのですが
どうしてもうまくいきません
教えてください

>>660
少々変態チックなやりかたで
B1 =LEFT(A1,FIND("/",A1)-1)
C1 =SUBSTITUTE(MID(SUBSTITUTE(A1,"/",REPT("/",LEN(A1))),LEN(A1),LEN(A1)),"/","")
D1 =RIGHT(A1,LEN(A1)-LEN(B1&C1)-2)

変態チックと言ってもそれしかなくね

せっかく切りだしてるんだからもっと短くできるな

C1=SUBSTITUTE(SUBSTITUTE(A1,B1&"/",""),"/"&D1,"")

　　　　　　　　　　γ⌒) _,........,_
　　　　　　　　　　 |.|　, ´,.-=＝ ,ヽ　　　　2年後は>>1乙してるかな？
　　　　　　　　　　 |.|　i　(ﾉﾉλﾉ)リ＿＿¶＿＿＿
　　　　　　　　　　 |.| .ﾙｲ) ﾟ ヮﾟﾉ)ﾉ　　¶／／| 　／|
　　　　　　　　　　 U＿⊆__⊆_ )_ 　　/￣|／／／
　　　　　 　 　 ／┌────┐|. ／'`)　／／
　　　　　　　／(　/　≡≡≡　.//（__／／／
　　　　　　　| ￣￣￣￣￣￣￣￣￣ |／


　　　　　　　　 　_,........,_
　 　　　　　　 , ´,.-=＝ ,ヽ
　　　　　　　 i　(ﾉﾉλﾉ)リ
　　　　　　　 .ﾙｲ) ﾟ ヮﾟﾉ)ﾉ　　いなかった
　　　　　≡　 （ っ∩っ∩
　　　≡　　(ニ二二二ニ)

作業列設けていいのなら
E1=FIND("/",A1)
F1=FIND("/",A1,E1+1)
とでもしておいて

B1=LEFT(A1,E1-1)
C1=MID(A1,E1+1,F1-E1-1)
D1=RIGHT(A1,LEN(A1)-F1)
とするとシンプルで分かりやすいと思うんだが

>>660
ちなみにデータ→区切り位置の機能は知ってるのかな？
知ってる上でその質問なら別にいいんだけど。

>>666
区切りだと
A1自身がデータが変わるんじゃないの？

データが変わるのが嫌ならB列にコピーしてからやればいいじゃん。
なんでも関数でやるやつはヴァカ。

関数の回答をヴァカと言ってるわけじゃねーからな。
関数でやりたい質問者がヴァカと言ってるだけ。

VBAを本格的に覚えようと思うのですが、どこかいいサイトはありますか?
マクロの記録を改良したり、if文やfornextぐらいなら何とかできるレベルです

>>670
知ってるところだと「オフィス田中」「インストラクターのネタ帳」ってサイトぐらいかな
どちらもぐぐればすぐにでてくると思う
後はぐぐったりテキトーに古本屋で本買ったりして覚えたな
でもエクルセならfornext覚えておけば大概のことはできると思う

エクルセ

単なる打ち間違いだ

ルとセが綺麗に入れ替わるってことはカナ打ちかな？
ローマ字打ちだと、4文字目を6文字目に、5を7に、6を4に、7を5にと
4文字も打ち間違わない限りエクルセにはならないし

まあそれはいいとして、どちらもいくつか間違いや不適切な方法とかも載ってるから注意な
多少詳しいとはいえ、書いてるのは人間なんだからそりゃ間違いだってあるわけで
おかしいと思ったら、絶対に合ってるはずなのにとか思い込まず、載ってる情報の間違いも疑うこと
もちろん、自分が手順やコードなどを間違えてないか疑うのが先だがな

ある列のフォントを一括で変更したいのですが、
変わる文字と変わらない文字があるんです。何故でしょう？
列を選択して、ツールバーのフォント指定を変えてみたり、書式-セル−フォントでやってもできません。
ロックでもかかってるかのようです。そんな設定はあるのでしょうか？

>>674
指摘は最もだが、それなら別のサイトのURLでも参考に書いてあげたらどうだい
後かな打ちは正しいがそんな長い推理しなくても皆分かってるよ
>>675
条件付書式の設定かフォントがその文字に対応してないかのどちらかだと思う

カルシウムとれ

>>676
条件付書式は何も設定してないのですが・・・それとも何も設定してないから？
試しにその正しくフォントが変更されない文字列をメモ帳にコピペすると、正しく表示されます。

>>678
ｽﾏﾝ、分からない
EXCELファイルをアップロードして下さい

最近【PCソフト在庫処分】の事がよく載って、消されてるけど
ここで買っても大丈夫？
買ったことある人教えてください

>>680
不正コピー品だからやめておいた方がいい

>>678
フォントが対応してないのはメモ帳にコピーしても意味ないよ。
文字がおかしいわけじゃなくて、
たとえば英語圏用のフォントは漢字には対応してないようなもの。
（漢字の分まで想定されてないというか。）
フォントは何ていうやつなの？

第三水準かユニコードがらみの悪寒

>>683
ああ、多分それです。MSPゴシックで書かれた欧文をLucida Sans Unicodeにしたいのですが。
MSPゴシックに固定されてしまう文字があるのです。
ユニコードかJISかは関係ないみたい。混在してます。
同じ文字や記号なのに、変更されたりされなかったりもあります。
フォントはXPにデフォで入ってるフォントですよね？
文字はどちらにも存在します。ただゴシックの字体とバランスが気に入らないので・・・
エクセルの問題じゃなくて、入力するときのIMEの問題のような気もしてきました・・・

>>684
どういう状況か、やっとわかった。
全角の英数字か記号を使ってる。たぶん間違いない。
それはIMEの問題じゃなくて入力した人の操作の問題。

>>685
なるほど・・・固定されてるのは全角なのか。
これは１文字ずつ置換して修正するしかなさそうですね・・・
ありがとうございました。今日はも寝ます。

>>686
半角と全角を区別して検索・置換できるから一発でできるでしょ

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

突然すみません。

両対数を使ったグラフを書きたいのですが、それぞれの軸の値が
　x：1　2　｜　4　｜　6　｜　8　｜　10
　y：10　20　30　40　50　60　-　80　-　100
といったものをつくりたいです。（｜や-は、数値のふられていない補助線の位置です。）
『対数』のチェックをオンにして自分なりにやってみたのですが、上のような目盛りのふられ方にできなかったので、質問しました。
情報が少なく難しいかと思いますが、レスお願いします。

エクセルで日付を入れたいのですが、ツールバーのフォントみたいに選択式にするにはどうすればよいですか？お願いしますm(__)m

>>689
プルダウンのリストから選択させるってことでいいのかな？

データ→入力規則→入力値の種類をリストにして
日付リストを範囲選択するか
2009/1/1,2009/1/2　のように
データをカンマで区切って指定する。
リストが別シートのときは範囲に名前をつけないとエラーになる。

ありがとうございますm(__)m
おかげで上手くできました

>>688
よくわかんないけど、両軸とも対数じゃないように思えるんだけど…
最小値が0じゃないってだけじゃないの？

>>687
いや、そうなんですけど、どの文字が全角で打たれてるのか予測できないので、
全ての文字について１文字ずつ置換作業やらないといけないなと・・・
あるいは見つけ次第、手動変換か・・・orz
もう全角のままでもいいかなぁ・・・

でも、ただメモ帳に貼り付けただけでLucida Sans Unicodeに統一できるのに、
エクセルはできないんだろ？全角文字はフォントの変更はしないなんてあるのかな？
それはないか。設定で切り替えられるとか？

流れよめてないかもだが、ASC関数で一括して半角にすりゃいいんじゃね？

一度アップロードしてくれれば解決できるかもしれないんだが・・無理かね
その文字だけでいいんだけど

>>693
VBA使える？

>>689
回答は>>690で終わってるとして、これは余談になるけど
Ctrl＋；（セミコロン） や Ctrl＋：（コロン） を覚えておくと便利だぞ。

http://pc8.2ch.net/test/read.cgi/bsoft/1152852610/

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

フォルダ内にあるすべてのエクセルファイルに、一度に同じパスワードを設定する方法はありますか？

>>700
�@パスワード設定を「マクロの記録」でとる
�A下のコードの2行目(Const〜)に目的のフォルダパスを設定する
�B下のコードの7行目(〜 FolderPath & FileName)がフォルダ内の全てのエクセルファイルのパスになるので
　 そこに�@で録ったコードを挿入して、記録されたパスを「FolderPath & FileName」に書き換える

Sub Sample()
　　Const FolderPath = "c:\text\" ' 末尾に \ を付けること
　　Dim FileName As String
　　FileName = Dir(FolderPath & "*.xls")
　　Do ' While Len(FileName)
　　　　If Len(FileName) = 0 Then Exit Do
　　　　Debug.Print FolderPath & FileName
　　　　FileName = Dir()
　　Loop
End Sub

俺はWhileやUntil条件は好きじゃないんで、IfとExit Doにしたが
While条件の方が良ければDoの後のコメントアウト外して、「If Len(〜」の上を削除

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

早速試してみたところ、パスワードは設定されたものの、ファイルの内容が消えました。このやり方が間違ってますか？

�@エクセルを開き、下記マクロを作成して C:\Users\＊＊\Documents\に保存

Sub Macro1()
'
' Macro1 Macro
Const FolderPath = "C:\Users\＊＊\Documents\" ' 末尾に \ を付けること
Dim FileName As String
FileName = Dir(FolderPath & "*.xls")
Do ' While Len(FileName)
If Len(FileName) = 0 Then Exit Do
Debug.Print FolderPath & FileName
ActiveWorkbook.SaveAs FileName:=FolderPath & FileName, _
FileFormat:=xlExcel8, Password:="＊＊＊", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
FileName = Dir()
Loop
End Sub

�A保存したファイルを開き、マクロを実行

ちなみにパスワードをかけたいファイルを C:\Users\＊＊\Documents\に入れてやってみました。

�B保存するかどうか聞いてきたので「はい」をクリック

以上です。よろしくお願いします。

>>701ではないが
Debug.Print FolderPath & FileName
だからでは？

Sub Macro1()
Const FolderPath = "C:\Users\＊＊\Documents\"　'ファイルのあるフォルダのパス
Const Mypass = "×××" 'パスワード設定しておく
Dim FileName As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
FileName = Dir(FolderPath & "*.xls")
Do
If Len(FileName) = 0 Then Exit Do
Workbooks.Open FolderPath & FileName
ActiveWorkbook.SaveAs FileName:=FolderPath & FileName, _
FileFormat:=xlNormal, Password:=Mypass, WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
FileName = Dir()
Loop
MsgBox ("処理終了")
End Sub

>>703

このマクロを含んだファイルAと、パスワードをかけたいファイルBを同じパスにおいて、
ファイルAのマクロを実行すればよいのでしょうか。
だとすればパスワードがかかりませんがなぜでしょうか。

>>704
このコードの場合同じフォルダに置くとエラーになると思うが
一つもパスワードかからないの？

>>704
>>705
エラーになるというか
Dirで最初に自分自身を見つければあぽーん

同じフォルダに置きたければ自分自身はパスしてけれ

>>704
同じフォルダに置きたい場合。

Sub Macro1()
Const FolderPath = "C:\Users\＊＊\Documents\" 'ファイルのあるフォルダのパス
Const Mypass = "×××" 'パスワード設定しておく
Dim FileName As String
Dim MyFN As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
MyFN = ThisWorkbook.Name
FileName = Dir(FolderPath & "*.xls")
Do Until FileName = ""
If FileName <> MyFN Then
Workbooks.Open FolderPath & FileName
ActiveWorkbook.SaveAs FileName:=FolderPath & FileName, _
FileFormat:=xlNormal, Password:=Mypass, WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
End If
FileName = Dir()
Loop
MsgBox ("処理終了")
End Sub

>>705
別フォルダにおいたらできました。
どうもありがとう。

スレ違いかもしれませんが・・・

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

INDEX、DATEDIF、ISERROR、入力した値を消すマクロを使用して
入社日、退職日、本給を入力すると退職金の額が出るファイルを作成したのですが、
これをエクセルがインストールされていないPCや携帯で使える様には出来ないのでしょうか？

>>695
それでいいと思うんだが、Excelで置換すると色などの属性が抜けるんだよね。
俺のやり方がまずいのかもしれないが。

>>709
出来ない。

Excel(アプリケーション)が無くても動く物を作るってことは、
ブックを作るのではなく新規にアプリケーションを開発するってことだからね。
PCで見るだけなら、ExcelViewerって手もあるが。

とりあえず自分がやろうとしていることはアプリケーション開発なんだってことを認知して
それでもやりたければ勉強して作ればいいし、そこまでする事無いと思うなら諦めれば良い。

>>709
インターネット経由で情報を入力し、エクセルみたいな形で出力するってこと?
それならその程度の知識ではやめて置いたほうがいい

一括パスワードの問い合わせしたのですが、すでにパスワードがかかっているファイルを、
自動的に除くことは可能でしょうか。
よろしくお願いします。

新しくつけたいパスワードで開いてみて、エラーが出るようだったらトラップして次のブックの処理に回せばいいんじゃね？

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

1つのブックに複数のシートがあります。
最後のシートに、各シートのタイトルと金額を挿入し、合計額を計算したいです。
方法があれば教えてください。


例

<シート１>　　　　<シート2>　　　　　　　　　　<シート合計額>

種類　　　　　　　種類　　　　　　　　　　　　　　項目　　　　　　　　金額
○○○○　　　　□□□□　　　　・・・・・・・　　○○○○　　　　　△△△△円
　　　　　　　　　　　　　　　　　　　　　　　　　　　 □□□□　　　　　◇◇◇◇円
金額
△△△△円　　 ◇◇◇◇円　

>>710
Asc関数使うのになんで置換(Rrplace)が必要なん？
A1:A10なら
With Range("A1:A10")
.Value = Application.Asc(.Cells)
End With
とすりゃ色の属性とかは抜けないな。

>>716
置換はreplaceの意味ではなくて、全角→半角の意味でした。紛らわしくてすみません。
例えばA1の英数カナを半角にしてB1に入れるのに、数式バーでB1=ASC(A1)とやると色が抜けます。

>>715
> 各シートのタイトルと金額を
の「タイトル」って何？
例の中にタイトルってのが見あたらないんだが

個別シートの「種類」と、合計シートの「項目」って何が違うの？

個別シートの種類と金額ってのは1シートに付きそれぞれ1個だけなの？

エスパー能力使えばだいたいの察しは付くが、クイズや推理物投稿所じゃないんだから
回答者に推理洞察力を要求するような質問の仕方はやめてくれよ。
同じ意味なら用語は統一し、違う意味なら何が違うのかきちんと説明しようね。
そうすれば回答者はエスパー能力なんて使わず、解法だけ考えれば良いのだから。

>>710-711
ググってみましたが、かなりハードルが高いようですね・・・
諦めます。

715です
>718さん、失礼しました。おっしゃるとおりです。
もう一度詳しく説明します

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

各シートは工事種類別になっており、詳細な内訳が入力してあります。
個別シートのフォーマットは同じです。
<シート合計額>に工事種類と、その金額を拾い出して合計額を出したいのです。
現場毎に工事種類は変わります。（電気工事が無い場合もある）

手動でリンクさせる方法をとっていますが、数が増えると面倒でミスも出るので、
なにか別の方法があれば教えていただきたいです。



例

<シート１>　　　　<シート2>　　　　　　　　　　<シート合計額>

工事種類　　　　工事種類　　　　　　　　　　　工事種類　　　　　金額
電気工事　　　　水道工事　　　　・・・・・・・　　電気工事　　　　　△△△△円
　　　　　　　　　　　　　　　　　　　　　　　　　　　 水道工事　　　　　◇◇◇◇円
金額　　　　　　　　　　　　　　　　　　　　　　　　　　　…　　　　　　　　　…
△△△△円　　 ◇◇◇◇円　　　　　　　　　　　　　　　　　　　　　（合計額）

>>720
串刺しと言うことでよろしいか?

>>720
ttp://www1.axfc.net/uploader/File/so/22583.zip
こんな感じでどうかの

>>720
シート1（Sheet1）のA1、シート2（Sheet2）のA1にある金額の合計をシート3のA1で出したいのなら

シート3（Sheet3）のA1には「=Sheet1!A1+Sheet2!A1」と入力すればいいんじゃないの？

>>723
>手動でリンクさせる方法をとっていますが、数が増えると面倒でミスも出るので、
>なにか別の方法があれば教えていただきたいです。

>>721の言う串刺し計算なら
=SUM(Sheet1:Sheet2!A1)

串刺し計算はいいがそれと工事種類を組み合わせる方法なんてあるか?

>>722のサンプルを使ってみた
=SUMIF(Sheet1:Sheet5!A2,"電気工事",Sheet1:Sheet5!A4)
VALUEエラーでした

パーツリスト表のシートを作成して、A列にはパーツの管理No、B列には型番、C列にはパーツ名
・・・・J列には納期と、10項目くらいあるパーツ情報をA列にあるパーツNo.から引っ張り出して
いるのですが、特定の列にあるパーツ情報をバラして表示させるにはどうしたら良いのでしょうか？

エクセルで作成されている発注依頼書のフォーマットがあるのですが、
パーツ名、型番を記入（入力）する欄が1文字で1つのセルを使用しており、
今まではパーツ名、型番は手書きか1つずつ手入力していました・・・

具体的には、パーツリスト表（シート1）のC1（パーツ名）には「パイナップル」とあったのなら
発注依頼書（シート2）ではA1に「パ」A2に「イ」A3に「ナ」A4に「プ」・・・・と表示させたいのです。
型番は5文字〜20文字、パーツ名は5文字〜40文字で英数字・漢字・平仮名、片仮名
全て使用しています。

一度、発注依頼書の型番、パーツ名のセルを結合させて文字をバラさずに記入して提出したら
定形外のフォーマットなので駄目だと発注担当に言われてしまいましたorz

>>727
何やってんの？

>>728
=IF(LEN($C$1)>=ROW(),MID($C$1,ROW(),1),"")

同一シートのC1に入ってる場合で作ってみた
A1に入れて、最大20文字ならA20までフィルコピー
これで問題ないなら別シート参照するように書き換えて使え

>>７２７
こんな感じの事やりたいんじゃね？

'セルA2の値をキーにしてセルA4の値を加算する
Dim dic As Object, k As String, v As String, sh As Worksheet
Set dic = CreateObject("Scripting.Dictionary")
For Each sh In Worksheets
k = sh.Range("A2").Value
v = sh.Range("A4").Value
If dic.Exists(k) Then
dic.Item(k) = Int(dic.Item(k)) + v
Else
dic.Add k, v
End If
Next
'キーと値を新規シートに書き出し
Set sh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
sh.Range("A2").Resize(dic.Count) = WorksheetFunction.Transpose(dic.keys)
sh.Range("B2").Resize(dic.Count) = WorksheetFunction.Transpose(dic.items)
sh.Range("A1:B1").Value = WorksheetFunction.Transpose(Array("工事種類", "工事金額"))

>>729
SUMIFで串刺し計算使えるかと思ったのさ

レスありがとうございます。

>>721
工事種類も出したいんですよね・・・。
>>722
これなら自分で応用できそうです。ありがとうございます。
>>723
そういうのがやりたかったんですｗ
マクロ勉強します。

訂正です

>>720ではなく>>730です

データ構造かえてピボッと一発

汚染米とラジコン
http://gimpo.2ch.net/test/read.cgi/radiocontrol/1212811357/337-
http://gimpo.2ch.net/test/read.cgi/bouhan/1239734019/20-
カビ毒米って便利いいよね。
普通に食べて肝臓癌にして殺すことできるもんね。
気づかれずに何度も侵入、そのたびに米びつのお米をカビ毒米と交換、
後マヨネーズや醤油、ソース、ケチャップ、みりんなどなど毎日少しずつ使うものに弱毒性の毒物を入れておく。
ターゲットは一年以内にアポーン。
気づかれそうになったら若年性統合失調症とか何とかいえば誤魔化せます。
http://www.tk-telefilm.co.jp/gaslight.html
　　夜になると不思議と暗くなる部屋のガス灯…それに気づくのは私だけ…。
　　精神的に追詰められる心理サスペンスの傑作！　　
昔々から精神病ってエロエロと利用し甲斐があるようで、、、、
　ガスライティング----で検索　ガス燈の映画の影響か欧州ではよく知られた方法
メラミンやシュウ酸の粉末を砂糖や塩、牛乳に混入。確実に結石(総胆管結石、尿管結石)になる。
あかちゃんなら異物混入が疑われるが40代50代なら本人の病気ですんでしまう。
あと降圧剤や昇圧剤、利尿剤などなどいろいろあるみたいだね。
これらは砒素のように明らかな毒物でもないから発見されても犯罪の立証がむずい。
薬物毒物と鍵屋の組み合わせは非常に厄介だ。
プロの鍵屋にかかれば開かない鍵はないといわれている。
皆さま、家族全員が留守にする時はお気をつけあそばせ。
あと、尿酸とある種の(現在不明)ある種の薬物を加えると膝痛や腰痛を起こすことが出来るようだ。
重いものを持っていないのに急に腰が痛くなったなどというとき、
ひょっとすると、ひょっとするかもしれませんよ。
旅先での見も知らない人からのドリンクサービスや席を外したあとの飲み物なども危険がいっぱいですよ。
泊りがけの飛行会の後体調異変はありませんか。
---------------------------------------------
みんな気をつけようね。
どんな一流の鍵屋でも無傷で開けられない鍵作らないと、、
現状では一流の鍵屋ならどんな鍵も開けてしまう。
暴力団が借金漬けの鍵屋を支配下に置いたらやりたい放題だよ。

>>733
君に必要なスキルはピボットテーブルだよ。
ピボットテーブル使えるかどうかが使えるやつと使えないやつの境界。

串刺しやSUMIFを覚えると頭が悪くなってしまう。
集計をVBAで組むのはばかまるだし。

【1 OSの種類 　 　 　 　 .】 Windows　XP
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ(コードを書いて頂ければなんとか)
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 , 整形

B列が今このような数字と - , が入っています

1-3
1,3,5-6
7,9-10,12

入力されている規則はつながっている数字なら　-　で表現して
飛んでいる数字は,で区切って表現というような形です。
これを次のように　, 区切りで 整形したいのですが

1,2,3
1,3,5,6
7,9,10,12

このようにすることはマクロを使って行うことが出来ますでしょうか。
置換を使ってある程度揃える事は出来るのですが条件が多すぎて困っています。
数字の範囲は最大で5桁まであります。
最終的に上記の形に持っていければ作業列や作業用シートを設けることも出来ます。

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

-を,で置換すればいんじゃね

>>740
ﾚｽありがとうございます。

そのように置換してしまうと
1-3という表記の場合
1.3になってしまいます。
1,2,3と表現したいのですが＾＾；

1-3を1,2,3へ置換ということもしたことがありますが数が多すぎて追いつきません；

数列の複雑な条件だから一回　ソートキーのように置き換える形になるかな。
マクロで出来ない場合を考えてB列をテキストに出力してフリーソフトか何かで整形できる可能性を模索してみます。

>>742
これ作業するためにカンマでデータ区切りすると一部勝手に日付に読まれちゃうんだな。
excel余計なことしてuzeeeeeeeee

解決しました
>>742の形で別のソフトで整形できました。
スレ消費すいませんでした。

>>744
後学のために、その「別のソフト」の名前と、それがどういうやり方をしてあるかを教えて貰えませんか。

自分ならどう考えるか……大雑把に言うと、
ハイフンがあったら、ハイフンの前の数字からハイフンの後ろの数字まで+1で書き出す、
という感じかな。

>>745
java scriptのソースです

var fso = new ActiveXObject("Scripting.FileSystemObject");
for(var i=0;i<WScript.Arguments.length;++i){
var o = fso.OpenTextFile(WScript.Arguments(i),1)
var text = o.ReadAll().replace(/(\d+)-(\d+)/g,function(a,b,c){
var from = Number(b);
var to = Number(c);
var result = b
if(from > to)return a;//変な範囲のときに空にしたいときはaを""に置き換える
while(from++<to)result += "," + from
return result
});
o.Close();
var o = fso.CreateTextFile(WScript.Arguments(i)+".output.txt",true);
o.Write(text);
o.Close()
}

>>746
ありがとうございます。（読み解けるかな、私orz）

>>745
java scriptは勉強したことがほとんどないので構文の意味はわかっていません。

var text = o.ReadAll().replace(/(\d+)-(\d+)/g,function(a,b,c){
↑↑テキストファイルの中身を全て読み込みます　　readall
次のように置き換えます　replace
(/(\d+)-(\d+) -で表記された数字の範囲を認識
function(a,b,c)　　a,b,c〜という表記に変える


var from = Number(b);　　
var to = Number(c);
var result = b
while(from++<to)result += "," + from　　認識した数字の前に　, をつける

こんな感じでは。

残り部分は　変数 i　について。
最後の部分は　outputというテキストファイルに結果を出力しているという流れです。

http://pc12.2ch.net/test/read.cgi/software/1230970602/l50

A1には0〜99までの数値が入ります。
それが99の場合，B1の文字色を白にしたいのです。（つまり見えない状態）
条件書式で，=a1=99 としてみましたがうまくいきませんでした。
どのようにすればよいのでしょうか？

もし左のセルが９９なら　色を白に
そうでないなら何もしない


ifなんとか

=A1=99　ででけたよ？

再計算手動ってことかｎ

ExcelのファイルをダブルクリックするとExcelは起動するんですが、ファイルが開きません。
最初からExcelを起動して、ファイル→開くを選択すれば開くことができます。
ダブルクリックでファイルを開くにはどうすれば良いでしょうか？

ヘルプを見ても解決できません。

>>754
ほかのアプリケーションを無視する

それでダメなら再インストール

日本語で回答してやれよ

モンモウ？

>>754
かわいそうだから補足してあげる
オプションの「ほかのアプリケーションを無視する 」にチェックを入れるか外す(どっちか忘れた)
>>757
オプションの項目って知らないんだろう
優しくしてあげましょうぜ

>>755.758
解決しました。
ありがとうございました！

さすが病人
自分の知ってる事は他人も全部知ってると思い込んでるんだな
だったら質問なんかしねーだろうに

答えるべき言葉は答えてるのだから
ググるとかしろよ文盲

ﾃﾝﾌﾟﾚ使わない人には厳しい

>>760
回答で解らない部分があれば検索する
そんな当たり前のことが出来る人ならオプションの項目だっていう予備知識が無くても
なんら迷うことなく解決する

病人はそんな当たり前のことすら思い浮かばないのかねぇ？

>>755は知らなきゃ人間の動作にしか見えないと思うんだが

知らないのに人間の動作だと決めてかかって検索すらしない病人の面倒まで見れません
先入観で何だと思おうが解らなかったら検索する、それが当然

何かというと『検索しろ』とぶった切る奴は好きじゃない。

何も教えず検索しろの一点張りな奴は確かに愚劣だ
しかし、ヒントを与えられてるのに、それで検索すらしない奴も同じく愚劣だ

懇切丁寧な解答が欲しいならパソコン教室にでも通えって話だな

自分の拙い日本語を指摘されたからといって剥きになって逆ギレは痛いな

どっちが滑稽かは・・・・・まあ皆解ってるだろうなw

つーか、何時から日本語の話になったの？
説明が丁寧じゃないって話で、日本語がどうこうという話じゃなかったと思うんだが。

>>769
でもイタイ人本人って気づいてないんだよな
指摘されても相手が悪い!で通すし

そうなんだよね
本人だけ気付いて無くて、逆切れしながら相手が逆切れしてることにしようとしたりする

>>770
ヒント：キレてる奴は正常な思考や判断が出来ません

どっちにしても、こういう些細な事で喧嘩を始める人はどこか別のとこで
思う存分タイマンしてきてくれ

と、ここまで俺の自演。

> ･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。

テンプレに書かれてることをやれば解決に辿り着くだけの情報出してるのに
些細な事でとやかく言ってる人ってなんなの？ばかなの？しぬの？

まだ分からないのか
・回答内容でわからない部分
ではなく
・回答か何かわからない
レスだったんだよ

そうでもないか

> >>754
> ほかのアプリケーションを無視する
>
> それでダメなら再インストール

の2行目部分が、これだけじゃ解り辛いって話じゃなかったの？
これを見ただけで、具体的に何をすればよいのか解らない奴は居たとしても
ちゃんとアンカーも付いてるのに、これが回答ですらないとか思うゆとりも居るの？

Excelで

E=2πhc＾2　/　λ＾5｛exp(hc/λkT)-1｝

のEとλの関係をグラフにするにはどうしたらいいですか？

h,c,kは定数で、Tは変数ですが与えられてます。

だから
回答ですらないとか思うゆとり
だと言ってるだろ

つまり一般人向けではなくゆとり向けの回答をしろって話だったの？

だったら最初からそう言ってくれればいいのに。
それなら回答に問題が有るか否かなんて話などせず

　　　　　『 却 下 』

の一言で終わったのに。

たしかにwww

【1 OSの種類 　 　 　 　 .】 Windows　xp
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 はい(ソースのコピーだけ)
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】

あまり説明がうまくないので画像を張りました。
http://www.dotup.org/uploda/www.dotup.org0057.jpg
Ａ列には文字列
Ｂ列には数字が並んでいます（複数の場合　","で区切っています）

これを元にＣ列以降に
頭に ☆ をつけて　A列Ｂ列の文字の間には :　をつけて
C1="☆"&A1&":"&B1　　というような形にしたいです。

もしＢ列にカンマで区切った複数の数字あった場合は
今の処理を右列にずらしながら行いたいです。


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

>>784
すいません訂正します。

右列にずらしながらと書いたのですがずらさずに　
C列内で　ｽﾍﾟｰｽで区切って表示したいです

>>784
>>785
出直してきます

>>780
Eとλの関係を表にして、それをソースにグラフ作ればいいだけじゃん


>>784-786
もう書いちゃったから一応貼っておくね

Sub Sample()
　　Dim i As Long, j As Long
　　Dim foo() As String

　　For i = 1 To Cells(Cells.Rows.Count, 1).End(xlUp).Row
　　　　foo = Split(Cells(i, 2).Value, ",")
　　　　For j = 0 To UBound(foo)
　　　　　　foo(j) = "☆" & Cells(i, 1).Value & ":" & foo(j)
　　　　Next j
　　　　Cells(i, 3).Value = Join(foo, " ")
　　Next i
End Sub

>>787
出来ました！ありがとうございます！

>>785
=MID(SUBSTITUTE(","&B1,","," ☆"&A1),2,1000)
頭にスペースがあってもかまわなければMID関数は要らんけど。

>>789
=MID(SUBSTITUTE(","&B1,","," ☆"&A1&":"),2,1000)
コロン抜けてるぞ。もう終わったけど

>>790
コロン要るの？
>>785でスペース区切りに要望が変わったんじゃないの？

あと1000じゃなくて1024な

>>791
セル区切りがスペース区切りになっただけで
A列の文字とB列の数字の区切りについては何も言われてないだろ

すまん、よく見たらコロン要るな。
>>784の画像を見てコロンが見えなかった。

>>792
1000は適当に書いたんだよ。
2007が何文字まで扱えるか知らないんでね。

>>795
ここでいう文字数とは1セルあたりの文字数のことかな？

1セルあたり32KBの容量までよかったような

　　　　　　　　　　　　 ／）
　　　　　　　　　　　／／／）
　　　　　　　　　 ／,.=ﾞ''"／
　　　／　　　　 i f　,.r='"-‐'つ＿＿＿_　　　こまけぇこたぁいいんだよ！！
　　/　　　　　 /　　　_,.-‐'~／⌒　　⌒＼
　　　　／　 　,i　　　,二ﾆ⊃（ ●）.　（●）＼
　　　/　 　　ﾉ　　　 ilﾞフ::::::⌒（__人__）⌒::::: ＼
　　　　　　,ｲ｢ﾄ､　　,!,!|　　　　　|r┬-|　　　　　|
　　　　　/　iﾄヾヽ_/ｨ"＼ 　　 　 `ー'´ 　 　 ／

まさにそれw

>>796
保持出来るのはね
表示出来るのは1024文字

質問です。よろしくお願いします。
例えば
Ａ1〜Ａ10になんでもいいが数字が並んでるとして
50以上100以下を足したいのですがどのようにすればいいですか？

sumif　で100以下を足すのはできるのですが、、、50以上100以下ができません。
　すみませんが誰か教えてください。お願いします。

>>800
100以下を足したものから50未満を足したものを引けばいい

50以上の合計から、100超の合計を引けば
50以上100以下の合計だ

因みに50以上の合計から、100以上の合計を引いちゃうと
50以上100未満の合計になっちゃうから注意な

逆に100以下の合計から、50未満の合計を引いても良い

>>801,802
ありがとうございます。
でも、もっと簡単にできないのですか？ありそうな感じはするのですが。

関数1個ですまそうなんて素人の考えそうなことだな