Excel VBA 質問スレ Part31

1 ：2013/08/13 〜 最終レス ：2013/09/25

ExcelのVBAに関する質問スレです
★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。
★2 ExcelのVBA以外の部分に関する質問はNGです。
　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。
★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。
　VBAとは､『Visual Basic for Applications』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　 ｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。
★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。
★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み、
　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。
★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R）
前スレ:Excel VBA 質問スレ Part30
http://toro.2ch.net/test/read.cgi/tech/1370088822/
関連スレ：VBAなんでも質問スレ
http://toro.2ch.net/test/read.cgi/tech/1342087380/

2 ：

01 http://pc11.2ch.net/test/read.cgi/tech/1054356121/
02 http://pc11.2ch.net/test/read.cgi/tech/1168308855/
03 http://pc11.2ch.net/test/read.cgi/tech/1180192018/
04 http://pc11.2ch.net/test/read.cgi/tech/1189814602/
05 http://pc11.2ch.net/test/read.cgi/tech/1197448064/
06 http://pc11.2ch.net/test/read.cgi/tech/1205231499/
07 http://pc11.2ch.net/test/read.cgi/tech/1212587819/
08 http://pc11.2ch.net/test/read.cgi/tech/1219673793/
09 http://pc11.2ch.net/test/read.cgi/tech/1228372971/
10 http://pc12.2ch.net/test/read.cgi/tech/1235332603/
11 http://pc12.2ch.net/test/read.cgi/tech/1241885130/
12 http://pc12.2ch.net/test/read.cgi/tech/1247566074/
13 http://pc12.2ch.net/test/read.cgi/tech/1254281104/
14 http://pc12.2ch.net/test/read.cgi/tech/1262748898/
15 http://pc12.2ch.net/test/read.cgi/tech/1271261239/
16 http://hibari.2ch.net/test/read.cgi/tech/1280045912/
17 http://hibari.2ch.net/test/read.cgi/tech/1289182437/
18 http://hibari.2ch.net/test/read.cgi/tech/1298240666/
19 http://hibari.2ch.net/test/read.cgi/tech/1305754555/
20 http://hibari.2ch.net/test/read.cgi/tech/1312435844/
21 http://hibari.2ch.net/test/read.cgi/tech/1316931607/
22 http://toro.2ch.net/test/read.cgi/tech/1322400978/
23 http://toro.2ch.net/test/read.cgi/tech/1327763113/
24 http://toro.2ch.net/test/read.cgi/tech/1334305148/
25 http://toro.2ch.net/test/read.cgi/tech/1341722983/
26 http://toro.2ch.net/test/read.cgi/tech/1345363310/
27 http://toro.2ch.net/test/read.cgi/tech/1353842387/
28 http://toro.2ch.net/test/read.cgi/tech/1359607536/
29 http://toro.2ch.net/test/read.cgi/tech/1364689772/

3 ：

Debug.Print "乙"

4 ：

Excel2002からExcel2010にバージョンアップしたら下記のところでエラーが出て止まるようになった。
毎回必ずエラーになるわけではなく、たまに上手くいく時もあったりして再現性はあやふやだけど。
Worksheets(SheetA).Rows(RowA).Copy Destination:=Worksheets(SheetB).Rows(RowB)
しょうがないから下記に書き直したらエラーは全く出なくなった。
Worksheets(SheetA).Rows(RowA).Copy
Worksheets(SheetB).Rows(RowB).PasteSpecial
なぜ？

5 ：

>>4
どんなエラーメッセージが出てるのか分からないと何も答えられないんじゃないかな？
個人的にExcel2010の環境がないから回答できないけど。

6 ：

>>5
「オブジェクトは、このプロパティまたはメソッドをサポートしていません」
と出て処理が止まってしまう。でも、実際にSheetBを見るとちゃんと指示通りにCopyが出来ている。

7 ：

>>6に追記　OSはwindows8

8 ：

>>4
フォーマットが違ってるブックやシート混在してて、
2002と2010の最大行列の違いでエラーはいてるとか・適当だけど。

9 ：

age

10 ：

