Excel総合相談所 81

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 2chのread.cgiへ]
Update time : 06/12 00:35 / Filesize : 212 KB / Number-of Response : 704
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Excel総合相談所 81

1 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 14:44:35 ]: 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
　pc11.2ch.net/test/read.cgi/bsoft/1235573810/
2 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 14:46:14 ]: ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･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 書籍や解説サイトの紹介以来はスレ以外。ここは技術的な質問のみで。
3 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 14:47:11 ]: ★ルールを無視すると…
　>>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分野の話ではないので､ここでは聞かないでください。
4 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 14:48:02 ]: ★ 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セルを分割 (分割したいセル以外を結合)
5 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 14:48:50 ]: ★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

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

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

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

　▼グラフ
　･棒グラフでひとつだけ突出したデータがあった場合に波線を入れて位置を合わせる
　　(オートシェイプなどで見た目だけそうなるように弄る、別アプリでグラフを作り、オブジェクトとして挿入)
　　┌┐
　　～～
　　｜｜
6 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 14:49:37 ]: 上記｢Excelで出来ないこと、仕様上の制限｣は､一般的に出来ないとされていること､出来ないと思われるものです。
間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。
Excel2007についても未確認な項目が多いので変更点が有ればご指摘下さい。

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

＞▼環境･書式
＞･セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
補足
2007ではページレイアウトビューの表示時に限り、幅・高さともｃｍ単位で表示され、
指定も同じくcm単位でできる。
ただし大元がインチ系なのでなかなかピタリの値は出ない。1cm→0.98cmのように
近い値に勝手に丸められる。
7 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 15:34:38 ]: >>1乙
8 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 15:35:31 ]: >>1
もつ
9 名前：前990 mailto:sage [2009/04/08(水) 16:03:02 ]: 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
以下同じで動きました、ありがとうございました
10 名前：名無しさん＠そうだ選挙にいこう [2009/04/08(水) 16:10:11 ]: ソフトのことならここが良心的・・・
www.hhyyhh22.co.nr
11 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 16:14:45 ]: 見積書や納品書につかう字体は主に何になるのでしょうか？
MS　Pゴシックでいいのでしょうか？
アドバイスお願いします。
12 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 16:19:52 ]: >>11
あなたのセンスでいいのでは？
13 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 16:19:54 ]: >>11
スレ違いすぎ。サヨウナラ
14 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 16:22:22 ]: スレ違いすみません
勉強のため他の会社からきた納品書を見て同じのをつくろうと
思っているんですが、なかなか見つからなくて悩んでおりました・・。
そして、会社で使う主な字体は何だろうと質問しました。
15 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 16:28:58 ]: ゴシックか明朝では
16 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 16:35:15 ]: >>15
ありがとうございます
早速、使ってみます(´∀｀)
17 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 17:52:36 ]: 教えてください。
A1のセルに 2009/4/1 12:58 が入っていまして、
A2には=SUM(A1+1)が入っていますが、見えるのは 2009/4/2 12:58
が見えています。この見えている 2009/4/2 12:58 の時間を編集したいのですが
いざ編集しようとすると =SUM(A1+1) が出てきてしまいます。

直接編集することは不可能では無いらしいのですが、検索しても分からず
困っています。どなたか教えていただけないでしょうか。
18 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 17:55:22 ]: >>17
形式を選択して貼り付け→値
19 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 18:10:20 ]: >>18
早速教えていただき大変うれしいです。
ちょっと検索しながらやってみます。
ありがとう御座いました。
20 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 18:29:38 ]: 【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で出来るんでしょうか？分かる方教えてください。
21 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 18:52:10 ]: =MAX(0,A1-TIME(10,0,0))
22 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 19:02:38 ]: >>21
テクニカルすぎ笑った
>>20
=IF(A1>(10/24),A1-10/24,0)
普通はこんな感じな
23 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 19:08:34 ]: >>21-22
ありがとうございました！
24 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 21:10:04 ]: 【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か月分、
一枚のシートに収まっているとして下さい。

このシートから、各月のテーブルに入力された売上数を、
一年間分、各商品ごとに自動的に集計し、
商品名と年間売上合計の一覧を適当な場所に表示するには、一体どうすればよいのでしょうか？
25 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 21:40:00 ]: >>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列をピボットテーブル
ピボットで商品名を左、価格を真ん中に穂織り込む
左上の「データの個数/売り上げ」を右クリック、フィールドの設定で合計
26 名前：前スレ979 mailto:sage [2009/04/08(水) 22:32:32 ]: 前スレ984氏、THXです。
27 名前：名無しさん＠そうだ選挙にいこう [2009/04/08(水) 23:33:20 ]: ｴｸｾﾙ2007で、
列幅調整をしたいときに、簡単に調整数値を入れるﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽを出すｼｮｰﾄｶｯﾄはありますか？
28 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/08(水) 23:44:29 ]: >>27
右クリ→列の幅
よりも簡単にしたいってこと？
29 名前：名無しさん＠そうだ選挙にいこう [2009/04/08(水) 23:50:40 ]: >>28
ありがとうございます。
全ての列をまとめて3.0ﾎﾟｲﾝﾄにしたいとき、
2007だと右クリックした際に列の幅調整のメニューが出てこないんです。
30 名前：名無しさん＠そうだ選挙にいこう [2009/04/08(水) 23:58:57 ]: >>29
2003まではツールバー→ユーザー設定→書式→幅コマンドあったんだけど
2007にはもうないのかな。
タブリボンとか使いづらそうだよね。
31 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 00:06:00 ]: >>29
シートの左上、[ A ]の左の白い▲をクリックして全選択したあとAを右クリック→列の幅
32 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 00:11:37 ]: >>31
いや2007では右クリだめだってことで聞いてるんでしょ。
ぐぐったけど2007はリボン（？）の書式から列の幅を選択するしかないっぽいな。
33 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 00:12:25 ]: ありがとうございます。
昔みたいに、マウスを使わずにキーボードだけでの完結はできなさそうですね。
2003を使用したいですが、会社が2007になるので慣れなきゃ…。
泣きそうです。
ﾌﾛｰﾁｬｰﾄも描きたいのですが、効率よく作業するため、
分岐や帳票の図をﾕｰｻﾞｰﾂ-ﾙﾊﾞｰ上に登録したいと思っています。
その機能は2007に残っているでしょうか。
34 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 00:16:11 ]: >>31
あ、ごめん。右クリできるのね。すまんかった。
35 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 00:16:45 ]: マクロを自作してショートカット登録すればいいんじゃね？
36 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 00:18:58 ]: >>35
そ…そうですね。
2007は2003よりかなり不便になったのでしょうか。
改悪という印象しかないですが、大きな改善点があるのでしょうね。
37 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 00:19:55 ]: Altキーも使えないの？
38 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 00:23:20 ]: ユーザー設定ツールバーに「列の幅」を登録すれば、Alt+数字で実行できる。
数字は環境によって違う。Altだけを押してみればチップで数字が表示される。
39 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 00:43:31 ]: シートのプロパティからStandardWidthを変更すれば全セルの幅が一気に変わる。
プロパティを出すショートカットはAlt、L、L。
40 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 01:01:15 ]: 実は2007、見た目以外の改悪はほとんど無い
だが見た目があまりにもひどすぎて
かくいう俺も2003に戻してるわ。使いにくすぎるわ・・
41 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 01:04:19 ]: >>37
altとｶｰｿﾙｷｰで、列幅調整にたどることができるけど、ﾌｫﾝﾄを選ぶﾎﾞｯｸｽにｶｰｿﾙが行ってしまったらやり直しになる…
42 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 01:06:27 ]: 2003ではｵｰﾄｼｪｲﾌﾟの個々の図形をﾕｰｻﾞｰ設定ﾂｰﾙﾊﾞｰに置くことができたけど、
2007は無理(-_-;)？
43 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 01:14:31 ]: >>42
たいていの物は置けると思うけど
44 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 01:31:45 ]: >>43
ﾕｰｻﾞｰ設定ﾂｰﾙﾊﾞｰの編集を試みたけど、特定の図形だけを乗せるやり方がワカリマセン。
45 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 02:05:21 ]: >>40
> 実は2007、見た目以外の改悪はほとんど無い
正しくは「見た目」ではなく「インターフェイス(GUI)」ね
「見た目」だけなら気にしない人も多いだろうが
GUIソフトで一番重要な「インターフェイス(GUI)」の改悪とあっては看過できない
46 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 06:00:32 ]: >>18
教えて頂いた意味が分かり、ちゃんと出来ました。
しかし教えて頂いた方法では、数式が無くなってしまい値のみに
なってしまうと都合が悪いです。

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

なぜ数式が必要かと言いますと、翌月のシートを作る際に先頭のセルに5月1日と
打ち込むと後は一気に5月31日までのセルが出来上がります。
この出来上がったセルに後は実際の稼働時間を打ち込み編集したいわけです。
不躾ながら教えていただけないでしょうか
47 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 06:32:48 ]: >>46
数式を残しながら値を編集するには
=SUM(A1+1)　+1
など数式の最後に数式を追加

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

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

じゃなきゃメモにでも書いとけ
48 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 06:45:26 ]: Ctrl+1の機能が残っていて助かったけど、ｵｰﾄｼｪｲﾌﾟがめんどくせぇ…。
今日からﾌﾛｰﾁｬｰﾄを書かなきゃいけないんだけど、ﾏｳｽでｵﾌﾞｼﾞｪｸﾄを配置するにも動きが遅いよ…。ﾂｰﾙﾊﾞｰにもﾊﾞﾗで登録できないし。ｽﾄﾚｽでﾊｹﾞそう。
49 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 06:58:17 ]: フローチャートとコネクタは使ってる?
そんなに面倒でもないと思うんだがなぁ
50 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 07:26:54 ]: >>49
2003まではｻｸｻｸできたけど、2007からは動きが遅くなった
(-_-;)。
51 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 07:40:07 ]: そうなのか、それはスマンかった
52 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 09:11:33 ]: GMT標準時刻で渡されるデータがあるのですが、これを日本時間に変換したいです。
日本はGMT+9なので9時間進めた日時時間にするにはどうすればいいでしょうか？

表示形式は下記のようにしたいです。
GMT時間　　日本時間
2009/04/09 00:15　　　　 2009/04/09 09:15
53 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 09:18:11 ]: =A1+"9:00:00"
54 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 09:28:03 ]: >>53
即レスありがとうございます！！
55 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 11:59:04 ]: 【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の場合は　「当期」と表示
４・いずれも該当がない場合は「該当無」と表示
と表示したいのですが、式を教えて下さい
また期が変わる都度１～３の値を変更しなければならないと思うのですが
この部分も自動で繰り上がるように出来ないでしょうか？
56 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 12:05:58 ]: >>55
VLOOKUPで、表示も繰り上げも解決する
57 名前：55 [2009/04/09(木) 12:15:51 ]: >>56
VLOOKUPの使い方は多少わかりますが
具体的な使い方を教えて下さい。
58 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 12:27:57 ]: >>55
西暦を調べるんじゃなくて「今日から何年前か」を計算すれば、いちいち式を書き換える必要はなくなる。
=LOOKUP(YEAR(DATE(YEAR(TODAY()),MONTH(TODAY())-2,DAY(TODAY())))-YEAR(DATE(YEAR(A1),MONTH(A1)-2,DAY(A1))),{0,1,2,3;"当期","前期","前々期","該当無"})
59 名前：58 mailto:sage [2009/04/09(木) 12:33:28 ]: ごめん。↑の式は年度の区切りを3月1日で作っちゃったから、DAYの方も引き算しといてね。
60 名前：55 [2009/04/09(木) 12:36:39 ]: >>58
ありがとうございます、発想の転換ですね（使ったことのない関数の山ですが）(^_^;)
貼り付けてみます。
61 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 12:40:30 ]: >>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=当期

でうまくいくか?
と思ったら既に解決済みすか・・
62 名前：55 [2009/04/09(木) 12:58:26 ]: >>58
すみません、貼り付けてみましたが計算できませんでした
>>59
式がわかりません、式を組み立てて頂けますか？
>>61
これはどう使えば良いのですか？
63 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 13:08:49 ]: >>62
ファイルを開いた日の区切りは2/21で年度の区切りは3/1？
64 名前：55 [2009/04/09(木) 13:18:43 ]: >>63
おっしゃる通りです。
自分でも気づきませんでした
65 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 13:22:46 ]: >>64
>>63の仕様でいいんなら
=LOOKUP(YEAR(TODAY()-51)-YEAR(DATE(YEAR(A1),MONTH(A1)-2,DAY(A1))),{0,1,2,3;"当期","前期","前々期","該当無"})
66 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 13:24:23 ]: >55
=CHOOSE(YEAR(TODAY()-51)-YEAR(A1-51)+1,"当期","前期","前々期")

区切りが３月１日以降の時は、年末までの日数を足す。
67 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 13:33:11 ]: >>66
3年以上前がエラー
68 名前：55 [2009/04/09(木) 13:34:40 ]: >>65
度々申し訳ありません
A1に「200703」が入っていますが「#N/A」が表示されます
69 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 13:36:49 ]: >>68
=LOOKUP(YEAR(TODAY()-51)-YEAR(DATE(LEFT(A3,4),RIGHT(A3,2)-2,1)),{0,1,2,3;"当期","前期","前々期","該当無"})
70 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 13:36:58 ]: A1には年と月で日は入らないんか
71 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 13:37:43 ]: 訂正
=LOOKUP(YEAR(TODAY()-51)-YEAR(DATE(LEFT(A1,4),RIGHT(A1,2)-2,1)),{0,1,2,3;"当期","前期","前々期","該当無"})
72 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 13:45:27 ]: >>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=該当無
でいいかな
73 名前：55 [2009/04/09(木) 13:49:30 ]: >>皆様
ありがとうございました、御蔭さまで今後の仕事が楽になりましたm(-_-)m
74 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 13:54:16 ]: =LOOKUP(YEAR(TODAY()-51)-LEFT(A1,4)+(MOD(A1,100)<3),{0,1,2,3;"当期","前期","前々期","該当無"})
75 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 13:56:10 ]: あ、もう終わってたのか
76 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 14:28:49 ]: この手のはいろいろ解法があって、いかにスマートに式を
短くできるかってのも楽しみの一つだからな。
77 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 14:51:30 ]: 回答者の回答を見てやっと質問の意味を理解できた
こんな自分が悲しい
78 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 15:41:38 ]: > いかにスマートに式を
> 短くできるか
初心者は式の短さに目がいきがちだが
業務では読解性の方が重要だったりする

他の人が見ても、その式が何をしているのか理解しやすくないと
独りよがりその場限りで業務としての継続性が無くなるからな
79 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 15:42:46 ]: ↑
理解できるだけマシ
もれはサッパリわかんないんだぜｗ
80 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 15:44:44 ]: ？
81 名前：79 mailto:sage [2009/04/09(木) 15:48:52 ]: >>77にレスしたんだが・・・＿|￣|○
82 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 16:00:53 ]: 消費税の式は合計×0.05としていますが
Excel2003使用です。

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

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

初歩質問すみません
お願いします
83 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 16:18:02 ]: 【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まで入らないといけないので困ってます。
84 名前：82 mailto:sage [2009/04/09(木) 16:30:39 ]: 解決しました＾＾
ただ、SUMで合計した欄に「円」をつけるのが
わからないです・・・。
85 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 16:37:50 ]: >>84
消費税を四捨五入するか切捨てるかは
Excelで計算させたらこうなったとかいう問題じゃなくて
事業者の方針で決める事だけど、その辺分かってるのかな。

あと、表示上は32となってても内部的に31.5だとすると
合計したときに誤差が累積して結果が間違うから
ROUNDやROUNDDOWN関数で四捨五入や切捨ての処理を行ったほうがいいよ。
86 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 16:51:18 ]: 表示形式をユーザー定義 #,##0"円"
87 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 16:51:59 ]: >>83
頭悪いならやりたいことは1つ1つクリアしていく癖を付けろ

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

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

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

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

たったこれだけ
これが出来れば、作業セル無しの式にまとめるのも簡単だ
88 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:09:12 ]: >>87
自分の日本語がおかしくてすいませんでした。
そして回答ありがとうございます。

その数式なら自分もわかるんですが、下のA2に書くしかないですか？
下にも数字が入っていくので、出来れば下に書きたくなかったんです。
「表示しない」で消せば良いのであまり問題はないんですけど、他に方法あるのかと
思って質問しました。でもこれしかないならこれでやろうと思います。
ありがとうございました。
89 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:13:57 ]: 「これが出来れば、作業セル無しの式にまとめるのも簡単だ」

