Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

141 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【79660】Re:住所をいい感じに区切る

りった - 18/3/1(木) 16:40 -


	引用なし

	パスワード

追伸来ていることに今気が付きました。

下記で出来ました。

for 行1 1～全文節数
for 行2 1～全文節数
　for 行3 1～全文節数
　 for 行4 1～全文節数
　　合計文節数チェック
　　ベストスコアだったら区切り方保存
　 next
　next
next
next

スコア = 最大行の文字数 * 1000000000 + 2位の文字数 * 1000000 + 3位の文字数

・ツリー全体表示


	【79659】実行時エラー1004-Activeメソッドが失敗...

ひなまつり - 18/3/1(木) 14:58 -


	引用なし

	パスワード

こんにちは。
お世話になります。

昨日EXCEL2007から2010へのバージョンアップがありました。
今朝EXCELを開いたところ『保護されたビュー』が表示され、
『編集を有効にする』と、下記のエラーメッセージが出てしまします。

<実行時エラー1004>
『WorksheetクラスのActivateメソッドが失敗しました』

このエラーを解除したいのですが、どのようにすれば良いのでしょうか。

Worksheets("ABC").Activateというコードを入れてみたのですが…

ご教授をいただければ助かります。
どうぞよろしくお願い申し上げます。

-----------------------------------------------------------

Private Sub Workbook_Open()
　

Dim 開始日 As String
Dim 終了日 As String

開始日 = Format(Worksheets("ABC").Range("F3"), "yyyy/mm/dd")
終了日 = Format(Worksheets("ABC").Range("G3"), "yyyy/mm/dd")

Worksheets("ABC").Activate　←これを追加

Worksheets("ABC").Range("A5:M10000").AutoFilter Field:=4, _
Criteria1:=">=" & 開始日, _
Operator:=xlAnd, _
Criteria2:="<=" & 終了日

　　　Worksheets("ABC").Range("A5:M10000") _
　　　　　　 .Sort Key1:=Range("D5"), order1:=xlAscending, _
　　　　　　　　　 Key2:=Range("F5"), order2:=xlAscending, _
　　　　　　　　　 Key3:=Range("B5"), order3:=xlAscending
　　　　　　　　　　　　

開始日 = Format(Worksheets("XYZ").Range("F3"), "yyyy/mm/dd")
終了日 = Format(Worksheets("XYZ").Range("G3"), "yyyy/mm/dd")

Worksheets("XYZ").Activate　←これを追加

Worksheets("XYZ").Range("A5:M10000").AutoFilter Field:=4, _
Criteria1:=">=" & 開始日, _
Operator:=xlAnd, _
Criteria2:="<=" & 終了日

Worksheets("XYZ").Activate
　　　Worksheets("XYZ").Range("A5:M10000") _
　　　　　　 .Sort Key1:=Range("D5"), order1:=xlAscending, _
　　　　　　　　　 Key2:=Range("F5"), order2:=xlAscending, _
　　　　　　　　　 Key3:=Range("B5"), order3:=xlAscending
　　　　　　　　　
　　　
End Sub

・ツリー全体表示


	【79658】Re:色つきを立て棒表示にしたい

トキノハジメ - 18/3/1(木) 11:12 -


	引用なし

	パスワード

▼マナさん：
お返事有難うございます。
データー処理をVBAで処理している中で条件にて色の付けているセルに色を付けずに
セルの右縦に色つきの縦線できれば太い線をと考えています。
よろしくおねがいいたします。

・ツリー全体表示


	【79657】Re:セルの数式の結果を別のセルに表示さ...

orien - 18/2/28(水) 21:38 -


	引用なし

	パスワード

▼亀マスターさん：
>こんなのでどうでしょうか？
>
>セルに入力した数式を別のセルで計算する（Office TANAKA）
>ht tp://officetanaka.net/excel/function/tips/tips57.htm

有り難うございます。
感謝申し上げます。orien

・ツリー全体表示


	【79656】Re:セルの数式の結果を別のセルに表示さ...

