Excel総合相談所 62

1 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/16(金) 21:02:45 ] Excelに関する質問は、ここで！ ▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━ ★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。 ★2 要望は具体例や図を使って明確かつ具体的に。 ★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。 ★4 質問テンプレ(雛形)は必須じゃないけど、 　　　OSやExcelのバージョン､VBAの可否など(下記テンプレ1〜4の情報)は必須情報。 ▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━ 【1 OSの種類 　 　 　 　 .】 Windows** 【2 Excelのバージョン 　 】 Excel** 【3 VBAが使えるか　 　 .】 はい･いいえ 【4 VBAでの回答の可否】 可･否 【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード ※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣ 　 VBAを使うのは避けたいって場合は｢否｣にしましょう。丸投げする場合は､必要に応じてブックをアップすること。 ※【5】は、あなたがGoogleやヘルプで検索した際に使ったキーワードを書いてください。 　 まだ検索してないなら、質問の前にGoogleやヘルプで検索してみてください。 　 ttp://www.google.co.jp/ 前スレ Excel総合相談所 61 pc11.2ch.net/test/read.cgi/bsoft/1192713147/l50 2 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/16(金) 21:03:20 ] ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━ ･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 [2007/11/16(金) 21:04:17 ] ★ルールを無視すると… 　>>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 [2007/11/16(金) 21:05:37 ] ★ 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 [2007/11/16(金) 21:07:04 ] ★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法) 　▼数式･関数 　 ･ 表示形式以外の書式の取得設定、書式情報を条件とする数式 (ユーザー定義関数) 　 ･ 関数式でセルの選択状態を取得する (VBA) 　 ･ セルの値でパスを補完して、開いてないブックのセルを参照する (VBA) 　 ･ 入力したセルに結果を返す (VBA) 　 ･ 範囲を引数にしての文字列連結 (ユーザー定義関数) 　 ･ 値の書き換え、値の保持 (VBA) 　 ･ 複数の結果を抽出、不定な数の結果を返す (VBA、結果の最大数が解っていれば最大数以上の式を論理式で組む) 　 ･ 空白のセルの部分を上詰め、左詰めなどで表示する (作業セルを使って別セルに詰めて表示なら可能、それ以外はVBA) 　 ･ VLOOKUP,HLOOKUP,MATCH等の関数で､検索語を全半角両方にマッチさせる (ユーザー定義関数) 　▼VBA 　 ･ ExecuteExcel4Macroの参照で空セルと0値を区別する 　 ･ セルの値や変数値で直接変数名を指定する (配列、コレクション) 　 ･ VBのコントロール配列と同じような操作をしたい 　　　(イベント以外ならコントロール名を｢同名+連番｣にしてControls(名前 & インデックス)で処理､イベントはクラスでWithEvents) 　▼ユーザーフォーム 　 ･ フォーム上から変更したプロパティ値の保持 (シートや外部ファイルに書き出して、次回読み込む) 　▼グラフ 　 ･ 棒グラフでひとつだけ突出したデータがあった場合に波線を入れて位置を合わせる 　 　(オートシェイプなどで見た目だけそうなるように弄る、別アプリでグラフを作り、オブジェクトとして挿入) 　　┌┐ 　　〜〜 　　｜｜ 6 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/16(金) 21:07:37 ] 上記 ｢Excelで出来ないこと、仕様上の制限｣ は､一般的に出来ないとされていること､出来ないと思われるものです。 間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。 Excel2007についても未確認な項目が多いので変更点が有ればご指摘下さい。 また､ここに書かれてないことでも､Excelで出来ないことはたくさんあります。 ここに書かれてないからといって必ず出来るはずだなんて思わないように。 ＞▼環境･書式 ＞ ･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する 補足 2007ではページレイアウトビューの表示時に限り、幅・高さともｃｍ単位で表示され、 指定も同じくcm単位でできる。 ただし大元がインチ系なのでなかなかピタリの値は出ない。1cm→0.98cmのように 近い値に勝手に丸められる。 7 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/16(金) 21:08:12 ] ＊推奨NGネーム＊ せんせー ◆adhRKFl5jU 8 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/16(金) 21:17:28 ] >>7 乙 9 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/16(金) 21:31:42 ] >>1-7乙 10 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/16(金) 21:33:49 ] 　　　＊推奨NGトリップ＊ 　　　　◆adhRKFl5jU 11 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/16(金) 21:55:15 ] せんせーの人気に嫉妬 12 名前：たけぞう [2007/11/16(金) 22:57:15 ] 初歩的な質問なんですが・・・ セルに　１　を入力してユーザー定義で　1.00本　と表記されるように設定しました。 小数点第２位まで見えるように設定したのですが、1.00本の場合や　1.20本の場合　0　を省く事はできるでしょうか？ 例えば １本 ２本 ２.１２本 てな感じです。 小数点以下の　０　を見えなくする方法おしえてください。 13 名前：名無しさん＠そうだ選挙にいこう [2007/11/17(土) 01:03:47 ] 初歩的な質問じゃないと思うな。 14 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 01:13:54 ] 俺なら安易にVBAに頼ってしまうけどな。 15 名前：名無しさん＠そうだ選挙にいこう [2007/11/17(土) 01:21:12 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2007 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 可 Excel2007で、小さいテキストボックスに長い文字列を書くと テキストボックスの外側まで文字が表示されてしまいます。 Officeのサポート技術情報によると 「Excel 2007 のテキスト ボックスに文字列を入力すると 文字列がテキストボックスの外側にも表示される」のは仕様 らしいのですが、これをExcel2003以前のように、外側には 表示されないようにする方法はありますか？ 小さいテキストボックスに長い文字列を書いてExcel2003で 保存し、そのファイルをExcel2007で開くと、従来通りの表示 （テキストボックスの外側には表示されない）になるので、 なにかしら設定があるのではないかと思うのですが。 16 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 01:23:59 ] >>12 書式設定だけで末尾のゼロを消すのは無理だと思う。 =SUBSTITUTE(TEXT(A1, "#.##本"), ".本", "本") これで表示は希望通りになるけど、文字列に変換されちゃうから計算はできなくなる。 17 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 02:01:18 ] 書式を G/標準"本" として、セルには少数以下2桁までしか入力しない、ってのはどう？ 18 名前：名無しさん＠そうだ選挙にいこう [2007/11/17(土) 05:20:05 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2002と2003で動作したい 【3 VBAが使えるか　 　 .】 少し 【4 VBAでの回答の可否】 可 名前をつけて保存時に、ファイル名のあとに日付を強制付加して保存させたいのですが、 そのやり方を教えてください。 GetSaveAsFilenameにてあらかじめ日付を表示させたダイアログを開くことは できましたが、入力時に消してしまったり、日付がファイル名の前に来て保存したりするケースが あります（私以外の人間も使うエクセルシートのため・・） そこでファイル名が何であれ、○○○ 20071117.xls　（○○○が任意のファイル名）の形で 強制的に保存させる方法があればお教えください。 19 名前：名無しさん＠そうだ選挙にいこう [2007/11/17(土) 05:45:45 ] すみません。できそうです。 保存ダイアログの前に、フォームを表示させて、そこにファイル名を入力したら ファイル名+日付をダイアログの入力欄に表示って感じで。 ありがとうございました。 20 名前：たけぞう [2007/11/17(土) 05:51:14 ] >>16,17さん ありがとうございます。 １７さんので解決しました ありがとうございました。 21 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 09:27:25 ] ふつー >12 の回答としては 書式設定　0.??"本" だと思うんだけどな。 整数のときも小数点が消えないけど。 22 名前：名無しさん＠そうだ選挙にいこう [2007/11/17(土) 09:34:36 ] ＸＰ　２００３　 ｊマクロを含んで、１．３Mのブック（データシート、出力シート（ｉｎｄｅｘｍａｔｃｈ等の関数あり））の、データシート（入力規則あり）のセルの横移動において、非常に重くなったが、軽くする方法はありませんか？ 23 名前：名無しさん＠そうだ選挙にいこう [2007/11/17(土) 11:25:54 ] WindowsXP Pro, Excel2000を使っています。 address(x1,x2)を使って、 他のワークシートのセルを参照するのはどうすればいいんでしょうか。 1) sheet1!A1 2) sheet1!address(1,1) 3) sheet1!indirect(address(1,1)) 1)は通ります。2)と3)が通らなくて困っています。 24 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 11:37:44 ] >>21 そんなのわかった上でできるだけ要望通りにしようとしてるだけだろ 25 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 11:58:26 ] >>24 VBAでSheetCalculateイベントなどを拾って表示形式を自動的に変更する 26 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 13:13:05 ] >>18 ThisWorkbook.SaveAs Filename:= 日付や固定の部分はセルにでも書いておけば？ 27 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 15:07:08 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 キーボードの上下左右のキーでセルを編集するときの黒い枠を動かすことができなくなり， 勝手にスクロールしてしまう状況に陥りました． 元に戻すにはどうすればいいのでしょうか？ 28 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 15:23:50 ] >>27 Scroll Lockのボタン 29 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 15:31:12 ] >>28 解決しました．ありがとうございました． 30 名前：名無しさん＠そうだ選挙にいこう [2007/11/17(土) 15:43:39 ] 時刻の列を作り入力、書式はhh:mm、降順で並べ替えしたらhhが一桁の行が上に来てしまうのを何とかしたい。 [セル内]　　[数式バー内] 　07:00　→　7:00:00 　06:00　→　6:00:00 　05:00　→　5:00:00 　19:00　→　19:00:00 　18:00　→　18:00:00 　17:00　→　17:00:00 31 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 16:44:44 ] >>30 =TEXT(A2*24,0)みたいな作業列を作って並び替えでは？ 32 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 16:46:13 ] >>30 hh:mmで同じデータ入れてみたらちゃんと並ぶんだんだが。 Officeのバージョンは？ 33 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 17:29:28 ] >>23 > 2)と3)が通らなくて困っています。 当たり前だろ =INDIRECT(ADDRESS(1,1,,,"sheet1")) =INDIRECT("sheet1!"&ADDRESS(1,1)) 34 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 18:32:41 ] >>21 小数点が残るのは具合悪いんじゃない？見た目もカッコ悪いし、 元の質問の例でも小数点は書いてないし。 それを消すのが意外に面倒だから、回答者も色々と考えてるんでしょ。 35 名前：名無しさん＠そうだ選挙にいこう [2007/11/17(土) 19:35:05 ] >>31,32 Office2003Pro 日付　　　　曜　時刻 07/11/16 金　07:25 07/11/16 金　06:00 07/11/15 木　07:00 07/11/15 木　21:29 07/11/15 木　21:29 07/11/15 木　21:29 07/11/15 木　21:12 07/11/14 水　07:30 07/11/14 水　21:26 07/11/14 水　21:26 07/11/14 水　21:14 07/11/14 水　21:11 07/11/14 水　21:11 07/11/13 火　06:30 07/11/13 火　21:35 07/11/13 火　21:35 07/11/12 月　06:00 07/11/12 火　20:54 07/11/12 火　20:54 データはアクセスからエクセルにエクスポートしたもので、レコードは600くらい。 最優先を日付、2番目を時刻にしたらこうなった。一部分を抜き出して新しいシートにコピペしたら出来た。 元のシートに戻り、今度はそれぞれ単発で時刻→日付の順で2回並べ替えをしたらちゃんと並んだ。 こういうものなの？ 36 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/17(土) 22:00:31 ] 時刻が日付も隠し持ってるとか 37 名前：名無しさん＠そうだ選挙にいこう [2007/11/18(日) 02:49:24 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 ちょっとだけ 【4 VBAでの回答の可否】 可 ホームページで住所などが一覧で表示されているものをコピーしてエクセルに張り付けると 名前 住所 電話 （複数のデータなのでこれの繰り返し） と縦(列)にて表示されます。これをＡ列：名前、Ｂ列：住所、Ｃ列：電話 と横並びにしたい場合どのような方法があるか教えてください。 件数が1000件近くあって、コピーして形式の選択をして貼り付けで行列入替えの方法は取れません。 38 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 03:02:15 ] >>37 きっちり3列間隔に並んでいるか、あるいは「住所」などのキーワードが必ず含まれているなら、 フィルターを使って選択、別シートに貼り付けという作業を名前、住所、電話の3回やればいい。 ホームページに置いてあってデータがテーブルタグで囲まれているなら、エクスポートした方が 作業しやすいかもしれない。 いずれにしろ元データの状態によっても方法は色々と変わってくるので、具体的なデータがないと 具体的なアドバイスも無理。 39 名前：37 [2007/11/18(日) 03:54:16 ] たとえば www.toben.or.jp/attorney/webapp/attorney/search_result/ こんなページです。 40 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 04:02:57 ] 【1 OSの種類 　 　 　 　 .】 Windows2000 【2 Excelのバージョン 　 】 Excel2000 【3 VBAが使えるか　 　 .】 少し 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 ダイアログ　条件分岐　VBA ボタンをクリックすると印刷されてブックをフォルダに保存するマクロを作ったのですが 内容に間違い（主に日付）があってもそのまま印刷されてしまうので 間違いがあった場合に「日付が違うけどいいですか？」「はい」「いいえ」 といった感じのダイアログをだして「はい」の時は印刷＆保存 「いいえ」の時はなにもしない というマクロを作りたいのですがどのようにすればいいのでしょうか？ 上記の日付は常に決まったセルに入力してあり、それが本日の日付か否かで 判断をするといった形です 宜しくお願いします 41 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 04:21:58 ] >>40 If Range("A1") = Date Then '印刷するコード Else MsgBox ("日付が違うけどいいですか") End If 42 名前： ◆aUy/vm1yC. [2007/11/18(日) 05:22:43 ] 環境：WindowsXP Excel2002 質問：Application.OnTime に関して 　マクロを編集していたところ、今まで利用していたOnTimeの処理が実行されなくなりました。 　色々調べた結果、最終的に下記の状況で発生することがわかりました。 新規Microsoft Excel ワークシート.xlsを作成し、シートには何も無い状態で マクロを以下のように記述しました。 ThisWorkbookのマクロ--------------- 　Private Sub Workbook_Open() 　　UserForm1.Show 　End Sub Module1マクロ--------------- 　Sub aaa() 　　Application.OnTime TimeValue("03:00:00"), "bbb" 　End Sub 　Sub bbb() 　　Range("A1").Value = 1 　End Sub 　　*　もともとの発生状況ではシートやUserForm1や他マクロにも色々な内容を含みますが、 　　*　上記の最小の構成にて発生するので割愛させていただきます。 この様な内容のブックにおいて、OnTimeマクロが動きません。 問題はUserForm1.Showに有るらしく、UserForm1.Showを無くすとなぜかOnTimeマクロが実行できます。 ちなみにUserForm1は起動時に開かれて、そのまま×でウィンドウを閉じて、("03:00:00")の処理を待っています。 VBAに関してあまり詳しくないのですが、UserForm1.Showを使いつつOnTimeを利用する方法として 上記内容のどのあたりに問題があるのでしょうか？ 解決策をご教示ください。 43 名前：42 ◆aUy/vm1yC. mailto:sage [2007/11/18(日) 05:48:18 ] すみません。 解決しました。 Application.Run "aaa"をWorkbook_Openに入れなければいけないのですね。 　UserForm1.Showも関係ないみたいでした。すみません。 44 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 05:48:24 ] >>41 こんな夜中に有難うございました 早速実行してみまして 申し訳ありませんが重ねて質問です A1の部分が日付の入ったセルということでいいんですか？ そして、そこに入力されている値が今日の日付で無いならばElse以降の処理 今日の日付ならばそのまま処理といった形にする場合 If Range("S23") = TODAY() Then とやってみたのですが コンパイルエラーと出てしまいます どのようにすればいいのでしょうか？ 45 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 05:55:43 ] >>44 余計なことしないでDateのまま使え 46 名前：44 mailto:sage [2007/11/18(日) 05:55:51 ] すみません、自己解決しました せっかく>>41にDateと書いてあったのに・・・ Today関数はVBAには無いんですね（汗 有難うございました、望んでいるものがおかげで出来ました 47 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 06:14:17 ] >>46 よく考えたら>>41じゃ日付が違うときのYes,Noが出ないな Dim Rtn As Integer If Range("S23") = Date Then '印刷のコード Else Rtn = MsgBox("日付が違うけどいいですか？", vbYesNo, "選択") If Rtn = vbYes Then '印刷のコード Else End If End If 48 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 06:58:53 ] >>40 ＞上記の日付は常に決まったセルに入力してあり、それが本日の日付か否か そのセルに、 =today() って入れるってのはだめなん？ 49 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 08:59:51 ] >>47 有難うございます その後調べてみてなんとかそこまではたどり着きました ですが変数の宣言がうまくいかなくまたまた困っていたところに ちょうどレスがあり大変感謝してます >>48 日付は別の式で自動的に入力されてしまいますので それができないのです もともと、別の者がつくったマクロでして、それを何とか改造して使いやすく 人的エラーの無いものにしたかったので、調べながらやっているところなんです すみません・・ 50 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 10:06:30 ] >>39 そこならデータ規則正しく並んでいるのでが全体をエクスポートすれば 51 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 10:12:20 ] >>39 そこならデータが規則正しく並んでいるので、ページ全体をExcelにエクスポートしてから 単純に「所在地」「電話番号」などで抽出すれば、目的の住所録が作れる。 52 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 11:24:08 ] Excelにエクスポートって何だ IEか何かにそんな機能あるのか？ 53 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 12:22:03 ] 初歩的な事かもしれませんが、お願いします。 【1 OSの種類 　 　 　 　 .】 XPとMeの両方で使いたい 【2 Excelのバージョン 　 】 2003と97の両方で使いたい 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 ある文字列の頭３文字を判定して、条件に合致すればその部分を削除、 条件に合致しなければそのままを返すような処理は出来ますか？ 例） 「対象の文字列」→「処理結果」 （勝）佐藤太郎→佐藤太郎 （負）鈴木次郎→鈴木次郎 　高橋三郎→高橋三郎 54 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 12:25:00 ] >>52 ExcelのWebクエリのことでしょ？違う？ 55 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 12:26:22 ] >>53 =if(left(a1,3)="ある条件",""&a1,a1)みたいな？ 56 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 12:29:56 ] =IF(LEFT(A1,3)="ある条",SUBSTITUTE(A1,"ある条",""),A1)みたいな？ 57 名前：53 mailto:sage [2007/11/18(日) 12:52:46 ] >>55-56 上手くいきました。 ありがとうございました。 58 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 13:24:37 ] 【1 OSの種類 　 　 　 　 .】 2000 【2 Excelのバージョン 　 】 2000 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 すいません。教えてください｡ 今ダイエット中でして、日々の体重の推移をグラフにしております。 シートが４枚ほどになってきたのですが、 グラフの元のデータを複数のシートにわたって設定するには どうすれば良いのでしょうか？ どうぞよろしくお願いします｡ 59 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 13:29:22 ] >>58 作業シート作って､その4つのシートのデータをまとめる その作業シートをグラフの元データにする 以上 60 名前：37 [2007/11/18(日) 15:17:21 ] >50>51 1列だけ共通の項目名がなく抽出が困難でしたが、 なんとかうまく出来ました。ありがとうございました。 61 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 17:16:38 ] >>54 エクスポート＝Webクエリなの？ びっくり 62 名前：名無しさん＠そうだ選挙にいこう [2007/11/18(日) 20:07:04 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 少し 【4 VBAでの回答の可否】 可 グラフを作ってグラフの大きさなどを変更してると 全部グレーになってしまいました。 これってどうやったら元に戻せますか？ 63 名前：58 mailto:sage [2007/11/18(日) 20:46:54 ] >>59 ありがとうございました。 それには気が付きませんでした＾＾； 64 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 21:52:14 ] >>52 OfficeをインスコするとIEの右クリックメニューに「Microsoft Excelにエクスポート」ってのが追加される。 テーブルの中で右クリックすると、そのテーブルだけがExcelのワークシートに取り込まれる。 それ以外の余白や文章で右クリックすると、ページ全体がエクスポートされる。 ただしASPやPHPみたいな動的に生成されるページはうまくいかないことが多い。 65 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 22:26:27 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2002 【3 VBAが使えるか　 　 .】 少し 【4 VBAでの回答の可否】 可 関数を作り、それを4，5個のExcelファイルで使用しています。それで、この先 この関数を変更した時に一気に修正とかしたいんですけど、良い方法とかって ありませんかね？一個一個ずつやると修正漏れが出てきそうなんで。 例えば function XXXX() end Function これを a.xls、b.xls、c.xlsに同じ名前で組み込んでいてそれを一気に修正 したいって事なんですけど。 66 名前：名無しさん＠そうだ選挙にいこう [2007/11/18(日) 23:06:20 ] むしろ同じ関数を別々のファイルに組み込むのがおかしい。 どっかひとつのファイルに置いて、それをあちこちから使えるようにすべき。 67 名前：名無しさん＠そうだ選挙にいこう [2007/11/18(日) 23:27:29 ] エクセルでVBAを学んでいるのですが、元々C言語しか知らない人間なので基本的な事柄を覚えるのが面倒です。 で、質問なのですが、このさきエクセルでC言語をサポートする環境ができるような計画はありますでしょうか？ C言語をサポートするならそれまでは適当な処理で間に合わせようと思ってるのですが･･。 68 名前：65 mailto:sage [2007/11/18(日) 23:31:18 ] >>66 シートの参照なら判りますが、関数をあっちこっちから参照して使えるようにする事って出来るんですか？ 69 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 23:33:57 ] >>67 適当な処理で間に合うんなら、それでいいじゃん。 70 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 23:39:38 ] >>68 個人用マクロブック 71 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/18(日) 23:39:43 ] >>68 Application.Runかなんかで出来たような気がする 72 名前：名無しさん＠そうだ選挙にいこう [2007/11/18(日) 23:40:49 ] >>68 アドイン関数にする。関数はPublic宣言で。くわしいことはググるかヘルプで調べて。 73 名前：名無しさん＠そうだ選挙にいこう [2007/11/18(日) 23:41:11 ] >>69 他に応用が利かないプログラムをその都度作り続けるのは嫌なんです。 それに、Cだったら思ったとおりの動作がすぐにできますが、VBは色んなHPを参照しながら作らざるを得なくて この先C言語がサポートされないなら、ちょっと本気で覚えないと仕事が増えるかな？と 74 名前：65 mailto:sage [2007/11/18(日) 23:44:12 ] おおっ、なるほど。教えていただいたキーワードを調べてみます　 皆さん、ありがとですm(__)m。 75 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/19(月) 00:07:55 ] >>73 なーに甘っちょろいこと言ってんの。 VBAなんて変数と関数と制御構造で回してるって点でCと大差なし。演算子や型の違いなんてかわいいもんよ。 ライブラリの一つだと思って覚えとけ。 Cの仕様なんて時代とともにどんどん変わってるし、処理系が変われば完全に別物になるし、 新しい仕事をするたびにライブラリと格闘しなきゃならない。 この程度の応用もできないヤツは、はっきり言ってCを使い続けるのも無理。 76 名前：名無しさん＠そうだ選挙にいこう [2007/11/19(月) 00:29:32 ] >>75 なんとなく予感はしてたけど、やっぱりそうですか。 ありがとうです。本腰いれて勉強してみます。 77 名前：名無しさん＠そうだ選挙にいこう mailto:age [2007/11/19(月) 00:34:33 ] エクセル初心者です。 「名前を付けて保存」で、保存しようとする時 プルダウンで、名前の履歴がでますが、 その履歴を消すことは、できますか？ OS：XP　　　エクセル：XP　　ハードは、職場、自宅等色々です。 78 名前：名無しさん＠そうだ選挙にいこう [2007/11/19(月) 13:03:43 ] 質問です。 エクセルで名簿とかを作ったんですが、初心者なもので、１〜１０・１１〜２０…といった具合に分けて名前をつけて保存してしまいました。 できれば最初の１〜１０のファイルのページに１１〜２０のページを他のファイルからコピーかなんかして持ってきたいんですが、いい方法ありますか？ 79 名前：名無しさん＠そうだ選挙にいこう [2007/11/19(月) 14:04:24 ] >>78 いい方法・・・コピー（＆ペースト） 80 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/19(月) 19:08:32 ] >>64 へー、そんな機能あったんだ。知らんかった。サンキュ。 81 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/19(月) 21:11:51 ] >>77 [ツール]→[オプション]→[全般]タブ→最近使用したファイルの一覧のチェックをはずす 82 名前：名無しさん＠そうだ選挙にいこう [2007/11/19(月) 21:15:36 ] 【1 OSの種類 　 　 　 .】 WindowsXP 【2 Excelのバージョン　 】 Excel2000 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否　 】 可 【5 検索キーワード 　 】 エクセル　画像の保存,エクセル　オブジェクトの保存 ワード文書を（office以外のソフトを使わずに）画像ファイルに変換したいのですが、今のところエクセルで対象のファイルを「オブジェクトの挿入」で取り込み、htmlで保存して自動生成されるフォルダ内の画像を使うというやり方しか思いつきません。 これ以外の方法で画像データとして保存するマクロを探していますがありませんでしょうか。できれば画像を保存する際に名前も自分でつけたいです。 office限定としているのは会社で定めている以外のソフトをインストールしないよう規制されているからです。 アドインというものもあるようですが他の社員のパソコンすべてに入れるのは難しいのでそれ以外の方法を探しています。 お分かりになる方がいましたらお教え願います。 83 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/19(月) 22:01:54 ] >>82 PrintScreen 84 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/19(月) 22:06:25 ] >>82 そういうのは普通仮想プリンタを使う。仮想プリンタと言うとpdfが有名だが､bmpやjpgのもある。 定めている以外のソフトをインストールしないよう規制されてるなんてのは関係ない。 必要なら仮想プリンタをインストール出来るものとして認定して貰えば良いだけ。 業務上で本当に必要なら当然認定してくれるだろう。認定してくれなかったらそれは必要ない物だってことだ。 全てのPCにインストールするのが面倒なんてのも関係ない。面倒でも必要ならばやる､それが｢仕事｣ってものです。 あとは全て貴社の社内で解決するべき問題なので､よろしくお願いします。 まあPrintScreenの張り合わせで満足できるならそれでもいいが。 それと､マクロもアドインも導入の手間は同じような物だよ。マクロだってそのマクロを含むブックを配布しなければ全てのPCで使えるようにはならないし､ ブックを共有できるシステムが構築されてるならそれを利用してアドイン共有しちゃえば良いだけ。仮想プリンタだって同じ。 85 名前：名無しさん＠そうだ選挙にいこう [2007/11/19(月) 22:08:27 ] ちょっと聞いてください。 うちは父一人、娘一人の二人暮らしでした。 父は再婚もせずに私を育ててくれましたが、やはり男性でしたし、相手が欲しかったようで 中学二年の頃から、私が毎晩父の相手をしていました。 最初はよくわからなかったのですが、父が優しく手ほどきをしてくれて 大好きな父が相手でしたから、私も嬉しくて、素直な気持ちで毎晩相手をしていました。 父はとても上手で、いろんな角度から私を攻めてきました。 二人で時間を忘れて朝まで続けてしまったこともあります。 そんな父もすでに亡くなり 今では母親となった私は、当時のことを思い出しながら 夫だけではなく中学生になった息子も相手にしています。 夫と息子がしているのを見るのも好きです。 夫が一番弱いですね。 息子はけっこう強いです。 ちなみに将棋の話です。 86 名前：名無しさん＠そうだ選挙にいこう [2007/11/19(月) 22:26:00 ] オートフィルタで抽出された行を切り取りしたいんですが、 切り取り→貼り付けってすると抽出されてない行も切り取られて付いて来ちゃいます。 ある値が入ってる行だけのシートとその項目のないシートに分けたいのですがどうすればよろしいのでしょうか？ 87 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/19(月) 22:42:57 ] >>86 抽出した列を選択したらどう？ 88 名前：名無しさん＠そうだ選挙にいこう [2007/11/19(月) 22:49:17 ] 可視セルのみ選択してコピー 89 名前：８６ mailto:sage [2007/11/19(月) 23:02:53 ] >>88 レスありがとうございます。 コピーなら行けるんですけど可視セル切り取りができないんですよ。 コピー→貼り付け。元の行は削除で行くことにします。 >>.87 列っすか？？ 90 名前：名無しさん＠そうだ選挙にいこう [2007/11/19(月) 23:23:51 ] ｅｘｃｅｌ２００３　ＸＰ　 マクロを含むブックがあってブックを開いた後、自作マクロを実施するときに、 昨日までは長いこと、正常に動いていたのですが、次のメッセージが出て 実行できなくなりました。 今日、あるフリーウェアー乃至シェアウエアー（マクロ等は隠している）の エクセルを実施した後からです。 エラーメッセージとして、 ファイルにアクセスできませんでした。次のいずれかを行ってみてください。 ・指定したファイルがあることを確認します。 ・ファイルを含むフォルダーが、読み取り専用になっていないことを確認します。 ・指定したファイルの名前に次のいずれかの文字も含まれていないことを確認します。 　　　　　: < > ? 最後につけたファイル名.xls * ・ファイル名およびパス名が半角で218文字より長くなっていないことを確認します。 いずれも、確認済みで該当なしですが、動きません。気になるのは最後に就け たファイルの名前が出てくることです。 アドバイスをお願いします。 91 名前：82 [2007/11/19(月) 23:30:50 ] >>83-84 回答ありがとうございます。 PrintScreenだとちょっと厳しいです。ＰＤＦ以外の仮想プリンタというのは知りませんでした。勉強してみます。 どうもありがとうございました。 92 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/19(月) 23:41:38 ] >>89 編集→ジャンプ→セル選択→可視セル 93 名前：90 [2007/11/20(火) 00:03:35 ] 自己解決しましたw 自作マクロの設定が不十分と思っていろいろやっていたのですが、結局、 フリーウェア乃至シェアウエアのエクセルを再度、実施して、終了させたら 自作マクロが正常に動きました ;(~o~); スレ汚し、すまそ 94 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 01:13:10 ] ユーザーフォームのテキストボックス内のテキスト表示が収まりきっていない場合に、 ControlTipTextのようにマウスのポイントで全文を表示させたいのですが、 どうすればよいのでしょうか？ 95 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 05:37:48 ] >>78 つ【インポート】 96 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 05:42:04 ] >>73 フリーだとこう考える。 ×　ちょっと本気で覚えないと仕事が増えるかな？ ○　ちょっと本気で覚えれば仕事が増えて、ｳﾏｰかな？ 97 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 09:16:52 ] 【1 OSの種類 　 　 　 　 .】 Windows98 【2 Excelのバージョン 　 】 Excel2k 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】TRANSPOSE関数・列と行の入れ替えなど A・B・C列に入ってるﾃﾞｰﾀを A1・A2・A3・B1・B2・B3・・ と1行につき3列ずつ、横1行に並べ替えることは可能ですか? 98 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 13:42:46 ] >>97 C3まで行ったら終わり？ 9個ずつの並べ替えならTRANSPOSEを3つ手作業で入力してからコピーとか。 99 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 14:36:27 ] すいません、31*50行あります 具体的にいうと、50人分のタイムカードの時間計算に使う表です 1日目・・Aが出勤時間、Bが退出時間、Cが休憩時間 2日目・・Dが出勤時間、Eが退出時間・・ となっている表があり、 このままだとうち間違いがあまりにも多発するため、 タイムカードどおり縦に入力して、 それを横向き(以前まで入力していた部分)に反映させたいのです (そうしないと上司は納得しないんです・・) 100 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 14:43:59 ] 教えてください!! エクセル２００７、ワード２００７でシート保護の設定ができないんです？ パスワードを決める画面がどうしてもでてこないんです？ ２００３のときはたしか、ツールから保護シートができたんですけど、２００７にはツールのタグもない んです。 誰か助けて！！ 101 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 14:45:00 ] 入力用と計算用のシートなり別に作って雛形にすればいい 102 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 14:56:46 ] >>100 どちらも「校閲」タブにでっかいのがあるだろが。よく探せ。 103 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 15:34:03 ] １０１さん ２００３のファイルみたいにパスワードを入れて みれるようにならないんです？ 104 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 16:04:27 ] 【1 OSの種類 　 　 　 　 .】 Windows Vista 【2 Excelのバージョン 　 】 Excel2007 【3 VBAが使えるか　 　 .】 いいえ セルに0からはじまる数字を入力したいのですが0が消えてしまいます。 （たとえば01111だったら1111になってしまう） どうすれば入力できるようになるのでしょうか？ 教えてください＞＜ 105 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 16:09:19 ] >>104 ｾﾙの書式設定で文字列を指定 106 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 16:15:09 ] >>104 桁数が例えば5桁と決まってるなら書式設定のユーザー定義で00000にする。 桁数が毎回違ってて、文字列になってしまってもいいのなら先頭に ' を付けて入力する。 107 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 16:18:50 ] >>99 入力(並べ替え)は毎日？ それとも月末にまとめて？ 毎日やるなら入力フォームを使った方がいいかもよ。 108 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 16:20:23 ] >>106 解決しました！ ありがとうございます！ 109 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 17:00:39 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP-HE 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 （Google）Excel　VBA　条件　２つ以上の処理 条件構文で質問です。If判定の後に、2つ以上の処理をするにはどうしたら よいでしょうか？　例えば If A = B Then C = D , E = E + 1 , F = 100 のような感じです。 110 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 17:18:12 ] ＞109 これでいいですか？ If A = B Then C = D E = E + 1 F = 100 End If 111 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 17:35:27 ] >>109 ああ、・・・　最後のEnd If が抜けていた・・・ Thx 112 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 17:51:42 ] >>103＝100? 少なくとも100に書いてあるExcel2003のツール＞保護＞シートの保護でできることは、 Ｅｘｃｅｌ2007の校閲＞変更＞シートの保護でまったく同じことが出来る。 違うと言うなら、おまいが別の機能を「シートの保護」と誤解しとる。 パスワードがないと開けない（読み取りパスワードの設定）ようにしたいなら、 2007の場合はOｆｆｉｃｅボタン＞配布準備＞ドキュメントの暗号化を使え。 113 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 19:49:11 ] >>107 月末にまとめて一月分入力です 114 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 19:50:49 ] >>109 こういう書き方も出来る。式や命令をコロンで区切る。この場合はEnd Ifは書かない。 If A = B Then C = D : E = E + 1 : F = 100 115 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 20:05:43 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 いいえ エクセルでB4用紙に横に印刷された表をA4で縦に印刷しなおしたいのですが ページ設定で位置を縦にして％を小さくしてみたのですが 縦になっても上半分で切れてしまったり１枚に収まってもA4の上半分 ぐらいの小さな表になってしまったりと上手く出来ません。 どうすれば綺麗におさまるでしょうか？ 116 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 20:09:53 ] >>115 ＞A4の上半分ぐらいの小さな表になってしまったり ・・・これで正解だから 大きく印刷したいならA4【横】で印刷しなさい 117 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 20:43:06 ] >>113 それならVBAでやった方が早いかな。 Sheet2からSheet1へ、順番を変えながらデータをコピーする Sub TimeCardCopy() Dim Person, Day1, Col1 Application.ScreenUpdating = False ' 画面更新を一時的に止める Application.Calculation = xlCalculationManual ' 再計算を一時的に止める For Person = 1 To 50 ' 50人分 For Day1 = 1 To 31 ' 31日まで For Col1 = 1 To 3 ' 3マスずつコピー Worksheets("Sheet1").Cells(Person, Day1 * 3 + Col1 - 3) = Worksheets("Sheet2").Cells(Day1, Person * 3 + Col1 - 3) Next Col1 Next Day1 Next Person Application.ScreenUpdating = True ' 画面更新する Application.Calculation = xlCalculationAutomatic ' 再計算する End Sub 118 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 21:12:40 ] >>117 ありがとうございます！ これでうまくいきそうです 119 名前：115 [2007/11/20(火) 21:30:37 ] >>116 会社で上司に頼まれたのですが私も最初A4横で印刷したら「こうじゃなくて縦長にA4用紙に 納めて」と言われてしまいました。どうやっても、縦にすると横が半分ぐらいきれてしまいます。 印刷設定ではここまではできないのでしょうか。。。 120 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 21:36:54 ] excelを買おうと思って価格comで調べたんですが、（AC）ってのはなんでしょうか？ （UPG）はアップグレード版だとわかるのですが。 無印の　Office Excel 2007　って言うのを買えばいいのでしょうか？ OSはwinです。 よろしくお願いします。 121 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 21:38:18 ] >>119　ページ設定で　縦？ページ×横？ページに収めるって設定がある　１X1にすればおｋ 122 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 21:39:07 ] >>120 あかでみっく？ 123 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 21:43:23 ] >>119 無理やりA4におさめたいのなら、 印刷したいセルを選択して、「印刷範囲の設定」を選ぶ。 次に、印刷プレビューを見る。設定で余白を狭めたり、 拡大率を変更し、ページ枚数が一枚になるようにする。 分かりにくい説明だと思うが、これでできるはず。 124 名前：115 [2007/11/20(火) 22:02:52 ] >>116,121,123 ありがとうございます。明日また挑戦してみます。 125 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 22:04:38 ] >>122 あっ、なるほどー ってことは学生さん用ですね。 レスありがとうございます。 126 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 22:12:43 ] =SUMPRODUCT((A1:A10)="AAA")*(B1:B10="EEE")*(C1:C10)) 上記は、A列が"AAA"で、B列が"EEE"の行の対応するC列の値を合計する 式ですが、例えばA列に"BBB"と"CCC"が存在し、これらもOR条件で集計 したい場合のスマート書き方がありましたら教えてください。 気持ちとしては、下記のような式を作りたいと思っています。 =SUMPRODUCT((A1:A10)="AAA"or"BBB"or"CCC")*(B1:B10="EEE")*(C1:C10)) 127 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 22:26:13 ] 配列とVBA、実務で比較的役に立つのはどちらでしょうか？ 128 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 22:35:00 ] >>127 VBA。VBAの中には配列も含まれるし。 仕事の内容にもよるけど、Excelそのものの使い方よりも計算に対する一般常識をたくさん知っていた方がいい。 129 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 22:37:07 ] >>125 別に学生でなくとも教職関係者であればアカデミック版は購入可能だと思うが 130 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 22:41:26 ] >>126 条件の and は * に、or は + に置き換えればいい。 +は*よりも優先順位が低いからカッコでまとめること。 =SUMPRODUCT(((A1:A10="AAA")+(A1:A10="BBB")+(A1:A10="CCC"))*(B1:B10="EEE")*(C1:C10)) 131 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 22:47:33 ] 【1 OSの種類 　 　 　 　 .】 Windowsxp 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 excel 自動　ファーム　入力 toi.kuronekoyamato.co.jp/cgi-bin/tneko 発送管理と発送状態をすぐわかるように このクロネコヤマトのお問い合わせに自動でお問い合わせを入力して、お問い合わせボタンを押してくれるようなの希望です。 相手方の　名前　　住所　メモ　　の横にお問い合わせ番号を書いといて、その番号のリンクをダブルクリックすると上記のように クロネコのサイトが開いて、自動で書いてあるお問い合わせ番号入力、お問い合わせボタンを押してくれたら感激です。 132 名前：名無しさん＠そうだ選挙にいこう [2007/11/20(火) 22:51:52 ] >>128 どもっす 133 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/20(火) 23:34:25 ] >>131 検索したらこういうのがありました。応用できそうです。 ttp://q.hatena.ne.jp/1168525751 134 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/21(水) 12:22:22 ] そこの回答者も大変だな、けんもほろろ。 135 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/21(水) 12:27:42 ] クロネコの問い合わせページは暗号化されたアクセス日時が隠しフォームに入ってて、 いきなりリクエストだけ送ってもダメだからちょっと面倒だね。 136 名前：名無しさん＠そうだ選挙にいこう [2007/11/21(水) 18:01:44 ] 初心者です！　 次のエクセルの式の情報関連のレポートの宿題ですが、 ＝IF（A1+B1＊（１+C＄１＞１００，IF（＄D1＜＞"X"，"あ"，"い"），"う"） の式についてどういう意味かできれば具体的にお教え願います。 �@特に、+と＊のどちら先に計算されるのか �AIF関数とその入れ子についてと、 �B"あ"　"い"　"う"と表示されるのはどのような場合か どうぞ宜しくお願いします。 137 名前：名無しさん＠そうだ選挙にいこう [2007/11/21(水) 18:16:09 ] >>136 おめーのようなのは、おれはスルーだ 138 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/21(水) 18:27:00 ] >>136 宿題は自分でやれ！ 一言だけ教えてやると、その式、たぶん一箇所　）　を写し間違えてるぞw 139 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/21(水) 20:00:29 ] 使い始めたばかりのど素人ですがよろしくおねがいします。 データ分析の回帰分析から回帰直線y=a+bxのaとbを求めたものと、 データを散布図にプロットして線形近似した式と比べてみたのですが 式が一致しませんでした。線形近似は回帰直線にならないのでしょうか。 140 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/21(水) 20:05:18 ] >>131 これで一応希望の動作はできるから、あとは自分の作ったブックに合わせてカスタマイズしてね。 VBAは「いいえ」になってるけど、ブラウザの操作はVBAを使わないと無理だから、がんばって勉強してね。 Sub Kuroneko_check() ' IEオブジェクトのインスタンス化 Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True ' ブラウザを開く ' クロネコのサイトに飛ぶ objIE.Navigate "toi.kuronekoyamato.co.jp/cgi-bin/tneko" Do While objIE.Busy = True 'ページが表示されるまで待つ DoEvents Loop ' 伝票番号をセルA1から取得してフォームにセット objIE.document.all.number01.Value = Range("A1").Value ' テスト用仮データをセット (動作確認用) objIE.document.all.number01.Value = "1111-2222-9993" ' 問い合わせボタンをクリック objIE.document.all.sch.Click End Sub 141 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/21(水) 20:11:59 ] >>136 そういうのはまず、自分で実際にエクセルの画面に入力して確かめてみるところから始めるといい。 そうすると入力ミスしていないかどうかも確認できるし。 1つだけヒント + は足し算 * はかけ算。×のかわりに * と書く決まり。どっちを先に計算するかは小学校で習ったよね？ 142 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/21(水) 20:41:27 ] >>136 宿題なら教科書をみて自分で考えれ 143 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/21(水) 20:56:45 ] >>131 個人相手ではどうか知らんが、法人ならばやり方教えてくれるかもよ>クロネコ 131が物流と言う言葉にピンと来れば、そこに聞いてみるといい。 144 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/21(水) 21:21:00 ] 初歩的な質問ですみません。 Excel2007の単独導入を考えているのですが、 Excel2007にMS数式3.0は付いてきますか? 145 名前：名無しさん＠そうだ選挙にいこう [2007/11/21(水) 23:44:32 ] VBAでデスクトップにある<aaa>フォルダーの<bbb.csv>ファイルを開きたい。 Workbooks.Open Filename:= の続きを教えてください。 146 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/21(水) 23:51:48 ] >>145 これでいいの？Windowsのバージョンによってはパスが違うことも… Workbooks.Open Filename:="C:\Documents and Settings\ユーザー名\デスクトップ\aaa\bbb.csv" 147 名前：145 [2007/11/22(木) 00:01:46 ] サンクスです。 できました。 148 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 00:04:52 ] >>145 デスクトップのフォルダ名は以下のようなメソッドで取り出すことが出来ます。 CreateObject("WScript.Shell").SpecialFolders("desktop") これを応用して書き換えるとこうなります。 Workbooks.Open Filename:=CreateObject("WScript.Shell").SpecialFolders("desktop") & "\aaa\bbb.csv" これならユーザー名が変わってもWindowsのバージョンが変わってもそのまま使えます。 149 名前：145 [2007/11/22(木) 01:00:50 ] サンクス。 それいいですね。 150 名前：リース mailto:huh [2007/11/22(木) 09:32:12 ] successmix.xsrv.jp/ ってビジネスどう思う？ これなら、できる？ 151 名前：名無しさん＠そうだ選挙にいこう [2007/11/22(木) 09:49:08 ] >>150 全然、欲しいとも思えない商品ばかり。悪質なマルチ商法 152 名前：名無しさん＠そうだ選挙にいこう [2007/11/22(木) 11:46:29 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP-HE 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 （Google）Excel　VBA　セル　選択　不連続　グラフ 不連続（飛び飛び）のセルの数値を使ってグラフを作成したく思っています。 例えば、www.imgup.org/iup506935.jpg　で、土地の行のAさん〜Cさん の2006年のデータを円グラフにする際には、どのような記述になるのでしょうか？ この場合だと、対象の数値は、100，150，500　となります。 153 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 12:21:18 ] 不連続の表を連続の表に変換してからグラフにしたほうが簡単だな 154 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 15:32:32 ] >>151 おまえいいやつだな。単なる広告コピペにわざわざレスつけるなんて。 155 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 15:45:03 ] >>152 フィルターかけてからグラフを作成。非表示のセルを空白に。 あるいはデータの範囲を =Sheet1!B4,Sheet1!D4,Sheet1!F4 みたいにコンマで区切って並べれば飛び飛びのセルを指定できる。 Ctrl押しながらクリックして複数のセルを選択してからグラフを作っても同じこと。 156 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 17:08:01 ] >>153，155 さんきゅうです。やってみます。 157 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 19:48:18 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 【5 検索キーワード 　 　 】 小数点　揃え　セル等々 かなり初歩的な質問だと思うのですがお願いします。 image13.bannch.com/bbs/185085/img/0082290336.jpg このように縦に数字の桁をそろえるにはどうしたらいいのでしょうか？ 158 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 20:17:40 ] ちょっとちがうかもしれないけど書式を　???.?? としてみる　（？が３つ　ピリオドが１つ　？が２つ） 159 名前：名無しさん＠そうだ選挙にいこう [2007/11/22(木) 20:42:17 ] 横からスマソ その???.??は書式→セル等、どうやっていれるか教えてくれ 160 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 20:52:09 ] 書式と言うか書式設定の中の表示形式､更にその中のユーザー定義 Excelでは書式と言うと､セルの文字色や背景色､罫線などまで含めたものを指す それと???.??より0.??の方が良いだろうな まぁ､どちらにしろ整数でも小数点が表示されるのが嫌だとか言い出しそうだがな その場合はVBA使うとかセル分けするとかかな 161 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 21:00:52 ] >>159 こうやるの。基本中の基本だからしっかり覚えておくように ttp://www.wanichan.com/pc/faq/excel/02.htm 162 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 21:27:31 ] >>157 (1) ここで説明する方法はExcel2003以前では使えないので、まずExcel2007に乗り換える (2) セルを右クリックして「セルの書式設定」→「書式」→「ユーザー定義」を開いて「??0.??」と入れる (3) 同じく「セルの書式設定」の中の「配置」タブを開き、横位置を「左詰め (インデント)」にしてインデントを1にする (4) 条件付き書式を開き、「新しいルール」→「数式を使用(r」を選ぶ (5) 数式のところに「=A1=INT(A1)」と書き、書式をユーザー定義で「??0」にする このとおり ttp://pict.or.tp/img/31351.png 163 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 21:29:28 ] へー　2007買おうかな 164 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 21:38:15 ] MS　ゴシック　のような等幅フォントにして小数点以下がないものは半角スペースを3つ 小数点以下が一桁ある場合は半角スペースを1つ入れる 配置を右詰めにしたらできあがり 2003以前でも対応可 俺って天才 165 名前：164 mailto:sage [2007/11/22(木) 21:41:45 ] 値の最初に「'」をつけるのを忘れずに＾＾ 166 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 21:49:23 ] それじゃ式に使えないじゃない 167 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 22:16:11 ] 前スレで、=MAX(0,)を教えてもらったものです(Excel9007使用)m(_ _)m Ｈ３に、 =MAX(0,(F3-F2-G2)*0.05)という計算式を入れてますが、ここに小数点以下は切り捨てという条件も入れるにはどうしたらよいでしょうか？ Ｈ４にINT関数入れれば出来るのは知っているのですが、一つにまとめたいので。 168 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 22:24:45 ] >>167 式全体をINT(　)のカッコの中に入れればいいんだよ。 =INT(MAX(0,(F3-F2-G2)*0.05)) 169 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 22:35:36 ] >>168 ありがとうございましたm(_ _)m 170 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 23:16:04 ] 9007　いいなあ 171 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/22(木) 23:55:23 ] >>157 VBA使っていいならThisWorkbookに Private Sub autochange(ByVal Target As Range) Dim c As Range, f As String, s As String, e As String On Error Resume Next Application.EnableEvents = False For Each c In Target f = c.NumberFormat If Right(f, 7) = "AUTO1""@" Then s = Mid(f, InStr(1, f, """", vbTextCompare) + 1, Len(f)) s = Left(s, InStr(1, s, ";AUTO1""", vbTextCompare) - 1) If Int(c.Value) = c.Value Then e = Left(s, InStr(1, s, ";", vbTextCompare) - 1) c.NumberFormat = e & ";""" & s & ";AUTO1""@" Else e = Mid(s, InStr(1, s, ";", vbTextCompare) + 1, Len(s)) c.NumberFormat = e & ";""" & s & ";AUTO1""@" End If End If Next Application.EnableEvents = True End Sub Private Sub Workbook_SheetCalculate(ByVal Sh As Object) autochange Sh.UsedRange End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) autochange Target End Sub こんな感じにして表示形式を 0.00;"0_._0_0;0.00;AUTO1"@ にする 172 名前：名無しさん＠そうだ選挙にいこう [2007/11/23(金) 02:32:11 ] WindowsXP Excel2000 VBA使えません。 y軸に普通の値を、x軸に乗数を含む数値を入れた滑らかなグラフを作りたいのですが、どうすればいいんでしょうか。 折れ線で試したのですが、x軸の値が乗数表示できず、10-6のように表示されてしまい、 また、滑らかなグラフになりません。 173 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/23(金) 03:34:19 ] >>172 自動的に乗数を出すことはできないので、データラベル用の列か行を自分で作っておく必要がある。 例えば10のマイナス6乗を書きたい場合は、まず「10-6」と入力してから「-6」の部分だけを選択して、 書式→セルを開いて「上付き」をチェックする。 先に1つだけ作って、それをコピーしてから数字だけを修正していった方が早くできる。 グラフをなめらかな曲線にするには、まず折れ線グラフを作ってからプロパティ→系列→書式を選んで 「スムージング」にチェックを入れる。 174 名前：173 mailto:sage [2007/11/23(金) 03:40:56 ] あ、スマン。たしかに書式が無視されるね。これは気が付かなかった。 175 名前：172 mailto:sage [2007/11/23(金) 04:05:44 ] >>173 セル上はちゃんと乗数になってるのに、グラフの数値では書式が戻ってしまうんですよね。 これはどうしようもないんでしょうか…。 176 名前：名無しさん＠そうだ選挙にいこう [2007/11/23(金) 04:10:13 ] 指定した文字があるセルにジャンプすることはできる？ 「E」と入力すると「English」というセルに飛べるか 177 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/23(金) 04:37:37 ] >>175 VBAでできないか調べてみたけど、軸ラベルは単純な文字列じゃないんだね。 オートシェイプのテキストボックスを重ねるしかないかなあ。 178 名前：177 mailto:sage [2007/11/23(金) 05:04:20 ] >>175 とりあえずオートシェイプで誤魔化してみた。俺の頭じゃこれが限界だ。 ttp://upsurusuru.hp.infoseek.co.jp/cgi-bin/src/up1301.png 179 名前：172 mailto:sage [2007/11/23(金) 05:24:40 ] >>177 わざわざスクショまでうｐしていただいて、ありがとうございます。 やってみます。本当にありがとうございました! 180 名前：名無しさん＠そうだ選挙にいこう [2007/11/23(金) 07:47:28 ] >>130 遅ればせながらできました。ありがとうございました！ 181 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/23(金) 08:39:20 ] >>176　検索 182 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/23(金) 19:05:37 ] >>176 ブックやシートには標準ではKeyPressイベントが公開されてないから、 どっかからオーバーライドしてくるか、別のプロセスでイベントハンドラを用意しないとダメかも。 不可能ではないけど、けっこうめんどくさい。 183 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 01:50:45 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP SP2 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 【5 検索キーワード 　 　 】 関数　検索　lookup 空白　無視　...等 　　 　A　　 　　 B　　 　　 C 　 1　 01A01 　02A02 　03A03 2　 　　　　 　02B02 　03B03 3　 01C01 　02C02 　03C03 4　 5　 　　　 　　02D02 　03D03 6　 7　 01E01 　02E02 という表で、たとえば A10に01A01と打ち込むとその行の一番右列にある03A03を返す A10に02D02と打ち込めばその行の一番右列にある03B03を返す A10に01E01と打ち込めばその行の一番右列にある02E02を返す という関数を作りたいのですが上手くいきません。何かいい方法はないでしょうか？ 空白の行・セルはソートはできません。 184 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 03:05:39 ] >>183 ちょっと長くなるけど =IF(ISERROR(VLOOKUP(A10,A1:C7,3,FALSE)),IF(ISERROR(VLOOKUP(A10,B1:C7,2,FALSE)),"", VLOOKUP(A10,B1:C7,2,FALSE)),IF(VLOOKUP(A10,A1:C7,3,FALSE)="", VLOOKUP(A10,A1:B7,2,FALSE),VLOOKUP(A10,A1:C7,3,FALSE))) 185 名前：名無しさん＠そうだ選挙にいこう [2007/11/24(土) 09:20:36 ] >>183 一番左に１列挿入して次の式を入力 =LEFT(B1&C1&D1,5) この列を検索範囲に入れて =VLOOKUP(A10,A1:D7,4,1) 186 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 11:14:17 ] すみませんが教えて下さい。 PCの買替え（→vista）を検討中ですが、Excel2000で作成したファイルは いきなりExcel2007で作業することは可能ですか？ 【1 OSの種類 　 　 　 　 .】 Windows98SE 【2 Excelのバージョン 　 】 Excel2000 187 名前：名無しさん＠そうだ選挙にいこう [2007/11/24(土) 11:27:58 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 可 セル内の文字の中から、指定の文字を数える方法はありませんかね？ たとえばセル内に aaaabcd と書いてある場合、a の数が4個だと分かるような関数はありますか？Len関数を使えば、上記の場合7と答えが出ますが、文字の指定はできなかったはずです。 188 名前：名無しさん＠そうだ選挙にいこう [2007/11/24(土) 12:42:10 ] >>187 釣りじゃないよね？ =LEN("aaaabcd")-LEN(SUBSTITUTE("aaaabcd","a","")) 「元の文字数」−「指定文字を除いた文字数」 簡単だろ。 189 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 13:23:47 ] うぜー 190 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 14:40:09 ] エッ！　難しかったの？ 191 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 15:46:44 ] お尋ねします 【1 OSの種類 　 　 　 　 .】 WindowsVista 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 可 セル内の二色を使った文字列のうち1色だけを他の色に置き換えることはできないんでしょうか 「置換」を使うとセル内すべての文字色が置き換わってしまうのですが 赤黒→青黒にしたいところ 赤黒→青青になってしまいます 192 名前：名無しさん＠そうだ選挙にいこう [2007/11/24(土) 17:20:32 ] 【1 OSの種類 　 　 　 　 .】 Windows Vista 【2 Excelのバージョン 　 】 Excel2007 【3 VBAが使えるか　 　 .】 いいえ 2003で作成したものを2007で読むとウインドウ枠の固定ができません。 ページによってはできるのですが、そこが白黒表示でできません。 同様の方はいらっしゃるでしょうか。 また、解決法などあるでしょうか。 193 名前：名無しさん＠そうだ選挙にいこう [2007/11/24(土) 17:59:00 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 会計ソフト(市販のモノです)からエクスポートしてきたデータ(エクセル形式)を貼る付けと同時に加工することは可能でしょうか？ 例えば貼りつけるとすぐに「売上債権回転率」や「流動比率」などを計算させる、などです。 貼りつけた数値の位置が毎回同じなら良いのですが、月次によって勘定科目の増減がありますので、 貼る付ける位置が常に同じとは限りません。 何か良い方法はありませんでしょうか？ 194 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 21:08:13 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2000 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 既に打ち込まれてある数値（少数）をセルごと100倍するにはどうすればいいでしょうか。 ググルと関数でできるような事が書いてありますが、できませぬ。。 お助け願います。 195 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 21:19:45 ] なんか回答がないようだがレベルが高いのか？低いのか？ 196 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 21:26:20 ] どうしたいのか今一わからぬ。 もう少しわかりやすどうしたいか書くとイイかもね。 例えば>>194 =A1*100みたいに計算したらだめなん？ 関数を使いたいの？ 197 名前：名無しさん＠そうだ選挙にいこう [2007/11/24(土) 21:29:48 ] >>195 このスレって質問者が中級で回答する人が初中級というヘンなスレです。 前から見ててそう思ってます。 198 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 21:35:10 ] >>193 情報が足りない。張り付けるのは数値だけなのか数値と項目名なのか。縦一列なのか表形式なのか。 数値だけなら無理だな。項目名もあるならDSUMあたりでなんとかなるだろう。 199 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 21:42:37 ] >>197 で、あんたのレベルは？ 200 名前：名無しさん＠そうだ選挙にいこう [2007/11/24(土) 21:44:28 ] >>199 図星だね。 そういうレスが来るのがその証拠だ。　笑 201 名前：名無しさん＠そうだ選挙にいこう [2007/11/24(土) 21:58:19 ] >>188 トンクス 釣りじゃないよ、まだ慣れていないんだ 202 名前：183 mailto:sage [2007/11/24(土) 22:16:47 ] >>184 ありがとうございます。 しかし実際使う表が800行ぐらいあるので厳しいです。。。 >>185 ありがとうございます。 01A01でやると０が返ってきたり、02B02でやると03C03がきたりしてちゃんとできませんでした。。。 203 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 22:25:43 ] >>202 ＞しかし実際使う表が800行ぐらいあるので厳しいです。。。 ８００回記入しなくても、式をコピーできるのは知ってる？ 204 名前：183 mailto:sage [2007/11/24(土) 22:38:57 ] >>203 書き方が悪かったですすいません 制限文字数以上いきそうです・・・。 205 名前：名無しさん＠そうだ選挙にいこう [2007/11/24(土) 22:40:51 ] >>183 >>202 各行の最左項をキーに最右項のデータを検索するって事でいいのなら 「１８５改造案」 Ｄ列に：=LEFT(A1&B1&C1,5) Ｅ列に：=RIGHT(A1&B1&C1,5) 検索式は：=VLOOKUP(A10,D1:E7,2,0)　最後の項は１じゃなくて０の間違い 206 名前：183 mailto:sage [2007/11/24(土) 22:47:56 ] >>205 途中で0にしてみて、できた！と思ったんですがだめでした 最左項だけではなく、最右項以外（>>183　１行目でいうと、01A01か02A02）がキーだったら最右項の03A03を返すです 空白行や空白セルがある＆頭に数字が付いてるのが厳しい。。。 207 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 22:50:49 ] >>197 残念､ハズレ 質問者も回答者も初級以下から上級まで様々です ただし､質問者にはPCやExcelのレベルに関係なく 日本語出来てなかったり､要領を得ない質問してたりする奴が多い傾向にはあるけどね その為に回答が滞りがちではある 208 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 22:57:36 ] >>206 後から条件を追加しちゃダメだよ 209 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 23:06:02 ] >>191 ひとくちに赤、青と言っても、明るかったり暗かったりいろんな色があるから 標準以外の色を使っていた場合にはこのVBAは使えないので注意。 Sub test() ' 呼び出しサンプル ChangeColor ("A1") ' 置き換えたいセルを指定する End Sub Sub ChangeColor(R) '指定されたセルの赤い文字だけを青に変える For I = 1 To Len(Range(R)) If Range(R).Characters(Start:=I, Length:=1).Font.Color = vbRed Then Range(R).Characters(Start:=I, Length:=1).Font.Color = vbBlue Next I End Sub 210 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 23:12:38 ] >>193 行数の増減があったとしても、下から数えて必ず同じ位置に同じ項目が来るなら VBAなどを使って処理することは可能。 211 名前：名無しさん＠そうだ選挙にいこう [2007/11/24(土) 23:32:01 ] >>207 残念。 回答者に上級レベルなど居ません。 それでもあると仰るのであれば具体的な指摘をお願いしたい。 212 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 23:32:02 ] >>206 最大何列まであるの？行数はどんだけあっても関係ないから。 あと、800行あるなら検索するデータの入力先もA10じゃないよね。 ありのままの条件を書いて。 213 名前：名無しさん＠そうだ選挙にいこう [2007/11/24(土) 23:36:19 ] >>183 そういった変則的な検索条件になるって事は データベースのフィールドの作り方が間違ってるって事だよ 後々複雑な式になって編集や変更がしにくくなる前に 根本的に表の設計をやりなおしたほうが得策だよ 214 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/24(土) 23:43:26 ] >>194 質問の意味が今ひとつわからないので勝手に解釈するぞ。 まず、適当に使っていないセルに100と入力し、そのセルを選択、コピーする。 次に、100倍にしたいセル(範囲)を選択して右クリック、形式を選択して貼り付け、を開く。 演算の下の「乗算」のラジオボタンをチェック、OKを押すと、選択したセルが一度に100倍される。 215 名前：名無しさん＠そうだ選挙にいこう [2007/11/24(土) 23:45:24 ] >>210なんかは回答者だけど日本語読めてないよね。 これなんかはどうよ？>>207 216 名前：名無しさん＠そうだ選挙にいこう [2007/11/25(日) 00:21:15 ] 的外れだったらすり合わせればいいだけ。 それができない回答否定＝人格否定＝ボク悪くないお前が馬鹿なのが悪い っつーお子様が粘着して貼りついてしまってるだけ。 217 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 00:22:23 ] 焦るなよ 曖昧な質問に無理やり答えようとするからおかしな回答になるんだろ 不明な点、曖昧な点を明らかにするよう誘導くらいはしようぜ 218 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 00:31:30 ] >>216 それ自分に言い聞かせてるの？ 219 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 00:39:44 ] 悪い質問には悪い回答しかつかないんだからそれでいいじゃん 220 名前：名無しさん＠そうだ選挙にいこう [2007/11/25(日) 01:26:25 ] 【1 OSの種類 　 　 　 　 .】 Windows XP SP2 【2 Excelのバージョン 　 】 Excel 2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 【5 検索キーワード 　 　 】excel 関数　で検索して関数を調べたりしました。 説明がややこしいのでサンプルを作ってみました。 ttp://hilala-web.hp.infoseek.co.jp/excel/sample01.xls このように、個人ごとの注文表があったとします。 この注文を1つにまとめて、それぞれ鉛筆何本、シャーペン何本という合計の表を 作るのにはどのようにすればいいでしょうか？ 個人注文表で品物と個数を選ぶと、別の表ですべての合計が表示される、といった感じにしたいです。 よろしくお願いします！ 221 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 02:00:14 ] >220 俺あんまり頭良くないから長ったらしい式書いちゃうけど 例えばA10に商品の名前を入れておいて B10=SUMPRODUCT((G$2:G$7=A10)*(H$2:H$7)+(D$2:D$7=A10)*(E$2:E$7)+(A$2:A$7=A10)*(B$2:B$7)) と入れれば集計は出来ると思う あとは応用してみて 222 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 03:46:46 ] >221 {=SUM((G$2:G$7=A10)*(H$2:H$7),(D$2:D$7=A10)*(E$2:E$7),(A$2:A$7=A10)*(B$2:B$7))} =SUMIF(A$2:A$7,A10,B$2:B$7)+SUMIF(G$2:G$7,A10,H$2:H$7)+SUMIF(D$2:D$7,A10,E$2:E$7) =SUMPRODUCT((G$2:G$7=A10)*(H$2:H$7)+(D$2:D$7=A10)*(E$2:E$7)+(A$2:A$7=A10)*(B$2:B$7)) 223 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 03:58:16 ] >>191 それは仕様なのではないでしょうか。 自分は、Excelでは置換をしない、と決めています。 224 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 06:23:36 ] >>211 新参だと知らないかもしれないが､ゴッホ氏とかhoge氏とか 最近は来ないけど､このスレに居た事実は変わらないし コテ無しでもこのレベルの奴は偶に来てる (君にとって)残念ながら､(俺にとっては)残念ではなかった 225 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 09:20:52 ] >>209 >>223 皆さんありがとうございます ちょっとVBA勉強してきます 226 名前：220 [2007/11/25(日) 10:18:11 ] >>221, >>222 ありがとうございます、その式でとりあえずは集計することができました。 ただ、実際作るものは、山田、田中、鈴木、のように3つではなくもっと多くなってしまいそうです。 かなり長い式を書けばできなくもないんですが、もう少し効率的な方法はないでしょうか？ できれば可変にも対応させたいのですが・・・ (最悪ずっと右のほうまで計算するように作っておけばいいので、あまり重視しません) よろしくお願いします。 227 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 10:25:05 ] >>220 >>213氏が別の質問に対して答えてる内容と同じになるのですが、 マスターとなる表自体の作りを変えた方が良いですよ。 この例だったら、 A列：注文者名 B列：注文品名 C列：注文品の個数 みたいな感じ。 人間にとって見易い表から機械で処理し易い表を作るのは 大変ですが、逆は簡単ですから。 228 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 10:38:12 ] そういうのはピボットテーブルで集計するのが楽だね 229 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 11:34:16 ] ピボット使う奴は雑魚 230 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 11:47:47 ] ん？　くやしかったの？ 231 名前：名無しさん＠そうだ選挙にいこう [2007/11/25(日) 11:55:42 ] >>219 だな。 お前のような質の悪い人間が混じってくる。 232 名前：永遠の初心者 ◆adhRKFl5jU mailto:sage [2007/11/25(日) 12:13:02 ] >>229 ピボットを使う奴は決して雑魚ではない >>220 例えば 商品表のC2に =SUMIF(個人注文表!$A$2:$I$7,A2,個人注文表!$B$2:$J$7) を下にコピーする。 233 名前：220 mailto:sage [2007/11/25(日) 15:56:34 ] みなさんレスありがとうございます。 >>227 なるほど。 しかし実際はもっと複雑なのでなかなか簡単にはいかないのです・・・ そして実際に数値を入れるのは他の人(不特定多数に近い)にやってもらうので、 多少式が複雑でも見た目がわかりやすいほうがいいのでこの形にしました。 >>228 ピボットは使ったことないのでまた調べて見ます。 >>232 おお、すばらしい！ これはシンプルでいいですね。 SUMIFの検索範囲、合計範囲が複数列になっていますが、この場合 検索範囲が$A、合計範囲が$Bから始まっているので、検索に合致したセルの 右のセルの値が合計される、という意味になるのでしょうか？ (説明がややこしいですが･･･) 234 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 17:12:22 ] >>233 不特定多数が入力するんなら、入力フォームを使ったほうがいいぞ。 集計しやすいように表を作ることも出来るし、入力する位置の間違いなんかも防ぐことが出来る。 商いの規模にもよるけど、ExcelよりAccessを使った方がいいかもよ。 Accessなら複雑な集計がExcelよりは楽に出来ることのが多い。 235 名前： ◆adhRKFl5jU mailto:sage [2007/11/25(日) 18:24:04 ] >>233 ＞検索範囲が$A、合計範囲が$Bから始まっているので、検索に合致したセルの ＞右のセルの値が合計される、という意味になるのでしょうか？ 右のセルの値とは限らないです 今回は検索範囲と合計範囲の大きさ（範囲の形）を同じにしています 選択した検索範囲と同じ形の合計範囲が同じならば、イメージとしては検索範囲と合計範囲を 重ねた時に一致したセルの値が合計されます 例えば　=SUMIF(A1:C5."条件",X21:Z25)　という式では B2とC5に"条件"という文字が入っていた場合Y22とZ25の値が合計されます 236 名前： ◆adhRKFl5jU mailto:sage [2007/11/25(日) 18:31:18 ] 書き忘れました ＞今回は検索範囲と合計範囲の大きさ（範囲の形）を同じにしています ヘルプより 「合計範囲に含まれるセルの個数と形状は、必ずしも対応するセルと一致している必要はありません。 加算の対象となる実際のセルは、合計範囲の左上のセルを基準にして決定されます。」 でも一致させた方がわかりやすいので今回は一致させました 237 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 18:58:06 ] また出てきたのか>>◆adhRKFl5jU なんでそんなに自己主張したがるの？ 無名で回答すれば､単なる初級回答者として多少は有り難がられるのに 酉付きで出てくると､過去の暴走を知ってる人達から叩かれるだけだよ 238 名前：220 mailto:sage [2007/11/25(日) 19:45:04 ] >>234 ありがとうございます。 詳しく説明するとかなり長くなってしまうのでやめときますが、 今回の場合はフォームよりはこっちのほうがよさそうです。 不特定多数といっても、1人1つこのファイルに入力してもらう感じで、 入力者は全部のシートを見て全体をみながら考える・・・といった感じなのです。 わかりにくいかもしれませんがどうでもいいので気にしないでくださいｗ >>235 なるほど、そういう事ですか。 かなり参考になりました、ありがとうございます！ 239 名前：名無しさん＠そうだ選挙にいこう [2007/11/25(日) 20:04:24 ] 期間中にクリック数の一番多い国が優勝！ www.clickclickclick.com/default.asp　（戦場はこちら） ルールは簡単（ ＾ω＾）認証文字を打ち込んだら、あとはクリックボタンを連打連打！！！ おまえさんたちのクリック魂を見せてくれ！ ◇新規さんや古参帰還兵さんへ 初めまして、そして久しぶりです。この熱き戦いももう半年を迎えました。 現在GAME29(11/26-11/30まで)に突入、我らが日本は強豪ハンガリーに苦戦を強いられています。 世界が総力を挙げて競っているこの戦いに、あなたの力を貸してください！ ClickJapanポータルサイト→　www.clickjapan.jp/ 初めての方はこちらのwikiを→　www37.atwiki.jp/clickjapan/ 久しぶりに参戦の方へ→　www33.atwiki.jp/clickvip/pages/237.html わからない事はこのスレ（落ちてたら↓から）で聞いてね！(ポータル内のフォーラムでもＯＫ！) www.clickjapan.jp/find2ch.php 【砲台ランキング】一番クリックした国が優勝【はじめました】 yutori.2ch.net/test/read.cgi/news4vip/1195966264/ 240 名前：194 mailto:sage [2007/11/25(日) 23:34:04 ] >>214 うをを、簡単にできました。 どうもありがとうございました。 こんなの本に載ってないし、ググっても出てこないのでまいります。 241 名前：名無しさん＠そうだ選挙にいこう [2007/11/25(日) 23:52:08 ] ２００３使ってます。 セルで列または行に 例　(列) TEL１２３−４５６−７８９ TEL１２３−４５６−７８９ TEL１２３−４５６−７８９ TEL１２３−４５６−７８９ TEL１２３−４５６−７８９ 並んでいるときにTELの文字だけ一気に消したいのですが どうしたらいいのでしょうか？ 242 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/25(日) 23:55:23 ] >>241 置換で空白にするとか 243 名前：名無しさん＠そうだ選挙にいこう [2007/11/25(日) 23:59:38 ] >>242 天才ですね！！！！！！！！！！！ ありがとうございます！！！！！！！！！！！！！！！！ 244 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/26(月) 00:20:42 ] >>220 関数を使わずに、「データ」メニューから「統合」を使うのも良いのでは？ 左端列をチェックすれば、集計出来ます。 245 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/26(月) 08:14:24 ] >>237 自己紹介乙ｗ 246 名前：名無しさん＠そうだ選挙にいこう [2007/11/26(月) 11:10:22 ] 方向キーを押すとカーソルが移動しないでシート全体が移動してしまいます。 カーソルを移動するようにするにはどうすればいいでしょうか？ 247 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/26(月) 11:53:21 ] ScrollLock 248 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/26(月) 11:55:15 ] >>245 せんせー､おはようございます 249 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/26(月) 13:31:16 ] >>247 できました。ありがとうございます。 250 名前：あ〜 [2007/11/26(月) 18:51:21 ] エクセルで、グラフとかどう作るの？ 途中までできるんだけど、完全にできない。 251 名前：名無しさん＠そうだ選挙にいこう [2007/11/26(月) 20:09:32 ] あなたにはできないので、諦めてください。 252 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/26(月) 22:43:12 ] ひどい質問だ。 この聞き方じゃリアルでもどうにも答えられんよな。。。 253 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/26(月) 23:50:49 ] 教えてください。 シート１のセル「A2」に何か入力（文字種は問わない）があれば、 シート２のセル「B3」に、 シート１のセル「A1」に入力されている文字（例えば人の名前とか）をそのまま表示する。 シート１のセル「A2」に何も入力がなければ、シート２のセル「B3」は空白のままにしておく ということをするために、シート２のセル「B3」に入力する書式がわからなくて困っています。 どなたかご教授いただけないでしょうか？ よろしくお願いいたします。 254 名前：テスト ◆WBRXcNtpf. mailto:sage [2007/11/26(月) 23:51:04 ] sage 255 名前：253 mailto:sage [2007/11/26(月) 23:53:06 ] 書き忘れました、すいません 【1 OSの種類 　 　 　 　 .】 Windows XP SP2 【2 Excelのバージョン 　 】 Excel 2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 よくわかりません 【5 検索キーワード 　 　 】excel 関数を調べてみましたがよくわかりませんでした よろしくお願いいたします。 256 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/26(月) 23:56:19 ] >>253 =if(シート１!A2<>"",シート１!A2,"") 257 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2007/11/27(火) 00:18:52 ] >>255 どんな関数でも数式でも、別のシートを参照するにはセル指定の前にシート名とびっくりマークを書けばいいだけ。 =IF(Sheet1!A2<>"",Sheet1!A1,"")

---

---

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

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