簡単ではないらしい
90 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:22:40 ]: >>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))
91 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:27:58 ]: >>90
わかります。
後出しで申し訳ないんですが、横に並ぶセルが5個の場合～30個までの場合があって、
そのやり方だと5個の場合ならいいんですけど30個だと「SUM(IF(A1>10,10,A1)～･･･」が
30個続いてしまうので、合計の数式でなんとかできないかと思ったんです。
92 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:30:01 ]: >>47
ちゃんと教えてくれてありがとう御座います。
また検索して調べながらやってみます。
93 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:32:19 ]: >>88
> 自分の日本語がおかしくてすいませんでした。
日本語がおかしいんじゃなくて、必要な情報を出してないだけだろ。
所謂「情報後出し厨氏ね」ってやつですな。

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

配列数式で解決するが、度重なる後出しで式を書いてやる気は失せたので自分で調べろ。
94 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:34:12 ]: ×書いてやる気は失せた
○書けない
95 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:40:07 ]: =SUMPRODUCT((A1:E1<10)*(A1:E1)+(A1:E1>=10)*10)
とか
96 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:41:03 ]: 残念、ハズレ

書けなかったら、配列数式で解決するか否かすら解らないぜ。
97 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 17:45:25 ]: 先生うぜえな
98 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:47:18 ]: （´-`）.｡oO（この子、いきなんりどうしたんだろう？）
99 名前：90 mailto:sage [2009/04/09(木) 17:48:31 ]: >>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))}
となり、期待通りの答えが出ると思う。
100 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 17:49:57 ]: つーか、配列数式の存在知っていて、これほど率直に書くだけで解決する
配列数式が書けないとか有り得ねーだろw
94はどういう頭してるんだ?
101 名前：90 mailto:sage [2009/04/09(木) 17:52:46 ]: 書き忘れ。

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

こことか見たら配列はわかりやすいです。
102 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:54:04 ]: 煽ってみれば書いて貰えるとでも思ったんじゃないの？
結果的には煽りのは載ってくれなかったけど、別の先生が答えてくれたから結果オーライでしょ。
103 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 17:56:49 ]: 馬鹿しか答えたがらないんだろ
104 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:57:00 ]: 後出し後出し言うけど
あらかじめ全ての条件を完璧に出せる程度の頭を持ってる健常者は
２ｃｈなんかで質問しないでググって5分で解決してるよ。

お前らボケてる爺さんに向かって「さっきも同じこと聞いたけど」と冷たくあしらうような事やめてやれよ。
可哀想な人には優しく接してやるのが普通の人間てもんだ。
105 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 17:57:38 ]: 大人の対応に涙
106 名前：83 mailto:sage [2009/04/09(木) 17:58:24 ]: 自分が最後にレスしたのは>>91だけで後は書いてないです。
ID出ないので、嘘だと思われてもしょうがいないですが…。

>>93 >>99
本当にありがとうございました。
もっと勉強してみます。
107 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:01:32 ]: >>104
ボケてる爺さん(努力ではどうしようもない)ではなく
怠惰なガキ(努力してないだけ)だから
冷たくあしらわれるんだろ
108 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:02:32 ]: お前らひどい事平気で言ってるなｗ
さすが２ｃｈだぜｗ
109 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 18:03:41 ]: クソの役にもたたない先生様は
チラシの裏に「ボクは偉いです」って好きなだけ書いてろ
110 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:06:03 ]: >>109
とりあえず落ち着け

カッカしてるとageとsageの使い分け間違うぞ
111 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:06:11 ]: 掲示板を情報源として利用している第三者からすると
余計な啓蒙や煽りは当人の自己満足のゴミカスでしか無いんだけどな。
知ってるなら答え書けばいいし、知らないなら何もレスしなくていいよ目ざわりなだけだから。
112 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:08:52 ]: 無用な情報(雑談や罵倒など)があったり、必要な情報がまとまってなかったりするから
「情報源」であるのに無料で利用できるんだろ。
君は2chを情報源として利用するには些か早すぎるようだ。
必要な情報だけが都合良く纏まってるものが欲しいなら解説書でも買え。
113 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:09:58 ]: 無料かどうかは別に関係ないだろｗ
114 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:10:32 ]: 喧嘩は～やめ～て～⊂(´･ω･｀)⊃
115 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:13:29 ]: >>113
無料で利用できる情報は、都合良く纏まってるとは限らないという話だよ
116 名前：84 mailto:sage [2009/04/09(木) 18:16:13 ]: >>86
できたっ！
ありがとうございます(´∀｀*)ﾎﾟｯ
117 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:17:14 ]: >>115
都合良く纏まってるとは限らないからといって
それに対して文句を言っちゃいけない事は無いだろ。
ひろゆきが「都合よく纏めるな」とでも利用規約を決めてるならそれに従うしかないが。
118 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:20:13 ]: 何言ってんだこいつ
119 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:22:43 ]: >>117
なんか言ってる事の意味が理解できないｗｗｗ

>>115は「無料だから纏まってなくても仕方ない」といってるだけで、
別に「纏まってない事に文句言うな」なんていってないと思うがｗ
で、文句を言う事でさらに纏まらなくなっていくというｗｗｗ
120 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:25:26 ]: 2chはこういうもんだから気に入らなければ来なけりゃいい
は正論だけどつまんないよな。
121 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:28:58 ]: >>117
誰も文句を言うこと自体をどうこうは言ってないじゃん。

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

ぶっちゃけ>>117自身もが、まとまりの無さに一役買ってるわけだ。
122 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:34:29 ]: Excelに関する情報が含まれてればどんな雑多な内容でもまとまってなくても構わないが
「知ってるけど書かない」みたいな女の腐ったようなExcelオタクの下らない自己漫レスはｲﾗﾈ
という事です。
123 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:37:55 ]: >>122のような書き込みこそｲﾗﾈ
124 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:42:20 ]: >>122
ただまあ、気持ちはわからないことはないよ、俺は。
「自分が時間と金と労力をかけて身に付けた知識を、
ただ数行の書込だけで手に入れようとするのか」って
思いがあるんじゃね？

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

ま、質問がなければ解答者も必要ないんだから、五分五分なはずだけどなｗ
125 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:43:05 ]: >>122
> 知ってるけど書かない
それだけなら確かに要らないが、>>93みたいに
「この機能で解決するが、具体的な使い方は自分で調べろ」的なのはちゃんと情報になってるよ

得にくだ質とかじゃなければ、質問者にもある程度考えさせるのは重要なことだから
後出しが無かったとしても、配列数式で解決することと配列数式の解説サイト紹介くらいが丁度良い
126 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:46:31 ]: それにしても「配列数式で出来るから自分で調べろ」ぐらいにしとけば
こんなに荒れなかっただろうになあ・・・
127 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 18:55:20 ]: そうでもないか
128 名前：名無しさん＠そうだ選挙にいこう [2009/04/09(木) 23:10:10 ]: 2007でｷｰﾎﾞｰﾄﾞのみの操作で改ﾍﾟｰｼﾞﾌﾟﾚﾋﾞｭｰを出すにはどうしたらいいでしょうか…。
改ﾍﾟｰｼﾞﾌﾟﾚﾋﾞｭｰすらまだ居場所が分かっていませんが
(-_-;)。
129 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/09(木) 23:15:59 ]: >>128
Alt　W　I
130 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 09:16:43 ]: スレ違いになるかもしれん
会社でoffice2000使っていて、俺はoffice2003を使っていたが
このたび　エクセル6万行以上使えるって事でoffice2007購入してしまった

エクセル2003とエクセル2007の併用ってできますか？
131 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 09:22:11 ]: >>130
できるよ。2003→2007の順でインストールすればおｋ
132 名前：77 mailto:sage [2009/04/10(金) 09:45:38 ]: まただ
回答を見てから質問の意味に気づく
同じパソコンでの併用ってことだったのね
こんな自分が悲しい
133 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 11:14:40 ]: ここはお前の日記帳じゃない
134 名前：ゆゆゆゆ [2009/04/10(金) 11:34:46 ]: Wordのコメントが削除できない

（Word バージョン2000）
他の人（バージョンは2000でないかもしれません）が入力したコメントを削除したいのですが、
右クリックの「コメントを削除」をクリックしても削除することができません。黄色くハイライトされたままになってしまいます。
また、できれば一つの文書でたくさんのコメントを一度に削除したいのですが。
バージョンが低いためにできないのでしょうか？
ご存知の方、教えていただきますようお願いします。
135 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 11:36:51 ]: ここExcelですお(;ﾟдﾟ)ｧ
136 名前：名無しさん＠そうだ選挙にいこう [2009/04/10(金) 13:04:45 ]: Excel2007なんだけど
バルーンヘルプが表示されない
表示させるようにするにはどうすれば？
137 名前：名無しさん＠そうだ選挙にいこう [2009/04/10(金) 13:32:40 ]: 【1 OSの種類　　　　 .】 Windows　XP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】　可
【5 検索キーワード　　】変換 EXCE　単位

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

元データをWEBクエリで取り込んでいるので、入力してあるセルの書式を変更してもなかなかうまくいきません。。。
宜しくお願いします。
138 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 13:42:04 ]: >>136
オプションの基本設定でポップヒントのスタイル変更できるからそれ変えればいいんじゃね？
139 名前：137 mailto:sage [2009/04/10(金) 13:49:32 ]: =VALUE(SUBSTITUTE(SUBSTITUTE(A1,"万",""),"円",""))

でできました。お騒がせしました。
140 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 15:38:54 ]: >>131
ありがとう
早速インストールします

>>132
５W１Hが欠けていた私の質問の仕方が悪かった思います。
141 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 17:09:35 ]: 【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 名前：141 mailto:sage [2009/04/10(金) 17:14:04 ]: すいません，一行開けたら別々にソートできましました
勝手に脳みそが熱暴走してたみたい。
書き込んで，冷静になったら気づきました。
すんませんでした
143 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 17:51:05 ]: >>142
俺は超初心者でやってることがよく分からなかった
どんなことが出来るようになったかUPしてくれたら嬉しい

www.axfc.net/uploader/　UPローダ　頼みます
144 名前：名無しさん＠そうだ選挙にいこう [2009/04/10(金) 18:20:21 ]: 【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 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 18:24:44 ]: つ変なマクロが動いてる
146 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 18:30:20 ]: >>145
やってみましたが、マクロを無効にしてセルC11を""にしても結果は同じです。
147 名前：144 mailto:sage [2009/04/10(金) 18:31:07 ]: 146=144です。すいません。
148 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 18:37:45 ]: ブックうp
149 名前：141 mailto:sage [2009/04/10(金) 18:52:21 ]: >>143
www1.axfc.net/uploader/File/so/21133.zip
前半と後半にある単位数や科目群を並べ替えたかった
でも最初は隙間を空けず羅列していたから上手く行かず
C列の単位数を押すと前半後半関係なくソートされていた
そこで小計と共に空白の行を挟んだら，空白以上以下を区別してソートしてくれるようになった。
なんか凄く単純なことでした。スレ汚しすいませんでした。
150 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 18:53:10 ]: >>144
そのブックに特有の現象？
それとも新規にブック作成して同様の式を入れて同じ現象が起こる？
151 名前：144 mailto:sage [2009/04/10(金) 19:25:15 ]: >>148 >>150
ありがとうございます。

やってみたらこのブック特有の現象みたいでした。
他のブックにコピーしたらなんともありません。
まあコピーすればよいので、おかげさまで解決はするっぽいですが原因はいったい何なんでしょうか・・・
他のブックにコピーして少し様子を見てみます。
152 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 19:54:47 ]: >>149
いい物見た。すごい
153 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 22:08:13 ]: 【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関数で問題ないのですが、２つの条件が
重なった場合の関数の組み合わせがわからなかったので、どうか
皆さんの知恵を貸していただきたいのですが、よろしくお願いいたします。
154 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 22:15:35 ]: 作業列ってしってる？
155 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 22:15:53 ]: >>153
2003じゃ配列数式かなあ
=SUM((A1:A5>0)*(B1:B5=6)*(C1:C5))で[ctrl]+[shift]+[enter]
156 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 22:18:29 ]: お、かぶったか
そだね。作業列使った方がわかりやすいかな
157 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 22:23:10 ]: そんじゃ作業列使って、1つずつ条件をクリアしていく方法

・1.
D1==ISNUMBER(A1)

・2.
E1=B1=6

・3.
F1=AND(D1,E1)

・合計
=SUMIF(F1:F5,TRUE,C1:C5)
158 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 22:30:03 ]: 横から作業列ってどうやって作るの？
159 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 23:21:04 ]: 縦からなら作れるの？
160 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/10(金) 23:33:18 ]: >>157
d列が0や-1じゃダメだろ
161 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 00:58:21 ]: 作業列って言ったら普通D列使うんじゃないの？
D1　=if(and(A1>=1,B1=6),C1,"")
程度の。で、D列合計。
162 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 01:17:58 ]: 解ってる奴(ここに質問に来ない奴)ならそれで良い
解ってない奴には、ネストせず1つ1つの処理が返した値を確認させた方が良い
163 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 02:29:41 ]: >>162
('A`)y-ﾏﾝﾄﾞｸｾｰ
164 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 03:09:01 ]: そりゃー解ってる奴から見れば面倒なのは当然だな
165 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 06:27:10 ]: ="あ">1
なぜこれがTRUEになるのでしょうか？
166 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 07:17:31 ]: 比較演算では両辺共に数値として解釈できない場合は文字コードで比較する
そして「あ」の文字コードの方が「1」の文字コードより大きいから
167 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 08:37:46 ]: ありがとうございました
168 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 11:18:51 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】　いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】相関、回帰直線、傾き、slope、切片0

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

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

今は、グラフを作成して回帰直線と式を表示して、そこに表示される値をコピペして使ってます。
他に方法がないなら、次はこの値を自動でコピペする方法とか（VBA？）を考えますが
まずは関数で解決できるならそうしたいです。
よろしくお願いします。
169 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 11:41:26 ]: 【1 OSの種類　　　　 .】 Windowsxp
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可

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

現在ﾏｸﾛでLINEで描かれたシェイプはActiveSheet.Lines.Deleteで削除しています。
シートには他に作ったボタンやシェイプで描いた四角などがあり、大かっこのみを
削除するためです。
170 名前：名無しさん＠そうだ選挙にいこう [2009/04/11(土) 11:49:30 ]: あげてみる
171 名前：169 mailto:sage [2009/04/11(土) 11:54:31 ]: ごめんなさい

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

でした。よろしくお願いします。
172 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 12:01:51 ]: Excel2000ですが、シートを挿入すると、
シート3の手前にシート４が入ってしまいます。
これを数字通り並べ替えるのはどうするのでしょうか？
173 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 12:10:49 ]: >>172
シートの見出しのところをクリックしてドラッグして右側に持ってくる
174 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 12:19:35 ]: >>169
ActiveSheet.Shapes.AddShape(msoShapeDoubleBracket, 114#, 159.75, 118.5, _
76.5).Select
マクロの記録しなよ
175 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 12:28:23 ]: >>173
ありがとうございました。
一度それ試したけどできなかったので諦めちゃったんだけど、
今やったらできました。面倒ですね・・・orz
176 名前：名無しさん＠そうだ選挙にいこう [2009/04/11(土) 13:02:16 ]: ｻｰﾊﾞｰの共有ﾌｫﾙﾀﾞ内にExcelの顧客管理台帳を置いています。
その中で郵便番号による住所入力支援を使用していますが、
市町村合併による住所の名称変更を常に最新の状態で反映させるには、手動でﾃﾞｰﾀをﾀﾞｳﾝﾛｰﾄﾞしなければならないでしょうか。
また、このﾀﾞｳﾝﾛｰﾄﾞはｻｰﾊﾞｰのみに行えばよいのでしょうか？
よろしくお願いします。
177 名前：名無しさん＠そうだ選挙にいこう [2009/04/11(土) 14:03:36 ]: 　　　　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列の特定チーム（たとえば鹿島）の「得点」の合計を欲しいのですが、
どうすればいいのでしょうか？
178 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 14:08:11 ]: SUMIF
179 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 14:55:56 ]: >>177
=SUMIF($B$1:$B$13,"鹿島",$C$1:$C$13)
180 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 15:05:04 ]: >>178
どもです。
=SUMIF(B1:B100,"鹿島",C1:C100)
としたらできました。
181 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 15:08:20 ]: >>179
ありがとうございます。絶対指定のほうがいいですかね？