ググってもダメ、自力ではエラーだらけで困りました。
数人のメンバーが週間行事予定を「予定表.xls」に記入し、
マクロ実行で同じフォルダ内にある「週間予定表.xls」に転記、
上書きされ共有予定表を作成したいです。
予定表原紙にしか記入はしません。
A　日時
B　内容
C　参加者
D　備考
といった感じに記入します。
記入行数はA4〜G10まで、ただし数値は週によりバラバラです。
コピーマクロを使用すると、罫線までコピーされてしまいました。
どのようなマクロを組んだら良いかご教示頂けませんでしょうか？

11 ：

マクロの記録で値のみ貼り付けを調べてみたら？

12 ：

>11
ありがとうございます。だいたいやりたいことはできました。
ただ、最終行に追記できないのでここの分を少々悩んでみます。

13 ：

同じフォルダならマクロより共有と参照で良さそうだけどダメなのか。謎や。

14 ：

>13
個人用と共有用ではファイルを分けなければならない事情があるので
共有と参照では困るんです。

15 ：

>>12
よく分からんが頑張って

16 ：

「編集」→「形式を指定して貼り付け」
罫線なしで貼り付けできます

17 ：

>>8
同じブック内でのシート間Copyの際に>>4のエラーが出ます。
SheetAもSheetBも最大行列数は同じで、1-66536、A-IV です。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1270787107
↑似たようなところでエラー出してたこの人は結局解決したんだろうか。
こっちの回答のようにDestinationを略して書いてもエラーは出る。

18 ：

Access2010からデータを取得して編集するのにExcel(2010)VBAを使ってるんだけど、
Access2013にしたら動かなくなったと報告が。。。
今その環境が無くて確認も何もできなくて色々ぐぐってみたんだけど、
Access2013環境に対しては、
『Microsoft.ACE.OLEDB.12.0』が使えなくなったの？

19 ：

>>18
そりゃさすがにMSに聞かないと分からん事象じゃないの・・・
逆に、なんで2chで聞こうと思ったの？

20 ：

>>19
レスありがと。
実際は別の理由バグが起きてるのかもしれないけど、
ここ(d.hatena.ne.jp/dojum/20130530)に
それっぽいことが書かれてて。
裏付けしようとMSDNも見てみたんだけど、
それっぽいのが見つからなかったんだ。
で、同じ事象にあった人がいないかなぁと思って、
聞いてみた。

21 ：

ググっても分からず質問させていただきます
例えばA1に『おはよう』と入ってたとして、A6に『おやすみ』が入ってます。
その間最初の文字が半角スペースなのか判断する方法ありますか？
おはようとおやすみにはスペースは入りません。
おはようとおやすみは必ず決まった文章ですが、中の文字列は毎回変更します。
行数も変わります。
よろしければご教授お願いします。

22 ：

>>21
すいません追記です
『おはよう』と『おやすみ』は決まった文章と書きましたが、『おはよう！』の時もあれば『今日もおはよう』の時もあります。
必ずおはようという単語が入ってますが、前後の文章が変わることもあるので決まった文章とはいえませんでした。
大変申し訳ありません。

23 ：

解読班！

24 ：

>>21
VBA 文字 半角 全角
で検索すれば答えが出て来るだろ（適当

25 ：

>>21
> 例えばA1に『おはよう』と入ってたとして、A6に『おやすみ』が入ってます。
> その間最初の文字が半角スペースなのか判断する方法ありますか？
『おはよう』、『おやすみ』の文字列を検索するならInStr関数で対応できる。
最初の文字が半角スペースなのか判断するのもInStr関数で対応できる。

26 ：

>>21
いまいち文意がよくわからんけど、適当に解釈して糞コード書いたぞ
Sub 判定()
　Dim r As Long, r1 As Long, r2 As Long
　r1 = 0
　r2 = 0
　For r = 1 To 65536
　　If InStr(Cells(r, 1), "おはよう") <> 0 Then r1 = r
　　　If InStr(Cells(r, 1), "おやすみ") <> 0 Then r2 = r
　Next r
　If r1 = 0 Or r2 = 0 Then
　　MsgBox "ちゃんと挨拶しろ"
　　Exit Sub
　End If

　For r = r1 + 1 To r2 - 1
　　If Cells(r, 1) <> "" Then
　　　If Left(Cells(r, 1), 1) = " " Then
　　　　MsgBox "半角スペースだっつの"
　　　Else
　　　　MsgBox "半角スペースじゃねっつの"
　　　End If
　　　Exit Sub
　　End If
　Next r
End Sub

