Excel総合相談所 89

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


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

Excel総合相談所 89

1 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/26(土) 22:07:41 ]: ▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★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総合相談所 88
ttp://pc11.2ch.net/test/read.cgi/bsoft/1257003834/
2 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/26(土) 22:09:22 ]: ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･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/12/26(土) 22:10:12 ]: ★ルールを無視すると…
　>>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/12/26(土) 22:10:52 ]: ★ 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/12/26(土) 22:11:44 ]: ★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

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

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

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

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

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

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

以上でテンプレ終わり
7 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/26(土) 23:21:40 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2002

会社のサーバに、複数の人が使うファイルを置いています。
マクロでこれを開いて追記するとき、ActiveWorkbook.ReadOnlyで
誰かが使ってたら中止するようにしました。
このとき、誰が使ってるかのメッセージは出せますか？
今、自宅でPCが1台しかないので、何も確認ができません。
8 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/26(土) 23:36:08 ]: 使用している人まで追跡できないけれど、パソコンは指定できるよ。

ファイルを開く際に、同じディレクトリにa.txtがあるかを調べる
無ければ誰も使っていない。
あれば使っている。

とかは？

エクセルには
　ファイルを開いたらそのディレクトリにa.txtを作成
　閉じる際にa.txtを消すようにする。
みたいなのをマクロで作って。

どのPCかは、適当にPC情報をa.txtの中に記述するマクロで。
9 名前：名無しさん＠そうだ選挙にいこう [2009/12/26(土) 23:51:40 ]: テスト
10 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/26(土) 23:56:51 ]: >>7
UserStatusやWriteReservedByプロパティなんてのがあるらしいが
その用途で使えるかどうかは知らない。
11 名前：名無しさん＠そうだ選挙にいこう [2009/12/27(日) 01:34:51 ]: エクセル2007.WINXP.

関数の　FREQUENCY についての質問です。よろしくお願いします。

この関数を使いＤ1：Ｄ50に数値を出してみました。

その後、そこのセルを間違ってクリックして文字をうちこんでしまいました。

やべっ！と思い文字をけしたのですが、もとはどのように書いてあったのか忘れてしまいました。

ENTERをおすと　”配列の一部を変更できません”　とコメントが出てきます。

なにをしてももとの状態にもどれません。Ctrl + Z でやってももどれないのです。

データ保存してないのでなんとか保存できる状態にしたいのですが、、、

現在、お手上げ状態です。どうか解決策を教えてください。お願いします。
12 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/27(日) 01:46:30 ]: >>11
パソコンの電源ボタンを長押しして、お風呂入って、布団に入って、目を閉じて、羊の数を数えると思い出すよ。
まずはやってみよう。
13 名前：名無しさん＠そうだ選挙にいこう [2009/12/27(日) 02:00:10 ]: >>12
困っています。対処法を教えてください。お願いします。

電源切ってまたエクセル開くと自動保存されてるってことでしょうか？
14 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/27(日) 02:09:30 ]: ESCキーかね
15 名前：名無しさん＠そうだ選挙にいこう [2009/12/27(日) 02:21:28 ]: >>14
本当にサンクスです。こんなことできたんですね。今まで気がつきませんでした。

ESC つかえますね。

ありがとうございました。
16 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/27(日) 11:42:43 ]: 【1 OSの種類　　　　 .】 Windowsvista
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】オートフィル　excel 連続データ　指定

A１セルに　=100*B5　という数式を入力して
100の方を50刻みで増やすようオートフィルで連続データ入力しようとしたのですが

=100*B5　←A1セル
=150*B5　←A2セル

と手作業で入力した後A列にオートフィルで連続データ入力すると

=100*B5
=150*B5
=200*B6
=250*B7
=300*B8
=350*B9

となってしまいます。B5の数字は増やさないようにオートフィルで
連続データ入力するにはどうすればよいのでしょうか？
17 名前：名無しさん＠そうだ選挙にいこう [2009/12/27(日) 12:42:48 ]: 【1 OSの種類　　　　 .】 WindowsXP(2000、VISTA、7(64b)もあります。)
【2 Excelのバージョン　】 Excel2003(07も可ですが、できれば特定の端末で使用したい。)
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 Googleやヘルプでの検索キーワード
　マッチング、絞り込み、パターン等で検索しましたが、見つかりませんでした。

それぞれ独立した塩基配列のパターンが50あります。それを80個あるパターンのどれか
重複無く必ず当てはまる(余りが30ほどでます。)データがあり、例えばサイズとか形状により
マッチングしていく作業があります。
トランプで言うところの、30枚の裏に伏せたカードのうち、52枚のどれかを特定していく作業です。
ここで、プルダウンメニュー等には4以上9以下とわかっている場合にはそれらの、5が既に特定
出来ている場合には4,6,7,8,9の候補だけを、マークがわかっている場合にはハートだけ選択で
きるようにしたいのです。VBA等で別のダイアログを表示させても構いません。
そのような不確定なデータの特定を行い、一覧を完成させるための補助機能が欲しいのです。
無論、機能としては52枚のデータがその都度表示されても構わないのですが、作業の性格上
そのような機能があればミスも減らせ、楽になるのではないかと思ったものですが、そのために
普段、エクセルでシートを製作することの少ない自分には、都合の良い機能が見つかりませんでした。
18 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/27(日) 12:47:59 ]: >>16
B5 → B$5
19 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/27(日) 12:53:57 ]: >>17
あいまいでわからない。具体例は。
シートの構成は。
どうやって対象Celの候補の範囲を絞り込むの。
20 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/27(日) 12:54:22 ]: >>18
ありがとうございます(´；ω；｀)
助かりました！
21 名前：名無しさん＠そうだ選挙にいこう [2009/12/27(日) 21:12:00 ]: >>19
だからそれを聞いてるんですが。
22 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/27(日) 21:20:03 ]: >>21
あなたの質問は、神経衰弱や7並べのルールを説明して
これをExcelで作ってくださいと言っている様なもの。
どういうふうにデータが並んでいて、どれをどうしたいのか。
自分でどこまでやって、何ができないのか。
そういった事が具体的な話がないと、答えようが無い。
一から全部作ってなら、お金払って誰かに頼むのがはやいよ。
23 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/27(日) 22:45:48 ]: >>22
意味不明。
ルールを説明してもらってこの上何が不足なんだ？
お前が答えられないだけのくせに質問者を貶めるな。
24 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/27(日) 22:57:39 ]: >>22
質問者様がこれだけ説明してくださっているんだ
塩基配列なんてわからんならググれ
シートやセルの形式なんか暇なおまえらが作れ

・・・と>>17は言ってるとエスパーしてみる
25 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/12/27(日) 23:39:06 ]: >>17
１－３の数字をA1-A３にいれるとする
B1-B３にリスト。
b1=IF(COUNTIF($A$1:$A$5,1)=0,1,"")
b2=IF(COUNTIF($A$1:$A$5,2)=0,2,"")
b3=IF(COUNTIF($A$1:$A$5,3)=0,3,"")

A1のデータ、入力規則、設定、リスト
もとの値を
=$B$1:$B$5
A2A3にコピー

これでリストの中に一度選んだものは入らなくなる
b列はc列に入力したものを参照させて、
b1=IF(COUNTIF($A$1:$A$5,c1)=0,c1,"")
と変えた方が良いかもしれない
>>19
例で示せばいいんじゃね
これだけ言えば聡明な>>17はきっと理解出来るでしょう
26 名前：17,22 mailto:sage [2009/12/27(日) 23:56:41 ]: >>25
大体あなたと同じ答えを用意してた。
B列は=IF(ISNA(VLOOKUP(A1,C$1:C$7,1,FALSE)),A1,"")だけど。(コピーできるので)
だけどね、こちらがあれこれ想定して、そこはソウじゃないんだって
やりとりが続くのがやだったのよ。
27 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/27(日) 23:59:18 ]: >>26
名前17→19の間違えね
28 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/12/28(月) 00:01:28 ]: 嫌なら答えなきゃいいのに小出ししてくるほうが悪いんだから寝る
29 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/28(月) 05:38:52 ]: まったくだ。嫌なら答えなければよい。どうせつまらない回答しかできない連中だ。

特に>>22
>どういうふうにデータが並んでいて、どれをどうしたいのか。
>自分でどこまでやって、何ができないのか。
>そういった事が具体的な話がないと、答えようが無い。

だってよ。笑わせるな。神経衰弱や七並べなんて「具体的」だろう。
30 名前：名無しさん＠そうだ選挙にいこう [2009/12/28(月) 13:14:31 ]: エクセル2007.winXP
■質問です。よろしくおねがいします。
A B c　　　　Ｄ

4 a 56
8 h 120
1 k 89
2 s 560
6 h 340
- f 97

A列にて　-　の行の　97　っていうのを　Ｄ1にいれたいのでえすがどのようにすればよいですか
すみませんがおしえてください。お願いします。

＝if(a1:a100,"--", ,,,ここまで入力してみたのですがこの先、、、思考停止してしまいましたｗ )

どうやら　IF ではだめそうです。どの関数をつかえばよいのでしょうか。ヒントをください。
お願いします。
31 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/28(月) 13:19:20 ]: =VLOOKUP("-",A:C,3,FALSE)
32 名前：名無しさん＠そうだ選挙にいこう [2009/12/28(月) 13:27:37 ]: >>31

新しい技を覚えさせていただきました。
ありがとうございました。
33 名前：名無しさん＠そうだ選挙にいこう [2009/12/28(月) 21:05:58 ]: >>22
わかりました、それではまず、自分で作ったものをどこかにアップロードします。
参照の仕組みからして、根本的にやり方がまずかったと思いますので、
この状態から作り変えるのは余り得策ではないと思いますし。
実際には本番の業務用の製作があるわけですから、機能を満たす
簡単な説明で構いません。
個人的にはリストオブジェクトの選択データを変更したときをトリガーに、
VBAコードを走らせるしかないかな、と思っていたりするのですが。
オブジェクトのプロパティを一個ずつ弄るのすら膨大な作業量になるのに、
たとえユーザー関数(VBAではサブルーチンでしたっけ)をCallするだけと
言えど、いちいち記述しなければならないと思うと非常に困難な気がします。
やはり、Excelの機能に詳しい方なら何か知っているのではないかと
思っていたりするのですが。

card
ttp://www1.axfc.net/uploader/Sc/so/68334
34 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/28(月) 23:32:28 ]: スルー推奨
35 名前：名無しさん＠そうだ選挙にいこう [2009/12/29(火) 11:45:31 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】

プルダウンの内容を状況に合わせて変えることはできないでしょうか？
例えば、セルA1、B1にそれぞれプルダウンがあるとして
A1のプルダウンは"和食","洋食","中華"の３つが選べる。そして
A1で"和食"を選んだ場合はB1のプルダウンは
"寿司"、"天ぷら"、"すき焼き"
A1で"洋食"を選んだ場合はB1のプルダウンは
"ハンバーグ"、"スパゲティ"、"カレー"
A1で"中華"を選んだ場合はB1のプルダウンは
"ラーメン"、"チャーハン"、"ホイコーロ"
を選べるようにするとか。そんな感じです。

何がやりたいかというと、多すぎる選択肢を
ジャンルで絞り込めるような記入表を作りたいんです。
36 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/29(火) 12:03:35 ]: >>35
まずデータを名前定義しておく。やり方がわからなければ検索
和食・・・寿司～
洋食・・・ハンバーグ～
中華・・・ラーメン～

A1はその定義名を選択させる。

そして、B1の入力規則、元の値に
=INDIRECT(A1) と入力。
37 名前：名無しさん＠そうだ選挙にいこう [2009/12/29(火) 12:12:04 ]: >>36
ありがとうございます。早速チャレンジしてみます。
38 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/29(火) 16:42:49 ]: =HEX2BIN("321") が #NUM! エラーになってしまうんですが、どうしてでしょう？
アドインはきちんと入れてあり、=HEX2BIN("123")はきちんと100100011になるのですが。
2003と2007で試しましたが同じ結果です。
39 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/29(火) 17:57:47 ]: >>38
こういうことじゃね

HEX2BINのHelpより
＞数値に FFFFFFFE00 より小さい負の数を指定することはできません。また、数値に 1FF より大きい正の数を指定することはできません。
40 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/29(火) 18:20:19 ]: 【1 OSの種類　　　　 .】 Windows Vista
【2 Excelのバージョン　】 Excel 2002

１つのセルの大きさが印刷時に60*25mmになるようにしたいのですがどうしたらいいですか？？
初歩的な質問ですいません。
41 名前：名無しさん＠そうだ選挙にいこう [2009/12/29(火) 20:27:32 ]: >>40
2002だったらオートシェープで多少のサイズ指定は出来るけど、
セルにしろなんにしろ、完全にそのサイズにすることは　無理～
42 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/29(火) 20:44:03 ]: >40
ページ設定での倍率は１％きざみで調整できたと思うので、セルのサイズでぴったりにできない
場合はこれも調整してみては？
43 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/29(火) 21:32:19 ]: >>41
>>42

アドバイスありがとうございました。
44 名前：名無しさん＠そうだ選挙にいこう [2009/12/30(水) 03:16:12 ]: 　★ 使用OS(Windows XP Home Edition SP3)
　★ 使用ソフトウェア名とバージョン(Excel 2000）

作業予定表と作業完了表の2つがあるのですが予定表では500行ほどあるのに完了表では300行ほどしかありません
予定表の作業が終わった行の横に○を表示させたいのですがどのような関数を使えばいいのでしょうか

予定表では
　A
1 ○○課会議室A 会議内容　
2 ○○課会議室B 会議内容　
となっているのですが
作業表では
　○○課会議室A 会議内容代表者名
　○○課会議室D 会議内容代表者名
と末尾に余計なものがついています
45 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/30(水) 12:19:51 ]: >44　当方Excel2003なので万一利用できないときはレス願います。

ワイルドカード("*")を併用したMATCH関数でチェックできます。
予定表シート、作業表シートとも　Ａ列2行目　から内容が入っているものと仮定して
予定表のＢ列2行目に
=IF(OR(ISERROR(MATCH(A2&"*",作業表!$A$2:$A$300,0)),A2=""),"","○")
って入れて、下にドラッグコピーしてください。
46 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/30(水) 15:21:18 ]: >>45
できました
ありがとうございます
47 名前：単乳 mailto:sage [2009/12/30(水) 23:57:20 ]: エクセルでローグライク的なものを作ったんですが感想お願いします

www42.atwiki.jp/syugyou/pages/236.html
48 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/31(木) 00:25:23 ]: 置換の際に数字と記号すべてをなくしたいのですがどのように検索すればいいのでしょうか
49 名前：名無しさん＠そうだ選挙にいこう [2009/12/31(木) 08:00:34 ]: 　★ 使用OS(Windows XP Home Edition SP3)
　★ 使用ソフトウェア名とバージョン(Excel 2003）

コントロールやフォームにあるリンクするセルを参照先も相対的に移動しながらコピーしたいのですが
$マークを解除するだけではできませんでした。ヘルプを読んでも相対参照になるはずなのですが、
どうもうまくいきません。(セル操作では成功しました。)
50 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/31(木) 08:16:49 ]: (￣－￣)フーン
51 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/12/31(木) 09:07:54 ]: >>49
決まりごとについてあった対象となるオブジェクトも一応列挙して置きます。
コントロールオブジェクトのコンボボックス(ドロップダウンリスト)の単一指定、リストボックスの単一指定、
チェックボックス、オプションボタン、スピンボタン、スクロールバーの単一指定、フォームオブジェクトの
コンボボックス(ドロップダウンリスト)の単一指定、リストボックスの単一指定、チェックボックス、
オプションボタン、スピンボタン、スクロールバーの単一指定における、リンクするセルの絶対参照です。
52 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/01(金) 10:12:09 ]: あけおめことよろ
53 名前：複乳 [2010/01/02(土) 10:14:00 ]: あけおめことよろん
54 名前：名無しさん＠そうだ選挙にいこう [2010/01/02(土) 14:21:35 ]: プロキシ経由で掲示板に１行目から順に掲示板へ連続投稿するマクロって組めますか？
55 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/02(土) 23:26:47 ]: ﾏﾙﾁ
56 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/03(日) 01:41:57 ]: 本年もよろしくおねがいします

【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2002、2003
マクロで編集したファイルを、社内LANで繋がったサーバに書き込むとき、
稀に書き込めないときがあります。（サーバの不具合で、手動でやっても書き込めないとき）

このエラーが出たら、予め決めておいたところ（C:\data\など）へ書き込むようにしたいのですが、
エラー番号とかで分岐するにはどう書けばいいでしょうか？
57 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/03(日) 22:58:35 ]: 「5」と入力すると「5」と表示されると思うのですが、
「5」と入力して「5枚」と自動で表示されるようにするには
どのようなトリックを使用すれば良いですか？
（5枚と入力すればおｋは無しでお願いします）
58 名前：名無しさん＠そうだ選挙にいこう [2010/01/04(月) 04:24:48 ]: ｌｏｏｋｕｐ関数を使ってるのですが、検索値を任意のセルに指定して、90Ｍ７と
打っても、Ａ５とでてしまいます。Ａ２とでてほしいのですが。
検索範囲は05Ｍより下を指定。範囲はＡ０１より下を範囲指定しています。

A01 05M7
A02 90M7
A03 03M7
A04 02M
A05 06M　　　
59 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/04(月) 05:38:51 ]: >>57
書式→セル→ユーザー定義→種類の枠内に　#"枚"　でおｋ
60 名前：名無しさん＠そうだ選挙にいこう [2010/01/04(月) 06:28:06 ]: >>58
式は？
61 名前：名無しさん＠そうだ選挙にいこう [2010/01/04(月) 06:36:05 ]: >60

lookup(E5,A1:A5,B1:B5)
Ｅ５が任意のセルで90Ｍ7と入力
A1:A5→Ａ01からＡ05
B1:B5→05Mから06Ｍを選択してます
62 名前：複乳 [2010/01/04(月) 10:10:08 ]: >>61
式はこうじゃないの
=LOOKUP(E5,B1:B5,A1:A5)
あと
ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/vlookup.htm#lookup
並び順は昇順じゃないとダメ
63 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/04(月) 18:11:47 ]: 仕事の実務で、エクセルのグラフってつかう？
自分の経験でいいんだが？
俺は使ったことない・・・ああいうのって経営企画とかそういう職種がつかうのかな？
64 名前：複乳 [2010/01/04(月) 18:31:05 ]: 私も無い
営業事務が会議資料を作るときに使ってるけど誰か一人でも見てるのかは不明
65 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/04(月) 18:34:01 ]: プレゼン用の資料作成時に使うけど？
66 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/04(月) 18:34:55 ]: そういえばパワーポイントだった　orz
67 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/04(月) 21:07:54 ]: グラフは良く使うよ。
経営幹部なんて、百万円単位でしか数字を見ないし、
前年比とかカテゴリ別とか、会議があるたびに色々と要求される。
68 名前：56 mailto:sage [2010/01/04(月) 23:25:15 ]: ググってみましたが、これでいいのかよく分りません。
意図的にエラーも起きないので、アドバイスお願いします。

On Error Resume Next
'Pはサーバ
Workbooks(BN).SaveAs Filename:="P:\data\" & BN

If Err.Number = 70 Then
Workbooks(BN).SaveAs Filename:="C:\data\" & BN
End If
69 名前：名無しさん＠そうだ選挙にいこう [2010/01/05(火) 12:38:53 ]: セルをリストボックス化させ、リストのデータを他のシートから抽出したい。

データの入力規則でセルをリストボックス化させた時は、リストのデータは固定値しか設定できません。
なので、やむをえずコントロールとしてリストボックス化させるのですが
リストボックス化させたいセルが何百もあるので、1個1個コントロールを追加していくのが面倒です。

何か良い方法はないでしょうか？
70 名前：名無しさん＠そうだ選挙にいこう [2010/01/05(火) 13:14:12 ]: すみません解決しました、ありがとうございました
71 名前：名無しさん＠そうだ選挙にいこう [2010/01/05(火) 15:59:15 ]: 山田と言う漢字が複数の列にあって
あるセルにはふり仮名があって（例えば、山田と言う漢字にふりがな、やまだ）
違うセルには空白なのですが（例えば、山田と言う漢字にふりがなは空白）
つまり同じ漢字でも並び替えをしたら順番にならない