この形の表をベースにして、
最新節時点での各チーム勝敗数とか総得点総失点とか色々派生させたいのですが
EXCELは難しいですね。＼(＾o＾)／ｱｷﾗﾒﾏｽ
182 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 15:40:52 ]: >>181
どっちでもいいけど、下や横にフィルハンドルでコピペすると範囲がずれるからさ。
1個しか入れないなら>>180のでいいよ。

>>181に書いてるのも多分そんな難しいことしなくてできるような事だと思うけど、
いかんせん、サッカーの知識に乏しいので何がしたいのか具体的によく分からないｗ
諦めることはないと思うよ。やりたい事があるほうが上達も早いよ。
183 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 15:55:45 ]: 【1 OSの種類　　　　 .】 Windows XP
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】エクセル　オブジェ

エクセルのシートの中にオブジェが大量にちりばめられている状態で
これを全て削除するにはどうしたらよいのですか？
４００くらいのオブジェがあって一個一個デリートすると結構な時間がかかってしまいます。
184 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 16:21:34 ]: >>183
編集→ジャンプ→セルの選択→オブジェクトにチェック→OK→デリート
185 名前：名無しさん＠そうだ選挙にいこう [2009/04/11(土) 16:24:20 ]: 仕事に役立つソフトがいろいろあります
www.hhyyhh22.co.nr
186 名前：名無しさん＠そうだ選挙にいこう [2009/04/11(土) 16:32:35 ]: 【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

「製品」毎の結果を二軸グラフにして、
それを一つのグラフの中に並べたい、
という意図になります。
187 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 18:29:09 ]: >>185
ゴミばっかだな
188 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 18:45:53 ]: >>186
複数の表を選択した状態でグラフ
189 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 20:19:54 ]: >>181
得失点で勝ち負け引き分けを出した作業列とピボットテーブル。
もしかしたら作業列なしでも出来るかも知らんが俺は知らない。
190 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 21:01:44 ]: >181
オートフィルタかけてSUBTOTAL使えばいいんじゃない
191 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 21:52:29 ]: >>168
俺が得意な数学ｷﾀｰ
とりあえずbookをUPして
192 名前：153 mailto:sage [2009/04/11(土) 23:38:08 ]: レスしてくれた方々、ありがとうございました。
大変参考になりました。
他にもSUMPRODUCT関数を使う方法もあるらしいので
いろいろ試してみます。
193 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/11(土) 23:55:20 ]: >>168
LINEST 関数
194 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 00:04:27 ]: >>193
切片０なら一発
切片がたとえば2固定なら、与える(x,y)の数字からyの部分を
すべて2引いた組み合わせ使えばオケ
195 名前：168 mailto:sage [2009/04/12(日) 00:10:45 ]: >>191
うｐしてみました（データは適当なのであまり例として良くないですが）
www1.axfc.net/uploader/File/so/21211.xls

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

>>194
切片0なら一発、とはどういうことでしょうか？
切片が2なら2を引くということは、切片0なら0を引く…ということになりますが意味が無いですよね？
理解力に乏しくて申し訳ありません…
196 名前：168 mailto:sage [2009/04/12(日) 00:12:13 ]: >>194
ああ、すみません、アンカーを見間違えてました。
>>193の説明が>>194ということですよね？
ちょっと試しにやってみますが、理解できなくてまた質問するかもしれません。
197 名前：168 mailto:sage [2009/04/12(日) 00:40:16 ]: >>193-194
ありがとうございます！
=LINEST(yの範囲,xの範囲,0,0)　でできました。

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

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

質問に質問を重ねてしまい申し訳ありませんが、よろしければご教授ください。
198 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 00:41:10 ]: 先日エクセル2003が入っているPCに2007もインストールしました。
>>195でファイルをDLしたけど、
エクセル2007で見るとグラフとか形が崩れるね。

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

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

現在　ファイルをダブルクリックすると2007がデフォルトで起動します。
2003をデフォルトにする方法を教えてください
199 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 00:48:20 ]: >>198
それはエクセルじゃなくてWindowsの問題なんでは…
拡張子の関連付けを2007から2003に変更すればいいだけでしょ。
200 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 01:07:12 ]: >>198
xlsファイルを右クリック→プログラムから開く→プログラムの選択→Excel2003を選ぶ→
いつもこのプログラムを使う、にチェックしてOK
201 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 01:39:10 ]: >>188
ありがとうです。さっそく試したのですが、
意図するものができませんでした…。

意図を正しく伝えられている自信がないのですが、
片方のグラフに対してもう一方を系列として追加するというより、
同じx/y軸＆複数の共通の系列を持ついくつかのグラフを
一つのグラフの中で横に並んでいるように見せたい
（y軸は共通、x軸の要素は元のグラフの数だけ繰り返し）、
複数のグラフを絵的に一つのグラフの中に嵌め込みたい、
ということを実現したいです。
202 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 01:57:07 ]: >>201
それなら、複数のグラフを作って、横に並べて、
二つ目以降はy軸の数値を非表示にすればいいだけのことでは？
203 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 02:27:00 ]: >>201
こういうこと？
ttp://ura.s2.x-beat.com/src/ar22272.png
204 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 09:13:59 ]: >>201
ありがとうございます。
205 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 12:25:03 ]: >>202
背景を透明にすれば割と違和感なく実現できました。
グラフ間の調整で少し手間取りそうですが、
手段としてぜひストックさせていただきます。┏○ﾍﾟｺﾘ

>>203
まさにそれがしたいです。
確認のためにうｐまでありがとうです。
206 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 15:22:16 ]: 【1 OSの種類　　　　 .】 Windows XP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

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

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

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

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

よろしくお願いします。
207 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 15:42:32 ]: >>206
ユーザー定義で
#,###.###############################################################
だと惜しいところまで行くんだがなぁ
TEXTとアンパサンドで無理やり作ってみるか

マイナスのときはどうすればいい？
208 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 15:51:14 ]: >207
ありがとうございます。
マイナスのケースはないので考えていませんでした。

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

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

1,234.
.12345
209 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 16:07:19 ]: #,##0.###############

なら最初のゼロはつく。でも整数でも小数点がつく。
210 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 16:13:38 ]: >>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ならできるかもしれないけどよく知らないや
211 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 16:15:48 ]: >209

それは試していませんでした。
大分近づいて来ました。
212 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 16:16:19 ]: 関数ならこんな感じかな。
=TEXT(A1,IF(MOD(A1,1)=0,"#,##0 ","#,##0.###############"))
213 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 16:23:14 ]: >212
ありがとうございます。
希望どおりの結果になりました。
214 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 16:48:02 ]: 2007が一番簡単だね。
表示形式を#.##0###############としておいて、条件付き書式で「新しいルール」から
「数式を使用して、書式設定するセルを決定」で「次の数式を満たす場合に書式設定」で=A1=INT(A1)とし
書式で表示形式を#,##0とするだけだ。
215 名前：名無しさん＠そうだ選挙にいこう [2009/04/12(日) 17:27:54 ]: 【1 OSの種類　　　　 .】 XP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】ユーザーフォーム　シート書き込み　シート記入

ユーザーフォームでテキストボックス２ことコンボボックス２こ設置してこの値をシート１のA1からD1に書き込みたいのですが、書き込むごとに上書きしていくようにするにはどのように記述したらよいでしょうか？
初心者です。スイマセン。
216 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 20:42:53 ]: >>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
217 名前：215 mailto:sage [2009/04/12(日) 21:04:48 ]: >>216
ありがとうございます！
おかげさまでうまくいきました。
218 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 21:37:29 ]: 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
よろしくお願いします。
219 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 21:48:10 ]: よくわからんがVLookupでいいんじゃない？
220 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 21:57:04 ]: 勘違いした。VBAじゃなきゃだめかも。
221 名前：218 mailto:sage [2009/04/12(日) 22:01:11 ]: >>220
VBAでも良いので是非お願いします。
222 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 22:29:33 ]: ファイルを１回保存する必要あるけどこれでいけないか？

=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関数をかませる。
223 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 22:38:15 ]: 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),""))
224 名前：名無しさん＠そうだ選挙にいこう [2009/04/12(日) 23:05:37 ]: あの、質問なんですがよろしくお願いします。
今散布図のグラフを作成しているんですが
そのグラフを斜め３０度くらいに傾けたいんですが
そんな事できるんでしょうか？
出来るならどうしたらいいですか？
225 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 23:09:22 ]: 興味ある
226 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 23:36:10 ]: >>197
まずは切片が0の場合を完成させろ。
できたら切片が3の時どうするか考える。
グラフを下に3平行移動すれば切片が0の時と同じだ。
作業列作ってデータのyの値を3引いたものを表示。
それを使えば切片が0の時の式で傾きが求められる。
ある値xに対するyの推定値は、
y ＝ [傾き] × [xの値] ＋ 3
で求められる。
227 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 23:40:32 ]: >>226
がいってる数学は高校の数学Ⅰレベルのだよね。
数学が出来ない人は分からないだろうね。
228 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 23:44:14 ]: >>224
傾けるってグラフのx軸y軸も傾けるのか?
それとも軸は傾けずデータだけ傾けるのか?
前者ならグラフを画像にして画像を回転。
後者なら三角関数使ってデータを変換（回転）してからその値をグラフにする。
229 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 23:46:12 ]: >>227
中学レベルで分かるだろ
230 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 23:50:01 ]: >>229
中学でも分かるけど、中学でやるか（2次関数までやるしね）
231 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/12(日) 23:54:36 ]: ちゃんとLINESTのヘルプを読んだら良いのにね
232 名前：197 mailto:sage [2009/04/13(月) 00:25:44 ]: >>226
ありがとうございました。わかりました。

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

>>231
すみません。LINESTのヘルプは読んだのですが、
戻り値が配列になっている関数の場合、どうすればよいのか分かりませんでした。
自分で調べて、必要ならINDEXで指定すればよいとわかりました。お騒がせしました。
233 名前：名無しさん＠そうだ選挙にいこう [2009/04/13(月) 00:27:27 ]: セル内の文字の並べ替え（ex.べらえかな→ならべかえ）ってどうやるのでしょうか？
234 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 00:45:13 ]: >>233
VBAでしこしこやるしかなんじゃない?
235 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 00:56:43 ]: >>233
全くの逆順なら

strReverse("ならびかえ")

でいけるんだけどどういう規則で並び替えるの？ランダム？
236 名前：名無しさん＠そうだ選挙にいこう [2009/04/13(月) 01:01:39 ]: >>235
ランダムです。
237 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 01:04:53 ]: >>236
文字数は何文字か決まってる？
238 名前：名無しさん＠そうだ選挙にいこう [2009/04/13(月) 01:06:11 ]: >>237
３文字～９文字です。
239 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 01:08:09 ]: なんにしてもスレ違いじゃね？
表計算と何の関係があるの？
240 名前：215 mailto:sage [2009/04/13(月) 01:13:53 ]: 【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

としてみたんですが。。。
すいませんご教授願えませんでしょうか？
241 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 01:20:51 ]: >>238
たぶんVBAが必要
242 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 01:22:12 ]: >>240
Private Sub CommandButton1_Click()
なんじゃないか？
243 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 01:24:40 ]: >>238
一発でやるのは無理だな。作業列が文字数+1列必要。
244 名前：215 mailto:sage [2009/04/13(月) 01:25:52 ]: >>242
ありがとうございます！！
そのとおりでした。泣
感謝です。
245 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 01:52:08 ]: かなり不恰好だけど
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)
を入力して最終データ行までオートフィル
246 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 03:52:40 ]: >>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
247 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 04:11:19 ]: ワークシート関数として使えなかったのでやり直し

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
248 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 10:38:47 ]: みんなこねくりまわしすぎだよ。
ユーザー定義関数なら普通に下のフィッシャー＆イェーツ法で充分じゃね？

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配列を使ったりすればもう少しパフォーマンスはよくなると思うけどな。
249 名前：248 mailto:sage [2009/04/13(月) 10:49:58 ]: (i * Rnd)の括弧は要らなかったな。
250 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 11:14:12 ]: 文法規則上は要らないかも知れないが
コード的には要らないとも言い切れない
括弧が有った方が、明示性、読解性が上がるからね

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

それとパフォーマンス気にするなら、Midは関数もステートメントも$付けた方がいいよ
251 名前：名無しさん＠そうだ選挙にいこう [2009/04/13(月) 11:38:10 ]: 質問です。

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

現在は、文字数が多いと＃＃＃＃＃になってしまいます。
252 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 11:49:33 ]: >>250
ステートメントは$は要らないんじゃね？
VB6のスレだったか忘れたが、逆コンパイルだかなんだかしてみたらString型の変数を直に叩いてるだけだから変わらないはずだとかいう書き込みが昔あったよ。
もちろん関数は付けた方がいいのは常識で知ってる。
253 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 12:15:40 ]: >>251
文字列なら####にはならないと思うけど、セルの書式設定の配置に「縮小して全体を表示する」ってのがある。
254 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 13:01:37 ]: >>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の言うとおりかも知らん。
255 名前：名無しさん＠そうだ選挙にいこう [2009/04/13(月) 13:15:36 ]: >>253

251です。
できました。
ありがとうございます。
256 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 14:04:20 ]: >>247
君のはランダムじゃないよ。
元の文字列で残る確率が少し高い。
A2:A10001に"ABCD"として
B2以下に=STRINGRAND(A2)としてピボットテーブルで個数を数えてみりゃ"ABCD"がいつも少し多い。
257 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 14:14:47 ]: 確率云々もだが出てこないパターンもあるようだね。
4文字なら4*3*2*1の24パターンあるはずだが、>>247のじゃ12パターンしか出てこない。
258 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 18:49:22 ]: 【1 OSの種類　　　　 .】 XP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】リスト　複数列　EXCEL

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

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

として現在リストにはB列しか表示されていないんですが、B列～E列まで表示するにはどうしたらよいでしょうか？
259 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 19:30:57 ]: >>258
プロパティからColumnCountを5に汁
どの列の値をとるかはBoundColumnをいじればいい。
260 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 19:35:53 ]: >>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

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

コントロールツールの方なら複数列表示自体は出来るが、リストボックスだけで任意の項目選択することは出来ない
261 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 19:50:38 ]: フォームのリストボックスだったのか。
道理でコントロールの書式設定に>>258みたいなのがないと思ったよ。
コントロールツールボックス(Active X)のを使うんだな。
ただし>>260が書いてるように選択してるリストからの任意の項目を取り出すことは出来ない。
取り出せるのはBoundColumnで設定した項目だけだ。
262 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 20:42:28 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 PRN　出力

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

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

よろしくお願いいたします。
263 名前：258 mailto:sage [2009/04/13(月) 21:18:11 ]: >>259 >>260 >>261
ありがとうございます。
フォームのを使ってたんですね。
ご指導いただいたようにコントロールツールボックスのリストを使ってみてます。
なんか四苦八苦してますので少ししてまた報告します。
264 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 21:39:14 ]: >>262
そのリンク先のマクロ、最初に出る質問はちゃんと読んだ？
訳すと「ダブルクォートを付けて出力するか Yes/No 」なんだけど。
あと、できあがったファイルをワードとかメモ帳で開いてない？
テキストエディタで見ればちゃんと揃ってるよ。
265 名前：258 mailto:sage [2009/04/13(月) 22:15:51 ]: 遅くなりました。
つまりリストを選択してLinkedSellに番号を出力したい場合リストボックスの表示にも必然的に番号が入ってしまうということですね・・・
表示しないで行番号を出力できればいいんですが・・・
それと項目ごとの表示の幅とかは調整できないですよね？
いずれにせよありがとうございました。
266 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 22:19:04 ]: VBA使えばどうにでもなるけどな
もともとコントロールツールの方はVBAで使うことを想定されてるものだし
267 名前：262 mailto:sage [2009/04/13(月) 22:50:35 ]: >>264
すみません…最初のダイアログは見落としでした。
ただ、出力結果は、確かに揃ってはいるんですが、例えばExcelで列幅を10にしたとき、prnではデータ含めて半角10字分になるようにスペースが入ってくれるのですが、このマクロの出力結果では11字分になってしまいます。
また、数値のようにセル内で右揃えになってる場合、prnでは数字の前にスペースが入りますが、このマクロでは左揃えになってしまって、行の頭の数値の前にスペースが入ってくれません。

