Excel総合相談所 67 - 暇つぶし2ch

Excel総合相談所 67 at BSOFT

1:名無しさん＠そうだ選挙にいこう
08/04/10 11:00: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やヘルプで検索してみてください。
　 URLﾘﾝｸ(www.google.co.jp)

前スレ
Excel総合相談所 65
ｽﾚﾘﾝｸ(bsoft板)l50

2:名無しさん＠そうだ選挙にいこう
08/04/10 11:04:02
▼━質問時の注意･決まり事━━━━━━━━━━
･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:名無しさん＠そうだ選挙にいこう
08/04/10 11:04:44
★ルールを無視すると…
　>>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:名無しさん＠そうだ選挙にいこう
08/04/10 11:05:06
★ 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:名無しさん＠そうだ選挙にいこう
08/04/10 11:05:32
★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

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

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

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

　▼グラフ
　･棒グラフでひとつだけ突出したデータがあった場合に波線を入れて位置を合わせる
　　(オートシェイプなどで見た目だけそうなるように弄る、別アプリでグラフを作り、オブジェクトとして挿入)
　　┌┐
　　～～
　　｜｜

6:名無しさん＠そうだ選挙にいこう
08/04/10 11:06:01
上記｢Excelで出来ないこと、仕様上の制限｣は､一般的に出来ないとされていること､出来ないと思われるものです。
間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。
Excel2007についても未確認な項目が多いので変更点が有ればご指摘下さい。

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

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

