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

Excel総合相談所 118 ..

2:名無しさん＠そうだ選挙にいこう
15/04/30 09:09:58.96 .net
▼━質問時の注意･決まり事━━━━━━━━━━
･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:名無しさん＠そうだ選挙にいこう
15/04/30 09:10:24.88 .net
前スレから使ってね
Excel総合相談所 117 [転載禁止]?2ch.net
ｽﾚﾘﾝｸ(bsoft板)

4:名無しさん＠そうだ選挙にいこう
15/04/30 18:27:24.69 .net
エクセルで3つのベン図を用いる計算を行うことはできますか？
例えば、以下のような高校数学の数学Aの分野に該当する計算です。
バナナ好きは3人、リンゴ好きは4人、ミカン好きは5人、リンゴとミカンが好きなのはX人です。
Xを求めなさい。
セルに数値を入力するだけで求めたい値を知ることが出来ますか？
エクセルでは無理ですか？

5:名無しさん＠そうだ選挙にいこう
15/04/30 18:31:16.24 .net
↑
osはwin7
excel 2010
VBAは使えません
素人レベルなのでこのような計算が可能か無理かを知りたいです

6:名無しさん＠そうだ選挙にいこう
15/04/30 18:43:12.43 .net
>>4-5
前スレ埋まるまでは前スレ使って欲しい
まぁ、その質問はエクセルと関係なく「数学的に解けない問題」だと思うけど

7:名無しさん＠そうだ選挙にいこう
15/05/01 00:32:04.42 .net
>>4です
>>6
ワードやエクセルで図の挿入からスマートアートでベン図の表自体を表現して
それに計算機能を持たせて計算処理ができるようにしたいのが目的だったのですが不可能みたいですね
前スレ飛ばして申し訳です

8:名無しさん＠そうだ選挙にいこう
15/05/01 05:01:26.48 .net
>>7
だから前スレを使えと……
んで、エクセルで出来ないんじゃなくて、
あの質問は答えを出すのに必要な条件が不足してるから、
たとえどんな方法でも解けないっていってるの
あれだけだと
0 <= x <= 4
という所までしか絞り込み出来ないでしょ？
もっときちんとした問題ならエクセルで解ける可能性があるよ
ただ、場合によってはマクロ必須だと思うけど
およそ人間に出来る計算ならほぼ全部エクセルで実現可能です

9:名無しさん＠そうだ選挙にいこう
15/05/01 11:25:12.10 .net
>>8
前スレなんてとっくにDAT落ちしたよ

10:名無しさん＠そうだ選挙にいこう
15/05/01 12:05:10.44 .net
>>9
スレがまだ埋まってなかった時点のレスにそんなこと言っても意味ないと思う

11:名無しさん＠そうだ選挙にいこう
15/05/02 13:26:02.07 .net
1つのシートでやるか複数のシートに分けるか悩む
例えばvbaでセル範囲を取得させる時、
あとから追加項目が出たせいで列を増やす→vbaで指定する範囲がを全て修正しなきゃいけなくなる
あとでああ、分けた方が良かったなあとなる
こんなことが1年続いてるからセンスないんだろうな
かといってシートを増やし過ぎると切り替えが面倒だし…

12:名無しさん＠そうだ選挙にいこう
15/05/02 13:56:49.03 .net
ちゃんと作るときは
入力・出力・設定（readme含む）
が一番多い。
多くても
入力・tmp・出力・設定
ぐらい

13:名無しさん＠そうだ選挙にいこう
15/05/02 13:58:14.80 .net
>>12
4シートってこと？
なるほどなあ

14:名無しさん＠そうだ選挙にいこう
15/05/02 14:02:52.76 .net
前に質問した者です
文脈理解してもらえてないので詳しく伝えます
100人の教室にAが好き90人、Bが好き75人、Cが好き60人、AB両方好き68人、BC両方好き38人、AC両方好き55人います。
全部嫌いは1人。
全部好きは何人か？
好きなものが2つある人は何人か？
答えはそれぞれ35人、56人となります。

これをエクセルで解けるようにするにはどうすれば良いですか？
ドモルガンの公式を使えば簡単に解けますが、その計算を素早くしたいです。
セルに数字を入れるだけで、数値が求まるようにできませんか？
お願いします。

15:名無しさん＠そうだ選挙にいこう
15/05/02 14:07:09.28 .net
>>14
公式あるじゃない
a+b-aかつbをするだけでしょ

16:名無しさん＠そうだ選挙にいこう
15/05/02 16:12:54.12 .net
>>14
文脈を理解してないのは君のほうだ
条件がきちんと確定されていればエクセルで出来ると既に回答しただろうが

17:名無しさん＠そうだ選挙にいこう
15/05/02 21:38:18.61 .net
条件後出しの釣り氏はスルーで

18:名無しさん＠そうだ選挙にいこう
15/05/02 22:40:37.70 .net
VBAの勉強始めたばかりやけど配列全然理解できん
UBondとかもー意味わからん

19:名無しさん＠そうだ選挙にいこう
15/05/02 23:51:30.28 .net
>>18
配列ははっきり言って覚えるまでが大変。そのかわり超便利。
他の言語だと必須だけど、vbaの場合セルを配列代わりに使えば覚えてなくてもなんとかなる（セルは元々配列なんだけどね）
どっちかというとセルの操作を覚えたほうがいいよ。
使っているうちに覚えるさ。
このへんでも見ながら覚えると良い。
URLﾘﾝｸ(www.officepro.jp)
C言語のリファレンスの解説の方が読みやすいかも？流し読みすると良いよ
URLﾘﾝｸ(www.cc.kyoto-su.ac.jp)
URLﾘﾝｸ(www.c-lang.org)

20:名無しさん＠そうだ選挙にいこう
15/05/03 00:20:26.32 .net
>>18
uboundって何かよく知らないけど配列少しは使えるからヘーキヘーキ

21:名無しさん＠そうだ選挙にいこう
15/05/03 05:47:15.28 .net
>>19
ありがとう
少し気が楽になったよ

