Excel総合相談所 64

1 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 18:06:32 ] Excelに関する質問は、ここで！ ▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━ ★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。 ★2 要望は具体例や図を使って明確かつ具体的に。 ★3 質問前に>>2-10あたりの注意書きやQ&Aを必ず読むこと。 ★4 質問テンプレ(雛形)は必須じゃないけど、 　　　OSやExcelのバージョン､VBAの可否など(下記テンプレ1〜4の情報)は必須情報。 ▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━ 【1 OSの種類 　 　 　 　 .】 Windows** 【2 Excelのバージョン 　 】 Excel** 【3 VBAが使えるか　 　 .】 はい･いいえ 【4 VBAでの回答の可否】 可･否 【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード ※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣ 　 VBAを使うのは避けたいって場合は｢否｣にしましょう。丸投げする場合は､必要に応じてブックをアップすること。 ※【5】は、あなたがGoogleやヘルプで検索した際に使ったキーワードを書いてください。 　 まだ検索してないなら、質問の前にGoogleやヘルプで検索してみてください。 　 ttp://www.google.co.jp/ 前スレ 　Excel総合相談所 63 　pc11.2ch.net/test/read.cgi/bsoft/1198283638/ 2 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 18:06:42 ] ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━ ･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 [2008/01/20(日) 18:06:49 ] ★ルールを無視すると… 　>>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 [2008/01/20(日) 18:06:56 ] ★ 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 [2008/01/20(日) 18:07:01 ] ★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法) 　▼数式･関数 　 ･ 表示形式以外の書式の取得設定、書式情報を条件とする数式 (ユーザー定義関数) 　 ･ 関数式でセルの選択状態を取得する (VBA) 　 ･ セルの値でパスを補完して、開いてないブックのセルを参照する (VBA) 　 ･ 入力したセルに結果を返す (VBA) 　 ･ 範囲を引数にしての文字列連結 (ユーザー定義関数) 　 ･ 値の書き換え、値の保持 (VBA) 　 ･ 複数の結果を抽出、不定な数の結果を返す (VBA、結果の最大数が解っていれば最大数以上の式を論理式で組む) 　 ･ 空白のセルの部分を上詰め、左詰めなどで表示する (作業セルを使って別セルに詰めて表示なら可能、それ以外はVBA) 　 ･ VLOOKUP,HLOOKUP,MATCH等の関数で､検索語を全半角両方にマッチさせる (ユーザー定義関数) 　▼VBA 　 ･ ExecuteExcel4Macroの参照で空セルと0値を区別する 　 ･ セルの値や変数値で直接変数名を指定する (配列、コレクション) 　 ･ VBのコントロール配列と同じような操作をしたい 　　　(イベント以外ならコントロール名を｢同名+連番｣にしてControls(名前 & インデックス)で処理､イベントはクラスでWithEvents) 　▼ユーザーフォーム 　 ･ フォーム上から変更したプロパティ値の保持 (シートや外部ファイルに書き出して、次回読み込む) 　▼グラフ 　 ･ 棒グラフでひとつだけ突出したデータがあった場合に波線を入れて位置を合わせる 　 　(オートシェイプなどで見た目だけそうなるように弄る、別アプリでグラフを作り、オブジェクトとして挿入) 　　┌┐ 　　〜〜 　　｜｜ 6 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 18:07:06 ] 上記 ｢Excelで出来ないこと、仕様上の制限｣ は､一般的に出来ないとされていること､出来ないと思われるものです。 間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。 Excel2007についても未確認な項目が多いので変更点が有ればご指摘下さい。 また､ここに書かれてないことでも､Excelで出来ないことはたくさんあります。 ここに書かれてないからといって必ず出来るはずだなんて思わないように。 ＞▼環境･書式 ＞ ･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する 補足 2007ではページレイアウトビューの表示時に限り、幅・高さともｃｍ単位で表示され、 指定も同じくcm単位でできる。 ただし大元がインチ系なのでなかなかピタリの値は出ない。1cm→0.98cmのように 近い値に勝手に丸められる。 7 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 18:07:11 ] テンプレ終わり 8 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 18:09:46 ] 乙 9 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 18:23:29 ] 　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 　　　|| 　　　||　━ 質問のしかた ━ 　　　||　 　　　||　★1 質問するときは、環境や条件をキチンと書くこと。情報後出しはダメ。 　　　||　★2 要望は具体例や図を使って明確かつ具体的にしる。 　　　||　★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。 　　　||　★4 質問テンプレ(雛形)は必須ではないが、 　　　||　　　　OSやExcelのバージョン､VBAの可否などは必須情報。 　　　||　 　　　||　 　 　 　　　　　　∧ ∧ 　 。 　　　||　　　　　　　　　　( ,,ﾟДﾟ)／　ｼﾞｭｳﾖｳ!!　　　　　　Ｅ[]ヨ 　 　　　￣￣￣￣￣￣￣ﾉ　　つ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ 　 　 　 　 　 　 　 　 / ￣￣￣ ./| ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 　 　 　 　 　 　 　 　 |￣￣￣￣| | | ￣￣￣￣￣￣￣￣|＿＿＿＿|/｜ 　　　　　　　　　　　　 　 　 　 　 　 ￣￣￣￣￣￣￣￣￣￣￣￣￣ 　　　　　　＼　　　　は〜〜〜〜い　　　　　　／ 　　　　∧ ∧　　　　∧,,∧　　　∧ ∧ 　　　 ( ,,　∧▲　　ﾐ　 ∧ ∧　(　　∧ ∧ 　　〜（＿(　　∧ ∧＿(　∧ ∧＿ﾐ･д･∧ ∧ 　　　　＠（＿(,,・∀・)＠ (　　 *)〜ミ＿ ( 　　,,) 　　　　　　＠（＿__ﾉ　〜（＿__ﾉ　 　 〜（＿__ﾉ 10 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 20:23:45 ] ここレベル低杉、氏ねよ 11 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 20:27:16 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003  【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 可  【5 検索キーワード 　 　 】 ユーザーフォーム　透明  ユーザーフォームの透明化は出来ますか？ 12 名前：前スレ953 [2008/01/20(日) 20:30:53 ] やろうとしていることはこういうのです。 www.relief.jp/itnote/archives/000822.php ただこれだと、大分類の項目が増えるたびに新たに 名前の定義しないといけないんでめんどくさい・・・・ 13 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 20:35:24 ] >>10 ｀;:ﾞ;｀;･(ﾟεﾟ )ﾌﾞｯ!! 14 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 20:40:02 ] >>11 API使わないとできないかな。このへん。 ttp://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpwinui/html/_Win32_SetLayeredWindowAttributes.asp 15 名前：前スレ875 [2008/01/20(日) 20:44:17 ] 下記のような質問をさせて頂き、前スレ>>882様よりご返答頂きました。 しかし、私の質問の仕方が下手で、せっかくお答えいただいたにも関わらず上手く生かせませんでした。 範囲が東京・大阪の他に埼玉、千葉などの都道府県があるのです。その場合、何か良い方法はあるでしょうか？ 何度もすみません、例にならって試してみたのですが答えが見つかりませんので宜しくお願いいたします。 貴重なスペースをどうもすみません。お礼が遅れてしまった事も合わせてお詫び致します。 スレ汚しと判断された場合はスルーしてください。 >東京　a地区　　03-ｘｘｘｘ-ｘｘｘｘ >　　　　b地区 　03-1111-1111 >大阪　a地区　　06-1111-1113 >　　　　b地区 　06-1111-1111 >　　　　ｃ地区 　06-1111-1112 >上記の様な場合、 >ドコ？ >【東京】 >何地区？ >【b地区】 >と、選択後 >答え >【03-1111-1111】 >と表示できるような計算式は2003で可能なのでしょうか？ >無知で申し訳ないです。ご教授願います。 >882 名前： 名無しさん＠そうだ選挙にいこう [sage] 投稿日： 2008/01/18(金) 12:45:09 >データの範囲が分からないので勝手に作ってためしてみた。 >・もとのデータがA1〜C5にあるとする >・ドコ？に対する答えである「東京」はA8に表示 >・何地区？に対する答えである「b地区」はA10に表示 >上記の条件だと >=VLOOKUP(A10,IF(A8="東京",B1:C2,B3:C5),2,0) >でどうでしょう？ 16 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 20:49:03 ] >>15 東京　a地区　　03-ｘｘｘｘ-ｘｘｘｘ 東京　b地区 　03-1111-1111 大阪　a地区　　06-1111-1113 大阪　b地区 　06-1111-1111 大阪　ｃ地区 　06-1111-1112 にはできないの？ その形式の方がオートフィルタもできるしDGETもできるし楽だよ。 17 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 20:49:12 ] 前ｽﾚでも書いたけど "東京a地区"　　"03-ｘｘｘｘ-ｘｘｘｘ" "東京b地区"　　"03-1111-1111" ていう表をつくってVLOOKUP()つかえばいんじゃないですか？ 18 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 21:05:29 ] >>15 882の内容でいくとIF条件でVLOOKUPで使用する範囲を分岐すればいいだけ。ネストすればいいじゃん。 882の内容が分かってないようですね。 19 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 21:16:46 ] >>18 IFのネストなんざ７レベルまでしかできないでしょ。 数が多けりゃたぶん無理。 20 名前：11 mailto:sage [2008/01/20(日) 21:16:54 ] >>14 FindWindowあたりでウィンドウハンドルを取得して、SetLayeredWindowAttributesにレイヤーを 設定すれば何とか出来そうです。 どうもありがとうです。 21 名前：15 [2008/01/20(日) 21:27:14 ] 迅速なレスに感謝します！ >>17様 アドバイスありがとうございます！都道府県と地区を組み合わせてしまうと 膨大な数の組み合わせから選択しなければならないので、条件を２つに分 けて選択し電話番号を導き出したいと考えています >>16様 >>18様 すみません、なにぶん初心者ゆえ言葉自体を把握できていません。 ググってみたのですが少時間ではチンプンカンプンでした。 それぞれDGET、ネスト時間をかけてもう一度調べてみます！ ヒント、頂きました！ 22 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 21:32:38 ] >>21 あのね、膨大な数っていったって電話番号の数だけつくらないといけないのはどの方法でも一緒なんだよ？ 都道府県名と地区名が入力済みなら　=都市名＆地区名　でキーはつくれるんだから。 なんか先が思いやられるなー 23 名前：名無しさん＠そうだ選挙にいこう [2008/01/20(日) 22:11:27 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2007（2003で編集する場合あり） 【3 VBAが使えるか　 　 .】 がんばる 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 「Excel　文字列を含むセル　数える」「Excel　複数回答　数える」 アンケートの集計をやっているのですが 複数回答可の場合がうまくいきません。 ここ↓にたどり着いたものの、範囲を書き換えても式にならなくて… ttp://support.microsoft.com/kb/213889/ja 現在は、こんな感じです。 .｜A _｜＿＿＿＿ 1｜3 2｜2,6,7 3｜1,2,4,5 4｜3,5 5｜2,7 6｜2 一つのセルに、,（半角カンマ）で区切って並べています。 それぞれの数字の数を数えたいです。 一応、書式は全て「文字列」に変換済です。 ちなみに、集計するシートとデータのシート（Data.xls）が異なるのですが (Data.xls]Sheet1!という指定でできますよね？ 24 名前：前スレの978だが [2008/01/20(日) 22:23:24 ] >997 968 [sage] Date:2008/01/20(日) 18:11:18  ID: Be: >    私の質問はスルーですか？ >    他所で質問するとマルチになるので、回答まってます。 >998 名無しさん＠そうだ選挙にいこう [sage] Date:2008/01/20(日) 18:19:55  >ID: Be: >    半日も待たずに催促する奴は永久スルーの方向で >>前スレの998　 折れには、オマイのレスがスルーされるべきだと見えたwww では、回答をできるのならどうぞ。 >>12 いいところにたどり着いてますね。簡単な名前の付け方もそこには書いてあるようなので、それが一番楽だと思っている。 25 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 23:08:30 ] >>23 各行のカンマの数を数えて、+1で出るんでﾈﾉ? 26 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 23:13:22 ] >>23 データの格納方法を失敗しましたね。 今度アンケートとるときは次のように入力しましょう。 1 3 2 2 2 6 2 7 3 1 3 2 3 4 3 5 4 3 4 5 5 2 4 7 6 2 27 名前：名無しさん＠そうだ選挙にいこう mailto:age [2008/01/20(日) 23:18:53 ] ▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━ 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 【5 検索キーワード 　 　 】 ? 仕事で判らない所などをtextにまとめて提出したところ、 上司からEXCELで再度提出して欲しいと言われました。 textの内容をExcelにコピーし再度提出したところ、 「回答等を追記できるようにしてほしい。」 と言われまた提出を求められました。 何かEXCELに便利な業があるのでしょうか？ 当方簡単な関数は使えますが、VBAはできません。 どんな方法でも良いので教えていただけないでしょうか？ 宜しくお願いします。 28 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 23:20:14 ] >>23 データをカンマで区切って集計すればよろし 29 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 23:22:28 ] >>27 Windowsなら「メモ帳」で十分ですが？ VBAも関数も必要ﾅｯｼﾝｸﾞ!! 30 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 23:32:02 ] >>27 てか、単純にコピーした文字の横か下に 回答：＿＿＿＿＿＿＿＿＿ って入れればいいだけでは？ 31 名前：名無しさん＠そうだ選挙にいこう mailto:age [2008/01/20(日) 23:48:20 ] >>29 私もメモ帳で十分だと思うのですがねー。 >>30 う〜ん！私もそうなのかなーと考えましたが、 それならメモ帳からExcelに変える意味がないと思うんですよ。 32 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 23:48:30 ] >>27 その人、番号付けて回答欄用意してもらいたいんじゃね？ 質問と回答が漏れないように。 ＩＤ　　質問　　回答 1　　　 2 みたいな表作って、質問のとこにコピーすればいいんじゃね？ で、罫線でも引いてやれば満足するんじゃね？めんどくさい上司だねｗ 質問長くて1つのセルに入りきらない時は、「セルの書式設定」ってので 「折り返してひとつのセルに表示」（うろおぼえ）で入るよ。 33 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 23:50:35 ] >>31 私も就職してからわかったのですが会社という組織には まったく意味不明の要求をする上司とうものが必ずいる ものなのです。 理解しようとする努力は不毛だよ。 34 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/20(日) 23:54:19 ] >27 質疑応答の記録を残す事は重要ですよ。 普通、Ａ列に通し番号、Ｂ列に質疑、Ｃ列に相手が 回答を打ち込めるよう空白の表を作ります。 関数とか特別なテクとかの問題じゃありません。 >>24 スルーされるべきと思うならスルー城！ 35 名前：27＝31 mailto:age [2008/01/20(日) 23:54:44 ] >>32-33 コメントありがとうございます。 短い付き合いですが、その上司は大変人柄も良く部下思いの 上司であるため、無意味な事を要求したり、嫌がらせをするとは思えません。 もしかしたら単純に>>32さんのやり方で良いのかもしれません。 36 名前：名無しさん＠そうだ選挙にいこう [2008/01/20(日) 23:56:16 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 【5 検索キーワード 　 　 】 勤務表を作っているのですが、「/」や「−」の記号で入力するとおかしくなります。 この記号には何かショートカット的な意味合いがあるのでしょうか？ 37 名前：名無しさん＠そうだ選挙にいこう [2008/01/20(日) 23:57:11 ] >>33 意味不明の要求といえば fj などの NetNews の機能に由来する要求で 前スレ >>997 みたいな犠牲者を生み続けている >>3 あたりもそうだな。 38 名前：名無しさん＠そうだ選挙にいこう [2008/01/20(日) 23:58:24 ] 他で同じことを聞くな、と言った責任はとるべきだろう。 39 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:00:51 ] >>36 「/」には特別な意味があります。 確かその意味を無効にする設定はあったような気がしますが。 「'/」とか「'-」と入力すれば受け付けられるはずです。 40 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:01:45 ] >>35 VBAが使えるなら、開いたときシカケを作るのも手だが・・・（ｗ 使えないなら、条件付セルで、文字を入れたらセルの色が変わるとか 子供だましのことでも上司は喜ぶかもね。 41 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:12:18 ] >>40 そんなことでよろこんでるようではつまんない上司だね。 でもそんな人は実際多い。 42 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:15:08 ] >>36　わり算とか引き算とかするときに使う記号ですね。　したことない？　失礼しました。 43 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:15:27 ] 以前、直リンクはサイト主が嫌いだから不当だとする俗説があったが ここはスレ主が嫌いだから他で聞くなとでも言うのか？　スレ主が全部答えているわけでもなかろうに。 44 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:18:27 ] 道義責任をスルーする気ならこっちも守る筋合いはねえな。 45 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:21:07 ] どうなんだよ！ 46 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:21:51 ] 他で聞いていいのかどうか、はっきりしろよ。 47 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:23:36 ] 答えらんねえダボが無理してんじゃねえよ、ぺっ 48 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:25:03 ] 他のところで聞くことが全てマルチになるっていうのは大きな勘違いだと思う。 他のところに行きたいならばこのスレで 「他のサイトに行くので回答を締め切らせてもらいます。」 と書けば済むこと。他のサイトならば「解決マーク」が大抵あるから コメントを書いてそこを解決にすることでマルチではなくなる。 つーか、ここの回答者に高度な回答を求めるのは無理ｗ レスがつかなければとっとと他のサイトに逝った方がいい。 49 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:28:06 ] >>48 じゃ、マルチを定義しろよ。 世界中の他のところで締め切ったかどうかどうやって違反を検挙するんだ？ 「大抵」だあ？　守らせる仕組みのない法は絵に描いた餅だぜ。 50 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:28:43 ] 私も前から疑問に思っているのですがマルチの何がいけないの？ 時々キ○ガイが絨毯爆撃みたいなマルチをやるのは問題だと思うけど まじめな質問を複数の関連スレッドに投げるのは許容範囲でしょう？ 51 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:31:50 ] >>49 世の中は絵に描いた餅ばかり。 それに法なんかじゃない。 それにお前ひょっとしてセンター試験うまくいかなくてここでうさ晴らしか？ｗ なんなら、不幸せになる「魔法の言葉」をかこうか？ 52 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:31:53 ] おおかた、一生懸命回答して自画自賛してるところへ同じ質問が来るのが不快だからってなことだろ？ いいんだよ、そんなのは他の奴が答えれば。２ちゃんねるには同じ回答を繰り返す義務があるとかどっかに書いてあったか？ 53 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:33:30 ] >>51 早く定義しろ！ 他のところで聞くことが全てマルチになるっていうのが大きな勘違いなら、 勘違いでない境界線を引けや、守らせることのできる実効性のあるラインをよ。 54 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:35:32 ] >>53 あなたの言うとおりだと思うよ。 マルチ禁止なんてバカバカしいルール。気にしなくていいよ。 だから機嫌直してね。 55 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:37:09 ] 法とは公的機関の法令のことではない。 ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━ と書いてあるだろ、守れる規則を守る気のある奴まで不当に縛るＬＲに異議を唱えているんだよ。 56 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:38:15 ] >>50 マジレスすると質問サイトなんてどのサイトも大部分で同じ奴らが回答してる。 回答者が最初のサイトで一生懸命回答しているのにそれを無視して同じ質問を 他のサイトで見かけたりすると気分が悪くなる。 それって回答者に失礼な事だよ。 でも、２ちゃんにまで顔を出している他サイトの回答者なんて少ないだろうから マルチしても、たいした問題にはならないとは思うけどね。 57 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:39:12 ] >>54 ↑ 今、こいつが発議した「マルチ禁止」を無効とする動議に異議のある者はいるか？ 58 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:39:52 ] >>56 >>52 59 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:41:46 ] >>56 >質問サイトなんてどのサイトも大部分で同じ奴らが回答してる。 ソース出せ。 60 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:43:35 ] 落ちる、すべる、遅刻する、失敗する、名前忘れる、マークシートの勘が外れる、ヤマが外れる、行くとこなくなる 落ちる、すべる、遅刻する、失敗する、名前忘れる、マークシートの勘が外れる、ヤマが外れる、行くとこなくなる 落ちる、すべる、遅刻する、失敗する、名前忘れる、マークシートの勘が外れる、ヤマが外れる、行くとこなくなる 61 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:43:53 ] おれはこことMOUGと教えてgooで解凍してる 62 名前：61 mailto:sage [2008/01/21(月) 00:45:21 ] あ、マルチ禁止には同意しない立場なんで　どこでも聞けばいいじゃんねー 63 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:47:35 ] テンプレ修正でいいのか？　>>ALL 2 名前：名無しさん＠そうだ選挙にいこう[sage] 投稿日：2008/01/20(日) 18:06:42 ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━ ･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 書籍や解説サイトの紹介以来はスレ以外。ここは技術的な質問のみで。 64 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:48:58 ] 3 名前：名無しさん＠そうだ選挙にいこう[sage] 投稿日：2008/01/20(日) 18:06:49 ★ルールを無視すると… 　>>1-2あたりのルールに従うか否かは自由だけど､従わないと以下のような不利益があるよ 　1．削除 　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分野の話ではないので､ここでは聞かないでください。 65 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:49:40 ] こうしてここに、まともな回答者がいなくなるのであった… 糸冬了 66 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:51:30 ] 他で同じことを聞いたくらいでご機嫌が傾く変人はいらねーよ。 67 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:51:48 ] >>50=>>53です。 >>63 賛成します。 キ○ガイマルチは困りますが，テンプレートに禁止とまで書くのは反対。 テンプレ見ろテンプレ見ろってうるさいやつが湧いてくる。 68 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:52:46 ] ここには有名人のブランド力がないのを身を以て思い知れや。 69 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 00:52:56 ] こうしてここに、まともな回答者がいなくなるのであった… 糸冬了 70 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:53:53 ] マルチがいやなやつは回答しなければいい。それだけ。 そんな難しい性格のやつは出て行ってくれたほうがうれしい。 71 名前：53 [2008/01/21(月) 00:54:04 ] 俺は >>50 ではない。 こういう、低劣な工作が必要になるような主張か？　マルチ禁止は。 72 名前：初心者 ◆EROEROeX96 mailto:sage [2008/01/21(月) 00:55:29 ] お、盛り上がってるねぇ〜 難問は漏れが適当に答えてやるよｗｗｗ 73 名前：36 mailto:sage [2008/01/21(月) 00:56:13 ] >>39 ありがとうございます。違う記号を使うようにします >>42 ありがとうございます。セルに直接「/」とかを入力すると何か飛ばされてしまうので・・・ 計算には使ったことありますｗ 74 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:57:45 ] >>71 すまん。工作するつもりはなかった。 >>50=>>54です。と書くつもりだった>>50でした。 75 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 00:59:36 ] 漏れが難しいことを質問するときは、EXCELファンクラブに行くから ここは何でもありでいいよ。 76 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 01:03:06 ] 流れ読まず質問します ネットワーク上にあるexcelファイルを開いて修正かけて保存しようとしたのですが 上書きどころか新規でも保存できません。 デスクトップにも外部媒体にもどこにも保存不可です。 どうしたら保存できるでしょう？ ちなみに、新規ファイルを作成し、修正したシートをコピーして新規保存は出来ました。 ＰＣ：ＤＥＬＬ一週間前に買ったので古くはない。（自分のＰＣではない） ＯＳ：ＷｉｎｘｐＨｏｍｅＳｐ２ バージョン：Ｅｘｃｅｌ２０００ どうかお願いします。 これが終わらないと出張へいけません。 77 名前：27＝31 mailto:age [2008/01/21(月) 01:03:08 ] Ａ列に番号（折り返し全体を表示させるにチェック） Ｂ列に質問　Ｃ列に回答と下記の様な表を作りましたが、 セルごとに文字数が違うため、行ごとの高さがばらばらで 見栄えが大変悪いのです。 もっときれいに見せる方法ってあるのでしょうか？ それとも行の高さを統一してセルの1部しか見えない状態で 提出した方が良いのでしょうか？ 番号　　質問　　回答 1　　　 2 78 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 01:07:13 ] >>76 読みとり専用で開いたんじゃないか。名前を変えれば保存できたはず。 79 名前：78 mailto:sage [2008/01/21(月) 01:07:36 ] そうでもないか。失礼 80 名前：76 [2008/01/21(月) 01:30:11 ] ネットワーク上にある共有フォルダ内の自分のＰＣのバックアップファイルを開きました。 作成者は自分ですので、読み込み専用にした記憶はありませんし、確認したらそうではなか ったです。 古い話ですが２バイトのユーザー名・・・ってのは、このバージョンでも関係あるのでしょ うか？ 先ほどＰｃのユーザーアカウントを見たら日本語でしたので・・・。 81 名前：76 [2008/01/21(月) 01:33:49 ] 最初がわかりにくいですね。 ネットワーク上にある共有フォルダ内に、社員各々が自分のＰＣのバックアップを取っているので、 その中に保存してある、私が作成したexcelファイルです。 82 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 01:40:03 ] 急ぎならローカルにコピーして修正してから共有フォルダにコピーしなおし 83 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 01:45:31 ] >>76 ネットワークファイルは開ける、新規保存は可能、ってトコから、 権限の問題じゃないと仮定しての話だが、 保存しようとしたときに、ふざけたエラーメッセージが出ない？ VBAやオートシェイプ図形付きのドキュメントを新しいバージョンで保存してると、 旧バージョンで開いたり、保存したりする際にエラーが出ることがある。原因は不明。 エクスプローラでファイル操作すれば、ファイルがコピーできたりしないかな？ 84 名前：76 [2008/01/21(月) 01:55:08 ] ４時間かけて修正したんです。 考えながらなので、打ち込むだけなら１時間かからないと思いますが。 ちなみにワードからの貼り込みや、図形がふんだんに入ってます。 今、新規のファイルを作成し、そこへ各シートのコピーをして保存しようとしましたが 図形が一括でコピーできない。orz 85 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 02:01:27 ] >>84 え？　シートを別のブックにコピーしても 図形がワークシートに引っ付いて行かないってこと？ 86 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 02:01:28 ] こんな時間に会社から２ちゃんですか・・・ ご苦労なこったｗ 87 名前：76 [2008/01/21(月) 02:05:44 ] >>85 図形だけ抜けてます。 試しに図形だけ選択してコピーしようとしてもコピーできません。 なんでだ？もうワケワカランです。 >>86 ここが一番レスポンスよさそうなので。 こんな時間に知り合いに電話かけて聞くのも非常識だと思うし。 88 名前：76 [2008/01/21(月) 02:13:56 ] 今やったら出来ました。 同じ作業をできたりできなかったり・・・ なんかおかしいです。 とりあえず作業続けて新規ブックで保存します。 89 名前：77 mailto:age [2008/01/21(月) 07:45:31 ] 77の質問にどなたか答えていただけないでしょうか 宜しくお願いします。 90 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 07:52:53 ] >>89 いちばん文字数の多い行の高さに合わせれば見やすいんじゃないの。 こんなのエクセルの質問でもなんでもないけどな。 91 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 08:10:10 ] >>89 このケースはここでわれわれに質問しても解決しないよ。 「私の上司の好みを教えてください。」っていう質問でしょ？ 92 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 11:16:34 ] 毎回同じ質問でテンプレ作りたくなるのも分るが ここはひとつ初心に戻ってみてはどうかな。 1 名前： 名無しさん＠そうだ選挙にいこう 投稿日： 2000/08/09(水) 12:47 スレ乱立するのもあれだからExelの質問・回答はここでまとめてやりましょう。 ・質問する人は可能な限り具体的に書くこと。回答がなくてもキれないこと ・分かる人はできるだけ回答して下さいませ 93 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 11:31:54 ] formulaプロパティを使うときに、変数の中身を使うにはどうすればよろしいでしょうか？ 具体的には元のブック、a1セルに別ブックの名前を入力し、変数fiに格納した後に、 その別ブックのaaaシート、a1セルの式を元ブックのc1に入力したいと思っています Dim fi As String fi = Range("a1").Value Range("c1").Formula = "=[fi]aaa!a1" このまま実行すると、c1セルには=[fi]aaa!a1としか格納されませんでした 色々調べたのですが、変数を使う方法が見当たりませんでした また、A2、A3・・とこのセルの下にも入力する箇所を用意しておき、 それぞれ同じようにC2、C3と表示できるように、 DOLOOPなどを使ってみようと思っています。 よろしくお願いします 94 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 11:43:25 ] Range("c1").Formula = "=" & fi & "aaa!a1" 95 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 11:59:47 ] このスレでたまに質問させていただくのですが ネットで定期購読できる 日経パソコンという雑誌は役に立ちますか？ 96 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 12:24:59 ] >>94 さんありがとうございます！ 97 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 13:13:46 ] 計算結果で小数点以下を切り上げにするにはどうしたらいいのですか？ 98 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 14:44:07 ] >>97 =roundup(・・・,0） このくらいは調べられるような気もするが。 以下質問 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 　可 【5 検索キーワード 　 　 】 excelで作った文を複数、ワードに貼り付けるところまで自動化したいのですが、 手でコピーしたところ、単なる文ではなく表としてコピーされました。 最悪手動でもいいので、単なる文の連なりとしてコピーする方法を教えてください。 また、マクロでexcelの文をwordに「文」としてコピーする方法はあるのでしょうか？ 例） Ａ1　山田君はお休み Ａ2　田中君が代休 Ａ3　河野さんが出席 をワードに表でなく、3行にしてコピーしたいのです。 99 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 15:15:54 ] >>98 word側で「形式を選択して貼り付け」で「テキスト」 2003ならスマートタグで「テキストのみ保持」 このくらいは調べられるような気もするが。 100 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 15:26:35 ] >>99 マクロで、ですか？ 101 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 15:44:16 ] >>98 助かりました！！　ありがとうございました。 102 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 15:45:59 ] 【1 OSの種類 　 　 　 　 .】 Windows98se 【2 Excelのバージョン 　 】 Excel2000 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 可･ 【5 検索キーワード 　 　 】 Formula　vba　2000　エクセル　など >>93です 検証せずにお礼を言ってしまったのですが、エラーが出てしまいました 実行時エラー'1004': ｱﾌﾟﾘｹｰｼｮﾝ定義またはオブジェクト定義のエラーです。 と表示されてしまいます 以下、コードの原文そのままです Dim fi As String Dim gyo As Long Dim aaa As String fi = Range("a1").Formula gyo = 1 aaa = "=[" & fi & "]請求!A1" Range("c1").Formula = aaa A1セルにtest1.xlsと入力されている場合、エラーが表示され test.xlsだとエラーになりません ファイル自体が両方存在していても、いなくてもtest1だとエラーになります 原因のわかる方、お願いします 103 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 16:22:33 ] そのコード、そのままコピペで test1 も test も両方動くけど。 104 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 16:55:25 ] >>98 Wordと連携させるなら外部オブジェクトへの参照設定をしておく方がいいですよ 105 名前：93 [2008/01/21(月) 16:59:33 ] 何度もすいません・・先ほどのは間違いでした 色々削って検証した結果、testとtest1は大丈夫でしたが、 今度は1.xlsはエラーなし、1-.xlsがエラーになりました 1+.xlsもエラーがでました 算術演算子を使っているのが悪いのでしょうか・・? 106 名前：93 [2008/01/21(月) 17:00:15 ] 何度もすいません・・先ほどのは間違いでした 色々削って検証した結果、testとtest1は大丈夫でしたが、 今度は1.xlsはエラーなし、1-.xlsがエラーになりました 1+.xlsもエラーがでました 算術演算子を使っているのが悪いのでしょうか・・? 107 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 17:04:54 ] どんなエラーか、ってのも書いた方がいいよ。 経験者には、エラーのメッセージから、数通りの原因を推測できる人だっているから、 ケースによっては、ヘタに説明しようとするより早いかもしれない。 108 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 17:11:31 ] マクロをいじってから、エクセルのファイルを開くたびに 『PERSONAL.xls』ってファイルが勝手に開くようになってしまったのですが どうやったらコレが開かないように出来ますか･･･ 109 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 17:23:07 ] >>108 「PERSONAL.xls」でググればすぐ出てくるが… 110 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 17:28:07 ] COUNTIF関数で、セルの値が*の場合という検索条件（数式）を COUNTIF(A1:A10,="*")　と書いたらエラーになりました。 どうすれば良いのでしょうか 111 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 17:36:24 ] >>109 解決しました。ありがとうございます 112 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 17:40:38 ] >>110 文法としては、 　　=COUNTIF(A1:A10, "*") でも、これだとワイルドカード指定になるはずだから、単純に＊が入ったセルを数えるなら 　　=COUNTIF(A1:A10, "~*") 113 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 17:41:47 ] >110 =COUNTIF(A1:A10,"~*") 114 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 17:52:17 ] かぶった orz 115 名前：110 [2008/01/21(月) 18:23:31 ] >>112、113 レスありがとうございます。 116 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 22:41:37 ] 俺の部署に入社2年目の若僧が着たんだけど、 そいつエクセルとかかなり長けてて、いきなりみんなからエクセルを含めたパソコン関係の スペシャリストと崇められててうざいんだよね。 で、そんなやつをアッと驚かせるテクがあったら是非教えて欲しいんだけど。 XPとEXCEL2003で。 117 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 22:51:51 ] >>116 俺の事か？ 118 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 22:53:11 ] >>116 マクロウィルスかな 119 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 22:55:46 ] excel2003でグラフを作っています。 あるサイトからダウンロードした散布図のテンプレの背景が「塗りつぶし効果」で画像になっているのですが、この画像を抽出して、加工した後に再び「塗りつぶし効果」の画像に指定したいのですが、どうすればいいのでしょうか？ 教えてください 120 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 23:00:34 ] ステータスバーにフォントで言う上付き文字を表示させたいのでsが、その方法を教えてください。 Application.StatusBar = menseki & "m2" 　　　　　　　　　　　　　　　　2 この　　　m2　　　を　　　m　　　　にしたい。ということです。 121 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 23:00:59 ] �uをつかう 122 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 23:05:08 ] >>121 ありがとうございます。 �uなどの登録されてある以外の文字、例えば5乗や10乗などを上付き文字での表示は可能でしょうか？ 123 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 23:08:44 ] >>122 おそらくないと思う。　^5 ^10 で 124 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 23:09:54 ] 一つのセルに行番号を入力しておいて その行番号を参照することはできますか？ 例えば、B10に『A10』と入力しておいたら、 B10を参照してA10の値を返すというような感じです 125 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 23:14:52 ] >>120 無理。 >>124 できる。 126 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 23:17:48 ] 行番号なのに『A10』？ VBAなら可能だが、関数はワカラン。 つーか、てんぷｒ（ｒｙ 127 名前：122 mailto:sage [2008/01/21(月) 23:19:26 ] >>123 >>125 ありがとうございました。あきらめます。 128 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 23:27:22 ] >>124 INDIRECT 129 名前：名無しさん＠そうだ選挙にいこう [2008/01/21(月) 23:34:36 ] >>125,126 ありがとうございます >>128 できました！どうもありがとうございます！ 130 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 23:42:35 ] Office2003のプリインスコPCを買ったんですが、パーテーションを切るため OSを入れ直して、Office2003を入れました。 131 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 23:45:37 ] そうですか 132 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 23:47:50 ] >>130 激しく同意 133 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/21(月) 23:52:35 ] >>130 日記か？チラ裏か？ 134 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 00:36:50 ] >>133 今にして思えばこれが、あの事件のすべての始まりだったのでございます。 135 名前：名無しさん＠そうだ選挙にいこう [2008/01/22(火) 00:40:57 ] 何枚かに渡って印刷する時、表とかの項目を全てのページに出るようにするにはどうすればいいのですか？ 136 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 01:21:41 ] エクセルとかワードによく似たフリーソフトってないでしょうか？ それで練習してから、本物を買いたいのですが。 137 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 01:26:42 ] OpenOffice 138 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 01:33:38 ] office2003が文字入力と一部のコマンドが使えなくなるのですが… パソコンの電源を入れて、エクセル起動。Book1表示後に 表に出ているファイルを開く、印刷、印刷プレビューを除くコマンド(新規、コピー、切り取り、戻すなど)がつかえないじょうたいになり、文字の入力ができなくなります。 ほかのソフトは変化はないのですが、officeを入れ直した方がいいのでしょうか？ 139 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 01:51:19 ] >>138 日本語でおｋ 140 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 02:59:49 ] >>138 まずは落ちついて正しい日本語で質問しなおせ 何言ってんだか、何を伝えたいんだか 支離滅裂で全く分からんぞ 141 名前：93・106 [2008/01/22(火) 09:54:41 ] >>107 ありがとうございます。まとめさせて頂きますと、 Range("c1").Formula = "=[1.xls]請求!$A$1" Range("c1").Formula = "=[" & "1" & ".xls]請求!$A$1" この二つはエラーが起こらず Range("c1").Formula = "=[+.xls]請求!$A$1" Range("c1").Formula = "=[" & "+" & ".xls]請求!$A$1" このコードでエラーがでます。 +の部分を-と入力しても、同じようにエラーになります。 エラー内容は 実行時エラー'1004': ｱﾌﾟﾘｹｰｼｮﾝ定義またはオブジェクト定義のエラーです。 となります。 環境はwindows98SE、エクセル2000で、セキュリティレベルも低にしてあります +や-の入ったファイル名を式に使うには、どうすればいいのでしょうか? 142 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 10:48:43 ] >>141 Range("c1").Formula = "='[" & "+" & ".xls]請求!$A$1" にすればいいんじゃないかな？ 143 名前：93・106 [2008/01/22(火) 10:54:40 ] >>142 ありがとうございます が、それでも同じエラーがでました・・ 144 名前：93・106 [2008/01/22(火) 11:00:48 ] できました! Range("c1").Formula = "='[" & "+" & ".xls]請求'!$A$1" とシート名の前にアポストロフィをつけると無事、参照できました 本当にありがとうございました 145 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 11:42:01 ] >>144 最初からついていると思うが 146 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 11:55:13 ] >>145 ここ　　　　　　　　　　　　　　　　　　　　　　　　　　↓ Range("c1").Formula = "='[" & "+" & ".xls]請求'!$A$1" 147 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 12:34:28 ] 何でエラーがでるんだろう 148 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 13:32:29 ] エクセルのバージョンが新しいと、エラーにならないんじゃね？ オレも2000しか持ってないから分からんが。 149 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 15:45:37 ] ▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━ 【1 OSの種類 　 　 　 　 .】 Windowsxp 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 少し 【4 VBAでの回答の可否】 可 セル上にあるhtmlリンクをクリックしたとき、処理Aを実行する。　としたいのですが、 クリックしたときのイベントってどうやって拾うのでしょうか？ 150 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 15:50:13 ] >>149 Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 151 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 15:57:48 ] ありがとうございます 152 名前：名無しさん＠そうだ選挙にいこう [2008/01/22(火) 17:43:52 ] 【1 OSの種類 　 　 　 　 .】 Windowsxp 【2 Excelのバージョン 　 】 Excel2007 【3 VBAが使えるか　 　 .】 少し 【4 VBAでの回答の可否】 可 新規シートに 画像を2ページに渡って貼り付けて、 Sub PrintPage() Dim PPage As Integer PPage = Application.ExecuteExcel4Macro("get.document(50)") MsgBox PPage End Sub 　と印刷総ページ数を表示するマクロを実行すると 　実際の印刷総ページ数は2ページなのに 　0ページと認識され表示されてしまいます。 　 　原因の解る方がいらっしゃいましたら宜しくお願い致します。 　 153 名前：名無しさん＠そうだ選挙にいこう [2008/01/22(火) 17:55:14 ] XP エクセル2003 質問です 開始年月日2003年3月21日、終了年月日が2006年10月21日の残りの日数の時の式 DATE関数？使い方がわかりません。 アドバイスお願いします。 154 名前：名無しさん＠そうだ選挙にいこう [2008/01/22(火) 18:07:44 ] >>153 開始年月日2003年3月21日、終了年月日が2006年10月21日の「残りの日数の時の」式DATE関数？使い方がわかりません。 特に「」のとこの意味がいまいち不明なんだが？ 155 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 18:07:48 ] >>153 ="2006/10/21"-"2003/3/21" 156 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 18:15:59 ] >>155 ありがとうございます。 ="2006/10/21"-"2003/3/21-1" ではなくていいのでしょうか？ 157 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 19:00:06 ] 1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Exce2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 【5 検索キーワード 　 　 】 「エクセル　リスト作成」 エクセルの本を買って問題を解いているのですが わからないところがあったので質問させてください。 質問1.１枚のシートに１つのリストを作成する方が良いが、 複数のリストを作成する場合は、他のリストとの（�@） リストの一行目に他のレコードと異なる書式を設定した(�A)を作成する。 �@の選択肢；間隔をなくし、間隔をあけ �Aの選択肢；データ、レコード、リスト、列見出し、フィールドレコード 質問2.リスト列ごとにある条件を選択し、抽出を行うことができる機能として 正しいものを選びなさい。 データ、オプション、オートフィルタ、フィルタモード設定、列選択 よろしくお願いします。 158 名前：155 mailto:sage [2008/01/22(火) 19:14:34 ] >>156 レス読んで分かる範囲で回答しただけ。　何がしたいか分からんのに、オレに聞かれてもな。 でも固定で式書いてるんだから、"2003/3/21-1" は変だろ。 　="2006/10/21"-"2003/3/21" -1　って書きたいの？ 「この問題が出たんですけど、何て回答すればいいですか？」　とか訊かれそうだな。そのうち。 159 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 19:25:02 ] >>157 1-�@： 間隔をあけ 、1-�A： 列見出し　　2： オートフィルタ　　だとは思うが。 余計なお世話なのは百も承知なんだが、教本産業の犠牲になってないか？ 無意味とは言わんが、時間の使い方が勿体無い気がする。 家の家計簿とか、自分の蔵書を整理するリストでも作ってみた方が勉強になる。 160 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 20:36:53 ] >>159 ttp://pc11.2ch.net/test/read.cgi/bsoft/1198283638/891 >>157 まだ考えていたのねｗ 161 名前：名無しさん＠そうだ選挙にいこう [2008/01/22(火) 21:45:08 ] ２００３　ＸＰ　検索キーワード＝Countif 複数条件　日付 =Countif(A2:A10,And(">=2007/1/1","2007/3/31")) は該当があっても０（＝ゼロ）となり、効いていません。 １月１日以降３月３１日までの日付件数を関数で取りたい。よろしく。 162 名前：161 [2008/01/22(火) 21:46:59 ] 一部漏れてます。 =Countif(A2:A10,And(">=2007/1/1","<=2007/3/31")) でした 163 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 21:49:44 ] >>161 こちらこそよろしく！ 164 名前：161 [2008/01/22(火) 22:05:18 ] おいおいwww　訊いている人がいわれてもなぁ まぁ、趣旨として追加すると、２００７の　=COUNTIFSに相当する使い方をしている人、教えて　と。 165 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 22:12:31 ] >>164 オイオイ、おまえ天然か？ 俺163じゃないけど163の気持ちわかるぞ。 「そんな聞き方をする答える回答はない」と… 166 名前：161 mailto:sage [2008/01/22(火) 22:15:10 ] >>165 ごちゃごちゃうるさいよ外野。 知ってる人のみがレス付ければ良いんだよ。カス。 167 名前：名無しさん＠そうだ選挙にいこう [2008/01/22(火) 22:19:40 ] >>166 ググレ！変態ｗ 168 名前：161 mailto:sage [2008/01/22(火) 22:21:06 ] >>167 お前がググって俺に教えろ！ 169 名前：名無しさん＠そうだ選挙にいこう [2008/01/22(火) 22:33:55 ] 　　　　　 　　　＼　　　　　　　　　　　　　　　　　　　／ 　　NULLPO!!　 .＼　　　　.∧＿∧　　　　　　　. ／ｶﾞｯ必死だな（藁 *　　　　　　　　　　 ＼　　 （　´∀｀）＜ぬるぽ／V￣￣￣￣￣￣￣￣ 　　 ∧＿∧　　+　　　＼　　 　 　 　 　 　 　／l＿∧　ｶﾀｶﾀ 　.　∧＿∧ 　　（ ´∀｀ ） 　 　 　 　 .＼ 　 　 　 　 　...／（　 ´∀）　　/＼　　（∀・ ,#）←叩き人 　+ （つ　　⊃　*　　+　　　＼ ∧∧∧ ／　..（　　　つ===〕〔===⊂　　__,） 　　 （　ヽノ　　　　　 　　　　＜予　ぬ＞　┌（_.￣||￣￣￣￣￣￣||￣_,）┐ 　*. し（＿）　+　 　　　　　　＜感　.る＞　┗┳━||'）　　　　　　 .（'||━┳┛ 　　　　　　　　　　　　　　　　＜!!!!　ぽ＞ 　 .┻ .（||_） 　 　 　 　..（_||） .┻ ───────────＜　　 祭＞──────────────── 　　　　　　　　　　　　　　　　＜ 　　り.＞　　　　　♪ 　　＿|￣|○ﾓｳﾇﾙﾎﾟ　　　　＜　 　の＞　..♪　　 ∧ ∧　♪ よ〜く考えよ〜　♪ 　　　　　　　　　　　　　　　／ ∨∨∨ ＼　　　　　(,,ﾟДﾟ).　♪ ぬるぽは大事だよ〜　♪ 　　ぬるぬるぽ　　　　 .／　∧＿∧　　 .＼　　.　 |つ[|lllll］). 　　う〜う、う〜う、ううう〜　♪ ￣￣~V￣￣￣￣￣.／≡ .（ ・∀・ ）ﾇﾙﾎﾟ ＼　〜|　　| 　　.(・∀・)　 　 　 ／　 -＝（　つ┯つ　　　　.＼　.Ｕ Ｕ 　　（∩∩）　　 .／　 -＝≡/　 / //　　　　　　 ＼ 　　　　　　　 .／　　.-＝≡（_＿）/ ）　　　　　　　　＼　 .∧＿∧ 　　　　　　.／　　　　 ,-＝ (◎)￣））　　　　　　　　　.＼（ ´∀｀ ）＜NullpointerException 170 名前：名無しさん＠そうだ選挙にいこう [2008/01/22(火) 23:42:06 ] 知ってる方いたら教えてください。 先日Vistaを購入したんですが、Excel2007では値貼り付け ツールバーは設定できないのでしょうか？ 171 名前：名無しさん＠そうだ選挙にいこう [2008/01/22(火) 23:43:44 ] すみません。 文章がめちゃくちゃになってました。 Excel2007では値貼り付けはツールバーで出せないんでしょうか？ 172 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 23:49:24 ] >>171 「ホーム」のリボンの「貼り付け」の▼を押したら出てくるけど それでは不満かな。 173 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/22(火) 23:50:58 ] >>171 ホームタブの「貼り付け」の下の▼をクリックすると値の貼り付けってあるけどそれじゃダメ？ 174 名前：171 [2008/01/23(水) 00:01:08 ] >>172さん >>173さん ありがとうございます。 Excel2003や前のバージョンだとツールバーに出しておけば 一回押すだけで値貼り付けできてたんですけど… 仕事で値貼り付けを多用するのでワンプッシュでやりたいのです。。 やっぱりできないですかね…？ 175 名前：161(本物) ◆wkj7cNdS3Y [2008/01/23(水) 00:08:40 ] 少しおもしろい流れになっているなw 考えてたら、時間がかかったけどうまくいったよ。簡単だったwww おやすみ 176 名前：173 mailto:sage [2008/01/23(水) 00:09:44 ] >>174 それなら officeボタン　−　Excelのオプション　−　ユーザー設定　で コマンドの選択を[ホーム]タブにして値の貼り付けを右に追加すると クイックアクセスツールバーに追加されます。 やってみた方がわかるかも。 177 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 00:10:56 ] >>174 もしユーザー設定ができなくても、これならワンプッシュ　（前スレより拝借） 619 名前： 名無しさん＠そうだ選挙にいこう [sage] 投稿日： 2008/01/12(土) 17:56:52 >>615 値のみ貼り付けするマクロを作って、 マクロのダイアログ（Alt-F8）でそのマクロのオプションを選択。 ショートカットキーを指定できるので、vにする。 （shift-vとかの方が無難な気もするけど） マクロはこんなんでいいんじゃない。 Sub 値のみ貼り付け() 　Selection.PasteSpecial xlValues End Sub 178 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 00:16:13 ] 自分で作ったマクロをボタンに登録したときクイックツールバーにしか 登録できないんでしょうか？ 179 名前：名無しさん＠そうだ選挙にいこう mailto:171 [2008/01/23(水) 00:29:11 ] >>176、>>177さん ありがとうございます！ できました！！ 普通にツールバーに入れられるんですね… ２時間も悩んでしまいました。。 本当に助かりました！ ありがとうございますm(__)m 180 名前：名無しさん＠そうだ選挙にいこう [2008/01/23(水) 09:54:05 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 【5 検索キーワード 　 　 】 見積書で金額の集計をする際に、（　）の付いている金額のみを抜き出して合計したいのですが、 関数ＳＵＭＩＦを使用したところ同じシート内でしか集計できませんでした。 複数のシートから条件付で集計するにはどうすればいいのでしょうか？ 181 名前：名無しさん＠そうだ選挙にいこう [2008/01/23(水) 10:30:03 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 表示　入力コード 　あ　　1〜5 　い　　6〜10 　う　　11〜15 　え　　16〜20 　お　　21〜25 下記様に、入力コードを打ち込んで、そのコードの文字を表記させる場合、 IF以外に何かすっきりした関数は無いでしょうか？ 182 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 11:37:40 ] >>180 各シートのSUMIF( ) の結果を更に集計するしかないんじゃない？ >>181 セルに下みたいなテーブルを用意することができるなら、VLOOKUPが使えると思う。 　あ　　１ 　い　　６ 　う　　１１ 　え　　１６ 　お　　２１ =LOOKUP(対象値, A1:A5, B1:B5) 183 名前：名無しさん＠そうだ選挙にいこう [2008/01/23(水) 14:54:07 ] フォームから作成したコンボボックスで、コンボボックス右のボタンを押して 表示されるリストからある値を選択した場合、 その選択した値はVBA上ではどうやって取得するのでしょうか？ 184 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 15:14:30 ] >>183 Clickイベントを取れば良い これで解らなければあとはVB6分野(VB6と共通)の話なので>>2･7 185 名前：名無しさん＠そうだ選挙にいこう [2008/01/23(水) 15:44:58 ] 【1 OSの種類 　 　 　 　 .】 Windows2000 【2 Excelのバージョン 　 】 Excelxp 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 他ブック・存在・シート・vba・・等 A1セルにブック名が入力されているとき、 そのブックに合計という名前のシートが入っているかどうかを調べるには どのように記述すればよろしいでしょうか？ (カレントフォルダは使っているブックの場所に移動し、 探したいシートがあるブックも同じフォルダにあります) 今開いてるブックに対しての有無を確認するコードは拾ってきたのですが・・ Sub シート確認用3() Dim a As String a = Range("a1").Value ChDir ActiveWorkbook.Path Dim flg As Boolean Dim cnt As Long For cnt = 1 To ThisWorkbook.Worksheets.Count If ThisWorkbook.Worksheets(cnt).Name = "合計" Then flg = True MsgBox "ok" End If Next If flg = False Then MsgBox "ng" End If End Sub 186 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 15:50:34 ] >>183 シート上のドロップダウン（だよね？）を右クリックして、マクロ登録 すると、自動的に「Sub ドロップ1_change」みたいなのが入力されてると思う。 あとは、そこに、こんな感じ Sub ドロップ1_Change() 　Set ctrl = ActiveSheet.Shapes("Drop Down 1").ControlFormat 　MsgBox ctrl.List(ctrl.Value) End Sub VBのコンボボックスコントロールとは無関係 187 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 16:30:41 ] >>180 ＞見積書で金額の集計をする際に、（　）の付いている金額のみを抜き出して合計したい 括弧が付いた金額と言うことはマイナスの数字なんだよね それを加味してSUMIF関数使ってみ 例： 　=SUMIF(A1:A10,"<0") 括弧を付けて文字列にしてるなら数値でなくなってるからSUM関連の関数はつかえない 188 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 18:56:27 ] >185 あんまり綺麗じゃないけど！ Sub シート確認用4() Dim a As String a = Range("a1").Value ChDir ActiveWorkbook.Path Dim flg As Boolean Dim cnt As Long Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & a & ".XLS" For cnt = 1 To ActiveWorkbook.Worksheets.Count If ActiveWorkbook.Worksheets(cnt).Name = "合計" Then flg = True MsgBox "ok" End If Next If flg = False Then MsgBox "ng" End If Workbooks(a & ".XLS").Close SAVECHANGES = False End Sub 189 名前：名無しさん＠そうだ選挙にいこう [2008/01/23(水) 20:38:21 ] すみません。MacのOffice2004のエクセルを使用しています。 Sheet1〜Sheet4まであり、Sheet4のA1〜100に名前が書いてあります。 Sheet1〜3のC列の選択したセルにVBのコンボボックスとコマンドボタン２個 を使って１つは入力、１つはキャンセルという動作で素早く入力したいのですか可能でしょうか？ よければ詳しく教えて欲しいのですが。。もしくはサイトを紹介していただけますでしょうか？ 190 名前：名無しさん＠そうだ選挙にいこう [2008/01/23(水) 20:43:50 ] 最近分厚いexcelの本を購入したビギナーです。 よろしくお願いします。 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 はじめて聞きました 【4 VBAでの回答の可否】 必要とあれば明日本屋に駆け込みます 【5 検索キーワード 　 　 】 損益 日々価値の変動する商品があります。例えば金とか、株です。 例えばその商品、1/1 の価格が　100円　1/31での価格が90円ならば、 今月の差額は -10円であるという関数は非常に易しいですが、 今日はまだ 1/23 で、まだ1/31のセルは0としか書いてないので、 =SUM(1/31セル - 1/1セル) では-100としかでません。 今日の価格は99円になったとします。 これを、「本日の価格」、または　「０でない間近の価格」との差額を計算し、 「そうか、今月は今のところ　-1円なんだな」と計算する、 とても便利な関数がありましたら、本当に勝手なお願いなのですが わかりやすく教えてください。 よろしくお願いします。 191 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 20:51:01 ] Ａ　　　　　　Ｂ H20.1.1 100 H20.1.2 102 H20.1.3 103 H20.1.23 123 今日(1/23)の価格を出すには、＝VLOOKUP(TODAY(),A1:B4,2,0) 192 名前：190 mailto:sage [2008/01/23(水) 20:53:06 ] 本当にありがとうございます。 世の中にはパッと難問が解決できてしまうすごい方がいらっしゃるものですね。 数年後、ここで教える立場に回れるよう努力します。 重ね重ねありがとうございました。 193 名前：190 [2008/01/23(水) 22:10:10 ] たびたびすみません。 お世話になります。 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 先ほどはじめて聞きました 【4 VBAでの回答の可否】 必要とあれば明日本屋に駆け込みます 【5 検索キーワード 　 　 】 間近の　最近の　空白 190の派生なのですが、 横に日付順に、例えば株価を入れます。 100 103 105 107 105 103 ....などなど。 しかし、本日以降の欄は空白です。 「入力済みの最新の値」から、「1日目の値」を引く、という関数はありますか？ 検索範囲内で、空白を無視して　「値が入力されている中で一番右端」のセルの値を出す どうぞよろしくお願いします。 194 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 22:19:52 ] A　　　　　　　　B　　　C　　　D　　　　E 証券コード　　1/1　　1/2　　1/3　　1/4 7621　　　　　100　　101　　　　　　　104 =HLOOKUP(MAX(B2:E2),B2:E3,2,0) 195 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 22:51:31 ] 【1 OSの種類 　 　 　】WindowsXP 【2 Excelのバージョン】Excel2003 【3 VBAが使えるか　 】いいえ 【4 VBAでの回答の可否】否 【5 検索キーワード 　】マクロ その名前は正しくありません 一括削除やシート隠し等、簡単なマクロの記録、実行のみ経験があります。 あるブックで新しいマクロの記録をしようと、「set」という マクロ名を指定すると、「その名前は正しくありません。」 とのポップアップがでました。これはなぜでしょうか？ ※当ブックで、以前に5種程度のマクロを登録しており 　最近全てのマクロを削除した経緯があります。 　削除方法は、Alt+8からの削除に加えて、VBAの画面を開いて 　〜の開放というのを初めて実行しました。 196 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 22:54:04 ] >>195 set ってマクロ名を一度 sex に変えて実行してみて。 197 名前：195 mailto:sage [2008/01/23(水) 23:00:00 ] >>196 すいません、書き忘れました。 実行まではしていませんが「sex」で 問題なく記録できることは確認済みです・・・。 198 名前：名無しさん＠そうだ選挙にいこう [2008/01/23(水) 23:08:09 ] >>195 Set ステートメント 予約語と同じ名前にすな 199 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 23:11:43 ] >>197 じゃぁsexでいいじゃん 200 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/23(水) 23:12:55 ] セックスッッッッ！！！！だろ。 201 名前：195 mailto:sage [2008/01/23(水) 23:25:47 ] >>198 ありがとうございます。 「set」というマクロ名は使用できないということですね。 >>199 入社したばかりなので、そんな勇気ありません・・・。 202 名前：名無しさん＠そうだ選挙にいこう [2008/01/23(水) 23:34:24 ] >>188 ありがとうございます あれからも調べましたが、ブックを閉じた状態でシートの検索はできそうにないですね… シートの値なんかはすぐに引っ張ってこれるのになぁ >>195 予約語、と言われるものは使えない 分かんなかったら変数なんかは頭にaaaでもつけてれば間違いなく使用できる aaasetとか 最高にブサイクだけどな 203 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 00:44:23 ] sexって何？それっておいしいの？気持ちいいの？ 204 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 01:05:34 ] 全角でｓｅｔにすれば？ 画面上はプロポーショナルフォントで表示されるから、ぱっと見あんまり違和感ないよ。 205 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 01:56:22 ] >>202 ブックを開かずにシートの値が取れるの？ 206 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 03:28:44 ] >>205 取れない 取れないからエラーになって以前参照した値が表示されてるだけ Excelはこんな仕様 それを表示されてるから取れてると思い込んでるだけでしょ 207 名前：名無しさん＠そうだ選挙にいこう [2008/01/24(木) 07:26:25 ] イライラするわ リボン死ね 208 名前：名無しさん＠そうだ選挙にいこう [2008/01/24(木) 07:54:56 ] >>205 やべぇ、俺も取れると思ってた… 209 名前：名無しさん＠そうだ選挙にいこう [2008/01/24(木) 10:21:56 ] 突然申し訳ないですが、質問させて下さい。 脳波の分析に波グラフで波形を出して、表示をしました。 丁度、-0.3から3のメモリ(縦軸)の間を、波形が上下動いてる様な図になってます。 横軸は時間で、三秒間。 私がしたいのは、1〜2秒間の波形のマイナス部分の面積です。 関数計算みたいなのらしいのですが、聞ける人も回りに丁度おらず…。 どなたかいらっしゃいましたら、お願い致します！ 210 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 13:28:40 ] >>209 サンプリングレートによって最適な方法が違ってくる。万能な方法はない。 Excelでは困難な場合もある。 とりあえず、そのグラフのスクショうp 211 名前：名無しさん＠そうだ選挙にいこう [2008/01/24(木) 14:05:27 ] 条件付書式の設定で出来たら教えていただきたいのですが、 セルＡとセルＢにそれぞれ１という数字を入れたときにセルＣの色を赤くするには どうしたらいいでしょうか。 エクセル2002を使用しています。 212 名前：211 [2008/01/24(木) 14:14:53 ] すみません解決しました 213 名前：名無しさん＠そうだ選挙にいこう [2008/01/24(木) 15:35:47 ] excelで、漢字とかたかなを同じサイズで打ち込むにはどうすればいいんでしょう？ 基本的かもしれないんですが、教えてください。 214 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 15:53:05 ] Excel 2007 でシート見出しの色を「色なし」に設定する操作をマクロに記録したところ、 以下のようなコードができました。 しかしこれを実行するとxlAutomatic(-4105)のところで「インデックスが有効範囲にありません」 というエラーになってしまいます。 この操作をマクロで実行することはできないのでしょうか？ Sub Macro4() Sheets("xxx").Select With ActiveWorkbook.Sheets("xxx").Tab .ColorIndex = xlAutomatic .TintAndShade = 0 End With End Sub よろしくお願いします。 215 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 15:54:56 ] >>213 フォントを2バイト文字用のものに統一しろ 「MS Pゴシック」 とか 「MS 明朝」 とか 「HG行書体」 とか2バイト文字が名前に使われている物を選べば間違いない 216 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 15:56:16 ] >>181 =CHOOSE((A1+4)/5,"あ","い","う","え","お") 217 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 17:20:38 ] >>214 マクロの自動生成コードがおかしい気がする。 .ColorIndex = xlAutomatic じゃなくて、xlColorIndexNone を代入してみたらどうでしょう？ 218 名前：名無しさん＠そうだ選挙にいこう [2008/01/24(木) 18:37:16 ] 質問です。 ステータスバーの「コマンド」表示の欄がセル移動で　再計算　１００％と動く。 セル移動しても、「コマンド」のままで表示が動かないように設定するにはどうすれば いいですか？ ＸＰ　２００３ 219 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 18:43:24 ] >>218 それ、VBAのイベントが走ってたりしない？ ツール⇒オプション⇒計算方法タブの計算方法を、自動から手動に変えたらどうでしょう？ 220 名前：名無しさん＠そうだ選挙にいこう [2008/01/24(木) 18:56:22 ] レス　サンクス　説明が足りず、申し訳ない。 VBAでワークシートイベントが走ってます。 同じようなブックが２つあるのですが、セル移動でひとつはコマンド欄が動き、ひとつは全く動きません。いずれも、役目はきちんと果たしています。 ツール⇒オプション⇒計算方法タブの計算方法は、どちらも自動となっています。 221 名前：名無しさん＠そうだ選挙にいこう [2008/01/24(木) 19:42:24 ] ２セルごとあけてオートフィルすることはできないでしょうか？ 222 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 20:37:06 ] >>221 出来ますよ。 最近流行ってるな。飛び飛びのオートフィルが。 前スレでも出てたなぁ。 223 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 20:48:27 ] >215 出鱈目教えんなよ… >214 プロポーショナルフォント(MS Pゴシック等) "以外の"フォントを使えば良い 一般的なのはMSゴシック、MS明朝 224 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 21:01:49 ] 出鱈目教えんなよ… それは文字のサイズではなく文字間ピッチを統一したい場合だw 225 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 21:27:26 ] そもそも「同じサイズ」の意味がわからんもんな。高さなのか幅なのかバイト数なのか。 俺なら同じ幅、つまり固定ピッチフォントだと解釈するが。 226 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 21:41:24 ] フォントがGulimとかになってると予想してみる 227 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 22:05:26 ] たとえば 1000円 2000円 =SUM(x1:x2) のように文字列として単位が付いている数をSUM関数で計算する方法はあるのでしょうか。 ※SUMに限らず 228 名前：名無しさん＠そうだ選挙にいこう [2008/01/24(木) 22:14:43 ] 自宅 【1 OSの種類】 Windows vista 【2 Excelのバージョン】 Excel2000 会社 【1 OSの種類】 Windows　XP 【2 Excelのバージョン】 Excel2003 初心者過ぎる質問で申し訳ないのですが、 会社で使っていたexcelファイルを自宅に持ち帰ったところ、 USBメモリーから直接excelファイルを開こうとしましたが開けませんでした。 【種類】xis_auto_file このファイルを開くか、または保存しますか？ と出てきて開くを押す　とその表示が消えるだけで　開かれません。 その後、ﾌｧｲﾙをexcelの上に持っていったら開けることがわかったのですが、 これはどうして直接開くことができなかったんでしょうか？ 長文失礼しました。よろしくお願い致します。 追記　ワードは直接開くことができます。 229 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 22:18:50 ] >>227 A1に「1000円」と入っているとして、次のように数値として取り出す。そしたらSUMできる。 =VALUE(LEFT(A1,LEN(A1)-1)) 230 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 22:21:11 ] >>227 セルの書式設定で初めから1000を 1000円と表示させておく 231 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 23:05:37 ] 【OSの種類】WindowsXP 【Excelのバージョン】Excel2003 【検索キーワード】キーボード 書式なし オートフィル 書式なしのオートフィルをキーボードだけでできないものでしょうか？ 232 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 23:31:00 ] >>231 出来ますよ。 233 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/24(木) 23:33:31 ] 馬鹿回答者は答えんなよ 234 名前：名無しさん＠そうだ選挙にいこう [2008/01/25(金) 00:34:07 ] >>233 ゴラァー　馬鹿回答者とか失礼なことを言うもんじゃない！！！！！ 誰も答える資格のある香具師がいなくなってしまうではないかwww 235 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 00:52:10 ] >>232 教えてください！ 236 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 01:38:21 ] >>234 答える資格 ってナニ？ 237 名前：名無しさん＠そうだ選挙にいこう [2008/01/25(金) 01:43:47 ] 今グラフ作ってるんですが、近似曲線の線形近似を追加することはできたのですが、 近似の線がプロット位置からプロット位置までなんですが、ｙ軸まで伸ばすにはどうすればいいのでしょうか？ 238 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 09:50:34 ] 【1 OSの種類 　 　 　 　 .】 WindowsXPSP2 or Windows2000SP4 【2 Excelのバージョン 　 】 Excel2003 or Excel2000 【3 VBAが使えるか　 　 .】 今はまだ全くダメ 【4 VBAでの回答の可否】 できるだけ否 【5 検索キーワード 　 　 】 excel 単価 変化 料金 関数 数量によって単価が変化する集計表を作っています。 例：合計値として10,000と入力した場合、 1〜5,000までは単価10、 5,001〜8,000までは単価6、 8,001〜12,000までは単価3、 12,001〜はすべて単価1とする……みたいな。 （この場合の合計金額は50,000+18,000+6,000=74,000となるです） 今まで手作業で合計値を単価ごとに手作業でバラして単純計算していましたが、 最近は数も増え、もう少しスマートに処理したいと考えています。 ヒントをいただきたく思います。よろしくお願いします。 239 名前：名無しさん＠そうだ選挙にいこう [2008/01/25(金) 10:27:17 ] >>238 やっつけ仕事で回答してみる A1に調べたい個数を入力(今回なら10000)、 インデックスとしてB1からB5に基準、単価、個数、残り、金額と入力 C1からF1に基準となる金額、左から0,5000,8000,12000と入力 c2からf2に基準となる単価左から0,10,6,3と入力 D3に=IF($A$1-C2<0,0,$A$1-C1) D4に=D3-E3 D5に=D2*D4 D3からD5までドラッグしてF列までオートフィル A5(どこでもいいけど)に=sum(d5:f5) 後は適当に見出しでもつけて完成 もっとスマートな式が作れるようになりたいです・・ 240 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 11:08:58 ] なんというやっつけ仕事www ただの事務なら問題ないがこれがSEだと・・ 241 名前：名無しさん＠そうだ選挙にいこう [2008/01/25(金) 11:11:18 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 今はまだ全くダメ 【4 VBAでの回答の可否】 できるだけ否 【5 検索キーワード 　 　 】 excel 同じ　コード 膨大な量の会社データがあります。 会社名にそれぞれ部署や人の名前などがひもついています。 ひとまず、「社名」で括って、同じ社名には自動で同じコード（数字）がふられるようにしたいのですが、 なにかいい方法はありますか？ ＣＯＵＮＴで社名の数だけカウントして、その社名の数分のコード表を作ってVLOOKUPさせて・・ という手作業が出来るほどの数ではありません 宜しくお願いします 242 名前：名無しさん＠そうだ選挙にいこう [2008/01/25(金) 11:45:22 ] >>241 やっつけ仕事二弾行くぜ まず社名で並び替えをする (社名がC列にあり、B列は空いていると仮定) B1に1、B2に =if(c1=c2,b1,b1+1) と入力、最終行までオートフィル その後B列すべてを選択してコピー、形式を選択して貼り付けで値を選択 並び順を変えたくない場合は以下を事前に行う インデックスがあれば並び替えた後にそれを元に並び替え もしない場合は、最初に作っておいてから最後に戻す 一応やり方は以下 F列まで使用しているとすると、G列に通し番号を入力しておく そしてすべてが終わった段階でG列を元に並べ替え 新しく追加する時は前後見ながらやればいいが・・ ついでに企業名のテーブルを作っておきたい場合 (HとI列が空いてるとする。別シートの方がいいと思うがそこは変えてくれ) 値で貼り付けた直後に、J1に=max(b1:b65535)と入力 これで企業の数が出る H1に1、H2に2・・とJ1の数字までオートフィル I1に=vlookup(h1,&b$1:$c$65535,2)と入力 またオートフィル 更にHとIをコピーして同じ場所に値で貼り付け 終わったら、先の処理に戻る でとりあえずはうまくいくと思う 243 名前：241 [2008/01/25(金) 11:57:31 ] >>242 すごい！ありがとう！ 感動した！本当にありがとうございます。 244 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 12:19:55 ] >>238 =IF(A1>12000,80000+(A1-12000)*1,IF(A1>8000,68000+(A1-8000)*3,IF(A1>5000,50000+(A1-5000)*6,A1*10))) 245 名前：名無しさん＠そうだ選挙にいこう [2008/01/25(金) 12:37:28 ] 　Rnd関数で返される値を、ある任意の範囲内の数値にしたい場合には、 「Int(最大値 - 最小値 +1 ) * Rnd + 最小値」 という文をwww.moug.net/tech/exvba/0100028.htm このページで見かけたのですが、 最小値に+1とする理由はなんでしょうか? rand関数の説明をしている他のページにも、 同じ記述があったのですが・・ 仮に+1を抜いてみても、変化は特に見受けられなかったのですが 246 名前：238 mailto:sage [2008/01/25(金) 12:59:58 ] >>239 ありがとうございます。 ただ、数量が少ない場合にはマイナスの合計金額が載ってしまうからか、 合計が正しい金額にならないみたいです。 書式設定に#;!0;0をぶち込み負の数値をすべてゼロとみなすよう 試みてみましたが、この作戦だと表示がゼロになるだけのようで、 いまいちうまく行きません。 いただいたヒントをもとに、もうちょい頑張ってみます。 >>244 これはなんとエレガントな……ッ！ IF関数ってこんな使い方ができるんですね。 見れば見るほど勉強になります。 ありがとうございます！ 247 名前：名無しさん＠そうだ選挙にいこう [2008/01/25(金) 13:12:57 ] >>246 すまんかった D3に=IF($A$1-C2<0,0,$A$1-C1) は D3に=IF($A$1-C1<0,0,$A$1-C1) だったな 248 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 13:13:42 ] >>242 >I1に=vlookup(h1,&b$1:$c$65535,2)と入力 &は$の間違いとしても、C65535まで指定する必要はなかんべ？ 249 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 13:26:30 ] >>242の最終行までオートフィルってA65536までって意味か？ だったら分からなくもないな。 =vlookup(h1,$b$1:$c$65536,2)だろうけど。 最終行の意味がC列にデータがあるところまでって意味ならうまくないが。 250 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 13:33:58 ] >>245 最小値に+1してるわけじゃなくて、intで切り捨ててるから。 rndは0≦n<1の間の値を返すから、0〜10欲しい時にint(rnd*10)じゃ、 結果の範囲は0≦n<10。どう転んでも10には届かない。 これを切り捨てするわけだから、得られるのは0〜9まで。 そういうときは1足してint(rnd*11)でないとまずい。 251 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 13:43:14 ] >>250 なるほど、0<=n<=1と思ってました ありがとうございます 252 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 13:44:27 ] ちょと聞いてくれよ、>>1よ スレと全然関係ないんだけどさ 1) 「Microsoft Word」を開く。 2) =rand (200,99) を打ち込む。 3) Enter ボタンを押して、しばし待つ。 ってやってみてくれよ 仕事中や何か飲みながらはあんまりしないほうがいいと思うぜ 253 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 13:54:29 ] 会社でふいたｗｗｗ こんなスレにはるなバカｗ 254 名前：214 mailto:sage [2008/01/25(金) 14:41:23 ] >>217 できました。ありがとうございます。 255 名前：名無しさん＠そうだ選挙にいこう [2008/01/25(金) 17:18:09 ] 数千個の列にならんだ数字データを一行おきに選択したいと前スレで質問して 作業列を1つ用意してA、Bと入力、Altを押しながらフィルハンドルをダブルクリック、 オートフィルタでAだけを選択、するとデータが1行置きに表示される。 あとはデータの入った列を選択してグラフを挿入。 作業列はデータ列のすぐ隣に作ること。 1行目にA、2行目にBと入力して、その2つのセルを選択してから Alt+フィルハンドルをダブルクリック。 と回答をもらったんですがA,Bと入力するところがよくわかりません。 新しいファイルで上のA列にデータをコピペしてBを空白にして Bのフィルハンドル（列全部選択してでてくる小さい四角ですよね？） をALTクリックしても何もおきません・・・どうすればいいのでしょうか 256 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 18:04:51 ] 要するにある列にABABABAB・・ と入力し、その列でオートフィルタ→Aを選択すれば奇数行、 Bを選択すれば偶数行が表示されるってことでしょう 俺のところ(エクセル2000)はaltを押さなくてよかったんだけど、バージョンの違いかな? とりあえず A、Bと入力、Altを押しながらフィルハンドルをダブルクリック は 例としてB1、B2にそれぞれA、Bと入力後B1B2を範囲選択 その後右下の点(フィルハンドルっていうのかな)をダブルクリックすれば 一番下の行のまでababab・・と入力されるってことだな それで、表だけなら完成だけど、グラフにするのか? グラフにするなら、オートフィルタの後にその表をすべて選択、 delete押してからオートフィルタ解除すれば表示してない行だけ残る 257 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 18:57:00 ] >>252 Wordを数年ぶりに開いて試してみた Word 2002 は、画期的な日本語入力・編集環境を実現した日本語ワープロです って何だ？ =rand()でも少し出るみたいだが 258 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 20:05:23 ] VBAでの質問です。 SelectとかActivateとかを使うと動作が遅くなると聞いたことが あるんですが、そんなに差が出るものでしょうか？ 例えば、A、B、Cというブックがあって、Aにマクロを書いて BとCを集計する場合、Windows(B)とか、Workbooks(C)とかを 書いてますが、速度を気にしたことがありません。 のです。 259 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 20:07:10 ] すみません、文章を添削してたら「のです」が残ってました。 「のです」に突っ込まないでください。 260 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 20:20:21 ] >>237 近似曲線の書式設定で予測の後方補外を0.5に。 261 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 21:00:41 ] >>255 セルB1に「A」、セルB2に「B」と入力してから、セルB1とB2を選択した状態でAltを押しながら フィルハンドルをダブルクリックだよ。自動的にA、B、A、B、というデータが一番下まで入る。 入力するのは「A」と「B」じゃなくても「りんご」と「みかん」でも、異なった文字列ならなんでもいいんだよ。 1行目はフィルターの対象外だから、2行目からにした方がいいかな。 262 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 21:32:47 ] >>258 普通は気にしなくていいよ。 業務プログラムだと、数万件の行を扱う事がザラにあるから、 ヘタに組んじゃうと極端に遅くなるっていう話ね。 基本的に、常に補助入力が有効になるようにコードを組んどけば、実行速度には有利になる。 事前バインディングってやつだけど。 263 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/25(金) 21:56:34 ] >>258 10倍20倍の差が出ることもあるが､ 10ms(0.01秒)が20倍の200ms(0.2秒)になったところでさして問題は無いだろう 262も言ってる通り､扱うデータが膨大になったり 処理が複雑になったりした場合に考えれば良い 現時点で気になってないということは､君はまだその域には居ないんだろうから しばらくは気にしなくていいと思うよ 264 名前：名無しさん＠そうだ選挙にいこう [2008/01/26(土) 01:24:17 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 不可 【5 検索キーワード 　 　 】 テキスト　保存 Excelでタブ区切りでテキスト保存する方法は分かるのですが タブなしでテキスト保存するにはどうしたら良いのでしょうか？ 例えば 愛　　ai 蟻　　ari 鍵　　kagi という表を 愛ai蟻ari鍵kagi というように完全にタブもスペースもないテキストデータにしたいのですが。 お願い致します。 265 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 01:30:08 ] >>264 データ量にもよるけど、VBA不可だとExcelでは基本的に無理。 ベクターでフリーのテキストエディタを落としてきて、タブと改行を一括削除が一番速くて簡単。 ごく少量なら別のシートに結合済みのデータを作って保存という方法もあるが。 266 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 01:35:04 ] ＞264 vba不可でオフィスだけでやるなら タブ区切りで保存 ワードで開く タブを置換して消す（オプション→あいまい検索のチェック外す→特殊文字→タブ　でタブが検索できる） 同じく段落記号を置換して消す 保存 267 名前：名無しさん＠そうだ選挙にいこう [2008/01/26(土) 01:47:18 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 不可 【5 検索キーワード 　 　 】 文字数カウント Excelで複数セルに渡るものの文字数をカウントするにはどうしらたら良いのでしょうか？ ネットで検索したところ =+LEN(A1) で出来ると書かれていたのですが 単一セルだと出来るのですが 複数セルだとうまくいきません。 どうすれば良いでしょうか？ 268 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 01:55:45 ] >267 =LEN(A1&A2&A3) の形で文字列くっつけるしかないのかも 数多いなら作業範囲作って、セルごとにカウントして合計のほうが速いと思われます 269 名前：名無しさん＠そうだ選挙にいこう [2008/01/26(土) 02:03:42 ] >>268 ありがとうございます。 どういうことですか？ 初心者なのでよく分かりません。 270 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 02:13:21 ] >269 カウントしたい範囲が A1から3行・4列に渡ってるとしたら、 たとえばA10からD12の範囲で作業を行う A10に =LEN(A1) と入れて作業を行う範囲にコピー んで、その範囲の合計をする。 271 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 10:41:24 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 ? 【4 VBAでの回答の可否】 ? 【5 検索キーワード 　 　 】 ? エクセルの勉強を始めたばかりなのですが、 『桁区切り』や『パーセントスタイル』を解除するにはどうしたらいいのでしょうか? 272 名前：271 mailto:sage [2008/01/26(土) 10:44:11 ] 追記です Ctrl+Z以外の方法で、デス 273 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 11:36:35 ] セルを右クリックして「セルの書式設定」 274 名前：271 mailto:sage [2008/01/26(土) 11:39:39 ] >>273 ありがとうございました 275 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 12:09:41 ] >>267 どうしても作業列がいやなら =SUM(LEN(A1:A10))としてshit + cntrl + enterもある。 とかくDQNが大好きな=SUMPRODUCT(LEN(A1:A10))でもいいが。 276 名前：名無しさん＠そうだ選挙にいこう [2008/01/26(土) 12:30:40 ] DQNが好きというのはどういうところから そう思われるのでしょうか？ 277 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 12:52:00 ] >>276 >275こそがDQNだから気にするな 278 名前：277 mailto:sage [2008/01/26(土) 12:56:41 ] という俺もDQNだがな 279 名前：276 mailto:sage [2008/01/26(土) 12:57:30 ] 俺以上にDQNがいるわけがない 280 名前：279=275 mailto:sage [2008/01/26(土) 12:58:59 ] レス番、本気で間違えた。 やっぱり俺が最強のDQNだ。 281 名前：277 mailto:sage [2008/01/26(土) 13:06:24 ] いや俺こそが最強のDQNです。 =SUM(INDEX(LEN(A1:A10),))も好きだしな。 282 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 13:10:40 ] そろそろ飽きた 283 名前：名無しさん＠そうだ選挙にいこう [2008/01/26(土) 16:00:35 ] Excelにはセルの右下をドラッグすることで 数字の連番を作る機能がありますが（オートコンプリートと言うんでしたっけ？） これはドラッグするセルの数が少なければ問題ないのですが 数百とか数千とかになると、すぐに行き過ぎてしまったりして うまくセレクトすることが出来ません。 これを、例えばシフトを使って複数選択するなどの 方法などで簡単に行うことは出来ないのでしょうか？ 284 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 16:06:56 ] >>283 左上の名前ボックスにA1:A3500とか入れればいいよ それで編集→フィル→連続データ 285 名前：名無しさん＠そうだ選挙にいこう [2008/01/26(土) 16:53:09 ] 名前ボックスに値を入れても 編集→フィル→連続データをクリックすると 値を消えてしまうのですがどうすれば良いのでしょうか？ 286 名前：名無しさん＠そうだ選挙にいこう [2008/01/26(土) 17:22:52 ] 初歩的な質問ですいませんが、セルに文字を入力する際、 ダブルクリックすれば入力できますが、ダブルクリックしないで、 キーボードの何かを押せば、文字が入力できるようにはならないでしょうか？ 287 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 17:27:39 ] 288 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 17:29:20 ] F2 289 名前：286 [2008/01/26(土) 17:31:17 ] すいません、質問の仕方が間違ってました。　○|￣|＿ 既に入力されている文字を訂正したい場合、ダブルクリックすれば 訂正前の文字が残ったまま、カーソルが点滅しますよね。 その状態に、ダブルクリックしないで、キーボードから操作できないでしょうか？ というのが質問です。上書きすればいい話なんですが、既に入力されている文字を 残したまま、訂正したいので。 290 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 17:32:43 ] >>288 あ、レス書いてるうちに回答が！ F2押したらできました！！　ありがとうございました。 291 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 18:03:47 ] 【1 OSの種類 　 　 　 　 .】 Windows XP Home 【2 Excelのバージョン 　 】 Excel 2003 Pro 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 【5 検索キーワード 　 　 】 プルダウン 質問なのですが、「A」というシートで作ったデータのそれぞれの題名(縦に並べてます)を、 「B」というシートでプルダウン形式で選択して、さらにその同じ行に入力してあるデータを 「B」のシートでも「A」と同じように並べることは可能でしょうか？ イメージとしては「B」に「A」のデータを行単位で引っ張り出す。その方法はプルダウンという感じです。 なんだかうまく説明できてる気がしませんが、どうかお願いします 292 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 18:30:35 ] >>291 名前を付ければ可能 あとはvlookup等を使用したらおｋ 293 名前：291 mailto:sage [2008/01/26(土) 19:20:19 ] >>292 レスありがとうございます。「A」でつけた名前の一覧を「B」のプルダウンで選択して、 その結果同じ行に「A」のデータ部分を表示させる、という処理もvlookupで可能 なのでしょうか？ そもそもの質問の仕方がおかしいばかりに重ねての質問になってしまい申しわけありません 294 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 20:59:15 ] >>293 そゆこと 295 名前：名無しさん＠そうだ選挙にいこう [2008/01/26(土) 21:30:41 ] 式の始めに「=」でなく、>>267　さんのように「=+」と入力する人を ときどき見かけるのですが、どこかでそう教えられているのですか？ 「=+」を使う人って多いのでしょうか。 296 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 21:44:36 ] >>295 マルチプランの頃から使っていた人なのかな？ 297 名前：名無しさん＠そうだ選挙にいこう [2008/01/26(土) 23:01:46 ] >>281 最強のＤＱＮさん、=sum(index(len(範囲),))　について その式、初めて見たんだけど、その式のコンビネーションの詳細情報を求めたい。 それと、貴方なら知っていそうなのでききたい。 index関数で行又は列の指定でゼロとする場合は、具体的にどんな場合ですか？ 298 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/26(土) 23:55:26 ] >>281 これって、 ・index関数の中なら、LEN関数などを配列数式的につかえる 　　INDEX(LEN(A1:A10),,）→index({LEN(A1);LEN(A2)…;LEN(A10)},,） ・index関数の行指定などを省略すると行全体等が帰り値になる 　　index(A1:C10,,2)→B1:B10 ってことでいいんでしょうか？ 299 名前：297 ◆wkj7cNdS3Y [2008/01/27(日) 00:08:56 ] >>298 サンクス 配列を全く、意識していませんでした。 自分にとってすごく、勉強になり、重ねてサンクス。 300 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 00:21:09 ] WindowsXPPro Excel2003Personal 特定のシートで数式が戻り値を返さずに数式のまま 表示されてしまうのですが、 シートが壊れてしまったのでしょうか？ 301 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 00:23:53 ] >>300 セルの書式を見て文字列になっているなら標準なりにかえる 302 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 00:52:38 ] >>301 書式は標準になってました。 数式を他のシートに貼り付けるとちゃんと戻り値を表示するので 数式が悪いわけではない気がします。 303 名前：名無しさん＠そうだ選挙にいこう [2008/01/27(日) 01:31:23 ] なら、数式を書いて聞くべき 'がついていれば、'をはずせ 折れは寝る 304 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 01:33:49 ] >>302 数式を表示する状態になっている。 数式を表示するか結果の値を表示するかはどこかで設定できる。 いまこちらの手元にあるバージョンとは異なるので正確には伝えられないけど、 ちゃんとできます。 いろんなところの表示を確認してみてください。 305 名前：名無しさん＠そうだ選挙にいこう [2008/01/27(日) 01:50:46 ] もしご存知の方がいらっしゃったら教えてください。 データベースに以下の数字があったとしてます。 200 140 480 20 この数字の中からどれかを足して500を求めたいのですが、 エクセルの関数で該当するようなものありますでしょうか。 結果として480と20が何かしらの方法で把握できれば良いのですが、 ご存知の方がいらっしゃったら、是非、教えてください。 306 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 01:51:55 ] >>300 特定のシートだけで起こるなら、正常なシートにそのセルをコピペしてみろ。 先頭に "="が付いてないだけだったりしたらヌッ頃すから、くれぐれも用心しろ。 307 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 01:57:11 ] >>305 足しこむ数字の数が、常に２つなんだったら、そんなに難しくないと思う。 例えば、200 が書いてあるセルを A1 とすれば、 　=VLOOKUP(500-A1, A1:A4, 1, False) これを、B1にでも書いて下にコピーすれば把握はできる。 308 名前：307 mailto:sage [2008/01/27(日) 01:59:57 ] あ、間違えた。　　× A1:A4　　○ $A$1:$A$4　　こうしないとダメだな、多分。 309 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 02:02:13 ] >>305 ソルバー 310 名前：名無しさん＠そうだ選挙にいこう [2008/01/27(日) 02:05:40 ] >>307 レスどうもありがとうございます。 なるほどVLOOKUPで差額を求めるということですね。 実は会社の製品をいくつか売り上げて、請求書通りに払ってこない 顧客も中にはあり、そのような顧客の売掛金の消し込みの方法を考えています。 そのため、常に2つとは限らないのですが、大変参考になりました。 どうもありがとうございます。 311 名前：名無しさん＠そうだ選挙にいこう [2008/01/27(日) 02:11:15 ] >>309 ソルバーという解析機能があるのですね(今、調べました)。 勉強になりました。 誠にありがとうございます。 312 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 02:19:37 ] >>310みたいに、そういうのを先に言っておけばもっといい方法が 出てくるかも知れないのに、 わかりやすくするつもりで言い方変えちゃうもんだから その質問の書き込みに合わせた答えしか返ってこない。 質問したい人がいて答えてくれる人もいるのにこれはほんとにもったいないことだと思う。 313 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 09:48:46 ] >>300 ツール→オプション→表示→ウィンドウオプション→数式のチェックをはずす 314 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 09:49:41 ] >>297 そういうDQNなINDEX使っては駄目だからな。 配列数式よりメリットがあれば別だが、まったくない。 315 名前：295 mailto:sage [2008/01/27(日) 10:13:48 ] >>296 マルチプランがそうだったとは知りませんでした。 高校生くらいの子が「=+」を使っているのを見たので、 先生か誰かに教えてもらったのでしょうね。 レスありがとうございました。 316 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 10:22:15 ] >>315 今でもMacのExcel使ってる人はそうするんじゃない？ =は打たなくていいんだからな。 =3*2は+3*2でいい。 テンキーのみで済む。 317 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 10:33:27 ] むかーしLotus1-2-3てのがあってな…… 318 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 10:42:26 ] 今でもあるけど､何か？ 俺はR5Jを最後に使ってないが 319 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 10:54:18 ] Lotus1-2-3がほぼ駆逐されたのは、Excel5にVBAが使えるようになったから？ それともWindous対応に1-2-3が遅れたから？ 320 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 10:58:02 ] Office搭載モデルがMSの戦略的な値下げで結果的に売れたからだろうね。 昔は「一太郎+Lotus」がインストールされた機種も選べたんだから。 321 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 11:37:47 ] >>319 Windowsを知り尽くしているMSだから他社に先行してWin対応Officeをすぐに 発売。他社は一太郎も含めWin対応に追われているうちに（バグでまくり）、 MSがバンドル販売戦略を展開。 さらにVBAのすごさが理解されるに従い、Excel以外の選択肢がなくなる というMSにとって好循環が開始。 で、その他大勢死亡という流れ。 IEだってIE4でDOMを実装して、その場しのぎのネスケNC4死亡が確定したよな。 322 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 11:41:49 ] まあいずれにせよVBA搭載のExcel95があったからこそ、Excelとバンドルされない ソフトの死亡が決定的になったんだよ。まさにキラーアプリ。 当時は大半がExcel+一太郎の組み合わせを望んできたのにな。 323 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 13:05:01 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2007 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 【5 検索キーワード 　 　 】 グラフでX軸の下に2種類の数値を色を分けて表示させ、2つの折れ線グラフを色を分けて作成したいのですが、どう頑張ってもできません・・・ ご指導お願いします・・・ ｜ ┼──────────────── ｜　5　　　10　　15 ｜ 0.05　0.1 324 名前：323 mailto:sage [2008/01/27(日) 13:09:07 ] ↑途中で送信してしまいました・・・・ y ｜ ┼────────────────x ｜　5　　　10　　15 ｜ 0.05　　0.1　0.15 分かり辛いと思うので例を示しました。このようにしたいと思っています。よろしくお願いします！ 325 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 14:21:08 ] Excel2007で上下ではなく左右のスクロールをキーボードだけで出来ますか？ マウスジェスチャに割当できなくて不便です 326 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 14:23:11 ] >>325 つScroll Lock 327 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 14:38:06 ] 自然対数の底eについて質問です。 eを用いた計算をするときに、近似値としてe = 2.71828183を直接打ち込んでいつも計算しているのですが、 コマンドでeを表示させることはできないのでしょうか？ 328 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 14:54:48 ] =exp(1) 329 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 15:15:54 ] >>328 ありがとうございます！ eの一乗ってことですね。 eの何乗かにしたければ(　)の中をその数字に。 助かりました 330 名前：新し [2008/01/27(日) 18:53:58 ] 質問です。 過去やネットでわかりそうなので調べているのですが、解決しません。 よろしくお願いします。 力仕事でやればできそうですが、マクロで解決したいのです。　 【1 OSの種類 　 　 　 　 .】 Windows vista 【2 Excelのバージョン 　 】 Excel2007 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 エクセル　マクロ　select　case　電話番号 電話番号は０から始まり、途中にハイフン「−」が入りきれいに見えます。 検索に使う場合、ハイフンが不要ですので削除しました。 このハイフンを削除した９桁から１１桁の番号を、ハイフン付きの電話番号に戻したいのです。 最初のハイフンまで、03、04、090、0285、など　２桁から４桁、時に５桁のところもあります。 left関数などで、select case を使うぐらいでしょうか。 331 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 19:02:07 ] 電話番号の横に03、04、090、0285などの列をつくり、それぞれFINDで電話番号の中に含まれていれば1になるような式をつくり、 さらに別の列にSUBSTITUTEで市外局番を削除した残りの電話番号をつくる。あとはそれらをくっつければいいから簡単だな。 332 名前：名無しさん＠そうだ選挙にいこう [2008/01/27(日) 20:20:03 ] マクロ・VBAを独学で学び初めて１日目です。 【1 OSの種類 　 　 　 　 .】 Windows xp 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 超初心者 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 エクセル　マクロ　罫線　Borders FOM出版を使ってます。 「Borders　プロパティ」の構文が 　オブジェクト.Borders　（引数） となっております。 「（）かっこ内で指定した引数のとおり罫線を引く」と書いてあったので、 Sub セル範囲内の中央に水平の線を引く() Selection.Borders xlInsideHorizontal End Sub と入力しても、エラーがおきてしまいます。 どういうモジュールを書けばよいのでしょうか・・・。 よろしくお願い致します。 333 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 21:17:48 ] >>332です。 自己解決しました。すいません。 334 名前：新し [2008/01/27(日) 21:36:15 ] >>331 ありがとうございます。 簡単ですけど、まさに、力仕事ですね。 もう少し、スマートなやり方はないものでしょうか。 マクロを期待していましたが、期待しすぎでしょうか。 335 名前：新し [2008/01/27(日) 21:47:31 ] 追加で 市外局番には、04、048、0480　となるものがあり、もうひとひねり必要になります。 これは、優先順位を決めればできますが、やはり、力仕事になります。 336 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 21:47:53 ] 同じことをマクロでやればいいんじゃないかな 337 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 21:48:39 ] >>335　桁数の大きい順に検索すれば問題なし 338 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 21:54:45 ] >>334 そのロジック（電話番号への簡単なハイフン挿入処理）を作れれば儲かる、 と言われてるほど、本質的には難しい処理だと聞いたことがある気がする。 090からの１１桁もあれば、0xxx - x - xxxx なんて番号もあるからね。 339 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 23:12:16 ] >>331 ハイフンの入った元データがなくなってしまったって事？ そうでなく、単に検索のためにハイフン取ったのなら、ハイフンありとハイフンなし を併記してデータ作っておけばいいだけだろうけど。 （そういうことならハイフンつけたままのデータから検索すればいいんだけどな） 340 名前：新し [2008/01/27(日) 23:26:04 ] >>339 検索と電話などで新規に取得したデータ作成の場合には、少しでも速くくする ためハイフンははずします。 連続数字の電話番号を取得したのち、併記もできますが、データが多くなると 大変です。 過去の蓄積した連続番号から、ネットで住所を参考に市外局番の取出しをする のです。 ネット検索で分かったことは、ハイフンまでの市外局番の種類が意外に多いな 、ということでした。 番号の付け方に、何か法則があれば知りたいと思いますし、そうすれば、他の 解決手段も導き出せるかもしれない、と考えます。 341 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 23:38:59 ] >>340 www.soumu.go.jp/joho_tsusin/top/tel_number/shigai_list.html これ見りゃ規則性なんてないし、いつ変更になるかも分からないんだから ハイフンのないデータしかない状況でハイフンをつけることはしかたないから やるしかないだろうけど、ハイフンがあるデータ持っているのにハイフンを とってそれをもう一度ハイフンつけるなんてちょっと無理筋じゃない？ 初めから市外局番とそれ以外を別レコードとして管理、検索するのが 一番だと思います。 342 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/27(日) 23:41:06 ] それで、ハイフン外したデータとは別に、ハイフンのあるデータは手元にあるの？ないの？ 単純に考えていちばん早いのは、併記しておいて、検索はハイフンなしの列でして、拾うデータはありの列ですること。 電話番号に規則性なんて無いんだから、調べる手間考えたら処理速度が遅い事なんて屁みたいなもん。 343 名前：名無しさん＠そうだ選挙にいこう [2008/01/28(月) 00:29:13 ] グラフの作成法に関する質問です。 今　A(2.3) B(1.5) C(2.1) ・・・・・・ などのような(x.y)で表されるデータがあり、x軸にxのデータy軸にyのデータをプロットしようとしています。 そこまでは自分でもできたのですが、グラフ上に表示される点をただの点ではなくて、 A B Cのようにそのデータ名をグラフ上に表示させたいのです。 こういったことはエクセルでできるのでしょうか？ 344 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 00:43:31 ] WindowsXP　Excel2003　VBAは余りわかりません　VBAでの回答可 part 62スレより抜粋---------------------------------- 　551 　＞すでに雛形は作っているファイルに必要な部分を記入したあとに 　＞ファイル名をつけて保存するを選んだときに 　＞自動で当日の日付を入れるようにしたいのですが 　＞ご助言お願いします。 　＞ 　＞例：　今日の献立20071203 　553 　＞>>551 　＞Dim Save_File, Save_Filename As String 　＞Save_Filename = Format(Date, "yyyymmdd") 　＞Save_File = Application.GetSaveAsFilename(Save_Filename) 　＞On Error GoTo ERR1 　＞If Save_File <> "False" Then 　＞ActiveWorkbook.SaveAs Filename:=Save_File 　＞End If 　＞これでどうだろう。 ------------------------------------------------ このような質問回答があったのですが、名前を付けて保存する際に、 すでにﾌｧｲﾙが存在した場合、ｳｨﾝﾄﾞｳｽﾞが注意のメッセージを出してくれます ”すでにﾌｧｲﾙが存在します。上書きしますか？”のようなメッセージで 加えて　　はい　いいえ　キャンセル　の選択肢とともに。 ここで　いいえ　もしくは　キャンセルを選択すると 　実行時エラー1004 　SaveAs　メソッドは失敗しました　_Workbookオブジェクト と出ます。 　　　　　　　　　　　　　　　　　　　　　■レス行数オーバーのためレス跨ぎます 345 名前：344 mailto:sage [2008/01/28(月) 00:46:18 ] ここで、質問なのですが、 �@On Errorを噛ませているにもかかわらず 　エラー時に飛ばずにストップしてしまうのはなぜでしょうか？ 　（ちなみにGoto先でちゃんとERR1は作ってます） �A保存時の処理はこれで良いのですが、いいえもしくはキャンセル選択時は 　そのままキャンセルさせたいのですが、どのように記述すれば良いでしょうか？ 長くなりましたがどうぞよろしくお願いします。 346 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 02:06:49 ] $ってどういう記号でしょうか？この文の意味を教えてください・・ C列の文なんですが何をしようとしてるかさっぱりわからないです IF(A1<$B$1,IF(A1>-$B$1,1,0),0) 347 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 02:17:56 ] >>346 そのセルを別のセルにコピーした時に、列番号や行番号が変わってほしくない時に使う記号。 だから、そこだけを見ても意味はない。 348 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 02:23:00 ] 「絶対参照」でｸﾞｸﾞってみれ。 349 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 02:57:57 ] ひとつのセルに計算式を入れて、それを数字ずらしてその列のセル全部に適応 させるのはどうすればよいでしょうか？ たとえばB2はA1+A2、B3はA2+A3、B4はA3+A4の値という風に 350 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 03:05:03 ] >>349 B2に=A1+A2と入れてからコピペ 351 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 03:21:55 ] >>350 できましたありがとうございます 352 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 12:27:05 ] 【1 OSの種類 　 　 　 　 .】 Windows xp 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 可 ユーザーフォームを作っているのですが、コマンドボタンやラベルの上にマウスを持っていくと ヘルプが表示されるようにしたいのですが、どこかで見かけた覚えがあるのですが、やり方がわかりません。 やはりＶＢＡのコードの問題なのでしょうか？ 353 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 12:34:40 ] >>352 ControlTipTextプロパティ 354 名前：名無しさん＠そうだ選挙にいこう [2008/01/28(月) 13:18:12 ] エクセル2003で、VBAでプログラム書いてるんですが セルではなくオートしぇいぷが選択されたり変更されたときに その動作を取得可能なイベントってわかりませんか？ Changeイベントではasのあとをrangeからshapeにかえたりしてもうまくいきません。 355 名前：344,345 mailto:sage [2008/01/28(月) 13:19:07 ] 自己解決しました。ありがとうございました。 356 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 13:23:43 ] 「フォント」をクリックすると、見たこともないフォントが大量にあるのですが、 要らないフォントを消すにはどうすればいいでしょうか？ 357 名前：名無しさん＠そうだ選挙にいこう [2008/01/28(月) 13:37:42 ] >>356 ウィンドウズのコンパネのフォントから消去するしかないはず。 エクセル側で使用フォントを限定するのは無理とオモ。 358 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 14:58:33 ] >>356 ヘタに消すとWindowsがおかしくなるから注意。 消してもいいフォント一覧はぐぐれば出てくる。 359 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 15:21:55 ] >>354 オートシェイプを右クリックでマクロの登録 360 名前：WinXP　Excel2002 mailto:sage [2008/01/28(月) 17:56:23 ] A列の最下行はRange("A65536").End(xlUp)で取得できますが、 各列の最下行をRowで取得するには、どう書けばいいです？ 361 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 18:03:40 ] >>360 Range("A65536") ここをRange("B65536")、Range("C65536")、Range("D65536")にするだけじゃね？ Excel2007だと最大65536行じゃないんで Range("A" & Rows.Count)のほうがいいと思うぜ 362 名前：名無しさん＠そうだ選挙にいこう [2008/01/28(月) 18:25:17 ] スクロールしたら上に消えて見えなくなる見出しを スクロールしても常に上に表示させる方法があったと思うのですが やり方がわかりません。 また、ググるにしても抽象的でどう検索をかけたらいいか分かりません。 教えてください。 EXCELのバージョンは2002　SP1となっています。 OSはXPです。 363 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 18:29:45 ] ウィンドウ枠の固定？ 364 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 18:50:47 ] >>363 ありがとうございます。できました。 365 名前：名無しさん＠そうだ選挙にいこう [2008/01/28(月) 19:56:27 ] Excelの計算式あるいはマクロで、下記のような処理をしたいと思っています。 「入室管理区域への出入り記録（タブ区切りテキスト）から、個人個人の特定の期間における入室時間が、一週間あたり24時間を超えていないかどうか」を判定する データとしては、次のような形になっています。 日付　　　　　時刻　　　 氏名　　　動作 2008/1/21　14:55:01　ギコ夫　　入室 2008/1/21　14:59:45　ギコ夫　　退室 2008/1/21　15:25:50　ひろゆき　入室 2008/1/21　15:26:05　フサ夫　　入室 2008/1/21　15:49:25　フサ夫　　退室 2008/1/21　15:58:10　ひろゆき　退室 このデータを、「一週間あたり」に分け、一人ずつの「退室時刻−入室時刻」の合計を計算したい、ということです。 このとき注意すべき点は、 1）入室する可能性がある氏名リストは100名ほどだが、その全員が入室するとは限らない 2）ある個人の入退室の間に、別の人間の入退室記録が入る場合がある などがあります。 さらに厄介なのが、 3）まれに、入室あるいは退室の記録を忘れる人がいる ということです。 1）と2）はなんとか自力で対応できそうなのですが、3）をどうすればよいのかがよく分かりません。 入室時間が不明の場合は、一律「10分間」としても構わないのですが。 どなたかアイデアをお貸し下さい。。 366 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 20:02:07 ] データのフォーマットが悪い。入退室の記録を忘れるとかは半分以上フォーマットの問題。 日付　　 氏名　　　入室時刻　　退室時刻　　在室時間 にすべき。できないなら、まずこういうフォーマットに変換するにはどうすればいいかを考えないといけない。 367 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 20:05:20 ] ＞3）をどうすればよいのかがよく分かりません。 回答者は>365以上にどうすれば良いのかよくわからんと思うｗ どうするかの方向性は質問者が作らないとどうしようもないｗ 3)の場合は○○にする。 とする場合のやり方教えてください。なら良いけど。 368 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 20:10:03 ] >>365 つか質問がわからん. ＞1）と2）はなんとか自力で対応できそうなのですが なら頑張れ。 ＞一律「10分間」としても構わない じゃぁそれで。 別に嫌がらせとかじゃなくて、何を質問しに来たのかわからん。マジで。 369 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 20:13:38 ] >>368のレスは半分嫌がらせで出来ています でも残り半分は正論で出来ています 370 名前：名無しさん＠そうだ選挙にいこう [2008/01/28(月) 20:26:40 ] >>365 勝手に決めると越権になるぞ。 >>367 に対しての返答はおまえが答えてはいけないことだ。 371 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 20:32:04 ] マクロ暦8ヶ月（たまに扱う程度の俺が作るとこうなったんだけど、 お前らならこのマクロに何点付ける？ Sub ギコ夫() For i = 2 To 100 If Cells(i, 3) = "ギコ夫" And Cells(i, 5) = "入室" Then a = a + 1 aaa = aaa + Cells(i, 2) ElseIf Cells(i, 3) = "ギコ夫" And Cells(i, 5) = "退室" Then b = b + 1 bbb = bbb + Cells(i, 2) End If Next i If b = a Then ccc = bbb - aaa MsgBox Format(ccc, "hh:mm:ss") Else MsgBox "ギコ夫、入退室ボタン押し忘れ -500円" End If End Sub 372 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 21:05:19 ] >>361 その場合､ Cells(Rows.Count, 1).End(xlUp) のほうがいいと思うぜ 型変換と文字列連結という無駄な処理を踏まないで済むし ループも組みやすい >>365 他の人も言ってるとおり､3)の場合どのように処理したいのか解らないし 1)と2)をどのように実装しようとしてるかでも話は変わってくる 俺ならClassとCollectionかDictionaryを使って1)と2)の処理をして 3)に関しては｢1回の最大入室時間が1時間を超えることはない｣などの条件があるなら 入室から1時間以内に退室が無ければ｢退室記録忘れ｣のフラグを立てる 但し俺も個人的には>>366の方法を推奨する こういったことでややこしくなってる奴って､大抵大元のフォーマットに問題があるんだよね 373 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 21:37:06 ] >>366と>>372は同意してるけどズレテルだろ？論点。 >>366は乳体質の記録忘れはフォーマットが悪いため >>372はマクロ作成に伴い、やりづらい面があるのは元フォーマットが悪いため だろ？ つか>>366フォーマットの良し悪しと、入隊質の押し忘れ、関係なくね？ >372はわかるけど。 374 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 21:40:46 ] ツーか、マクロOKの場合なら、フォーマットなんて正直どんなにややこしくても いくらでも扱いやすい形にできるじゃん。 >>365で＞入室管理区域への出入り記録（タブ区切りテキスト）ってあるんだから、 専用のタイムカードっぽいものから出力されてるもので、専用機の場合も考えられる。 マクロOKで質問してるのに、フォーマットを云々みたいな回答ださくね？ そんな回答、はっきり言って、 もとのテキストファイルに最初から合計時間出させるフォーマットで出力しろ。 と言ってるのとなんら変わらんレベル。 375 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 22:12:22 ] だから、変えるのが無理なら計算しやすいフォーマットに変換しないといかんといってるやん。 直接できる、その方が簡単だっていうなら無理に変換する必要はないけどね 376 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 22:33:51 ] ユーザーホーム上にイメージ枠を作り中に図を入れ イメージ枠を非表示にしたいのですが、どのようにすればよいでしょうか？ 377 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 22:43:00 ] IC社員証をピッとかざして入退室記録してるから生データが>365なのかもしれない。 データ保管室かなんかで入室時間が異様に長い場合データを盗んでいるんじゃ ないかと w などといろいろ想像してしまった。 まあ、機械でデータ取ってるんだろうなと考えた人と、紙にでも書かせている （若しくは自分or秘書が入力している）などと考えている人の前提の違いの ような気がする。 378 名前：名無しさん＠そうだ選挙にいこう [2008/01/28(月) 23:15:03 ] すみません、>>365です。 今帰宅しました。 出力結果は、セ○ムの入退室管理ソフトの出力形式がそうなっているためです。 このソフトでは「一週間単位の個人ごとのトータル入室時間」というものを計算する方法が用意されていないため、 自分でExcelに持ち込んでやるしかないのです。 なので、データのフォーマットが悪いというご指摘は、その通りなんですがセ○ムが悪いってことで勘弁してください。 それから3）の処理ですが、入室時間が不明の場合は、「10分間入室していたことにしてよい」と管理者の方の許可 をいただいています。 分かりにくくてすみませんでした。 ただし、「入室」の記録がない場合と、「退室」の記録がない場合の両方があって困っているのです。 おそらく、同時に誰かと入退室した際に、自分のICカードを使わずに出入りしているものと思われます。 場合によっては、入室と退室の両方の記録が漏れていることも考えられますが、その場合は計算ができないので 対象外とします。 そんな感じです。 ｇｄｇｄな質問ですみません。 379 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 23:17:56 ] あ、なお、今のところやろうとしたのは、ユニークユーザごとに入退室時刻を拾い出し、 「動作」カラムが「入室」なら−１倍、「退室」なら１倍して、一週間ごとに合計を出す、 という方法です。 この場合、（当然ですが）入室と退室の数が一致しないと、とんでもない数値が出て しまいます。。 ご教示をお待ちしております。 380 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/28(月) 23:23:46 ] J列（適当）に名前の一覧があるとして、これでどうだろ？ Private Sub CommandButton1_Click() For j = 1 To 100 a = 0 b = 0 aaa = 0 bbb = 0 For i = 2 To 100 If Cells(i, 3) = Cells(j, 10) And Cells(i, 4) = "入室" Then a = a + 1 aaa = aaa + Cells(i, 2) ElseIf Cells(i, 3) = Cells(j, 10) And Cells(i, 4) = "退室" Then b = b + 1 bbb = bbb + Cells(i, 2) End If Next i If b = a Then ccc = bbb - aaa Cells(j, 10 + 1) = Format(ccc, "hh:mm:ss") Else Cells(j, 10 + 1) = "入退室ボタン押し忘れ -500円" End If If ccc > 1 Then Cells(j, 10 + 2) = "居座りすぎ" End If Next j End Sub 381 名前：名無しさん＠そうだ選挙にいこう [2008/01/28(月) 23:39:58 ] >>359 ども。 もちろんそれは存じてます。 でもマクロ記録するだけでは 他のチェックボタンを使用して変更されたことを検知して処理 という手順すかできず、ま、それは今しのぎ的に使ってる手法なんです。 いまやりたいのは、 テキストボックスに数値が入力された場合、 数値が一定の範囲を越えていたら背景を橙色に変えるとか、 警告ダイアログを出すとか、 あるいは 四角形オートしぇいぷをクリックするたび色を赤、青、黄と変化させたり、 四角形オートしぇいぷの大きさを変えても、俊二に元に戻るような しかけを付けたりしたいわけなんです。 セルでは何の問題もなくこれらはできているのですが オートしぇいぷの場合はやり方がわかりません 何とか方法がないでしょうか？ 382 名前：365 mailto:sage [2008/01/28(月) 23:44:42 ] >>380 ありがとうございます。 a、bを入退室の回数、aaa、bbbを入退室時刻の和として、cccを総入室時間としてK列に表示するわけでしょうか。 ただ、入室または退室が記録から漏れた場合の処理（10分間とみなす）はどのようにすればよいのでしょう？ それと、「一週間ごと」の処理もよく分かりませんでした。 一週間ごとに関しては、日付からWeekday関数で曜日を1〜7で表したカラムを作り、曜日カラムの数値が減るまで 同じ処理を続けて、減ったらカウント１うｐする、という風にやればループさせられますかね？ 383 名前：365 mailto:sage [2008/01/28(月) 23:53:50 ] 最後の段落のところで、a>bとa<bの場合に分けたらいいのかと一瞬思ったんですが、 よく考えたら、たとえば同一人物の「入室」が3回続いて「退室」が3回続いたりした場合、 3）の「10分ルール」を適用すると、6階の入退室で60分、とカウントすることになるわけ ですよね。 なのでやっぱり、入室と退室を先に合計してしまうのはまずいんじゃ？と思うんですが。 A）入室→退室 B）入室→入室 C）退室→入室 D）退室→退室 の4通りに分けた上で、退室時刻から入室時刻を引くか、10分を加えるか、の処理を 判断して行なう必要がある、ってことでしょうか。 384 名前：365 mailto:sage [2008/01/28(月) 23:54:57 ] ↑ × 6階 ○ 6回 385 名前：365 mailto:sage [2008/01/28(月) 23:58:51 ] >>383 ＞同一人物の「入室」が3回続いて「退室」が3回続いたりした場合 あ、違うや。 3回目の入室と1回目の退室は正しい順番なんだから、この場合は 10分×2回（入室）＋（退室時刻−入室時刻）＋10分×2回（退室） になるのか。 386 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 00:01:57 ] そろそろ>>366を思い出してもいい頃だな 387 名前：365 mailto:sage [2008/01/29(火) 00:05:56 ] >>386 うー、すみません、難しいです。。 とりあえず今日のところはｴﾛ動画見て寝ます。 また明日、職場から見に来ます。 おやすみなさい。 388 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 00:07:20 ] ロジックをどうすればいいか知りたいのか？ >383が分かったのなら、まずは特定の人物でどのようなパターンがあるか 考えて計算させれば良いじゃん。時間の若い順に並べて 1) 退室なら入室の記録忘れとして処理。 2) 入室→退室ならまんま計算 3) 入室→入室なら退室の記録忘れとして処理 と必ず入室・退室のセットで考えるようにして、上記の1)や3)の場合は 記録忘れ分を補完すればいい。そして、上記の処理を繰り返す。 これを記載された人物名を全て行う。 入室→退室となっていても１時間以上となるはずがないことが確かであれば、 この場合は退室・入室を一回ずつ記録漏れとして処理しないといけない。 これ以上はエスパーでないとどうしようもないよ。 389 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 00:08:32 ] >>382 適当なセルに入室のときと退室のときの上京を示してやれば良い 入室ならZ1に+を、退室なら-を入れる if range(z1)="+" and Cells(i, 4) =入室 then 入室が続いている状態 一つ前に加えた Cells(i, 2)を引く でどう？ 曜日区切りはそれでおｋだとおもう 390 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 00:23:23 ] 365はものすごいやつだな。 391 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 00:35:23 ] 同感。　387にしても、面白く言ったつもりかもしれんが、信じられんわ。 392 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 00:54:12 ] Private Sub CommandButton1_Click() For j = 1 To 100 a = 0 b = 0 aaa = 0 bbb = 0 Range("e1") = "-" For i = 2 To 100 If Cells(i, 3) = Cells(j, 10) And Cells(i, 4) = "入室" And Range("e1") = "-" Then aaa = aaa + Cells(i, 2) Range("e2") = Cells(i, 2) Range("e1") = "+" ElseIf Cells(i, 3) = Cells(j, 10) And Cells(i, 4) = "退室" And Range("e1") = "-" Then bbb = bbb + 1 / 24 / 60 * 10 Range("e3") = Cells(i, 2) Range("e1") = "-" 393 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 00:54:51 ] ElseIf Cells(i, 3) = Cells(j, 10) And Cells(i, 4) = "入室" And Range("e1") = "+" Then aaa = aaa - Range("e2") aaa = aaa + 1 / 24 / 60 * 10 aaa = aaa + Cells(i, 2) Range("e2") = Cells(i, 2) Range("e1") = "+" ElseIf Cells(i, 3) = Cells(j, 10) And Cells(i, 4) = "退室" And Range("e1") = "+" Then bbb = bbb + Cells(i, 2) Range("e3") = Cells(i, 2) Range("e1") = "-" End If Next i ccc = bbb - aaa Cells(j, 10 + 1) = Format(ccc, "hh:mm:ss") Cells(j, 10 + 2) = Format(aaa, "hh:mm:ss") Cells(j, 10 + 3) = Format(bbb, "hh:mm:ss") Cells(j, 10 + 1) = Format(ccc, "hh:mm:ss") Next j '>>391-392 End Sub 394 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 00:55:22 ] あぁ、>>392-393な。 395 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 01:05:01 ] >392-393 E1には前回の記録が入室（+）か退室（-）かの記録を残す E2には前回の入室時間記録（後で引く用 E3には前回の退出時間記録（後で引く用 If Cells(i, 3) = Cells(j, 10) And Cells(i, 4) = "入室" And Range("e1") = "-" Then 　一発目の分岐：>383のA） 　入室時間をaaaに加算 　E2に入室時間を入力 　E1に+を入力 ElseIf Cells(i, 3) = Cells(j, 10) And Cells(i, 4) = "退室" And Range("e1") = "-" Then 　二発目の分岐：>383のD) 　10分加える 　E3に退出時間を入力 　E1に-を入力 こんな感じで>>393の3つ目、4つ目と分岐する。 最後の Cells(j, 10 + 2) = Format(aaa, "hh:mm:ss") Cells(j, 10 + 3) = Format(bbb, "hh:mm:ss") Cells(j, 10 + 1) = Format(ccc, "hh:mm:ss") は不要。値確認用に作ってただけ 396 名前：名無しさん＠そうだ選挙にいこう [2008/01/29(火) 01:25:01 ] >>365 決定的解決策が思いつきそうなんですが、その前に具体的な重要な質問をさせてください。 まず、�@名前ですが、これは警備会社のデータベースで一元管理されてるんですよね？ つまり一人の人物の名前はつねに一種類しかないんですよね？ 入退室時に時間や名前を手入力で入れたりして同一人物が複数の名前を入力してしまったりする可能性があると困るからです。 次に�A時間についてですが 一人の時間は約10分とのことですが 同一人物が30分40分滞在する可能性はないんですよね？ というのは、 一回が10分程度と決まってるならいいんですが、 そうでないと、例えばある人が14:00に入室記録して、次の記録が14:40退室だとした場合、 一回10分の法則を適応できるなら、仮の退室・入室時間を決めて 14:10に退室、14:20に再入室したことにして総滞在時間20分という計算になるのですが そうでない場合、40分ずっと滞在していたのと区別がつかないからです。 この場合、入退室間隔が何分いないの場合は一続きとみなす、といった更なる条件設定が必要になると思うのですが。 397 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 01:43:05 ] >>396 よく嫁 入室と対になる退室記録がなかった時だけ、滞在時間を10分間にする ところで深夜0時をまたがる滞在や、24時間を超える滞在時間はありうるのか？ 398 名前：名無しさん＠そうだ選挙にいこう [2008/01/29(火) 07:19:11 ] 日曜には必ず入室しない、って設定もあるとらくなんだがなあ そういうわけにもいかんか 399 名前：名無しさん＠そうだ選挙にいこう [2008/01/29(火) 09:25:52 ] >>397 いや、それが曖昧だと思うんですよ。 対になるという定義がなされてないから、 二時間後でも８時間後でも対になったら滞在していたことにしてしまうのか 厳密にルール決めないと変なデータ取得しちまいますよ。 あなたが言うように24時間出入りがある場合とかも勘案すれば 今日の14時に入室記録だけ、明日の10時に退室記録だけあるとしたら それだって対になっちまうんですよ？ 400 名前：365 mailto:sage [2008/01/29(火) 09:56:45 ] おはようございます。 みなさん、私が寝ている間にいろいろとありがとうございました。 非常に助かります。 >>395 とても参考になりました。 まだExcelは立ち上げてもいないんですが、ざっと見た限りなんだかいけそうな気がします。 これからトライしてみますね。 >>396 決定的解決策、という言葉にグラッと来ますね。 ユーザ名はユニークデータと思って間違いないです。 ただし、入室時間については、数時間程度なら入りっぱなしになる可能性もあり得ます。 日曜日の利用もあり得ますが、日をまたぐことはありません。 というより、一般ユーザの使用時刻は、朝8時半〜夜8時に限られています。 （これ言ってませんでしたね） なので、入室から退室までの間が11時間半以上空くことは絶対にあり得ません。 こんなところですが、何か参考になりますでしょうか。 ちなみに、昨日のｴﾛ動画は温泉盗撮モノでした。 それでは、今日も一日仕事を頑張ります。 401 名前：名無しさん＠そうだ選挙にいこう [2008/01/29(火) 10:54:26 ] 【1 OSの種類 　 　 　 　 .】 Windowsxp 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】否 【5 検索キーワード 　 　 】フィルタ　オートフィルタ　コピー　ペースト オートフィルタで抽出したセルをコピペしたいのです。 オートフィルタ→ジャンプ→可視セルの選択で抽出し、選択した部分はコピーできるのですが、 ペーストがうまくいきません。ペーストすると隙間なく上からペーストされます。 つまり選択外の間のセルを保持したままペーストしたいのですがこれは可能でしょうか？ Ａ　　　Ｂ あ　　　あ い あ　　　あ あ　　　あ ↑のように「あ」を抽出してＢ列に同じ列でペーストしたいのですが Ａ　　　Ｂ あ　　　あ い　　　あ あ　　　あ あ　　　 のように隙間を埋めてしまってペーストしてしまうのです。 うまく伝わりますでしょうか･･･。 宜しくお願い致します。 402 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 11:08:48 ] >>401 間埋まるのがまずいなら、いったん丸ごとコピーして、 「あ」以外を抽出→選択→delete押す→フィルタ解除 で「あ」だけ残るんでない？ 403 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 11:41:09 ] >>401 B列に =IF(A1="あ",A1,"") 404 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 13:13:35 ] <402 <403 ありがとうございます。やはり一手間掛けなければいけないようですね。 しかしながら、解決しました！ 一度消してからという発想が無かったので目からウロコでした。 とても楽な方法で行うことができました。 IF文でもできました！オートフィルで下までのばすと入力した部分が空白に置き換わって しまいましたが先にIF文で埋めてから空白部分の入力で解決です。 if文ですと作業量も少なくできました、本当にありがとうございます。 405 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 14:04:21 ] >>365 難しいな ある程度は構想出来るが、入室が連続でなった後に退室があったりと 記録わすれを考えるといつまでたっても終わらん 一週間ごとの合計はあいてる行に=日付セルで書式をaにした後、ピボットなり集計なりで すぐにできると思う 406 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 14:06:48 ] >>405 >>392-393で。 407 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 14:32:37 ] >>365をエクセルにコピーして>>392-393のマクロを走らせてみたが、 実行してもKLM列に0:00:00が並ぶだけだった 408 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 14:34:14 ] >>407 別に>407が無理でも>400@質問者が >ざっと見た限りなんだかいけそうな気がします。 だから問題ない。 わからない奴にはわからなくて良いと思う。 409 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 14:36:20 ] まぁそうだな 410 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 16:05:36 ] 本来、丸投げするトコじゃないんだから、 別にコードが最適じゃなくても、間違ってても、質問者にヒントが伝われば十分なわけで。 411 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 16:08:03 ] つまり、馬鹿が動かない的外れなマクロ書いても、偉そうに上から目線でいられるってわけか。 412 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 16:18:53 ] エクセルで散布図を使用して cgi2.coara.or.jp/~negichan/imgloda/src/img6865.jpg このような画像ができたのですが cgi2.coara.or.jp/~negichan/imgloda/src/img6866.jpg こちらのように一部を改変したいのです。 データーの数値改変してグラフに反映させようかとかと思いましたが、 以前にグラフの部分を直接変えている人がいたので、そちらの方法を教えてほしいです。 413 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 16:30:21 ] >>411 前提として、390とかみたいに、｢何だコイツ｣ と感じた回答者はレスしないだろうから、 後は、当事者（自分の好きなように訊きたいヤツ、答えたいヤツ）同士で仲良くやってよ、 で済む話かと。 414 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 16:34:22 ] >>412 おーい、画像に注意だ。　個人情報を晒してないか？　よく確認しろ。分かってるならいいけど。 415 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 16:37:12 ] >>392-393 ちょっと試してみた そのままだと結果が違ってくるぞ �@ラストに入室で終わる場合のフォローがない �Aiループが終えた後、jループに入る前にE2、E3の初期化がされてない �B一週間のスパンで動いてない �@は iループ終了後、E1が+で終わってる場合E2を引く で解決 �Aこれはjループの頭にE2=0 E3=0でおｋ �Bは>382のWeekday関数で曜日を1〜7が使いやすいかな 　現在行の曜日 < 一行前の曜日　の条件でiループexit Forでおｋ 416 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 16:39:49 ] >>414 念のために架空の名前なので 大丈夫です。 417 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 16:44:00 ] >>412 ＞以前にグラフの部分を直接変えている人がいたので、 そんなこと出来るのか？ つか出来てしまって良いのか？ 範囲＠＠〜＠＠のグラフプロットさせてるのに、 結果が範囲の数値と違うなんて事が。 418 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 16:45:49 ] 上から図を重ねればいいよ と教えたら本当にやってた人がいてびっくり 419 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 16:50:08 ] 普通にプロットエリアのマーカー引っ張ればいいだけだろ シートの値は連動して変わる 420 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:01:25 ] >>417-419 レスありがとうございます。 結論として、ノートに入っていたバージョンの古いExcel(2002?かな)で普通に引っ張ればできました！ 逆に最新版のExcel(試用版)では単純に引っ張っても動きませんでしたが、 恐らく新しいバージョンなので何かしら出来る方法があるとは思います。 421 名前：名無しさん＠そうだ選挙にいこう [2008/01/29(火) 17:02:18 ] こんにちは 2008/01/01　12:00:00　という文字が１つのセルに入っているのですが 2008/01/01　12:00:00 2008/01/02　12:00:00 2008/01/03　12:00:00 … というふうに、文字列の途中の部分を連番にさせたいときはどうしたらいいのでしょうか？ ふつうにセルをドラッグすると、 2008/01/01　12:00:00 2008/01/01　12:00:01 2008/01/01　12:00:02　　となってしまいます… 422 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:02:20 ] >>415 �Bは質問者がいいアイデア持ってるから任せてたんだが、せっかくだからついでに。 F列にWeekday関数（A列）を持ってきたとして Private Sub CommandButton1_Click() For j = 1 To 100 a = 0 b = 0 aaa = 0 bbb = 0 Range("e1") = "-" Range("e2") = "" '■修正点�A Range("e3") = "" '■修正点�A For i = 2 To 100 If Cells(i, 3) = Cells(j, 10) And Cells(i, 4) = "入室" And Range("e1") = "-" Then aaa = aaa + Cells(i, 2) Range("e2") = Cells(i, 2) Range("e1") = "+" ElseIf Cells(i, 3) = Cells(j, 10) And Cells(i, 4) = "退室" And Range("e1") = "-" Then bbb = bbb + 1 / 24 / 60 * 10 Range("e3") = Cells(i, 2) Range("e1") = "-" 423 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:02:52 ] ElseIf Cells(i, 3) = Cells(j, 10) And Cells(i, 4) = "入室" And Range("e1") = "+" Then aaa = aaa - Range("e2") aaa = aaa + 1 / 24 / 60 * 10 aaa = aaa + Cells(i, 2) Range("e2") = Cells(i, 2) Range("e1") = "+" ElseIf Cells(i, 3) = Cells(j, 10) And Cells(i, 4) = "退室" And Range("e1") = "+" Then bbb = bbb + Cells(i, 2) Range("e3") = Cells(i, 2) Range("e1") = "-" End If If Cells(i, 6).Value < Cells(i, 6).Offset(-1, 0).Value Then '■修正点�B Exit For '■修正点�B End If '■修正点�B Next i If Range("e1") = "+" Then '■修正点�@ aaa = aaa - Range("e2") '■修正点�@ aaa = aaa + 1 / 24 / 60 * 10 '■修正点�@ End If '■修正点�@ ccc = bbb - aaa Cells(j, 10 + 1) = Format(ccc, "hh:mm:ss") If ccc > 1 Then Cells(j, 10 + 2) = "居座りすぎ" End If Next j End Sub 424 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:04:50 ] >>422-423 これでいけると思う。 >>421 セルの書式設定でyyyy/mm/dd hh:mm:ssを指定してから引いてもﾀﾞﾒ？ 425 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:08:47 ] あぁ、逆かぁ、日をずらしたいんだね。 つか>421 オートフィルって普通2セル選択してから引くもんじゃね？ 例えば 2008/01/01　12:00:00　から 2008/01/01　12:00:00 2008/01/02　12:00:00 2008/01/03　12:00:00 … このようにしたいばあい、 2008/01/01　12:00:00　のセルのみを引っ張るのじゃなくて 2008/01/02　12:00:00　 この二つ両方を選択して引っ張るとうまくいくと主うよ 426 名前：155 mailto:sage [2008/01/29(火) 17:14:05 ] >>421 Excel2000 でドラッグするとこうなるな。コピー元のセルは１つでもおｋだったよ。 　2008/1/1 12:00 　2008/1/2 12:00 　2008/1/3 12:00 セルの書式設定は、セルに入力した時点で自動で日付になる。 つか、どうやっても１分刻みにできないんだがｗ 427 名前：426 mailto:sage [2008/01/29(火) 17:16:18 ] すまん、上の名前欄のレス番はゴミだ・・・。 428 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:17:19 ] >>426 ・・・ またか・・・ 別に>426が無理でも質問者が出来れば問題ない。 まぁせっかくだから言うけど、 ＞どうやっても１分刻みにできないんだがｗ 2セル選択してから引け。 二セル洗濯して引くものを、選択しなくても出来ると言い張って、でも ＞＞どうやっても１分刻みにできないんだがｗ なんじゃそりゃ。 429 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:19:53 ] セルの書式→文字列　で再現した。　421は、多分どっかからセルごとコピーしたんだろう。 430 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:23:42 ] AN列の3-543行目について、論理値falseがあれば メッセージボックスを出して終了、 他の値ならば続行という処理をしたいのですが、 AN20に論理値FALSEと入っていても次の行へと処理が進んでいってしまいます (AN20には=a1=b1という式があり、A1には「佐藤」B1には「山田」と入ってます) どのようにコードを記述すればよろしいでしょうか? Option Explicit Dim i As Long Private Sub CommandButton1_Click() For i = 3 To 543 Range("an" & i).Select If ActiveCell.Formula = False Then MsgBox i & "行目が変です" Exit Sub Else i = i + 1 End If Next End Sub 431 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:29:19 ] >>430 Option Explicit Dim i As Long Private Sub CommandButton1_Click() For i = 3 To 543 Range("an" & i).Select If ActiveCell = "False" Then MsgBox i & "行目が変です" Exit Sub End If Next i End Sub これじゃﾀﾞﾒ？ 432 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:31:18 ] >>424 >422-423だと最初の一週間、いや最初が月曜から始まってないなら、下手すりゃ 1日分の集計しか取れない 二週目以降の集計も出来ない '■修正点�Bはいまいち 433 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:38:01 ] >>431 ありがとうございます! よければ、その辺り解説してるページとかないでしょうか? 434 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:39:17 ] >>432 お前質問者だろ。 もう自分でやれ。って言おうとしたけど暇だし何か考えてみるわ。 >>430 普通にfor nextは i = i+1 なんて要らないんじゃないか？ 勝手に3から543まで繰り返してくれるぞ あと、もしそのマクロでセレクトする必要が無いなら、 Range("an" & i).Select If ActiveCell.Formula = False Then ↓ If　Range("an" & i)　= "false" then のほうが早いと思うよ。 435 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:43:47 ] >>421です 自己解決というか、苦肉の策だったんですけど 新規ファイルを作成して、ひとつのセルの中に入っていた 2008/01/01　12:00:00 を、 2008/01/｜01｜　12:00:00 の３セルに分けて、日にちのセルだけオートフィルで増やし、メモ帳に貼り付けてtab削除→ 元書類にもどす、で　できました。 ちょっと手間ですｗ 436 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:44:18 ] >>434 ご指摘ありがとうございます i=i+1がいるのはdoloopなのですね 437 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:46:44 ] >>435 高貴すぎるぞ、その苦肉の策。 まぁ出来てよかった。 自分でやれば理解が進むし、 手間を感じれば感じるほど、次の方法を模索する力が生まれるってもんだ。 おめでとう。 438 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:47:25 ] >>421 の後半部分に逆にならないんだが・・ そのセルの中身がどうなっているのか逆に知りたいぜ 439 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:52:37 ] >>433 >>431じゃないけど Sub test001() MsgBox Range("an20").Value MsgBox Range("an20").Formula End Sub こういうことだよ。 440 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 17:55:07 ] >>438 最初の値　 　　　　　　）↓こう逝くために、エクセルがわざわざお前らの思考読み取って 次の値　　　　エスパーするとでも思ってんのか？ 例えばAさんは最初の値から3飛ばしでオートフィルをかけたい Bさんは5飛ばしでかけたい。 そんなものエクセルが勝手に判断してAさんは3だろうな、Bは5〜8くらいだろうな ってな感じに引くと思ってんのか？マジで。 1時間おきに時間を引きたい人、一分おきに引きたい人、色々居ても対応できる それがオートフィルのメリットだろ。 そんなもの次の値を指定して初めてエクセルはその幅でオートフィルかけるんだよ 　　　　オートフィルは最初の値と次の値を選択してからフィルドラッグ これはテクでもなんでもなく、オートフィルの普通の使い方だぞ。 441 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 18:00:11 ] >>440 いや、だからね、そうすると 421が、自分でこの２セルをドラッグしておいて、 　2008/01/01　12:00:00 　2008/01/01　12:00:01 ”日付の連番にならない！” とバカな質問したことになるだろうが。 442 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 18:01:18 ] すぐ喧嘩腰だな 安いプライドだ 443 名前：441 mailto:sage [2008/01/29(火) 18:01:59 ] >>438 ちなみに、セルの書式を文字列にしとくと再現する。 多分、421はどっかからセルごとデータをコピーしたのかも。ただ、435の対応が理解不能ｗ 444 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 18:03:13 ] >>441 >435を見るに、2セル選択してのフィルドラッグは使ってないだろ。 質問時はなおのこと。 >>443 >435は435でまた何かの糧になると思う。 445 名前：441 mailto:sage [2008/01/29(火) 18:06:27 ] >>444 ＞>435を見るに、2セル選択してのフィルドラッグは使ってないだろ。 あのさ、流れを読みながら会話してくれるか？　会話になってないのが自分でも分かるだろ。 446 名前：438 mailto:sage [2008/01/29(火) 18:06:34 ] >>443 そういうことか! ありがとう、スッキリ解決したぜ 447 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 18:08:31 ] >>439 なるほど、msgboxに一度出力してみると非常に分かりやすいですね ありがとうございます 448 名前：365 mailto:sage [2008/01/29(火) 18:11:34 ] こんばんは。 いや〜、いろいろありましたが、結局>>395さんのアイデアを元に、いろいろといじくって いたらできました。 さっき上司に提出してきたところです。 みなさんお世話になりました。 以降、名無しに戻ります。 名無しに、名無しになって、あの大きな空を吹きわたっています。 449 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 18:13:15 ] >>448 ちなみに>422-423 くらいまで煮詰まって、>432の突っ込み入って考えてたところなんだけど、 一週間ごとの集計どうしてんの？ 450 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 18:16:52 ] と思ったけどいいや、解決したんだからな。 451 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 18:20:59 ] >>447 ただ、　If　Range("an" & i)　= "false" 　は、暗黙の型変換が起きてるので注意。 メッセージボックスに出しても、同様に文字列型に変換されている。今後注意が必要だと思う。 　If　Range("an" & i)　= False And Len(Range("an" & i).Value) > 0 Then とすると、文字列を見ずに同じ動きをする。　と言って、あえて直す意味も無いけどね。 452 名前：>>344 >>355 です mailto:sage [2008/01/29(火) 18:51:36 ] >344-355です。 344-355を回避するために、 If Save_File <> "False" Then以降をこのようにしました Application.DisplayAlerts = False If Dir(Save_File) <> "" Then If MsgBox("既存ファイルを置き換えますか？", vbYesNo, "確認") _ = vbYes Then SaveAs (Save_File) Else End If Else SaveAs (Save_File) End If これでいけたと思って>355で〆たのですが、 保存ダイアログが表示された時点でキャンセルを押すと、 　実行時エラー13　型が一致しません と　If Save_File <> "False" Then　のラインで止まってしまいます。 保存する段階を分けると �@ダイアログが開く→キャンセル �Aダイアログが開く→既存ファイル名で保存→上書きする �B　　　　　　　　　　　　　　　　　　　　　　　　　→上書きしない �Cダイアログが開く→新しい名前で保存する この4つのケースだと思いますが、>344-345の内容だと�Bでエラーとなり ↑の新しいマクロだと�Bでは出なくなったものの、�@でエラーとなります。 何か良い解決策は無いでしょうか？ 453 名前：>>344 >>345 です mailto:sage [2008/01/29(火) 18:56:40 ] >>452 ×>344-355です。 ○>344-345です。 ■以前のマクロ---------------------------- 　＞On Error GoTo ERR1 　＞If Save_File <> "False" Then 　＞ActiveWorkbook.SaveAs Filename:=Save_File 　＞End If ■現在ののマクロ---------------------------- 　　　　On Error GoTo ERR1 　　　　Application.DisplayAlerts = False 　　　　If Dir(Save_File) <> "" Then 　　　　　　If MsgBox("既存ファイルを置き換えますか？", vbYesNo, "確認") _ 　　　　　　= vbYes Then 　　　　　　　　SaveAs (Save_File) 　　　　　　Else 　　　　　　End If 　　　　Else 　　　　　　SaveAs (Save_File) 　　　　End If わかりづらいので並べました。 とりあえずやりたいことは>344のとおりなのですが、 エラーが回避できずにいます。回避する方法があればお願いします。 454 名前：>>344 >>345 です mailto:sage [2008/01/29(火) 19:01:41 ] >>452 これも間違えてました。ボロボロですみません ＞と　If Save_File <> "False" Then　のラインで止まってしまいます。 　　　　　　　　　↓ 　　　If Dir(Save_File) <> "" Then 455 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 19:16:59 ] >>454 あのさ、質問文が長いばかりで要領を得なさすぎ。 If　Dir(Save_File) <> "" Then でエラーが出るんなら、普通は引数に何かあると考えるだろ？ でも、それだと Save_File に何が入ってるか全然わかんないんだけど。 ロジックも、質問も、要件についてもっと論理的に考えてみて。 456 名前：>>344 >>345 です mailto:sage [2008/01/29(火) 19:17:12 ] 自己解決しました。ありがとうございました。 457 名前：455 mailto:sage [2008/01/29(火) 19:20:51 ] >>454 文句ばかりじゃ申し訳ない。一応予測で書いてみるけど、 上のを見る限り、＞Dim Save_File, Save_Filename As String で Save_File がVariant 扱いになってるから、これでDirの引数として論理値(false)が渡ってる。 458 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 19:24:32 ] 回答もせず薀蓄垂れるだけ。 挙句の果てには自己解決宣言してるにもかかわらず、おせっかい。 自己満も大概に。 459 名前：455 mailto:sage [2008/01/29(火) 19:27:00 ] >>458 まぁそう皮肉を言うなよ。　人のすることにケチ付けたくて仕方ないのはオマイと一緒なんだよ。 460 名前：名無しさん＠そうだ選挙にいこう [2008/01/29(火) 19:35:41 ] Excel2003を使っているのですが 2008/2/1(金) 2008/2/2(土) ・・ といった感じで曜日の入った日付を連番で入力したいのですが どうすれば良いのでしょうか？ 461 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 19:38:17 ] >>460 値として(曜日)を抜いて、書式設定で(aaa)加えるとかﾀﾞﾒ？ 462 名前：名無しさん＠そうだ選挙にいこう [2008/01/29(火) 19:54:11 ] A1セルに1/1と入力後、 書式設定のﾕｰｻﾞｰ定義で yyyy/m/d"("aaa")" 後はオートフィルかけるだけ 一応ここから引用↓ ttp://www.relief.jp/itnote/archives/000017.php 463 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 20:00:58 ] >>454 全部は読んでないけど、 SaveAsのオブジェクト省略してるのが原因って事はない？ 464 名前：名無しさん＠そうだ選挙にいこう [2008/01/29(火) 21:07:13 ] セル内の数字をマクロで非表示にするにはどのようなコードになるのでしょうか？ Range("A12").visible=falseでは駄目でした・・・ 465 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 21:15:56 ] >>464 表示形式を;;にすりゃいい。 文字列も非表示なら;;;だ コードは自動記録 466 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 21:24:14 ] 質問を間違えていました。 マクロで非表示や表示をコマンドボタンを押すことによって繰り返したいのです。 お願いします。 467 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 21:46:14 ] >>466 こんなんでいいんじゃない？　操作対象や条件は工夫してね。 　If　Range("A1").NumberFormatLocal = ";;" Then 　　Range("A1").NumberFormatLocal = "G/標準" 　Else 　　Range("A1").NumberFormatLocal = ";;" 　End If 468 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 22:22:58 ] >>486 マクロで表示形式を切り替えりゃいいだろ？ 469 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 22:30:42 ] >>468 誰にレスしてんだよカス 470 名前：名無しさん＠そうだ選挙にいこう [2008/01/29(火) 22:34:10 ] すみませんが誰かそろそろ >>381 に答えて下さる方いらっしゃいませんか？ 方法がわかる方おられませんか？ もしかしたら不可能なことなんでしょうか？ どなたかどうかよろしくお願いします。 471 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 22:36:21 ] オートシェイプは無理なんじゃないかな。 いや知らんけどな。ワークシートマクロのイベントにはそれらしきものが無いよな 472 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 22:49:53 ] >>470 可能 473 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 23:01:32 ] >>470 OnAction っぽい 474 名前：名無しさん＠そうだ選挙にいこう [2008/01/29(火) 23:28:09 ] オートシェイプはめんどくさかった気がする 475 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/29(火) 23:44:26 ] ググったけどオートシェイプは無理なんじゃない？ コントロールかフォーム使えってのが見つかっただけ。 476 名前：名無しさん＠そうだ選挙にいこう [2008/01/29(火) 23:53:33 ] >>473 それはコマンドバーコントロールにしかつかえませんのですわ。 477 名前：名無しさん＠そうだ選挙にいこう [2008/01/30(水) 00:03:00 ] >>474 めんどくさくても何かてがかりがほしいんです。参考文献かなにかないですかね？ >>475 コントロールはデザインモードでしか大きさ変更できなかったりするので… 今回のは、ボタンに連結したマクロからaddshapeでmsoレクタングルとかを追加して それをユーザーが選択して大きさを変え、 さらにその変更した大きさのプロパティ値をバックして指定したセルに表示させたいのです。 なんだかあまりに考えてることがエクセルを越えてるんでしょうか？ 478 名前：名無しさん＠そうだ選挙にいこう [2008/01/30(水) 01:03:48 ] 【1 OSの種類 　 　 　 　 .】 WinXP 【2 Excelのバージョン 　 】 Excel2007 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 Exsel　グラフ ちょっとしたアンケートをとりました。 あるお店について、1問目で知っているか否かを聞き、 2問目では、問1で知らないと答えた人にだけ、 お店の詳細を教えた上で 行きたくなったかどうかを聞きました。 問1 知ってる 20 知らない 15 合計 35 問2（問1で知らないと答えた15名のみ） 行ってみたい　12 興味無い 3 特に、問2の「行ってみたい」という回答を強調できるような 効果的なグラフの作り方を教えてください。 はじめは補助円付き円グラフで表現できるかと思っていたのですが あのグラフって単に数値の小さい部分を拡大表示するだけなんですか？ 大きい円グラフが3等分されてしまい、うまくいきません。 問１と問2で別々に作るしかないのかなー 479 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 01:35:15 ] 知ってる 20 行ってみたい　12 興味無い 3 として、データ系列の書式設定のオプションでどうにかする。 480 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 01:51:36 ] グラフのスムージングってどんなアルゴリズム使ってるの? スプライン? 481 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 10:12:04 ] >>478 分割円グラフを作って、グラフを選択、ドラッグすると離したりくっつけたりできる そして一つの要素をクリックして、ドラッグすると一個だけ切り離せして移動できる ・・分かりにくいな A1-A3に東京、大阪、名古屋(なんでもいいけど) B1-B3に1,2,3と入れて下のマクロを実行してみ sub あ() Charts.Add ActiveChart.ChartType = xl3DPieExploded ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B3"), PlotBy:= _ xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" ActiveChart.HasTitle = False ActiveChart.SeriesCollection(1).Select Selection.Explosion = 0 ActiveChart.SeriesCollection(1).Points(2).Select Selection.Explosion = 41 End Sub 482 名前：名無しさん＠そうだ選挙にいこう [2008/01/30(水) 10:59:38 ] 【1 OSの種類 　 　 　 　 .】 WinXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 】 少し（初心者） 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 入力　格納 少し前にもお世話になりましたが、またお世話になります。 ユーザーフォームで（セルへの直接の入力でも）担当者ごとに複数の情報を入力します。 それを担当者で識別して担当者ごとのワークシートへ格納するようなものを作成したのですが、 なんともうまくまとめられません･･･。 担当者ごとのシートへの格納とそれとは別に全て担当者の情報が入っているシートの 両方に情報を入れたいのです。 A　　　B　　　C　　　　D 佐藤　1月6日　みかん　りんご 伊藤　1月9日　メロン　みかん 佐藤　1月10日　りんご　ぶどう とすべて繋がっているシートと A　　　B　　　C　　　　D 佐藤　1月6日　みかん　りんご 佐藤　1月10日　りんご　ぶどう と佐藤シートにも自動的に振り分けられるように。 複数条件を入力するユーザーフォームからセルへの入力は大丈夫なのですが、 振り分けがうまくいきません（というか思いつかない）。 関数、VBAどちらでも何か良い方法がありましたら、ご助言の程お願い致します。 483 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 11:41:46 ] 全ての担当者が入ってるシートに通し番号の列を挿入して、 vlookup使うのが早いと思う 仮に全てのデータが入ってるシートのA列を番号の列とし、A1から1、A2が2・・と入力 そのシートをまるごとコピーしてA列と2行目以降をクリア、シート名は担当者名かな B2に =IF(VLOOKUP(全て!$A2,全て!$A$1:$E$100,2)="佐藤",VLOOKUP(全て!$A2,全て!$A$1:$E$100,2),"") B3もそんな感じで入力して、下までオートフィル B列を名前でオートフィルタすればいと思う 新しいシートはマクロで作れるけど、その辺は割愛 シート名を関数で取得できたら楽なんだがなぁ 484 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 12:14:36 ] >>482 一度ピボットテーブルで担当者別に集計します。 その集計表で佐藤さんの集計値をダブルクリックすれば佐藤さんだけの 明細データが別のシートに出てきますよ。 485 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 13:25:06 ] 1 OSの種類 　 　 　 　 .】 Windows vista/xp 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 否 【5 検索キーワード 　 　 】 リンク　削除　セル セル内のリンクを切りたいのですが、 例えば「=A1」のようなものは残して、 「=SUM(A1:A2）」のような関数の入ったセルだけを消すにはどうすればいいのでしょうか？ 486 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 14:12:38 ] >>485 リンク？？ 何を残して、何を消したいのか、よくわからん。 SUM関数が入ったセルだけを消したいなら編集→置換で 検索する文字列 「*SUM(*」 置換後の文字列 「」 にする。 487 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 14:15:35 ] >>485 Ctrl+Fで"("を「すべて検索」して 下に出てくる検索結果でCtrl+Aして検索窓閉じてDelete押せばいいんじゃね？ 488 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 15:52:43 ] ファイルを開く、あるいは保存をしようとすると 画面が変なかんじの表示になり(きちんと通常の画面にならずあちこち虫食い 状態にみえる)、エラーメッセージがでてしまいます。 「メモリ不足で開けない」というようなメッセージです。 ファイルサイズ：5Ｍ メモリ：734Ｍ ドライブの空き容量は10Ｇ以上ある 仮想メモリ？を330程度だったのを500まで増やしてみたりしても一向に 解決しません。 つい最近急にこういう状態になったのですが、どうしたら直りますか？ 489 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 17:05:22 ] オプション→計算方法にある 「表示桁数で計算する」はデフォルトでオンになっているのでしょうか? 490 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 17:17:22 ] >>488 とりあえず再インストールをしてみたほうがいいかと 解決しなきゃエラーメッセージ全文のせないとわからんよ 491 名前：名無しさん＠そうだ選挙にいこう [2008/01/30(水) 20:00:35 ] こんにちは HTMLを含む文書をエクセルに貼り付けてコードを編集したいと思ってます。 改行をtabに変換したソースを貼り付けると文字としてではなくHTML文書（リンクや画像）が現れてしまいます；；；； 単なる文字としてペーストどこで設定したらよいのれしょうか？？ 492 名前：名無しさん＠そうだ選挙にいこう [2008/01/30(水) 20:13:35 ] エクセル‐ＨＴＭＬでぐぐったら 解決できました(^_^;) すんません 493 名前：名無しさん＠そうだ選挙にいこう [2008/01/30(水) 21:10:10 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 人の名前とその横に金額が書かれている１０枚くらいのシートがあるのですが 全てのシートから同じ名前の人の金額だけを抜き出して合計したものを 一番最後のシートに表示させるにはどうすればいいでしょうか？ 494 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 21:57:53 ] >>493 統合かピボットテーブルでどうぞ 495 名前：名無しさん＠そうだ選挙にいこう [2008/01/30(水) 23:08:02 ] やった事がある人は解ると思いますが、 VBAを使って複数のジョブに分かれた印刷を行うと、 印刷の合間に数十秒の時間が掛かる事があります。 これはどうにかして回避出来ないでしょうか？ 496 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/30(水) 23:10:46 ] >>486 要するに関数が入っているものは消して、関数が入っていない「=A1」などは残したいのです。 >>487 明日やってみます。ありがとうございます。 497 名前： ◆adhRKFl5jU mailto:sage [2008/01/31(木) 00:08:30 ] >>482 挿入　−　名前　−　定義 名前に　「シート名」 参照範囲に　=REPLACE(CELL("filename",!$A$1),1,FIND("]",CELL("filename",!$A$1)),"") 名前に　「行番号」 参照範囲に　=SMALL(IF(全て!$A$1:$A$100=シート名,ROW(!$A$1:$A$100),""),ROW()) 「佐藤」シート A1=IF(COUNTIF(全て!$A:$A,シート名)<ROW(),"",INDEX(全て!A:A,行番号)) 右、下へ必要数コピー その後は「佐藤」シートをコピーしてシート名を変えてください。 でも、折角ユーザーフォームを使っているのならセットの時に他のシートにもデータが 入力されるようにした方がいいかもしれませんね。 498 名前：名無しさん＠そうだ選挙にいこう [2008/01/31(木) 00:32:27 ] 【1 OSの種類 　 　 　 　 .】 WindowsXp 【2 Excelのバージョン 　 】 Excel2007 【3 VBAが使えるか　 　 .】 いいえ おしえてください。 B列とC列、どちらかに１または空欄が入っている表があります（１はダブらない） これを1列にまとめるにはどうすればよいですか？ D列に、「となりのBかCに1があったら１を返す」というような式を入れる方法でもいいのですが IFでやろうとしたら式が違うといわれました。 499 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/31(木) 00:41:05 ] =IF(OR(A1=1,B1=1),1,"") 500 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/01/31(木) 01:51:04 ] >>498 =B1&C1 501 名前：498 mailto:sage [2008/01/31(木) 03:43:24 ] >499 ありがとうございます！ 実はこのあと、3列、4列…で同じ操作をしたかったのですが それでもできたので助かりました！ >500 そ、そんなシンプルな式があったとは･･･ ありがとうございます。

---

---

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

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