これを避けるために選択した列の漢字の振り仮名をまとめて空白にしたい場合
どうすればいいのでしょうか？
72 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/05(火) 17:03:44 ]: >71
並べ替えのオプション画面を開くと「ふりがなを使う」「ふりがなを使わない」の選択ができます。
73 名前：複乳 [2010/01/05(火) 17:43:58 ]: >>71
一度メモ帳にコピー
そしてメモ帳からエクセルにコピーすればふりがなの情報はなくなる
74 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/05(火) 21:35:55 ]: WindowsXP
2002
Application.ScreenUpdating = False　と書いてマクロを実行したとき、ブックを閉じたような
グレー画面になるときがあります。これの原因と対策を教えてください。
75 名前：複乳 [2010/01/06(水) 09:43:12 ]: >>74
それは画面の描画をさせなくするための物
原因はApplication.ScreenUpdating=falseにしたため
対策はApplication.ScreenUpdating = true
76 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/06(水) 10:48:00 ]: そうじゃなくてdoevents系の開放処理の話じゃねーのそれは？
77 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/06(水) 11:25:36 ]: >>75
質問をよく読んで出直せ
あと、描画と再描画は違う
78 名前：複乳 [2010/01/06(水) 12:10:31 ]: >>76-77
そうか、ｽﾏﾝｶｯﾀ
79 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/06(水) 16:23:44 ]: 計算結果に％をつけたいんですがどうやったらできますか？
80 名前：複乳 [2010/01/06(水) 16:27:52 ]: >>79
右クリックの書式設定で　パーセンテージを選択
81 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/06(水) 16:29:42 ]: >>80
どもです
82 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/06(水) 17:13:11 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2002
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】条件にあった値の合計etx

以下のような表があります。

　　　　　　人A　　　　　　人B
　　　　月　期　年　　月　期　年
項目あ
項目い
項目う
項目え
項目お

ここで、項目い、う、えの月分だけの合計を出したいときに、
関数を使って旨く出せないでしょうか。

SUMIFを使っても、一番上の行の計算しかしてくれず困っております。
83 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/06(水) 17:33:38 ]: >>82
=SUM(SUMIF(A:A,{"い","う","え"},B:B))

A列に項目、B列に合計するデータの場合。
84 名前：複乳 [2010/01/06(水) 17:43:49 ]: >>82
単純に足し算とか
=SUMIF(A:A,"い",B:B)+SUMIF(A:A,"う",B:B)+SUMIF(A:A,"え",B:B)
85 名前：74 mailto:sage [2010/01/07(木) 00:57:51 ]: >>75
説明不足でしたね。
フォルダ内に入ってるファイルを開いて閉じてを繰り返してるときの現象ですが、
マクロを実行したときの画面のまま終わるときもあれば、
途中でブックを閉じたときのようなグレーの画面になるときがあります。
で、終了すると元の画面に復帰します。
86 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/07(木) 07:54:19 ]: >85

何故その症状の原因がApplication.ScreenUpdating = False
だと思ったの？
87 名前：名無しさん＠そうだ選挙にいこう [2010/01/07(木) 15:30:10 ]: 課題なんですがわからないので教えてください。
excell2003 winxp

y=asinx+bsin2x+csin3xのグラフ（折れ線でつないだ散布図）を書け。
ただしa,b,cは定数とし、それぞれどこかのセルを参照すること。
xは0.1感覚で０～２０までの値をとるようにすること。

というものなんですが一体全体どうしたらいいのかわかりません><
お願いします
88 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/07(木) 15:56:53 ]: 参考書買え
89 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/07(木) 16:31:12 ]: 友達に聞けよそんなもん
90 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/07(木) 16:34:54 ]: 俺ってやさしい！！
ttp://f12.aaa.livedoor.jp/~itatisa/phpup/cgi/src/up8255.png
91 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/07(木) 16:46:35 ]: 優しすぎワロタｗ
だけど、エクセルの使い方自体わかってないだろうから
多分それ見ても作れないだろ
92 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/07(木) 18:29:18 ]: 90は “散布図” になってないんだがｗ
93 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/07(木) 18:41:27 ]: これは散布図のプロパティをちょっといじって
数学のグラフらしく見えるようにしてあるだけ。
この程度のことができない>>92はExcel使い失格。
94 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/07(木) 19:42:34 ]: このスレのやつ、プライド高すぎ
95 名前：名無しさん＠そうだ選挙にいこう [2010/01/07(木) 20:49:21 ]: 済みませんが教えてください

Excelで、近似式を書いて、統計的な妥当性を調べた式なのですが、例えば

Y=59.305e^0.0022X

という式が得られたとして、
Ｙの値を任意に設定したときに、Xの値を算出する事って出来ます？
どのようにやればよいかを教えていただけるとありがたいのですが
96 名前：名無しさん＠そうだ選挙にいこう [2010/01/07(木) 22:35:53 ]: オートフィルターや関数で重複する値を表示させない方法ないですか？

例えば不特定型の文字列が無作為に並んでいる列があったとして
それぞれ重複するものがあっても一つだけ表示させる方法です。

列の中に値が何種類あるかピックアップするとき使います。
97 名前：74 mailto:sage [2010/01/08(金) 00:28:28 ]: >>86
Trueだと発生しないから。
って、書かなくても分るでしょ？
98 名前：名無しさん＠そうだ選挙にいこう [2010/01/08(金) 02:02:29 ]: 【1 OSの種類　　　　 .】 Mac OS X Tiger
【2 Excelのバージョン　】 Excel2004 for Mac
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 Pivot table ピボットテーブル　勝手にジャンプ

教えてください。4つあります。
1.　ピボットテーブルで生成される表の、デフォルトのフォント、文字サイズを
　　変更したいのですが、設定方法がわかりません。教えてください。

2.　知らずにセルとセルの境目付近をダブルクリックすると、
　　表の一番下や一番右に勝手にジャンプしてしまいます。
　　これを止める(余計なことをしないようにする)には、どの設定をすれば良いでしょうか?

3. セルに計算式を書くときに、セルをクリックしながら教えています。
　　例えば、セル1をクリック「=」セル2をクリック「*」セル3をクリック「リターン」という感じです。ここで、セル1をクリックすると、
　　セルのサイズの2倍くらいの白い枠が表示されます。たぶん文字を書くために出る枠だと思います。
　　が、セル2がセル1のすぐ隣の場合など、枠が邪魔して隣のセルをクリックできません。
　　この枠は出て欲しくない、あるいはもっと小さい枠で良いのですが、そんな設定はどこにあるでしょうか。

4. 表の上から下まで選択する場合に、上の端のセルをクリックして、
　　そのまま続けて下の方にドラッグして範囲選択をするとき、
　　ウインドウの下端まで行くと、自動的に表がスクロールしてくれて便利です。
　　が、表の下端を過ぎると、突然スクロールのスピードが上がってしまい、
　　「おーーー行き過ぎ」となり、行ったり来たりで、なかなか思うところに止められません。
　　このすばらしい機能を止める設定はできないでしょうか?
　　シフトキーを押しながら範囲指定するのは知っていますが、それではなくて、
　　何かの設定でこの加速をoffにできないかと思っているのです。宜しくお願いします
99 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 03:17:35 ]: 【1 OSの種類　　　　 .】 WindowsVista
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】不可
【5 検索キーワード　　】エクセル　ウェイト

非常に稚拙な質問ですみません。このような場合はどの関数を使うのが適切でしょうか。ご教授願います

「個人ごとに中間と期末の合計点を求めます。
このとき期末テストを重視して得点に1.2倍のウェイトをかけ、中間テストに0.8倍のウェイトをかけ、
両テストを合計した得点の最高点が100点になるように換算して下さい。」
100 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 08:10:59 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】少し
【4 VBAでの回答の可否】可
セルにハイパーリンクされたwavファイルをクリックして再生したところ、停止のさせ方が分かりません。
mp3ならWMPが起動するのでそれで停止すればいいのですが、wavの場合WMPで再生してるのではないようですね？
結局、最後まで流して鳴り終るのを待つしかないので困っています。
もしかして、マクロでサウンド停止のボタンでも作らないと駄目ですか？
101 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 08:15:35 ]: >>99
”ウェイト”って何？
また、出題者や回答者の違いによってもその”ウェイト”というのが変わってくる
のでは？
102 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 08:33:15 ]: >>95
それ、数学の問題
103 名前：複乳 [2010/01/08(金) 09:03:36 ]: >>98
2.4は無理
後は知らん
君はエクセルを使わないほうが良いかもしれないな
>>99
過重平均みたいなもんかな。端数処理は自分でやっておくれ
=(A1*1.2)/($A1*1.2+$B1*0.8)*100
=(B1*0.8)/($A1*1.2+$B1*0.8)*100
104 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 14:33:48 ]: >>100
そんなもん個人のPCのwavをどう扱うかの設定に依存するから答えようがない
105 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 14:35:26 ]: >>96
オートフィルタには重複無視するオプションあるし、2007以降は重複削除の機能がデフォで付いてる
あとはピボットでも判別できんじゃね？
106 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 16:00:17 ]: >>104
え？そうなの？そういう設定どこでするの？
wavのファイルの関係付けはWMPになってるけど、WMPが起動しないところを見ると、
Excelでは別の扱いなんだろうと思ったんだけど、ファイルの関連付け以外の設定ってあるの？
107 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 16:51:41 ]: >>106
ハイパーリンクはIEの設定
108 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 17:05:17 ]: >>107
IEの設定かぁ。分かりました。調べてみます。
109 名前：100 mailto:sage [2010/01/08(金) 18:41:35 ]: >>107
どこにハイパーリンク関連の設定があるのか分かりません。
もし仮に設定できるとしても、wavを止められるように設定できるのでしょうか？
mp3のようにWMPで再生できるようになれば可能ですが。

それよりもVBAのPlaySound()あたりを使うのが適当なのでは？
私にはコードの書き方が分からないのですが・・・
110 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 20:52:08 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 excel count 項目名　数値

シート１のある列に打ちこんだ文字が
シート２の列に自動的に出力され
その横にその文字の総数がカウントされるような方法は
ありますでしょうか？是非ともご教示ください。

シート１　　　　　　　　　　　　　　　　　　　シート２
　　　A　　　　　　　　　　　　　　　　　　　　　　　　A　　　　　　　　　B　　　　　　　　　
１アンパンマン　　　　　　　　　　　　　　１アンパンマン　　　　　　３
２ドラえもん　　　　　　　　　　　　　　　　２ドラえもん　　　　　　　２
３ドラえもん　　　　　　　　　　　　　　　　３ポケットモンスター　　１
４アンパンマン　　　　　　　　　　　　　　
５ポケットモンスター
６アンパンマン
111 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/08(金) 22:06:59 ]: >>110
>シート１のある列に打ちこんだ文字が
>シート２の列に自動的に出力され
この例がよくわからない
どういう基準で「３ポケットモンスター」が出てくるんだ?

文字数は=len(a1)でok
112 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 22:21:42 ]: >>110
ピボットテーブルを使いなはれ。
113 名前：名無しさん＠そうだ選挙にいこう [2010/01/08(金) 23:00:27 ]: 【1 OSの種類　　　　 .】 Windows vista
【2 Excelのバージョン　】 Excel 2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】エクセル　グラフ　値　読む

たとえば
X Y
1 2.1
2 4
3.1 6
からグラフ（散布図、平滑線）を書いたとき
Ｘ＝2.5のときのＹの値は出せますか？
114 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 23:28:01 ]: >>113
=INDEX(LINEST(既知の y,既知の x),1)*2.5+INDEX(LINEST(既知の y,既知の x),2)
=TREND(既知の y,既知の x,新しい x,true)

既知の　yはYのセル範囲、既知のｘはXのセル範囲を指定。
新しいxは2.5。
どちらの式でもY=2.441666667と算出される。
115 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/08(金) 23:40:18 ]: >>114
ありがとうございました。
できました。
116 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/09(土) 02:16:26 ]: 【1 OSの種類　　　　 .】 Windows XP
【2 Excelのバージョン　】 Excel 2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】excel 列削除　参照範囲

説明下手ですみません。

社員の名前・部署・職種・性別などの情報を示した一覧表を作り、
A　　　　　　B　　　　　　C　　　　　D
鈴木花子　派遣　　　秘書課　　1人
佐藤太郎　総合職　　営業部　　１人

そこから特定の複数条件に引っかかる者が何人いるかをSUMPRODUCTでカウントしています。
一覧表の3000行までを参照してカウントしているのですが、
(※数字が入っているのが約800行まで、再計算に要する時間を考えると3000行が限界)
社員が退職したとき一覧表から行を削除すると、参照範囲も縮んでしまうので何とかしたいと思ってます。
Deleteするだけだと、いつか3000行を超えてしまいそうです。

今は
=SUMPRODUCT((一覧表!$B$1:$B$3000="本社○○事業部○○第一課")*(一覧表!$C&1;$C$3000="総合職")*(一覧表!$D$1:$D$3000="男"),一覧表!$D$1:$D$
"男性"),一覧表!$D$1:$D$3000）
みたいな式を組んでます
本当はこれの３倍くらいの長さがあって、それが5000個くらいのセルに各々入ってます。
一覧表を削除するたびに3000の部分が2999、2998・・・と減っていってしまいます。
何とかうまい方法はないでしょうぁ
117 名前：116 mailto:sage [2010/01/09(土) 02:18:32 ]: 式間違えました

=SUMPRODUCT((一覧表!$B$1:$B$3000="派遣")*(一覧表!$C&1;$C$3000="秘書課")*,一覧表!$D$1:$D$,一覧表!$D$1:$D$3000）
118 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/09(土) 02:37:35 ]: >>116
単純にdsum関数じゃ駄目なの？使い方はググってみてね。
119 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/09(土) 09:45:09 ]: >>116
例えばこういう式を
=SUMPRODUCT((A1:A5="あ")*(C1:C5))
こういう封にindirectを使うと
=SUMPRODUCT((INDIRECT("A1:A5")="あ")*(INDIRECT("C1:C5")))
削除・挿入の影響を受けなくなる。その代わり式の見た目が長くなって鬱陶しいかもしれないけど
120 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/09(土) 15:55:08 ]: >>118
>>119
ありがとうございます。
会社で試してみます!
121 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/09(土) 19:38:43 ]: VBA使用。

Sheet1に入力された商品番号をSheet2の商品番号から
検索して商品番号の右隣に入力されている商品名を
Sheet3へと転機したいのですが
行き詰っています。

Sheet2の商品番号を検索して値を取得まではできたのですが
その隣のセルの値（商品名）を取得できません。

よろしくお願いします。
122 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/09(土) 21:45:55 ]: >>121
そんな質問の仕方じゃ回答不可能
こっちにソース添えてやりなおし

Excel VBA 質問スレ Part14
pc12.2ch.net/test/read.cgi/tech/1262748898/l20
123 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/09(土) 21:58:00 ]: >>121
sheet3でvlookup
allabout.co.jp/gm/gc/3143/
一番目の引数はｓｈｅｅｔ１の商品番号。範囲はsheet2。列２でFALSE
無理かねぇ
124 名前：Excel 2010 [2010/01/09(土) 22:02:13 ]: Excel 2007でOLAP（SQL Serverのキューブ）接続したピボットテーブルに計算式を挿入したり、「計算の種類」（＝"基準値に対する比率の差"等）を使用したいのですが、選択しても機能せず困っています。どのようにすれば良いのかアドバイスをいただけませんでしょうか…？
125 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/09(土) 22:46:17 ]: >>121
VBA使用とあるが、まず自分で出来た範囲だけでもコードだせよ

Sheet2の商品番号の値の取得はどうやったさ
セルアドレスが取得出来てるならOffsetなり、列番号を決めうちで指定すればいいだろ
126 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 00:23:52 ]: excelでデータ管理っぽいことがしたくて関数やVBAを本でも買って一度ちゃんと勉強したいと思ってます
それで今使っているのかexcel2002でして、
4月に最新版をもらえることになっているのですが最新版のテキストでもそこまで支障なく勉強できるでしょうか？
127 名前：名無しさん＠そうだ選挙にいこう [2010/01/10(日) 00:54:17 ]: 【1 OSの種類　　　　 .】 Windows Vista
【2 Excelのバージョン　】 Excel 2007
【3 VBAが使えるか　　 .】ほぼいいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】excel 乱数

初めて質問します。

0から9までの整数をランダムに発生させたいのですが、
中でも６～８の数が多く発生するように出現率を指定することはできるのでしょうか。
現在、本を読みながら出来たのが↓です。

Dim i As Integer
Randomize
For i = 4 To 28
Cells(i, 3).Value = Int((9 - 0 + 1) * Rnd + 0)

Next i

このコードに足す感じで作成出来ると一番ありがたいのですが、どなたかご存知ありませんか。

よろしくお願いします。
128 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 01:19:25 ]: 質問です

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

Excel 2007で、他のアプリケーションから貼り付けた文字を、
常にテキストにしたいのですが、Excelのオプションでできますか？
Word2007の方のやり方は検索でヒットしたのですが、Excelのほうで知りたいのです
よろしくお願いします
129 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 01:20:50 ]: ※補足
常にテキストにしたい、というのは、
書式を含まないプレーンテキストだけを張り付けたいということです
わかりにくくてすみませんm(_ _)m
130 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 01:36:15 ]: 形式を選択して貼り付け→値　で、どう？
131 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 01:52:04 ]: >>130
回答ありがとうございますm(_ _)m

教えていただいた方法がまさにそのとおりだったのですが、
貼り付けまで、ワンクッション置いてしまうので、
できたら、Ctrl+Vで貼り付けたとき、一発でテキストだけ貼り付けられるような設定がないかなぁと
思ったのですが、どうやらExcelのほうにはないようですね・・・

ちょうど、Vectorで「テキペ」っていう、書式情報を解除して貼り付けを行ってくれる
フリーソフトを見つけたので、これを使っていこうと思います。

>>130様、ありがとうございました！
132 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 03:06:02 ]: >>127
Rnd関数だけで確率を変えることはできない。その結果に対して、さらに別の式を合わせて
計算をやり直すことになる。

それから、人によって「多い」のイメージは違う。もっと具体的に比率や確率を数字で書きなさい。
たとえば100回のうち98回は6が出てほしいの？
133 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 03:07:11 ]: >>126
できる。メニューの構成やデザインが違うだけで基本は同じ。
134 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/10(日) 03:35:59 ]: >>127
0-12の整数にして１０－１２の場合は６－８ということにすれば６－８は二倍の確立にできるかもしれない
じゃなきゃ０１２３４５６７８９の内０１２に０．５刻て゛０１２３４５を割り当てて、３４５６７８に６７８を２刻で割り当てるとか
135 名前：名無しさん＠そうだ選挙にいこう [2010/01/10(日) 05:06:02 ]: >>132
ご指摘ありがとうございます。
基本的に以下の割合で出現させるようにできればいいと考えています。
0:3% 1:3%　2:5%　3:8%　4:8%　5:5%
6:21%　7:21%　8:21%　9:5%
です。
こういった割合の指定が不可能かどうかでも結構ですので教えていただけないでしょうか。

>>134
レスありがとうございます。
書いていただいている内容を>127の続きにつける事はできますでしょうか。

何度もすみませんが、よろしくお願いします。
136 名前：名無しさん＠そうだ選挙にいこう [2010/01/10(日) 06:10:00 ]: >62
どこが昇順にしとかなきゃいけなのかわからないのですが。
検索値って１つだけですよね？
検索値じゃなくてその検査範囲を昇順？ってことですかね？
137 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 09:01:31 ]: >>135
合計が100%になっていないけどOK?
合計100%になるようにすると、0.6-2.6-5.1-7.7-9.7-11.1-12.6-14.6-16.6-19.3 %になる。

0：0～0+0.6%=0～0.006081
1：0+0.6%～0+0.6%+2.6%=0.006081～0.032435
2：0+0.6%+2.6%～0+0.6%+2.6%+5.1%=0.032435～0.083114
・・・
のようにif関数で各数字の範囲を決めて、乱数を割り当てていけばできるはず。
138 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 09:39:49 ]: >>135
コロンが完全に小数点区切りに見えた。

Dim i As Integer
Randomize

Dim j As Integer
Dim RndValue As Double
Dim CumlativeProbability As Variant
CumlativeProbability = Array(0.03, 0.06, 0.11, 0.19, 0.27, 0.32, 0.53, 0.74, 0.95, 1#)

For i = 4 To 28
　　RndValue = Rnd()

　　For j = 0 To 9
　　　　If RndValue < CumlativeProbability(j) Then
　　　　　　Cells(i, 3).Value = j
　　　　　　Exit For
　　　　End If
　　Next
Next i
139 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/10(日) 10:39:30 ]: >>136soudayo
140 名前：名無しさん＠そうだ選挙にいこう [2010/01/10(日) 10:42:37 ]: >>137
>>138
ありがとうございます。
あと、見えづらくてすいません。

>138さんのコードで望む形になりました。
ありがとうございました。
あと、各数字の割合を変更する場合は、