22:名無しさん＠そうだ選挙にいこう
15/05/03 12:56:49.87 .net
>>19
>配列ははっきり言って覚えるまでが大変
大変だと思ったことがない

23:名無しさん＠そうだ選挙にいこう
15/05/03 13:18:05.16 .net
>>22
俺も。配列なんてループ、条件分�

24:ﾉ続いて覚えるもんだからなぁ。

25:名無しさん＠そうだ選挙にいこう
15/05/03 14:44:29.80 .net
VBAは中身をきちんと理解してないで曖昧なままでもそれなりに動いちゃうから
かえって深い理解を妨げてるのかもしれないですね
斯く言う私も
for each in の対象になる「オブジェクトのコレクション」などを
イマイチ理解せずに使ってます

26:名無しさん＠そうだ選挙にいこう
15/05/03 15:27:12.16 .net
「コレクション」って大昔聞いたなぁ、と思って調べ直したら、これ単なる連想配列か。
連想配列って名前のままなら別言語出身者にも分かりやすいのになぁ
>>24
ところでコレクションなんて、どんな時に使うんですか？

27:名無しさん＠そうだ選挙にいこう
15/05/03 16:57:06.48 .net
>>25
ほんとに理解してないんですけどね、
たとえば
Dim wb As Workbook
For Each wb In Workbooks
……
Next wb
みたいな時の Workbooks はWorkbooksオブジェクトですが、
これがその時点で開かれているWorkbookオブジェクトのコレクションに当たるそうです。
語尾に "s" が付いてるか付いてないかの違いに気付かず、
For Each wb In Workbook
……
なんて書いて、エラーが出ても意味が分からずに悩んだりしてました

28:名無しさん＠そうだ選挙にいこう
15/05/03 17:21:33.47 .net
>>26
ありがとうございます。
確かにそれはかなり使う。そういやそれもコレクションでした。
Workbooks(0)がWorkbook("boook1.xls")みたいな奴ね。

29:名無しさん＠そうだ選挙にいこう
15/05/03 18:07:18.09 .net
>>24
それは関数も一緒
INDEXの関数の意味やネストのことを理解してなかったがMATCHと組み合わせて検索に使ってたバカがここに

30:名無しさん＠そうだ選挙にいこう
15/05/03 18:10:21.09 .net
なんか分からなくても使うのは大事だと思う。小数誤差でえらいめに合うまでがテンプレ
なんか分からんし使うのやめよう、では障害効率化など望めないだろう

31:名無しさん＠そうだ選挙にいこう
15/05/04 02:16:21.80 .net
>>28
え、indexとmatchって組み合わせたらダメなの？小数検索もうまくやってくれる最強な認識なんだけど

32:名無しさん＠そうだ選挙にいこう
15/05/04 12:35:00.61 .net
Excel2003
vbaでシート1のセル範囲B6:L18にランダムで入っている数値をシート2のD46:L88の範囲に参照して表示させることは可能ですか？
シート1の方は結合していない一つのセルに一つの値が入っていて、シート2の方はセル2つを結合したところに表示させたいです。
可能ですか？

33:名無しさん＠そうだ選挙にいこう
15/05/04 13:12:53.05 .net
>>31
可能です
結合セルのアドレスは一番左上のセルです

34:名無しさん＠そうだ選挙にいこう
15/05/04 16:26:16.34 .net
>>31
VBA使う必要ないじゃん

35:名無しさん＠そうだ選挙にいこう
15/05/04 17:54:31.29 .net
【1 OSの種類　　　　 .】 Windows8.1Pro
【2 Excelのバージョン　】 Excel2013
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
宜しくお願いいたします。残業時間の表を作っています。色々と条件分けしているのですが
IF,AND,ORの羅列になってカッコが多くなり非常に見づらく、よく間違えます。
式を見ると何やら自動で色分けされている様ですが似たような色でチカチカするだけであまり
判読性が上がりません。
エクセルで式を作るときに解りやすくする様なコツはありますでしょうか？
自分としてはあとで修正しやすい様に一度に計算させず、分けられる所はセルを分けたり
ラベルを使う様にしているのですがそれでも閉じカッコ4連続なんて式が出来てしまいます。
・・・閉じカッコ4連続位は仕方ないですか？

36:名無しさん＠そうだ選挙にいこう
15/05/04 18:01:59.69 .net
>>34
わかりやすさ優先なら作業列をたくさん作ればいい
色々な条件に合うか

37:どうかも1条件に1セル使って、最後に合計を出すとか

38:名無しさん＠そうだ選挙にいこう
15/05/04 18:02:08.49 .net
どういうデータで、どういう計算してるか書かないと；

39:34
15/05/04 18:23:20.41 .net
素早いお返事ありがとうございます。
スミマセン。データや計算を提示するとはエクセルに使った式をそのままコピペで宜しいのでしょうか？
一応、下記の式は無事に動いています。ラベルにしているので漢字の部分も含めてまんまコピペです。
ちなみにこのファイルは4か月前に作った物でチョット手直ししようとしたら自分でも解りづらくて
難渋しました。
また、書き込みしようとしたら長すぎると怒られたので改行入れてます。
残業終了時間を分類する式です。残業開始時間も似た様な感じでもう少し単純です。
=IF(AND((終了時刻>=VALUE("0:00")),(終了時刻<VALUE("5:00"))),1,IF(AND((終了時刻>=VALUE("5:00")),
(終了時刻<VALUE("22:00"))),2,IF(AND((終了時刻>=VALUE("22:00")),(終了時刻<VALUE("24:00"))),3,
IF(AND((終了時刻>=VALUE("24:00")),(終了時刻<VALUE("29:00"))),4,5))))
残業時間を計算する式です。条件によって似た様な式が8個並んでいます。
=IF(AND((開始時刻_分類=3),(終了時刻_分類=5)),終了時刻-VALUE("29:00"),IF(AND((開始時刻_分類=1),
(終了時刻_分類=2)),終了時刻-VALUE("5:00"),""))