このマクロを多少修正すれば上手くいくのでしたら、ご教授いただければと思います。
268 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/13(月) 22:58:32 ]: そういう細かい拘りがあるなら自分で作るしかないよ
頑張って勉強してね
269 名前：262 mailto:sage [2009/04/13(月) 23:07:29 ]: >>268
そうですか…このマクロをどうにかすればできるのか、
それとも一から作らなければならないのか、
それだけでも教えていただけませんか？
270 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 00:04:06 ]: そのマクロをどうにかして出来ないこともないが俺だったら一から書くな
271 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 00:43:31 ]: >>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
272 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 00:53:44 ]: そういえば、Excelで横方向文字揃え(HorizontalAlignment)が自動になってる場合
値が右揃えになってるか左揃えになってるかを取得できるプロパティとかってある？

セルの値が数値の場合は基本的に右揃えになるが、表示形式が文字列になっていれば
セルの値が数値(数字)でも左揃えになるわけで、その辺を総合して判断するしかないのかね？
273 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 03:20:26 ]: 右寄せ、左寄せ、センタリング、見た目にこだわるとな～りめんどくさいね。
素人さんには簡単そうに見えるかもしれないけど、実は非常に大変。

俺なら直接出力にこだわらず、まずは名前を付けて保存でHTML形式にするな。
これならいい感じのテキストっぽいファイルができるから、それを整形すれば
一から自分で作るよりかなり簡単になる。
274 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 03:25:13 ]: つまり、HTML形式で保存→そのファイルを開いてtdタグのalignをチェックすれば、
右寄せ左寄せセンタリングは一発でわかる。
条件付き書式なんかが設定されていた場合の実際の表示状態もわかるし、
これが一番簡単ではないかと
275 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 15:55:27 ]: セル内入れた文字数を変更するときセル内をダブルクリックして修正してましたが
Fキーでできると聞いたのですが、何番になるのでしょうか？
276 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 15:58:29 ]: F2
ってか押せよw
277 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 18:04:25 ]: >>276
ありがとう
言い訳になるけど
ひとつづつ押したけど
正解がでなかった・・・
278 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 18:10:19 ]: 最初にF1押したらヘルプ起動してフォーカスがそっちに移り
以後はヘルプビューアにキーが送られるから仕方ないか・・・・・

って、ヘルプ起動してるのにそれ気付かないなんてことあるのか？
しかし他には正解が出ない(F2押しても編集状態にならない)ような状況なんて思いつかないし
279 名前：名無しさん＠そうだ選挙にいこう [2009/04/14(火) 18:35:25 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】名前の定義　データの入力規則

aのexcelを元データとして、bのexcelを複数作成します。
aのexcelで名前の定義をし、bのexcelでデータの入力規則を使用してリストボックス
をつくりました。aとbのファイルを同フォルダに入れておくと問題がないのですが、
aの入っているフォルダ内にフォルダを作成し、その中にbのファイルをいれると出来なくなってしまいます。
理由はわかっているのですが、どうやれば出来るのかがわからなくて困ってます。
何か方法があれば教えて下さい。お願いします。
280 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 19:37:04 ]: ;;;;
281 名前：名無しさん＠そうだ選挙にいこう [2009/04/14(火) 19:39:33 ]: >>279
解決しました。
ありがとうございました。
282 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 19:50:01 ]: >>281
あんた何番？
283 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 20:53:31 ]: 　　　　Ａ　　　　　　Ｂ　　　　　　Ｃ
１　　　　　　　　　Ｘ軸　　　　　Ｙ軸　　　　　　
２　　座標１　　　　５　　　　　　　８　　　
３　　座標２　　　　１　　　　　　１５　
４　　座標３　　　１１　　　　　　１９　　

このような三つの座標を頂点とする三角形の面積はどうやって求めたらいいですか？　　　　
284 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 21:00:08 ]: それはExcelじゃなく算数の質問だろ
285 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 21:26:19 ]: いや、数学だな一応ｗ
286 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 21:29:05 ]: >>283
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
雑談もいいけど答えてからにしなよ
287 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 21:43:34 ]: 答えるのもいいけどD2とかE2ってなによ
288 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 21:49:07 ]: ごめんねお父さん作業列使ってそのままだったごめんね
=ABS((-B$2+B3)*(-C$2+C4)-(-C$2+C3)*(-B$2+B4))/2
289 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 22:02:50 ]: 宿題は自分でさせないとダメだよ
290 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 22:24:42 ]: スレ違いに答えて得意満面とかってどんだけゆとりなんだよw
スレ違いだろうと答え貰えりゃ質問者は喜ぶから良いコトしたと勘違いしてるのかも知れないが
場のルールを無視した親切なんて、社会に出たら認めて貰えないぜ
291 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 23:09:19 ]: 【1 OSの種類　　　　 .】 XP
【2 Excelのバージョン　】 Excel2000、2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】

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

=IF(COUNTIF(A:A,A1)>1,"重複","")
のように重複チェックしようとすると、「001」と「1」を同じデータと数えてしまいます。
完全一致のものだけ重複とするには、どんな方法があるでしょうか。
292 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 23:10:39 ]: >>286も自分だけで考えたわけじゃなさそうだけど、他の奴らは考える力はからっきしないらしいｗ
293 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/14(火) 23:50:59 ]: そうでもないか
294 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 00:03:26 ]: >>291
www.efcit.co.jp/cgi-bin2/exqalounge.cgi?print+200808/08080102.txt
295 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 00:09:12 ]: >>291
B1に="!"&A1とか入れて下までフィルしてB列の重複チェックをする。
296 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 00:20:14 ]: =SUMPRODUCT(($A$1:$A$15=A1)*1)
297 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 00:29:11 ]: >>283　ヒントだけ
A　座標１と座標２の距離を求める（ピタゴラスの定理）
B　座標１と座標２の直線の式を作る
C　B.の直線と座標３の距離を計算（点と直線の公式がある　絶対値を取ってね）

あとは　A*C/2　だな　　スレ汚してスマン
298 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 00:46:15 ]: >>297だか
内積か外積の和で面積もとめられたな
非効率だったゴメン
299 名前：291 mailto:sage [2009/04/15(水) 00:56:31 ]: >>294->>296
レスありがとうございます。
>>295さんの方法がてっとりばやかったので、それで解決いたしました。

何かの機会にSUMPRODUCTも使ってみようと思います。
300 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 02:58:41 ]: Excel2007で図のリンク貼り付けで表とかを別シートにリンクさせると図形が鮮明なときとぼやけてる時があるんですけど、何が原因でぼやけたり鮮明になったりするのでしょうか？
301 名前：名無しさん＠そうだ選挙にいこう [2009/04/15(水) 08:37:48 ]: 環境：windows vista ultimate
office 2007

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

詳細の項目に「元の場所」というのがあります
。
複数のエクセルファイルがありますが、「元の場所」の
作成者・前回保存者・会社をいっぺんに変更する方法があれば教えてください。
302 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 09:27:03 ]: >>300
誰も答えてないから答えてみる。間違ってるかもしれないけど
例えば丸の図形
図形で書くとベクタデータっつって曲線の集合のデータになり、縮小・拡大をしても角が目立たない
ペイントで一度書き、jpgなんかで読み込むとラスタデータっつってドットの集合になり、角が目立つようになる

ベクタデータのままコピーすれば角が目立たなくなるが、解決方法はその時毎に色々あるから
確実なのはエクセルの上で図形等を書くことだな
303 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 13:39:27 ]: >300
100％でなく99％とかにするとましになることがある。
根本的な対策ではなくすまないが。
304 名前：名無しさん＠そうだ選挙にいこう [2009/04/15(水) 21:31:29 ]: >>302
ありがとうございました。直接描いてみます
>>303
ましになるって…そんなの解決方法じゃないですよ？
305 名前：名無しさん＠そうだ選挙にいこう [2009/04/15(水) 21:56:01 ]: あのさぁ、親切にアドバイスしてくれた人に、その態度はないんじゃない？
306 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 22:07:42 ]: >>301
それ系のソフトを使うか、
まとめて選択した状態で、右クリックしてプロパティ開く。
（複数の値）てなるけど変更できるはず。
307 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 22:08:49 ]: 質問です。エクセル2000のワークシートの切り替えって、
下の小さなタグをクリックするしか方法無いのでしょうか？
ショートカットキーとか、ファンクションキーに割り当てる
ということはできませんか？
308 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 22:15:03 ]: Ctrl+PageUp
Ctrl+PageDown
309 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 22:23:36 ]: ありがとう！
310 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 22:28:36 ]: >>308
横からありがとう
311 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/15(水) 22:30:50 ]: なぜ３００を質問した俺じゃない人が教えてくれたレスにレスしてるんだ・・・？
312 名前：名無しさん＠そうだ選挙にいこう [2009/04/16(木) 00:25:47 ]: なぜ３００を質問した俺じゃない人が教えてくれたレスにレスしてるんだ・・・？
313 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 02:05:37 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】わかりません

きれいな水平線を書きたいのですが、挿入＞直線を選んでマウスでかいていますが、どうしても水平に引けません。数ドットずれてしまいます。
うまくひく方法はありませんでしょうか？
314 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 02:09:53 ]: >>313
Alt押しながら引く。2007でできるかは知らん。
315 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 02:12:36 ]: >>314
ありがとうございます。
すげーたすかりました。かたじけない・・・・・・
316 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 02:18:22 ]: >>313
間違えた。Shift押しながら。だ。
Altだとセルの大きさに合わせた図形になる。
Shift押しながらだと正円や正方形もできる。
317 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 02:19:07 ]: あ、一足遅かった。けどなんとかなったならいいか。
318 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 02:29:35 ]: いやまだいます。
この恩は他社への質問で返すつもりですので。
319 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 02:34:39 ]: 他社への質問ではなく
他者への回答で返そうな
320 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 04:39:41 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】ＶＢＡ　一番下の行にコピー

ユーザーフォームでボタンをクリックするとSheet1の1の行からSheet2の一番下の行にコピーするというようにするにはどのようにしたらよろしいでしょうか？
教えていただけませんでしょうか？
321 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 08:41:35 ]: Private Sub CommandButton1_Click()
Sheet1.Rows(1).Copy Destination:=Sheet2.Rows(65536)
End Sub
322 名前：320 mailto:sage [2009/04/16(木) 14:34:18 ]: すいません。Sheet1の1の行からSheet2の一番下の行にコピーと書きましたが、Sheet1のB1からE1をSheet2の一番下の行のB1からE1までということでお願いします。
323 名前：320 mailto:sage [2009/04/16(木) 14:38:46 ]: >>321すいません。見てませんでした。有難うございます！！
あとは自分で何とかします。３２２はなかったことでお願いします。
324 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 14:39:28 ]: Private Sub CommandButton1_Click()
Sheet1.Rows(1).range("B1:E1").Copy Destination:=Sheet2.Rows(65536).range("B1:E1")
End Sub
325 名前：320 mailto:sage [2009/04/16(木) 15:45:32 ]: >>324
ありがとうございます！！
何とかしようと苦しんでました。助かります。
324さんにいいことがありますように。
326 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 21:39:51 ]: 会社で定型業務をVBAで楽に出来るようにしてるんですが、
他の営業所にもその書式を水平展開する事になり、メールで
添付して送りました。
ただ、他の営業所はセキュリティが「高」にされているようで、
自分が送ったファイルでマクロがうまく働かないようです。
うまく動かすには、やっぱりセキュリティを下げてもらうしか
方法はないですかね？
デジタル署名はまだ試してないんですが、あれって別のPCでも
効果はあるんですか？
327 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 21:59:24 ]: >326
デジタル署名して、他のPCでそれを許可すればいけるよ。
でも、セキュリティ「高」でいけるかどうかは忘れた。
あくまで、「このファイルはマクロを含んでいます～」みたいな
ファイル開いたときに出てくるのがなくなるだけな気がする。
328 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 22:17:45 ]: >>327
ありがとうございます！
自分のいる営業所じゃないんで、出来ればセキュリティはいじらずにすむ方法
がないか考えてたんですが、あらためて明日移行に試してみます。
329 名前：名無しさん＠そうだ選挙にいこう [2009/04/16(木) 22:49:29 ]: なぜ３２７を質問した俺じゃない人が教えてくれたレスにレスしてるんだ・・・？
330 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/16(木) 23:27:51 ]: もう一人の君が、君の居眠りしているうちにレスをしたのに違いない。
331 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 08:57:44 ]: ggg
332 名前：名無しさん＠そうだ選挙にいこう [2009/04/17(金) 09:17:52 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 t検定　数値以外のデータ

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

5

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

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

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

詳しい方教えていただけませんか？
333 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 09:45:44 ]: >>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分析というものをやったことがないのでうまくいくかどうかわからない
上手く行かなかったらまた教えてね
334 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 09:52:25 ]: >>332
計算する時に空白のセルを飛ばすかどうかは関数によって違う。
分析ツールのt検定は空白は普通に飛ばしてくれるみたいなんで、
何か別のところでひっかかってる可能性がある。

まずはデータを減らして試してみ。
335 名前：名無しさん＠そうだ選挙にいこう [2009/04/17(金) 11:05:30 ]: 【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
と変換できれば、これまで使っていたシートを活用できるかとは思うのですが…
336 名前：名無しさん＠そうだ選挙にいこう [2009/04/17(金) 11:25:27 ]: 遅刻した場合は30分単位?
337 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 11:25:58 ]: >>335
30分単位で切り捨てて、2で割ればいいんじゃね？
=INT(時間の入ったセル/"00:30")/2
みたいなかんじ
338 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 12:12:17 ]: >>335
1から作るから教えてくれ
>45分～14分までを0とみなし、15分～44分までは0.5
というのは終了?開始?
あと単位時間は何分?
339 名前：335 [2009/04/17(金) 12:34:28 ]: 説明が下手ですみません。

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

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

>>337
ちょっと試してみます。
340 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 12:55:41 ]: >>339
暇だから作った
ttp://www1.axfc.net/uploader/He/so/217746.zip
好きなように編集するといい
341 名前：335 [2009/04/17(金) 13:18:23 ]: >>337
=INT((B4+"00:15")/"00:30")/2
とすると希望の変換になった…気がします。
これを既存の式に組み込めば何とかなりそうです。
ありがとうございました。

>>340
よいものをありがとうございます。
今あるものにそのまま組み入れるわけにはいかなさそうですが、
色々と参考にさせていただきます。ありがとうございました。
342 名前：335 mailto:sage [2009/04/17(金) 13:21:28 ]: >>341の式、B4ってところに時刻を入れてますｗ
Excelで試してそのままコピペしてしまいました。
分かるとは思いますが一応…。
343 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 13:34:41 ]: 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")
344 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 13:34:59 ]: 時刻の場合小数誤差が起こる可能性があるから表から拾うようにしたほうがいいと思うぜ
345 名前：名無しさん＠そうだ選挙にいこう [2009/04/17(金) 14:08:52 ]: >333
解決しました、ありがとうございました！！
346 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 16:07:01 ]: >>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

だろ
347 名前：名無しさん＠そうだ選挙にいこう [2009/04/17(金) 17:21:54 ]: 【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
という数字を表したのですが可能でしょうか？
348 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 18:11:12 ]: >>347
rounddown関数を使えばできそうだよ
349 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 18:21:26 ]: 5桁なのか4桁なのかよく分からん質問だな
今までは5桁だからできたけど今回4桁になったからどうしようって話なのか
350 名前：347 [2009/04/17(金) 18:40:49 ]: >>348
切り捨ての関数ですよね？あてはめて見ても、うまくいかなそうですが…
>>349
sumの合計値が４～７桁位でマチマチになります。
今まで出来ていた訳ではありません。
351 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 18:52:23 ]: 普通に切り出せば良いだけの話じゃん
352 名前：348 mailto:sage [2009/04/17(金) 19:03:01 ]: >>350
疑問
A2は桁数にかかわらず万の位でいいの？
あとA1は4～7桁なのか5桁までなのかちゃんと書かなきゃ困るよ

A2に万の位の数字を表示させるんだったら
if(A1<10000,"",rounddown(A1-rounddown(A1,-5),-4)/10000)
A3以下も同じ感じでやってみて
353 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 19:03:04 ]: >>347
文字列操作関数かINTとMODの組み合わせか　どっちでもお好きに
354 名前：347 [2009/04/17(金) 19:15:25 ]: >>352
Ａ１セルは何桁になるかわからないのですが、Ａ２は必ず万の位になります。
書き込んで頂いた式で試してみます。ありがとうございました。
355 名前：348 mailto:sage [2009/04/17(金) 19:22:32 ]: >>353
mod関数ってはじめて知りました
if(A1<10000,"",(mod(A1,100000)-mod(A1,10000))/10000)

勉強になりました