CumlativeProbability = Array(0.03, 0.06, 0.11, 0.19, 0.27, 0.32, 0.53, 0.74, 0.95, 1#)

の数字をいじればよいのでしょうか。
141 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 10:44:21 ]: >>135
出現確率を一発で簡単に指定するのは不可能。
複雑な手順によって、そういう結果を出すプログラムを作ることは可能。
142 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 11:17:21 ]: >>140
その数字は

0以下の出る確率 0.03
1以下の出る確率 0.03+0.03=0.06
2以下の出る確率 0.03+0.03+0.05=0.11
…以下略

というふうになっている
143 名前：名無しさん＠そうだ選挙にいこう [2010/01/10(日) 11:18:45 ]: >>142さん
がっちり理解できました！！
本当にありがとうございました！！！
144 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 13:54:03 ]: 【1 OSの種類　　　　 .】 Windows vista
【2 Excelのバージョン　】 Excel 2000
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】エクセル　抽出　文字列

セル内に「アルバム名／アーティスト」という情報が入っているのですが、これを
「アルバム名」「アーティスト」に分けたいのです。
「／」の位置を取得して、それ以前とそれ以降に分ければいいと思うのですが、これは
どのような関数でできるでしょうか？
145 名前：名無しさん＠そうだ選挙にいこう [2010/01/10(日) 13:58:52 ]: instr じゃ駄目？
146 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/10(日) 13:59:57 ]: >>144
=LEFT(A1,FIND("／",A1)-1)
=RIGHT(A1,LEN(A1)-FIND("／",A1))
147 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 14:50:37 ]: ttp://uploader.rgr.jp/src/up1636.jpg
この画像のような状態で、書く行に1行ずつ空白行を挿入して
ttp://uploader.rgr.jp/src/up1637.jpg
このようにしたいのですが、
自動化できますか？
148 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 15:16:52 ]: できます
149 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 15:24:42 ]: >147

「あいうえ・・・」の状態によっては色々あるが･･

･行数が少ないなら、列2を選んで挿入後、[↓][↓][F4][↓][↓][F4]･･･
･連番性があるならｵｰﾄﾌｨﾙ
･どっかにｿｰｽとなる列があるならOFFSET/INT(ROW()/2)の組合せ

情報が少ないのでどの方法がﾍﾞｽﾄかは知らん。
端的に回答すると>148が正しいｗ
150 名前：147 mailto:sage [2010/01/10(日) 16:41:59 ]: >>149
ありがとうございます。
> ･行数が少ないなら、列2を選んで挿入後、[↓][↓][F4][↓][↓][F4]･･･
→1000行あります。
> ･連番性があるならｵｰﾄﾌｨﾙ
→ありません。
> ･どっかにｿｰｽとなる列があるならOFFSET/INT(ROW()/2)の組合せ
→ソースとなる列というのは、どういったことでしょうか？

単に空白行を一斉に挿入したいだけなのですが
かなり難解なことになりますか？
151 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/10(日) 16:56:12 ]: 自動化というのが入力してenter押すたびに空白一つあけるというならワカラン
入力されている列(ソース)がA列なら=IF(MOD(ROW(),2)=1,INDIRECT("r"&ROW()/2+0.5&"c1",0),"")
で下にオートフィル
152 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 17:27:30 ]: >>147
単純に空白行を追加なら
VBAだと下記のコードを使えば出来る

For i = 7 To 2 Step -1
Rows(i).Insert Shift:=xlDown
Next i
153 名前：144 mailto:sage [2010/01/10(日) 17:40:40 ]: ＞＞146
サンクス！
154 名前：名無しさん＠そうだ選挙にいこう [2010/01/10(日) 18:25:22 ]: エクセル2007。wniXP。文字抽出について。
質問です。よろしくお願いします。

A B C D E
1 **A A *2D* 2D
2 *B* B 3E** 3E
3 *E* E *1A* 1A
・
・　　　
B1=MID(A1,MIN(FIND({"A","B","C","D","E"},A1&"ABCDE")),1)

現在このような形(A,B列)で　Ａの文字列から　Ｂにアルファベット(ABCDE)をぬきだしているのですが、
　
　1A,1B,1C,1D,1E, 2A,2B,2C,2D,2E, 3A,3B,3C,3D,3E,　という文字を使用して（DE列のように）抜き出しをしたいのですが
うまくいきません。E1から順にD、E、Aとはでるのですが肝心な数字が抜き出せません。
どのようにしたらうまく抜き出すことができますか？
すみませんが教えてください。お願いします。
155 名前：名無しさん＠そうだ選挙にいこう [2010/01/10(日) 18:31:20 ]: >>154 です。
ずれまくりですみません。

A列が上から順に **A,,*B*,,*E*
B列が上から順に A,,B,,E ,,,,,,,,,,,C列は空白です。
D列が上から順に *2D*,,3E**,,*1A*
E列が上から順に 2D,,3E,,1A

です。よろしくお願いします。
　　　
156 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 18:39:29 ]: >>136
>>58の値全体を選択→データ→並べ替え→最優先されるキー”列B”選択
→”昇順”のラジオボタン選択→OKボタンクリック
157 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 19:38:18 ]: >>154-155
B1の式をちょちょっとアレンジすればおＫ。↓

=MID(D1,MIN(FIND({"A","B","C","D","E"},D1&"ABCDE"))-1,2)
158 名前：147 mailto:sage [2010/01/10(日) 19:47:56 ]: >>151
ありがとうございます。
=IF(MOD(ROW(),2)=1,INDIRECT("r"&ROW()/2+0.5&"c1",0),"")
の使い方が分かりません。
どこに入力すればよいのでしょうか？

>>152
ありがとうございます。
Pythonなら使ったことがあるのですが、VBAは無いので、
どこから何を起動してどう実行するのかすら分かりません。
どこにそのコマンドを入力すればよろしいでしょうか？
159 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/10(日) 21:01:14 ]: >>158
B1に入れて下にオートフィル
160 名前：158 mailto:sage [2010/01/10(日) 21:06:34 ]: >>159
ありがとうございます！
その方法でできました。
助かりました。
161 名前：名無しさん＠そうだ選挙にいこう [2010/01/10(日) 21:32:48 ]: 【1 OSの種類　　　　 .】 Windows XP
【2 Excelのバージョン　】 Excel 2003
【3 VBAが使えるか　　 .】練習中
【4 VBAでの回答の可否】可
【5 検索キーワード　　】値貼り付け

マクロを使って、セルM11の値をセルA10に貼り付けるようにしたいです。
（セルM11は他シートの入力状況によって変わる）
セルA10は、A10～E10を結合したものになってます。

普通にマクロの記録で作ろうと試みましたが
コピー先のセルが結合されたものなので、うまくいきません。
助言お願いします。
162 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/10(日) 21:37:50 ]: >>161
Range("A10") = Range("M11")
結合されてると値の貼り付けできないのか。知らなかった
一度結合解除して値の貼り付け、再結合というのはどうだろう
163 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 21:39:03 ]: >>133
ありがとうございます
明日買ってきます
164 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 21:55:29 ]: >161
Range("A10").Value = Range("M11").Value
で試してみましたか？　転記元、転記先のセル結合に左右されないはずですが？
セル位置の指定は結合されたセルをクリックしたときに名前ボックスに表示されたものを指定してください。
165 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 22:02:57 ]: >>161
Sub hoge()

Range("A10").Value = Range("M11")

End Sub
166 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 23:27:29 ]: 【1 OSの種類　　　　 .】 Windows Vista
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】集計

シート名が"01"から"12"までのシートと"集計"という名のシートがあるとします。

"01"から"12"のA列に商品名を入力し、その隣（B列）に金額を入力しています。
入力数（行）は最大でも10個（行）です。ただし、入力数は各シートバラバラです。

"集計"シートに"01"から"12"に入力したデータをきれいに並べたいのです。コピペ
を使用するのではなく、自動的に並べられている形にしたいのですが、教えて下さい。

例えば、

商品名Ａ１　\10
商品名Ａ２　\20
商品名Ａ３　\30
商品名Ａ４　\40　←　ここまでは"01"シートに入力されているデータ
商品名Ｂ１　\15
商品名Ｂ２　\25
商品名Ｂ３　\35　←　ここまでは"02"シートに入力されているデータ
商品名Ｃ１　\20　←　"03"シートに入力されているデータ
商品名Ｄ１　\30
商品名Ｄ２　\50　←　ここまでは"04"シートに入力されているデータ
・・・

という集計表を作成したいのです。（無駄な余計な行は省かれている状態です）

よろしくお願い致します。
167 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/10(日) 23:39:01 ]: >>166
ワークシート関数だけだと「不要な行を詰める」って作業は非常にめんどくさい。
素直にVBA使え。
168 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 00:24:25 ]: >>166
12シート程度なら手作業で並べたらいい。
今後はそんなシート作らないことだな。
最初から1シートにするのが常識。
169 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/11(月) 01:48:13 ]: >>166
Sub ポケットビスケッツは名曲揃い()
Dim unko As Variant
unko = Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12")
nyu = 1

For i = 0 To 11
fuku = Sheets(unko(i)).Range("A1000").End(xlUp).Row
Sheets(unko(i)).Select
Range(Cells(1, 1), Cells(fuku, 2)).Copy
Sheets("集計").Select
Cells(nyu, 1).Select
ActiveSheet.Paste
nyu = nyu + Sheets(unko(i)).Range("A1000").End(xlUp).Row
Next
End Sub
>>168
(ｷﾘｯ
170 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 02:07:31 ]: >>169
こんなマクロ組んで「これでいつでも12シートを1シートにまとめられるぜ。」
などとやっても本当の解決ではないんだがな。
データを月別に12シートに分けるようなバカ癖を治してやらないと。
171 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/11(月) 02:24:33 ]: 一体この人は誰と戦っているんだ
172 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 02:33:47 ]: >>171
お前の回答はいつもこの調子だからな。
無知な質問者の希望通りのバカ正直な回答ばかり。
つまらん。
173 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 02:42:57 ]: 俺は複乳と戦うぜ
てめえのコードは無駄が多いんだよっ

Sub Macro111()
　　Sheets("集計").Select
　　Cells.Clear
　　[A1].Select

　　For i = 1 To 12
　　　　Sheets(Format(i, "00")).Select
　　　　Range([A1], [A1].End(xlDown).Offset(0, 1)).Copy
　　　　Sheets("集計").Select
　　　　ActiveSheet.Paste
　　　　Selection.End(xlDown).Offset(1, 0).Select
　　Next
End Sub
174 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 02:45:46 ]: >>173
あほか。
私は複乳のコードにケチをつけているのではない。
「12シートを1シートにまとめるマクロ」を使って12シートを放置する発想が悪いのだ。
お前も複乳と同レベルだってこと。
175 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 02:52:07 ]: 無駄というか間違ってる。
176 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/11(月) 03:00:48 ]: >>172
正規化なんてデータさわってたら誰でも覚えるだろうし
覚えない奴は見込みも内からVBAの力技でやるほうが早いと思うがねぇ
勉強させたいならどこかサイトのリンクでもはってあげれば?
向上心のある人なら見るんじゃないかなぁ
177 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 03:07:50 ]: >>176
今回のケースは正規化と関係ないよ。
お前が力技しか知らないんだろ？
178 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 03:15:59 ]: >>176
VBAで力技で解決するんだったらそもそも最初っからExcelなんか使わなくていい。
179 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 03:40:49 ]: 共有がなければExcelで十分だよ
180 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 09:35:36 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】絶対参照、複合参照、ショートカット

複合参照（$A$1)のショートカットを調べると、F4キーを押すと書いてあったのですが、
甘く変わってくれません。

ショートカットの設定を何かしなければいけないのでしょうか。
181 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 10:03:11 ]: >>180
数式バーの中で、変更した箇所をクリックしてＦ４押してみて。
182 名前：名無しさん＠そうだ選挙にいこう [2010/01/11(月) 10:05:19 ]: >>180
＞甘く変わってくれません。
？

例えば=A1と入力してF4押してみ？
183 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 10:31:07 ]: >>181-182
ありがとうございます。
出来ました。

既に式が入力されていてそれを修正していくためには、一つずつ変えていくしかないんですね。
184 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 10:39:59 ]: >>183
置換したらどうよ？
185 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 10:43:36 ]: >>183
ってか、絶対参照ってのは式をコピーしても参照位置が変わらないようにする為なんだから
一つ変更した後に式をコピーしたらどうよ？
186 名前：166 mailto:sage [2010/01/11(月) 12:56:56 ]: >>167-173
回答ありがとう御座いました。
参考にさせていただきます。

ちなみにデータを月別に12シートに分けているのではなく、実際は日別に31のシートがあり
そのシートの中の一部の項目のデータを集計したかったのです。

また、煮詰まったらよろしくお願いします。
187 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 13:39:18 ]: >>186
いっそのこと1日1シートにしろ。
ポケビのマクロがあるから大丈夫だ。
188 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 14:08:47 ]: ＞unko = Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12")

ホントに雲子だなｗ
189 名前：名無しさん＠そうだ選挙にいこう [2010/01/11(月) 14:18:50 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】エクセル　無作為　抽出

A1からA20まで5,8,11,258,26,28…など規則性のない数字が並んでいて、
そこから無作為に6つ数字を選びたい(選んだ数字をB1からB6に表示させたい)
んですが、どのような式を作ればよいでしょうか？重複しないでF9などのキーを
押すたびにちがう6つの数字が選べるようにしたいのですが。よろしくおねがいします。
190 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 14:44:12 ]: 隣の列にRNAD()ワークシート関数で[F9]して並べ替えが一番単純かなあ
それでINDEXかなんかで上から６個表示させるとか
191 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 14:59:34 ]: すみません、1つ教えて下さい。
Excel2007ではExcel2003の様な、オートフィルターをかけて、
2003ではやれた、その列の文字列を含むの様にしてフィルタリングが可能なのでしょうか...？
192 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/11(月) 14:59:42 ]: >>190
そうですね。ありがとうございます。

個人的に使うものなので見てくれなどどうでもいいので、
教えていただいた方法が簡単にできますね。
頭が回りませんでした。どうもありがとうございます。
193 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 01:26:27 ]: Excelで日付でオートフィルを掛ける場合、ある時刻のセルだけフィルターするにはどういう設定が必要でしょうか？
何日（時刻付き）のセルがあって、そこから同じ時刻だけフィルターする仕組みです。
194 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 03:57:46 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】(0,0) 原点　共通　excel 使い方

x軸、y軸ともに0から始まる場合、見栄えを良くするために
原点座標の0を一つにしたいのですが、やり方を教えてもらえませんか？
よろしくお願いいたします。
195 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 05:23:11 ]: >>193
日付入力（=NOW()での時刻付き日付と同じ表示で）後、まずセルの書式設定
→ユーザー設定→d"日" h:mmとする。
で、ふつうにオートフィル”連続データ”でかければ時刻は同じで日付だけ
一日ずつ増えていきます。

>>194
オートシェイプの線無し四角を使ってどちらかのゼロを隠してしまえばいいかと。
196 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 08:28:24 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 OLEObject ComboBox 代入参照変換

ワークシート上に配置されたComboBox1～ComboBox9を
Sheet1.OLEObjects("ComboBox" & i)
を使って取得し､ComboBox型の変数に参照代入する方法を教えてください｡

　　Dim cbo as OLEObject
　　Set cbo = Sheet1.OLEObjects("ComboBox1")

であれば問題なく取得できますが

　　Dim cbo as ComboBox
　　Set cbo = Sheet1.OLEObjects("ComboBox1")

とすると､型が違うとエラーが出ます｡しかし

　　Dim cbo as ComboBox
　　Set cbo = Sheet1.ComboBox1

では正常に取得できる為､ComboBox1の型がas ComboBoxであることは間違い有りません｡
実際の宣言ではWithEventsで宣言する為､as OLEObjectやas Variantで誤魔化すことは出来ません｡

宜しくお願いします｡
197 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 09:54:02 ]: >>196
普通にSheet1.OLEObjects("ComboBox1").Objectでいいんじゃね？
198 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 09:55:12 ]: でもシート上にMSFormsのコントロール使うのやめておいたほうがいいぜ
2007以降はほとんど見捨てられてるから
199 名前： ◆tHwkIlYXTE [2010/01/12(火) 11:03:28 ]: 【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】わかりません
【4 VBAでの回答の可否】わかりません
【5 検索キーワード　　】？？
初めまして。3・4・5は意味からしてわからない初心者です。
説明も読みましたが、さっぱり理解できません・・・
エクセルでできるか・できないかの質問です。（もしできなければ出来るソフトを教えていただけると助かります。）
24Hの表を作成し、稼動した時間に線を引っ張るだけで、合計欄に一日の稼動合計時間が出るような表を作成したいのですが、エクセルでできますか？
説明がヘタだったらスミマセン・・・
200 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 11:06:03 ]: >199

出来る。
201 名前： ◆tHwkIlYXTE [2010/01/12(火) 11:11:30 ]: >>200
回答ありがとうございます。
できるんですね。ちなみにどうやったらできますか？
3・4・5の意味もわからない私に作成できますかね？
202 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 11:17:20 ]: >>201
3,4の意味が分からないなら作れないと思うよ。
VBA使わないと無理。
203 名前： ◆tHwkIlYXTE [2010/01/12(火) 11:25:00 ]: >>202
そうなんですね・・・・
エクセルの本とかに載ってますか？購入しようと思ったのですが、どれを購入したらいいかサッパリわかりません。
お勧めはありますか？
204 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 11:41:41 ]: >203

>2･B参照
君の知識ﾚﾍﾞﾙならどれを買っても一緒だろ。
205 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 14:19:27 ]: まずどうやって線を引くつもりなのか
206 名前：複乳 [2010/01/12(火) 16:19:21 ]: >>199
単位時間は何分かね
207 名前：名無しさん＠そうだ選挙にいこう [2010/01/12(火) 16:30:26 ]: あと1か月。就職までにWord, Excelのスキルアップに必要な時間です。
スレ読みも勉強になると思って、Excelの総合スレはここにみつけたけど、
なぜ一番ポピュラーでありそうなWord総合スレがないの？
208 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 17:06:14 ]: 需要がないからに決まってんだろ
209 名前：207 [2010/01/12(火) 17:07:32 ]: Why not?
習得したい事柄はたくさんあるんだけど
210 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 17:17:26 ]: じゃあその習得したいことをぐぐればいいだろう。
ゆとり全開だな
211 名前：複乳 [2010/01/12(火) 18:07:38 ]: Wordとかインデント、テキストボックス辺り覚えておけば文書はできるからな
後は雛形を使いまわせばなんとでもなる
見た目を重視するならパワーポイントじゃないか
と思って検索したらやっぱりあった
212 名前：名無しさん＠そうだ選挙にいこう [2010/01/12(火) 18:37:24 ]: >>211
どこですか？
213 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/12(火) 19:32:18 ]: スレッド一覧開いてpowで検索したら見つかる
214 名前：名無しさん＠そうだ選挙にいこう [2010/01/12(火) 19:43:09 ]: >>213
Powerpointしか見つかりませんよ？
215 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/12(火) 20:59:16 ]: パワーポイントスレな
ワードは無いよ。別にいらんでしょ
216 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/12(火) 21:00:04 ]: ★Word/Excel (MS-OFFICE) 初心者スレッド Part37★
ttp://pc11.2ch.net/test/read.cgi/pcqa/1248383946/
そういやこんなスレがあったな
217 名前：207 [2010/01/12(火) 21:02:08 ]: 複乳さんはやさしいですね
218 名前： ◆tHwkIlYXTE [2010/01/12(火) 21:11:48 ]: >>206
30分単位です。
何種類か基本・初めて系の本見ましたが、載ってなかったんです（泣）
219 名前：名無しさん＠そうだ選挙にいこう [2010/01/12(火) 21:18:08 ]: >>214
あんなお節介で、頼んでもいないことを平気で実行する変態ソフトは、
だれも使わないから、スレが無いんじゃない?
ちなみにオレは一度も使ったことがない。
220 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/12(火) 21:29:35 ]: >>218
そんな気色悪いこと普通しないからなぁ
まぁB1に０、C1に０．５、D1に１と右に０．５刻
A2に=COUNTIF(B2:AX2,"-")/2
後は二列目に－を入力するとか、条件付き書式でパターン設定とか
>>219
あのお節介機能全部を止めてくれたら少しは使うんだけどねぇ
221 名前：214 [2010/01/12(火) 21:41:44 ]: >>219-220
おせっかい機能は切ればいいじゃん
そのやりかただけは知ってるよ

ツール→オートコレクトのオプションで、
オートコレクトのタブにあるチェックボックスを全部はずして
入力オートフォーマットのタブにあるチェックボックスも全部はずす

