Excel総合相談所 88

1 名前：名無しさん＠そうだ選挙にいこう [2009/11/01(日) 00:43:54 ] ▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━ ★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総合相談所 87 ttp://pc11.2ch.net/test/read.cgi/bsoft/1254055959/ 2 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/01(日) 01:28:58 ] ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━ ･1 現行スレ内で既出の質問が無いか、ページ内検索をしよう。(Ctrl+F) ･2 図やコードを書く場合、TABや連続する半角スペースは無視されるので注意 ･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。 ･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。 ･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。 ･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。 　　ここは技術的な質問のみで。 ･7 VBAはプログラム言語のVisualBasic(6以前)に近い処理が可能で　Excelに関係ないことも出来ます。 　　Excelの操作に関係ない部分は、スレ違いなのでここで聞かずにVB言語やAPI､COMについて自分で勉強し､ 　　どうしてもわからない部分はVBスレやAPIスレなどの該当スレで質問しましょう。 　　但し向こうはプログラマのスレなので､構文規則などの最低限の事は覚えてから質問しましょう。 　　ここみたいに丸投げはダメですよ。 ･8 うまくいかなかったにしても自分でやってみたこと(組んだ数式やコード)は書きましょう。 　　例えエラーになる式やコードでも、何をやりたいのかを的確に把握する手がかりになります。 　　その上で、どううまくいかないのかを具体的に書きましょう。 　　エラーが出るなら、何処でどういうエラーが出るのか、 　　想定外の結果が出るなら、条件と想定上の結果、実際の結果などを詳しく書いてください。 ･9 マルチはダメ。一度マルチしたら､謝っても他のスレの質問を取り下げても回答は得られないと思ってください。 ･A テキストボックス(エディトボックス)、コンボボックス(ドロップダウンリスト)、リストボックス、コマンドボタン、 　　チェックボックス、オプションボタン(ラジオボタン)、スピンボタン、スクロールバー、等の質問をするときは、 　　ユーザーフォーム、コントロールオブジェクト、フォームオブジェクトのどれなのかを必ず書くこと。 ･B 書籍や解説サイトの紹介以来はスレ以外。ここは技術的な質問のみで。 3 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/01(日) 01:30:02 ] ★ルールを無視すると… 　>>1-2あたりのルールに従うか否かは自由だけど､従わないと以下のような不利益があるよ 　★1．マルチをしてしまったら… 　A．謝っても他での質問を取り下げても､以後その質問に対する回答は付かない物と思ってください。 　　　それが嫌なら初めからマルチなんてしないように。>>2にマルチ禁止と書いてあり､ 　　　マルチの意味が分からなければ検索すれば出てくるので､｢知らなかった｣は通用しません。 　★2．>>1★4に従わず､必要な情報を出さないと… 　A．自分の使用しているバージョンで使えない機能を答えられたり､VBA使えないとか使いたくないと書かないと 　　　VBAでの解決OKで自分でコード書けるものと勝手に解釈されて､｢VBAで出来るから自分でコード書いて｣程度の 　　　適当な回答を返されたりします。また､ここではVBAコード書けない人の丸投げ依頼を許可してますが 　　　これはきちんとルールに従って質問､依頼した人のみの特権です。 　★3．情報･条件を後出しすると… 　A．後から出された情報は意図的に無視されたり､質問自体を放置されたりします。 　　　>>1★4の必須情報はもちろんのこと､要望や条件､既に試したことなどは､ 　　　長文になってもいいので詳細かつ明確かつ具体的に書きましょう。 ★VBAについて 　VBAとは､『Visual Basic for Application』の略で 　　Application 　　├Workbooks 　　｜└Workbook 　　｜　 ├Worksheets 　　｜　 ｜└Worksheet 　というApplication以下のオブジェクトを､VB言語で操作するものを指します。　 　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､ 　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。 4 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/01(日) 01:30:58 ] ★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法) 　▼環境･書式 　 ･ 列数を256列以上、行数を65'536行以上に増やす (Excel2007では16'384列､1'048'579行扱える) 　 ･ Excel2003以前で条件付き書式を3つ以上設定する (文字色だけなら、入力規則でも3つ設定可能。それ以外はVBA) 　 ･ 行の高さを0.25きざみ以下の単位で指定する 　 ･ セル内の文字を○で囲む、一部のみ2段にする (オートシェイプ、オブジェクト) 　 ･ オートフィルタで英字の大小文字を区別する (小文字 → 半角、大文字 → 全角、と使い分ける) 　 ･ 祝日を判断する (作業セルに祝日を列挙、VBA) 　 ･ 同一列内でセル(行)ごとに列幅を変える、同一行内でセル(列)ごとに列高を変える (セルの結合) 　 ･ ヘッダー･フッターのページ番号の開始番号任意指定、ページ番号演算、同シート内で違ったものを指定など 　 ･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する 　 ･ 罫線幅の自由指定 　 ･ 表示形式で｢10/ 1｣といった書式を指定し､日付が一桁の場合のみ日付の前にスペースを入れる (TEXT関数､VBA) 　 ･ 書式設定の｢折り返して全体を表示する｣と｢縮小して全体を表示する｣を同時に使う (折り返しを有効にして､手動で文字サイズを調整) 　▼操作 　 ･ ファイラーの右クリックメニューからの新規作成で、Excelで設定したシート数のブックを作る (任意のシート数のテンプレートを作成) 　 ･ 複数シートを選択して入力規則やシートの保護を設定する (VBA) 　 ･ オートコンプリート機能を、別列や離れたセルで動作させる (VBA) 　 ･ 選択範囲から一部を除く､Ctrlを押しながらの複数選択で一部を取り消す (VBA) 　 ･ 優先キーを3つ以上指定しての並べ替え (優先度の低い方から順に並べ替える) 　 ･ 1セルを分割 (分割したいセル以外を結合) 5 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/01(日) 01:31:51 ] ★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法) 　▼数式･関数 　 ･ 表示形式以外の書式の取得設定、書式情報を条件とする数式 (ユーザー定義関数) 　 ･ 関数式でセルの選択状態を取得する (VBA) 　 ･ セルの値でパスを補完して、開いてないブックのセルを参照する (VBA) 　 ･ 入力したセルに結果を返す (VBA) 　 ･ 範囲を引数にしての文字列連結 (ユーザー定義関数) 　 ･ 値の書き換え、値の保持 (VBA) 　 ･ 複数の結果を抽出、不定な数の結果を返す (VBA、結果の最大数が解っていれば最大数以上の式を論理式で組む) 　 ･ 空白のセルの部分を上詰め、左詰めなどで表示する (作業セルを使って別セルに詰めて表示なら可能、それ以外はVBA) 　 ･ VLOOKUP,HLOOKUP,MATCH等の関数で､検索語を全半角両方にマッチさせる (ユーザー定義関数) 　▼VBA 　 ･ ExecuteExcel4Macroの参照で空セルと0値を区別する 　 ･ セルの値や変数値で直接変数名を指定する (配列、コレクション) 　 ･ VBのコントロール配列と同じような操作をしたい 　　　(イベント以外ならコントロール名を｢同名+連番｣にしてControls(名前 & インデックス)で処理､イベントはクラスでWithEvents) 　▼ユーザーフォーム 　 ･ フォーム上から変更したプロパティ値の保持 (シートや外部ファイルに書き出して、次回読み込む) 　▼グラフ 　 ･ 棒グラフでひとつだけ突出したデータがあった場合に波線を入れて位置を合わせる 　 　(オートシェイプなどで見た目だけそうなるように弄る、別アプリでグラフを作り、オブジェクトとして挿入) 　　┌┐ 　　〜〜 　　｜｜ 6 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/01(日) 01:32:37 ] 上記 ｢Excelで出来ないこと、仕様上の制限｣ は､一般的に出来ないとされていること､出来ないと思われるものです。 間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。 Excel2007についても未確認な項目が多いので変更点が有ればご指摘下さい。 また､ここに書かれてないことでも､Excelで出来ないことはたくさんあります。 ここに書かれてないからといって必ず出来るはずだなんて思わないように。 ＞▼環境･書式 ＞ ･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する 補足 2007ではページレイアウトビューの表示時に限り、幅・高さともｃｍ単位で表示され、 指定も同じくcm単位でできる。 ただし大元がインチ系なのでなかなかピタリの値は出ない。1cm→0.98cmのように 近い値に勝手に丸められる。 以上でテンプレ終わり 7 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/01(日) 03:36:18 ] >>1-6乙 8 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/01(日) 15:02:51 ] >>1-6 乙です。 質問です。 【1 OSの種類 .】 WindowsXP 【2 Excelのバージョン 】 Excel2007 【3 VBAが使えるか .】 いいえ 【4 VBAでの回答の可否】 否 【5 (ヘルプでの)検索キーワード】cell row D6セルに『テスト１』と入力して、そこから3行置きに『テスト２、テスト３・・・』と数字を増やすにはどうしたら良いですか？ 自分で書いて失敗したのは以下の書き方です。 ="テスト"&CELL("row",D6)-5 よろしくお願いします。 9 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/01(日) 15:27:13 ] >>8 CELL関数の代わりにROW使わせてもらったよ =IF(MOD(ROW(),3)=0,"テスト"&(ROW()-3)/3,"") 10 名前：名無しさん＠そうだ選挙にいこう [2009/11/01(日) 15:31:33 ] =IF(MOD(ROW(),3)=0,"test"&INT(ROW()/3)-1,"") 遅かった 11 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/01(日) 15:49:16 ] >>8 作業列に番号をふってからソートするんだ。 そっちの方が「良い」。 12 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/01(日) 16:14:58 ] >>11 13 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/01(日) 18:32:06 ] >8 D6ｾﾙに「テスト１」と入力後、D6:D8を選択して下にｵｰﾄﾌｨﾙじゃだめ？ 数式でやりたいの？ >11は無いわｗ 14 名前：8 mailto:sage [2009/11/01(日) 18:38:40 ] >>9-10 おかげ様で出来ました！ ありがとうございました。 >>11 ??? >>13 そのやり方は知らなかったです。 勉強になりました！ ありがとうございます！ みなさん、どうもありがとうございました！ 15 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/02(月) 12:50:25 ] 11がわからない 16 名前：名無しさん＠そうだ選挙にいこう [2009/11/02(月) 13:36:29 ] １１のやり方は結構メジャーな方法 A列にテスト1〜テスト100までオートフィル。B列に1〜100まで番号を振る。 100の下にB列にもう一度1〜100まで番号を振る。 もう一度1〜100まで。 （つまり300行まで1〜100の繰り返し） B列でソート。 出来上がり。 17 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/02(月) 13:57:28 ] でも>>13の方が簡単そうだなぁ。 左側に何か入力しておいて、D6に入力してから3個のセルを選択してフィルハンドルをダブルクリックすりゃいいんだし。 ●はアクセス規制で書き込めないが何があったんだ? 18 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/02(月) 14:17:56 ] >>17 ＞ でも>>13の方が簡単そうだなぁ。 今回の場合は>>13の方法でもいいな。この方法は正直忘れてた。 >>11がいいのはグループごとのソートという明確なルールによってデータが配置されること。 19 名前：名無しさん＠そうだ選挙にいこう [2009/11/02(月) 17:39:26 ] >>13のやり方は秀逸だ・・知らんかった 関数＆>>11しか知らなかったよ。 20 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/02(月) 17:52:50 ] Excelのオートフィルには色んな機能があって、 単純にドラッグやダブルクリックする他にもCtrlキーやAltキーと組み合わせると動作が変わる 21 名前：複乳 mailto:sage [2009/11/02(月) 17:55:34 ] >>20 ためしにshiftと組み合わせたら挿入になった 色々あるんだねぇ 22 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/02(月) 22:08:21 ] >>13の応用で B1に=A1 B4に=A2 B7に=A3 みたいな式にするときにも使えるね。 もちろんB1にそのまま=A1じゃ駄目だけど。 23 名前：13 mailto:sage [2009/11/02(月) 22:25:23 ] ここまで評判が良いとちょっと恥ずかしい(*^^*) 24 名前：前ｽﾚ927 mailto:sage [2009/11/02(月) 23:29:50 ] 複乳 ◆MeiY43UMr.様、ありがとうございました。 規制で書き込めず、返事が遅れてすみません・・・ 25 名前：名無しさん＠そうだ選挙にいこう [2009/11/03(火) 10:00:43 ] くだらないことだけどさ、 vlookupってtrueがデフォで作られたんだよね･･･、なんとなくtrueとfalseが逆に思っただけ。 26 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/03(火) 13:34:44 ] >>25 ほんとにくだらないぞ。 27 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/03(火) 13:39:33 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2000 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 否 グループごとの集計で値の種類の数を出すにはどうすればいいでしょうか。 たとえば下記のような売上データの日付と品目の部分から 日付 品目 10/19 りんご 10/19 りんご 10/19 みかん 10/20 イチゴ 10/20 みかん 10/20 みかん 10/20 バナナ 10/21 イチゴ 10/21 イチゴ 10/21 イチゴ 下記のような表を作りたいです。 10/19 2 10/20 3 10/21 1 ピボットが得意そうな分野だと思ったけど、無理かな・・・　もしくは関数で 28 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/03(火) 15:07:13 ] >>27 C2=IF(A2<>A1,A2,"") D2=IF(A2<>A3,A2,"") E2=IF(COUNTIF(INDIRECT("b"&MATCH(A2,C:C,0)&":"&"b"&ROW()),B2)>1,0,1) F2=SUMIF(A:A,C2,E:E) G2=IF(F2=0,0,COUNTIF($F$2:F2,">0")) H2=INDIRECT("r"&MATCH(ROW()-1,G:G,0)&"c3",0) I2=INDIRECT("r"&MATCH(ROW()-1,G:G,0)&"c6",0) 後は2行目〜好きなところまで下にオートフィル HとIに答えが出るはず もしくはA・B列を選択、データ、フィルタ、フィルタオプションで重複するデータを無視にチェック 集計でデータの個数ってやるのもいいかもしれない ピボットってこの問題解けるの?使わないから知らないんだけど 29 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/03(火) 17:42:10 ] >>28 ありがとうございます。 やっぱり関数でやると、面倒になるよね。 フィルターオプションの重複無視を使ってからの集計がいい案ですね。 助かります。 30 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/03(火) 22:14:22 ] Foe Eachを使い、売上実績.xlsがあったらアクティブになってるシート名を 変数WS3へ入れたいんですが、下記の???には何て書けばいいの？ For Each WB In Workbooks 　If WB.Name ="売上実績" Then 　　WB3 = WB.Name 　　WS3 = ??? 　　Exit For 　End If Next 31 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/03(火) 22:36:40 ] >>30 ActiveSheet.Name 32 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/03(火) 23:12:21 ] ここのしとたち、あたまいいな。たちまちかいけつしる。 33 名前：30 mailto:sage [2009/11/03(火) 23:18:55 ] >>31 ありが�d!! ActiveWorksheet.Name と書いたらダメだったので途方に暮れてました・・・ ブック名は ActiveWorkbook.Name と「Work」が付くのに、何でシート名は ActiveSheet.Name なんでしょう？ 34 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/03(火) 23:25:04 ] >>32 ２ちゃんねる語として、その文法は間違いｗ 語尾の「しる」は「〜しろ」という命令形なので、「〜する」では使わない。 と脱線してみるﾃｽﾄ 35 名前：名無しさん＠そうだ選挙にいこう [2009/11/03(火) 23:32:36 ] sheetとsheetsもよく混乱します＞＜ よくわかっていなからだけどさ、 ActiveSheetとか、Worksheetsとかさ。 36 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/03(火) 23:58:25 ] 単数と複数 37 名前：名無しさん＠そうだ選挙にいこう [2009/11/04(水) 00:15:09 ] A1のセル内に ABCDEFGという文字列があった場合 ・文字列がいくつあろうとも一番右の値を取得　＝　G ・左から数えて4つ目の文字列を取得を取得　＝　D ・Bが左から数えて何個目か？　＝　２ それぞれ教えてください 38 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/04(水) 00:53:40 ] >>34 〜ﾃｽﾄ、は率先してやってみるという意味合いが強い言葉にﾃｽﾄと付ける事により 失敗した際の責任を全部帳消しに出来る便利な語尾 脱線程度で使うのは少しもったいない >>35 覚えるしかない。けど大概複数でしょう。単数なのは最初から付いてる名前ぐらいなもんで >>37 ・文字列がいくつあろうとも一番右の値を取得　＝　right(a1,1) ・左から数えて4つ目の文字列を取得を取得　＝　mid(a1,4) ・Bが左から数えて何個目か？　＝　find(a1,"b") もし分からなきゃ「関数」で検索するとよろしい。エクセルの関数一覧がでるサイトが最初に出る 39 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/04(水) 01:04:26 ] =FIND("B",A1,1)でﾈﾉ? 40 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/04(水) 01:05:19 ] そうか、そうだな。すまんかった。寝る。 41 名前：名無しさん＠そうだ選挙にいこう [2009/11/04(水) 02:15:09 ] >>33 シートの場合、ワークシートとグラフシートがあるから Worksheetsコレクションだとワークシートのみ Sheetsコレクションだとワークシートとグラフシートが扱える グラフシートを作ってWorksheets.CountやSheets.Countをやってみればわかるよ 42 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/04(水) 14:09:05 ] 機能をよく考えてみるとわかるよ。 Activeにできるのは1つだけ。BookもSheetもね。ウィンドウを複数開いても一番上に表示できるのは1つだけでしょ。 Selectは複数できる。例えばセルをたくさん選択していっぺんにデータを入れたり消したり。だから複数形でCells。 Workが付くかどうかの区別はよくわかんない。英語力があればわかるのかなあ。 43 名前：名無しさん＠そうだ選挙にいこう [2009/11/04(水) 14:16:27 ] まだ未熟なせいで、うろ覚えでworkをつけては黄色くなり、 ｓをつけては黄色くなり･･･ 精進するわ 44 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/04(水) 14:48:22 ] ActiveWorksheetじゃなくActivesheetなのは >>41 の通りグラフシートがあるから Worksheetが必ずActiveになるとは限らない だからActivesheetとなる ActiveWorkbookの場合はWorkbookの他にはないから 45 名前：名無しさん＠そうだ選挙にいこう [2009/11/04(水) 15:06:47 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2000 【3 VBAが使えるか　 　 .】 少し 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 私女だけど質問させて下さい＞＜ マクロで出力した新しいBOOKを、 デスクトップに有無を言わさず強制的に、 保存させる方法はありますか？＞＜ 任意のPCで実現させたいです＞＜ 教えてください＞＜ 46 名前：複乳 mailto:sage [2009/11/04(水) 16:20:33 ] >>45 Sub fukunyu() 　　Application.DisplayAlerts = False Dim Path As String, WSH As Variant Set WSH = CreateObject("WScript.Shell") Path = WSH.SpecialFolders("Desktop") & "\" ActiveWorkbook.SaveAs Path & "Sample1.xls" Set WSH = Nothing Application.DisplayAlerts = True End Sub がんば>< 47 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/04(水) 21:29:15 ] 「私女だけど」と断るレスの93％は、男。 「＞＜」の顔文字を使うレスの89％は、男。 48 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/04(水) 22:08:37 ] 私女だけど＞＜ 49 名前：名無しさん＠そうだ選挙にいこう [2009/11/04(水) 22:58:04 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2000 【3 VBAが使えるか　 　 .】 使えません 【4 VBAでの回答の可否】 否 【5 検索キーワード 　 　 】 どちらで聞いていいのかわからなかったので、こちらで質問させてください。 VLOOKUPについてです。 Sheet1の検索値『食品』をSheet2から探し値を反映させたいです。 もしSheet2に『食品』というキーワードがないときに、０となるようにしたいのですが、数式がわかりません。 下手な文章ですみませんが、教えてください。 50 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/04(水) 23:02:26 ] 新垣帳.xlsのG列が0のとき、B列の番号を恋空.xlsから探し、C列の値が0より大きかったら、 新垣帳.xlsのE列へ書き込むマクロを書きました。 ところが、恋空.xlsに該当するものがないとき↓のエラーが出てしまいます。 　　実行時エラー '91' 　　オブジェクト変数またはWith ブロック変数が設定されていません。 そこで、On Error Resume Nextを書いたら続行してくれるようになりました。 しかし、今度は意図しない値も書き込まれてしまうようになりました。 また、エラーが出たときのPTを知りたいので、これをシート"ERR"へ書き出すには どうすればいいでしょうか？ Sub E列を埋めれ() Dim i As Integer, j As Integer, PT As String, PRC As Single 　i = 3: j = 1 　With Workbooks("新垣帳.xls") 　　Do While .Worksheets("MENU").Cells(i, 1) <> "" 　　　If .Worksheets("MENU").Cells(i, 7) = 0 Then 　　　　PT = .Worksheets("MENU").Cells(i, 2) 　　　　On Error Resume Next 　　　　PRC = Workbooks("恋空.xls").Worksheets("DATA").Columns("A").Find(what:=PT).Offset(0, 2) 　　　　If PRC <= 0 Then 　　　　　.Worksheets("ERR").Cells(j, 1) = PT 　　　　　j = j + 1 　　　　Else 　　　　　.Worksheets("MENU").Cells(i, 5) = PRC 　　　　End If 　　　End If 　　　i = i + 1 　　Loop 　End With End Sub 51 名前：名無しさん＠そうだ選挙にいこう [2009/11/04(水) 23:40:54 ] >>49 =IF(ISERROR(VLOOKUP(検索条件)),0,(VLOOKUP(検索条件))) 52 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/04(水) 23:42:46 ] PRC=Workbooks〜 の前に PRC=0 としておけば良いような気もするけど On Error Resume Nextで手を抜かずにOn Error Gotoを使ってエラー処理しましょう。 53 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/05(木) 12:27:08 ] mousの勉強をしています メニューバーの書式の中にあるオートフォーマットやスタイルというのは一般的に使うのでしょうか？ 今まで何年かエクセルさわっていますが存在も知りませんでした 54 名前：複乳 mailto:sage [2009/11/05(木) 12:57:09 ] >>53 私も知りませんでした 多分一生使わないと思います 55 名前：45 mailto:sage [2009/11/05(木) 13:09:25 ] >>46 すげええええええええええ できた＞＜ありがとう＞＜ 56 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/05(木) 13:25:10 ] >>53 スタイルは10数年前作ったブックで今もそのブックを時々使ってるけが、そのブック以外使ったことないので使い方も忘れた。 57 名前：名無しさん＠そうだ選挙にいこう [2009/11/05(木) 13:25:52 ] スタイルとか何のためにあるんだろね?ｗ Ctrl+！で充分じゃん 58 名前：名無しさん＠そうだ選挙にいこう [2009/11/05(木) 18:03:56 ] お世話になります。 【1 OSの種類 　 　 　 　 .】 WindowsＸＰ 【2 Excelのバージョン 　 】 Excel２０００ 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 　 アンケートの集約で、１００％積み上げ横棒グラフを書いています。 質問事項が５６、各項目の選択肢が４というものです。 これを二つに分けてグラフ化してプリントアウトしようと考えました。 そのときグラフの項目名がうまく表示できません。２８ある項目の内 ４〜５個しか表示されません。項目軸の設定で文字のポイント数を下げると 全部表示されますが、４ポイントとか６ポイントまで下げねばならず、 プリントアウトしたものの字が小さくて実用になりません。 何とかなりませんでしょうか 　宜しくご教授下さい。 59 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/05(木) 19:27:08 ] >58 Excel2003(WinXP)で試してみました。１グラフあたりの項目数は２８とし、 グラフシートをＡ３横、項目のフォントを１４ポイントにまではできました。 あとは印刷の際、Ａ３→Ａ４縮小機能を利用すればいかが？ 60 名前：59 mailto:sage [2009/11/05(木) 19:30:52 ] 追記 グラフはグラフシートに描いています。 というか、Ａ４横でも９ポイントで大丈夫ですよ。グラフシートに出力してみては？ 61 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/06(金) 08:13:26 ] >>58 他のだとそうならないのにそのグラフだけそうなるとか？ なんかたまにグラフの項目軸の幅、おかしくなったりするんだけど。 あと、Excelの表示倍率変えると表示されるのに、100％より小さくすると消えたり折り返したりするとか。 項目軸の幅が明らかにおかしいときはグラフ作り直したほうが早い。 倍率の問題だったら、印刷するときの倍率に気をつけて。 62 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/06(金) 10:09:43 ] >なんかたまにグラフの項目軸の幅、おかしくなったりするんだけど。 んなこたぁないｗ 君が知らないだけでしょ。 63 名前：名無しさん＠そうだ選挙にいこう [2009/11/06(金) 10:38:05 ] ifの条件が２つあるときって、ifを入れ子にしなければ無理ですか？andとか&&みたいなのはないですか？ あ、私女ですが教えてください>< 64 名前：名無しさん＠そうだ選挙にいこう [2009/11/06(金) 10:44:20 ] and =IF(AND(A1=1,A2=1),"当たり","はずれ") =IF((A1=1)*(A2=1),"当たり","はずれ") or =IF(OR(A1=1,A2=1),"当たり","はずれ") =IF((A1=1)+(A2=1),"当たり","はずれ") こういうこと？ 65 名前：複乳 mailto:sage [2009/11/06(金) 10:49:43 ] >>63 論理式 =(a1=5)*1 だとa1が5の時1に、5以外で0になる 更に=(a1=5)*1*3 とすればa1が5の時3になる =(a1=5)*(b1=2)*6 で=if(a1=5,if(b1=2,6)) と同じ式になる。ただ>64みたいに文字列の表示などには使えない (CODE関数などを無理やり使えば可能といえば可能かもしれないが) 66 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/06(金) 11:12:27 ] >>64,65 すばらしい�� ANDとかORあったんですね。かなりすっきりしました。これから多用するなぁ。 ありがとうございました。 67 名前：名無しさん＠そうだ選挙にいこう [2009/11/06(金) 17:13:27 ] >>59さん　>>60さん　>>61さん　ありがとうございました。 自己解決できました。 「軸の書式設定」の「目盛」タグの「目盛ラベルの間隔」を「１」に設定することで解決しました。 ｍ（．.）ｍ 68 名前：50 mailto:sage [2009/11/06(金) 22:51:38 ] >>52 ありがとうございます。 もうちょっと頑張ってみます。 69 名前：名無しさん＠そうだ選挙にいこう [2009/11/07(土) 04:52:57 ] excel2007のアカデミック版を持っているのですが これって二台のPCに入れる事はライセンス的に認められてますか？ 通常のアカデミックでないものなら二台まではOKのようなのですが。。 70 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/07(土) 06:27:18 ] つ ttp://www.google.co.jp 71 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/07(土) 08:49:17 ] Good morning. 【1 OSの種類 　 　 　 　 .】 Windows vista 【2 Excelのバージョン 　 】 Excel2007 Q１.chechと打ち込むとche chのように見えるのですがchechと美しく見えるようにできませんか？ Q2.１1/7 と打ち込み、Enterを押すと11月７日と表示されるが１1/7のまま表示できないか？ よろしくお願いします。 72 名前：名無しさん＠そうだ選挙にいこう [2009/11/07(土) 09:20:12 ] Q1はフォント Q2は表示形式 73 名前：名無しさん＠そうだ選挙にいこう [2009/11/07(土) 09:20:21 ] >>71 Q1：フォントを変える。msゴシックとかを使えば? Q2：セルを右クリック、セルの書式設定の表示形式で日付を選んでお好みのを選ぶ。 　　　計算に使わないなら、文字列もしくは最初に「'」をつける 74 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/07(土) 13:34:46 ] EXCEL2003 一つのセルに２日間の日付をいれられるように書式はできますか？ 2009/11/05 2009/11/25 と入力すると 1105 1125 になるようにしたいです 75 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/07(土) 13:38:51 ] >>74 A1A2に入ってるってことでいいのか? その場合=TEXT(A1,"mmdd")&CHAR(10)&TEXT(A2,"mmdd") で書式設定の折り返して表示にチェック 76 名前：74 mailto:sage [2009/11/07(土) 13:50:24 ] ありがとうございます。 A1の中に二つの日付を入力して、 >>74のようにしたいのですが。 2009/11/05　→　1105　は出来のですが、二つ同時は出来るのかな？ 77 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/07(土) 14:00:21 ] >>76 できるっちゃあできるが、改行やコンマか何かで区切る?それとも2009/11/072009/12/01みたいに続けて書くのか それと日付・月は一月一日なら1/1なのか01/01なのか この二つ教えておくれ 78 名前：74 mailto:sage [2009/11/07(土) 14:03:06 ] 改行で0101です。01/01でも構いません。 79 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/07(土) 14:03:35 ] >>78 ほい =MID(A1,6,2)&MID(A1,9,2)&MID(A1,17,2)&MID(A1,20,2) 80 名前：74 mailto:sage [2009/11/07(土) 14:14:22 ] A1に貼り付けましたが出来ませんでした。 0と表示されました。 81 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/07(土) 14:23:12 ] あ、しまった書式か。書式は無理だな A1に入力してA1以外(A2でもB1でも)にその式を貼ると>>74の通りになるよってことでした 82 名前：74 mailto:sage [2009/11/07(土) 15:58:55 ] ありがとうございました。 83 名前：名無しさん＠そうだ選挙にいこう [2009/11/07(土) 19:03:32 ] なんか知恵袋でも見たな 84 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/07(土) 19:23:19 ] セルに文字を入力直後、 左向き矢印キーでカーソル移動しようとすると 選択するセルが変わってしまいます。 あらかじめ、F2キーを押す以外の方法はありますか。 85 名前：名無しさん＠そうだ選挙にいこう [2009/11/07(土) 19:52:20 ] ダブルクリックする まあ慣れだよ 86 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/07(土) 20:33:43 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2007 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 可･否 【5 検索キーワード 　 　 】 ダブルクオート　エクセル　csv CSV形式で出力した奴に文字列をダブルクオートで囲み、 数列はそのままの形式にしたいのですがどうすればいいですか？ 87 名前：71 mailto:sage [2009/11/07(土) 20:34:37 ] Good night. >>72 >>73 ありがとうございます。問題は解決しました。 しかし、新しい問題が発生しました。 Ｑ３.その方法だとEnterを押すたびに設定が初期化されてしまいます。 設定を固定化する方法はないのか？ よろしくお願いします。 88 名前：名無しさん＠そうだ選挙にいこう [2009/11/07(土) 20:36:55 ] >>51ありがとうございました >>49です まだ一つわからないとこがあります 例えば『ラーメン』100食 『ラーメンセット』200食 のときVlookupを使うと『ラーメン』も200食となってしまいます 改善策を教えてください 89 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/07(土) 21:07:25 ] まぁINDEX/MATCHの方が優れてるってことか。 90 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/07(土) 21:16:51 ] >>86 そういう設定は調べても無かった ダブルクォートで囲ませたい場合はセルの中にカンマを含ませると可能だが、希望とは違う答えだろうなぁ 俺がどうしてもやらなきゃならない場合は、csvで保存した後カンマを「,"」改行を「"+改行+"」に置換するかな VBAで組めなくも無いけどめんどくさいからやらない 数式を残したい場合はオプションの表示のウィンドウオプションにある「数式」にチェックをつけるとできるよ >>88 ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/vlookup2.htm 最後の検索の型という部分を0にする >>89 この問題の場合は同じじゃないの? vlookupもmatchも順番に並んでないと変な値をつかんでしまう。まぁソートのアルゴリズム通りにやってるだけだろうけどね 91 名前：名無しさん＠そうだ選挙にいこう [2009/11/08(日) 01:03:15 ] excelで作った折線グラフの折線だけをパワーポイントに貼り付けることはできないでしょうか。 あるいはそれと似たようなことができるなら紹介してください。 お願いします。 92 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/08(日) 01:18:19 ] >>91 グラフの背景選択してdeleteキー 目盛り線を選択してdelete これで折れ線だけになる。この状態でPrtScr押して、ペイントに貼り付け テキトーに編集してコピーしてパワーポイントに貼り付け でどうでしょう 折れ線だけは無理かねぇ〜 93 名前：名無しさん＠そうだ選挙にいこう [2009/11/08(日) 01:35:07 ] 92さんへ、早速ありがとうございます。 なるほど背景、目盛り線はdeleteで消せるんですね。 折れ線だけはなかなか難しいようです。 折れ線をクリックすると折れ線だけ選択はされるみたいなのでコピーできそうな感じなのですが。 なんかいい方法はないでしょうか・・・。 94 名前：名無しさん＠そうだ選挙にいこう [2009/11/08(日) 01:37:12 ] せめて、背景を透明化させることができればと思うけど、なぜか透明化の設定が無効になってるし・・・。 Excel 2003です。 95 名前：名無しさん＠そうだ選挙にいこう [2009/11/08(日) 01:50:43 ] エクセルの他に、このようなことのできるグラフソフトがあれば教えてほしいです。 96 名前：名無しさん＠そうだ選挙にいこう [2009/11/08(日) 01:54:41 ] レイヤーとかでなんとかならないかなぁ。 97 名前：名無しさん＠そうだ選挙にいこう [2009/11/08(日) 02:12:00 ] ん、、できたかも。 第２数値軸を設定するとなんか91の言ってたようなことができた。 98 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/08(日) 08:06:33 ] 若干スレ違いなように思われるのは気のせいか。 99 名前：名無しさん＠そうだ選挙にいこう [2009/11/08(日) 10:04:50 ] >>87 シート全体のフォントをあらかじめ変えておく 100 名前：名無しさん＠そうだ選挙にいこう [2009/11/08(日) 12:21:51 ] 百 101 名前：名無しさん＠そうだ選挙にいこう [2009/11/08(日) 12:36:26 ] 困ってるんでお願いします 厚生労働省のHPからジョプカードを落として自宅excel2002で編集、その後ハロワでexcel2007(しかない)で コンサルタント記入しようとすると玉にバグでかシートの保護が以後解除出来なくなる事があるんですけどこれ直す方法ないですか？ 最初は保護解除できるんだけど、excel2007で編集してると何故か保護してる状態なのに保護解除出来なくなる。保護解除がグレーアウトして押せない。 ジョブカードの四角い枠内をクリックすると下地の編集ではなく、枠の文字編集になってしまう。 枠を一時的にずらすと問題ないのですが、いちいち動かすの面倒なので、枠のみ有効でクリックしたら下地の履歴書とかの文字が編集出切るようにしたい。 以上、2つお願いします 102 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/08(日) 13:39:25 ] 【1 OSの種類 　 　 　 　 .】 Windows XP 【2 Excelのバージョン 　 】 Excel 2000(9.0.2812)/2003(11.8307.8221) SP3 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 VBA メーラー 起動 VBAからデフォルトのメーラーを起動したときに 宛先、件名はセットされますが、本文がセットされません。 以下のmsdnのサイトを参考にしています。 msdn.microsoft.com/ja-jp/library/cc440860.aspx アドバイスよろしくお願いします。 Sub test() Dim strBody As String strBody = "本文" Shell "cmd.exe /c start mailto:Test@xxx.co.jp?subject=メーラーの起動&body=" & strBody, vbNormalFocus End Sub 103 名前：102 mailto:sage [2009/11/08(日) 13:44:24 ] 付けたしです。 デフォルトのメーラーは、 Outlook Express 6 (6.00.2900.5512) を使っています。 104 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/08(日) 13:51:59 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2000 【3 VBAが使えるか　 　 .】 ちょっと 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 A1に入力された数字のシートをSelectするマクロを作っています。 X = Range("A1") Sheets(X).Select 　以下略 このようにすると、A1にある数字のシートではなく、 シートを左からA1番目のシートがselectされてしまいます。 どうすればいいでしょうか？？ 具体的に言えば、 シートの並びが左から メニュー,1,2,3,4,・・・・　とあって A1=3　の時、"3"のシートでなく、"2"のシートがselectされてしまいます。 105 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/08(日) 13:54:04 ] 問題の切り分けをしよう Shell "cmd.exe /c start mailto:Test@xxx.co.jp?subject=メーラーの起動&body=本文", vbNormalFocus これで問題なければ次を試す strBody = "本文" cmdexe= "cmd.exe /c start mailto:Test@xxx.co.jp?subject=メーラーの起動&body=" & strBody Shell cmdexe, vbNormalFocus 106 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/08(日) 14:13:40 ] 【仕事】会社の仕事でマクロを組むのはズル？事務作業の効率化に意見さまざま [09/11/06] ttp://anchorage.2ch.net/test/read.cgi/bizplus/1257644267/ 107 名前：102 mailto:sage [2009/11/08(日) 14:17:07 ] >>105さん レスありがとうございます。 >>Shell "cmd.exe /c start mailto:Test@xxx.co.jp?subject=メーラーの起動&body=本文", vbNormalFocus こちらでやってもダメでした。 「本文」を「abc」や「123」など半角英数字でも貼りつきません。 108 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/08(日) 14:21:48 ] >>107 うちでも試してみた。windowsのスタートボタンから「ファイル名を指定して実行」で cmd.exe /c start mailto:Test@xxx.co.jp?subject=メーラーの起動&body=本文 を入力しても、たしかに本文は入らない。 Excelの問題じゃないねー 109 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/08(日) 14:24:18 ] 2003+OE6で試したが無理だった 110 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/08(日) 14:47:15 ] >>104 x = Range("A1") Sheets(x & "").Select &　"" を付ければ文字列に *　1 を付ければ数値にできるよ。 もしくはdim　x　as　stringと文字列変数にしておけば良い 111 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/08(日) 14:52:16 ] >104 >Sheets(X).Select >シートを左からA1番目のシートがselectされてしまいます。 大抵の場合はそういうものです。 直接指定したいのであればｼｰﾄ名を記述するべき。 112 名前：102 mailto:sage [2009/11/08(日) 14:54:28 ] >>108-109 こちらもコマンドプロンプト直接から試してみましたが駄目でした。 これ以上はスレ違いになってしまうので、 コマンドプロンプトの観点から調べてみます。 ありがとうございました。 113 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/08(日) 14:58:06 ] >>112 Shell "cmd.exe /k と/kオプションをつけてプロンプトを表示させたままにすると、"body"は認識されていません〜とでる 対応してないのかも? 114 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/08(日) 15:20:14 ] &などが入っているのはまずい。 とりあえず cmd/? を実行してヘルプを読むんだ。 115 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/08(日) 17:52:25 ] >>102 これでいけた。 Dim strBody As String strBody = "本文" Shell "cmd.exe /c start mailto:Test@xxx.co.jp?subject=メーラーの起動^&body=" & strBody, vbNormalFocus >>114さんのヒントを元に、&の前に^を付けたら動いたよ。 ""に入っている&を認識させるのに^が必要みたい。 116 名前：102 mailto:sage [2009/11/08(日) 19:07:57 ] >>113-115 ありがとうございました。 動作も確認しました。 レスいただいた皆様に感謝です。 117 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/08(日) 23:51:28 ] >>94 ん？普通にできるでしょ。 軸の設定を縦軸横軸とも、チェックを全部「なし」にして 目盛り線はdelete プロットエリアの書式設定もすべて「なし」 で、グラフをコピーして、パワポ上で「形式を選択して貼り付け」で「拡張メタファイル」で貼り付け 118 名前：117 mailto:sage [2009/11/08(日) 23:56:04 ] 普通に貼り付けても（Excelグラフオブジェクトとして挿入される）大丈夫だったわ。 119 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/09(月) 04:36:16 ] Ｇｏｏｄ　ｍｏｒｎｉｎｇ． >>99 ありがとうございます。 シート全体のフォントで検索したら成功しました。 日付も１１/9と打ったら１１月9日ではなく,シート全体で11/9と表示できないか? 120 名前：複乳 mailto:sage [2009/11/09(月) 09:36:56 ] >>119 CTRL+Aを押せば全セル選択できる その状態で右クリック、書式設定をする 121 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/09(月) 10:20:18 ] 既に9ポイントのフォントで入力されているセルの文字の先頭に １文字18ポイントの文字を入れる事を繰り返す作業をしています この状況だと18ポイントで文字入力固定できないでしょうか？ 今は1文字入れてはフォントを18ポイントに変えてるのですが。 WindowsXp Excel2003です。 122 名前：複乳 mailto:sage [2009/11/09(月) 10:36:44 ] >>121 VBAならいけるかも。使えるならやってみる VBA使えないなら、別シートにA列を18ポイント、B列を9ポイントにして入力しておく そのセルを図のリンク貼り付け(カメラ機能)をすれば編集は楽になると思います ↓カメラ機能の使い方 ttp://hp.vector.co.jp/authors/VA014071/tips/camera.html 123 名前：名無しさん＠そうだ選挙にいこう [2009/11/09(月) 10:59:18 ] 【1 OSの種類 　 　 　 　 .】 Windows XP 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 可 ﾏｸﾛが登録されているﾌﾞｯｸのﾌﾞｯｸ名を取得する方法、あるいはﾏｸﾛが 登録されているﾌﾞｯｸをｱｸﾃｨﾌﾞにする方法を教えてください。 ﾏｸﾛのﾕｰｻﾞﾌｫｰﾑでの実行結果をｼｰﾄに記録したいのですが、複数の ﾌﾞｯｸが開かれていて他のﾌﾞｯｸがｱｸﾃｨﾌﾞになっているときに意図しない 動作になってしまいます。 そこでﾏｸﾛの登録してあるﾌﾞｯｸをｱｸﾃｨﾌﾞにしたのですがﾌﾞｯｸ名が変わ ってもﾏｸﾛを修正しなくても良いようにしたいと考えています。 よろしくお願いします。 124 名前：複乳 mailto:sage [2009/11/09(月) 11:22:55 ] >>123 Sub a() Dim a a = ThisWorkbook.Name ActiveWindow.ActivateNext Windows(a).Activate End Sub 単純にマクロ実行したブックの名前を変数に入れて、 それをアクテイブにするといいんじゃないかなぁ ttp://www2s.biglobe.ne.jp/~iryo/vba/VBA03.html 3-10から引用 125 名前：123 mailto:sage [2009/11/09(月) 11:28:24 ] >124さん ThisWorkbookでしたか。 無事解決できました。 早々の回答、ありがとうございました。 126 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/09(月) 13:59:31 ] 【1 OSの種類 　 　 　 　 .】 Windows Vista 【2 Excelのバージョン 　 】 Excel2007 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 可 条件付き書式でセルのデータが特定値の場合にセルに色づけをしたのですが、別シートにその色だけを残したい（セルのデータは消去の状態）のですが、可能でしょうか？ 127 名前：複乳 mailto:sage [2009/11/09(月) 16:00:07 ] >>126 ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/jyo-syo.html の下のほう 元のシートを残し、indirectか名前の定義で条件付書式を設定し、範囲は元のシートとする 色だけコピーはできそうでできないな 128 名前：名無しさん＠そうだ選挙にいこう [2009/11/09(月) 20:48:39 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel07 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 非常に初歩的な質問で申し訳ないですが、 エクセルの表計算について教えて下さい。 現在複数のパソコンで共有しているエクセルファイルがあります。 ある社員AがAのパソコンからそのファイルを開き、 編集する過程で計算方法を手動に変え、 そのまま上書き保存したとします。 その後社員BがBのパソコンからそのファイルを開いた場合、 計算方法は手動に変わったままになるのでしょうか？ それとも普段自分のパソコンで自動にしていれば、 たとえAがAのパソコンで手動にしていても、 Bのパソコンで開いたときには自動になっているのでしょうか？ 実験すればいいのですが、 諸事情でしばらく実験できないので、 どなたか教えていただけないでしょうか？ 129 名前：名無しさん＠そうだ選挙にいこう [2009/11/09(月) 21:50:51 ] なんか同じ内容をどこかで見たような・・・・ｗ 手動になるよん 130 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/09(月) 23:14:17 ] 質問です。 SeetChangeイベントで、 Dim GYO As Long GYO = Target.Row Range(Cells(GYO, 1), Cells(GYO, 10)).Font.ColorIndex = 1 というふうに、変更されたセルの行数を取得してマクロを組んでいます。 ここで、例えば、複数セルを選択して削除やコピーされた時、 一行しか色が変わりません。 変数宣言の仕方で複数行対応できますか？ 助けて下さい。眠くて死にそうです。 131 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/10(火) 00:15:42 ] 【1 OSの種類 　 　 　 　 .】 WindowsXP 【2 Excelのバージョン 　 】 Excel2000 【3 VBAが使えるか　 　 .】 ちょっとなら 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 シートX（変数）から、SUMPRODUCTで E列がりんごで且つ、F列が「Cells(i,1)」の数を返すマクロを作っています。 Cells(i, 2).Value = Evaluate("SUMPRODUCT((" & X & "!E:E=りんご)*(" & X & "!F:F=" & Cells(i, 1) & "))") 上記だと、NAME?エラーが返ってきてしまいます。 どこがおかしいのでしょうか？ 132 名前：131 mailto:sage [2009/11/10(火) 00:43:41 ] 自己解決しました。。。 初歩的なミスのオンパレード・・・。 133 名前：名無しさん＠そうだ選挙にいこう [2009/11/10(火) 03:06:03 ] 頭がオカシイ 134 名前：名無しさん＠そうだ選挙にいこう [2009/11/10(火) 03:29:55 ] 【1 OSの種類 　 　 　 　 .】 Windows Vista 【2 Excelのバージョン 　 】 Excel2007 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 可 他ブックの内容をリストボックスに表示したいのですが、どうすればいいでしょうか？ A行にID,B行に名前がずらっと表示されているブックでいいです。シートはSheet1で構いません。 読みだすブックは同じファイルで結構です。 よろしくお願いします 135 名前：名無しさん＠そうだ選挙にいこう [2009/11/10(火) 07:26:58 ] >>129 ありがとうございました 136 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/10(火) 08:20:55 ] >134 additem 137 名前：名無しさん＠そうだ選挙にいこう [2009/11/10(火) 08:30:57 ] >>130 Target.Rows.Count 138 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/10(火) 10:22:35 ] >>130 Target.Resize(,10).Font.ColorIndex=1 139 名前：134 [2009/11/10(火) 11:54:36 ] Private Sub UserForm_Initialize() Dim lastRow As Long Dim ReturnBook As Workbook, TargetBook As Workbook Set ReturnBook = ActiveWorkbook Application.ScreenUpdating = False Set TargetBook = Workbooks.Open("D:\test\sample.xls") With Worksheets("商品マスタ") lastRow = .Cells(Rows.Count, 1).End(xlUp).Row End With With ListBox1 .ColumnCount = 3 .ColumnWidths = "50;50;50" .RowSource = "商品マスタ!B2:D" & lastRow End With ReturnBook.Activate Application.ScreenUpdating = True TargetBook.Close End Sub とりあえずリストボックス自体はなんとか表示することは出来たのですが、 リストボックスの最終行が文字化けしてしまい、 この操作を完了するのに十分な記憶域がありません。とエラーが出てしまいます 助けて下さい・・・ 140 名前：名無しさん＠そうだ選挙にいこう [2009/11/10(火) 21:25:46 ] 【1 OSの種類 　 　 　 　 .】 Windowsxp 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 【5 検索キーワード 　 　 】 ttp://www1.axfc.net/uploader/Img/link.pl?dr=5451451746&file=Img_64624.jpg 説明の仕方が分からないので図に描いてみました。 図の様に文字書きたいんですができますか？ 141 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/10(火) 22:43:25 ] >>140 絵が汚すぎﾜﾛｽ それはともかく、 セルを結合することはできるけど分割することはできない。 だから、A列を二つに分割してそれぞれに文字を入れるようなことはできない。 ただし、A列とB列を結合しておいて、必要に応じて結合を解除するのならできる。 あるいは単にテキストボックスやオートシェイプを使って、セルが分割されているように見せかけることはできる。 エクセルはそもそも「表を作るツール」ではないので、あまり柔軟な表を作ることはできない。 複雑な形の表を、計算とかをさせるのではなくてただ表として表示するための目的で作るのなら、 ワードなどの他のソフトを使って作るべき、と一応言っておく。 142 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/10(火) 22:51:39 ] >>141 ありがとうございます。 今回は計算の必要ないのでワードで挑戦してみます。 143 名前：名無しさん＠そうだ選挙にいこう [2009/11/10(火) 23:23:23 ] 【1 OSの種類 　 　 　 　 .】 Windows xp 【2 Excelのバージョン 　 】 Excel2003 【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否 【5検索キーワード】 エクセル初心者ですいません vlookupで表示した数字が日々更新されるのですが、例えば数字更新時に昨日の数字をひとつ隣のセルに移行し更新した数字を昨日数字があった場所（元の場所）と言った形で表示することは可能でしょうか？ 簡単に言ってしまうと 数字を更新したら前の数字が自動で一個右のセルにずらしたいのです。 ただ表示されている数字がvlookupを使ったものでエクセル始めたばかりではわかりません･･･ よろしくおねがいします。 144 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/10(火) 23:31:26 ] fgv 145 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/10(火) 23:32:55 ] >>143 146 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/10(火) 23:34:47 ] >>143 値を残したいならVBAしかない =now=tofdayは今の日付などをのこせるが　こう新されてしまう VBAがダメなら値で貼り付けをうまく使うしかない 147 名前：名無しさん＠そうだ選挙にいこう [2009/11/10(火) 23:40:21 ] 素早い解答ありがとうございました。 更新の数字が多すぎるのでどうにかならないのかと思い質問しました！ 148 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/10(火) 23:46:53 ] 複乳はどんなつまらない質問にも真正面の回答だな。 質問者は喜ぶだろうが本人のためにならないと思うぞ。 >>143へ 日々更新されるようなデータは縦に並べるべし。 右にずらすなんてやっちゃだめ。VBAでできてもだめ。 149 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/11(水) 00:01:07 ] >>147 CTRL+Aで全選択 その状態でコピー、右クリックの形式を選択して〜の値で貼り付け で数式の結果が阿多タイで保存される >>148 つまんねー仕事にはしばしば共感できるところがある。散々やってきたからね それで大体予想できたりもする。まぁ外れてるかもしれないけどね 「A1+A2の結果をプリンタアウトしてB1に入れてB2に足せ」みたいな仕事なんて仕事聞いたことがある? ないなら普通の会社です。あるなら俺と同じです。 中小・零細には多分しょっちゅうある。周りにはあった。そういうウンコ以下の仕事を正面切って解決してあげたい というのが俺の思い 無駄に「B2=A1+A2でいいんじゃないですか」というと無駄に怒られるからね 俺がそうだったから ただ効率化できそうなところは私の知識を尽くして助言はしているつもりだよ 150 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/11(水) 00:16:29 ] >>149 私は違うな。そうは思わない。 つまらないものはつまらない。 つまらないものに価値は無い。 私もお前と同じで、つまらない仕事を何度も強制されている。 でもそこからどっちに進むかが違うんだな。 つまらない質問にお前がつまらない回答をすると、つまらない手法が大量生産されてしまう。 VBAで値を右にコピーする方法を覚えた>>143は、何年か後になって自分の後輩や部下にゴミみたいな仕事を伝承していくんだぞ。 ちょうどお前が経験したように。 151 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/11(水) 00:43:48 ] >>150 私は違うな。そうは思わない。 つまらないものはつまらない。 つまらないものでも　価値は　ある 私がそうだったので言うが 私の上司は本当にウンコみたいな作業を仕事といってはばからない人だった -中略- その人は首になった。今私はその業務をVBAに置き換えて別の方々と仲良くやっている まぁ、上司を殺すために自分がイエスマンになって技術を蓄えるか 上司を説得してその職場自体を帰るか、の違いだろうね 私はその前者を見越してイエスマンになった そしてチクリにチクった後、その人がクビになり、私は総務を任される(システム上ね)立場になった その後0からシステムをたちあげ・・ というしょーもない経緯があるため、どうみてもしょーもない仕事に対しては できるだけ「その裏にある意向に沿うように」全力を尽くしている つもりである 例え私が間違っててもまあ、その人が技術を積んでいけばまたこのスレに来るか 勝手に技術を習得することだろう、と信じてね ただやはり向上心があることを前提にした手法を教えてることは、否めないかもしれない あと俺自身未熟なため、かなり行き当たりばったりだし。逆にすぐに回答が出せるという長所があるかもしれない 152 名前：複乳 ◆MeiY43UMr. mailto:sage [2009/11/11(水) 00:46:55 ] 飲みすぎた 寝るぜ 153 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/11(水) 09:03:12 ] 今学生です。就職活動のためにエクセルを少しは使えるようになったのですが、 アクセスって覚えたほうが良いですか? それともエクセルを極めたほうが良いでしょうか? 154 名前：名無しさん＠そうだ選挙にいこう [2009/11/11(水) 09:40:55 ] 両方使えたほうがいいだろうが、中途半端が一番つかえないな。 155 名前：複乳 mailto:sage [2009/11/11(水) 09:53:39 ] エクセルはほぼ100%入ってるだろうけど、アクセスが微妙なとこだな アクセスはシステムが既に組まれていて、入力のみというパターンが多いと思う 大企業ならデータベースのデータをひっぱって来る技術があるといいかも 中小なら自分がデータベース組めると非常に便利かも。ソフトがインストールされてればの話だけど エクセルはvlookup使えれば大体なんでもこなせると思う 156 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/11(水) 10:30:13 ] ありがとうございました 色々調べてみようと思います 157 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/11(水) 19:08:12 ] SEって誰でもできるのかぁ 158 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/11(水) 20:50:30 ] >>153 エクセルはほどほどにしておいて、アクセスを使ってみてほしい。 アクセス知らずにエクセルだけで突き進むとバッドテクニックばかり身につけてしまうぞ。 逆にアクセスをちょっとかじってるだけで、エクセルの使い方のセンスもよくなる。 159 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2009/11/11(水) 21:29:49 ] 久々に来たらコレがいてﾜﾗﾀ

---

---

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

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