40:名無しさん＠そうだ選挙にいこう
15/05/04 19:17:31.76 .net
長いね。
例えば、時刻を判定するだけの作業列を複数つくる
=AND((終了時刻>=VALUE("0:00")),(終了時刻<VALUE("5:00"))　
とか、名前化しても良いけど視覚化したほうが、後々分かりやすい
メインセルは、それぞれの条件式セルを指定する
あと時刻をいちいち値化しているけど、どこか別のセルに置いとくとかしたほうが単純に書ける
=終了時刻>=そのセル

41:名無しさん＠そうだ選挙にいこう
15/05/04 19:21:04.00 .net
細かく分けて作業列にして、コメントを入れておくのが一番じゃないかな
条件ごとにその条件が成立しているときの作業列に色を塗るみたいな方法もある
後から見て分かるようにするには、簡単な式を最後に統合するぐらいがいい

42:名無しさん＠そうだ選挙にいこう
15/05/04 20:03:52.08 .net
分類する式は対応表つくってVLOOKUP使った方が視認性良いし変更しやすい

43:名無しさん＠そうだ選挙にいこう
15/05/04 20:56:02.94 .net
式に無駄が多すぎる
根本的な解決にはならないけど、もっと短縮できる
例1
=IF(終了時刻<TIME(5,0,0),1,IF(終了時刻<TIME(22,0,0),2,IF(終了時刻<TIME(24,0,0),3,IF(終了時刻<TIME(29,0,0),4,5))))
例2
=LOOKUP(終了時刻,{0,0.208333,0.916667,1,1.208333;1,2,3,4,5})
一覧表+LOOKUPや作業列を使った方がいいだろうね
可能ならVBAを使った方が可読性は上げられるんだが

44:名無しさん＠そうだ選挙にいこう
15/05/04 23:28:08.37 .net
昔作った奴があったな。
ちょっと作りなおしてみるか

45:名無しさん＠そうだ選挙にいこう
15/05/05 00:01:43.96 .net
>>34
URLﾘﾝｸ(www.dotup.org)
作った
入れるのはA2~F3
時刻は「4:30」ではなく「4.3」と入れる
G-Rが作業列でS6が柴舟合計だ

46:名無しさん＠そうだ選挙にいこう
15/05/05 09:58:00.13 .net
Excel2003
例えばB列に別シートから引っ張ってきた値を表示させていて2行目は別のシートが空白なら空白値が入っていたらその値と別のシートの計算けっかによって表示がランダムに変更されるとする
その時1行目は2行目に値の入っている場合に限り1~の連番の数字を表示したい
例
A2に100ならA1は1,B2に100ならB1は2、C2が空白ならC1は空白、D2が100ならD1は3
みたいな感じで、2行目に値があるのを確認して1行目の値を1づつ増やしていきたいのです
VBAでしかできないのならVBA での回答でも可です
可能ですか？

47:名無しさん＠そうだ選挙にいこう
15/05/05 10:35:25.24 .net
>>44
A1=IF(A2="","",COUNTA($A2:A2))
右にコピペ
読みにくい
せめてこれぐらいは点を入れてくれ
例えばB列に別シートから引っ張ってきた値を表示させていて、2行目は別のシートが空白なら空白、
値が入っていたらその値と別のシートの計算けっかによって表示がランダムに変更されるとする

48:名無しさん＠そうだ選挙にいこう
15/05/05 11:01:22.55 .net
>>45
すみません。
以後気をつけます。
どうもありがとうございます。

49:名無しさん＠そうだ選挙にいこう
15/05/05 11:04:37.56 .net
表とか作る時、何行何列目から始めてる？
6行か8行ぐらいから作り始めてる
1～5は作業行なり、重要な数値だけ表から拾って表示させておく場所だったりして、何か開けておきたいんだよね

50:名無しさん＠そうだ選挙にいこう
15/05/05 11:07:09.29 .net
必要になったら挿入すればいいじゃん

51:名無しさん＠そうだ選挙にいこう
15/05/05 11:08:42.30 .net
>>48
VBAで表からデータを取得する際にあとでいじるの大変だからあまり挿入は…

52:名無しさん＠そうだ選挙にいこう
15/05/05 11:20:44.09 .net
>>47
1行目が見出しでデータは二行目
設定項目は別シート
こうしておけばなんとでもなる
あと>>49の通りフォーマット変わるとぐっちゃぐちゃになって地獄が始まる

53:名無しさん＠そうだ選挙にいこう
15/05/05 11:28:47.05 .net
>>50
最近、別シートにそういう項目を用意しておけば、多少可読性は落ちるけど怯えることはなくなると気づいてそれを始めた
すごくどうでもいいけどリボンとコマンドの表示ってやつどうしてる？俺は見出しだけにしてるけど

54:名無しさん＠そうだ選挙にいこう
15/05/05 11:32:08.60 .net
>>45
僕の説明が悪く、やりたいことが伝わらなかったようなのでもう一度書きます。
2行目に別のシートからの値が入る
1行めに1からの連番とかきましたが、
詳しく書くとA1に入れる数字は1からという訳ではないです。
２行目に数字があるとこの、同列の1行目に任意の数字を自分で入力し、２行目に自動で数字が入っているとこの、真上に任意の数字の連番を、自動でいれたいのです。
A~L列まで使用しています。
例
A2,C2,F2,L2に別のシートからの値が入っているとしたら、
A1に仮に15ならC1に16,F1に17,L1に18
でB,D,E,G,など、２行目に数字がないとこは、空白を返すと言う事をやりたいです。
可能ですか？

55:名無しさん＠そうだ選挙にいこう
15/05/05 11:38:19.39 .net
>>49
あとで表の位置をいじるの前提なら、左上の座標を変数に入れておくけどな

56:名無しさん＠そうだ選挙にいこう
15/05/05 11:42:07.40 .net
>>52
A1は自分で入れた数値
B1=IF(B2="","",COUNTA($A2:B2)+$A1-1)
B1を右にコピペ

57:名無しさん＠そうだ選挙にいこう
15/05/05 11:43:13.55 .net
>>53　そゆことだね　ワークシート関数でも範囲は名前定義しとくもの　マジックナンバーを入れるのは素人

58:名無しさん＠そうだ選挙にいこう
15/05/05 11:45:35.02 .net
>>51
リボンにかぎらず可能な限りデフォで使うようにしてる
会社のが共用PC多いから、自分をデフォに合わせてる
昔はカスタマイズしまくってたんだけどねぇ

59:名無しさん＠そうだ選挙にいこう
15/05/05 12:02:09.40 .net
サポートの仕事やってるから、標準状態のメニュー位置を覚えるのは基本
その上で、どんなカスタマイズができるのか把握するのも重要
他人と一切関わらないなら好き勝手にカスタマイズしたりフリーウェアとか使うんだけど
そうも言ってられない

60:名無しさん＠そうだ選挙にいこう
15/05/05 12:05:07.48 .net
>>53
＞>>49
＞あとで表の位置をいじるの前提なら、左上の座標を変数に入れておくけどな
なるほどな
これは参考になる

61:名無しさん＠そうだ選挙にいこう
15/05/05 12:25:40.11 .net
数年ぶりに2003触ったら全く使えなくてショックだったな

62:名無しさん＠そうだ選挙にいこう
15/05/05 12:39:06.19 .net
EXCEL2010をWindows8.1で使うと計算を含めたセルをコピーした時に
動作がもたつくことがあるんだがうちだけかな？

63:名無しさん＠そうだ選挙にいこう
15/05/05 16:28:13.35 .net
>>60
それ単に、スペック不足とかプチフリだろ

64:名無しさん＠そうだ選挙にいこう
15/05/05 16:30:30.19 .net
>>61
エクセルを立ち上げてから1回めのセルをドラッグした時のコピーのみ起きます。
i7、メモリ8GBなのでスペック不足ではありません。

65:名無しさん＠そうだ選挙にいこう
15/05/05 18:15:19.99 .net
>>62
windows8 セルコピー重い
でぐぐってかたっぱしから試してみて
win7なんで知らん

66:名無しさん＠そうだ選挙にいこう
15/05/05 23:48:35.88 .net
>>62
8.1でoffice professionalとhome and business両方使ってるがなんともないな

67:名無しさん＠そうだ選挙にいこう
15/05/06 00:02:53.02 .net
お二人に質問。何となくハードウェアの問題っぽい気がする。
>>62 >>64
HDDですか？SSDですか？

68:名無しさん＠そうだ選挙にいこう
15/05/06 07:04:52.52 .net
【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2013
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

勤務表で、指定された日にちの出勤数の合計を各人で求めたいのですが、どうすればいいでしょうか？
例えば、5月は、4日、7日、10日、17日が指定された日だとして、
Aさん～Eさんの勤務表が、○と休で、1日～31日まで作られています。
そこから、その指定された上記4日間の出勤数を、
Aさん： 3日
Bさん： 2日
Cさん： 4日
...
のように計算したいのです。
毎月「指定の日にち」は異なるので、
Aさん　Bさん　Cさん ...　指定日
○　　　○　　　○　　　☆
休　　　休　　　○
○　　　休　　　休
○　　　○　　　○　　　☆
のように、毎月手動で☆マークをつけると計算されるようなシートにしたいです。
説明が苦手なので伝わりづらいかも知れませんが、よろしくお願いします・・・。

69:名無しさん＠そうだ選挙にいこう
15/05/06 09:56:05.76 .net
>>66
I1=Aさん～M1=Eさん
と１列ずつに割り振っているとして
I2=SUM((B$2:INDEX(B:B,COUNT($A:$A))="○")*($G$2:INDEX($G:$G,COUNT($A:$A))="☆"))
CTRL+SHIFT+ENTERで確定
後は、M2までオートフィル
H2=COUNT($A:$A)
書式設定のユーザー定義で　全体日数0日にして、
I2=SUM((B$2:INDEX(B:B,$H$2)="○")*($G$2:INDEX($G:$G,$H$2)="☆"))
CTRL+SHIFT+ENTERで確定
M2までオートフィル
にしちゃうという手段もある

70:名無しさん＠そうだ選挙にいこう
15/05/06 09:57:17.42 .net
>>65
professionalはHDDとSSD
homeの方はSSD

71:名無しさん＠そうだ選挙にいこう
15/05/06 09:57:41.04 .net
>>67
改行し忘れた
M2までオートフィルで一手段完了
おまけとして、その後の数式短くするためにH2=～は書いた

72:名無しさん＠そうだ選挙にいこう
15/05/06 19:25:20.85 .net
>>66
URLﾘﾝｸ(www.dotup.org)
解凍pass 無し　DLpass mnbvc
てきとーなのでいかようにも改変して使いたまえ　ﾊﾞｰｼﾞｮﾝ古くてもいいようにxls

73:名無しさん＠そうだ選挙にいこう
15/05/07 01:08:11.31 .net
テンキーいまいち使えない
気づいたらテンキーじゃない方のキーで数字打ってる

74:名無しさん＠そうだ選挙にいこう
15/05/07 01:17:54.64 .net
>>71
そりゃ羨ましい
コンパクトキーボード使いには憧れる
俺はテンキー内と無理だ

75:名無しさん＠そうだ選挙にいこう
15/05/07 01:25:03.83 .net
>>72
ノートで作業することも多いしテンキー有りと無いとで作業感が変わるのも嫌だし覚える気がないってのはある
テンキー本当に慣れないんだけどさ。

76:名無しさん＠そうだ選挙にいこう
15/05/07 08:05:38.63 .net
オレは経理関係やってからテンキー必須の体になってしまった

77:名無しさん＠そうだ選挙にいこう
15/05/07 09:37:19.98 .net
>>74
まぁ、電卓必須の仕事やってる人間にとって、テンキーは必須だわな。
なので、俺は単独で電卓としても使えるテンキーを使ってる。
USBで繋げていない時は、単体で電卓として使える優れものだ。

78:名無しさん＠そうだ選挙にいこう
15/05/07 21:06:33.87 .net
Excel2010で、
２行目にランダムにA~Z列までランダムに数字が表示されていて、
1行目には、２行目に数字が入っているところの上の列だけ数字を入れる
数字は、1からではない。
1行目には、２行目の1番最初に数字が入っている真上の列に入力する
1行目の最初の列に数字を入力したら、２行目に数字が入っているセルの上の行だけ、1行目の最初に入力した数字＋1ずつした値をZ列まで表示
みたいなこと出来ます？

79:名無しさん＠そうだ選挙にいこう
15/05/07 21:16:31.1

80:4 .net

81:名無しさん＠そうだ選挙にいこう
15/05/07 21:22:59.46 .net
>>77
２行目はA~Zまで数式が入っていて、条件を満たした場合だけ表示されているので、表を編集すると、当然、空白になるとこも変わります。

82:34
15/05/07 21:34:08.67 .net
こんばんは。GWで家族サービスしていました。お返事遅くなり申し訳ありません。
>>41様、>>43様
具体的なアドバイス有り難う御座います。
関数に対して全く無知で恥ずかしい式をさらけ出してしまいました。
>>41様
lookup関数は時間に対しても使用できるのですね。勉強になりました。
>>43様はファイルまでアップして頂き誠に申し訳ありません。
正直、あれだけシンプルな式でどうしてこれだけの事が出来るのか
チンプンカンプンですがググって式の意味を自分の物にしたいと思います。
取り敢えずはこれらを使ってメンテナンス性の良い物にします。
今回は本当にありがとうございました。
このスレの皆さんに良い事がありますように。

83:34
15/05/07 21:52:45.94 .net
>>38様、>>39様
"困った"にアドバイスありがとうございます。
何分、滅多に自分でエクセルの表を作らない為、
基本的なお作法も良く解っておりませんでした。
書き込みした後で作業列を非表示＆保護すれば
見栄えが良くなる＆表も壊されない事を知りました。
これなら他人に見られても安心です。
重ねてありがとうございました。

84:名無しさん＠そうだ選挙にいこう
15/05/07 23:34:25.56 .net
>>75
電話とボタン配置が違うのが気持ち悪い。

85:名無しさん＠そうだ選挙にいこう
15/05/07 23:45:55.64 .net
電話と電卓は配置が違うのが常識だが
もう電卓使ったこと無い世代がいるのな

86:名無しさん＠そうだ選挙にいこう
15/05/08 06:57:49.65 .net
>>82
去年まで家の電話がダイヤル式だった俺はむしろ比較する方に違和感が

87:名無しさん＠そうだ選挙にいこう
15/05/08 07:26:05.77 .net
>>83
子供の頃ウチにはダイヤル式ですらない、
交換手を呼び出して通話先を口頭で伝える形式の電話機が有った。
その時点でもう利用してなくて単なるオブジェと化していたけど。

88:名無しさん＠そうだ選挙にいこう
15/05/08 07:41:52.02 .net
誰か76に答えられませんか？

89:名無しさん＠そうだ選挙にいこう
15/05/08 08:13:58.63 .net
>>81
だから何？

90:名無しさん＠そうだ選挙にいこう
15/05/08 08:55:16.60 .net
質問が似てるけど>>44と>>76は別人？

91:名無しさん＠そうだ選挙にいこう
15/05/08 10:48:34.59 .net
>>65
HDDです。Excelが32ビット版でWindows8.1が64ビット版なんですが。
計算式というか他のセルを参照する数式が入っているセルをコピーした時のみ起きるようです。
Excel立ち上げ後1回目のみです。

92:名無しさん＠そうだ選挙にいこう
15/05/08 12:28:02.77 .net
>>76は作業行使っていいならできた
作業行使えないんだと俺じゃ実力不足かな

93:名無しさん＠そうだ選挙にいこう
15/05/08 13:02:46.71 .net
>>76
A1はテキトーに
B2=IF(B2="","",MAX($A$1:A1)+1)

94:名無しさん＠そうだ選挙にいこう
15/05/08 13:36:39.70 .net
>>90
2個目の数式は
B2 = ……
じゃなくて
A2 = ……
だね

95:名無しさん＠そうだ選挙にいこう
15/05/08 13:39:04.94 .net
>>91
あー
そしてそうでもない
B1=IF(B2="","",MAX($A$1:A1)+1)
だった

96:91
15/05/08 13:40:37.82 .net
あ、違う
A2でもB2でもなく
B1 = ……
だった。
ごめんなさい、寝ぼけてました。

97:名無しさん＠そうだ選挙にいこう
15/05/08 14:08:20.52 .net
教えていいただき、ソフトウエア板総合質問スレッド Vol.5　から来ました。
エクセルのデータ入力の修正方法について質問があるのですが。。。。
セルに入力した数字を上書き修正するために、そのセルをクリックして数字を上書きした後に、
Enterキーを押すと、元の文字に戻ってしまいます。（普通は上書きされますよね）
また、セルをダブルクリックして編集状態になったところで、Delキーで数字をすべて消して、
空白になったところに数字を入力し、Enterキーを押しても、元の数字に戻ってしまいます。
今まではこの方法で修正できていましたが、１つのセルだけどうしても修正できません。
何か操作方法が間違っているのでしょうか？　
どなたかご教授しただけると助かります。
どうぞよろしくお願いします。
【1 OSの種類　　　　 .】 Windows Vista
【2 Excelのバージョン　】 Excel 2010
【3 VBAが使えるか　　 .】はい・いいえ
【4 VBAでの回答の可否】可･否
※すみません、VBA が何のことかわからないので、回答しませんでした。

98:名無しさん＠そうだ選挙にいこう
15/05/08 15:55:02.78 .net
>>92
せっかく回答していただいたのですがやりたいことと違います。
1行目に数字入れるのは、どの列とか決まってなくて、
表を編集したときに、２行目の最初に値が入っている、真上の列に最初の数字を入れたいのです。
なので、例えば、最初C2に値が入れば、C1に1行目のスタートの数字を入力し、D~Zまで、値が入っている行の真上に＋1した値を表示したいです。
その日によって、A~Zのどの列に最初の値が表示されるのかは、分からないので、数式での対応ができません。
条件付き書式で対応出来ないかと、考えているのですが、分からないので、お願いします。

99:91
15/05/08 16:41:45.55 .net
>>95
「最初の数字」が "1" 固定になっちゃうけど、
A1=IF(A2="","",COLUMN()-COUNTIF($A2:A2,""))
とかはどう?
なんなら何処かのセル（例えばA3）に「最初の数字」を入れるようにして
A1=IF(A2="","",COLUMN()-COUNTIF($A2:A2,"")+$A3-1)
とかさ
それで駄目ならあとはVBAになるんじゃないかなぁ

100:名無しさん＠そうだ選挙にいこう
15/05/08 16:46:13.81 .net
>>96
やはりVBAでやるしかないですか…
VBAでマクロを組んだことがないので、もしよろしかったら教えていただきたいです。

101:名無しさん＠そうだ選挙にいこう
15/05/08 16:49:49.26 .net
>>97
VBAとマクロは別物だが？

102:91
15/05/08 16:58:30.72 .net
>>97
>>96では駄目ですか?

>>98
それ、今ここで区別する必要あるの?
区別せんでも問題なく話が通じてるんだけど。

103:名無しさん＠そうだ選挙にいこう
15/05/08 17:11:09.98 .net
>>95
>その日によって、A~Zのどの列に最初の値が表示されるのかは、分からないので、数式での対応ができません。
そんな事ない作業行使えば出来ると思うが
最初の値に対応した1行目の数字はどのような条件で決まるの？

104:名無しさん＠そうだ選挙にいこう
15/05/08 17:32:00.76 .net
>>100
前日から引き継がれる番号になります。
なので1から始まる訳ではないのと、基準となる最初の数字を入力するセルの列が、日によって異なる為、数式では無理なのでは、と思いました。
やる方法があれば、数式でも条件付き書式でも良いので、是非お願いします。

105:名無しさん＠そうだ選挙にいこう
15/05/08 17:48:04.82 .net
>>101
最初の日は1から始まるの？
日がかわるとSheetが変るの？

106:名無しさん＠そうだ選挙にいこう
15/05/08 17:58:04.74 .net
最初の日は1からです。
シートは変わりません。
２行目の値だけ日々、変更していっています。
現在は、２行目に値が入っている列の真上に、全て手入力で入力しているので、それを一つだけ入力するだけにしたいのです。

107:名無しさん＠そうだ選挙にいこう
15/05/08 18:22:51.98 .net
>>76
A3=(COUNT($A2:A2)=1)*1
をZ3までオートフィル
これで2行目の最初に数字がある列がどこかわかるから
A1=IF(A2="","",IF(A3=1,A3,INDEX($A3,$Z3,0,MATCH(1,$A3:$Z3,0))+COUNT($A2:A2)))
Z1までオートフィル
って感じでどうだろう
実画面ではなく携帯から打っているのでスペルミスなどあったら済まそ

108:名無しさん＠そうだ選挙にいこう
15/05/08 18:52:59.75 .net
>>104
条件付き書式でなく、普通にセルにその数式を入れればいいですか？

109:104
15/05/08 18:55:45.20 .net
ああ一行目の一個目は数字を記入するのか
だったら１行目を
A1=IF(A2="","",INDEX($A1:A1,0,MATCH(1,$A3:A3,0))+COUNT($A2:A2)-1)
でZ1までオートフィルに修正かな
実環境手元に今ないから、適当入力だけど

110:名無しさん＠そうだ選挙にいこう
15/05/08 19:00:47.27 .net
>>105
そう
>>104の作業行と>>106の本番行を組み合わせればできると思う
作業行は任意の行目に�

111:ｵちゃって問題ない

112:名無しさん＠そうだ選挙にいこう
15/05/08 19:42:51.46 .net
>>107
やってみたらきっちり1から連番で表示されたんですが、1行目に数式を入れているので1行目に始めの数字を入力できません。

113:名無しさん＠そうだ選挙にいこう
15/05/08 19:43:27.31 .net
>>94
書式設定・入力規則・vbaのどれかだと思う
もしわからないならそのファイルをアップロードしてほしい。俺も見ないと分からん。

114:名無しさん＠そうだ選挙にいこう
15/05/08 20:06:18.58 .net
案としては、
AA1で数字を入力することで、
A3=(COUNT($A2:A2)=1)*1
Z3までオートフィル
A1=IF(A2="","",IF(A3=1,$AA1,INDEX($A1:A1,0,MATCH(1,$A3:A3,0))+COUNT($A2:A2)-1))
Z1までオートフィル
なんていうのはどうだろう？
計算式を消すことなく、数字の入力が可能になる

115:名無しさん＠そうだ選挙にいこう
15/05/08 20:06:44.75 .net
>>110は、>>108宛て

116:名無しさん＠そうだ選挙にいこう
15/05/08 20:08:25.00 .net
>>110
それが一番良さそうなので、そうさせてもらいます。
皆様、本当にありがとうございました。

117:10人に一人はカルトか外国人
15/05/08 23:46:09.70 .net
★マインドコントロールの手法★
・沢山の人が偏った意見を一貫して支持する
　偏った意見でも、集団の中でその意見が信じられていれば、自分の考え方は間違っているのか、等と思わせる手法
・不利な質問をさせなくしたり、不利な質問には答えない、スルーする
　誰にも質問や反論をさせないことにより、誰もが皆、疑いなど無いんだと信じ込ませる手法

偏った思想や考え方に染まっていたり、常識が通じない人間は、頭が悪いフリをしているカルト工作員の可能性が高い
靖国参拝、皇族、国旗国歌、神社神道を嫌うカルト
10人に一人はカルトか外国人
「ガスライティング」で検索を！
...

118:名無しさん＠そうだ選挙にいこう
15/05/09 01:27:17.73 .net
vbaとマクロ違うのか
全然意味わかんないけどなんか使えてるから気にしなくていいや

119:名無しさん＠そうだ選挙にいこう
15/05/09 01:38:10.67 .net
VBAは言語の名前。
マクロ・スクリプトはメインのものに対して自動操作する言語の総称。
またコード自体をマクロと呼ぶ場合もある。「マクロの記録」などまさにそれ
>>97は正しい。
エクセルの場合シートやブックの内容を補助するように動けばマクロだし、
シート・ブック関係なしで動くものはもはやマクロと呼べない
つまり「伝われば何でもいい」

120:名無しさん＠そうだ選挙にいこう
15/05/09 10:12:52.67 .net
EXCELのスレなんだから、マクロ＝VBAと解釈で問題ないだろ。
古いバージョンならVBAじゃないEXCELマクロもあったけど。
だから、「VBAでマクロを組んだこと」と言い方は、「頭痛が痛い」と言うのと同じ。

121:名無しさん＠そうだ選挙にいこう
15/05/09 10:24:32.95 .net
【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
このような表を↓
おにぎりジュースお茶
鈴木１６
佐藤２
田中５３
中村１０
このようなリストにしたいです↓
鈴木おにぎり１
田中おにぎり５
鈴木ジュース６
中村ジュース１０
佐藤お茶２
田中お茶３
「リスト」から「表」の状態にするのは、よくピボットテーブルを使うのですが、
今回は「表」の状態のものを「リスト」の形にしたいです。
イメージとしましては、表の中にある「鈴木おにぎり」の「１」のセルから
下方向に参照していって、該当する数字があるところだけリストに抽出、
表の一番下に行ったら次の「鈴木ジュース」の「６」のセルから
下方向に参照…という流れをマクロで作れませんでしょうか。
宜しくお願いします。

122:名無しさん＠そうだ選挙にいこう
15/05/09 10:29:53.53 .net
すみません！
このような表を↓
　　　　おにぎり　　ジュース　　お茶
鈴木　　　１　　　　　　６
佐藤　　　　　　　　　　　　　　　　２
田中　　　５　　　　　　　　　　　　　３
中村　　　　　　　　　　１０

123:名無しさん＠そうだ選挙にいこう
15/05/09 11:57:29.82 .net
>>117
配列にぶっこんで、ループで回す

124:名無しさん＠そうだ選挙にいこう
15/05/09 12:02:45.86 .net
>>117
Sub mac

125:ro1() 　　Sheets("Sheet1").Activate　　'表のあるシート　　r = 1 　　With Sheets("Sheet2")　　'リストを作るシート　　　　For Each c In Range("b2:z100")　　'見出しを除いたデータの範囲　　　　　　If c.Value <> "" Then 　　　　　　　　.Cells(r, 1) = Cells(c.Row, 1) 　　　　　　　　.Cells(r, 2) = Cells(1, c.Column) 　　　　　　　　.Cells(r, 3) = c.Value 　　　　　　　　r = r + 1 　　　　　　End If 　　　　Next 　　End With End Sub

126:名無しさん＠そうだ選挙にいこう
15/05/09 21:28:30.91 .net
▼━質問テンプレ (必ず使ってね) ━━
【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はいいえ
【4 VBAでの回答の可否】否
　　
赤　　重量　10　　このような表で重量だけ（回数だけ）の合計を出したい場合はどうすればいいですか？
　　　回数　 2
青　　重量　25
　　　回数　 3
黄　　重量　 8
　　　回数　11
以下50種類くらい続く

127:名無しさん＠そうだ選挙にいこう
15/05/09 21:32:15.92 .net
>>121　追記します
　　
赤　　重量　10　　このような表で重量だけ（回数だけ）の合計を出したい場合はどうすればいいですか？
　　　　　　　\200　またこの表で合計の金額を出したい時もお願いします
　　　回数　 2
青　　重量　25
　　　　　　　\350
　　　回数　 3
黄　　重量　 8
　　　　　　　\150
　　　回数　11
以下50種類くらい続く

128:名無しさん＠そうだ選挙にいこう
15/05/09 21:33:55.11 .net
>>120さんどうもありがとうございました
>>121さんはsumif関数を使用してください

129:名無しさん＠そうだ選挙にいこう
15/05/09 22:28:05.14 .net
>>123
合計金額はこれでいいすかね
=SUMIF(B1:B9,"",C1:C9)

130:94＠Excel初心者
15/05/10 18:44:05.80 .net
>>109さん　>>94です。
一つのセルだけ数字を入力しても、なぜか日付になってしまい、
なぜ上書き修正できないのか分からなかったのですが、
109さんのレスを見て、何か原因があるのだと思い、
ネットで調べて「書式設定」で解決できました。
お礼が遅くなってすみません。
どうもありがとうございました！

131:名無しさん＠そうだ選挙にいこう
15/05/11 00:13:02.13 .net
メモ帳ファイル中の、ある特定のキーワードがある行から4行を拾ってくることって可能ですかね？

132:名無しさん＠そうだ選挙にいこう
15/05/11 00:16:23.60 .net
>>126
vbaで可能
URLﾘﾝｸ(officetanaka.net)
か、
vba テキスト読み込み
でぐぐればそれっぽいのがいっぱい出てくると思う
一度やってみてわからない所あれば、また聞きに来るとよろし

133:名無しさん＠そうだ選挙にいこう
15/05/11 00:43:19.07 .net
>>127
タブ区切りになってるのをどうコンマ区切りにするか少しイメージつかなかったんですが、line inputですね、少しやってみます

134:名無しさん＠そうだ選挙にいこう
15/05/11 11:55:02.29 .net
Windows7Pro Excel2010です。
Excelで「ファイル」 → 「添付ファイルとして送信」の際に
ブラウザを立ち上げてGmailで送信することは可能でしょうか？
mailtoリンクをWin高速化でGmailにしてもOutlookが立ち上がってしまいます。
webのmailtoリンクをクリックすればgmailが立ち上がるのですが…。
何か方法はありませんか？

135:名無しさん＠そうだ選挙にいこう
15/05/11 12:26:48.73 .net
[マクロ]不可
[環境]スマホの疑似Excel
CONCATENATE関数で結合した文字列を、検索する方法はあるのでしょうか？

136:名無しさん＠そうだ選挙にいこう
15/05/11 12:28:10.92 .net
ふつうにできるし

137:名無しさん＠そうだ選挙にいこう
15/05/11 18:48:24.21 .net
>>129
多分無理じゃない？
>>130
検索するときに　値　を選択

138:名無しさん＠そうだ選挙にいこう
15/05/11 21:05:36.16 .net
>>132
値検索ってなんのこっちゃ。
素直にテキスト化するかな、まあありがとう。

139:名無しさん＠そうだ選挙にいこう
15/05/11 21:09:49.80 .net
>>133
URLﾘﾝｸ(www.dotup.org)

140:名無しさん＠そうだ選挙にいこう
15/05/11 22:50:23.80 .net
【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2010
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可（必要ないと思われますが）

左から列A-E　上から行1（項目列）として
月日　　　　項目　　　　　　　収入　　　支出　　　　残金
5/1　　　前月

141:繰越金　　　　　　　　　　　　　　　　　10,000 5/1　　　会費　　　　　　　　　3,000　　　　　　　　　（=E2+C3-C4）　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↓オートフィルって感じの帳簿を作ってて、残金のところは、収入の所に金額が入ればプラス、支出の所に入ればマイナスとして結果を残金に反映させるんですが収入or支出に金額が入れば残金に入って、入ってない時は空欄にしたいんです。 IF関数だと思うんですがぐぐってもうまい例題が見つからなくて。よろしくお願いします。

142:名無しさん＠そうだ選挙にいこう
15/05/11 22:57:35.50 .net
>>135
条件付き書式で空欄の時は文字を白にする

143:名無しさん＠そうだ選挙にいこう
15/05/11 23:00:50.45 .net
>>135
=IF(C3+D3>0,E$2+SUM(C$3:C3)-SUM(D$3:D3),"")

144:名無しさん＠そうだ選挙にいこう
15/05/11 23:27:10.73 .net
>>137
ありがとうございます！まさにこれでした
>>136
なるほど、条件付き書式ですか
色々使いようがあるんですが思いつきませんでした
ありがとうございます

145:名無しさん＠そうだ選挙にいこう
15/05/11 23:38:44.11 .net
マニュアル作りで1枚1枚キャプチャするのがめんどくさく、動画で作成して、必要ならその動画から静止画を取り出すってことをしておられる方いますか？PC負担かけずに動画ファイルも軽い、そんなデスクトップ動画キャプチャソフトありませんか？

146:名無しさん＠そうだ選挙にいこう
15/05/11 23:46:00.58 .net
>>139
スレ違いだが、エクセルのマニュアルと思って回答するか
＞PC負担かけずに動画ファイルも軽い
原理的にこれは無理。動画を軽くするのはPCにかなり負担をかける。
とりあえずその様子だと複雑なことが出来そうにないので
「アマレココ」と「つんでれんこ」を使え
amarecocoは超簡単キャプチャ。
つんでれんこは超簡単動画変換。
これで無理ならペイントで頑張れ。

147:名無しさん＠そうだ選挙にいこう
15/05/12 00:40:54.68 .net
シートが15枚あるようなブックで切り替えるとき、マウスの割り当てボタンにpageup、pagedownをやってる。とても楽。
しかしマウスのない環境や割り当てキーができないマウスだとキーボードでショートカットしなきゃいけない
それがすごく不便に感じる…

148:名無しさん＠そうだ選挙にいこう
15/05/12 00:44:52.78 .net
>>141
突っ込みどころが多すぎてどこから言おうかと思ったが、眠い

149:名無しさん＠そうだ選挙にいこう
15/05/12 00:50:11.05 .net
>>142
突っ込んでくれ
15枚あるようなブックがそもそもおかしいって？

150:名無しさん＠そうだ選挙にいこう
15/05/12 00:54:13.99 .net
そもそもマウス使うよりキーボード使うほうが楽とか、そういう話じゃね

151:名無しさん＠そうだ選挙にいこう
15/05/12 01:03:34.38 .net
俺の使い方が下手くそなんだと思う
歪な成長をしているという自覚はある

152:名無しさん＠そうだ選挙にいこう
15/05/12 01:07:34.95 .net
>>144
まぁ普通そうだわな
>>145
上限低いし応用効かないからデフォに慣れておいたほうがいいぞ

153:名無しさん＠そうだ選挙にいこう
15/05/12 01:09:22.36 .net
>>146
デフォってのはどこで教えてくれるんだ？
そういった作法についてはほぼ独学なんだが
なるべくキーボードから手を離さないで済むように考えろということなのかね

154:名無しさん＠そうだ選挙にいこう
15/05/12 01:18:44.71 .net
デフォ＝既定の設定
設定を弄っていない環境を見れば分かる

155:名無しさん＠そうだ選挙にいこう
15/05/12 07:16:26.81 .net
>>143
１５枚ぐらいたいした数でもないような
２０社相手にそれぞれ一シート使って売り上げ一覧とか作ってるし
串刺しで色々できるからシート分けた方が楽なんだよな

156:名無しさん＠そうだ選挙にいこう
15/05/12 08:53:03.69 .net
経理項目ごとにシート作ってるから15くらい余裕であるんだが

157:名無しさん＠そうだ選挙にいこう
15/05/12 09:55:18.32 .net
シートは3枚ってことか？A1形式R1C1形式を自由に切り替えるアドイン以外、インストールしたときから特に何もいじってないんだが

158:名無しさん＠そうだ選挙にいこう
15/05/12 11:22:18.70 gKRsMZR90
>>139
win8ならOSに「ステップ記録ツール」がある

159:名無しさん＠そうだ選挙にいこう
15/05/12 11:40:10.71 .net
並べて比較するとわかりやすい
URLﾘﾝｸ(koigakubo.seesaa.net)

次ページ