亀マスター - 18/2/28(水) 21:07 -


	引用なし

	パスワード

こんなのでどうでしょうか？

セルに入力した数式を別のセルで計算する（Office TANAKA）
ht tp://officetanaka.net/excel/function/tips/tips57.htm

・ツリー全体表示


	【79655】セルの数式の結果を別のセルに表示させた...

orien - 18/2/28(水) 20:27 -


	引用なし

	パスワード

たとえば　セルA1に2*3を入力し　セルB1に計算結果6を表示させるにはどうしたら良いのですか。あるセルに計算式を入し、別のセルにその数式の結果を表示したいと言うことです。
公開のanswer関数を利用していたのですが、WIN7で利用できなくなりましたので。よろしくお願いします。

・ツリー全体表示


	【79654】Re:指定期間でログインしたユーザーを知...

amatsuno - 18/2/27(火) 17:56 -


	引用なし

	パスワード

▼亀マスターさん：

ありがとうございます。
Debug.Print
を使用して何箇所か確認してみます

・ツリー全体表示


	【79653】Re:色つきを立て棒表示にしたい

γ - 18/2/27(火) 6:58 -


	引用なし

	パスワード

>これを枠の右に太い縦棒て゛あらわしたいのですが
これは罫線とか、アイコンセットのことを言っているのですか？
それならご自分でマクロ記録をとればよいでしょう。
（すでにご指摘があるように、マクロにする必要すら乏しい気がしますが）

それとも、なんらかの自作の図形を作成したいということですか？
後者なんでしょうか。
条件付き書式なのですから、図形は操作の対象になりません。
マクロであれば何でもできるわけではありません。
条件付き書式の枠組みを超えることはできません。

・ツリー全体表示


	【79652】Re:色つきを立て棒表示にしたい

マナ - 18/2/26(月) 21:03 -


	引用なし

	パスワード

▼トキノハジメさん：

回答でありません。

>下記のコードで特定の数字に色を付けているのですが、

なぜ、マクロで実行しているのでしょうか。
手作業で設定できない理由はあるのでしょうか。

・ツリー全体表示


	【79651】Re:指定期間でログインしたユーザーを知...

亀マスター - 18/2/26(月) 18:53 -


	引用なし

	パスワード

>csvのレコード数が少ないときには総定数が抽出されましたので、PCスペックのほうが原因のような気がしています
この手のコードでPCスペックが低いからと誤作動を起こすというのはあまり考えられませんね。絶対とは言えませんが。

現状では私にはすぐにわからないのですが、どこの段階でおかしくなっているのか、情報収集してみてはどうでしょうか。

例えば、処理件数に影響しそうな
count_daily
count_master
あたりが狙った値になっているのかを確認する。
（ブレイクポイントを設定するか、Stopステートメントで止めてローカルウインドで確認する、あるいはDebug.Printでイミディエイトウインドに出力する）

あと、最終的に出力される「期間内利用ユーザ」シートだけでなく、一時処理に使っている「利用ユーザ一時保管」が狙った件数になっているか、「取り込みCSV」シートの処理で.AutoFilterMode = Falseをしないで、フィルターがかかった状態が狙った件数になっているのか確認する。

などを試してみてください。

・ツリー全体表示


	【79650】Re:指定期間でログインしたユーザーを知...

amatsuno - 18/2/26(月) 16:07 -


	引用なし

	パスワード

▼亀マスターさん：
>思っていた件数にならないとのことですが、具体的にはどのシートで何件抽出されるのが狙いでしょうか。

　⇒csvの情報はそれぞれ40000件と20000件なのですが、
　　「期間内利用ユーザ」で8000件程度出力されるはずが、2000件程度になっていました
（ただ、csvのレコード数が少ないときには総定数が抽出されましたので、PCスペックのほうが原因のような気がしています。投稿文字量の制限でデータをすべて記載でなくで申し訳ございません）