>>354
上の式でもいけるよ
356 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 19:29:00 ]: MID関数のが簡単。表示形式で入れた桁区切りのコンマは無視される。
たとえばA1が1,234だったとして、MID(A1,2,1)は2になる。
357 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 19:52:19 ]: 頭合わせなら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()))
かな
358 名前：335 mailto:sage [2009/04/17(金) 20:02:44 ]: >>344
ありがとうございます。
その可能性はありますが、今回の場合は必ずセルに9：05のように直接入力しますので、
一応0時から23時まで14分、15分、44分、45分で正しく判断されるか確認したところ、
手入力の場合はきちんと判断されたので、大丈夫かと思います。

ただしセルA１に0：00と入れて、A2に0：01と入れてフィルした場合や、
A2にA1+1/1440と入れてフィルした場合は狂いましたので、
そういう場合は使えないということは覚えておきたいと思います。
359 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 20:03:44 ]: エクセルでのグラフの作り方についてなんですが、
１つの表から
ttp://up2.viploader.net/pic/src/viploader983321.jpg
このように単位が違うグラフを作るにはどうしたらよいのでしょうか？

赤[kg]は普通に出ますけど、青[g]の出し方が分かりません
360 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 20:20:20 ]: >>359
１　普通に折れ線グラフを作る
２　gのほうのグラフの線を右クリックしてデータ系列の書式設定を選ぶ
３　「軸」タブを選択して、第2軸にチェック

Excel2007だったらｼﾗﾈ
361 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 20:34:25 ]: >>357
ケタ数あわせなら頭に0をいくつかつけてから切り出せばいいんだけどね
MID(LEFT("0000"&A1,5),1,2,1)とか
362 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 20:48:34 ]: 位置調整処理がが桁数揃え処理になるだけじゃんw
363 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 20:54:36 ]: あきらかに>>361のほうが簡単だけどね
364 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 20:56:38 ]: >>361
引数が1つ余計だぞ
あとLEFTではなくRIGHTな
ついでに"0"はどうやって消すつもり？
365 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 21:05:19 ]: そうだRIGHTだな間違えた
0がじゃまなら" "にすればいいやん
366 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 21:10:04 ]: ブランク
=""
=0

文字列
="0"
=" "

今回はどうか知らないが、普通ブランクと言ったら0か0長文字で
スペースとか文字列の"0"とか入れちゃあかんがな
367 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 21:38:46 ]: そういえばEmpty値返せる関数って標準では無いんだよね。
0と""は確かに空セルと等価演算してTRUEになるけどISBLANKではFALSEなんだよな。
もっともEmpty値返せる関数が無い以上、数式では0か""を返すしかないんだが。
368 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 21:54:50 ]: >>366
0の事は普通ブランクって言わない
369 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 22:18:48 ]: >>360
2007なのですが・・・
370 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 22:38:26 ]: >>368
厳密に言えばね
しかし厳密に見ちゃうと367も書いてる通り、数式結果でブランクなセルは作れない
だから普通はブランクセルと同値として扱われる0や""が数式結果上では暫定的にブランク扱い

とりあえず論より証拠

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

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

まあ完全なブランクじゃないから、状況によっては不都合もあるけどね
算術演算の場合は0じゃないと不味い(""ではエラーになる)し、
MIN関数の場合は""なら無視されるが0だと他が正の値なら結果が必ず0になってしまうとかね
371 名前：名無しさん＠そうだ選挙にいこう [2009/04/17(金) 22:49:38 ]: キモ
372 名前：283 mailto:sage [2009/04/17(金) 23:11:59 ]: 勝矢くんキモ
373 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 23:12:15 ]: >>369
そもそも最初にバージョン書かないのが悪いんだろ
てか第2軸を使うって分かったらヘルプなり何なり調べたらどうよ
そんな用語まで綺麗さっぱり変わったのか？2007って。
374 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 23:41:59 ]: >>370
厳密とかじゃなくて、普通。
普通、0の事はブランクって言わない。
375 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 23:48:48 ]: >>374
マイクロソフトが普通じゃないってオチ
あんまり噛み付かない方がいい
お前は間違ってない
376 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 23:50:13 ]: 己の常識(普通)、世界の非常識
377 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 23:50:47 ]: >>370
ブランクが0または""として扱われるのであって
0や""がブランクとして扱われる訳じゃない
378 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 23:56:48 ]: そうでもないか
379 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 23:58:26 ]: ほい
=ISBLANK(0)
=ISBLANK("")
380 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/17(金) 23:59:55 ]: >>379
その位置は既に通り過ぎてる
お前も早く登ってこい
381 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 00:02:58 ]: お山には興味ないな
382 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 00:03:20 ]: 潜ろうぜ
383 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 00:04:33 ]: >>379
おまえ恥ずかしい奴だな。
384 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 00:07:33 ]: まあ間違いを認めないだろうとは思っていたよ
385 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 00:13:33 ]: そもそもまともに間違いを指摘できてない

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

主観を論拠に間違いだと主張されても┐(´ー｀)┌なのは当たり前
386 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 00:16:47 ]: > ブランクセルと同値として扱われる0や""が数式結果上では暫定的にブランク扱い
ここが間違い。

> ""はブランクで0はブランクじゃない
言ってない。
387 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 00:18:56 ]: っていうか厳密じゃないにしても0をブランクと言う人を初めて見た。
388 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 00:27:42 ]: 言う言わないはともかく、ブランク代わりに0を利用してる人は結構居るけどね
389 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 00:28:12 ]: >>386
> > ブランクセルと同値として扱われる0や""が数式結果上では暫定的にブランク扱い
> ここが間違い。
何を根拠にどう間違いで、数式が返す正しいブランク値とは何なのかを解説出来ないと主観の域を出ませんよ

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

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

しかし数式ではブランクとして扱われる値は返せないから、代替としてブランクセルと等価と評価される値を返すって話をしてるだけ
390 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 00:38:42 ]: >>377を認めるならもういいよ。
お前の日本語が（遠回しに言って）ユニークだってだけの話だ。
391 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 00:48:44 ]: >>370
> 0や""はブランクじゃないというのは間違ってない

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

認める認めない以前に、0や""がブランクそのものじゃないってことは377よりこっちが先に言ってるんだがな
392 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 01:39:46 ]: 勝矢くん元気？ｗ
393 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 01:42:22 ]: どうしたの？
394 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 01:46:01 ]: あのーA1のセルが空白かどうかを調べるにはVBAならどうかくのでしょうか？
395 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 02:33:06 ]: >>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も""もブランク扱いになる
396 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 02:39:28 ]: MODとINTだと上位が0で埋まる。ゼロサプレスしようとすると式が長くなる。
文字列関数の方が式が簡単にならない？
397 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 02:51:00 ]: 状況による
上位の空セルが単に見えなければ良いだけならブランクにせずスペース返しても構わないわけで、それならMIDとLIGHTの方法が向く
結果に対して演算が行われるなら、""やスペースではなく0を返さなければならないからMODとINTの方法が向く
結果を関数で使う場合は、関数によって0が良い場合と""が良い場合がある

ゼロサプレスは表示上だけなら表示形式設定だけで事足りるので式は長くならない
逆に0やスペースではなく""にするならMIDとLIGHTの場合も同じように式が長くなるのでどちらが向くとも言えない
398 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 11:52:36 ]: 0でも""でもよければ計算の軽さとか自然さならINTとMODだろうがお手軽さなら文字列操作関数かなぁ。
計算の軽さといっても今のCPUなら無視出来るけど。
399 名前：283 mailto:sage [2009/04/18(土) 12:07:23 ]: >>387
俺は一人だけ知ってる。
>>388
多分君だけだと思う。その一人かな？
400 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 13:19:14 ]: LIGHT
401 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 13:58:13 ]: ほっといてやりなよ
402 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 14:20:39 ]: なんでそんなに必死なの？
403 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 14:49:41 ]: ほかにすることがないんだろ
404 名前：名無しさん＠そうだ選挙にいこう [2009/04/18(土) 15:54:26 ]: office2007のソフトが安く購入したいけど
安い通販ないですか？
405 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 16:01:01 ]: >>404
まあ　あれだ

ス　レ　チ
406 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 16:01:53 ]: なんでそんなに改行するん
407 名前：名無しさん＠そうだ選挙にいこう [2009/04/18(土) 16:02:30 ]: ここで売ってたよ
手頃な値段で
www.hhyyhh22.co.nr
408 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 16:43:02 ]: >>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","　　　　　　"などは避け、汎用性のある演算や関数を使った。
・表示形式設定の要否は別として、式のお手軽さや短さを比べてみた。
409 名前：名無しさん＠そうだ選挙にいこう [2009/04/18(土) 16:58:48 ]: >>404
>>407は一見値段は手頃に見えるけど、不正コピーソフトなので
本質的には無価値なものに値段が付いてる激高品だよ
410 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:18:45 ]: エクセル2007で
挿入、画像を選択、画像の貼り付け、一つ下のセルに移動
をマクロで組めないでしょうか？画像の名前は001.pngから100.pngでB1からB100に順に貼り付けたいです。
411 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:20:04 ]: >>408
=RIGHT(INT(A1,10^4),1)
412 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:21:41 ]: >>410
マクロの記録で1枚だけ貼り付けるとどうなるか見て
それを100回繰り返す
413 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:24:41 ]: >>412
記録してやろうとしたけど↓見たいにしかならなかったんです。

Sub Macro2()
'
' Macro2 Macro
'
Range("E2").Select
End Sub
414 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:35:05 ]: >>413
新しいマクロの記録→OK→B1セルをクリック→画像を挿入→記録停止

やってみ
415 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:40:18 ]: 2007では図形の操作は記録できなくなった。(2007で改悪された点の一つ)
古いバージョンのExcelで試すかネットで検索するか参考書を見るしかない。
416 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:44:34 ]: そうだったのか。すまんかった。

>>410
Range("B1").Select
ActiveSheet.Pictures.Insert("001.png")
417 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:44:52 ]: >>411
文字列関数と算術関数織り交ぜですか。
でも
×=RIGHT(INT(A1,10^4),1)
○=RIGHT(INT(A1/10^4),1)
では？

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

表示を消す場合はIFで""返すかVALUEで"0"を0にして表示形式で消さなきゃだし、
0や数値を返す場合も、やはり数字(文字列)をVALUEで数値に変換しなきゃだし。
418 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:46:29 ]: 数値にするときは"0"+0とか"0"*1でおｋ
419 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:49:32 ]: >>417
A1が1万未満の時INT関数は0を返すから""にはならんと思うが
420 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:52:07 ]: >>416
ありがとうございます。それと画像を順に参照するときは

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

であっていますか？PictureクラスのInsertメソッドが失敗しましたとでてしまって・・・
421 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:52:48 ]: じゃあこうか
=IF(A1>=10^4,RIGHT(INT(A1/10^4),1)+0,"")
422 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:55:39 ]: あ、nだと00*とかにならないからエラーがでるのか。
事故解決しました。
423 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:55:47 ]: >>420
それだと1.pngになるからファイルが見つからずエラーになる。
001.pngにするにはFormat(n, "000")
424 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:56:23 ]: >>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),"")
425 名前：名無しさん＠そうだ選挙にいこう [2009/04/18(土) 17:57:44 ]: ↑最後のやつ間違ってる。エラーでるよ
426 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:58:18 ]: >>423
ありがとうございます！
427 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 17:59:21 ]: MODとINTを逆にするだけで演算子が一つ減る
=INT(MOD(A1,10^5)/10^4)
=MOD(INT(A1/10^4),10)
428 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 18:02:59 ]: 画像についてなんですけど、画像が張り付けられる位置がすべてa1からb2にまたがった中途半端な位置に重なって張り付けられるのですが選んだセルに貼り付けるにはどうすればいいのでしょうか？
429 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 18:04:16 ]: いちいち数値に変換しなくても右寄せでいいじゃん
430 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 18:06:16 ]: >>428
>>410の人？>>416は2行で1セットだよ。
1枚貼るごとにセルをSelect。
431 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 18:10:16 ]: >>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の表示さえ消えればよい場合の下とかも文字列のままだよ。
でもいろんな条件でどうなるかって話だと、計算に使わない場合のみってわけにもいかないのさ。
表示形式で非表示にする場合も、数値になってないと消せないし。
432 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 18:11:31 ]: >>430
４１０です。
↓のようにやってるんですけど>>428のようにります。

For n = 1 To 100
Range("b" & n).Select
ActiveSheet.Pictures.Insert ("D:\pict\" & Format(n, "000") & ".png")
Next
433 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 18:16:56 ]: Excelのセル上で何か文字キーを押すと入力状態になりますが
これを最初から編集状態になるようにするにはどうすればよいですか?
入力状態からF2押すか、最初からF2でセルに入れば編集状態になるのは知ってますが
普通に文字キーを打っただけで編集状態にしたいです

WinXP、Excel2003、VBAは多少使えるしVBAでの回答も可です
434 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 18:52:16 ]: >>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
435 名前：名無しさん＠そうだ選挙にいこう [2009/04/18(土) 18:55:54 ]: 【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列のようにしたいです）
436 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 18:57:16 ]: >>433
Private Sub Workbook_Open()
　　SendKeys "{F2}"
End Sub

とか。でもこれになんの意味が？
437 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 18:58:44 ]: 質問がわからん
438 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 19:01:26 ]: 　A B C D E
1 a あ　　　a
2 a い　　. あ
3 b う　　　い
4 a え　.　え
5 b お　　か
6 a か
439 名前：433 mailto:sage [2009/04/18(土) 19:02:22 ]: >>436
ブックを開いたときに編集状態にしたいのではなく
キーを打ったときに最初から編集状態になるようにしたいのです
標準ではキーを打ったときは最初入力状態で、F2押さないと編集状態にはなりません
440 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 19:04:06 ]: >>439
入力中に矢印キーが使えないってこと？
それは無理だったはず。
441 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 19:04:35 ]: 俺がenter押したら改行しないで欲しいのと似ている
442 名前：435 [2009/04/18(土) 19:08:53 ]: 表がずれました
>>438
エスパーありがとう＾＾
443 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 19:52:17 ]: >>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
444 名前：名無しさん＠そうだ選挙にいこう [2009/04/18(土) 20:22:01 ]: >>443
ありがとう。試してみます。
445 名前：433 mailto:sage [2009/04/18(土) 20:37:18 ]: >>440
オプション設定が無いなら
VBAでの実現でもいいんですけど
446 名前：433 mailto:sage [2009/04/18(土) 21:01:20 ]: この程度の事も出来ないとかカスの集まりですね^^
もう一生来ません^^
447 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 21:06:28 ]: 急に顔文字とか使うと偽物なのバレるよ。
448 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 21:15:09 ]: >>445
thisworkbookのSheetSelectionChangeのイベントで
Application.SendKeys ("{F2}")でどうでしょう
449 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 21:29:38 ]: >>448
それだと編集するつもりが無くてもカーソル移動だけで編集状態になっちゃう。
つまり左右の移動がマウスでしかできなくなる。
450 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 21:35:10 ]: そういうもんでしょ。編集状態って。
キーボードしか使わない人はTABとEnterとShifで移動しながら入力するんじゃない？
451 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 21:35:31 ]: >>433みたいなことしようとするのがそもそもﾀｺなんだよ
それでだれがどう便利になるのかまったくわからん
452 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 21:38:34 ]: 自分の想像力の無さを自慢してどうするんだよｗ
453 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 21:43:03 ]: それでは想像力のある方から
どういう状況で>>433が必要になるかの発表がありますので
皆さん心して拝聴するように
454 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 21:59:05 ]: 文字ヮ編集するときに左右キーを使うクセのある人だと思う
俺も昔そうだった、というかエクセル以外は今でもそうだ
逆にdeleteとバックスペース中心で文字列編集する人とどっちが多いんだろう
455 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 22:11:38 ]: キーボードユーティリティで「F2]をカーソルキーの近くのキーに割り当てれば
済む話でもないのか？よくわからんが
456 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 22:21:07 ]: 想像力も無けりゃ文章読む力まで無いのか
457 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 22:24:29 ]: 説明する力のない人にいわれたくないなあ
458 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 22:51:54 ]: >>433は
>>448と>>450でOKなんじゃないかな
459 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 23:38:29 ]: 毎年一回ぐらいこの編集の質問があるよ。
大概が使い方に問題がある。
マウス使わないならショートカットを当然自分で設定できる。
マウス使うならダブルクリックでセルの直接編集が出来るし、数式バーで編集すればいいだけだし。
で無理矢理やって見て初めて、使い勝手が悪いことに気付いてやめてしまうという落ちw
460 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/18(土) 23:48:23 ]: >>449
カーソルの移動に矢印キーを使う（編集）か
セルの選択の移動に矢印キーを使う（入力）かの二択で
どちらも矢印キーにと言うのは矛盾してる
461 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 00:00:10 ]: キャレットが有るときはキャレット移動に使って
キャレットが無いときはセル移動に使うって事だから矛盾はしてない
462 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 00:06:55 ]: カーソルが123が入力されているセルにあるとき、4を押すと1234になればいいのか。
4123にしたいときは1234の4を削除してカーソルを移動して再度4を入力することになる。
そんなことするくらいならはじめからF2を押せばいいとは思わないのかな。
463 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 00:10:31 ]: >>462
理解力を鍛えてからまたおいで。
君はこの話題に参加するにはまだ早すぎるようだ。
464 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 00:11:02 ]: エクセルを方眼紙にして文書作るような層に
「いちいちダブルクリックしたりF2押すの面倒だからどうにかしてよ」
って頼まれてるんだろうなというのが俺の精一杯の想像力です。
465 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 00:20:12 ]: ハイアンドローみたいだね　答えを出すたびに「もっと上」「もっと下」とかいわれてる気分
466 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 00:34:23 ]: wordでやれ、ってことか
467 名前：名無しさん＠そうだ選挙にいこう [2009/04/19(日) 12:21:59 ]: ランダムに上の行から日付を入力したのですが、
その日付順に上から並べるのはどうすればいいのでしょうか？