これだけですごいスッキリさ
222 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 21:43:19 ]: With Worksheets(DATA)
　　.Range("A3") = ""
　　.Range("A3").Interior.ColorIndex = 36
　　.Range("A3").NumberFormatLocal = "0_ "
End With

　↑これを更に短縮して、↓にしたらダメですた。これ以上はムリなの？

With Worksheets(DATA).Range("A3")
　　. = ""
　　.Interior.ColorIndex = 36
　　.NumberFormatLocal = "0_ "
End With
223 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/12(火) 22:05:25 ]: >>221
すごいな、ありがとう
でもword手元に無いし仕事場でも使ってないな・・
>>222
With Worksheets(DATA).Range("A3")
.Value = ""
ピリオドごと略した場合はvalue。ピリオドだけ残すということは出来ない
理由は知らん
224 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/12(火) 22:15:52 ]: 横から失礼します
せっかく書いたので投稿します

　Range("A3") = ""
は
　Range("A3").Value = ""
を省略した形なのね
(Valueがデフォルトプロパティなので省略できるだけ)

デフォルトプロパティは
なるべく省略しないほうが良いと思う
225 名前：505 mailto:sage [2010/01/12(火) 22:47:19 ]: >199,201,218
ちょっと作ってみました。前提条件は
・セルの塗りつぶしを行うことで稼動したことを示す（塗りつぶしの色は問わない）
・VBAマクロ中のＢ：ＡＷ(48列) は24時間を30分で区切ったもの
・同じく、Array(4, 6, 8, 10, 12)は集計対象行を列挙したもの・当方はWinXP(sp3)のExcel2003
Option Explicit
Dim tate As Variant, yoko As Integer, gyo As Variant, cnt As Integer, 列範囲 As String, 始 As Integer, 終 As Integer
Sub 稼動時間集計()
　列範囲 = "B:AW
　gyo = Array(4, 6, 8, 10, 12) : 始 = Range(列範囲).Column : 終 = Range(列範囲).Columns(Range(列範囲).Columns.Count).Column
　For Each tate In gyo
　　cnt = 0
　　For yoko = 始 To 終
　　　If Cells(tate, yoko).Interior.ColorIndex <> -4142 Then　REM -4142は塗りつぶしなし
　　　　cnt = cnt + 1
　　　End If
　　　Next yoko
　　　Cells(tate, 1).Value = cnt / 2　REM ２で割ってＡ列に時間数を出力
　Next tate
End Sub

シートの設定
Ｂ：ＡＷ列はセル幅を狭くして一画面に収まるようにする（WXGAの画面ならセル幅は2.25とか）
B2:C2、D2:E2、・・・AV2:AW2まで１時間単位でセル結合し、０から２３の数字を入力

使い方：一人目の稼動時間設定ならば４行目で（線をひっぱるようなイメージで）セルを選択して塗りつぶしを行う。飛び飛びなら[Ctrl]を押しながら選択することもできる。
セルの塗りつぶしが終わったら、[Alt]を押しながら[F8]を押すと、マクロ一覧が表示されるので
「稼動時間集計」を選択して[実行]をクリック。→Ａ４、Ａ６、Ａ８、Ａ１０、Ａ１２セルに時間数が表示される。
226 名前：225 mailto:sage [2010/01/12(火) 22:49:59 ]: >225のメール欄　505　は意味ありません。
それから、白で塗りつぶしはしないでください。”塗りつぶしなし”とは違います。
227 名前：222 mailto:sage [2010/01/12(火) 23:13:33 ]: >>223-224
ありがと、勉強になりますた（ぺこっ
228 名前：名無しさん＠そうだ選挙にいこう [2010/01/13(水) 09:52:05 ]: ピボットテーブルで漢字をフリガナ順に並べるにはどうすれば良いでしょうか
phonetic関数で調べたところ、フリガナ情報は消えているようです
229 名前： ◆tHwkIlYXTE [2010/01/13(水) 09:53:49 ]: >>220
本を購入したりはしないんですね・・・
さすがです。でもﾎﾝﾄに初心者なんだもん！！（泣）

>>225
ありがとうございます。なんとか友達に聞いてやってみます。
230 名前：名無しさん＠そうだ選挙にいこう [2010/01/13(水) 10:48:09 ]: ググッてみてもいまいちだったので質問です。
日付入力にて　220113　と入力した結果を　「平成22年1月13日（水曜日）」と表示させたいのですが
ユーザー定義に　「ggge"年"m"月"d"日（"aaaa"）"」等を入れても
　「平成514年8月24日（木曜日）」となってしまいます。
何が足りないのでしょうか。

【1 OSの種類　　　　 .】 Windows xp
【2 Excelのバージョン　】 Excel2003 sp3
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否　
【5 検索キーワード　　】 excel 曜日　日付　シリアルとは
231 名前：名無しさん＠そうだ選挙にいこう [2010/01/13(水) 10:53:22 ]: >>230
H22.01.13かH22/01/13と入力する
どうしても220113で日付を表示させたいなら
=TEXT(DATE(LEFT(A1,2)+1988,MID(A1,3,2)*1,RIGHT(A1,2)*1),"ggge年m月d日（aaa）")
232 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/13(水) 11:03:50 ]: >>231
早急なレスありがとうございます。本当にありがたいです。
とりあえずの謎が解けました。
3行目の内容は細かく理解できませんが、十分なヒントを貰っているので自分で調べてみます。
233 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/13(水) 11:57:11 ]: 助けてください＞＜

A.xls　のAシートを新しいブックにコピーを作成　◆
↓
B.xlsを開く　のBシートを前述の新しいブックに移動
↓
新しいブックを保存

というようなマクロを作っています。

ここで、◆の動作を繰り返すと、新しくできるブック名が、Book1、Book2....と変わっていく為、
A.xlsをその都度開いたり閉じたりして対応しています＞＜

A.xlsを開っぱなしで、上記マクロを繰返にはどのように対応すればいいですか＞＜

Sheets("A").Copy
Workbooks.Open Filename:="B.xlsのパス"
Sheets("B").Move After:=Workbooks("Book1").Sheets(1)

保存処理。

ちなみに女じゃありません＞＜
234 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/13(水) 12:20:50 ]: >>228
フリガナを別の列に入力してピボットに加える
235 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/13(水) 13:16:48 ]: >>233
A.xls とB.xlsのシートを新規Bookにコピーするのか？
それともB.xlsのシートを新規のBookにコピーするってことか？
そこら辺がよくわからん

どっちにしてもBookを変数に入れればOKだろ
236 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/13(水) 13:31:12 ]: >>235
ありがとう。
◆の処理で出来た新規BookにBのシートを移動させるんです。

Sheets("B").Move After:=Workbooks("Book1").Sheets(1)

のWorkbooks("Book1")を変数で処理すればいいんでしょうが、
◆の処理を繰返すとできるBook1,Book2....に対応はどうすればいいんですか＞＜

あ、◆で出来るBook名を取得すれば対応できるのか＞＜

Sheets("A").Copy

NewBookName=ActiveWorkbook.Name

Workbooks.Open Filename:="B.xlsのパス"
Sheets("B").Move After:=Workbooks(NewBookName).Sheets(1)

たぶんこれで解決しました＞＜ありがとうございました＞＜
237 名前：名無しさん＠そうだ選挙にいこう [2010/01/13(水) 22:01:39 ]: ＞＜　　　←これ何？
238 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/13(水) 22:11:22 ]: 【1 OSの種類　　　　 .】 WindowsXP Pro
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ

こういう変数の使い方はおｋですか？

Sub 長澤まさみ()
　Call 新垣結衣
　Call 綾瀬はるか
End Sub

'------------------------
Sub 新垣結衣()
　Dim RNG As Range
　Set RNG = Range("A1:B3")
End Sub

Sub 綾瀬はるか()
　Dim RNG As String
　RNG = "A1:B3"
End Sub
239 名前：名無しさん＠そうだ選挙にいこう [2010/01/13(水) 22:13:28 ]: >>237
手だと思う
240 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/13(水) 22:15:20 ]: VBAを勉強したいけど、皆さんはどうやって学習しました？
目的がないと上達しないよね…。
何時間くらいの学習で基本的なことは網羅出切るんだろうか？
241 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/13(水) 22:49:59 ]: 目的があっても上達しません＞＜
いまだに、If と Select Case の使い分けができません＞＜
242 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/13(水) 23:19:45 ]: >>239
目。
(＞＜；)　困ってるように見える。

>>240
俺は仕事上で覚えた。
初歩的な動作や文法は、マクロ記憶して、そのコードを観察して覚えたわ。
243 名前：239 [2010/01/13(水) 23:47:10 ]: >>242
だから手じゃないか
目をこすってる手
244 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/13(水) 23:56:14 ]: ちげーよｗ目だよ目
riceballman.fc2web.com/AA-Illust/Data/Wakannaindesu.png
245 名前：名無しさん＠そうだ選挙にいこう [2010/01/14(木) 00:03:12 ]: >>244
おお。こりゃまいった。

ではついでに聞くけど、この顔文字(↓)はなんなの？好きな子が使ってるんだ。
(*'Ｖ`艸)☆+
246 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/14(木) 02:14:59 ]: >>245
中指立ててる代表的なAA
話をしたくない嫌いな人に対して表現する場合が多い
247 名前：複乳 [2010/01/14(木) 08:54:28 ]: >>237
ガイドライン板でちんぽっぽで検索すればよろし
>>240
マクロの記録を改変するところからでいいんじゃないかな。
後はifとfornext覚えれば大体okと思う
248 名前：複乳 [2010/01/14(木) 08:55:18 ]: >>245
投げつけられた手裏剣を両手でガードしてるところ
249 名前：名無しさん＠そうだ選挙にいこう [2010/01/14(木) 16:10:02 ]: 【1 OSの種類　　　　 .】 Windows xp
【2 Excelのバージョン　】 Excel 2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

現在請求書を作ってます。といっても親戚宛てなのでエクセルの勉強がてらです。

条件：
A、「○年○月1日～末日利用料金」という先月分の請求書です。
B、先月分の代金を今月につくって印刷します。
ですが、その月の何日に作るかは決まってません。

a1=today()。　いままではyearとmonth関数使って○に入れてました。
=YEAR(a1)&"年"&MONTH(a1)-1&"月1日～末日利用料金"
ですが今月は０月になってしまいます　orz

=YEAR(a1)&"年"&MONTH(a1-32)&"月1日～末日利用料金"
だと強制的に先月になりますが、1日に作成したら先々月になる気がします。

Q、ifを使って場合分けすると長くなるのでいやなのですが、
if以外で回避するスマートな方法ってありますか？
250 名前：複乳 [2010/01/14(木) 16:22:07 ]: >>249
date関数で0日にすると、先月の末日になる
=DATE(YEAR(A1),MONTH(A1),0)
後はここから月を取りたければ
=month(DATE(YEAR(A1),MONTH(A1),0))
のようにすればいい。それかtext関数とかアンパサンドとかやり方は色々
=TEXT(DATE(YEAR(A1),MONTH(A1),0),"yyyy年m月")&"1日～末日利用料金"
251 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/14(木) 16:55:40 ]: ありがとうございました。
末日も○日にしてdate(,,0)にしたらかっこよくなりました。

月によって２８　３０　３１とあるので末日としてお茶を濁して
あきらめてました。
>>250
252 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/14(木) 18:03:29 ]: 【1 OSの種類　　　　 .】 Windows xp
【2 Excelのバージョン　】 Excel 2003
【3 VBAが使えるか　　 .】多少
【4 VBAでの回答の可否】可
毎月、その前月分の書類を作成する際、A1セルに「○月分」と自動に表示されるようにしたいのですが…
（「月分」はB1セルです。）
今まで
A1=month(todaY())-1
としていたのですが、年が開けて12月分を作ろうとすると
当然ながら「0月分」となってしまいます。
この処理は月の前半に行うので
A1=month(today()-15)とひとまず措置？しましたが
もっとスマートな方法はないでしょうか。
253 名前：252 mailto:sage [2010/01/14(木) 18:05:45 ]: すいませんすぐ上にそっくりな質問がありました。
ごめんなさい。
254 名前：複乳 [2010/01/14(木) 18:12:40 ]: みんなやってること同じなんだよな
実は俺も0月になってた
MOD(MONTH(A1)+1,12)
なんかも使えるぜ
255 名前：２３８ mailto:sage [2010/01/14(木) 19:24:25 ]: ねぇねぇ、教えて♥
256 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/14(木) 19:38:35 ]: おいらならこうするけど

=TEXT(A1-DAY(A1), "yyyy年m月""１日～末日利用料金""")
257 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/14(木) 20:05:28 ]: 【1 OSの種類　　　　 .】 Windows Vista
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 excel word 文字書き出し

お願いします。
「D:\管理」の中にフィルダ名に法則性のないフォルダかたくさんあります。
更にそのフォルダ中に「請求書.docx」があります。
そのファイルの中の最初の改行までが「会社名」でその一覧をExcelに
書き出したいのです。
どのようなコードを書いたらいいでしょうか？
258 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/14(木) 22:34:22 ]: >>238
別にOK

プロシージャ単位で宣言しているなら
変数名がたとえ同じだとしても他への影響を最小限にできる為

とゆうか、変数はなるべくプロシージャ単位で宣言し
なるべくグローバル変数は使わない方がいい
259 名前：名無しさん＠そうだ選挙にいこう [2010/01/15(金) 00:09:24 ]: 規制されているので、携帯から失礼します。

オープンオフィスなんですけど、ここで質問してもよろしいですか？

【1 OSの種類　　　　 .】 Windows 7
【2 Excelのバージョン　】オープンオフィス
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】不可
【5 検索キーワード　　】マイナスだった場合０に　前日比

仕事場の売り上げ表が未だに紙媒体だったので、ちょっと作ってみようと思ったら難しいですね…

先月終値　　１日　差　　２日　差　　３日　差　　４日　差・・・
48　　　　 50 2 55 5　　64 9　　　　　　・・・
のように、前日の数字を引いた数字を差に出したくて
差の部分に=C2-B2のように、ただ単に引いていたんですが
まだ未記入の部分を０と認識しているみたいで、４日の差の部分が-64と表示されてしまい
そのせいで、月最後の売り上げまとめのSUMが全て記入するまで-になってしまいます。
これを無記入部分を無視、かマイナスを０に表示するにはどうしたらいいですか？
excel勉強すればよかったなぁ…
260 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 00:50:09 ]: >>259
OpenOffice.org 総合相談所 7
pc11.2ch.net/test/read.cgi/bsoft/1260546047/
261 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 01:51:52 ]: >>260ごめんなさい、ありがとうございます。
移動します。
262 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 01:54:17 ]: >>259
ちなみにD1より横に１セルおきに”差”の文字が入っていて
C2=50 D2=2 E2=55 F2=5 G2=64 H2=9 ・・・であった場合、
J2 =IF(J1="差";IF(OR(G2="" ;I2="");"";IF(I2=0;0;I2-G2));"")
で、右へオートフィルかけておけばおＫ。
263 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 10:14:26 ]: >>257
VBA使えないなら諦めれｗ
ここに1から10まで書いてくれる人はいないだろう。

俺が作るなら、

「管理」フォルダ内の階層(フォルダ名)を取得
↓
個々のフォルダ内のファイル名を取得
↓
ループさせて請求書.docxがあったら
↓
ワード文章取得
↓
一行目を会社名表示用のシートにコピペ

以上の繰り返し。

個々の処理はグーグル先生に聞けばわかると思う。
264 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 11:20:02 ]: >>257
こんな感じかな。「D:\管理」以下の1階層目のフォルダ内の「請求書.docx」の1段落目のテキストをセルに書き出し。

folderPath = "D:\管理"
docxName = "請求書.docx"

Set w = CreateObject("Word.Application")
Set fso = CreateObject("Scripting.FileSystemObject")

For Each f In fso.GetFolder(folderPath).subfolders
　fileName = f.path & "\" & docxName
　If fso.fileexists(fileName) Then
　　ActiveCell.Value = w.documents.Open(fileName).Paragraphs(1).Range.Text
　　w.documents.Close
　　ActiveCell.Offset(1).Activate
　End If
Next

w.Quit
265 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 11:34:43 ]: 質問です＞＜

とあるエクセルファイルを作成し、デスクトップに保存するマクロを作っています。
ある程度統一したファイル名で強制保存させます。

その処理において、ファイル名が重複していた場合、上書きを回避させたいんです＞＜

強制保存の処理をさせる前に、重複するチェックをしたいんです＞＜
助けて下さい＞＜

Fname = "あ"

重複チェック→重複していたら、Fname = "あ(2)"的な処理
↓
強制保存

あ(2)があった場合は、あ(3)....っていうふうにしたいんです＞＜
266 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 12:21:13 ]: 質問させてください
A列の1から150まで連番でファイル名を書いているのですが、拡張子を追加で付け加えなければならなくなってしまいました

現在セルに入力されている値に後方追加で文字列をいれることはできますでしょうか？
ひとつひとつやると日が暮れてしまいそうなのでなんとかお願いします
267 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 12:23:55 ]: ＆
268 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 13:08:18 ]: >>266
B列に
=A1&"拡張子"

150行までバーーーってやって
関数を取っ払いたいなら、B列をコピー→値だけ貼付け
269 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 15:44:04 ]: XP　Excel2000
2つのエクセルファイルを開くと、

あるPCは、同一のExcel.exeで開いて
あるPCは、2つのExcel.exeで開く。

プロセス上に、前者はExcel.exeが1つ、後者は2つできる。

これはどこの設定によるものなの？
270 名前：複乳 [2010/01/15(金) 15:59:32 ]: >>269
オプションのどこかにあるほかのアプリケーションを無視する
ってとこ
271 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 16:14:44 ]: >>269-270
質問して自分で答えてるんですか？
272 名前：269 mailto:sage [2010/01/15(金) 16:20:08 ]: >>270
チェックしたり、外してみたりしたけど、何も変わらないよぉ。。。。
どうしてこういうこと聞くかというと
とあるアプリで、エクセルを影で起動させてるんだ。

で、>>269の前者の場合、ユーザーが他のエクセルを開くと、
同じプロセスでやっちゃうから、アプリ側でエラーがでちゃうの。

これを回避したいんだ。
273 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 16:27:11 ]: ファイルの開き方にもよるけど、普通は同一プロセスで開くんじゃないかな
ダブルクリック時に別のプロセスで開くとかは、コマンドラインオプションかなんかを自分で指定してやる必要があると思った。ぐぐってみて
そもそもは同じプロセスだとエラーが出るって言う糞アプリとやらがおかしい話なんじゃないの？
274 名前：複乳 [2010/01/15(金) 16:37:56 ]: >>271
どこか自演臭かったか?
>>272
vbaかなにかで別プロセスにしたいなら、先にexcel.exeを起動してから
ファイルをオープンするようにするといいかも
他のアプリ～でできない場合はよくわからん
275 名前：269 mailto:sage [2010/01/15(金) 17:17:50 ]: >>273
まぁそうなんだけどね＾＾；

>>274
VBのアプリからエクセル開いて、そのプロセスを他のエクセルに使わせたくないんだ。

ちなみにぐぐりまくったら出てきた。
これでいけるのかなぁ。

　 bDDE = xlApp.IgnoreRemoteRequests
　 xlApp.IgnoreRemoteRequests = TRUE

　　処理

　　xlApp.IgnoreRemoteRequests = bDDE 　'元に戻す。

奥深いねぇ。
276 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 18:16:49 ]: >>275でうまくいったぞー(＾o＾)ﾉ
277 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 18:18:46 ]: ワークシート1枚にひとつき分の報告書が連なっているんですが
すべて同じ様式なので、指定したセルをすべてのワークシートから抽出して
ワークシート名と共に並べるってことは出来ますか？
278 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 18:20:46 ]: >>277
よくわからないけど、できると思う。
279 名前：265 mailto:sage [2010/01/15(金) 18:30:56 ]: >>265
誰か＞＜
280 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 18:39:57 ]: >>279　ファイル名の後ろにランダムな数字を加えれば重複はしない
281 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 18:46:28 ]: >>280
したりするんだなこれが
282 名前：265 mailto:sage [2010/01/15(金) 19:00:25 ]: 誰も助けてくれないんですか＞＜
283 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 19:46:10 ]: >>265
保存する前にDirでﾌｧｲﾙが存在するか調べりゃいいじゃん
284 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 21:21:27 ]: >>265
これでどうかな

Folder = "C:\TEST\"
Fname = "あ"
SaveFname = Fname
i = 1
Do Until Dir(Folder & SaveFname) = ""
　　i = i + 1
　　SaveFname = Fname & "(" & i & ")"
Loop
'SaveFname で保存処理をする