7:名無しさん＠そうだ選挙にいこう
08/04/10 11:06:37
　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　||
　　　||　━ 質問のしかた ━
　　　||　
　　　||　★1 質問するときは、環境や条件をキチンと書くこと。情報後出しはダメ。
　　　||　★2 要望は具体例や図を使って明確かつ具体的にしる。
　　　||　★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
　　　||　★4 質問テンプレ(雛形)は必須ではないが、
　　　||　　　　OSやExcelのバージョン､VBAの可否などは必須情報。
　　　||　
　　　||　　　　　　　　　∧ ∧ 　。
　　　||　　　　　　　　　　( ,,ﾟДﾟ)／　ｼﾞｭｳﾖｳ!!　　　　　　Ｅ[]ヨ　
　　　￣￣￣￣￣￣￣ﾉ　　つ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　 / ￣￣￣ ./| ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　　　　 |￣￣￣￣| | |
￣￣￣￣￣￣￣￣|＿＿＿＿|/｜
　　　　　　　　　　　　　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　＼　　　　は～～～～い　　　　　　／
　　　　∧ ∧　　　　∧,,∧　　　∧ ∧
　　　 ( ,,　∧▲　　ﾐ　 ∧ ∧　(　　∧ ∧
　　～（＿(　　∧ ∧＿(　∧ ∧＿ﾐ･д･∧ ∧
　　　　＠（＿(,,・∀・)＠ (　　 *)～ミ＿ ( 　　,,)
　　　　　　＠（＿__ﾉ　～（＿__ﾉ　　～（＿__ﾉ

8:名無しさん＠そうだ選挙にいこう
08/04/10 12:46:23
すれ立て乙>1

9:名無しさん＠そうだ選挙にいこう
08/04/10 13:28:00 BE:269601326-PLT(15001)
>1
π乙

10:名無しさん＠そうだ選挙にいこう
08/04/10 13:32:52
入力中にミスを訂正しようとして「←」を押すと、フォーカスが左隣のセルに移動してしまうのを
セル内で1文字戻るようにする設定はどこにありますか？

11:名無しさん＠そうだ選挙にいこう
08/04/10 15:50:15
【1 OSの種類　　　　 .】 Windows Vista
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 EXCEL2007 保存時プロパティ

今までExcel2003を使用しておりましたが、その際は[ツール]→[オプション]
→[全般]タブに「保存時にプロパティを確認する」というチェックボックスが
あったのですが、2007に変えてから、その機能がどうしても見つけられません。
同等の機能があれば、使用法をぜひともお教えください！！

12:名無しさん＠そうだ選挙にいこう
08/04/10 16:08:47
【1 OSの種類　　　　 .】 Windows XP SP2
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

縦棒グラフを作っているのですが、下記の資料で

資料
平成19年　11億1111万円
平成20年　12億1234万円
平成21年　13億2345万円
　　　　　　　　・
　　　　　　　　・
　　　　　　　　・

現在金額の入力されているセルの書式設定をﾕｰｻﾞｰ定義で『##"億"####"万""円"』にして
平成19年だと111111と入力して11億1111万円と表示していますが、グラフにした時に数値軸の表示が
15億0000万円
10億0000万円
5億0000万円
という風になっているのを
15億円
10億円
5億円
という風に短縮して表示することはできないのでしょうか？

13:名無しさん＠そうだ選挙にいこう
08/04/10 16:38:16
>>10
F2押すかBS押すしかない

14:名無しさん＠そうだ選挙にいこう
08/04/10 16:41:41
>>12
軸の書式設定で
目盛、表示単位を万にする
表示形式、ユーザー定義で##"億円"にする
シートとリンクするのチェックをはずす

15:12
08/04/10 17:13:53
>>14ありがとうございました。

16:名無しさん＠そうだ選挙にいこう
08/04/10 18:02:56
紙を横に向けて印刷した文章に、縦向きのページ番号を入れたいのですが
どうやったらできますか？
印刷は終わってるのですがページ番号だけついてません。

17:名無しさん＠そうだ選挙にいこう
08/04/10 18:43:00
ページ番号だけの文書を縦で作って差し込み印刷

18:名無しさん＠そうだ選挙にいこう
08/04/10 18:56:04
ページ番号が６とかだったらどこで設定すればいいんですか？

19:名無しさん＠そうだ選挙にいこう
08/04/10 19:10:52
エクセルで＋や＝といった数記号を表示するには
どうすればよいのでしょうか？

20:名無しさん＠そうだ選挙にいこう
08/04/10 19:20:49
+だけって事？
'+と'を付けたら？

21:20
08/04/10 19:21:48
ごめん。
何か勘違いした。スルーして。

22:19
08/04/10 19:27:57
あ、それでできました
ありがとうございました

23:名無しさん＠そうだ選挙にいこう
08/04/10 19:46:59
【1 OSの種類　　　　 .】 Windows2000
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】エクセル　VBA　プリンタ　トレイ　プリンタの設定　トレイの設定　API32

　VBAでプリントする際，トレイを指定出来ないでしょうか。
　過去ログでポート番号指定って見かけたのですが、ご存知の方は詳しく教えてください。

24:名無しさん＠そうだ選挙にいこう
08/04/10 19:56:59
ごめん
エクセルじゃなくExcelで検索したら出てきた俺のバカ。

一応参考
URLﾘﾝｸ(www.accessclub.jp)
って思ったらこれACCですね。
XLでできるか、明日会社で組んでみます。

25:名無しさん＠そうだ選挙にいこう
08/04/10 20:13:21
>>18
印刷メニューの中にページ範囲を指定する部分があるでしょ

26:名無しさん＠そうだ選挙にいこう
08/04/10 20:14:01
>>25　ありがとう　わからないけど　ありがとう。

27:名無しさん＠そうだ選挙にいこう
08/04/10 22:17:09
>>18
最悪右下セルに6/10(10ﾍﾟｰｼﾞ中6枚目)なんか作って書式設定→範囲、方向で「文字列」をドラッグしながら上に
ひっぱれば上に向いてくれる
とりあえず、ページ数だけ別の向きに印刷はできんよ

28:名無しさん＠そうだ選挙にいこう
08/04/10 22:19:05
【1 OSの種類　　　　 .】 Windows Vista
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】関数　行　削除
注文データが一日4回入るのですが、２回目以降のデータには一回目からのデータが重複しており、注文番号でこちらは判別しております。
※シートの行にそれぞれ注文番号～住所までレコードとして存在します。
”シート１”のＡセルと”シート２”のＡセル（注文番号）を比較（VLOOKUP関数）してデータが重複していないかチェックしているのですが

注文番号を比較してＩＦ文で重複している場合はメッセージを別セルに出しているのですが、メッセージを出しても今は削除はそのメッセージを見ながら”行ごと削除”と言った事をやっております。
一日下手をすれば500行程度になってしまうので出来ればそのメッセージで自動的に判別して行の削除を関数で行いたいのですが・・・わかりませんでした。

よろしければアドバイスをお願いします・・・

29:名無しさん＠そうだ選挙にいこう
08/04/10 22:44:41
>>28
関数じゃ無理
あきらめるかＶＢＡ

30:名無しさん＠そうだ選挙にいこう
08/04/10 22:50:11
削除は関数では無理。

31:18
08/04/10 23:08:20
できないんですか。ありがとうございます。

32:名無しさん＠そうだ選挙にいこう
08/04/10 23:08:21
フィルタで抽出して、可視セルのみ選択してから[CTRL]+[-]で一括削除できるよ

33:名無しさん＠そうだ選挙にいこう
08/04/10 23:09:22
エクセル開いてページ数だけ印刷できるんですか？
それとも印刷する文章がないと印刷始まらないんですか？

34:名無しさん＠そうだ選挙にいこう
08/04/10 23:20:14
>>28
K1が5の時f1を空白
f1に=if(K1=5,"",K1)
Kが重複データかどうか判別する列として、後はifかン数を組み合わせれば修復も楽に・・
なるかも？
vbaの前に、入力規則・条件付書式等も考えてみて。findやcountifでセルを真っ黒にしてみたりすれば嫌でも重複行に気づくはず
でもちょっと前時代的

>>33
全くデータがないと無理
逆にページ番号だけのページを作れるようにしておけば、工夫次第ではかなり楽できると思う

35:28
08/04/10 23:33:18
>>30
orz
>>34
今でも、あなたの言うような感じでvlookupとＩＦ文でチェック自体は作っており漏れもなく100%できてるんですが、行の削除を手動でやるのが基本的に前時代というのと
、実際の作業量が手動でやることでやっぱり時間に圧される事もあるので・・・

ちょっとＶＢＡでぐぐってみます。

ありがとうございました。

36:名無しさん＠そうだ選挙にいこう
08/04/10 23:49:28
>>35
URLﾘﾝｸ(www2.odn.ne.jp)
VBAで削除する場合、このページが非常に役立つ
かくいう俺もお世話になってますｗ
特に6番の行削除ねね

37:名無しさん＠そうだ選挙にいこう
08/04/11 00:00:59
>>35
DAKARA・・・
フィルターをかけて重複のみ表示させてそのまま表示されている
全ての行を選択して　行削除をすれば５００程度のデータなら３分以内に
終わるということが>32に書いてあるっつーの

38:名無しさん＠そうだ選挙にいこう
08/04/11 00:02:00
【1 OSの種類　　　　 .】 Windows Vista
【2 Excelのバージョン　】 Excel 2007

右クリックすると切り取りとかの上、または下にフォントの種類とかの
枠が出てくるようになってしまったのですが表示させないように
するにはどうしたらいいのでしょうか？

39:名無しさん＠そうだ選挙にいこう
08/04/11 00:06:07
>>38
Excel2003にダウングレードする。

要はExcel2007の仕様だから無理っつーこと

40:名無しさん＠そうだ選挙にいこう
08/04/11 00:13:02
>>39
そうなんですか？
最近PC買ったばかりでこの前まで出てなかったのに
今日エクセル使ってたら、その枠が邪魔で気になっていました...

41:名無しさん＠そうだ選挙にいこう
08/04/11 00:22:49
>>40
本当にこの前まで出てなかったの？
右クリックをしてなかっただけとか・・・
少なくとも俺が持っている本には表示させないようにはできないと書いてある。

42:名無しさん＠そうだ選挙にいこう
08/04/11 00:32:05
>>40
本当にこの前まででてなかったと思います。
切り取りは右クリックを使っていたので。
今まででてなかったから枠が気になって仕方がないです。

使ってれば気にならなくなるのかな？

あまり使う様なものでもないしできれば消したいです

43:名無しさん＠そうだ選挙にいこう
08/04/11 00:33:50
アンカー間違えた..
>>41　でした

44:名無しさん＠そうだ選挙にいこう
08/04/11 07:42:41
精神疾患の類だから病院行って来い

45:名無しさん＠そうだ選挙にいこう
08/04/11 08:09:42
>>35
その道場はちょっとねぇ。
あんた本人かい？
他にもう一つ有名なクソサイトもあるがｗ
本人が恥ずかしげもなくいつもリンク張ってる。

46:名無しさん＠そうだ選挙にいこう
08/04/11 08:47:05
だいじょうぶですか？

47:名無しさん＠そうだ選挙にいこう
08/04/11 08:58:42
手遅れです。

48:名無しさん＠そうだ選挙にいこう
08/04/11 09:26:19
>>28

一行1レコードなら、データ→並び替え（受注No）　→ A列に列挿入 →　"=A1=A2"を入力して最下行までコピー → A列コピー →　そのまま値複写　→　A列をキーに再度並び替え →
TRUEの行がまとまるので、まとめて削除　→　A列削除　　30秒フラットｗ　　　　COUNTIFでもいいが。

49:48
08/04/11 09:28:04
おっと。　"=A1=A2"の"A"は、受注Noの列を対象に。

50:名無しさん＠そうだ選挙にいこう
08/04/11 11:52:19
初歩的な質問で申し訳ありません。ご教授願います。

【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 & 文字列　変換

セルA1に 100
セルA2に =A
セルA3に 1
セルA4に =A2&A3
と入力されています

A4に 100 と表示させたいのですが、=A1と表示されてしまいます
"値の貼付け"以外で解決したいのですが。。。

51:名無しさん＠そうだ選挙にいこう
08/04/11 11:55:20
indirect

52:名無しさん＠そうだ選挙にいこう
08/04/11 12:00:33
ありがとうございます。
昼休み中に解決できて助かりました

53:名無しさん＠そうだ選挙にいこう
08/04/11 14:27:03
【1 OSの種類】 WindowsXP
【2 Excelのバージョン】 Excel2000
【3 VBAが使えるか】はい勉強中です
【4 VBAでの回答の可否】可
以下の作業をマクロで作れないでしょうか？
sheet1　テキストフォームに数字4桁○○○○を入力、ボタンを押す
→特定のフォルダのABC○○○○.csvを検索
→csvが開く、※注
→sheet2のセル（A1）の数式　=\***\◇◇◇◇.csv
→◇◇◇◇を取得
→◇◇◇◇を○○○○で置換え。

以上です。
宜しくお願いします。

※通常ここでブックが非アクティブになると思われるので、csvを非アクティブで開く方法があれば尚よいです。

54:名無しさん＠そうだ選挙にいこう
08/04/11 14:44:11
>>53
もちろん、出来るんだが・・・・・

普通なら、microsoft forms DLLを参照設定して、FileSystemObjectを取得してファイルを探して、textstreamでcsvを読み込んで　タブで区切って変数に

と言う流れか。

ワケわかめなら、無理しない方がいい。

55:名無しさん＠そうだ選挙にいこう
08/04/11 14:44:12
春は質問も回答も頭のおかしい奴ばっかだな

56:名無しさん＠そうだ選挙にいこう
08/04/11 14:48:29
>>50

極めて当たり前の結果に思えますが？

「やりたいこと」を整理した方が、よさげ

57:名無しさん＠そうだ選挙にいこう
08/04/11 14:52:30
もう解決してるだろ
本当に大丈夫かアンタ

58:名無しさん＠そうだ選挙にいこう
08/04/11 14:57:14
excel wordの本買おうと思うんだけど、どれが一番いい？

59:名無しさん＠そうだ選挙にいこう
08/04/11 15:01:32
基本的にどれも内容は似たようなもん
強いて言うなら、横に長い本がおすすめ
開けながら作業しやすいしね
あと全体的に高いので、古本屋で探したほうがいいかもしれない
後はダイソーでも売ってるので(もちろん\100)個人的におすすめ

60:名無しさん＠そうだ選挙にいこう
08/04/11 15:09:36
うっわあ…書きこまなきゃいいのに…
真剣に病院行った方がいいっすよ

61:名無しさん＠そうだ選挙にいこう
08/04/11 17:14:46
当方学生なのですが、プログラミングを勉強するために
エクセルについてるVBAをVB等の代わりに使うのはやめたほうがいいでしょうか?
あまりお金がないので高価なソフトは買いにくいのです・・orz

62:名無しさん＠そうだ選挙にいこう
08/04/11 17:22:46
>>61
信じられないかもしれないが、マイクロソフトが無料の開発環境を提供してくれている
URLﾘﾝｸ(www.microsoft.com)

63:名無しさん＠そうだ選挙にいこう
08/04/11 17:50:02
>>62
ありがとうごさいます!

64:名無しさん＠そうだ選挙にいこう
08/04/11 18:15:39
DDEでマクロを実行して、その結果を取り出すにはどうすれば
よいのでしょう？
例えばGET.DOCUMENT(50)をDDEExecuteで実行して、その結果を
DDERequestとかで取り出すのでしょうか？

65:名無しさん＠そうだ選挙にいこう
08/04/11 21:21:23
ページ番号を１５番からつけたいのですが、
フッターのところに15といれたら、5枚ほど全部15というページ番号に
なってしまいます。
通し番号は自動になってるのですが・・・
どこを変更すればいいのでしょうか？
１５～１９にしたいのですが・・・

66:名無しさん＠そうだ選挙にいこう
08/04/11 21:29:26
>>65
メニューの「ファイル」→「ページ設定」→「先頭ページ番号」を自動から好きな数字に変更

67:名無しさん＠そうだ選挙にいこう
08/04/11 21:34:12
ありがとうございます。これって2007ですよね。ないような。

68:名無しさん＠そうだ選挙にいこう
08/04/11 21:35:20
だから何故テンプレを使わない

69:名無しさん＠そうだ選挙にいこう
08/04/11 21:37:26
>>66
フッターの設定で
&[ページ番号]+14 ページ
カンでやったらできたわん

70:名無しさん＠そうだ選挙にいこう
08/04/11 21:39:24
2007ならページレイアウトのページ設定だ。バージョンくらい書けよ。

71:名無しさん＠そうだ選挙にいこう
08/04/12 01:30:50
【OSの種類】 WindowsXP
【Excelのバージョン】 Excel2003

たぶんすごく簡単なことでしょうが、
検索が下手で見つけることが出来ませんでした。

入力した数値が1～5ならA
6～10ならB
11～20ならCと別セルに表示させるには何という関数を
使用すればいいかご存じの方がいたら教えていただけないでしょうか？

72:名無しさん＠そうだ選挙にいこう
08/04/12 01:36:32
>>71
A1に数値が入ってるとして
=CHAR(64+INT((A1-1)/5)+1)

73:名無しさん＠そうだ選挙にいこう
08/04/12 01:39:37
=CHAR(64+ROUNDUP(A2/5,0))

74:名無しさん＠そうだ選挙にいこう
08/04/12 02:47:10
>>71
VLOOKUP

75:名無しさん＠そうだ選挙にいこう
08/04/12 03:20:08
>>72-73
71じゃないけど発想がスゴイね
パッと思いつかんかった

76:71
08/04/12 08:46:19
ありがというございます。
やってみます。

77:名無しさん＠そうだ選挙にいこう
08/04/12 09:22:07
>72-73,75

問題をよく読みましょう。

>76

>74が正解

78:名無しさん＠そうだ選挙にいこう
08/04/12 10:30:47
>>77
やっぱりそうだよなあ。
問題が非線形なのにどうして一次関数で表現できるのか不思議だったんだ。

79:名無しさん＠そうだ選挙にいこう
08/04/12 11:19:12
入力した数値が1～5ならA 6～10ならB 「11～20」ならC
かｗ
でも11-15のような気もする

80:名無しさん＠そうだ選挙にいこう
08/04/12 13:35:38
Excel のVBAのパスを１に書き換えるアプリの
置き場所知ってる人いらしゃいませんか？

81:名無しさん＠そうだ選挙にいこう
08/04/12 13:36:34
そうでもないな

82:名無しさん＠そうだ選挙にいこう
08/04/12 13:50:27
>71
=CHOOSE((A1-1)/5+1,"A","B","C","C")

83:名無しさん＠そうだ選挙にいこう
08/04/12 14:26:29
>82

いかにも糞シートができあがりそうな関数だなｗ

84:名無しさん＠そうだ選挙にいこう
08/04/12 15:05:31
>>83
文句だけじゃなく、他の案を出してやれよ。
お前みたいのが一番糞ｗ

>>72-73,77,82
質問者のレベルを考えて基本の式も書いてやれよ。知識自慢はお腹一杯。

>>71
=IF(AND(A1<=1,A1<=5),"A",IF(AND(A1<=6,A1<=10),"B",IF(AND(A1<=11,A1<=20),"")))
=IF(A1<=5,"A",IF(A1<=10,"B",IF(A1<=20,"C","")))

85:名無しさん＠そうだ選挙にいこう
08/04/12 15:17:08
>>72,73が知識自慢に見えるって・・相当病んでるとしか

86:名無しさん＠そうだ選挙にいこう
08/04/12 15:23:50
>>84
=IF(AND(A1<=1,A1<=5),"A"・・・・・・
　　　↓
=IF(AND(A1>=1,A1<=5),"A"・・・・・・

87:名無しさん＠そうだ選挙にいこう
08/04/12 15:28:46
>>86
普通にすまんかった。

=IF(AND(A1>=1,A1<=5),"A",IF(AND(A1>=6,A1<=10),"B",IF(AND(A1>=11,A1<=20),"")))

88:82
08/04/12 15:34:38
>83
=MID("AAAAABBBBBCCCCCCCCCC",A1,1)

89:名無しさん＠そうだ選挙にいこう
08/04/12 15:39:44
>>88
テクニカルすぎ笑ったｗ

90:名無しさん＠そうだ選挙にいこう
08/04/12 15:55:46
>>88
VLOOKUP使うほどの規模じゃないときはこれシンプルでいいな。いいこと覚えた。

91:名無しさん＠そうだ選挙にいこう
08/04/12 16:09:19
CHARとか使うやつは学生なんだろうな。
実務でCHARなんか役立つ事はほとんどない。
解答は出せても回答はできないような春厨確定だな。
88の式も似たようなもんだ。でも82を先に書いているから88はネタだな。

92:名無しさん＠そうだ選挙にいこう
08/04/12 16:16:10
ごてごてのIF文でいい気になってるやつはしねばいいのに

93:名無しさん＠そうだ選挙にいこう
08/04/12 16:18:18
▼━質問テンプレ (出来れば使ってね) ━━━━━━
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい(専門書片手に何とか)
【4 VBAでの回答の可否】可

下記のVBAを書いてみて実行してみたのですが
「Elseに対応するIfがありません」なるエラーが出ました。
当方皆目見当が付きません。
ご教授の程宜しくお願いいたします。

Sub 範囲指定印刷()
If Range("A1") = 1 Then
With Worksheets("Sheet1")
.PageSetup.PrintArea = "A7:E9"
.PrintPreview
ElseIf Range("A1") = 2 Then
With Worksheets("Sheet1")
.PageSetup.PrintArea = "A10:E12"
.PrintPreview
ElseIf Range("A1") = 3 Then
With Worksheets("Sheet1")
.PageSetup.PrintArea = "A13:E15"
.PrintPreview
ElseIf Range("A1") = 4 Then
With Worksheets("Sheet1")
.PageSetup.PrintArea = "A16:E18"
.PrintPreview
ElseIf Range("A1") >= 5 Then
MsgBox ("他の数字を入れてください。")
End If
End Sub

94:名無しさん＠そうだ選挙にいこう
08/04/12 16:18:40
雑談は雑談スレでやれカス共

95:名無しさん＠そうだ選挙にいこう
08/04/12 16:21:39
>>94
end　withが抜けてる

Sub 範囲指定印刷()
If Range("A1") = 1 Then
With Worksheets("Sheet1")
.PageSetup.PrintArea = "A7:E9"
.PrintPreview
End With
ElseIf Range("A1") = 2 Then
With Worksheets("Sheet1")
.PageSetup.PrintArea = "A10:E12"
.PrintPreview
End With
ElseIf Range("A1") = 3 Then
With Worksheets("Sheet1")
.PageSetup.PrintArea = "A13:E15"
.PrintPreview
End With
ElseIf Range("A1") = 4 Then
With Worksheets("Sheet1")
.PageSetup.PrintArea = "A16:E18"
.PrintPreview
End With
ElseIf Range("A1") >= 5 Then
MsgBox ("他の数字を入れてください。")
End If
End Sub

96:名無しさん＠そうだ選挙にいこう
08/04/12 16:22:31
変なところにレスしちまったｗ
>>95は93宛ね

97:名無しさん＠そうだ選挙にいこう
08/04/12 16:24:12
それと最後は
Elseif～ではなくElse～にしたほうが良い
にしたほうが良い。

98:名無しさん＠そうだ選挙にいこう
08/04/12 16:28:43
>>95
抜けてました！
上手くいきました。
ありがとうございました！

>>97
初歩的で申し訳ありません。
最後というのは>>93の下から4行目だけのことでしょうか？
また、Elseにした方がいいのは何故なのでしょうか？

99:名無しさん＠そうだ選挙にいこう
08/04/12 16:36:46
>93 重複が多すぎる

Sub 範囲指定印刷()
　 Select Case Range("A1")
　 Case 1
　　 PA = "A7:E9"
　 Case 2
　　 PA = "A10:E12"
　 Case 3
　　 PA = "A13:E15"
　 Case 4
　　 PA = "A16:E18"
　 Case Else
　　 MsgBox ("他の数字を入れてください。")
　　 Exit Sub
　 End Select
　 Worksheets("Sheet1").PageSetup.PrintArea = PA
　 Worksheets("Sheet1").PrintPreview
End Sub

100:名無しさん＠そうだ選挙にいこう
08/04/12 16:40:15
ソースの可読性が上がる＆エラー検地が容易になるから、かな
これぐらい短いソースなら特に問題ないけど

101:名無しさん＠そうだ選挙にいこう
08/04/12 16:41:49
>>99
こ、こんなにすっきりするもんなんですか！？
重複といわれても、何が余計なのかピンときておりません。
初心者ですみません。
あとSelectCaseを勉強してみます。
ありがとうございました。

102:名無しさん＠そうだ選挙にいこう
08/04/12 17:43:59
こんなんでも動きますか？

Sub test()
　 Dim 範囲指定印刷 As Long
　 A1Value = Range("A1").Value
　 If Not (1 <= A1Value And A1Value <= 4) Then MsgBox "他の数字を入れてください。": End

　 Worksheets("Sheet1").PageSetup.PrintArea = _
　　 Range("A7:E9").Offset((A1Value - 1) * 3, 0).Address(False, False)
　 Worksheets("Sheet1").PrintPreview
End Sub

103:名無しさん＠そうだ選挙にいこう
08/04/12 17:59:41
Dim A1Value As Longじゃないのころころすわよ

104:名無しさん＠そうだ選挙にいこう
08/04/12 18:10:30
それをゆーなら、こうだろ

Sub test2()
If 1 > Range("A1") Or Range("A1") > 4 Then MsgBox "他の数字を入れてください。": End
Worksheets("Sheet1").PageSetup.PrintArea = Range("A7:E9").Offset((Range("A1") - 1) * 3, 0).Address(False, False)
Worksheets("Sheet1").PrintPreview
End Sub

105:名無しさん＠そうだ選挙にいこう
08/04/12 18:26:58
>88としては、こうかな

Sub test3()
If 1 > Range("A1") Or Range("A1") > 4 Then MsgBox "他の数字を入れてください。": Exit Sub
Worksheets("Sheet1").PageSetup.PrintArea = Mid(" A7:E9A10:E12A13:E15A16:E18", Range("A1") * 7 - 6, 7)
Worksheets("Sheet1").PrintPreview
End Sub

106:82
08/04/12 18:33:00
>88

まいりましたｗ

107:83
08/04/12 18:33:49
>106

名前ミスッたorz

108:名無しさん＠そうだ選挙にいこう
08/04/12 19:34:36
日付-日付で経過日時を出した後、1ヶ月を超えてもx月xx日とせずに
xx日と日にちのみで表示したいのですがいい方法はありませんでしょうか？

109:名無しさん＠そうだ選挙にいこう
08/04/12 19:57:02
>>108
A1に開始日B1に終了日として
C1に=DATEDIF(A1,B1,"d")
後は=DATEDIF(A1,B1,"d")&"日"
か書式設定で0"日"

110:名無しさん＠そうだ選挙にいこう
08/04/12 19:59:05
>>108-109
普通に引き算したら日にちが出るのでは？
書式はお好みで。

111:名無しさん＠そうだ選挙にいこう
08/04/12 20:00:56
28-31日越えたら表示上1日に戻るってことでしょ

112:名無しさん＠そうだ選挙にいこう
08/04/12 20:05:00
質問文を読めない回答者が多いな

113:名無しさん＠そうだ選挙にいこう
08/04/12 20:25:17
C1は>>109・・・問題なし
C2は>>110・・・これではだめなのか？
URLﾘﾝｸ(freeuploader.org)

114:109
08/04/12 20:28:05
>>113
いけますよね、俺はうんこでした

115:名無しさん＠そうだ選挙にいこう
08/04/13 01:43:22
初歩的で申し訳ないのですが、教えてください。

IPアドレスの表を作って並べ替えをする場合、
192.168.0.1～192.168.0.254までのデータを並べ替えると

192.168.0.1
192.168.0.2
192.168.0.3

と若い順に並べたいのに

192.168.0.1
192.168.0.10
192.168.0.11
192.168.0.12

という感じで
1がついてしまうものが先に来てしまいます。
どうすれば若い順に並びますか？

116:名無しさん＠そうだ選挙にいこう
08/04/13 01:49:25
>>115
作業用の列を設けたらどうかな。
A列　　　　　　B列
　1　　　　="192.168.0."&A1
　2　　　　="192.168.0."&A2
　3　　　　="192.168.0."&A3
みたいな感じで。並べ替えはA列を使って並び替える。

117:名無しさん＠そうだ選挙にいこう
08/04/13 02:51:52
>>115
IPアドレスを値に直す関数を作ってみたが難易度高いぞ。

セルA1にIPアドレスが入っている場合、

=VALUE(LEFT(A1,FIND(".",A1,1)-1))*2^24+VALUE(MID(A1,FIND(".",A1,1)+1,FIND(".",A1,FIND(".",A1,1)+1)
-FIND(".",A1,1)-1))*2^16+VALUE(MID(A1,FIND(".",A1,FIND(".",A1,1)+1)+1,FIND(".",A1,FIND(".",A1,FIND(".",A1,1)+1)+1)
-FIND(".",A1,FIND(".",A1,1)+1)-1))*2^8+VALUE(RIGHT(A1,LEN(A1)-FIND(".",A1,FIND(".",A1,FIND(".",A1,1)+1)+1)))
（途中で改行が入っているが、これを1行にする）

これでIPアドレスが値に変換されるので、これでソートしてくれ。

118:名無しさん＠そうだ選挙にいこう
08/04/13 03:05:45
>>117
A1に192.168.0.1と入れたら
3232235521と返って来た。>>116でいいと思うよ。寝よ

119:名無しさん＠そうだ選挙にいこう
08/04/13 03:12:50
>>118
192.168.000.001でも3232235521が返ってくるわけで。寝よ

120:名無しさん＠そうだ選挙にいこう
08/04/13 08:59:11
>>115
既存のデータをいじるなら、分解して使うのが便利。
まず、元データを隣の列に複写して「データ／区切り位置」で分割、
それをキーにしてソートする。

121:名無しさん＠そうだ選挙にいこう
08/04/13 13:04:25
>>117
３２ビットのＩＰアドレスを十進数に変換してるっぽいな

122:名無しさん＠そうだ選挙にいこう
08/04/13 13:12:45
>>117これすごい。

>>117もしくは、>>120でいけそうですね。ありがとうございました。

123:名無しさん＠そうだ選挙にいこう
08/04/13 13:26:34
>115
ソートとはそういうもんだ。それが嫌なら
01にするとか、ソート用の列を用意するとか
つかExcelの質問じゃないし、、

>116
Ｂ列に式なんか入れずに 192.168.0.1
のままで良いんでね

124:名無しさん＠そうだ選挙にいこう
08/04/13 14:00:19
IPアドレスを比較したいだけなら、変換後の数値は無意味だけどこういう方法もある。
=(LEFT(A1,FIND(".",A1,2)-1)&MID(SUBSTITUTE(A1,".",".00"),FIND(".",SUBSTITUTE(A1,".",".00"),5)-3,3)&MID(SUBSTITUTE(A1,".",".000"),FIND(".",SUBSTITUTE(A1,".",".000"),12)-3,3)&RIGHT(SUBSTITUTE(A1,".",".00"),3))+0

125:名無しさん＠そうだ選挙にいこう
08/04/13 14:04:26
また知識自慢か

126:名無しさん＠そうだ選挙にいこう
08/04/13 14:19:19
>>124
それならもうちょっと短くできるぞ
=(LEFT(A1,FIND(".",A1,2))&MID(SUBSTITUTE(A1,".",".00"),FIND(".",SUBSTITUTE(A1,".",".00"),5)-3,3)&MID(SUBSTITUTE(A1,".",".000"),FIND(".",SUBSTITUTE(A1,".",".000"),12)-3,3)&RIGHT(SUBSTITUTE(A1,".",".00"),3))+0
これでもいけるはず。少数以下の変換誤差がちょっと怖いけど。

127:名無しさん＠そうだ選挙にいこう
08/04/13 14:26:11
>>125
知識のカケラもないアンタにゃ理解出来ない世界だ

128:名無しさん＠そうだ選挙にいこう
08/04/13 14:37:35
ぶっちゃけ、意味がわからん

129:名無しさん＠そうだ選挙にいこう
08/04/13 14:41:33
>>124はIPアドレスを
192168000001
という12桁の10進数に変換している。
>>126は
192.168000001
という、少数以下が9桁の10進数に変換してる。
確かに大小の比較だけならこれでも問題なくできてしまう。

すでにExcelの問題ではなくなってるけどな。

130:名無しさん＠そうだ選挙にいこう
08/04/13 15:00:58
アナルほど

131:名無しさん＠そうだ選挙にいこう
08/04/13 15:44:14
知識自慢ならどんどんしてほしい
そのためにこのすれに来てる奴もいるだろう

132:初めてさん
08/04/13 16:14:46
【1 OSの種類　　　　 .】 WindowsＶｉｓｔａ
【2 Excelのバージョン　】 Excel２００７
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】セル内　１文字　フォントサイズ変更　色変更
前は２０００を使っていまして　確か　セル内の文字列を　１文字等任意で選んで
フォントサイズや色の変更が出来たと思うのですが　２００７だと同じことを
しようと思っても　フォントサイズ等の所が　暗転して選べません
何か方法あれば　教えて頂ければとっても助かります
よろしくお願いします

133:名無しさん＠そうだ選挙にいこう
08/04/13 16:55:37
>>132
数式バーで文字を選択したら項目が出てきたゾ？
おまいのは出ないのか？

134:名無しさん＠そうだ選挙にいこう
08/04/13 17:22:44
>>132
一部分だけ変更は普通に出来るぞ。
URLﾘﾝｸ(uploaders.ddo.jp)

どうしてもわからなかったらスクショ上げてみ

135:初めてさん
08/04/13 17:42:00
数式バーで文字選択したら　フォントの変更の所
暗転して　選べなくなるんです・・・
スクショ？？？　　すみません

136:名無しさん＠そうだ選挙にいこう
08/04/13 17:52:38
スクール水着の写真をよこせってことだよ

137:初めてさん
08/04/13 18:04:42
URLﾘﾝｸ(www.uploader.jp)
1030928
これでいいのかな？

138:名無しさん＠そうだ選挙にいこう
08/04/13 18:11:08
>>137
複数のセルを選択してないか？？

139:名無しさん＠そうだ選挙にいこう
08/04/13 18:11:31
そうか、先頭が+だからか
更に先頭に「'」をつけるか、+だけ別のセルに表示させるといいよ
ちなみに「=」も同じ

140:名無しさん＠そうだ選挙にいこう
08/04/13 18:11:31
>>138
ごめん勘違い

141:初めてさん
08/04/13 18:16:38
できましたぁ～！！
ありがとうございました

142:名無しさん＠そうだ選挙にいこう
08/04/13 18:18:24
他の場所と同じにすりゃいいのに、そこだけセル内でやるのは何故だ

143:名無しさん＠そうだ選挙にいこう
08/04/13 18:47:42
このまま印刷したら字が切れそう

それにしても、最近の小学生は補数なんて勉強してるのか。驚きだ。

144:名無しさん＠そうだ選挙にいこう
08/04/13 19:17:08
20年ぐらい前も似たようなやり方を聞いたような

145:名無しさん＠そうだ選挙にいこう
08/04/13 22:51:02
【1 OSの種類　　　　 .】 WindowsXP Pro SP2
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】否
【5 検索キーワード　　】日付書式 1桁

日付けの月と日が1桁の時にスペースを入れて幅を合わせる方法を教えてください。
書式でmを指定すると文字数が合わなくなり、mmだと0が入ってしまいます。

146:名無しさん＠そうだ選挙にいこう
08/04/13 23:00:00
書式では無理
IF関数組み合わせて作るしかない

147:名無しさん＠そうだ選挙にいこう
08/04/13 23:07:26
大半のフォントでずれると思うけど

A1に2008/1/1みたいな形式で値が入ってるとする
B1=IF(MONTH(A1)<10," "&MONTH(A1),MONTH(A1))
C1=IF(DAY(A1)<10," "&DAY(A1),DAY(A1))
D1=YEAR(A1)&"/"&B1&"/"&C1
作っておいてアレだけど、mm入れて0であわせるほうがよっぽどマシ

148:名無しさん＠そうだ選挙にいこう
08/04/13 23:07:35
>>146
わかりました。ありがとうございました。

149:名無しさん＠そうだ選挙にいこう
08/04/13 23:09:11
>>147
そのあたりはぬかりなく、固定ピッチフォントを指定してあります。

150:名無しさん＠そうだ選挙にいこう
08/04/13 23:10:55
>>149
やるな
じゃあ多分>>147でいけると思う

151:名無しさん＠そうだ選挙にいこう
08/04/13 23:13:13
幅を合わせたいってだけなら
B1=YEAR(A1)
C1=MONTH(A1)
D1=DAY(A1)
みたいな感じで年月日を別の列に右揃えで表示すればいいだけじゃね？

152:名無しさん＠そうだ選挙にいこう
08/04/13 23:29:57
=RIGHT(" "&MONTH(A1),2)

153:名無しさん＠そうだ選挙にいこう
08/04/13 23:32:45
2007って条件付き表示形式が

154:名無しさん＠そうだ選挙にいこう
08/04/14 01:00:28
>>145
書式では無理なので、セルA1に日付が入っているとして
=SUBSTITUTE(SUBSTITUTE(TEXT(A1,"yyyy年mm月dd日"),"年0","年 "),"月0","月 ")
とする。

155:名無しさん＠そうだ選挙にいこう
08/04/14 01:02:12
－補足－
この方法は日付データが文字列データに変換されるので注意のこと。

156:名無しさん＠そうだ選挙にいこう
08/04/14 01:12:25
マクロ１とマクロ２を作って（マクロの記録）、
シートにコマンドボタンを作成して、
コマンドボタンを押すとマクロ１と２を実行する
マクロ３を作った（マクロの記録）のですが、
ファイル名を変えると「メソッドが取得できませんでした」とでてマクロが実行できませんです。
何か良い方法はありませんでしょうか？

157:名無しさん＠そうだ選挙にいこう
08/04/14 01:27:25
2007から条件付き書式でユーザー定義が選べるようになったから
MONTHとDAYがそれぞれ10以上かどうか判定する条件を3つ入れて
「 m/ d」「 m/dd」「mm/ d」「mm/dd」の4通りに書式を分ければいい。

158:名無しさん＠そうだ選挙にいこう
08/04/14 01:48:42
>156
ファイル名が違うと当然、エラーが出る。
同一ファイル内で実行するか、ファイル名を選択するメッセージボックスを作る。

159:名無しさん＠そうだ選挙にいこう
08/04/14 21:53:54
【1 OSの種類　　　　 .】 WindowsVista SP1
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】条件値が２つ　

ワークシート１に

　条件A（文字列）　条件B（数字）　データ

というように入力されており、条件AとBにあうデータを
別のワークシートから取り出します。

データ自体はワークシート２に

　条件A1　　条件A2　　　条件A3・・・
　データ1　　データ21　　データ31
　データ2　　データ22　　データ32

と入力されており、条件Aで列が、条件Bで行が決定し、それに対応するデータを
ワークシート1の方に表示させたいのです。
このようなことはどうしたらいいのでしょう？
条件Aが数字ならばINDEX関数あたりで処理できるのですが・・・

160:名無しさん＠そうだ選挙にいこう
08/04/14 22:10:46
データの表は１次元にすると楽

条件A1　データ1
条件A1　データ2
条件A2　データ1
条件A2　データ2

てな感じ。

161:名無しさん＠そうだ選挙にいこう
08/04/14 22:19:53
>>159
INDEXにMATCHをネストしてみたら？

162:名無しさん＠そうだ選挙にいこう
08/04/14 22:36:26
>>161
ありがとうございます。
その通りの方法でできました。

163:名無しさん＠そうだ選挙にいこう
08/04/15 00:58:03
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可･否
【5 検索キーワード　　】メメント・モリ

しょぼくれた質問ですみません。ExcelでシートをA4で印刷する際、印刷プレビューで
見ると画面が切れてしまい実際に印刷してみてもプレビューどおり切れてしまいます。
まだ切れるのはいいとしても、二枚目が存在しないんです。
つまり、一枚に出力できる範囲を超えたから切れているというわけではなさそうなのです。

倍率を下げると一応印刷はできるのですが、元々A4に収まりそうなものなので、まるで
縮小をかけたように一回り小さくなってしまいます･･･。当然ながら以下の点は抑えています。
・印刷範囲の指定
・隠された行・列の有無
・フィルタ
これら全て問題はありませんでした。

他のPCで（Excel2003）開いても印刷すると、多少差異はあれど同様の印字結果になるようです。
しかし、別PCのExcel2007でファイルを開いて印刷すると、当然のようにイメージどおりA4で出せましたｗ

自分の知り得る範囲では調べたのですがどうも解決できません。
上記の状況から、何か思い当たるような原因はありますでしょうか？

次ページ