初歩的な事だとおもいますがお願いします・・
468 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 12:24:46 ]: >>467
ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/sort.html
469 名前：名無しさん＠そうだ選挙にいこう [2009/04/19(日) 12:44:11 ]: ありがとうございます。

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

日付を入れたあと、ＡＭかＰＭを入れる予定なので、リターン押したら
一度横のセルにカーソルが動いたあと、次のリターンで下のセルに移ることはできますか？
470 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 13:02:29 ]: >>469
ttp://www.nyumon.net/column/kn/index.html
なんか初心者向けの本買えば？
471 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 14:07:00 ]: >>469
エンターキーで右に移動するようにも設定できるけど
＞一度横のセルにカーソルが動いたあと、次のリターンで下のセルに移ることはできますか？
て事であれば横移動にはTABキー使うのがいいよ
472 名前：名無しさん＠そうだ選挙にいこう [2009/04/19(日) 21:46:25 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000～2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】複数回払い

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

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

この場合、どのような式を組むといいでしょうか。
アドバイスをください。
473 名前：名無しさん＠そうだ選挙にいこう [2009/04/19(日) 21:46:47 ]: SendKeyでF2
馬鹿じゃないのかっぴぴぴぴｐ
474 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 22:03:34 ]: 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列から支払った金額・回数を最初に引いておくと良い
475 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 22:04:34 ]: ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/zaimu.htm#pmt
は財務関数って奴で本当は恐らくこっちを使うんだろうけど、俺は使い方を知らない。ｽﾏﾝ
知ってる人いたらこれで出す方法も教えて欲しい
476 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 22:40:54 ]: 金利もない支払いで財務関数なんて関係ないだろ
477 名前：名無しさん＠そうだ選挙にいこう [2009/04/19(日) 22:42:17 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】セルの結合　データ保持

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

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

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

元データのセルの違いが改行として反映される方法がありましたらご教授願いたいと思います。
478 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 22:52:33 ]: >>477

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

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

何でもかんでもExcelで資料作る奴
pc11.2ch.net/test/read.cgi/bsoft/1208509894/
479 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 22:56:07 ]: >>477
打った後でそのままワードにコピペすればいいよｗ
480 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 23:17:28 ]: >478　479

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

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

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

などと考えていたのですが、難しいでしょうか。
481 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 23:36:54 ]: >>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
482 名前：481 mailto:sage [2009/04/19(日) 23:39:12 ]: 書き忘れ。
CHAR（10）ってのはいわゆる「改行コード」の事。
数式入れるだけでは思うようには表示されないので、「折り返して全体を表示」を忘れずに。
で、今試したが、問題が長い場合など、列幅調整、高さ調整をしてからでないと表示が綺麗にならない可能性もあるかも。
483 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/19(日) 23:59:19 ]: >>481
詳しくありがとうございます。
表示に関しては当方で気になるものはありませんでした。

仕事の効率あがりました。感謝いたします。
484 名前：名無しさん＠そうだ選挙にいこう [2009/04/20(月) 00:51:29 ]: 本当に効率上がったのか？？？？
485 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/20(月) 02:15:27 ]: もともと効率が悪いんだろ
486 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/20(月) 07:52:38 ]: >>478
社内文書みたいに定型化されたものは、ワープロで作成するよりエクセルの方が作りやすい。
487 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/20(月) 08:31:48 ]: 「ワードを使いこなせない人には」が抜けてるよ
488 名前：名無しさん＠そうだ選挙にいこう [2009/04/20(月) 12:43:27 ]: たしかに。実際ワードなんて使うことなくなったね。
489 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/20(月) 12:50:41 ]: 底辺企業ではそうなのか？
490 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/20(月) 13:22:45 ]: 今や上場企業も零細企業も紙一重
491 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/20(月) 14:36:32 ]: そうでもないか
492 名前：名無しさん＠そうだ選挙にいこう [2009/04/20(月) 14:59:15 ]: 教えてください。
ExcelのVBAを勉強しています。

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

もう少し具体的に言いますと、
入力するときにTABキーを押すと、4スペース分が送られます。これはOKです。
ところが、修正する際に、さきほど入力したTABが、TABのままではなくて、スペース4個になってしまっています。
これをTABのままにすることはできないでしょうか?
通常のテキストエディターでは、TABはTAB、スペース4個はスペース4個のままで扱いやすいのですが。
493 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/20(月) 16:17:09 ]: 出来ません
494 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/20(月) 17:05:10 ]: >>493
さっそくのご回答ありがとうございます。できないですか。残念です。
便利になると思ったのですが、残念でした。
ありがとうございました。

ところて、なぜできないようになっているのでしょうか?
Windows標準のメモ帳でさえ、TABをTABとして扱っているのに、
VBAのエディターでできない理由が、何かあるのでしょうか。
495 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/20(月) 17:20:32 ]: 俺はTABの扱いってどっちの方式が優れてるとも思わないけどなあ
なんつーかなあ、うまく説明出来ないんだが
496 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/20(月) 17:27:31 ]: 何でだろうね。そうなってるからとしか言いようがない
ttp://okwave.jp/qa1029548.html
shift+tabなんて操作もあるようです
497 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/20(月) 17:55:06 ]: VBEがインデントを半角スペースに自動変換してくれるおかげで、
2chにコード貼るときに全角スペースでインデント出来る
498 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/20(月) 20:54:09 ]: みなさん、ありがとうございました。
「そういう仕様」という感じですね。
どうもありがとうございました。
499 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 05:13:32 ]: ＶＢＡで↓見たいに変数定義してFor で
Dim A1 as Range
Dim A2 as Range

For　n=1 to 2
500 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 05:15:06 ]: みすった
ＶＢＡで↓見たいに変数定義してForで繰り返して使うことできますか？
Dim A1 as Range
Dim A2 as Range

For　n=1 to 2
　select case An
　　An="～"・・・
　End select
next
501 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 05:21:59 ]: forのなかでrangeに代入しなおしました。事故解決しました。
502 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 16:02:01 ]: 配列…
503 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 20:15:51 ]: オブジェクト、プロパティ一覧の乗っているサイトを探しているのですが。
もしそんなサイトがあったら教えてください。
お願いします
504 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 20:17:04 ]: ヘルプに乗ってるのみた方が早いんじゃねーかそれは
505 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 20:34:09 ]: >>504
ヘルプだと
当を得ない説明が載ってるばかりで
どのオブジェクトにどのプロパティがあるのか
一覧にしてあるのを見たことがありません。
506 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 20:36:51 ]: きっと、探し方が悪いのでしょうね。
生活のために仕方なくやりたくもない仕事しているという方は、たいていそう言います。
507 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 20:43:09 ]: さすが　無職はいうことがちがう
508 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 20:59:25 ]: ヘルプってOffice97とかの頃の方が使いやすかったな・・・
509 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 21:41:12 ]: >>505
「オブジェクト、プロパティ」ってことはVBAだよね？

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

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

そもそも>>2･Bがあるので、そういう質問はスレ違いだしな
510 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 21:46:57 ]: 【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の繰り返し）が上手くいきません
良い方法がありませんか？
511 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 23:28:45 ]: >>510
一つのブック「入出庫在庫推移表.xls」(仮称）があって、その中に
「H21年4月1日」～「H21年4月30日」まで、計30枚(月によって28～31枚）
のシートが存在し、それに加えて「一ヶ月合計の推移表」シート(仮)がある
ということ？

シート1、シート2と便宜上呼んでいながら、「シート2のＢ4に『=H21年4月1日! 』」
と、いきなり「H21年4月1日」というシート名を出されても話がややこしくなると
思いますよ。
512 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/21(火) 23:59:40 ]: あ～、3Ｄ参照で推移表に合計を出したいのかと誤解してたｗ
要は、「一個一個を数式入力するのが面倒だから、コピペで済ませたいけど、
ずれてしまうから困ってる」って事ですねｗ

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

他の方にお任せしますorz
513 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 01:00:38 ]: >>503
クラスの一覧はここにある
ttp://msdn.microsoft.com/ja-jp/library/microsoft.office.tools.excel(VS.80).aspx
514 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 01:27:54 ]: >>510
頭にシングルコーテーションをつけて
'=H21年4月1日
をオートフィルすれば？
で、B3なりC4は&（アンパサンド）でくっつけたあとデータ→区切り位置で式に戻す。
515 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 02:46:08 ]: 【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、羊
どのようにすればいいか詳しく教えてください
お願いします
516 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 02:47:36 ]: >>515
並べ替え(ソート)
517 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 02:51:53 ]: 範囲指定して並べ替え選べばいいのでは
518 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 07:30:16 ]: ネタでないなら
後学のために、
エクセル並べ替え等のやりたいことをキーワードとして
ｇｏｏｇｌｅで検索することを覚えると有意義かもしれません。
519 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 07:37:22 ]: 初心者は何でもいいから本一冊最初から最後まで読んだ方がいいかもね
ダイソーのエクセル初級本マジでオススメ。100円。
>>510
B4=INDIRECT("H21年4月"&ROW()-3&"日!B3")
下にオートフィル
520 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 09:18:08 ]: けっこう前から探してるんだけど、
ダイソーの100円参考書、うちの地区じゃ売ってないんだよ。
521 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 09:52:34 ]: ttp://page7.auctions.yahoo.co.jp/jp/auction/g68176470
ヤフオクだと4冊セットで100円だった
522 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 13:06:32 ]: 100円本は大した事書いてないから
探す暇あるならExcelいじって試行錯誤して分からない事はググった方が手っ取り早いよ
523 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 13:13:29 ]: 大した事ない事でも初心者にとっては大事だったりするわけです
524 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 13:39:49 ]: すぐに覚える機能でもその機能の概念自体がない場合もあるからな
顕著な例が>>515だろう
そういうのはエクセル初心者というよりPC初心者ってほうが正しい気もするが
525 名前：名無しさん＠そうだ選挙にいこう [2009/04/22(水) 20:58:25 ]: 【1 OSの種類　　　　 .】 Windows XP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】不可
【5 検索キーワード　　】エクセル　URL　分離

文字にURLデータ属性が含まれてるものを、文字とURLに分離させたいのですが
どうやったらいいんでしょう？
526 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 21:08:43 ]: FINDかSUBSTITUTEか
527 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 21:26:50 ]: >>525
どんな風に含まれてるのかで違う
528 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 21:31:10 ]: 【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年　　　　　オートマ　　　　白
　
529 名前：528 mailto:sage [2009/04/22(水) 21:34:11 ]: Sheet1のB列からE列の値で上書きしたいのです
↓
Sheet1のB2からE2の値で上書きしたいのです

に変更します。すいません。
530 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 21:41:22 ]: > 【3 VBAが使えるか　　】いいえ
な人にユーザーフォームの使い方教えるのは面倒なんだよな

つーか、【Sheet1】をそのままユーザーに移植したいってならまだしも
シート対シートでやるなら、ボタンはユーザーフォーム上ではなくシート上で良いのでは？
531 名前：528 mailto:sage [2009/04/22(水) 21:51:55 ]: >>530

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

なぜユーザーフォームなのかについてはSheet1の2行目の値はユーザーフォームによって入力されるからです。
で、できればユーザーフォーム上で完結したいと思った次第です。。。
532 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 21:53:18 ]: >>525
できるよ。
以上。
↓次どうぞ
533 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 22:03:00 ]: > なぜユーザーフォームなのかについてはSheet1の2行目の値はユーザーフォームによって入力されるからです。
なんでそういう情報後出しするの？

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

それに
> 【3 VBAが使えるか　　】いいえ
な人が、なんでユーザーフォーム使ってるの？
534 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 22:11:22 ]: >>525
ハイパーリンクってことか?
VBAじゃなきゃ無理
535 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 22:14:48 ]: >>528
SheetA2
とは新しいシート?それとも打ち間違い?
536 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 22:15:37 ]: >>528
あと数字が無い場合の処理は
537 名前：528 mailto:sage [2009/04/22(水) 22:32:14 ]: >>533
VBAが使えるかどうかは程度の問題でほとんど使えないに等しいです。
ここで使えるとか書くと余計にはまります。
試行錯誤の上でユーザーフォームで入力した値をシート上に打ち出せるようになりました。
後出しになるかといえばそうなのかもしれませんが、ユーザーフォーム云々はこの話とはまったく関係ない話だと思いましたもので。
たまたまユーザーフォームと書いてしまいましたが、必要な情報はユーザーフォームがどうのこうのではなくボタンをクリックしたら上書き作業が行われるというVBAの文章をどうしたらよいのかということです。
すべてをお話しするとなるといろんな事情がからみあいますのでとてつもない量を書き込まないといけません。
文章がへたで意味が通じないかもしれませんがすいません。
ぜひともよろしくお願いします。

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

>>536
数字が見つからなかった場合には「数字が見つかりません」というエラー表示を出したいです。
538 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 22:47:51 ]: >>537
Sheet2でFind
Findの戻りがNothingだったら「数字が見つかりません」
Findの戻りがRangeだったらそこからOffset(, n)に値を書き込み
nが1ならB列、2ならC列になる

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

ブックうp出来ないならさようなら
539 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 23:14:31 ]: >>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の引数に入れるんだ。これを覚えればたいていのことはできるようになる
540 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 23:25:56 ]: ネタ？ボケ？騙し？
541 名前：528 mailto:sage [2009/04/22(水) 23:29:03 ]: >>539

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

変数iをcellsの引数に入れる・・・なんかすごく難しいんですが、理解できるように勉強します！
動作を確認してみます。
542 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/22(水) 23:30:58 ]: ボタンだっけ
フォームにボタン配置してボタンダブルクリックして
command～
とか出るからSub Macro1() と最後のEnd Sub を消して中にコピーペースト
寝る。また明日
543 名前：528 mailto:sage [2009/04/22(水) 23:41:56 ]: >>538
まったくわかりません・・・
が、いろいろと情報をあつめてちょっと理解を試みてみます。
ありがとうございました。
544 名前：528 mailto:sage [2009/04/23(木) 00:56:35 ]: >>539
ちゃんと思い通りに動きました！
素晴らしいです。
大変お疲れのところ本当にありがとうございました！
545 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 01:41:45 ]: 【1 OSの種類　　　　】 Windows XP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】エクセル　条件

60以上の数値を入力した場合、そのセルに60が表示されるようにしたいのですがどうすればよいのでしょうか？
よろしくお願いします。
546 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 01:44:25 ]: 60以上を入力出来なくするなら入力規則
60以上を入力したら、入力セルの値を自動的に60に書き換えるならVBA必須
入力セルと表示セルが別で、入力セルに60以上が入力されても表示セルは60とするならIF関数かMIN関数