あんまり＞＜を多用するのは関心しないな
見ててイラつくんだけど
285 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/15(金) 23:30:09 ]: ありがとうございますた＞＜
286 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/16(土) 05:47:58 ]: 拡張子は大丈夫か？
287 名前：284 mailto:sage [2010/01/16(土) 08:22:06 ]: >>286
拡張子ってのをわすれてたな

誤　Do Until Dir(Folder & SaveFname) = ""
正　Do Until Dir(Folder & SaveFname & ".xls") = ""
288 名前：名無しさん＠そうだ選挙にいこう [2010/01/16(土) 10:00:21 ]: WindowdXP上でExcel2000をつかってます。
HDD上に保存されているxlsファイルが巨大すぎて２時間たっても読み込みが終了しません。
でも、ExcelViewer2003ならば読めます。

編集途中の大切なファイルなのでなんとか読み込んで編集したいんです。
読み込み前のファイル内のシートを削除とかできないでしょうか？
289 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/16(土) 10:10:17 ]: VBAでイミディエイト・ウィンドウの内容をクリアする方法はありますか？
290 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/16(土) 10:44:49 ]: 【1 OSの種類　　　　 .】 Windows xp
【2 Excelのバージョン　】 Excel 2003
【3 VBAが使えるか　　 .】勉強中
【4 VBAでの回答の可否】可

売上ランキングを出す際、重複しないで出したいです。

売上でまずランキングを出していき、売上が同一だった場合は、
社員番号でさらにランキングを振り分けたいのですが、良い方法ありませんでしょうか？
291 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/16(土) 11:15:10 ]: >>290
社員番号を社員番号の最大＋１で割りそれを足して使用する
292 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/16(土) 12:18:25 ]: 単純に社員番号を加算するとか追加するとかしてからならびかえれば
293 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/16(土) 12:38:31 ]: >>288
フリーズしてるんでしょ
ファイルが壊れてなければネットカフェにでももっていって編集すればいいんじゃないか
それかOOoを使うとか
294 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/16(土) 13:21:27 ]: PCオンラインの記事でpc.nikkeibp.co.jp/article/knowhow/20090811/1017790/
フォルダ内のファイル名一覧を自動作成　というマクロに挑戦しました。
問題は自宅のエクセル2003ではできたのに、職場のエクセル2000でできなかったことです。
もしよろしければ、助けてください。

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

エクセル2003でokだったマクロ

Sub ファイル一覧()
フォルダパス = Cells(1, 2).Value
ファイル名 = Dir(フォルダパス & "\*.*")
行番号 = 4
Do While ファイル名 <> ""
Cells(行番号, 1).Value = ファイル名
行番号 = 行番号 + 1
ファイル名 = Dir()
Loop
End Sub
295 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/16(土) 14:04:47 ]: >>294
どこでエラーが出たのかわからんが、
カンで答えるとフォルダパス = Cells(1, 2).Value がおかしい
296 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/16(土) 14:38:39 ]: >>294
フォルダパスの最後に「\」が付いてるのに「\*.*」を足してる
297 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/16(土) 14:40:10 ]: >>294
フォルダ名が間違ってて、存在しない名前になってる

空でファイルが一つも入っていないフォルダを指定した

アクセス許可のないフォルダを指定した
298 名前：名無しさん＠そうだ選挙にいこう [2010/01/16(土) 18:18:57 ]: >>288
OOoだと読み込める、という意味でしょうか？
299 名前：294 mailto:sage [2010/01/16(土) 18:29:43 ]: >>295->>297
ありがとうございます
職場じゃないので確認してませんが、パスの指定が、\\二つになって
間違っているような気がします
300 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 06:33:57 ]: >>296
まだこんな馬鹿がいるのか
301 名前：257 mailto:sage [2010/01/17(日) 11:07:00 ]: >>264
返事遅くなりました。
できました。ありがとうございます！
302 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 17:46:57 ]: 【1 OSの種類　　　　 .】 WindowsVista
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】エラー名で検索してみましたがわかりませんでした
セキュリティに影響を及ぼす可能性のある問題点が検知されました。
リンクの自動更新が無効にされました。リンクの自動更新を有効にすると、コンピュータの安全性が失われる可能性があります。このファイルの発行元が信頼できない場合は、このコンテンツを有効にしないでください

というエラーが表示され、「有効にする」「無効にする」のいずれを選んでも入力したエクセルデータが表示されなくなってしまいました。
どうにか直したいのです。よろしくお願いします。
303 名前：名無しさん＠そうだ選挙にいこう [2010/01/17(日) 18:08:32 ]: ★Wordスレが今夜復活しました★

Word総合相談所
pc11.2ch.net/test/read.cgi/bsoft/1263719084/
304 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 19:00:51 ]: 会社で配備されているPC（Excel2003)でマクロが使えないのですが…。
ツール→マクロ→と選択しても「セキュリティ」しか出てきません。
305 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 19:19:17 ]: >>304
Alt+F8で出来ないかな？
306 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 19:36:11 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

パーセンテージによるランク表が予め決まっていて、
そのパーセンテージを越すと、ランクが自動的に変わる関数で良い案ありますでしょうか？

if文でランクごとにそのパーセンテージよろ大きいと繰り返してしまうと、
恐ろしく長い関数になってしまって・・・。

何かいい案ありましたら教えてください。
307 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 19:59:53 ]: >>306
ランクの詳細は？
308 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 20:10:02 ]: >>307
ありがとうございます。

ランクは単純に数字をあがったりするだけです。
ランクは計算用に多少いじっても大丈夫だと思います。
309 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 20:13:07 ]: わからん　うｐれ
310 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 20:16:37 ]: >>306
ランク一覧表をシートに作っておいて LOOKUP関数で検索させるとか
311 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 20:34:07 ]: >>309
ttp://uploader.rgr.jp/src/up1675.jpg

上記画像左のようなランク表が元々あって、
右側のような進捗率をもとにランクを自動的に割り振っていきたいんです。
312 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 21:06:27 ]: >>311
３行目部署２で75%なのにランク３？
例えば135％でもランク３なの？
313 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 21:14:24 ]: >>312
新たなワード”進捗率をもとにランクを自動的に～”のせいだろ。
>>311
情報の小出しはするなよ。
314 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 21:34:59 ]: >>312
そのとおりです。
最低ランク以下の売上しかない場合は、
最低ランクとして扱います。
315 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/17(日) 21:39:56 ]: わからん

ブックうｐれ
316 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/18(月) 00:08:26 ]: >>302
リンクの自動更新が無効にされました。リンクの自動更新を有効にすると、コンピュータの安全性が失われる可能性があります。このファイルの発行元が信頼できない場合は、このコンテンツを有効にしないでください
でぐぐれ。解決するかは知らん
ttp://okwave.jp/qa/q4596187.html
ttp://oshiete1.goo.ne.jp/qa4596187.html
>>311
J4=if(F4="部署1",vlookup(B4:B6),,) & if(F4="部署2",vlookup(B7:B9),,) &if
みたいにしてはどうでっか。部署が多いならmatchかなにかで範囲を決めるんだろうけど、どっちにしてもめんどくさいなぁ
317 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 03:21:02 ]: >311
VLOOKUPを使うとして
VLOOKUPって確か範囲の左端を検索だったと思うので
B列とC列は入れかえる必要があるね
あと達成率は昇順でないとダメなハズ

その上で
検索範囲に部署名と同じ名前を定義してみたらどうだろう
B4:C6を"部署1"
B7:C9を"部署2"
って感じで
んで
J4=VLOOKUP(I4,INDIRECT(F4),2)
としたらどうだろう
318 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 08:37:57 ]: vlookup<<<index(match)
319 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 11:06:46 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】勉強中
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 autofilter　0以外を抽出

シート1に以下のように、A列にお店の名前があって、
B列以降1月から12月までそのお店で使用した金額を入力しています。

　お店　1月　2月　3月　4月　5月　6月　・・・
AAA　　　0　100　300　　 0　100　300　・・・
BBB　　10　100　　　0　100　100　300　・・・
　・
　・
　・

それで、月を指定する箇所を作って、そこで1と入力した場合なら、
1月にお金を使ったお店をシート2に抽出。
2と入力した場合は、2月にお金を使ったお店の抽出が出来るマクロを
作ろうとしているのですが、どうすれば良いでしょうか？

個人的に考えたのは、if文で見たい値を判断してautofilterするセルを指定して、
0以外を抽出すれば良いのかなと考えていますが、
VBAの知識がないもので四苦八苦しております。

よろしくお願いいたします。
320 名前：複乳 [2010/01/18(月) 14:54:03 ]: >>319
マクロの記録+変数を使えれば簡単
a = InputBox("月")
と
Selection.AutoFilter Field:=a + 1
が変更したところ
ちなみに最初に出る入力画面で1を二有力すれば１月分、2なら2月分になる
後は頑張れ

Sub Macro1()
a = InputBox("月")
Columns("A:G").Select
Range("G1").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=a + 1, Criteria1:="<>0", Operator:=xlAnd
Selection.Copy
Sheets("2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
321 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 15:16:43 ]: >>320
うまくいきました！
ありがとうございます。

ただ、それをボタンに登録して動かしてみるとエラーになってしまいますorz
また、参照用シートが処理後もフィルター状態になっているので、
処理後はフィルター解除状態にすることは可能でしょうか？
322 名前：複乳 [2010/01/18(月) 16:09:21 ]: >>321
ボタンに登録して複数にまたがるシートを扱う時は
Private Sub CommandButton1_Click()
call macro1
End Sub
でok。macro1は標準モジュールに書いておく
あと今気づいたけど
Columns("A:G").Select は列が足りないな。
自分で作り直したほうが良いとおも
323 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 16:11:59 ]: ボタンをどこに作ったの？
オートフィルタするページと一緒じゃないと駄目なんじゃないかな？
フィルタ解除はその操作マクロで記録して見てみればわｋんじゃない？
つ[後は頑張れ」
324 名前：265 mailto:sage [2010/01/18(月) 16:13:24 ]: >>321
>処理後はフィルター解除状態にすることは可能でしょうか？

Selection.Copyの後ろに
Selection.AutoFilter　←これを挿入。
325 名前：複乳 [2010/01/18(月) 16:14:40 ]: >処理後はフィルター解除状態
はマクロの記録でやってほしかったんだぜ・・
326 名前：265 mailto:sage [2010/01/18(月) 16:23:23 ]: >>284
うお回答来てた＞＜
ありがとう！やってみる＞＜＞＜＞＜＞＜＞＜
327 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 16:24:40 ]: >>325
>>320まで書いたならそれくらい教えてやれよｗ
328 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 20:55:29 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2002、2007
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】マクロオートフィルタデータ　取得　

やりたいこと
「現データ」シートのG列で「1」フィルタをかける
＊フィルタ項目以下のデータ部　C列～E列をコピー
「抽出」シート　B2に貼付け

「現データ」のデータ部　シートH行～L行をコピー
「抽出」シート　E2に貼付け

「現データ」のデータ部　シートF行～G列をコピー
「抽出」シート　J2に貼付け

「現データ」シートのG列で「2」フィルタをかける
フィルタ項目以下のデータ部　C列～E列をコピー
「抽出」シート　B列の最終行以下に貼付け
（以下、同様のコピー＆ペースト）

元データの並び替えなしという縛りがあります。
数回フィルタを掛けるので、コピーする最初の行が変わります。
フィルタ「1」のときは3行目から、「2」のときは5行目…
表示された最初のデータ行を取得する方法はoffset、resizeを組合せる？のでしょうか

ご教授願います。

ttp://www.dotup.org/uploda/www.dotup.org573343.zip.html
329 名前：d mailto:sage [2010/01/18(月) 21:08:45 ]: >>328
>表示された最初のデータ行を取得する
と考えずに、項目行まで含めて表示されている全てのデータをコピペし、
後でペースト先の項目行を削除したらどうでしょうか。
330 名前：294 mailto:sage [2010/01/18(月) 21:09:46 ]: ＞空でファイルが一つも入っていないフォルダを指定した

上記症状でした。すいません＿|￣|○
331 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 21:33:50 ]: もっと綺麗な関数はありませんか？

=IF(A1="8:00～12:00","01",IF(A1="12:00～14:00","12",IF(A1="14:00～16:00","14",IF(A1="16:00～18:00","16",IF(A1="18:00～20:00","18",IF(A1="19:00～21:00","19",""))))))
332 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 21:38:27 ]: 質問というか疑問なんですが、
VLOOKUPってなにか使うメリットあるんですか？？
個人的にはコントロールエフで、検索かけた方が早いような気がするんですが
333 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 21:39:19 ]: >331

例外を考慮する必要がなければ
=IF(A1="8:00～12:00","01",LEFT(A1,2))

私なら比較対象と対応文字を別に用意してINDEX(MATCH)
334 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 21:40:21 ]: >332

必要がなければそれでいいんじゃね？
335 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 21:54:23 ]: >>332
まぁいずれわかるよ。
336 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 22:51:58 ]: マクロで、
D = Format(Date, "mmm/yy")　と書けば Jan/10　になりますが、Dec/09　をDへ入れるには、どう書けばいいでしょうか？
また、このとき、Jan　を　JAN　にできるでしょうか？

来月の任意の日なら　JAN/10、再来月の任意の日なら　FEB/10　にしたいです。
337 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 22:55:46 ]: >>329
全体を選択するだけならできていて
抽出部分の取得をしたいんですが・・・＞＜
338 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/18(月) 23:48:34 ]: >>336
D = Format(DateSerial(Year(Date), Month(Date), 0), "mmm/yy")
と
UCase(D)

纏めると
D = UCase(Format(DateSerial(Year(Date), Month(Date), 0), "mmm/yy"))
339 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/19(火) 00:13:41 ]: >>328
最終行からCtrl+↑、という考え方が一般的らしい
aaa = Range("a65535").End(xlUp).Row
これでaaaに最終行。ただしA列の最終行なので他の行が伸びている場合はその列で
>>336
たまにはワークシート関数とかどうでしょう
d = UCase(Application.WorksheetFunction.Text(d, "mmm/yy"))
340 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/19(火) 02:13:11 ]: 【1 OSの種類　　　　 .】 Windows　Xp
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 Excel ヘッダー　画像　落ちる or Excel ヘッダー　プレビュー　落ちる

こんばんわ、質問させてください。
現在資料を作成中なのですが、ヘッダーとフッターにそれぞれ複数の画像を設定しています。
その状態で印刷プレビューで確認するとかなりの確立でExcelが落ちてしまいます。
画像の種類はemfで、サイズは大体5-10KB 一つ100KB超えている画像があります。
乏しい情報で申し訳ありませんが何か解決策があればご教授いただければ幸いです。
よろしくお願い致します。
341 名前：複乳 [2010/01/19(火) 09:30:33 ]: >>340
これか?
ttp://office.microsoft.com/ja-jp/excel/HP052004991041.aspx
Enhanced Metafile グラフィックフィルタ (Emfimp32.flt) は、
拡張メタファイル (.emf) を Windows メタファイル (.wmf) に変換します。
.emf ファイルを Microsoft Clip Gallery または Microsoft Photo Editor の
オブジェクトとして Excel のブックに挿入する場合は、Enhanced Metafile フィルタを組み込む必要があります。ただし、.emf ファイルを
直接 Excel のブックに挿入する場合は、このフィルタは必要ありません。

後はアップデートや再インストール
emfを他の形式に変換する。ソフトはベクターに転がってる
ヘッダーに含めずシートの上の方の行に挿入する
など。まぁ、一言で言うと良く分からん
342 名前：d mailto:sage [2010/01/19(火) 11:32:13 ]: >>337
>全体を選択するだけならできていて
>抽出部分の取得をしたいんですが・・・＞＜
ではちゃんとした例を。^^
Sub test()
　　Dim RR As Range
　　Set RR = ActiveSheet.AutoFilter.Range
　　Set RR = Intersect(RR, RR.Range("C:E"))
　　Set RR = Intersect(RR, RR.Offset(1))
　　Set RR = RR.SpecialCells(xlCellTypeVisible)
　　RR.Copy
End Sub
343 名前：d mailto:sage [2010/01/19(火) 16:31:01 ]: >>342
ちょっと訂正
>Set RR = Intersect(RR, RR.Range("C:E"))
は
Set RR = Intersect(RR, RR.Worksheet.Range("C:E"))
の方が良いかも。
344 名前：複乳 [2010/01/19(火) 16:39:41 ]: 配列定数の中で関数は使えないのでしょうか
具体的には
={1,2,sum(1,2)}
のような感じです。宜しくお願いします
345 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/19(火) 16:52:01 ]: あらら、質問者まで複乳しちゃってるよ。ｗ
346 名前：複乳 [2010/01/19(火) 16:53:53 ]: いつも質問するときもコテだよ。本当に分からないので教えてください
347 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/19(火) 18:25:35 ]: 定数の意味
348 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/19(火) 19:36:42 ]: やっぱりそうですか。
ありがとうございました
349 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/19(火) 20:11:57 ]: >>343
あとで検証してみます
ありがとうｊ！
350 名前：336 mailto:sage [2010/01/19(火) 21:57:50 ]: 336です。

>>338さん、ありがとうございました。
うまくいきました。
351 名前：336 mailto:sage [2010/01/19(火) 22:02:21 ]: 見逃してました。

>>339
ありがとうございます。
こちらもうまくいきました。
352 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/19(火) 22:08:53 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 vba 日付

inputboxに日付をいれると、つらつらと日付が続いて出てくるものを作っています。
Sub テスト()
日付 = InputBox("日付を挿れて♪")
For i = 1 To 10
Cells(i, 1) = 日付
日付 = 日付 + 1
Next i
End Sub

Sub テスト2()
日付 = InputBox("日付を挿れて♪")
Cells(1, 1) = 日付
For i = 2 To 10
Cells(i, 1) = Cells(i - 1, 1) + 1
Next i
End Sub

テストだとダメで、テスト２のようにやるとうまくいきます。
要するに日付を変数に入れたまま+1はダメで、
日付の入った変数をセルに返して、それに+1するのはOKなんでしょうか。
変数のまま日付を足したり引いたりする方法を教えてください。
353 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/19(火) 22:22:36 ]: >>352
2000でそのままコピペしてやったけど、両方出来たよ。
文法が正しくない所は置いといて、ちゃんと動く。
問題は別にあるだろう。

実行時エラーがでるなら、とりあえずエラーNoをググレ
354 名前：複乳 mailto:sage [2010/01/19(火) 22:30:33 ]: >>352
ウォッチ式を使えばわかるが、1は日付が文字列型(string型)で格納される
２は一度セルに入力された時に日付型(date型)に変換されている
1も
Sub テスト()
Dim 日付 As Date
で始めれば上手くいく(変数日付を強制的に日付型にするため)
強制的に日付にするために「あああ」などと入れるとエラーになる

ちなみに2009/1/1は39815である
シリアル値でぐぐれば少しは理解できるかも
355 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/19(火) 22:31:42 ]: あぁやっぱり変数宣言してないことを指摘してあげるべきだったか。
356 名前：352です mailto:sage [2010/01/19(火) 22:46:33 ]: みなさんどうもご指摘ありがとうございました。
変数の宣言というのは知ってましたが、持ってる本に
「多くの変数を使う複雑なマクロでなければ、宣言を省略しても大きな問題はない」
と書いてあったので略しちゃいましたw
357 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/20(水) 00:38:22 ]: ウォッチ式って何ですの？
358 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/20(水) 05:33:37 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】セル　移動

2行1組の書類があります。
1行3列として、最初の1組A1:C2を例にとると、
A1:A2が、C1:C2がそれぞれ結合されています。以下A3:C4以降同様。
入力の際、EnterでセルがA1:A2→B1→B2→C1:C2と動くようにすることは可能でしょうか？
よろしくお願いします。
359 名前：複乳 [2010/01/20(水) 09:35:48 ]: >>358
targetとonkeyイベント辺りでできると思うけど作るだけのスキルが無いです

個人的には
=INDIRECT("r"&(INT(ROW()-1)/2)*4+COLUMN()+(MOD(COLUMN(),3)=0)+(MOD(COLUMN(),2)=0)*(MOD(ROW(),2)=0)*-1&"c4",0)
こういう式をA1:C10にでも入れて、D列で内容入力というように、入力と出力分けるといいと思う
表自体が小さければ
A1=D1、B1=D2、B2=D3というようにいれていってもいいかもしれない

他にはA1:C10を選択して決定の際にtabキーを押せば
A1:A2→B1→C1:C2→B2と少し違うが似たような動きをさせることも出来るね
360 名前：外国人参政権　Ｑ＆Ａ [2010/01/20(水) 10:25:52 ]: Ｑ　何故、民主党は外国人参政権を推進したいの？
　Ａ　民主党は、いわゆる「反日団体」だからです。
　　　根底に「日本が嫌い」「日本は悪い国」という思想があります。