27 ：

>>26
仕様も分からないのにコード書くとはアホかと。

28 ：

>>21の仕様とかいちいち真面目に考えてたら日が暮れるわい

29 ：

>>26
自ら糞コードというコードを書き込むなよ。
胸糞悪い。
>>28
別にコード書けって言われてるわけじゃないんだから無理する必要はないだろ。

30 ：

糞コード＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞糞レスの羅列

31 ：

>>27
コードを書くことで「俺はこう解釈した」ということが明確になるんだから、お前より100倍まし。

32 ：

>>27
これぐらいの仕様なら、日本語でやるよりコードで議論した方が確実。

33 ：

だがしかし質問者がコードを読めないという罠

34 ：

>>31
>>32
スレのルールを守れないような奴が糞コード書いて議論なんて呆れたものなんだが。

35 ：

>>34
雑魚はすっこんでろ

36 ：

>>34
荒らしたいの？

37 ：

>>34
議論に入れないからって、拗ねるなよ (w

38 ：

お、おう
議論頑張ってなw

39 ：

自分のせいで荒れてしまって申し訳ない
分かりやすいようにおはようとおやすみにしたけど余計混乱させてしまったようだ
interfaceFastEthernet1
_ip address 10.0.0.1 255.255.255.255
_no shutdown
!
（アンダーバーはスペース）
こうなってるかをチェックするツールを作りたかったんです。
FastEthernetの部分はGigaEthernetになることもあるし、Configデータを外部からテキストファイルで読み込んでいるためデータによってはA1、A6ではないことも有り得ます。
実際はB5〜B500までにデータを読み込ませています。
もし最初の文字が半角スペースじゃない時は同じ行のE列に×を表示させたかったんです。
本当に日本語が不自由で申し訳ありません。

40 ：

本当に日本語が不自由でﾜﾛﾀ

41 ：

>>39
社会人なら上司にその日本語を添削してもらえ
学生なら教師にその日本語を添削してもらえ
で、その結果を書き込んでくれ
頼む

42 ：

別にそういう問題であっても>>26の応用で何とかできそうな気がするけど？
これ以上どこが疑問なのか？

43 ：

>>41
ふつうの日本語だね。桃白白的にはお前の読解力のほうがやばくない？

44 ：

ご教示だろ
で、どこまで分かってて何で困ってるんだ？
分かっただろうが丸投げは荒れるんで勘弁な

45 ：

>>44
教授でも教示でもどっちでもいいよ。教えてほしいってことだろ。
お手紙に草々と書かれていたら俺の頭頂部は決して雑草じゃないが!!と怒り狂うタイプ？
お手紙は心で読むものなんだよ。どういうお気持ちでこのお手紙をお書きになったんだろうかと
思いを馳せながら読むものなんだよ。そうすればクロヤギさんの悲劇も起きなかったんだよ。
知ってる？クロヤギさんお手紙読まずに食べちゃったんだって。おいしいのかな？

46 ：

申し訳ありません。本当に日本語から勉強したほうが良いかもしれません。
やりたい事は簡単に言うとテキストファイルで書いたconfigデータの階層チェックです。
・現在出来ていること
テキストで書いたをConfigをExcel読み込ませてB5〜B500に表示させる事。
・したい事
読み込ませたB5〜B500にある文字列の内、どこかの行にある"interface"という単語がある行から、その後にある"!"!までの間にある文字列の最初の文字が半角のスペースであるかの判断をしたい。
しかし、interfaceがある行と!のある行最初の文字がスペースではなくてよい。。
interfaceと書いてある行は複数あり、!が書いてある行も複数ある。
その複数のinterface〜!間の階層をチェックしたい。
>>26さんの書いてくれたコードを応用して明日学校で試してみます。
本当に申し訳ありません。答えてくれた皆様ありがとうございました。
今度質問するときは日本語を勉強して来ます・・・。

47 ：

>>45
誤用厨と一緒にすんな
「伝わればいいよ」
みんなそれで済ませちゃったら彼は"教授"を使い続ける事になる
小さな恥を積み重ねていくならここで指摘された方がマシだろ

48 ：

チェックだけ、なおかつ数もそんなに多くないということで、createobjectでregexp用意して、"^ .*(interface|\!)"でtestしてtrueかどうか判断すれば良いね。
※正規表現の記述は適当。勉強してね。

49 ：

眉間にシワを寄せざるを得ない程に説明が下手だな。
判断に必要なのは一行なのか複数行になるのかすら分かりかねる。もはや才能だ。

50 ：

>>47
別に間違いじゃないよ。間違いじゃないから恥じゃないよ。
恥じゃないから指摘する意味ないよ。恥を積み重ねているのはあなたなんですよ。

51 ：

>>46
ConfigはExcelの機能ではなくVBAのOpenステートメントとかでロードしたの？
だったらロード時に一緒にやっちゃった方が効率良いね

52 ：

>>49
そう？わかりやすいと思うけど。どうして日本語苦手みたいだね？

53 ：

データのサンプルを用いて
「この行はxxがスペースだから○」
「この行はxxがスペースだけど、次に出現する！が云々だから×」
とか書いた方が早い。
※サンプルデータは実際のデータではなく適当な文字に置き換えた意味のないデータにするんだよ。

54 ：

半角スペースである必要のある行はひとつ右にずらしてロードすればよくね

55 ：

教授が間違いだと言ってる人って目上の人にご苦労様ですと言ってはいけないと思ってそう。
ご飯食べるときにご飯にお箸を突き立てて手を合わせてお参りしてそう。

56 ：

>>54訂正
半角スペースである必要のある行は列を一つ右（C列）にずらしてロードすればよくね

57 ：

>>56
それは無茶だろう。パンを食べずにケーキ食べればよくねとアンネフランクが言うようなもの。
ギロチンものですわ。

58 ：

アンネフランクはどうして出てきた？

59 ：

>>55
そもそもお前に言ったんじゃないしスレチだし間違いじゃない根拠挙げないし
挙句、人格攻撃とは何も変わってねぇな

60 ：

日本語を勉強してから来ると言いましたが来てしまいました。また誤字があったりしたら申し訳ありません。
>>48
ありがとうございます。
明日学校で試してみます！
>>49
本当に自分が嫌になるくらい説明下手ですいません。
複数行になります。interface〜!以外では最初の文字がスペースということは有り得ません。
interface FastEthernet1
ip address 〜 ×
_ no shutdown
!
interface GigaEthernet1
_ip address 〜
_〜〜〜
〜〜〜 ×
_ no shutdown
!
このような物が複数並んでいてその全てを判断したいです。
>>51
そうです。
openステートメントで読込させてます。
一緒にできるんでしょうか？
>>53
なるほど！段階を踏んで考えて行けば出来るかもしれません！
ありがとうございます。
>>54
それも考えたのですが、Excel上で手直しをしてそのまま出力をさせたいのでセルをずらすと出力時困るかなっと思ってこの状態になってます。

61 ：

>>59
根拠ってなんの根拠だ？あ？
何被害者ぶってんだバーカ。
スレ違いだと思うんならどうでもいい揚げ足取りすんなよｗ

62 ：

とりあえず1回分
Sub a()
　　b = 5　　' 5行目から探す
' まずinterfaceを探す
　　Do While InStr(Cells(b, "B"), "interface") = 0 And b < 500
　　　　b = b + 1
　　Loop
　　If b >= 500 Then
　　　　MsgBox ("interfaceが見つからない")
　　　　Exit Sub
　　End If
' 次に ! を探す
　　c = b + 1　　' interfaceの次の行から
　　Do While Cells(c, "B") <> "!" And c < 500
　　　　c = c + 1
　　Loop
　　If c >= 500 Then
　　　　MsgBox ("!が見つからない")
　　　　Exit Sub
　　End If
' 両者の間でスペースを調べる
　　For i = b + 1 To c - 1
　　　　If Left(Cells(i, "B"), 1) <> " " Then
　　　　　　MsgBox (i & "行目にスペースがない")
　　　　　　Exit Sub
　　　　End If
　　Next
　　MsgBox ("チェックOK")
End Sub

63 ：

結局さー教授が間違いだといいたいだけのやつが
誤用厨じゃないと大嘘ついたのが間違いだよね。完全に誤用厨じゃねえかｗ

64 ：

教授と教示は全く寸分違わず同じ意味です。今後教授が間違いだと指摘してくるような知恵遅れには精神病院を紹介して差し上げましょう。

65 ：

トリップつけろよ

66 ：

>>65
トリップつけてない奴にトリップつけろと言われてもトリップ付ける気になりませんなー。出直してこいよｗ

67 ：

>>66
なんではずしたの？酉と箍

68 ：

>>62
なぜ一回ぶんｗｗ
あとは自力でやらないと身にならないよキリッってこと？
イケメン過ぎ抱いて/////

69 ：

>>68
どうせ一回分しか作れないのに初心者に偉ぶりたいんだろ
黙っててやれよ

70 ：

>>67
読めねえよ。常用漢字外はカタカナで書くのが常識だろ。
ひらがなで書け。

71 ：

なあ桃白白、ピラフどこ行ったか知んね？

72 ：

>>71
ぇ・・・知らない。もう寝るよ!!

73 ：

ピラフもういなくなったのか

74 ：

>>39がやりたいだけだったら、自分だったらわざわざプログラミングせずに
E5セルに↓を入れて、あとはE500までざっとオートフィルして、さっさと仕事を終わらして帰っちゃうけどなぁ
=IF(OR(ISNUMBER(FIND("interface",$B5)),ISNUMBER(FIND("!",$B5)))=FALSE,IF(LEFT($B5,1)<>" ","×",""),"")

75 ：

>>74
interfaceより前と、 ! より後の行でもヒットするから失格

76 ：

ええ〜？課長>>60でそんなこと言ってなかったじゃ〜ん
説明下手なんだよクソ上司〜ぃ

77 ：

>>76
言ってたよ。人のせいにするのいくない。

78 ：

>interface FastEthernet1
>ip address 〜 ×
>_ no shutdown
>!
>interface GigaEthernet1
>_ip address 〜
>_〜〜〜
>〜〜〜 ×
>_ no shutdown
>!
>このような物が複数並んでいてその全てを判断したいです。
文字通りに読むなら
interfaceより前と、 ! より後は、既にCUT済みのサンプルって事じゃねーの？

79 ：

自分に都合のいいように仕様を決め打ちするのはよくない。

80 ：

だから、書かれている以上の事を勝手に決め打ちしてるのは>>75じゃねーの？
まぁ、たぶん現実的には>>75が正解なんだろうけど、
サンプルにinterface〜!以外の行が余計に引っ付いてるとは一言も書かれてないし、
"interface〜!以外では最初の文字がスペースということは有り得ません"と決め打ちして
その部分については全く無視してるしさ。

81 ：

>>60　糞コードパート２書いたぞ
Sub 判定()
　'B5〜B500にConfigデータ、E5〜E500に判定結果
　Dim i As Long, j As Long, r As Long
　Dim r1 As Long, r2 As Long
　r1 = 0
　r2 = 0
　Range("E5:E500").Clear

　For i = 5 To 500
　　If InStr(Cells(i, 2), "interface") <> 0 Then
　　　r1 = i
　　　For j = r1 + 1 To 500
　　　　If InStr(Cells(j, 2), "!") <> 0 Then
　　　　　r2 = j
　　　　　Exit For
　　　　End If
　　　Next j

　　　If r1 >= r2 Then
　　　　MsgBox r1 & "行目くらいからなんか変"
　　　　Exit Sub
　　　End If
　　　For r = r1 + 1 To r2 - 1
　　　　If Left(Cells(r, 2), 1) <> " " Then Cells(r, 5) = "×"
　　　Next r
　　End If
　Next i
End Sub

82 ：

>>81
-10000000点。
削除依頼のレベルだなｗ

83 ：

exit forとか最悪だな
回数不定のループでdo loop whileとか使わないのは素人
Sub c()
　　Dim r As Long
　　Dim f As Boolean
　　Dim s As String
　　r = 5　　' 5行目からスタート
　　f = False ' 判定対称かどうかのフラグ
　　Do
　　　　s = Cells(r, "B")
　　　　If f Then
　　　　　　If s = "!" Then　　' 判定終わり
　　　　　　　　f = False
　　　　　　ElseIf Left(s, 1) <> " " Then
　　　　　　　　Cells(r, "E") = "×" ' 先頭がスペースじゃなかった
　　　　　　End If
　　　　Else
　　　　　　If InStr(s, "interface") > 0 Then
　　　　　　　　f = True　　' 次から判定スタート
　　　　　　End If
　　　　End If
　　　　r = r + 1
　　Loop While r <= 500
End Sub

84 ：

do loop whileとか使う方が知ろうとだわ

85 ：

Exit ForってのはNextの次にGoToで飛ぶのと同じだからな
プログラムの論理構造がきちんと設計できてない証拠だぜ

86 ：

>>83
参考になるが、>>81の方が親切設計かもな

87 ：

for next の方が do loop より高速なんじゃなかったっけ？

88 ：

たまたま最後の ! が抜け落ちてた時はどうするの？
とにかく500行目まで処理するのか、完結してないブロックは対象外とするのか

89 ：

>>87
今の時代は速度より可読性を重視する流れだと思う

90 ：

そらまあ1回ごとに判定の入るdo〜loopは遅いわな
中間コード見るとわかるけど、for〜nextはループの最初にCXレジスタに回数を入れるだけだから速くて当たり前

91 ：

do loop whileは、loop行まで読み進めないとどれだけループするのか不明という、
可読性的に致命的な欠点がある。

92 ：

Exit Forがあちこちに散らばってるより
ループから抜ける条件が最後に、一箇所にまとまってる方が可読性が高くないか？

93 ：

Do While|Until〜Loopなら条件が最初に来るよね

94 ：

>>92
上のコードはあちこちには散らばってないが、そんなに複雑ならメソッドとして抽出するなどしたほうが良いのでは。

95 ：

皆様ありがとうございました。
お陰様で作りたいものを作ることが出来ました。
>>62さんのが一番分かりやすかったので参考にさせて頂きました。
>>74
interfaceと!間以外に別の設定データがあるためそれは出来ませんでした。
説明不足申し訳ありません。
>>81
何故か学校のエクセルでは動きませんでした。
>>81
ありがとうございました！こちらも参考にさせていただきました。
VBA初めてでネットワーク系のconfigのチェックツールを作ろうとしてましたが、本当に自分の理解力の乏しさでは難しいことを知りました。
これからも勉強して行こうと思います。

96 ：

>>95
糞コードを参考にするとは・・・

97 ：

For i = start to end
　　hoge(i)
Next
↑前者と↓後者　どっちが可読性高いんす
i = start
Do
　　hoge(i)
　　i = i + 1
Loop While i <= end

98 ：

>>97
上の方がわかりやすい。
start > endのとき動作違うよ。

99 ：

どう？ウイイレ。
うんちるロープ。

100read 1read

1read 100read
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲

Visual Studio 2013 (375)
CORBAなら俺に聞け (136)
Win32API質問箱 Build115 (558)
MATLABプログラミング　質問箱　その4 (150)
くだすれC++/CLI（初心者用）part2 (723)
iPhone iPad iOSプログラミング Part1 (852)
--log9.info------------------
関西大倉中学校・高等学校【Part24】 (912)
【理数科】大阪府立天王寺高等学校Part2【普通科】 (961)
都立科学技術高校part18 (609)
麻布＞駒東＞海城＞武蔵＞巣鴨 (382)
☆☆ラ・サール会の函館ラ・サール☆☆その２１ (227)
犬山南　⇔　誠信　⇔　誉（旧尾関学園） (958)
新宿山吹高校part32 (377)
鹿児島県中学高校受験総合スレッド９ (603)
【特進】大牟田学園大牟田中・高その2【誠進】 (166)
【希望学園】札幌第一高等学校【北嶺の兄弟校】 (133)
【山東】山形東高等学校【Part3】 (517)
【中杉スレ】中央大学杉並高等学校【Part19】 (821)
★大阪府立千里高校について〜ＰＡＲＴ ８〜★ (731)
中三が東大を目指してみようと思っている Part2 (386)
★★伝統復活★★埼玉県立浦和西高校★★なるか★★ (327)
【副校長】興国高校 【ウハウハ】 (431)
--log55.com------------------
【自由】二ツ目を語る【無収入】
花形役者を語るスレ
繁昌亭と枝雀一門
初代 中村隼人【萬屋
山崎邦正、「月亭方正」の名で古典落語を披露
梅玉★ウメタマ
伝芸ﾌｧﾝにとって中田ダイマル・ラケットとは？
■□■二代目桂ざこば　その３■□■