>その他、新しく追加した「O365契約ユーザ」と「O365ユーザマスタ情報」ではどのような情報が抽出されることを想定しているのでしょうか。

　⇒基本はまったく同一の処理を実施しています（そのため、質問では1つで記載させていただきました）

使用方法は以下の構成で考えています

期間内利用ユーザの量　÷　O365ユーザマスタ情報　×　100 =使用%

期間内利用ユーザの量　⇒　期間内にツールを使用した人数
O365ユーザマスタ情報の量　⇒　マスタに登録されている全人数

「利用ユーザ一時保管」と「O365契約ユーザ」はそれぞれ、
「取り込みCSV」から指定期間内の利用ユーザのみを抽出した結果を出力していて、
「期間内利用ユーザ」と「O365ユーザマスタ情報」で、それらをマスタから抽出しています

以上となります

・ツリー全体表示


	【79649】色つきを立て棒表示にしたい

トキノハジメ - 18/2/26(月) 13:33 -


	引用なし

	パスワード

いつもお世話になります。

下記のコードで特定の数字に色を付けているのですが、これを枠の右に太い縦棒て゛あらわしたいのですが。おしえてください。

With Range("E11:U11").FormatCondition
　　With.Add(Type:=xlcellval,Operator:=xlBeetween,_
　　Formura:="1.8",Farmura:="1.99")
　　　　.Interior.ColorIndex = 8
　　End With
End With

宜しくお願い致します。　　

・ツリー全体表示


	【79648】Re:オートフィルター抽出行の削除

nao - 18/2/26(月) 10:02 -


	引用なし

	パスワード

おはようございます。
ご回答ありがとうございます！

助かりました^^v

・ツリー全体表示


	【79647】Re:住所をいい感じに区切る

γ - 18/2/24(土) 10:43 -


	引用なし

	パスワード

カンマで文節を区切ったうえで、それぞれの文字数をカウントしておきます。

4行になるものとし、各行の最後の文節のインデックスを、定めればよいわけです。
それらを　k1,k2,k3,n (n はこの場合6です）とすると、
5個のなかから3個を取り出す組み合わせですから、10ケースです。
それをしらみつぶしに検証すればよいだけです。

例えば、こんな感じ。

　　'組み合わせを列挙。
　　'4行になるものとし、各行に含まれる最後の文節のインデックスを、
　　'それぞれ、k1,k2,k3,n として、すべての組み合わせを列挙します。
　　
　　myMin = 1000
　　For k1 = 1 To n - 3
　　　　For k2 = k1 + 1 To n - 2
　　　　　　For k3 = k2 + 1 To n - 1
　　　　　　　　'各区分の長さの最大値を最小となる組み合わせを調べます
　　　　　　　　以下略

もう解決したと思いますが。

・ツリー全体表示


	【79646】Re:指定期間でログインしたユーザーを知...

亀マスター - 18/2/23(金) 22:55 -


	引用なし

	パスワード

思っていた件数にならないとのことですが、具体的にはどのシートで何件抽出されるのが狙いでしょうか。

私が手元で試したところ、提示していただいたサンプルデータでは、「期間内利用ユーザ」シートに12件＋13行目にタイトル行が入った状態になりました。
「期間内利用ユーザ」シートには、指定された期間に該当し、「利用ユーザ一時保管」シートで4列目がFALSEになっているものを抽出するのだと思いますが、その件がおかしいということであれば、「マスタCSV」シートにないメールアドレスが「取り込みCSV」にあるからだと思います。

その他、新しく追加した「O365契約ユーザ」と「O365ユーザマスタ情報」ではどのような情報が抽出されることを想定しているのでしょうか。

・ツリー全体表示


	【79645】Re:オートフィルター抽出行の削除

Jaka - 18/2/23(金) 19:09 -


	引用なし

	パスワード

質問に書いてあったので引用

.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).deleat shift:=xlUp

・ツリー全体表示


	【79644】Re:オートフィルター抽出行の削除

Jaka - 18/2/23(金) 19:03 -


	引用なし

	パスワード