Ｑ　何故、民主党は日本人なのに日本が嫌いなの？
　Ａ　戦後６０年、日教組が反日教育で日本人を洗脳し続けてきたからです。
　　　洗脳された日本人が反日思想を更に広めるべく教員やマスコミに潜入しています。
　　　また市民活動家や政治家にも大勢潜入しており反日政策を作ってきました。
　　　反日マスコミが反自民党へ世論を誘導して樹立した反日政権が民主党です。

Ｑ　何故、日教組は日本人なのに反日思想を広めて来たの？
　Ａ　戦後のＧＨＱ統括下で右翼的な思想の日本人は戦犯になりました。
　　　特に教職員（とマスコミ関係者）は駆逐されました。
　　　代わりに教育の現場で指導に当たったのは反日思想の在日朝鮮人と共産党でした。
　　　つまり日教組に「まともな日本人」は居ません。

Ｑ　右翼も「まともな日本人」には見えませんが？
　Ａ　街宣車で騒音を撒き散らす右翼は、ほとんどが在日朝鮮人です。
　　　その証拠に街宣右翼は「北方領土を返せ！」は言っても「竹島を返せ！」は言いません。
　　　在日朝鮮人が「日本を愛するのは悪いことだ。」と宣伝しているのです。
　　　また「在日朝鮮人はこんな人たちの差別に苦しんでいます。」と自作自演しています。

Ｑ　日本を愛するのは悪いことじゃないの？
　　Ａ　自分の国を愛するのは当然のことであって何も悪いことはありません。
　　　　愛国無罪（国のためなら何をしても良い）は悪いことですが。

Ｑ　でも日本は過去に悪いことしたんでしょ？
　　Ａ　日教組やマスコミは様々な嘘の歴史が作り上げ広めて来ました。
　　　　彼らは「まともな日本人」の感覚では信じられないレベルの大嘘をつきます。
361 名前：名無しさん＠そうだ選挙にいこう [2010/01/20(水) 14:34:15 ]: 最新ビジネスソフト入荷！
激安にて販売中
wwttww.hostrator.com
362 名前：名無しさん＠そうだ選挙にいこう [2010/01/20(水) 14:46:56 ]: >>361
有名な詐欺サイトです
買わないように
363 名前：358 mailto:sage [2010/01/20(水) 16:16:57 ]: 複乳氏、回答ありがとうございます。
なんか難しそうですね。
target onkey をちょっと勉強してみたいと思います。
364 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/20(水) 16:20:53 ]: >>361
500台注文した
365 名前：複乳 [2010/01/20(水) 16:23:23 ]: >>363
vba　イベント　onkey
辺りで検索だな
onkeyはキーボードのキーを押したときのイベントを制御
targetはそのイベントの起こる場所を限定できる
と思う。がんばれ
366 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/20(水) 21:33:58 ]: 【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】複乳　同一人物　句読点　偉人

複乳さんと、複乳 ◆MeiY43UMr. さんは同一人物ですか？
367 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/20(水) 21:36:52 ]: 偉人ｗ
368 名前：名無しさん＠そうだ選挙にいこう [2010/01/20(水) 21:37:15 ]: 句読点？ｗ
369 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/20(水) 22:22:22 ]: x 偉人
o 暇人
370 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/20(水) 22:30:38 ]: >>366
マクロで回答したいのだが、

If 複乳 = 複乳◆MeiY43UMr. then　と書くと、コンパイルエラーになります。
371 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/20(水) 22:38:56 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】ｵｰﾄﾌｨﾙ　連続ﾃﾞｰﾀ

複数のbook日報形式（1日～31日）まであるのですが、それを１枚のbookで管理するのに

A2＝'1日'!$H$33

という式があるのですがこの式の日にち（book名部分だけ）を
　 '1日'! '2日'! 　　'3日'! というように横にﾄﾞﾗｯｸﾞしていけば連続して
記入されるようにしたいのですが可能なのでしょうか？
可能であればどのようにすればよいのでしょうか？
よろしくお願いします

連続して
372 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/20(水) 22:44:17 ]: >>371
=INDIRECT("'"&COLUMN(A1)&"日'!$H$33")
として右にコピー
373 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/20(水) 22:52:18 ]: 【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】excel　グラフ　並び替え

excelで個人別の売り上げ表をつくり、グラフにしています。
表は個人名をあいうえお順で上から並べているんですが、
売り上げをグラフにする時はあいうえお順ではなく売り上げ別に並べたいんです。
色々考えたんですがいい方法が思いつかなかったので、もし出来るのであれば
教えてもらえると助かります。
もう一つ表を作らないと無理でしょうか？
374 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/20(水) 22:54:58 ]: >>372

即レスありがとうございます。
早速試してみたら出来ました。
本当にありがとうございました。
375 名前：名無しさん＠そうだ選挙にいこう [2010/01/20(水) 23:41:18 ]: 【1 OSの種類　　　　 .】 Windows xp sp2
【2 Excelのバージョン　】 Excel 2002
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 excel 当番表　lookup

2種類の当番表を一つのシートで上下に作成し、各氏名ごとに指定した当番の結果を
もう一つのシートに反映させたいと考えています。

【表１】
左端列には上から下へ「氏名」、先頭行には左から右へ「日付」
【表２】
左端列には上から下へ「当番種類」(レジ・掃除・品出し・戸締り　等)
先頭行には左から右へ「日付」

【表１】中で各氏名ごとに当番を指定すると表２の当番表にその氏名が表示されるように
したいのですが、ＬＯＯＫＵＰ関数を使っても並べ替えの制約のためか思うように
作成できません。

エクセル上で関数だけを使っては作成できないのでしょうか？
376 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 00:02:56 ]: できる
ガンガレ！
377 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 07:00:15 ]: VLOOKUPでググって幸せ
HLOOKUPでググって不幸
378 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 09:34:54 ]: >>373
どういう管理してるかわかんないけど、そのグラフだけ欲しいなら、
五十音順の表でグラフ作って、表を売り上げ順に並び替えを実行すれば、グラフもそれ順になるよ。
並び替えの方法はわかるよね？？
その作業をマクロに記録しておけば後々楽かなぁ。
379 名前：複乳 [2010/01/21(木) 09:46:49 ]: >>366
よく見れば大体分かると思うが・・
>>373
A1:A5に名前
B1:B5に金額
C1=ROW()/10+B1
D1=RANK(C1,C:C,0)
E1:E5=1、2、3、4、5
F1=INDEX($A$1:$A$5,MATCH(E1,D:D,0),1)
G1=INDEX($B$1:$B$5,MATCH(E1,D:D,0),1)
FGでグラフを作成
>>375
A1:E5で上の表(一列目一行目は項目)
A11:E15で下の表
B12=IF(ISERROR(INDEX($A$2:$A$5,MATCH($A12,B$2:B$5,0),1)),"",INDEX($A$2:$A$5,MATCH($A12,B$2:B$5,0),1))
後はB12をE15までオートフィル
380 名前：複乳 [2010/01/21(木) 09:47:43 ]: >>378
あ、そんな方法があったのか
グラフ作らないから知らないんだよなぁ
381 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 16:01:25 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】　excel　テーブル　列　選択

質問です
テーブルの中の任意の列だけを選択することってできますでしょうか？
382 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 17:27:25 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】

助けてください＞＜

up3.viploader.net/ippan/src/vlippan058331.png
383 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 17:52:12 ]: 結合セルの並び替えは不可です
384 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 18:00:34 ]: マクロでもなんともならないの？
385 名前：複乳 [2010/01/21(木) 18:14:25 ]: 結合を解除して並び替え、それをvlookupやindexmatchなどで拾ってくるべき
386 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 18:31:48 ]: >382
いくつかおたずね
１　項目２の値は重複がありえますか？　重複がないならＶＢＡを用いず、計算式だけでできそう。
２　up3.viploader.net/ippan/src/vlippan058331.png のように、隣に並べ替え後の表をつくっていいのかな？

今考えているのは、Ｋ列１行目から１件１行（４列＋RANK関数による順位列）にデータを揃えてからＦ５：Ｉ１９
の表を作る（この表も計算式のみ）方法です。
387 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 18:38:50 ]: >>385
ありがとやんした＞＜

>>386
やっぱりワンクッション置いて処理しないとダメなんですね＞＜
実際には、画像以上のデータが大量にあるので面倒くさいです。。。。
ありがとう＞＜
388 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 19:23:57 ]: >>382
まず値５００を１５０００に変えるには…
389 名前：386 mailto:sage [2010/01/21(木) 19:28:34 ]: >382,387
作ってみたのでアップします。（項目２の値に重複があるとダメです）
１件１行用のデータ領域
K1セル　=INDIRECT("B"&ROW()*3+2)
L1セル　=INDIRECT("D"&ROW()*3+2)
M1セル　=INDIRECT("D"&ROW()*3+3)
N1セル　=INDIRECT("D"&ROW()*3+4)
O1セル　=RANK(M1,$M$1:$M$10)　　$M$10の行位置は最大データ数以上であること
ここまで入れたら、件数分下へドラッグコピー

G5セル　=INDIRECT("K"&MATCH(INT((ROW()-2)/3),$O$1:$O$10,0))　$O$10の行位置は最大データ数以上（以下同じ）
I5セル　=INDIRECT("L"&MATCH(INT((ROW()-2)/3),$O$1:$O$10,0))
I6セル　=INDIRECT("M"&MATCH(INT((ROW()-3)/3),$O$1:$O$10,0))
I7セル　=INDIRECT("N"&MATCH(INT((ROW()-4)/3),$O$1:$O$10,0))
ここまで入れたら、Ｇ５：Ｉ７セルをコピー、２件目以降下端まで範囲選択して貼り付け
なお、当方はWindowsXP、Excel2003です。vbaは誰かやってくれるでしょ。
390 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/21(木) 19:28:43 ]: tttttt
391 名前：名無しさん＠そうだ選挙にいこう [2010/01/21(木) 19:30:24 ]: 【1 OSの種類　　　　 .】 WindowsVista
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】大歓迎
【5 検索キーワード　　】

セル　I2からM2まで関数を作りました。
これらをまとめて、セル　I34000 M34000　までコピーしたいのですが、やり方がわかりません
どうか教えてください。　よろしくおねがいします
392 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/21(木) 19:31:12 ]: >>391
I2からM2
393 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 19:32:17 ]: >>388
うおｗわかりやすく、極端な数字使おうと思ってたら、
元の方を変えるの忘れてたｗ

>>389
ありがとう！ちょっといじってみる。
394 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/21(木) 19:32:47 ]: >>391
I2からM2を選択
そしたらその枠線の右下に黒い四角がでるでしょ
これを下へドラッグ(クリックしながらマウスを下に動かす)する
ちなみにこの動作をオートフィルという
395 名前：名無しさん＠そうだ選挙にいこう [2010/01/21(木) 19:37:12 ]: ＞＞３９４
ありがとうございました
396 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 19:38:29 ]: >>391
3つある

I2からI2を選択して、右下の■を下へドラッグ
34000行目でうまい具合にやめる

I2からI2をコピー
I3から、M34000までドラッグして選択
その上で貼付け

Sub コピー()

Range("I2:M2").Copy
Range("I34000:M34000").Select
ActiveSheet.Paste

End Sub
397 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/21(木) 19:41:12 ]: >>396
Range("I2:M34000").Select
じゃね
398 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 19:41:56 ]: 失礼ｗ
399 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 19:55:24 ]: >>391
"名前ボックス"を活用すれば簡単ですよ。（例：A1を選択しているとき、シート
すぐ左上にA1と表示しているボックス）

１．まずI2からM2を選択するのですが上記の名前ボックスへI2:M2と記入する。
２．コピー
３．今度は名前ボックスにI34000:M34000と記入する。
４．貼り付け

で完了。　
400 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 20:04:16 ]: >>391
名前ボックスに i2:m3400 と入れる。
Ctrl+D

ドラッグとかマクロとか、もうね…
401 名前：３９９ mailto:sage [2010/01/21(木) 20:05:27 ]: 誤
３．今度は名前ボックスにI34000:M34000と記入する。
正
３．今度は名前ボックスにI2:M34000と記入する。

でしたね。失礼。
402 名前：名無しさん＠そうだ選挙にいこう [2010/01/21(木) 20:54:15 ]: >>396-401
皆様ありがとうございました。無事できました！
403 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 21:12:21 ]: >>382 元データを A1:Cn とすると
D1に =C2+0.1、D2に =C2、D3に =C2-0.1、E1に =A1 と入力
D1:E3 を選択して、n行目までオートフィル
選択状態のままコピー値貼付け、ＣＤＥ列を降順並び替え
A1に =E1 と入力、n行目までオートフィル
選択状態のままコピー値貼付け、ＤＥ列削除
404 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 21:14:24 ]: ＞ＣＤＥ列を降順並び替え
Ｄをキーに、が抜けてました。
405 名前：名無しさん＠そうだ選挙にいこう [2010/01/21(木) 22:18:10 ]: 小文字で書いて同セルで大文字に変換させる事は可能ですか？
406 名前：名無しさん＠そうだ選挙にいこう [2010/01/21(木) 22:28:53 ]: >>405
シートモジュールに
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = StrConv(Target.Value, vbUpperCase)
End Sub

ってすれば可能。でも、このままだったら使い勝手が悪いから範囲なり指定してあげないとダメ
一般機能では同一セルではムリじゃね？
407 名前：名無しさん＠そうだ選挙にいこう [2010/01/21(木) 22:43:51 ]: >>406
ありがとうございます
408 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/21(木) 23:10:08 ]: >>406
それだと無限ループにならない？
一旦イベント止めないと

Private Sub Worksheet_Change(ByVal Target As Range)
　Application.EnableEvents = False
　Target.Value = StrConv(Target.Value, vbUpperCase)
　Application.EnableEvents = True
End Sub
409 名前：名無しさん＠そうだ選挙にいこう [2010/01/22(金) 00:21:57 ]: すいません、どこで聞けばいいのかわからないのでスレチと思いますが
教えてください。

このスレやエクセルの学校なども３日間見ましたが、結局自分には
荷が重いと判断し、どこか？どなたか？に売上げデータ表計算を
データから日報、月報を組み上げて頂きたいと思っているのですが
どこで、どんな組織にどのように依頼するのがいいのでしょうか？
会社で依頼するような大掛かりなものでもなく、自分の担当する部門の
ほんのちょっと知識があれば出来そうなコトなんですが、自分にはどうにも
期限に間に合わせることが出来なさそうな事態なんです
もちろん会社の売上げデータゆえココでＵＰしてさらすわけにもいかず
かといって、きっとココの人たちなら簡単にこなしてしまうであろう
内容を業者に個人で出すのもなんだかなぁと思い困っています。
どなたか、よい情報ないでしょうか？
410 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/22(金) 00:34:03 ]: >>409
お仕事としての依頼ですか？
それともタダでやってちょうだいということですか？
411 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/22(金) 00:40:00 ]: タダでやってちょうだいということです
412 名前：名無しさん＠そうだ選挙にいこう [2010/01/22(金) 00:45:49 ]: タダでもいいという趣味の範囲でやっていただける位と思える内容なんで
どこに頼んで、いくらくらいというのもわからないんです。
もちろん依頼するわけですから、無料でない可能性が高いのですが
個人ゆえに相場もわかりません
すいません、どこかないでしょうか？
413 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/22(金) 00:48:41 ]: >>409
身の丈に合わぬ仕事を安請け合いした己を恥じよ。
414 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/22(金) 00:53:24 ]: >>412
場所はどこですか？
直接訪問する必要があるのか、メールや電話のやり取りでわかりそうなのか。
何日くらいでできそうなのか、支払えるとしたらいくらまでなのか。

相場は私よくもわかりませんが、ソフトハウスに頼むと1人月50万以上ではないでしょうか。
415 名前：名無しさん＠そうだ選挙にいこう [2010/01/22(金) 01:09:53 ]: ５０万ですか。
ただの表計算なんですが・・・。
自分の無力、無学を嘆いて謝っときます。
詳しい人ならメールのやり取りで半日もかからない作業だと
思いますが、自分で教室に通ったほうが安いですね。
情報ありがとうございました。
416 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/22(金) 02:13:25 ]: グダグダ書いてねーで、ダミーのデータをうｐして
こんな感じのが作りたいって書け
417 名前：複乳 [2010/01/22(金) 08:50:18 ]: >>400
ドラッグしらなそうだったしなー
じゃあ別解でジャンプはどうよ
ctrl+gで範囲を入力、ok
どうみても名前ボックスのほうが早いですね。ありがとうございました
>>409
売上データ　エクセル　テンプレート
でぐぐれ
大昔1シート3000円でエクセル作成ってDMがFAXで来たことがあったが
どこか分からない
418 名前：名無しさん＠そうだ選挙にいこう [2010/01/22(金) 20:01:18 ]: 質問です
複数のdatファイルを一括でcsvファイルに変換する方法を
ご存知の方はいらっしゃいますか？
教えていただけると助かりますm(_ _)m
419 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/22(金) 21:43:33 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】vba ivent
A1セルの文字列に応じた文字列をB1セルに表示したいのです。
A1の候補は日常的には10種類ほどなのですが、
時々こちらの想定していない文字列が入ることがあり、
その場合はA1、B1ともに手作業で入力するようにしたいです。
だから「B1＝VLOOKUP(A1,…」は使えない？　ような気がします。
VBAのiventだと可能でしょうか。
ちょっと調べてみたところ、「特定のセルに特定の文字列が入った場合に作動する」
というのはできなさそうなふいんき（何故か変換できない）でした。
うまい方法はないものでしょうか。
420 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/22(金) 22:48:01 ]: >>419
vlookupで入力してエラー値に条件付き書式で色つきにでもするほうが早い気もする
>>418
datの形式は色々あるので答えられない
421 名前：名無しさん＠そうだ選挙にいこう [2010/01/23(土) 00:17:52 ]: >>416,417
ありがとうございます。
ぐぐってみますが、わからなかったときはブック毎どこかに
ＵＰすれば御意見いただけますか？
今日はとりあえず平謝りで作業丸投げしてきました。
情けない限りです。
422 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 08:50:57 ]: >409,421
ブックをアップする際には、くれぐれも会社や個人の情報が出ないようにしてください。
シート上で目に見えるものだけが情報ではありません。

メニューのファイル-プロパティで「ファイルの概要」タブには
タイトル、サブタイトル、作成者、管理者、会社名などの項目があります。
その他、隠しシート、非表示列・行、文字色が白になっているセルやテキストボックスなど
いろいろあります。
423 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 10:34:21 ]: >>422
作業丸投げということは他の人がやることになったのだろう
424 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 10:59:16 ]: >>421
まとりあえずピボットテーブル覚えればいい。
ピボットテーブル使えるようにブックを作れ。
エクセルのコツはこれだけだ。
425 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 12:33:52 ]: >>424
結果の数字さえ出ればいいんならピボットテーブルだけで足りるけど、
体裁を整えて報告書にするとか特定のフォーマットで出力しなきゃならんとかだと
もうちょっとExcelを勉強する必要がある。
426 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 12:42:42 ]: 【1 OSの種類　　　　 .】 Windows xp
【2 Excelのバージョン　】 Excel 2000
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 if　削除　
質問が2つあります。エクセルで部品番号（A列に4000個）を管理しています。
管理しているソフト（データベース）から部品番号を出力すると、今までエクセルで管理している部品番号に「-」、「/」、（例：145-356　→145356、145-35//6　→145356）や桁数が古い場合（5桁）、部品番号の頭に「0」（例：　45-356→045-356）
が追加されます。
毎度、毎度「-」や「/」や頭の「0」を削除するのが面倒です。
下記①②ついてご教授ください

①「-」や「/」を削除する方法でもっと単純方法が知りたい
A列に部品番号あります。
　作業列をB,C,Dにつくり
　B列に　「－」の削除　　=SUBSTITUTE(A1,"-","")
　C列に　「/」の削除　　=SUBSTITUTE(B1,"/","")
　D列にC列をコピーして「値を貼り付け」
しています。
ほかにもっといい方法あれば、ご教授ください

②　上①の部品番号のなかで、古い部品は桁数が1桁少なく、頭文字に「0」ついているもがあります。
部品番号の中で頭文字に「0」がついているものだけ、「0」を消したいと考えています。
やりたいこと　045-123　→45-123　　　　　頭（左）が「0」の場合は消す
　　　　　　　　　145-123　→145-123　　　　頭が「0」じゃない場合はそのまま