以上
547 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 01:56:23 ]: >>546
VBAが必須なんですね。VBAを勉強してみます
どうもありがとうございました
548 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 06:31:43 ]: >>547
60をデフォで入力しておき
入力規則で60以下に制限。
ま、ポップアップが面倒で、キャンセルも面倒ですがね。
間違いはなくなるでしょう。
549 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 07:33:04 ]: >>545
普通は隣のセルに=if(a1>=60,60,a1)
って感じで入力する
550 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 07:40:00 ]: >>545
計算にはそのままでは使えないが、表示するだけなら簡単だね。
表示形式を[>=60]"60";G/標準などとすればいい。
551 名前：545 mailto:sage [2009/04/23(木) 08:41:42 ]: >>550でうまくいきました。ほんとにありがとうございました！
552 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 08:56:42 ]: おい、大丈夫か?
553 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 09:09:15 ]: >>551
A1に100と入れて60と表示されても、A1-50では50になるぞ
気をつけなよ
554 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 09:33:07 ]: 値は伴わなくても良いって話だったのか？
555 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 16:53:01 ]: ある人からもらった資料でlookupの前に+が付いていたんですがこのプラスはどういう意味ですか？
556 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 16:59:51 ]: =の代わり
557 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 17:02:44 ]: 3+lookup(・・・
だとlookupで検索した値と3を足す
558 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 17:31:44 ]: 古いソフトの名残だな。年輩の人は+を使うイメージ。
559 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 17:57:16 ]: 確かに＋の前に数値を入れたらその分だけプラスになりました。
初めて知りましたがこのやり方は常識なんですか？
ネットで調べても出て来なかったんですけど？
560 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 18:13:58 ]: >>559
"Excel 四則演算"とか"Excel 加減乗除"とかでぐぐると色々出てくるよ。
算数や数学で書くような書き順で数式を入力すれば
その通りの計算をしてくれるというだけで特に難しい話じゃないよ。
561 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 18:47:51 ]: なるほどね。。。
どうも有難うございました。
562 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 19:39:21 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】リンク貼り付け、空白

シートのあちこちにあるデータを使って、折れ線グラフを作りたいのです。
そのままデータ選択をしていくと、複雑すぎてダメと言われます。
リンク貼り付けでデータを１列に並べてグラフを作ると、ほぼ出来上がるのですが、
元データが空白の所が、グラフでは０になってしまいます。
折れ線グラフが途切れてほしいのですが、０でつながってしまいます。
何とかならないでしょうか？
563 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 19:41:38 ]: =na()
=n()
どっちか入れるとまっすぐになったと思う
564 名前：名無しさん＠そうだ選挙にいこう [2009/04/23(木) 20:22:56 ]: A列に日付型で
2001/01/01
2005/12/11
2002/07/27
～
とあるとして
その列ので最初の4文字が2001だけのデータの合計を出したい場合どうすればいいのでしょうか？
おそらく
=COUNTIF(A1:A65535,2001)
=LEFT(A1,4)
これらの組み合わせだと思うのですが
どうしてもうまくいかないので教えてください

また、ちなみにLEFT(A1,4)にすると3713みたいに
標準形式での数値が出力されますので2001とは呼んでくれないようです
565 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 20:30:52 ]: >>564
B1=IF(YEAR(A1)=2001,A1,"")
C1=sum(B:B)
や
b1=year(a1)
c1=COUNTIF(b:b,2001)
など
A1の内部データは36892、見かけ上2001/1/1になってるだけ
566 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 20:31:23 ]: C列に合計する数値があるとして、B列に年だけだしておく =YEAR(A1)
=SUMIF(B1:B100,2004,C1:C100)
567 名前：565 mailto:sage [2009/04/23(木) 20:36:13 ]: 6行目はミスですごめんなさい
カウントしてんじゃねーよな
568 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 20:38:58 ]: 作業列を作っていいなら、>>564-565の方法で良いでしょうね。

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

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

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

ただ、ここからCOUNTIFにネストする方法はわかりません、スマソｏｒｚ
569 名前：名無しさん＠そうだ選挙にいこう [2009/04/23(木) 20:40:53 ]: どうもです
570 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 21:26:41 ]: 西暦を取り出すだけなら
=YEAR(A1)
571 名前：名無しさん＠そうだ選挙にいこう [2009/04/23(木) 21:41:46 ]: A1の値がB1～B100の間にある値に一つでも一致する値があればC1に○、
一致するものがなければ×
これってわかるでしょうか？
572 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 21:55:42 ]: >>571
=IF(ISERROR(VLOOKUP(A1,B1:B100,1,0)),"×","○")
とか
573 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 22:03:40 ]: 【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,"リンゴ")
に、なってしまいます)

よろしくお願いします
574 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 22:09:37 ]: >>573
そういうのはオートフィルでは無理。
作業列を使うか数式を工夫するか。
575 名前：名無しさん＠そうだ選挙にいこう [2009/04/23(木) 22:10:00 ]: Aセル、Bセルにそれぞれ
1926/12/25、1989/01/07
とあった場合、死亡時の年齢を出したい
1926/12/25、なし
とあった場合、今現在の年齢を出したい
1873/05/04、1917/12/22
とあった場合、1900年以前の場合でも計算して死亡時の年齢を出したい

お願いします
576 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 22:12:07 ]: >>573
これ参考になるかも。
www2.odn.ne.jp/excel/waza/edit.html#SEC44
577 名前：562 mailto:sage [2009/04/23(木) 22:15:32 ]: >>563
もう少し詳しくお願いします
578 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 22:19:34 ]: >>572
ありがとう
基本的にそれでいいと思うんだけど
でもセルをコピーしたら
=IF(ISERROR(VLOOKUP(A12,B2:B101,1,0)),"×","○")
と動いてしまうんだよなぁ
1,2だったらいいけど100行とかあれば苦しいし
579 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 22:22:37 ]: >>578
「$b$2:$b$100」

「絶対参照」でググッてみましょう
580 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 22:26:02 ]: >>577
563じゃないけど

リンク貼り付けするとき、リンク貼り付けじゃなくて、
=if(A1="",NA(),A1)
みたいにすると、空欄のところにエラー値が出る。
このエラーは、グラフでは無視されるので、0じゃなくて途切れると思う。
581 名前：573 mailto:sage [2009/04/23(木) 22:29:31 ]: >>574
>作業列を使うか数式を工夫するか。

作業列を使う場合、具体的にはどうすれば良いのでしょう?
オートフィルを使わなくとも、作業が簡易化さえしてくれれば・・・、
と、思います。
582 名前：579 mailto:sage [2009/04/23(木) 22:30:09 ]: $B$1:$B$100
だった、ｽﾏｿorz
583 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 22:35:05 ]: >>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=」を「=」　に置換。
584 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 22:42:26 ]: >>583
ありがとう
明日、職場で試してみます
585 名前：562 mailto:sage [2009/04/23(木) 22:46:37 ]: >>580
ありがとうございます。
やってみました。エラー値になりますが、
グラフはリンク貼り付けと同じ結果になりました。
586 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 22:52:22 ]: フィルタで抽出した行（100行ほど）なんですが
これをすべて削除しようとしたら20秒ぐらいかかってしまいます
これって仕方ないんでしょうか？
587 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/23(木) 23:36:57 ]: >>586
複雑な式が入ってると時間がかかるようになる
再計算を手動にする
588 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 00:01:06 ]: >>585
同じになる？無視されず0が入るってこと？
589 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 00:14:39 ]: >>588
0にはならないけど、空白にもならず繋がっちゃうんじゃないかな。
>>562の希望は、途切れさせたいんだろ。

途切れさせたいなら本当に「空白セル」じゃないと無理じゃないのかな…
エラーの出てるセルを、ジャンプとかで選択して一気消しとか、
あるいはマクロを使うしかないと思う。
ただし2007で設定が増えてたら知らないけど。自分は2003しか持ってないから。
590 名前：562 mailto:sage [2009/04/24(金) 00:27:50 ]: みなさん、ありがとうございます。
>>588
はい。#N/Aになりますが、グラフでは０の扱いらしく、折れ線グラフがつながってしまいます。
家では2003なので、明日職場の2007で試してみます。
>>589
マクロですか。頑張ってみます。
591 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 01:45:08 ]: 【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時を過ぎる時間帯を横にグラフで表したいと思っています。
よろしくおねがいします。
592 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 02:16:48 ]: >>591
D1は0:00？1:00？
593 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 02:42:42 ]: とりあえず、条件付き書式じゃなくて数式で。
=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
594 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 02:47:23 ]: ちなみに22時を「22:00」じゃなくて「22」とだけ入れるようにすれば
もっと式が短くなるけどね
595 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 03:33:24 ]: 起動したら特定のシートを表示させるのはできますか？
今は起動→新規シート→邪魔なので消す→履歴から選択して表示してます
面倒くさい
596 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 04:13:51 ]: >>595
つ最近使ったファイル
597 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 06:28:53 ]: >>558
俺は、テンキー一発だから、+派かな
598 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 07:28:28 ]: >>592
D1は例えば18：00の値が入ります。

>>593
ありがとうございます。やってみます。
599 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 07:50:49 ]: >>573
=COUNTIF(INDIRECT("Sheet1!A"&2+(ROW()-2)*21&":E"&22+(ROW()-2)*21),"リンゴ")
下にオートフィル
>>574
勝手に決め付けるんじゃないよ
600 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 08:00:29 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】　月数計算　表示　形式

セルA1　H21.4.24
セルA2　H21.8
という違った形式の日にちが入力されている場合
セルA3に3(ヶ月)と表示したいのですが、どのようにしたらよろしいでしょうか？
601 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 08:13:07 ]: >>600
おそらくA2のほうが、日付と認識されてないと思うので厳しいな。
必ずA2がその形式なんだったらいいけど、どうせばらばらに色々なんだろうし。

もし、A2が表示形式でそうなってるだけで、中身はちゃんと日付と認識されてるようなら

A3に
=month(A2)-month(A1)

年をまたがるようだったら、
=(YEAR(A2)-YEAR(A1))*12+MONTH(A2)-MONTH(A1)

でいけると思うんだが…。
602 名前：名無しさん＠そうだ選挙にいこう [2009/04/24(金) 08:42:51 ]: EXCEL2007,Vistaです。

タイトルのついていないグラフにタイトルをつけたいのですが、
どうすれば、タイトル設定画面を表示できるのでしょうか

よろしくお願いします
603 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 08:49:45 ]: >>600
A2の日付を1日として見ていいのかな
=DATEDIF(A1,DATE(MID(A2,2,2)+1988,RIGHT(A2,LEN(A2)-FIND(".",A2)),1),"m")
>>601テキトーに回答しない
604 名前：600 mailto:sage [2009/04/24(金) 08:59:29 ]: >>601
ありがとうございます。
やってみましたが、やはり#VARUE! エラーが出ます。
A2の形式はH21.8となっていて日にちまでは入力していませんが、必ずH21.8の形式にはなってます。

これを無理やりH21.8.31とかにすることはできればよいのでしょうけど･･･
あとは日にちの入力ですよね。。。
605 名前：600 mailto:sage [2009/04/24(金) 09:05:43 ]: >>603

見事にできました！！！
ありがとうございます！
これでゆっくり寝れます
回答していただいていて気づきませんでした。

ありがとうございました！！
606 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 09:34:01 ]: >>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だと一行なんだけどね・・
607 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 12:09:50 ]: >>602
タイトルを付けたいグラフをクリックするとメニューバーの右端に
デザイン　レイアウト　書式
ってのが出てくるから右から2番目のレイアウトを選んでグラフタイトル
ttp://tomiya.bne.jp/cgi-bin/upup/src/myg_l1062.jpg
608 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 14:36:00 ]: Vbaの記述で質問です
三行
a+bが2か3の時かつ、a(i, j) = 1の時に真としたいのですが、
以下の文だとa+bが3の時にしか真になりません
どういう風に記述したらいいでしょう?
a+b = (2 Or 3) And (a(i, j) = 1) Then
609 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 15:32:35 ]: c=a+b
(c = 2 or c= 3) And (a(i, j) = 1) Then
610 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 15:53:03 ]: >>609ありがとー!
611 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 16:54:27 ]: 【1 OSの種類　　　　 .】 Windows Vista Business
【2 Excelのバージョン　】 Excel 97 SR-1
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可

今回ノートパソコンを購入。Excel 97をインストール。
新しいエクセルのファイルを作成、新規マクロを作ろうとすると、
「記録できません。」と表示されて、新マクロ名を登録できない。
前のパソコンで作ったマクロ入りのEXCELでは、新ﾏｸﾛを登録できる。
解決方法を教えてください。よろしく。
612 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 17:07:29 ]: 4649-!
613 名前：602 [2009/04/24(金) 17:34:13 ]: >>607
レスありがとうございます。
コンテキストメニューには出てこないんですね。
614 名前：名無しさん＠そうだ選挙にいこう [2009/04/24(金) 17:54:08 ]: ISREF関数ってどうゆう場面で使うんですか？
615 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 18:11:40 ]: オートフィルしてはみ出す場合とか、かねぇ
616 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 18:56:19 ]: >>609-610
ちょっとﾏﾃ
変数aの型はなんだ
617 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 18:58:47 ]: 質問させてください。

　　Ａ列　Ｂ列　Ｃ列
１行　あ　　Ａ　　10
２行　い　　Ｂ　　15
３行　う　　Ａ　　10
４行　あ　　Ｂ　　20
５行　あ　　Ｂ　　15

Ａ合計　20
Ｂ合計　50
全合計　70

こんなデータがあり、Ａ列をオートフィルタで「あ」だけを抽出した後
全合計はSUBTOTALで「あ」だけの合計を求められるのですが、
SUMPRODUCT((B1:B5="Ａ")*(C1:C5))で抽出しているＡ合計がフィルタを掛けた後
変化してくれません、可視状態の物だけ集計するにはどうしたらいいでしょうか？
618 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 19:17:05 ]: SUBTOTALでいいやん　引数がちがうんだったかな
619 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 19:45:35 ]: >>616
すいません、aは配列で、a+bはもともと違う式でした(d+eみたいな)
お騒がせしました
620 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 20:00:58 ]: >>617
=SUMPRODUCT((A1:A5="あ")*(B1:B5="Ａ")*(C1:C5))
オートフィルタで可視状態か否か、が分かれるのはSUBTOTALだけだったと思う
D1=IF(B1="Ａ",C1,"")
で下にオートフィル、
E1=SUBTOTAL(9,D1:D5)
とかが現実的かなぁ
621 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 20:40:36 ]: Excelのデータで
A列の同じ値のデータをすべて削除という処理なんですが
現状VBAで
A列で並び替える
if文でA列の上下を比較して同じだったらC列に○をつける
フィルタをかけてC列が○の行だけを表示
すべて選択して削除
元に戻す

こういうやり方をやっているのですが
どうしても時間がかかってしまいます（だいたい20秒ほど）
これ以外にうまいやり方ってないものなんでしょうか？
622 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 20:58:06 ]: >>621
オートフィルタのフィルタオプションで重複するレコードは無視するにチェック
コピー、貼り付けが早いかな

最終行を調べて
A1の値をA2、A3・・A最終行と調べて同じならClearContents(deleteキーの操作)
A2の値をA3、A4・・A最終行
で、並べ替えとか

配列が一番早いだろうけどさすがにこんなところで使うのもな
勉強がてら覚えるのもいいかもしれないけど

ともかく折角のVBAだし、作業列使うのはなるべく避けよう
623 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 21:27:45 ]: 2007に重複データの削除ってのがあるが、これってひどいバグがあるんじゃね？

A1
A2
A3
.
.
.
A200000

みたいなユニークなデータを作って重複データの削除を実行すると重複データがなくてもかなりのデータが削除される。
ひでーなこりゃ。

A000001
A000002
A000003
.
.
.
A200000
みたいなデータだと正常みたいだが。
624 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 21:41:10 ]: 「重複データの削除　バグ 2007」でググってみたら既知のバグらしいね。
今まで知らなかった。
625 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 21:55:42 ]: 何が削除されるのか調べてみた。
A1
A2
A3
.
.
A1999
A2000

みたいな2000行のユニークなデータだとA1930～A1939の１０個のデータがごっそり削除されるたｗ
626 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 22:15:04 ]: えー！ﾋﾄﾞｽ。2007は糞だな。
627 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 22:24:00 ]: >>625のデータの右側に=RAND()としてこの作業列をキーにランダムに並べ替えてから実行すると、"A193"の１個だけ削除された。
"193"って文字列が鍵を握ってるのか？
でもランダムに並べ替えない>>625のデータのままでは"A193"は削除されなかったな。
628 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 23:29:18 ]: A列に誕生日
B列に死亡日
があった場合年齢を計算する時に
Datedefを使うと思うのですが

A列の値が1900年以前だった場合
どうすればいいのでしょうか？
200年プラスして計算って事ですが、いまいちやり方がよくわからないので
教えて下さい