ああ、

Select
って書いちゃったけど、直接 Deliteしても良いかも。
(スペルあっているか不明)

上か右にシフトして削除とかは、マクロ記録してください。

・ツリー全体表示


	【79643】Re:オートフィルター抽出行の削除

Jaka - 18/2/23(金) 18:47 -


	引用なし

	パスワード

これだけで解るかな？

With Rng
　　 .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Select
End With

・ツリー全体表示


	【79642】Re:指定期間でログインしたユーザーを知...

amatsuno - 18/2/23(金) 15:59 -


	引用なし

	パスワード

（マスタCSV）シート「ws_master」に貼り付け

Mcol-1,Mcol-2,Mcol-3,Mcol-4,Mcol-5,Mcol-6,Mcol-7,Mcol-8,Mcol-9,Mcol-10,Mcol-11,Mcol-12,Mcol-13,Mcol-14,Mcol-15
Mod,TST43045,TST4,test11@mailtest.co.jp,1043045,1.00E+12,100,10012,1001214,100121024,10012102420,株式会社テスト社名,,114出力部署テスト,出力部署テスト名称正式名部
Mod,TST43046,TST5,test12@mailtest.co.jp,1043046,1.00E+12,100,10012,1001210,100121024,10012102420,株式会社テスト社名,,110出力部署テスト,出力部署テスト名称正式名部
Mod,TST43047,TST6,test13@mailtest.co.jp,1043047,1.00E+12,100,10012,1001211,100121024,10012102420,株式会社テスト社名,,111出力部署テスト,出力部署テスト名称正式名部
Mod,TST43048,TST7,test14@mailtest.co.jp,1043048,1.00E+12,100,10012,1001211,100121024,10012102420,株式会社テスト社名,,111出力部署テスト,出力部署テスト名称正式名部
Mod,TST43049,TST8,test15@mailtest.co.jp,1043049,1.00E+12,100,10012,1001212,100121024,10012102420,株式会社テスト社名,,112出力部署テスト,出力部署テスト名称正式名部
Mod,TST43050,TST4,test16@mailtest.co.jp,1043050,1.00E+12,100,10012,1001212,100121024,10012102420,株式会社テスト社名,,112出力部署テスト,出力部署テスト名称正式名部
Mod,TST43051,TST5,test17@mailtest.co.jp,1043051,1.00E+12,100,10012,1001213,100121024,10012102420,株式会社テスト社名,,113出力部署テスト,出力部署テスト名称正式名部
Mod,TST43052,TST6,test18@mailtest.co.jp,1043052,1.00E+12,100,10012,1001211,100121024,10012102420,株式会社テスト社名,,111出力部署テスト,出力部署テスト名称正式名部
Mod,TST43053,TST7,test19@mailtest.co.jp,1043053,1.00E+12,100,10012,1001213,100121024,10012102420,株式会社テスト社名,,113出力部署テスト,出力部署テスト名称正式名部
Mod,TST43054,TST8,test20@mailtest.co.jp,1043054,1.00E+12,100,10012,1001214,100121024,10012102420,株式会社テスト社名,,114出力部署テスト,出力部署テスト名称正式名部
Mod,TST43055,TST4,test21@mailtest.co.jp,1043055,1.00E+12,100,10012,1001214,100121024,10012102420,株式会社テスト社名,,114出力部署テスト,出力部署テスト名称正式名部
Mod,TST43056,TST4,test22@mailtest.co.jp,1043056,1.00E+12,100,10012,1001215,100121024,10012102420,株式会社テスト社名,,115出力部署テスト,出力部署テスト名称正式名部
Mod,TST43045,TST4,test23@mailtest.co.jp,1043045,1.00E+12,200,10012,2001214,100121024,10012102420,AA株式会社テスト社名,,214出力部署テスト,出力部署テスト名称正式名部
Mod,TST43046,TST5,test24@mailtest.co.jp,1043046,1.00E+12,200,10012,2001210,100121024,10012102420,AA株式会社テスト社名,,210出力部署テスト,出力部署テスト名称正式名部
Mod,TST43047,TST6,test25@mailtest.co.jp,1043047,1.00E+12,200,10012,2001211,100121024,10012102420,AA株式会社テスト社名,,211出力部署テスト,出力部署テスト名称正式名部
Mod,TST43048,TST7,test26@mailtest.co.jp,1043048,1.00E+12,200,10012,2001211,100121024,10012102420,AA株式会社テスト社名,,211出力部署テスト,出力部署テスト名称正式名部
Mod,TST43049,TST8,test27@mailtest.co.jp,1043049,1.00E+12,200,10012,2001212,100121024,10012102420,AA株式会社テスト社名,,212出力部署テスト,出力部署テスト名称正式名部
Mod,TST43050,TST4,test28@mailtest.co.jp,1043050,1.00E+12,200,10012,2001212,100121024,10012102420,AA株式会社テスト社名,,212出力部署テスト,出力部署テスト名称正式名部
Mod,TST43051,TST5,test29@mailtest.co.jp,1043051,1.00E+12,200,10012,2001213,100121024,10012102420,AA株式会社テスト社名,,213出力部署テスト,出力部署テスト名称正式名部
Mod,TST43052,TST6,test30@mailtest.co.jp,1043052,1.00E+12,200,10012,2001211,100121024,10012102420,AA株式会社テスト社名,,211出力部署テスト,出力部署テスト名称正式名部
Mod,TST43053,TST7,test31@mailtest.co.jp,1043053,1.00E+12,200,10012,2001213,100121024,10012102420,AA株式会社テスト社名,,213出力部署テスト,出力部署テスト名称正式名部
Mod,TST43054,TST8,test32@mailtest.co.jp,1043054,1.00E+12,200,10012,2001214,100121024,10012102420,AA株式会社テスト社名,,214出力部署テスト,出力部署テスト名称正式名部
Mod,TST43055,TST4,test33@mailtest.co.jp,1043055,1.00E+12,200,10012,2001214,100121024,10012102420,AA株式会社テスト社名,,214出力部署テスト,出力部署テスト名称正式名部
Mod,TST43056,TST4,test34@mailtest.co.jp,1043056,1.00E+12,200,10012,2001215,100121024,10012102420,AA株式会社テスト社名,,215出力部署テスト,出力部署テスト名称正式名部
Mod,TST43056,TST4,test35@mailtest.co.jp,1043056,1.00E+12,100,10012,2001210,100121024,10012102420,AA株式会社テスト社名,,215出力部署テスト,出力部署テスト名称正式名部
Mod,TST43046,TST5,test36@mailtest.co.jp,1043046,1.00E+12,100,10012,1001210,100121024,10012102420,株式会社テスト社名,,210出力部署テスト,出力部署テスト名称正式名部
Mod,TST43046,TST5,test37@mailtest.co.jp,1043046,1.00E+12,100,10012,1001210,100121024,10012102420,株式会社テスト社名,,210出力部署テスト,出力部署テスト名称正式名部
Mod,TST43045,TST4,test38@mailtest.co.jp,1043045,1.00E+12,100,10012,1001214,100121024,10012102420,株式会社テスト社名,,114出力部署テスト,出力部署テスト名称正式名部
Mod,TST43046,TST5,test39@mailtest.co.jp,1043046,1.00E+12,100,10012,1001210,100121024,10012102420,株式会社テスト社名,,110出力部署テスト,出力部署テスト名称正式名部
Mod,TST43047,TST6,test40@mailtest.co.jp,1043047,1.00E+12,100,10012,1001211,100121024,10012102420,株式会社テスト社名,,111出力部署テスト,出力部署テスト名称正式名部
Mod,TST43048,TST7,test41@mailtest.co.jp,1043048,1.00E+12,100,10012,1001211,100121024,10012102420,株式会社テスト社名,,111出力部署テスト,出力部署テスト名称正式名部
Mod,TST43049,TST8,test42@mailtest.co.jp,1043049,1.00E+12,100,10012,1001212,100121024,10012102420,株式会社テスト社名,,112出力部署テスト,出力部署テスト名称正式名部
Mod,TST43050,TST4,test43@mailtest.co.jp,1043050,1.00E+12,100,10012,1001212,100121024,10012102420,株式会社テスト社名,,112出力部署テスト,出力部署テスト名称正式名部
Mod,TST43051,TST5,test44@mailtest.co.jp,1043051,1.00E+12,100,10012,1001213,100121024,10012102420,株式会社テスト社名,,113出力部署テスト,出力部署テスト名称正式名部
Mod,TST43052,TST6,test45@mailtest.co.jp,1043052,1.00E+12,100,10012,1001211,100121024,10012102420,株式会社テスト社名,,111出力部署テスト,出力部署テスト名称正式名部
Mod,TST43053,TST7,test46@mailtest.co.jp,1043053,1.00E+12,100,10012,1001213,100121024,10012102420,株式会社テスト社名,,113出力部署テスト,出力部署テスト名称正式名部
Mod,TST43054,TST8,test47@mailtest.co.jp,1043054,1.00E+12,100,10012,1001214,100121024,10012102420,株式会社テスト社名,,114出力部署テスト,出力部署テスト名称正式名部
Mod,TST43055,TST4,test48@mailtest.co.jp,1043055,1.00E+12,100,10012,1001214,100121024,10012102420,株式会社テスト社名,,114出力部署テスト,出力部署テスト名称正式名部
Mod,TST43056,TST4,test49@mailtest.co.jp,1043056,1.00E+12,100,10012,1001215,100121024,10012102420,株式会社テスト社名,,115出力部署テスト,出力部署テスト名称正式名部

・ツリー全体表示


	【79641】Re:指定期間でログインしたユーザーを知...

amatsuno - 18/2/23(金) 15:55 -


	引用なし

	パスワード

（取り込みCSV）シート「ws_daily」に貼り付け

col-1,col-2,col-3,col-4,col-5,col-6,col-7,col-8,col-9,col-10,col-11
2018/2/14,test14@mailtest.co.jp,,FALSE,,2018/1/9,58,275,275,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test17@mailtest.co.jp,,FALSE,,2018/1/9,102,1469,1523,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test20@mailtest.co.jp,,FALSE,,2018/1/29,127,930,887,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test23@mailtest.co.jp,,FALSE,,2018/1/9,10,89,71,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test26@mailtest.co.jp,,FALSE,,2018/1/29,138,695,630,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test29@mailtest.co.jp,,FALSE,,2018/1/9,0,46,42,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test32@mailtest.co.jp,,TRUE,,2018/1/9,7,390,193,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test35@mailtest.co.jp,,FALSE,,2018/1/29,76,550,494,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test38@mailtest.co.jp,,FALSE,,2018/1/9,81,1000,983,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test41@mailtest.co.jp,,FALSE,,2018/1/9,193,1647,1449,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test44@mailtest.co.jp,,FALSE,,2018/1/9,249,1312,1002,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test47@mailtest.co.jp,,FALSE,,2018/1/9,566,1227,1375,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test50@mailtest.co.jp,,TRUE,,2018/1/9,134,785,610,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test53@mailtest.co.jp,,FALSE,,2018/1/29,35,207,213,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test56@mailtest.co.jp,,FALSE,,2018/1/9,184,558,384,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test59@mailtest.co.jp,,TRUE,,2017/12/11,228,923,564,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test62@mailtest.co.jp,,TRUE,,2018/1/9,124,563,561,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test65@mailtest.co.jp,,TRUE,,2017/12/11,124,687,408,OFFICE 365 ENTERPRISE E4,30
2018/2/14,test68@mailtest.co.jp,,FALSE,,2018/1/9,1,170,65,OFFICE 365 ENTERPRISE E4,30

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

141 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free