if文を使えばできるのか、マクロじゃないとできないのか、ご教授ください（もしよろしければ関数も）
427 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/23(土) 12:50:55 ]: >>426
１は置換。置換後の文字列を指定しなければそのまま削除と同じことになる
マクロの記録でボタンに登録すればもっといい感じに
２は=IF(LEFT(A1,1)="0",RIGHT(A1,LEN(A1)-1),A1)
428 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 12:51:02 ]: >>426
2はleftで最初の1文字を取得して、ifで
0の場合はmidで2文字目から最後まで(セルの文字数を取得して抜き出す文字数を数える)抜き出す、
0以外の場合はそのまま、
で一応の目的は果たせる。あまりかっこ良いやり方ではないけど。
429 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 12:53:08 ]: ①置換
②=IF(AND(LEN(A1)=7,LEFT(A1)="0"),RIGHT(A1,6))
430 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 13:12:21 ]: ちなみにＡ列に①と②が混在しているときに"-"の置換すると②の頭の0は消える
のな。（書式：標準の場合。）
431 名前：426 mailto:sage [2010/01/23(土) 14:08:18 ]: >>427->>430
ありがとうございます。できました。

>>427
置換後で文字列を「""」で何もなしを指定して削除しています。　何も指定しなければ削除になるんですか？
=SUBSTITUTE(A1,"-",)でもできました。

>>430
たしかに消えました。ありがとうございます。
432 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 15:06:03 ]: sum()などの関数で範囲指定をする時、
1000行を超えような時、マウスで指定していると、
通り越してしまったり、遅かったりで困っています。

CTRL+↓みたいな、効率的な操作方法はないでしょうか？
433 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 15:13:37 ]: >>432
あらかじめ範囲を確認して直接括弧内へ入力してもいいのですよ。
434 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/23(土) 15:13:44 ]: >>432
F8、shift＋F8とかどう
435 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 15:18:46 ]: shift+ctrl+↓
436 名前：名無しさん＠そうだ選挙にいこう [2010/01/23(土) 17:01:32 ]: コンマの入ったデータを、「テキスト(タブ区切り)」で保存して、あとで中身を見ると
そのコンマを使ったデータにわさわざ"(ダブルクウォーテーションマーク)が囲まれてしまいます。

これを防ぐにはどうしたらいいですか？
437 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 17:14:44 ]: わかんないけど、テキストエディタで"を置換すればおｋ
438 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 17:19:04 ]: 【1 OSの種類　　　　 .】 WindowsXP Pro SP3
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 max関数

項目│値│項目ごとの最大値
A　　│100│130←※ここ(C2)を求める数式を作成したいです。
A　　│130│130
A　　│120│130
B　　│100│110
B　　│110│110
C　　│200│200
C　　│100│200
C　　│150│200
C　　│130│200
↑項目数は一定ではありません。

※項目ごとの最大値を求める数式を作成したい。
※セルC2に数式を入れ、C列にコピペできるようにしたい。
439 名前：名無しさん＠そうだ選挙にいこう [2010/01/23(土) 17:22:20 ]: >>437
なるほどそんな裏技がありましたか
440 名前：名無しさん＠そうだ選挙にいこう [2010/01/23(土) 17:31:23 ]: しかし置換以外に本当に方法はないの？
441 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 17:43:24 ]: >438
おたずねします。
Ｑ１　Ａ列はソートされているの？
Ｑ２　Ａ列でソートされていない場合、キー１：Ａ列、キー２：Ｂ列でソートしていいの？
442 名前：名無しさん＠そうだ選挙にいこう [2010/01/23(土) 17:59:54 ]: >>438
=INDEX(MAX(($B$2:$B$10)*(($A$2:$A$10)=A2)),0)
443 名前：426 mailto:sage [2010/01/23(土) 18:10:19 ]: 置換理解しました　すいません
ctrl+H　のすべて置換ですべてがうまくいきました
444 名前：名無しさん＠そうだ選挙にいこう [2010/01/23(土) 18:10:48 ]: =MAX(($B$2:$B$10)*(($A$2:$A$10)=A2))
これを入力した後、Ctrl+shift+Enterで確定でも可（式の前後に｛　｝がつく）
445 名前：438 mailto:sage [2010/01/23(土) 19:14:54 ]: >441-444

442さんの方法で441さんのソートにも対応できました。
THXです。
446 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/23(土) 19:28:37 ]: >>440
重いつかない。もともとその仕様はcsvの時のもので、タブ区切りに流用しちゃったのかも
MSに要望だせば治るかもしれないね
447 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 22:48:32 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel 2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】並べ替え　グラフ

A　1
B　2
C　3
D　4
E　5

上のような感じのA列に文字、B列に数字が入っている表があって、
この表から普通の棒グラフにしたいのですが、グラフは

A　5
B　4
C　3
B　2
A　1

というように数字を降順で並べ替えてグラフにしたいと思っています。
元の表はABC順のままです。
こういうのは可能でしょうか？
数字を降順で並べ替えた表は「表示させないで」グラフにしたいんですが…。
VBAで出来るなら調べて勉強しようと思うので教えていただけると助かります。
448 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/23(土) 22:59:24 ]: つい最近似た様な質問あったから検索してみ
449 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/23(土) 23:28:37 ]: >>448
見つかりました
ありがとうございます
450 名前：422 mailto:sage [2010/01/24(日) 00:43:48 ]: >>423-426
ありがとうございます。
今回困ったのが、まずシートは４シート
シート1＝形式がある程度決まっている結果を表示する「日報」、シート２＝レジから出力されるレシート１の結果を日ごとに入力したもの
日付　　売上げ　　　りんご　　　バナナ　　　みかん　　・・・・
1/1　　　150000　　　20000　　　15000　　　　10000　　　・・・・
1/2　　　120000　　　16000　　　12000　　　　8000　　　・・・・
1/3　　　100000　　　30000　　　10000　　　　12000　　　・・・・
シート３＝レジから出力されるレシート２の結果で当日の各伝票毎の項目の詳細
1/1　　　りんごA×2 産地Ｂ　　　価格Ｃ
1/1　　　みかんＣ×3　産地Ｄ　　　価格Ｈ
1/1　　　りんごＢ×1　　産地Ｂ　　　価格E
1/1 バナナA ×4 産地Ｃ　　　価格A
1/1　　　りんごＢ×2　　産地Ｂ　　　価格E
　・
　・
　・
1/2　　　りんごＢ×6　　産地A 価格A
1/2 みかんA×4 産地Ｃ　　価格Ｄ
　・
　・
シート４＝月初に決めてある日ごと予算表
で、シート１日報はまずDATEにて日付を入力を２箇所（10/1/1や10/1/18など合計したい開始日と10/1/23の当日の日付入力。開始日を月初や週頭の月曜に設定し、本日までの合計をさせる為）
で、
①、当日売上げや予算を「日報」の所定のセルに表示させるのはVLOOKUPにて当日日付をシート２から検索して表示させられるのですが、その右横に設定した期間に対応した合計を表示したいのですが、期間が変動する
場合、どのような数式にしたらよいのかわかりません。
②、当日、累計ともに項目毎の合計をシート３からどのように拾い出して合計していいのかわかりません。
（当日の場合、シート３の同じ日付の中から同じりんごＢを拾い出し、数を合計する方法。累計の場合、期間が変動する状態で合計する方法）

ブックをｕｐする度胸がないのでこのようなかき方になってしまい、わかりにくいのですがどなたか読み取れた方が
おられましたらご教授お願いいたします。
451 名前：名無しさん＠そうだ選挙にいこう [2010/01/24(日) 00:52:48 ]: A1 B1
A2 B2
A3 B3
・　　・
・　　・
・　　・
A800 B800

のようにデータが大量にあります。これをメモ帳に、
[1行目] A1
[2行目]
[3行目] B1
[4行目] A2
[5行目]
[6行目] B2
[7行目] C1
[8行目]
[9行目] C2
[10行目] D1
[11行目]
[12行目] D2

のように書き出したいのです。どうすればよいでしょうか？
452 名前：名無しさん＠そうだ選挙にいこう [2010/01/24(日) 00:54:43 ]: >>451補足。

つまりExcelでA1～B800の縦長の長方形内に、文字列データが800x2=1600個あって、
それをメモ帳に上記のように3行セット(真ん中は空行)で書き出したいのですが、
どうすればいいでしょうか？
453 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/24(日) 00:56:07 ]: >>452
CとDってどっからでてきたの
13行目以降もないとわからない
454 名前：451 [2010/01/24(日) 00:57:48 ]: すみません、間違えました!
451のは正しくは下です。

[1行目] A2
[2行目]
[3行目] A1
[4行目] B2
[5行目]
[6行目] B1
[7行目] C2
[8行目]
[9行目] C1
[10行目] D2
[11行目]
[12行目] D1
　　　・
　　　・
　　　・
455 名前：名無しさん＠そうだ選挙にいこう [2010/01/24(日) 00:59:15 ]: >>453
ありゃ、また間違えてました！
正しくは、

[1行目] B1
[2行目]
[3行目] A1
[4行目] B2
[5行目]
[6行目] A2
[7行目] B3
[8行目]
[9行目] A3
[10行目] B4
[11行目]
[12行目] A4
　　　・
　　　・
　　　・
456 名前：名無しさん＠そうだ選挙にいこう [2010/01/24(日) 01:00:10 ]: [2398行目] B800
[2399行目]
[2400行目] A800

です。
457 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/24(日) 01:36:00 ]: >>456
C1=IF(MOD(ROW(),3)=1,INDIRECT("r"&INT((ROW()-1)/3)+1&"c2",0),"")&IF(MOD(ROW(),3)=0,INDIRECT("r"&INT((ROW()-1)/3)+1&"c1",0),"")
下にオートフィル。それをメモ帳にコピー
>>450
めんどいので①以降しか読んでないけど
>その右横に設定した期間に対応した合計
sumifか？
あと表の>りんごA×2
の表記はまずい
りんごAと2は別の列にする。分け方はデータの中にある区切り位置でもfindで×を見つけてmid等で切り離してもいい
そうすればピボットなりsumproductなりが使えるようになる
とりあえずファイルがないとしんどい
1から作ったダミーファイルをアップロードすることはできんもんかねー
458 名前：456 [2010/01/24(日) 01:47:37 ]: >>457
ありがとうございます！
これはすごい。魔法みたいだ。今年一番感動した！
459 名前：450 mailto:sage [2010/01/24(日) 01:48:33 ]: >>457
そうですよね、わかりにくいですよね。
罫線等そのままで名称を変更したファイルをｕｐですね。
どうやってどこにｕｐしたらいいでしょうか？
明日以降で作ってみます。

ありがとうございます。
460 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/24(日) 02:06:30 ]: >>459
アップローダーのの通称斧
ttp://www.axfc.net/uploader/
461 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/24(日) 14:09:52 ]: >451
まあ感動してるんだからいいんだけど
オレならこうする

C1に ^=b1、C3に ^=a1 と入力
C1:C3選択、オートフィル、 ^ を空白に置換、メモ帳へ
とか

A1に空セルを入れて１行ずらしてＡＢ列コピー
ワードに値貼付け（制御文字置換の為）
^p を ^p^p に、^t を ^p に置換、txt保存
とか
462 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/24(日) 18:15:48 ]: >>461
MODとROWとINDIRECT駆使する手法は覚えないほうがいいよね。
センスが悪くなる。
463 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/24(日) 19:22:42 ]: >>462
センスというよりINDIRECT使いは馬鹿って大体決まってるよ。
まぁ無い頭を振りしぼってMODやらINTやらROWやらINDEXでやるより>>461みたいのが一番楽だな。
頭はほとんど使わなくていいし。
464 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/24(日) 21:02:07 ]: 例えば、A列 B列 C列にそれぞれ野菜の名前がランダムで入っているとして、
どれかの列にキャベツがある行を抽出するにはどうすればよいのでしょうか？
465 名前：名無しさん＠そうだ選挙にいこう [2010/01/24(日) 21:30:08 ]: >>464
じっさいファイル開いてキャベツを探したほうが早くないか？
466 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/24(日) 21:53:43 ]: >>464
フィルタかピボットテーブル
467 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/24(日) 22:47:05 ]: >>466
ピボットでどうやるの？
468 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/24(日) 22:50:02 ]: >>464
3列に分けないで全部1列にするんだ。
469 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/24(日) 23:34:52 ]: >>464
D列にa,b,cのどれかにキャベツが入ってれば１を返す式をつくってフィルタ
470 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/25(月) 00:57:32 ]: >>464
と同じだけど
D1=IF(ISERROR(FIND("キャベツ",A1&B1&C1)),0,1)
>>461
俺もそっちの方が良いと思う
471 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/25(月) 18:01:16 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】条件付き書式　コピー

ご相談です

WindowsXPのExcel2007を使っています

テーブルで、ある列に○の記号がある行の文字を太文字にしたいと思い、
条件付き書式で、一つの行ではできたのですが、
この条件付き書式を他の行にも反映させたいのですが、どうすればよいでしょうか？

条件付き書式で一個一個、手入力で入れていくのは大変なため、
なにかスマートな方法があれば、教えてください

↓イメージ図
www.dotup.org/uploda/www.dotup.org592916.jpg
472 名前：複乳 [2010/01/25(月) 18:14:24 ]: >>471
1.コピーして貼り付け
2.1.だと数値などもコピーしてしまうのでコピーして張り付ける際に「形式を選択して保存」で「書式」のみ
3.2.だと罫線なども移動してしまうので、
嫌だったら新しいシートに条件付書式を先に設定してから数式や罫線をコピーしよう
Ctrl+Aで全選択してからコピーすれば5.6回の作業で全てが終わるはず
473 名前：471 mailto:sage [2010/01/25(月) 18:49:25 ]: >>472
レスありがとうございます

「形式を選択して貼り付け」→「書式」のみで、やってみたところ、
記号が△なのに、太文字になってしまいました・・・

条件付き書式ルールの管理の画面を開いたところ、
ルールがおかしいのかなと思うのですが、
正しく反映させるには、どのように記述すればよいのでしょう？

↓条件付き書式ルールの管理のキャプチャです
www.dotup.org/uploda/www.dotup.org593003.jpg

よろしければ、教えて頂けますと助かりますm(_ _)m
474 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/25(月) 20:15:43 ]: >>473
=C5="○"
にしてからコピーする。絶対参照は分かるか?条件付き書式でも絶対参照・相対参照はあるぞ。しかもデフォルト設定が絶対参照だからややこしい
ちなみに今のままだと「かきくけこ」の行も「あいうえお」の右となりの○を元に、条件付き書式が設定されている
475 名前：sage [2010/01/25(月) 20:51:04 ]: tesuto
476 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/25(月) 21:17:49 ]: >>473
A列～D列まで選択した状態で条件付き書式をセット
数式で、=$B1="○" のときに太字にしておくとよろし。
uproda11.2ch-library.com/22216372A/11222163.jpg
477 名前：名無しさん＠そうだ選挙にいこう [2010/01/25(月) 21:20:26 ]: ：名無しさん＠そうだ選挙にいこう：2010/01/25(月) 18:01:16
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 VROOKUP・IF

シート1
　　　 A 　　　　　　 B 　　 C 　　 D
1 年月日　　　　　　　　　　時刻　　　　温度　　湿度
2 H22/01/05 　　　　　　 09:01:31　　　7　　　 59
3 H22/01/05 　　　　　　13:05:42　　　10　　　47
4 H22/01/05 　　　　　　15:03:01　　　11　　　54
5 H22/01/06 　　　　　　 09:03:47 6 31
6 H22/01/06 　　　　　　13:06:19 10 48
7 H22/01/06 　　　　　　15:08:51 14 34

シート2（１月）
A 　　 B 　　 C 　　 D
1 　　　　　　　温度　　　湿度　　H22/01/05
2 09時　　　 7　　　　 59
3 13時　　　10　　　 47
4 15時　　 11 54
5
6 H22/01/06
7 09時
8 13時
9 15時
シート1のデータが6か月分あり、このデータをシート2のそれぞれの日付の時間帯のセルにデータを転記させたいのですがどうすればいいでしょうか？
宜しくお願いします。
478 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/25(月) 21:23:38 ]: VROOKUP
479 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/25(月) 21:40:29 ]: >>478
俺の知らない関数だわ

ⅤLOOKうｐ
480 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/25(月) 21:43:59 ]: >>479間違い
VLOOOOOOOKUPだろ
481 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/25(月) 21:45:06 ]: >>477がVROOKUPで検索かけてたのか
すまんw
482 名前：471 mailto:sage [2010/01/25(月) 21:46:10 ]: >>474
レスありがとうございます
絶対参照と相対参照を調べてみました
ふつうにセルをクリックしちゃうと、絶対参照になってしまうのが不便ですね

>>476
うおおおお！これです！！
これがしたかったんです！！

実際にやってみたところ、正しく反映されました！
キャプチャ画像も載せていただいて、ありがとうございます！

レスをくださった方々には心から感謝しますm(_ _)m
483 名前：477 [2010/01/25(月) 22:00:39 ]: >>477

すみません。
VLOOKUPの間違いですorz
484 名前：名無しさん＠そうだ選挙にいこう [2010/01/25(月) 22:58:36 ]: =ADDRESS(MATCH(C45,'sheet1'!C1:C61,0),4,,,"'sheet1'!")
って打つときちんと値や文字列を返してくれるのに、
これに↓のようにindirectをつけると#REFってなります。

=INDIRECT(ADDRESS(MATCH(C1,'sheet1'!C1:C61,0),4,,,"'sheet1'!"))

どうしたら、きちんと値を返してくれるんでしょうか？
485 名前：484 [2010/01/25(月) 22:59:50 ]: すみません。
この操作をsheet2で行った場合です。
486 名前：名無しさん＠そうだ選挙にいこう [2010/01/26(火) 01:51:49 ]: エクセルに画像を挿入したときに自動的にそのマスメにあうようにするにはどうすればいいですか？
487 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/26(火) 08:48:38 ]: >>484
ADDRESS関数のシート指定が間違ってる。HELPをきちんと読みましょう。
アドレス指定の書式がおかしいのでINDIRECTがエラーになるのは当然。
488 名前：複乳 [2010/01/26(火) 09:04:00 ]: >>486
alt押しながらサイズ変更だったかなぁ
ただし横だけっぽいので、縦横あわせようと思えば直接サイズ指定かvba
マクロの記録ですぐにできると思う
489 名前：名無しさん＠そうだ選挙にいこう [2010/01/26(火) 10:26:12 ]: Excel保存時に出る共有エラーを調べてます。
ファイルを開いて一度目の上書き保存は成功二度目の上書き保存で必ずと言っていいほど
共有エラーが発生します。ググってみるとウイルスバスター2010が原因と出てくるのですが、
ウイルスバスター2010は使用しておらずウイルスバスタービジネスセキュリティーを使用してます。
トレンドマイクロのサポートにも特に現象対応策は掲載されていません。

解決策をご存じな方、ご教授をお願いします。
490 名前：名無しさん＠そうだ選挙にいこう [2010/01/26(火) 10:26:58 ]: 489です。
環境を書き忘れました。
Windows7 64bit
Office 2007 ent + SP2
491 名前：複乳 [2010/01/26(火) 10:35:38 ]: >>489
トレンドマイクロに直接聞いたほうが早いと思う
もしかしたら不具合発生の第一号かもしれないしねぇ
あとエラーの時はエラーメッセージそのままを検索キーワードにすると解決することがたまによくある
492 名前：名無しさん＠そうだ選挙にいこう [2010/01/26(火) 10:47:05 ]: >>491
ご指摘の通りエラーメッセージでググって見ましたところ
下記の対応で解決した模様です。
blogs.dion.ne.jp/jubibusagsx1300r44magnum/archives/8032919.html

ありがとうございました。
493 名前：質問1/3 mailto:sage [2010/01/26(火) 16:10:14 ]: 【1 OSの種類　　　　 .】 MacOSX10.6.2
【2 Excelのバージョン　】 Excel 2004
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 excel 数値が範囲に含まれているか

ある範囲の数値（範囲の下限値がAのカラム上限値がBのカラムに入力されている）
30,000行ほど並んだ表があります（１）。
これらのデータのうち、数値がある範囲に含まれているかどうかを判定して
含まれている列だけを取り出すと言う操作をしたいです。

判定に用いる数値データも前述のものと同様に上限値と下限値があります（２）。
（１）は毎回替わる生データ（２）は不変なデータベースと考えてください。
494 名前：質問2/3 mailto:sage [2010/01/26(火) 16:11:31 ]: 数字のフォーマットは
たとえば
（１）
A B
1 1000
1500 1800
2500 3000
3500 4000
4200 4800

（２）
A B
500 900
1600 1700
2800 2900
3100 3400
4000 4500