またそれを他の計算用のセルを使わずに関数内だけで組み合わせて
年齢を求めることって可能なんでしょうか？
多少複雑になってもかまいませんが
629 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 23:33:59 ]: >>628
ガイシュツ

>>575と>>606
630 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/24(金) 23:44:15 ]: ちなみにそれ2000年プラス
631 名前：573 mailto:sage [2009/04/25(土) 00:18:13 ]: >>599
思い通りにいきました
ありがとう
632 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/25(土) 03:16:12 ]: ガイシュツってすげー久しぶりに見たな
633 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/25(土) 15:22:45 ]: 【XP/Excel2007/VBA×】

数千件のデータがあり、それぞれに名前データを含んでいます。
各行について「=COUNTIF(名前の列,その行の名前)」のセルを設けて、その名前が何件あるかを数えて、おおむねうまく機能しているのですが、
実際の名前データは下のような感じでアスタリスクが使われている場合があり、ワイルドカードとして認識されて正常な個数が表示されません。
何か対処方法はありますでしょうか？

あいう
かきくけこ
***
abc
あいう
*きく*
***

期待する結果（現状の結果）
2(2)
1(1)
2(7)
1(1)
2(2)
1(2)
2(7)
634 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/25(土) 16:08:52 ]: >>633
データがあまり多くなければ=SUM(($A$1:$A$7=A1)*1)の配列数式でいける。
COUNTIFも重いけど配列数式やSUMPRODUCTはそれに以上に重い。
635 名前：634 mailto:sage [2009/04/25(土) 16:19:34 ]: 数千件のデータとあるから上は多分駄目だな。
かなり速いマシンじゃないとストレスがたまるだろう。
COUNTIFでもどうかと思うけど。
636 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/25(土) 16:37:49 ]: >>633
「~」を使う
=COUNTIF($A$1:$A$7,SUBSTITUTE(B1,"*","~*"))
637 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/25(土) 16:39:45 ]: >>633
=SUBSTITUTE(A1,"*","数千件")
みたいに*を使ってない文字列(検索すれば確実だと思う)に置換した後、countif等してみては
更新・追加が無ければctrl+Hで実際に置換してもいいかもしれない
638 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/25(土) 16:46:51 ]: >>634-635　ありがとうございます
=SUM((A:A=A1)*1)の配列数式で一応いけたのですが、やはり思いですね

現状でも結構重めのシートなんですけど、さらに2，3倍かかるのでやっぱりちょっときついですかね；
でも配列数式とか使ったことがなかったので今後の参考にします。
639 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/25(土) 17:04:59 ]: >>636-637
現状と変わらない重さで実現できました。ありがとうございます/

すみませんもうひとつだけ上で書いていなかったのですが、
名前が空欄のデータが数個あって、このときの数値が　60394　みたいなかなり大きな数字になってしまいます。
大した問題ではないのでこれを防ぐために式が長くなるようならあきらめますが、何か簡単な対策はありますか？
640 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/25(土) 17:07:31 ]: 出来れば空欄は空欄のままにしておきたいです。
641 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/25(土) 17:11:01 ]: >>639
=IF(OR(A1="",A1=" ",A1="　"),"",COUNTIF(A:A,A1))
642 名前：639 mailto:sage [2009/04/25(土) 17:43:36 ]: 最終的に
=COUNTIF(A:A,IF(ISBLANK(A2)," ",SUBSTITUTE(A2,"*","~*")))としました。
>>641　どうもです
643 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/25(土) 17:49:53 ]: >>620
有難うございました。
一つの式で出来ないかと悩んでいたのですが、そんな方法もあるのですねぇ
大変助かりました、どもです。
644 名前：名無しさん＠そうだ選挙にいこう [2009/04/25(土) 20:00:36 ]: 【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セルに、式をいれたいですが、公式がわかりません。
645 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/25(土) 20:03:51 ]: >>644
=A1+B1*60/100
646 名前：644 [2009/04/25(土) 20:10:12 ]: >>645

例）
$A$1・・・"4" (h)
$B$1・・・"15" (mm)
→$C$1・・・4.25

の場合、=A1+B1*60/100　をしたら、

答えが、13になりました。（´･ω･`）
647 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/25(土) 20:11:39 ]: >>646
=A1+B1/60
ごめん間違ってた方書いちゃった
648 名前：644 [2009/04/25(土) 20:13:16 ]: >>647
ありがとうございました^^
649 名前：名無しさん＠そうだ選挙にいこう [2009/04/26(日) 02:44:25 ]: シート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行ずれるようにしたい）と思います
よろしくお願いします。
650 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/26(日) 03:26:31 ]: >>649
行１の開催回行無視して>>599さんの応用の方が楽だな。

=SUM(INDIRECT("シート2!B"&COLUMN()+(COLUMN()-2)*7 & ":B" & COLUMN()+(COLUMN()-1)*7))
651 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/26(日) 03:41:07 ]: 行１の開催回を使うならこんな感じか。

=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)))
652 名前：名無しさん＠そうだ選挙にいこう [2009/04/26(日) 08:46:44 ]: EXCEL2003です。

２つのブックを開くと、１つのEXCELウィンドウの中に２つ表示（並べて
表示ｏｒ切り替えて表示）されますが、
これを２つのウィンドウに分けて表示することはできないのでしょうか？

よろしくお願いします。
653 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/26(日) 08:48:13 ]: >>652
ファイルを開いた後、
EXCEL.exeを開いてファイル→開く
654 名前：名無しさん＠そうだ選挙にいこう [2009/04/26(日) 11:01:44 ]: 【1 OSの種類　　　　 .】 Windows xp
【2 Excelのバージョン　】 Excel 2003, 2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 Excel 条件付書式　数値

Ａ１セルに入力した場合、Ａ１セルの値が、数値で無い場合、セルの背景色を変更したい。
655 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/26(日) 11:35:33 ]: 数式が=NOT(ISNUMBER(A1))
656 名前：654 [2009/04/26(日) 13:08:49 ]: >>655
ありがとうございました
657 名前：652 [2009/04/26(日) 13:13:31 ]: >>653
レスありがとうございます
658 名前：639 mailto:sage [2009/04/26(日) 15:07:46 ]: 【Windows XP】【Excel 2007】【VBA使用,回答否,否】

各行のA列に数値、B列にテキスト、、のようなデータがあり、
A列全体に「条件付き書式」「2色スケール」でA列の最小値～A列の最大値でグラデーションのように設定しているのですが、
このA列の数値を使ってB列にも同じようにグラデーションカラーの書式を設定することは可能でしょうか？

ちょっと試してみたところ、相対参照は出来ないとかでうまく設定できませんでした。
よろしくお願いします。
659 名前：649 mailto:sage [2009/04/26(日) 18:10:07 ]: >>650-651
できました！
エクセルが動いた！この大いなる感動！！
651の方を使ってみました
ありがとうございました。
660 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/26(日) 22:08:26 ]: A1に名前/年齢/職業
こういったセルがある場合
B1に名前
C1に年齢
D1に職業
を関数を使って表示させたいのですが
どうしてもうまくいきません
教えてください
661 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/26(日) 22:44:28 ]: >>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)
662 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/26(日) 22:46:43 ]: 変態チックと言ってもそれしかなくね
663 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/26(日) 23:13:52 ]: せっかく切りだしてるんだからもっと短くできるな

C1=SUBSTITUTE(SUBSTITUTE(A1,B1&"/",""),"/"&D1,"")
664 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/26(日) 23:36:31 ]: 　　　　　　　　　　γ⌒) _,........,_
　　　　　　　　　　 |.|　, ´,.-=＝ ,ヽ　　　　2年後は>>1乙してるかな？
　　　　　　　　　　 |.|　i　(ﾉﾉλﾉ)リ＿＿¶＿＿＿
　　　　　　　　　　 |.| .ﾙｲ) ﾟヮﾟﾉ)ﾉ　　¶／／| 　／|
　　　　　　　　　　 U＿⊆__⊆_ )_ 　　/￣|／／／
　　　　　　　／┌────┐|. ／'`)　／／
　　　　　　　／(　/　≡≡≡　.//（__／／／
　　　　　　　| ￣￣￣￣￣￣￣￣￣ |／

　　　　　　　　　_,........,_
　　　　　　　 , ´,.-=＝ ,ヽ
　　　　　　　 i　(ﾉﾉλﾉ)リ
　　　　　　　 .ﾙｲ) ﾟヮﾟﾉ)ﾉ　　いなかった
　　　　　≡　（っ∩っ∩
　　　≡　　(ニ二二二ニ)
665 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/26(日) 23:46:43 ]: 作業列設けていいのなら
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)
とするとシンプルで分かりやすいと思うんだが
666 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 00:53:55 ]: >>660
ちなみにデータ→区切り位置の機能は知ってるのかな？
知ってる上でその質問なら別にいいんだけど。
667 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 02:12:21 ]: >>666
区切りだと
A1自身がデータが変わるんじゃないの？
668 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 08:07:13 ]: データが変わるのが嫌ならB列にコピーしてからやればいいじゃん。
なんでも関数でやるやつはヴァカ。
669 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 08:12:28 ]: 関数の回答をヴァカと言ってるわけじゃねーからな。
関数でやりたい質問者がヴァカと言ってるだけ。
670 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 10:04:24 ]: VBAを本格的に覚えようと思うのですが、どこかいいサイトはありますか?
マクロの記録を改良したり、if文やfornextぐらいなら何とかできるレベルです
671 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 10:46:17 ]: >>670
知ってるところだと「オフィス田中」「インストラクターのネタ帳」ってサイトぐらいかな
どちらもぐぐればすぐにでてくると思う
後はぐぐったりテキトーに古本屋で本買ったりして覚えたな
でもエクルセならfornext覚えておけば大概のことはできると思う
672 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 10:56:01 ]: エクルセ
673 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 11:11:10 ]: 単なる打ち間違いだ
674 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 11:18:37 ]: ルとセが綺麗に入れ替わるってことはカナ打ちかな？
ローマ字打ちだと、4文字目を6文字目に、5を7に、6を4に、7を5にと
4文字も打ち間違わない限りエクルセにはならないし

まあそれはいいとして、どちらもいくつか間違いや不適切な方法とかも載ってるから注意な
多少詳しいとはいえ、書いてるのは人間なんだからそりゃ間違いだってあるわけで
おかしいと思ったら、絶対に合ってるはずなのにとか思い込まず、載ってる情報の間違いも疑うこと
もちろん、自分が手順やコードなどを間違えてないか疑うのが先だがな
675 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 11:37:56 ]: ある列のフォントを一括で変更したいのですが、
変わる文字と変わらない文字があるんです。何故でしょう？
列を選択して、ツールバーのフォント指定を変えてみたり、書式-セル－フォントでやってもできません。
ロックでもかかってるかのようです。そんな設定はあるのでしょうか？
676 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 12:37:30 ]: >>674
指摘は最もだが、それなら別のサイトのURLでも参考に書いてあげたらどうだい
後かな打ちは正しいがそんな長い推理しなくても皆分かってるよ
>>675
条件付書式の設定かフォントがその文字に対応してないかのどちらかだと思う
677 名前：名無しさん＠そうだ選挙にいこう [2009/04/27(月) 12:41:46 ]: カルシウムとれ
678 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 13:23:23 ]: >>676
条件付書式は何も設定してないのですが・・・それとも何も設定してないから？
試しにその正しくフォントが変更されない文字列をメモ帳にコピペすると、正しく表示されます。
679 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 14:55:44 ]: >>678
ｽﾏﾝ、分からない
EXCELファイルをアップロードして下さい
680 名前：名無しさん＠そうだ選挙にいこう [2009/04/27(月) 19:04:09 ]: 最近【PCソフト在庫処分】の事がよく載って、消されてるけど
ここで買っても大丈夫？
買ったことある人教えてください
681 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 19:22:24 ]: >>680
不正コピー品だからやめておいた方がいい
682 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 20:20:23 ]: >>678
フォントが対応してないのはメモ帳にコピーしても意味ないよ。
文字がおかしいわけじゃなくて、
たとえば英語圏用のフォントは漢字には対応してないようなもの。
（漢字の分まで想定されてないというか。）
フォントは何ていうやつなの？
683 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 20:23:50 ]: 第三水準かユニコードがらみの悪寒
684 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 21:59:22 ]: >>683
ああ、多分それです。MSPゴシックで書かれた欧文をLucida Sans Unicodeにしたいのですが。
MSPゴシックに固定されてしまう文字があるのです。
ユニコードかJISかは関係ないみたい。混在してます。
同じ文字や記号なのに、変更されたりされなかったりもあります。
フォントはXPにデフォで入ってるフォントですよね？
文字はどちらにも存在します。ただゴシックの字体とバランスが気に入らないので・・・
エクセルの問題じゃなくて、入力するときのIMEの問題のような気もしてきました・・・
685 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 22:19:49 ]: >>684
どういう状況か、やっとわかった。
全角の英数字か記号を使ってる。たぶん間違いない。
それはIMEの問題じゃなくて入力した人の操作の問題。
686 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 22:52:25 ]: >>685
なるほど・・・固定されてるのは全角なのか。
これは１文字ずつ置換して修正するしかなさそうですね・・・
ありがとうございました。今日はも寝ます。
687 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 23:28:04 ]: >>686
半角と全角を区別して検索・置換できるから一発でできるでしょ
688 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/27(月) 23:33:44 ]: 【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
といったものをつくりたいです。（｜や-は、数値のふられていない補助線の位置です。）
『対数』のチェックをオンにして自分なりにやってみたのですが、上のような目盛りのふられ方にできなかったので、質問しました。
情報が少なく難しいかと思いますが、レスお願いします。
689 名前：名無しさん＠そうだ選挙にいこう [2009/04/28(火) 01:05:50 ]: エクセルで日付を入れたいのですが、ツールバーのフォントみたいに選択式にするにはどうすればよいですか？お願いしますm(__)m
690 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/28(火) 01:09:01 ]: >>689
プルダウンのリストから選択させるってことでいいのかな？

データ→入力規則→入力値の種類をリストにして
日付リストを範囲選択するか
2009/1/1,2009/1/2　のように
データをカンマで区切って指定する。
リストが別シートのときは範囲に名前をつけないとエラーになる。
691 名前：名無しさん＠そうだ選挙にいこう [2009/04/28(火) 01:16:22 ]: ありがとうございますm(__)m
おかげで上手くできました
692 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/28(火) 07:53:25 ]: >>688
よくわかんないけど、両軸とも対数じゃないように思えるんだけど…
最小値が0じゃないってだけじゃないの？
693 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/28(火) 08:46:26 ]: >>687
いや、そうなんですけど、どの文字が全角で打たれてるのか予測できないので、
全ての文字について１文字ずつ置換作業やらないといけないなと・・・
あるいは見つけ次第、手動変換か・・・orz
もう全角のままでもいいかなぁ・・・
694 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/28(火) 09:03:56 ]: でも、ただメモ帳に貼り付けただけでLucida Sans Unicodeに統一できるのに、
エクセルはできないんだろ？全角文字はフォントの変更はしないなんてあるのかな？
それはないか。設定で切り替えられるとか？
695 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/28(火) 09:09:32 ]: 流れよめてないかもだが、ASC関数で一括して半角にすりゃいいんじゃね？
696 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/28(火) 09:32:21 ]: 一度アップロードしてくれれば解決できるかもしれないんだが・・無理かね
その文字だけでいいんだけど
697 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/28(火) 10:17:23 ]: >>693
VBA使える？
698 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/28(火) 11:27:48 ]: >>689
回答は>>690で終わってるとして、これは余談になるけど
Ctrl＋；（セミコロン）や Ctrl＋：（コロン）を覚えておくと便利だぞ。
699 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/28(火) 17:43:32 ]: pc8.2ch.net/test/read.cgi/bsoft/1152852610/
700 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/29(水) 07:57:34 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ（簡単なものなら）
【4 VBAでの回答の可否】可
【5 検索キーワード　　】パスワード

フォルダ内にあるすべてのエクセルファイルに、一度に同じパスワードを設定する方法はありますか？
701 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/29(水) 08:35:23 ]: >>700
①パスワード設定を「マクロの記録」でとる
②下のコードの2行目(Const～)に目的のフォルダパスを設定する
③下のコードの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(～」の上を削除
702 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/29(水) 09:45:07 ]: >>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

②保存したファイルを開き、マクロを実行

ちなみにパスワードをかけたいファイルを C:\Users\＊＊\Documents\に入れてやってみました。

③保存するかどうか聞いてきたので「はい」をクリック

以上です。よろしくお願いします。
703 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/04/29(水) 16:07:21 ]: >>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

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef