Excel総合相談所 27
893 ：名無しさん＠そうだ選挙にいこう：04/10/28 20:46:27
桐9-2005 近日公開
894 ：名無しさん＠そうだ選挙にいこう：04/10/28 21:05:22
>892
マスター1シートの前にシートを挿入する方、
Worksheets.Add Before:=Worksheets("マスター1") はどうだろう？
マスター1シートの前にシートを挿入する方、
Worksheets.Add Before:=Worksheets("マスター1") はどうだろう？
895 ：名無しさん＠そうだ選挙にいこう：04/10/28 21:23:24
>891
黄色いのはバナナです。とＡ１に定義します。
Ｂ２で黄色いのは何ですか？と訊くとバナナと答えます。
次に、滑るのはバナナです。とＡ１に定義します。２重定義です。
その後、黄色いのはバナナ、という定義を消しました。
改めて黄色いのは何ですか？と訊ねたら、ｼﾗﾈｰﾖと答えます。ｱﾀﾘﾏｴ
滑るのは何ですか？と訊ねるべきで、そこまで面倒見切れません。
質問箇所が拓さんあって面倒なら、置換を使うべきでしょう。
黄色いのはバナナです。とＡ１に定義します。
Ｂ２で黄色いのは何ですか？と訊くとバナナと答えます。
次に、滑るのはバナナです。とＡ１に定義します。２重定義です。
その後、黄色いのはバナナ、という定義を消しました。
改めて黄色いのは何ですか？と訊ねたら、ｼﾗﾈｰﾖと答えます。ｱﾀﾘﾏｴ
滑るのは何ですか？と訊ねるべきで、そこまで面倒見切れません。
質問箇所が拓さんあって面倒なら、置換を使うべきでしょう。
896 ：名無しさん＠そうだ選挙にいこう：04/10/28 22:08:09
複数のPCで共有しているブックのシートが削除できません。
試したいことがあってテスト用のシートを作成したのですが
メニューのシートの削除が薄くなっていて選択できません。
仕方が無いので右端に移して非表示にしておきました。
他のシートも削除できないです。(他のブックのシートは削除できます)
プロテクトか何かがかかっているのでしょうか？解除できますか？
自分は97を使っていますが新しいバージョンを使っている人もいると思います。
試したいことがあってテスト用のシートを作成したのですが
メニューのシートの削除が薄くなっていて選択できません。
仕方が無いので右端に移して非表示にしておきました。
他のシートも削除できないです。(他のブックのシートは削除できます)
プロテクトか何かがかかっているのでしょうか？解除できますか？
自分は97を使っていますが新しいバージョンを使っている人もいると思います。
897 ：名無しさん＠そうだ選挙にいこう：04/10/28 22:18:38
898 ：名無しさん＠そうだ選挙にいこう：04/10/28 22:34:42
899 ：名無しさん＠そうだ選挙にいこう：04/10/28 22:46:49
１つのシートに表が３つあるとします。
１つの表は名簿表で出席番号・名前・性別が入力されています。
性別は*が付いてるか付いていないかで男女を判断します。
残りの表二つは男子抜き出し・女子抜き出しの表です。
*が付いてる人の名前・出席番号を男子抜き出し表・
*が付いていない人の名前・出席番号を女子抜き出し表に写し出すように
するにはどういった関数を用いればよろしいですかね？説明が意味わからなくて
すいません。
１つの表は名簿表で出席番号・名前・性別が入力されています。
性別は*が付いてるか付いていないかで男女を判断します。
残りの表二つは男子抜き出し・女子抜き出しの表です。
*が付いてる人の名前・出席番号を男子抜き出し表・
*が付いていない人の名前・出席番号を女子抜き出し表に写し出すように
するにはどういった関数を用いればよろしいですかね？説明が意味わからなくて
すいません。
900 ：名無しさん＠そうだ選挙にいこう：04/10/28 22:59:35
901 ：名無しさん＠そうだ選挙にいこう：04/10/28 23:48:11
>895
>ｱﾀﾘﾏｴ
参照はポインタによって保持され名前は書き換え可能と思っていたので、
URLの変更のような単純なこととは思ってませんでした。
とりあえずご返答ありがとうございます。
>ｱﾀﾘﾏｴ
参照はポインタによって保持され名前は書き換え可能と思っていたので、
URLの変更のような単純なこととは思ってませんでした。
とりあえずご返答ありがとうございます。
902 ：887：04/10/29 00:57:13
>>887を誰かおねがいします。
903 ：名無しさん＠そうだ選挙にいこう：04/10/29 00:59:08
>902
文字コードの変換が出来るテキストエディタで変換後、Excelに読み込ませる
文字コードの変換が出来るテキストエディタで変換後、Excelに読み込ませる
904 ：名無しさん＠そうだ選挙にいこう：04/10/29 01:12:28
>902
ｽﾏｿ。やっぱ文字コード変換ソフト使ったほうがいいみたい。
これとか。ファイルのコピーとってからやってみて。
CharsetConverter
ttp://www.vector.co.jp/soft/dl/win95/util/se135907.html
ｽﾏｿ。やっぱ文字コード変換ソフト使ったほうがいいみたい。
これとか。ファイルのコピーとってからやってみて。
CharsetConverter
ttp://www.vector.co.jp/soft/dl/win95/util/se135907.html
905 ：887：04/10/29 02:57:55
>>903-904
ExcelってEUCにすら対応してないんですか・・・・orz
こんなにショボイソフトだとは思わなかった
実はPerlやPHPで使ってるCSV形式を、気まぐれでexcelからも読もうと思っただけなんです。
回答ありがとうございました。
ExcelってEUCにすら対応してないんですか・・・・orz
こんなにショボイソフトだとは思わなかった
実はPerlやPHPで使ってるCSV形式を、気まぐれでexcelからも読もうと思っただけなんです。
回答ありがとうございました。
906 ：名無しさん＠そうだ選挙にいこう：04/10/29 03:07:50
>>905
サーバからDLするときコード変換しなかったの？
サーバからDLするときコード変換しなかったの？
907 ：名無しさん＠そうだ選挙にいこう：04/10/29 05:30:42
908 ：名無しさん＠そうだ選挙にいこう：04/10/29 09:41:31
検索のときにキーワードを複数の単語を指定することはできますか？
ひとつだけでは絞り込む精度が良くないので複数にしたいのですが、
キーワードとキーワードの間に半角スペースなどを打ち込んでも、
半角スペースも含んでひとつのキーワードと認識してしまうらしく、
うまく検索できません。何か方法があれば教えてください。
ひとつだけでは絞り込む精度が良くないので複数にしたいのですが、
キーワードとキーワードの間に半角スペースなどを打ち込んでも、
半角スペースも含んでひとつのキーワードと認識してしまうらしく、
うまく検索できません。何か方法があれば教えてください。
909 ：名無しさん＠そうだ選挙にいこう：04/10/29 09:53:02
>907
やりたい事は3つあるわけでしょ。
1：特定のシートの前に新規シートを挿入
2：それ以外の場所への新規シート挿入の禁止
3：シートの名前順で並び替え
1は>894で。
2は分らない。分る人ﾖﾛ。
3はttp://www2u.biglobe.ne.jp/~arking/macro_2/test/050.txt の
ki050 ってヤツを使わせてもらえば？
2はマスター2、マスター3の前後へシート挿入されたらメッセージボックス出すようにして
キャンセルさせるように動作するマクロ組めばいけるのかな。わかんね。
3はどんなタイミングで並び替えさせるかはっきりさせればもっとアドバイスもらえるんじゃない？
やりたい事は3つあるわけでしょ。
1：特定のシートの前に新規シートを挿入
2：それ以外の場所への新規シート挿入の禁止
3：シートの名前順で並び替え
1は>894で。
2は分らない。分る人ﾖﾛ。
3はttp://www2u.biglobe.ne.jp/~arking/macro_2/test/050.txt の
ki050 ってヤツを使わせてもらえば？
2はマスター2、マスター3の前後へシート挿入されたらメッセージボックス出すようにして
キャンセルさせるように動作するマクロ組めばいけるのかな。わかんね。
3はどんなタイミングで並び替えさせるかはっきりさせればもっとアドバイスもらえるんじゃない？
910 ：名無しさん＠そうだ選挙にいこう：04/10/29 10:31:45
>>908
編集メニューの「検索」ではなくオートフィルタで絞り込む。
オートフィルタをオンにして各列の「▼」から「オプション」を選べば２つまで条件が設定可能。
それ以上複雑なことをやりたければ、データメニューの「フィルタオプションの設定」を使う。
後者はちょっと使い方にクセがあるが。
編集メニューの「検索」ではなくオートフィルタで絞り込む。
オートフィルタをオンにして各列の「▼」から「オプション」を選べば２つまで条件が設定可能。
それ以上複雑なことをやりたければ、データメニューの「フィルタオプションの設定」を使う。
後者はちょっと使い方にクセがあるが。
911 ：名無しさん＠そうだ選挙にいこう：04/10/29 12:13:48
VBAでの印刷設定で、ヘッダーやフッターに変数用いることはできないのですか？
.CenterHeader = "&""ＭＳ Ｐゴシック,太字""&14" 対象月 & "月度集計表"
というのを書いたのですが、コンパイルエラーになってしまします。
対象月は事前に定義してあります。
.CenterHeader = "&""ＭＳ Ｐゴシック,太字""&14" 対象月 & "月度集計表"
というのを書いたのですが、コンパイルエラーになってしまします。
対象月は事前に定義してあります。
912 ：名無しさん＠そうだ選挙にいこう：04/10/29 13:15:01
>>894
起動時にブックを保護する
Private Sub Workbook_Open()
ActiveWorkbook.Protect Structure:=True
↓↓↓
シートを追加するときはいったん解除してから。
privete sub kouda()
ActiveWorkbook.Protect Structure:=false ’解除
’シートの追加とか並び替えとか
ActiveWorkbook.Protect Structure:=True ’再保護
こんな感じじゃどうでしょうか？
起動時にブックを保護する
Private Sub Workbook_Open()
ActiveWorkbook.Protect Structure:=True
↓↓↓
シートを追加するときはいったん解除してから。
privete sub kouda()
ActiveWorkbook.Protect Structure:=false ’解除
’シートの追加とか並び替えとか
ActiveWorkbook.Protect Structure:=True ’再保護
こんな感じじゃどうでしょうか？
>>844
ありがとうございます。
マクロを挿入してやってみました。
コンパイルエラー：End Subが必要です。と出ちゃいました。
Sub mitsumori()
Dim i As Long, myDir As String, myBook As String
i = 1
myDir = "C:mitsumori\" '←こんな感じで、該当のフォルダ。最後の￥マークを忘れずに。
myBook = Dir(myDir & "*.xls")
Do Until myBook = ""
Workbooks.Open myDir & myBook
Sub copy()
〜マクロ〜
myBook = Dir
i = i + 1
Loop
End Sub
ありがとうございます。
マクロを挿入してやってみました。
コンパイルエラー：End Subが必要です。と出ちゃいました。
Sub mitsumori()
Dim i As Long, myDir As String, myBook As String
i = 1
myDir = "C:mitsumori\" '←こんな感じで、該当のフォルダ。最後の￥マークを忘れずに。
myBook = Dir(myDir & "*.xls")
Do Until myBook = ""
Workbooks.Open myDir & myBook
Sub copy()
〜マクロ〜
myBook = Dir
i = i + 1
Loop
End Sub
914 ：名無しさん＠そうだ選挙にいこう：04/10/29 15:50:37
excel2000 os:xp
enterキーを押すと選択中のセルの真下に移動するのですが、
これをセルの右に移動させるにはどうしたらいいですか？
enterキーを押すと選択中のセルの真下に移動するのですが、
これをセルの右に移動させるにはどうしたらいいですか？
915 ：名無しさん＠そうだ選挙にいこう：04/10/29 16:17:06
>>914
Tab使った方がいいと思う
Tab使った方がいいと思う
916 ：名無しさん＠そうだ選挙にいこう：04/10/29 16:34:02
>914
915の言うようにTab使う癖つけちゃえばいいと思うけど、どうしてもってことなら
ツール - オプション - 編集 「入力後にセルを移動する」で「右」
915の言うようにTab使う癖つけちゃえばいいと思うけど、どうしてもってことなら
ツール - オプション - 編集 「入力後にセルを移動する」で「右」
917 ：名無しさん＠そうだ選挙にいこう：04/10/29 16:49:11
>912
質問者（>892）じゃないけど、ブックの保護って使ったこと無かったから
目ウロコ。勉強になった。ありがとう。
質問者（>892）じゃないけど、ブックの保護って使ったこと無かったから
目ウロコ。勉強になった。ありがとう。
918 ：名無しさん＠そうだ選挙にいこう：04/10/29 16:49:39
919 ：名無しさん＠そうだ選挙にいこう：04/10/29 18:06:22
下記のようなデータファイルを…
−−−
優香 ２
リカ １
亜弥 ３
−−−
↓のような形に変換したい
（ピポットの逆のような事をしたい）
のだが、よい方法はないですか
−−−
優香
優香
リカ
亜弥
亜弥
亜弥
−−−
（^・x・^）
−−−
優香 ２
リカ １
亜弥 ３
−−−
↓のような形に変換したい
（ピポットの逆のような事をしたい）
のだが、よい方法はないですか
−−−
優香
優香
リカ
亜弥
亜弥
亜弥
−−−
（^・x・^）
920 ：名無しさん＠そうだ選挙にいこう：04/10/29 19:24:05
マクロでやりなはれ。
921 ：名無しさん＠そうだ選挙にいこう：04/10/29 20:28:52
A B ←のようなデータが存在し、
1 123 1 A列の中かに「ある数値」が存在するかどうかを
2 252 2 検索し、存在する場合はB列の数値を返す、
3 654 4 と言うのは可能でしょうか？存在しない場合は
4 234 1 0を返したいです。
5 742 2
例）
234 → 1
999 → 0
654 → 4
1 123 1 A列の中かに「ある数値」が存在するかどうかを
2 252 2 検索し、存在する場合はB列の数値を返す、
3 654 4 と言うのは可能でしょうか？存在しない場合は
4 234 1 0を返したいです。
5 742 2
例）
234 → 1
999 → 0
654 → 4
922 ：名無しさん＠そうだ選挙にいこう：04/10/29 20:54:10
>>921
俺ならピボットテーブルで集計するかなぁ
俺ならピボットテーブルで集計するかなぁ
923 ：名無しさん＠そうだ選挙にいこう：04/10/29 21:02:34
ｽﾐﾏｾﾝ質問させてください。
変な話ですが、エクセルファイルを
エクセル以外のなにがしかのソフトで
書き込み、保存ってできないでしょうか
面接受ける会社から履歴書書けって
エクセルファイルが送られてきたんですよ。
まぁ使えはするんだけど持ってないんだよなぁ
持ってないって返信してもいいけど
少しでも印象悪くしたくないし、
出来ればキチンと書いて返信したいんです。
なにかお知恵がありましたらお貸しください。
変な話ですが、エクセルファイルを
エクセル以外のなにがしかのソフトで
書き込み、保存ってできないでしょうか
面接受ける会社から履歴書書けって
エクセルファイルが送られてきたんですよ。
まぁ使えはするんだけど持ってないんだよなぁ
持ってないって返信してもいいけど
少しでも印象悪くしたくないし、
出来ればキチンと書いて返信したいんです。
なにかお知恵がありましたらお貸しください。
924 ：名無しさん＠そうだ選挙にいこう：04/10/29 21:07:01
>>923
漫画喫茶に行ってきなはれ
漫画喫茶に行ってきなはれ
925 ：名無しさん＠そうだ選挙にいこう：04/10/29 21:27:21
素晴らしいアイディア。
ありがとうございます。
いってきま。
ありがとうございます。
いってきま。
926 ：名無しさん＠そうだ選挙にいこう：04/10/29 21:32:12
927 ：名無しさん＠そうだ選挙にいこう：04/10/29 21:55:47
関連レス>>896-898
今日やって見ましたがダメでした。
試しにローカルに複製を作ってみましたがそちらでもシートの削除が出来ません。
ブックへのショートカットを作ったわけではないですよ？
タイトルバーには拡張子の後に[共有]と書かれています。
共有を解除すれば削除できるのかもしれませんが
変更履歴がクリアされる仕様らしいので私の独断では出来ませんでした。
何かいい方法はないでしょうか？
今日やって見ましたがダメでした。
試しにローカルに複製を作ってみましたがそちらでもシートの削除が出来ません。
ブックへのショートカットを作ったわけではないですよ？
タイトルバーには拡張子の後に[共有]と書かれています。
共有を解除すれば削除できるのかもしれませんが
変更履歴がクリアされる仕様らしいので私の独断では出来ませんでした。
何かいい方法はないでしょうか？
929 ：名無しさん＠そうだ選挙にいこう：04/10/30 00:05:24
すみません、久しぶりにExcelを起動したところ
キーボードの矢印キーでカーソルが動いていたはずが、スクロールしてしまいます
元の矢印を動かせばカーソルが動くようにするにはどうすればいいでしょうか？
キーボードの矢印キーでカーソルが動いていたはずが、スクロールしてしまいます
元の矢印を動かせばカーソルが動くようにするにはどうすればいいでしょうか？
930 ：名無しさん＠そうだ選挙にいこう：04/10/30 00:10:36
IF関数の条件式が「偽の場合」もしくは「エラーの場合」『0』ってのはでき無いのでしょうか？
A1=10 B1=0として
IF(A1/B1=1,1,0)
は#DIV/0!となるのを回避したい次第です。（1or0を返したい）
A1=10 B1=0として
IF(A1/B1=1,1,0)
は#DIV/0!となるのを回避したい次第です。（1or0を返したい）
931 ：名無しさん＠そうだ選挙にいこう：04/10/30 00:13:57
ScrollLockを解除汁！
932 ：名無しさん＠そうだ選挙にいこう：04/10/30 00:15:30
>>930
それは IF(A1=B1,1,0) でいいんじゃないの？
それは IF(A1=B1,1,0) でいいんじゃないの？
934 ：名無しさん＠そうだ選挙にいこう：04/10/30 00:21:11
Excelを使用していて稀にデータが消失することがあります。
エラーの類いが一切なしで後半の行がそっくり消えてしまうことが、ここ半年で3度ほどありました。
原因は何が考えられるでしょうか？
MAC OS X 10.2.8
Excel 10.1.6
です。よろしくお願いします。
エラーの類いが一切なしで後半の行がそっくり消えてしまうことが、ここ半年で3度ほどありました。
原因は何が考えられるでしょうか？
MAC OS X 10.2.8
Excel 10.1.6
です。よろしくお願いします。
935 ：名無しさん＠そうだ選挙にいこう：04/10/30 00:40:40
936 ：名無しさん＠そうだ選挙にいこう：04/10/30 00:45:00
>>935
すんません、930で書いたのは「エラー」が帰ってくる単純なサンプルを書いただけでした。
実際はVLOOKUP関数で検索型FALSEの場合なんです。
検索値がデータ内の数値に一致しない場合（FALSEの場合）は「0」を返す、ってのを
実行したいのですが、可能でしょうか？
回りくどい質問で本当に申し訳ないです。
すんません、930で書いたのは「エラー」が帰ってくる単純なサンプルを書いただけでした。
実際はVLOOKUP関数で検索型FALSEの場合なんです。
検索値がデータ内の数値に一致しない場合（FALSEの場合）は「0」を返す、ってのを
実行したいのですが、可能でしょうか？
回りくどい質問で本当に申し訳ないです。
937 ：名無しさん＠そうだ選挙にいこう：04/10/30 00:57:43
938 ：名無しさん＠そうだ選挙にいこう：04/10/30 00:59:39
939 ：ゴッホ ◆lkGoghDAZs ：04/10/30 01:19:59
>>842
Copyというプロシージャが、そのマクロの外側にあって、それを呼び出しているのなら、>>927
直接記述するなら、Sub Copy()の記述は、必要ありません。
マクロが長いということなので、>>927のようにしたほうがいいかもしれません。
ゴッホのマクロ()
略
Call あなたのマクロ名
略
End Sub
あなたのマクロ()
略
End Sub
ちなみに
「'←こんな感じで、該当のフォルダ。最後の￥マークを忘れずに。 」
は、別になくても大丈夫なので、削除していいですよ。
単なるコメントなので。
Copyというプロシージャが、そのマクロの外側にあって、それを呼び出しているのなら、>>927
直接記述するなら、Sub Copy()の記述は、必要ありません。
マクロが長いということなので、>>927のようにしたほうがいいかもしれません。
ゴッホのマクロ()
略
Call あなたのマクロ名
略
End Sub
あなたのマクロ()
略
End Sub
ちなみに
「'←こんな感じで、該当のフォルダ。最後の￥マークを忘れずに。 」
は、別になくても大丈夫なので、削除していいですよ。
単なるコメントなので。
940 ：ゴッホ ◆lkGoghDAZs ：04/10/30 01:21:40
あ、あと、あなたのマクロは、Privateをつけたほうがいいかも。
Private あなたのマクロ()
Private あなたのマクロ()
941 ：名無しさん＠そうだ選挙にいこう：04/10/30 01:25:30
942 ：名無しさん＠そうだ選挙にいこう：
下記のようなデータファイルを…
−−−
優香 ２
リカ １
亜弥 ３
−−−
↓のような形に変換したい
（ピポットの逆のような事をしたい）
のだが、よい方法はないですか
−−−
優香
優香
リカ
亜弥
亜弥
亜弥
−−−
（^・x・^）
−−−
優香 ２
リカ １
亜弥 ３
−−−
↓のような形に変換したい
（ピポットの逆のような事をしたい）
のだが、よい方法はないですか
−−−
優香
優香
リカ
亜弥
亜弥
亜弥
−−−
（^・x・^）