みたいな感じです。
495 名前：質問3/3 [2010/01/26(火) 16:12:48 ]: 表計算をすると、1,2,3,5行目だけがリストでソートされ
4行目はリストから外れる

こういう感じのことがしたいのです。
もちろんC以降の列にはいろいろとデータがありますが
比較参照したいのはA, Bの列だけです。

よろしくお願いします。
496 名前：複乳 [2010/01/26(火) 16:36:56 ]: >>493
表1がAB列、表2がDE列に並んでいるとして
C1=AND((A1<E1),(B1>D1))
でオートフィル、C列でTRUEヲオートフィルタか
微妙に自信がないので確かめてね
497 名前：複乳 [2010/01/26(火) 16:38:17 ]: ああ、1行目は金額など、項目の名前にしたほうがいい
それでオートフィルタした後の表をコピーすれば、抽出されなかったものは飛ばしてコピーできる
498 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/26(火) 18:55:43 ]: ５行目は外れないのか？
499 名前：名無しさん＠そうだ選挙にいこう [2010/01/26(火) 22:44:08 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】「セル参照と同じ名前を定義することはできません」「R1C1参照形式　名前の重複」

R1C1形式からA1形式に戻せずに困っています。
対応を試みましたが、うまくいきません。
①まず「ツール」→「オプション」→「全般」→の設定で
R1C1の設定のチェックをはずしました。
そうすると、「セル参照と同じ名前を定義することはできません」
というエラーメッセージが出ました。

②そこで「メニュー」→[挿入]→[名前]→[定義]で出てくる名前をすべて消しましたが、
再び①を実行すると同じエラーメッセージが出ます。

どうすれば戻れるでしょうか？
ご存知の方がいれば教えて下さい。
よろしくお願いします。
500 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/26(火) 23:11:02 ]: ファイルみないとわかんね
501 名前：名無しさん＠そうだ選挙にいこう [2010/01/27(水) 00:28:14 ]: 今頃2000使用ですいません
セルの中に例えば
1000
2000
3000
とデータを複数入れるにはどうしたらいいんでしょうか
表示はもちろん最初の1000だけでいいんです
502 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/27(水) 01:55:16 ]: >>501
セルの中で改行するのはAlt+Enterだが、その数字はそのセルに表示されるだけで
計算には使えないぞ。それでもいいのか?
503 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/27(水) 07:46:53 ]: >>501
定数配列
={1000,2000;3000,4000;5000,6000}
これで横２縦３の表代わりになる
=VLOOKUP(1000,{1000,2000;3000,4000;5000,6000},2,0)
とかね
エクセルで使う場面は非常に少ない気がする
504 名前：名無しさん＠そうだ選挙にいこう [2010/01/27(水) 18:14:51 ]: 【1 OSの種類　　　　 .】 WindowsVISTA
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】不可
【5 検索キーワード　　】「日時の推定」

質問です。例えば
１スレ目：「開始日時2010/01/19(火) 22:22:36」「終了時刻2010/01/19(火) 23:12:59」
２スレ目：「開始日時2010/01/19(火) 23:11:09」「終了時刻2010/01/20(水) 00:02:45」
３スレ目：「開始日時2010/01/20(水) 00:02:56」「終了時刻2010/01/20(水) 00:22:08」
４スレ目：「開始日時2010/01/20(水) 00:21:48」「終了時刻2010/01/20(水) 00:34:70」・・・・

のようなデータを入力し、このスレが１００スレ目に到達する日時はいつか・・・？という数式を作成したいです。(時刻は適当)
文章が下手ですみませんが、よろしくお願いします。
505 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/27(水) 19:40:51 ]: １００スレ目は１スレ＋９９レスなので、2010/01/19+99が該当する年月日となる
506 名前：501 [2010/01/27(水) 20:18:27 ]: >>502-503
レスどうもです
どうやら後者方法で良さそうです
前者方法ですと縦にデータが全部表示されて行が太くなってしまいましたので・・・

そしてそこで更なる問題が出てきました
実はこれは単なる文字列の保管としてExcelを使って管理しようとしてたんですが
>>503の方法の値の中に、アルファベットが含まれているとエラーが出てしまい
これが新しい問題となりました
={　}という式の中にアルファベットがあることで
「これは数字でない」ということによる原因だと思いますが
単なる文字列として入力するにはどうしたらいいんでしょうか

今までExcelを表計算ソフトでなく、単なる管理ソフトとしてしか使ってきてないため
ちょっと計算式になるともうさっぱりで・・・
そのため
>エクセルで使う場面は非常に少ない気がする
ということだと思います
507 名前：名無しさん＠そうだ選挙にいこう [2010/01/27(水) 20:50:29 ]: >>505
時刻は適当に書きましたが、1日ごとにスレが終わるのではなく
２日間かかったり、半日かかったりなどの場合でお願いします
508 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/27(水) 21:04:54 ]: じゃあ、５０日後から２００日後の間だわな。
509 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/27(水) 21:35:19 ]: それならたとえば１０レスまでに１５日かかったのなら１００レス目は
100/10×15＝150日目ってことになるが
510 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/27(水) 21:36:27 ]: レスじゃなくスレだった
511 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/27(水) 21:40:59 ]: 【1 OSの種類　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】max関数、excel、ブランク、除外

A1～A50まで適当な数字が入っているとします。
Bには下記のような関数が入っています↓
B48：=MAX(A29:A48)　 (A48から20個さかのぼって最大値を出したい。)
B49：=MAX(A30:A49)　 (A49から20個さかのぼって最大値を出したい。)
B50：=MAX(A31:A50)　 (A50から20個さかのぼって最大値を出したい。)

もし、Aのセルに空白がある場合には、そのセルを無視して20個さかのぼり最大値を算出したいです。
例えば、A29とA30の2つのセルが空白なら、B48ではA27からA48までの20個の数値で最大値を出したいですが、
よい方法はありますでしょうか？宜しくお願い致します。
512 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/27(水) 22:30:50 ]: >511
作業列を使う方法なら以下のようにできます。
Ｃ１セルに=IF(ISNUMBER(A1),1,0)、
Ｃ２セルに =IF(A2<>,C1+1,C1)の計算式を入れて、以下フィルコピーする
これで、数字だけがあるセルの上からの順番がわかります。
Ｂ４８セルに =MAX(($A$1:A48)*(($C$1:C48)>(C48-20)))　の計算式を入れてから
[Ctrl]、[Shift]を押しながら[Enter]を押してください。
{=MAX(($A$1:A48)*(($C$1:C48)>(C48-20)))}　というように、前後が{と}にはさまれて
表示されたらＯＫです。
以下のセルにはＢ４８セルをフィルコピーするといいです。

配列数式というものを最近知りました（>438さんの質問に対する、>442,444さんたちの回答）
複数条件を扱うときに便利です。
513 名前：名無しさん＠そうだ選挙にいこう [2010/01/27(水) 22:30:56 ]: >>511
b48に
=MAX(INDIRECT("a"&INDEX(LARGE(($A$1:A48<>"")*ROW($A$1:A48),20),0)&":a"&ROW(A48)))
下にコピー

って感じかと思うけど間違ってたらごめん
514 名前：512 mailto:sage [2010/01/27(水) 22:32:48 ]: ちょっと修正
×　Ｃ２セルに =IF(A2<>,C1+1,C1)の計算式を入れて、以下フィルコピーする
○　Ｃ２セルに =IF(ISNUMBER(A2),C1+1,C1)の計算式を入れて、以下フィルコピーする
515 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/28(木) 01:47:53 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel 2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】ドロップダウンリスト　ホイールマウス

Excelのドロップダウンリストで、下の方の項目を選択する際、
スクロールバーの上で、ホイールを回せば、一応、下の方の項目が出てくるのですが、
項目名の上でホイールを回したときも、スクロールをかける方法ってなにかありますか？

かざぐるマウスとかのマウスユーティリティも試したのですが、できませんでしたorz

なにかよい方法があれば教えてください
516 名前：511 mailto:sage [2010/01/28(木) 07:11:51 ]: >>512-513
ありがとうございます！
ものすごく助かりましたm(_ _)m
517 名前：複乳 [2010/01/28(木) 09:27:27 ]: >>504
回帰分析を使うべきなのかなぁ
keijisaito.info/econ/jp/excel_ols/idea.htm
それか
(　nスレの終わり　-　1スレの最初　)　/　n　
という式で1スレ辺りの時間が出るので、これ*100+1スレの最初の時間
開始日時　と　2010/01/19(火) 22:22:36　はセルを分けて入力すること
>>506
={"あいうえお"}
文字列の保管ならそれこそセルに入力したほうがいいと思うが
>>515
pageup、pagedown、end、homeキー
518 名前：名無しさん＠そうだ選挙にいこう [2010/01/28(木) 10:03:20 ]: パソコン買うつもりなんですけど
エクセルで関数をたくさん使ってもストレスない処理速度が出るのは
どれくらいのスペックでしょうか？
CPU、メモリで具体的に知りたいです。
誰か教えてください。よろしくお願いします。
519 名前：複乳 [2010/01/28(木) 10:19:19 ]: >>518
少ないセルにたくさんの計算式があるのはどうでもいいが、
たくさんのセルに少しずつの計算式だと重くなりやすい
個人的にはPen3の1G、メモリ128Mもあれば十分
3000円ぐらいの中古でいいんじゃない
520 名前：名無しさん＠そうだ選挙にいこう [2010/01/28(木) 11:38:24 ]: どなたかWordの達人いませんか？
下では助言者の人がぜんぜん足りてないんですけど。

Word総合相談所
pc11.2ch.net/test/read.cgi/bsoft/1263719084/
521 名前：名無しさん＠そうだ選挙にいこう [2010/01/28(木) 18:43:00 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000

マクロの勉強を使用と思ったのですが
「ツール」＋「マクロ」＋「新しいマクロの記録」を
したらさっきまで出ていた「記…」という小さなＢＯＸ
が表示されなくなってしまいました。

表示させる方法を教えてください。

あほな質問で申し訳ございません。
522 名前：名無しさん＠そうだ選挙にいこう [2010/01/28(木) 19:38:09 ]: お助けください。

経費資料で例えば
今期1月度累計がセルA1に1000円、前期1月度累計がセルB1に500円とあり、
増減率をセルC１に書式設定パーセンテージの小数点以下1桁で表示する場合、
単純にC1=A1/B1-1　で-50.0％になります。
数値が逆だったら50.0％です。

しかし、次の場合は率を具体的に出す概念があるのでしょうか？
どのような数式を入れればいいのでしょうか？

①A!=0　B1>0　のとき
②A1>0　B1=0　のとき
③A!=0　B1=0　のとき

経費なので、マイナスが出てくることはまずないという前提で
考えてくださるとありがたいです。
あらゆるケースに対応できる共通で統一できる式を教えてくださいm(_ _)m
523 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/28(木) 20:02:37 ]: >521
当方、Excel2003だけど手順は同じはず。
１　メニューバーの　表示－ツールバー－記録終了　をクリック
以上
524 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/28(木) 20:05:48 ]: >>521
マクロの記録　表示させるでぐぐる
>>522
>単純にC1=A1/B1-1　で-50.0％に
なりませんけど
まー０除算はエラーだから
=IF(ISERROR(A1/B1),A1/(b1+0.00000001),A1/B1)
と分母に小さい数を足しておけば実用的じゃないっすかねー
525 名前：名無しさん＠そうだ選挙にいこう [2010/01/28(木) 20:17:05 ]: 【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】オートフィル

オートフィル使用中（ドラッグ中）に、入力される予定のデータが右下に表示されるかと思うのですが、一台だけそれが表示できないパソコンがあるんです・・・
連続データをオートフィルで入力する場合、とっても不便で困っております。
オプション－基本設定－ポップヒントのスタイルをいじってみても変化ありません。

この原因が何か分かる方がおられましたら、対処方法をお教えいただけると助かります
526 名前：名無しさん＠そうだ選挙にいこう [2010/01/28(木) 20:19:02 ]: 521です
くだらない質問に答えていただきありがとうございました。
527 名前：501 [2010/01/28(木) 21:00:01 ]: >>517
できましたありがとう！
528 名前：522 [2010/01/28(木) 21:53:12 ]: >>524
どうもありがとうございます。

その後
ttp://oshiete1.watch.impress.co.jp/qa3697394.html
をネットで見つけて納得しました。
529 名前：名無しさん＠そうだ選挙にいこう [2010/01/28(木) 22:05:17 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000とEXCELXP
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 EXCEL　グラフ　株価チャート　重ねる

ちょっとだけ特殊な株価チャートを表示させようと思っています

日付、高値、安値だけの下のようなグラフを作ることは可能でしょうか？
www.asial.co.jp/jpgraph/demo/src/Examples/example14.php
日付、始値、高値、安値、終値の４本足のグラフは作成できるようになったのですが
高値、安値だけの棒のグラフが作成できないでいます

また
www.asial.co.jp/jpgraph/demo/src/Examples/example14.php
の縦棒をグラフエリアを移動させたりせずにすべて５ミリだけ右にずらすということは可能なのでしょうか？
４本値と上記グラフを同時に表示したいと思っているので少しだけズラしてひょうじできたら見やすいなと思っています

この機能を使ってみろや検索ワードを教えていただけないでしょうか
よろしくお願い致します
530 名前：複乳 ◆MeiY43UMr. mailto:sage [2010/01/28(木) 22:20:53 ]: >>525
バージョンが古いからか?わかんね
そんなに困るならさっさと再インストールすることをすすめる
>>529
株価グラフの左上に安値高値終値のグラフがあるからそれを使って、
終値のマーカーと線をなしにする
531 名前：名無しさん＠そうだ選挙にいこう [2010/01/28(木) 22:38:41 ]: >>529
なるほど
その手がありました
ありがとうございます
532 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/28(木) 22:48:50 ]: セルの書式の罫線って印刷するとやけに太くないですか？
三種類ある直線の一番細いタイプでも印刷すると太い。

最悪、細かい点線を選択して印刷すると細い線ぽくなるんだけど
今度は細すぎて残念な感じ。

何で毎年バージョンうｐしてるのに
罫線の太さを0.01m単位で調節出来る機能搭載しないんだろう？
オートシェイプ使いなさいってことかな？

もしかして何かいい方法があったりしますか？
533 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/28(木) 23:02:49 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 VLOOKUP

VLOOKUPを使っても、認識しない相談です。
参照する列に書式で「標準」をつかっていて、後から「文字列」に変更しても
別シートにコピーしたりすると、認識したりします。　
認識してくれません。　ソフト固有の不具合ですか？

認識率を上げる方法でなんかよい方法ありますか？
534 名前：名無しさん＠そうだ選挙にいこう [2010/01/28(木) 23:10:13 ]: >>533
何を問題にしているか分からないけれど、表示形式もきっちり同じにすれば問題なし。
後から表示形式を変えたんだったら、一回セルを編集状態にする。

エクセルの不具合じゃなくて、不勉強・・・っていうのは言い過ぎかな
535 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/28(木) 23:28:07 ]: >>534
たしかに不勉強と言われれば、言い返せません。

＞表示形式もきっちり同じにすれば問題なし
きっちり同じにしてます。
たとえば、09012341234を、「標準」でコピーして9012341234　とする。　9012341234　を文字列にする
こんな作業を行うと認識しなくなります。（認識しない場合があります）　「’」も入ってないです。

セルを編集状態にしても、認識しません。
同僚に聞いても、手動で直してると、ウチの会社レベル低いかも
536 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/28(木) 23:52:09 ]: >535

とりあえず日本語の勉強からどうぞ
537 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/28(木) 23:55:47 ]: 煽るなよ
538 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 00:00:25 ]: 日本語が下手というか、作文から苦手なんだｽﾏﾝ
539 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 01:24:12 ]: そういう時は作文せずに箇条書きにせよ
540 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 01:40:26 ]: すみませんがお願いします！！！！

=countif($a$1:$a100,<-1)
=countif($a$1:$a100,<-2)
=countif($a$1:$a100,<-3)
以下続く

をプルプルと引っ張って作りたいのですが、うまくー３、－４、－５と
増えていってくれません
どうすればいいでしょうか？
ちなみに　INDIRECTはうまく動作しませんでした
541 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 01:46:22 ]: >>540
ROW()
542 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 01:47:14 ]: =COUNTIF($A$1:$A100,<-ROW())
=COUNTIF($A$1:$A100,<-ROW())
=COUNTIF($A$1:$A100,<-ROW())
543 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 02:03:41 ]: う。動かない号泣
544 名前：名無しさん＠そうだ選挙にいこう [2010/01/29(金) 03:13:19 ]: お願いします！！！！

A1
A2
A3
A4

のデータをBの列に逆に並べ替えたいのですがどうすればいいですか？
B１－B4　に

=B4
=B3
=B2
=B1

って感じで
お願いします！！！
545 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 06:57:21 ]: >>544
=A4
=A3
=A2
=A1
とすればおＫ。
546 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 08:18:49 ]: =ROW(A$5)-ROW()
547 名前：複乳 [2010/01/29(金) 09:17:28 ]: >>532
ないと思う
メリケンはインチ大好きだからインチ基準になるし
日本人ほど枠線にこだわる民族も少ないらしい
Oooでも使うか他のソフト使うか、図で挿入してみてはどうでしょう
>>535
頭の0がなくなるってことなら、
標準にした辞典で9012341234というデータになる。頭の0は消え去る
その状態でどんな書式にしても0は戻らない
>>543
rowは行番号だから変化しなくて良いよ
どうしても気になるなら=row(a1)にしてみては
>>544
C列に4,3,2,1と入力。4,3と入力して下にオートフイルだな
その後C列で並び替えとか
548 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 09:58:42 ]: >>540
一旦文字列にしてからオートフィルすればいいよ。
д=countif($a$1:$a100,"<-1")
とか。んで置換で頭の文字を消す。
row()を使うなら
=countif($a$1:$a100,"<"&-row())
549 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 10:33:02 ]: >532
色を変えて濃淡で表現してみれば？
550 名前：名無しさん＠そうだ選挙にいこう [2010/01/29(金) 11:25:15 ]: >>548
かなり勉強になりました
ありがとう！！！！！
551 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 16:31:53 ]: >>544
=INDEX(A$1:A$4,ROW(A$5)-ROW(),)
552 名前：名無しさん＠そうだ選挙にいこう [2010/01/29(金) 19:08:54 ]: 質問します
【1 OSの種類　　　　 .】 WindowsＸＰ
【2 Excelのバージョン　】 Excel２０００
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可

A
1 愛
2　愛子
3　愛
4　愛子
5　愛

Moji = InputBox("名前")
Moji = "*" & Moji & "*"

この場合、「愛」と入力しても「愛」「愛子」と両方になってしまうのですが
「愛」と入力して「愛」だけにする方法を教えて下さい。
553 名前：名無しさん＠そうだ選挙にいこう [2010/01/29(金) 19:11:14 ]: 表がずれてました

A
1 愛
2　愛子
3　愛
4　愛子
5　愛
554 名前：名無しさん＠そうだ選挙にいこう [2010/01/29(金) 19:12:26 ]: まただ…

見にくいですがよろしくお願いします
555 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 19:14:36 ]: 前後に＊をつけると文字列中に「愛」を含む文字列がヒットする
＊をつけなければよろしい
556 名前：552 [2010/01/29(金) 19:26:15 ]: >>555
ありがとうございます

説明が悪く申し訳ない
　　　 A
1 愛あああ
2　愛子ああ
3　愛あああ
4　愛子ああ
5　愛あああ

というデータなんですよ
この場合で「愛」と入力したら「愛あああ」だけになる方法を
悩んでいます
557 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 19:29:46 ]: moji&"あああ"　で検索すればよろしい
558 名前：552 [2010/01/29(金) 19:35:38 ]: 度々申し訳ない

　　　 A
1 kjhg愛tyii
2　dede愛子lo
3　ssii愛lggc

の場合でお願いします
559 名前：名無しさん＠そうだ選挙にいこう [2010/01/29(金) 19:57:51 ]: 無理ｗ
560 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 20:07:16 ]: フィルターの範囲にカーソルがある状態で

Sub test1()
moji = InputBox("文字列は？")
crit1 = "*" & moji & "*"
crit2 = "like [!" & moji & "子]"
Selection.AutoFilter Field:=1, _
Criteria1:=crit1, _
Operator:=xlAnd, _
Criteria2:=crit2
End Sub
561 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2010/01/29(金) 21:14:02 ]: 訂正
Sub test1()
moji = InputBox("文字列は？")
Selection.AutoFilter Field:=1, _
Criteria1:="=*" & moji & "*", _
Operator:=xlAnd, _
Criteria2:="<>*" & moji & "子*"
End Sub

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

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