Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7307 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【39882】CSVファイルを読み込むやり方 エクセルホーリー 06/7/3(月) 15:42 質問[未読]
【39883】Re:CSVファイルを読み込むやり方（ソース） エクセルホーリー 06/7/3(月) 15:48 質問[未読]
【39884】Re:CSVファイルを読み込むやり方（ソース） エクセルホーリー 06/7/3(月) 15:50 質問[未読]
【39885】Re:CSVファイルを読み込むやり方（ソース） エクセルホーリー 06/7/3(月) 15:51 質問[未読]
【39886】Re:CSVファイルを読み込むやり方（ソース） エクセルホーリー 06/7/3(月) 15:51 質問[未読]
【39900】Re:CSVファイルを読み込むやり方（ソース... 漂流民 06/7/4(火) 1:18 発言[未読]
【39907】Re:CSVファイルを読み込むやり方（ソース... エクセルホーリー 06/7/4(火) 9:22 質問[未読]
【39911】Re:CSVファイルを読み込むやり方（ソース... neptune 06/7/4(火) 9:40 回答[未読]
【39912】Re:CSVファイルを読み込むやり方（ソース... エクセルホーリー 06/7/4(火) 10:21 お礼[未読]
【39882】CSVファイルを読み込むやり方
質問  エクセルホーリー  - 06/7/3(月) 15:42 -
引用なし
パスワード
   お世話になります。

VC++ で作成したCSVファイルAをVC++でマクロを組んだエクセルBに
読み込ませて、エクセルBに書き込み名前をつけて保存する処理を考えています。

VC++からマクロを動かす事まで出来たのですがデータを読み込ませて書き込む
方法が分らず止まってしまいました。

過去ログを見たのですがVBA初心者の為良く理解できませんでした。

このケースの場合VBAの中で構造体を作りカンマ区切りで読み込ませて、
そのデータをセルに書き込むとゆうのが普通なのでしょうか？
過去ログを見るとCSVファイルのデータを直接エクセルに書き込んでるように
思えてしまいまして・・・

どなたかアドバイスなどありましたらよろしくお願い致します。
プログラムの書き方についてのアドバイスもありましたらお願いします。

Excelのバージョンは２０００です。

一応マクロを組んだフォーマットのソースを次に付けておきます。
【39883】Re:CSVファイルを読み込むやり方（ソース...
質問  エクセルホーリー  - 06/7/3(月) 15:48 -
引用なし
パスワード
   <CSVのデータ>
1,"AAA"
2,"BBB"
L,aaa,"あいうえお(0"シングル"/1"ツイン")",0
L,bbb,"かきくけこ(0"指定ＯＦＦ"/1"指定ＯＮ")",1
L,ccc,"さしすせそ(0"指定ＯＦＦ"/1"指定ＯＮ")",0
2,"CCC"
3,"DDD"
L,ddd,"たちつてと（ｍ／ｉｎｃｈ）(0"ｍ"/1"ｉｎｃｈ")",1

1の時 AAAは　"B2"　に書き込む
2の時 BBBは　"C3"　に書き込む
Lの時 aaaは　"E5", "あいうえお(0"シングル"/1"ツイン")"　　　"H5", 0　"AC5" に書き込む
Lの時 bbbは　"E6", "かきくけこ(0"指定ＯＦＦ"/1"指定ＯＮ")"　"H6", 1　"AC6" に書き込む
Lの時 cccは　"E7", "さしすせそ(0"指定ＯＦＦ"/1"指定ＯＮ")", "H7", 0　"AC7" に書き込む
2の時,CCCは　"C18" に書き込む
3の時,DDDは　"D19" に書き込む
Lの時,dddは　"E20" "たちつてと（ｍ／ｉｎｃｈ）(0"ｍ"/1"ｉｎｃｈ")" "H20", 1 AC20に書き込む

データがなくなるまで繰り返す

＜マクロを組んだフォーマット＞

Sub Macro1()

　　Dim count1 As Integer　　 'カウンター
　　Dim count2 As Integer　　 'カウンター
　　Dim count3 As Integer　　 'カウンター

'***********************************************************************
'　 本来は無限ループ試験の為３回
'***********************************************************************
　　For count1 = 1 To 3
　　
　　　　Application.Goto Reference:="Macro1"
　　　　Range("O4:O5").Select
　　　　Range("O5").Activate
　　　　ActiveWindow.SmallScroll Down:=-4
　　　　
'*************************************************************************
'　 Format 作成
'*************************************************************************
　　　　For count2 = 1 To 2
'*************************************************************************
'　 ("B2:AF2") と ("B17:AF17")
'*************************************************************************
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(2 + 31 * (count1 - 1), "B"), Cells(2 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(17 + 31 * (count1 - 1), "B"), Cells(17 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If
　　　　　　
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("C3:AF3") と ("C18:AF18")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(3 + 31 * (count1 - 1), "C"), Cells(3 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(18 + 31 * (count1 - 1), "C"), Cells(18 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If
　　　　　　
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("D4:AF4") と ("D19:AF19")
'*************************************************************************
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(4 + 31 * (count1 - 1), "D"), Cells(4 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(19 + 31 * (count1 - 1), "D"), Cells(19 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If

　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("E5:AF5") と ("E20:AF20")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(5 + 31 * (count1 - 1), "E"), Cells(5 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(20 + 31 * (count1 - 1), "E"), Cells(20 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If
　　　　　　
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("E6:AF6") と ("E21:AF21")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(6 + 31 * (count1 - 1), "E"), Cells(6 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(21 + 31 * (count1 - 1), "E"), Cells(21 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If
　　　　
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("E7:AF7") と ("E22:AF22")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(7 + 31 * (count1 - 1), "E"), Cells(7 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(22 + 31 * (count1 - 1), "E"), Cells(22 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If
　　　　　　　　
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　 Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　 With Selection.Borders(xlEdgeLeft)
　　　　　　　　 .LineStyle = xlContinuous
　　　　　　　　 .Weight = xlThin
　　　　　　　　 .ColorIndex = xlAutomatic
　　　　　　 End With
　　　　　　 With Selection.Borders(xlEdgeTop)
　　　　　　　　 .LineStyle = xlContinuous
　　　　　　　　 .Weight = xlThin
　　　　　　　　 .ColorIndex = xlAutomatic
　　　　　　 End With
　　　　　　 With Selection.Borders(xlEdgeBottom)
　　　　　　　　 .LineStyle = xlContinuous
　　　　　　　　 .Weight = xlThin
　　　　　　　　 .ColorIndex = xlAutomatic
　　　　　　 End With
　　　　　　 With Selection.Borders(xlEdgeRight)
　　　　　　　　 .LineStyle = xlContinuous
　　　　　　　　 .Weight = xlThin
　　　　　　　　 .ColorIndex = xlAutomatic
　　　　　　 End With
Sub
【39884】Re:CSVファイルを読み込むやり方（ソース...
質問  エクセルホーリー  - 06/7/3(月) 15:50 -
引用なし
パスワード
   '*************************************************************************
'　 ("E8:AF8") と ("E23:AF23")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(8 + 31 * (count1 - 1), "E"), Cells(8 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(23 + 31 * (count1 - 1), "E"), Cells(23 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If

　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("E9:AF9") と ("E24:AF24")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(9 + 31 * (count1 - 1), "E"), Cells(9 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(24 + 31 * (count1 - 1), "E"), Cells(24 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If
　　　　　　
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("E10:AF10") と ("E25:AF25")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　ActiveWindow.SmallScroll Down:=3
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(10 + 31 * (count1 - 1), "E"), Cells(10 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(25 + 31 * (count1 - 1), "E"), Cells(25 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If

　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************'　 ("E11:AF11") と ("E26:AF26")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(11 + 31 * (count1 - 1), "E"), Cells(11 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(26 + 31 * (count1 - 1), "E"), Cells(26 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If
　　　　　　
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("E12:AF12") と ("E27:AF27")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(12 + 31 * (count1 - 1), "E"), Cells(12 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(27 + 31 * (count1 - 1), "E"), Cells(27 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If
　　　　　　
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("E13:AF13") と ("E28:AF28")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(13 + 31 * (count1 - 1), "E"), Cells(13 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(28 + 31 * (count1 - 1), "E"), Cells(28 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If
　　　　　　
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("E14:AF14") と ("E29:AF29")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(14 + 31 * (count1 - 1), "E"), Cells(14 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(29 + 31 * (count1 - 1), "E"), Cells(29 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If
　　　　　　
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
【39885】Re:CSVファイルを読み込むやり方（ソース...
質問  エクセルホーリー  - 06/7/3(月) 15:51 -
引用なし
パスワード
   '*************************************************************************
'　 ("E15:AF15") と ("E30:AF30")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(15 + 31 * (count1 - 1), "E"), Cells(15 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(30 + 31 * (count1 - 1), "E"), Cells(30 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("E16:AF16") と ("E31:AF31")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(16 + 31 * (count1 - 1), "E"), Cells(16 + 31 * (count1 - 1), "AF")).Select
　　　　　　Else
　　　　　　　　Range(Cells(31 + 31 * (count1 - 1), "E"), Cells(31 + 31 * (count1 - 1), "AF")).Select
　　　　　　End If
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("B3:B16") と ("B18:B31")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideVertical).LineStyle = xlNone
　　　　　　Range("R17").Select
　　　　　　ActiveWindow.SmallScroll Down:=-6
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(3 + 31 * (count1 - 1), "B"), Cells(16 + 31 * (count1 - 1), "B")).Select
　　　　　　Else
　　　　　　　　Range(Cells(18 + 31 * (count1 - 1), "B"), Cells(31 + 31 * (count1 - 1), "B")).Select
　　　　　　End If
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("C4:C16") と ("C19:C31")
'*************************************************************************
　　　　　　Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(4 + 31 * (count1 - 1), "C"), Cells(16 + 31 * (count1 - 1), "C")).Select
　　　　　　Else
　　　　　　　　Range(Cells(19 + 31 * (count1 - 1), "C"), Cells(31 + 31 * (count1 - 1), "C")).Select
　　　　　　End If
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
【39886】Re:CSVファイルを読み込むやり方（ソース...
質問  エクセルホーリー  - 06/7/3(月) 15:51 -
引用なし
パスワード
   '*************************************************************************
'　 ("D5:D16") と ("D20:D31")
'*************************************************************************
　　　　　Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(5 + 31 * (count1 - 1), "D"), Cells(16 + 31 * (count1 - 1), "D")).Select
　　　　　　Else
　　　　　　　　Range(Cells(20 + 31 * (count1 - 1), "D"), Cells(31 + 31 * (count1 - 1), "D")).Select
　　　　　　End If
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeLeft)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("G5:G16") と ("G20:G31")
'*************************************************************************
　　　　　　　　Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(5 + 31 * (count1 - 1), "G"), Cells(16 + 31 * (count1 - 1), "G")).Select
　　　　　　Else
　　　　　　　　Range(Cells(20 + 31 * (count1 - 1), "G"), Cells(31 + 31 * (count1 - 1), "G")).Select
　　　　　　End If
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　Selection.Borders(xlEdgeLeft).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlInsideHorizontal)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
'*************************************************************************
'　 ("AB5:AB16") と ("AB20:AB31")
'*************************************************************************
　　　　　　If count2 = 1 Then
　　　　　　　　Range(Cells(5 + 31 * (count1 - 1), "AB"), Cells(16 + 31 * (count1 - 1), "AB")).Select
　　　　　　Else
　　　　　　　　Range(Cells(20 + 31 * (count1 - 1), "AB"), Cells(31 + 31 * (count1 - 1), "AB")).Select
　　　　　　End If
　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　　　Selection.Borders(xlEdgeLeft).LineStyle = xlNone
　　　　　　With Selection.Borders(xlEdgeTop)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlEdgeRight)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　　　With Selection.Borders(xlInsideHorizontal)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThin
　　　　　　　　.ColorIndex = xlAutomatic
　　　　　　End With
　　　　Next
'*************************************************************************
'　 マクロのパターンを白にする
'*************************************************************************
　　　　　　Range("AG32").Select
　　　　　　ActiveWindow.SmallScroll Down:=-17
　　　　　　Range("B2").Select
　　　　　　ActiveWindow.SmallScroll Down:=15
　　　　　　Range(Cells(2 + 31 * (count1 - 1), "B"), Cells(31 + 31 * (count1 - 1), "AF")).Select
　　　　　　
　　　　　　With Selection.Interior
　　　　　　　　.ColorIndex = 2
　　　　　　　　.Pattern = xlSolid
　　　　　　　　.PatternColorIndex = xlAutomatic
　　　　　　End With
　　　　　　Range("AH15").Select
　　　　　　Application.Goto Reference:="Macro1"
　　　　　　ActiveWorkbook.Save
　　Next
　　　　　　End
【39900】Re:CSVファイルを読み込むやり方（ソース...
発言  漂流民  - 06/7/4(火) 1:18 -
引用なし
パスワード
   　▼エクセルホーリー さん：
こんばんわ


>VC++ で作成したCSVファイルAをVC++でマクロを組んだエクセルBに
>読み込ませて、エクセルBに書き込み名前をつけて保存する処理を考えています。
ちょっと良く分かりませんが、

>このケースの場合VBAの中で構造体を作りカンマ区切りで読み込ませて、
>そのデータをセルに書き込むとゆうのが普通なのでしょうか？
>過去ログを見るとCSVファイルのデータを直接エクセルに書き込んでるように
>思えてしまいまして・・・
>
>どなたかアドバイスなどありましたらよろしくお願い致します。
エクセルVBAの場合、セルが利用できれば構造体・配列を作成するのは二度手間になります。
特に処理が必要なければ、
列（Ａ〜ＩＶ）を構造体、行（１〜６５５３６）を配列とみなして
直接エクセルに書き込むのが普通です。
（列：1byte、行：2byte）
「カンマ区切り」については過去ログを参照してください。
Split関数を使うと良いでしょう。

>プログラムの書き方についてのアドバイスもありましたらお願いします。
ザっと見ただけですが、

>　　　　For count2 = 1 To 2
>'*************************************************************************
>'　 ("B2:AF2") と ("B17:AF17")
>'*************************************************************************
>　　　　　　If count2 = 1 Then
>　　　　　　　　Range(Cells(2 + 31 * (count1 - 1), "B"), Cells(2 + 31 * (count1 - 1), "AF")).Select
>　　　　　　Else
>　　　　　　　　Range(Cells(17 + 31 * (count1 - 1), "B"), Cells(17 + 31 * (count1 - 1), "AF")).Select
>　　　　　　End If
せっかくループで回しているのにこの条件分岐はムダです。
count2を上手く利用しましょう。

あと、
>　　　　　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
>　　　　　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
>　　　　　　With Selection.Borders(xlEdgeLeft)
>　　　　　　　　.LineStyle = xlContinuous
>　　　　　　　　.Weight = xlThin
>　　　　　　　　.ColorIndex = xlAutomatic
>　　　　　　End With
>　　　　　　With Selection.Borders(xlEdgeTop)
>　　　　　　　　.LineStyle = xlContinuous
>　　　　　　　　.Weight = xlThin
>　　　　　　　　.ColorIndex = xlAutomatic
>　　　　　　End With
>　　　　　　With Selection.Borders(xlEdgeBottom)
>　　　　　　　　.LineStyle = xlContinuous
>　　　　　　　　.Weight = xlThin
>　　　　　　　　.ColorIndex = xlAutomatic
>　　　　　　End With
>　　　　　　With Selection.Borders(xlEdgeRight)
>　　　　　　　　.LineStyle = xlContinuous
>　　　　　　　　.Weight = xlThin
>　　　　　　　　.ColorIndex = xlAutomatic
>　　　　　　End With
ループ中、マクロ記録されたと思われるこれが良く使われているので
関数化した方が良いでしょう。


やりたいことはこれで済むのでは？

Sub Macro1()
　　Dim count1 As Integer　　 'カウンター
　　Dim count2 As Integer　　 'カウンター
　　Dim count3 As Integer　　 'カウンター
　　Dim cellpos As Long

　　For count1 = 1 To 3
　　　　For count2 = 1 To 2
　　　　　　cellpos = 15 * (count2 - 1) + 31 * (count1 - 1)
　　　　　　Call setcell(Range(Cells(2 + cellpos, "B"), Cells(2 + cellpos, "AF")))
　　　　　　Call setcell(Range(Cells(3 + cellpos, "C"), Cells(3 + cellpos, "AF")))
　　　　　　Call setcell(Range(Cells(4 + cellpos, "D"), Cells(4 + cellpos, "AF")))
　　　　　　For count3 = 5 To 16
　　　　　　　　Call setcell(Range(Cells(count3 + cellpos, "E"), Cells(5 + cellpos, "AF")))
　　　　　　Next count3
　　　　　　Call setcell(Range(Cells(3 + cellpos, "B"), Cells(16 + cellpos, "B")))
　　　　　　Call setcell(Range(Cells(4 + cellpos, "C"), Cells(16 + cellpos, "C")))
　　　　　　Call setcell(Range(Cells(5 + cellpos, "D"), Cells(16 + cellpos, "D")))
　　　　　　Call setcell(Range(Cells(5 + cellpos, "G"), Cells(16 + cellpos, "G")))
　　　　　　Call setcell(Range(Cells(5 + cellpos, "AB"), Cells(16 + cellpos, "AB")))
　　　　Next count2
　　　　Range(Cells(2 + 31 * (count1 - 1), "B"), Cells(31 + 31 * (count1 - 1), "AF")).Interior.ColorIndex = 2
　　Next count1
　　ActiveWorkbook.Save
End Sub

Function setcell(cel As Range)
　　With cel
　　　　.Borders(xlEdgeLeft).Weight = xlThin
　　　　.Borders(xlEdgeTop).Weight = xlThin
　　　　.Borders(xlEdgeBottom).Weight = xlThin
　　　　.Borders(xlEdgeRight).Weight = xlThin
　　End With
End Function

※count3は使用されていないようなので再利用しました。


><CSVのデータ>
>1,"AAA"
>2,"BBB"
>L,aaa,"あいうえお(0"シングル"/1"ツイン")",0
>L,bbb,"かきくけこ(0"指定ＯＦＦ"/1"指定ＯＮ")",1
>L,ccc,"さしすせそ(0"指定ＯＦＦ"/1"指定ＯＮ")",0
>2,"CCC"
>3,"DDD"
>L,ddd,"たちつてと（ｍ／ｉｎｃｈ）(0"ｍ"/1"ｉｎｃｈ")",1
>
>1の時 AAAは　"B2"　に書き込む
>2の時 BBBは　"C3"　に書き込む
>Lの時 aaaは　"E5", "あいうえお(0"シングル"/1"ツイン")"　　　"H5", 0　"AC5" に書き込む
>Lの時 bbbは　"E6", "かきくけこ(0"指定ＯＦＦ"/1"指定ＯＮ")"　"H6", 1　"AC6" に書き込む
>Lの時 cccは　"E7", "さしすせそ(0"指定ＯＦＦ"/1"指定ＯＮ")", "H7", 0　"AC7" に書き込む
>2の時,CCCは　"C18" に書き込む
>3の時,DDDは　"D19" に書き込む
>Lの時,dddは　"E20" "たちつてと（ｍ／ｉｎｃｈ）(0"ｍ"/1"ｉｎｃｈ")" "H20", 1 AC20に書き込む
>
>データがなくなるまで繰り返す
すいません、ちょっと条件判定が良く分かりません。
【39907】Re:CSVファイルを読み込むやり方（ソース...
質問  エクセルホーリー  - 06/7/4(火) 9:22 -
引用なし
パスワード
   漂流民 さんありがとうございます。

今色々調べてみて自分なりにファイルから読み込む処理を作っていますので
また聞くと思いますのでよろしくお願いします。

教えていただいたプログラムを解析しているのですが、一箇所分らない事が
あります。

Gの行とABの行は螺旋を右だけ引きたいのですが、私がマクロの記憶で書いた
ものを関数かして頂いたのに、なぜ左も引かれているのかがわかりません。

本題から外れてしまいましたがよろしくお願い致します。
【39911】Re:CSVファイルを読み込むやり方（ソース...
回答  neptune  - 06/7/4(火) 9:40 -
引用なし
パスワード
   ▼エクセルホーリー さん：

>Gの行とABの行は螺旋を右だけ引きたいのですが、私がマクロの記憶で書いた
>ものを関数かして頂いたのに、なぜ左も引かれているのかがわかりません。
漂流民 さんではありませんが、関数setcellではセルの４辺に罫線を引いて
いるだけです。従って、setcellにフラグなどの引数を作って、Gの行とABの行
の際は「右だけ」に引くように改造しなければダメです。勿論呼び出す方も
行を判断し、適切に引数を与えてやらなければなりません。

しかし、C++に慣れているのであれば、ロジックを見るのはどうと言うことないと
思うんですけど？
文法は違いますが、Helpは圧倒的にVBAの方が見やすいですし？？

・・・と言う私はVCからExcel使ったことないですけどね。
【39912】Re:CSVファイルを読み込むやり方（ソース...
お礼  エクセルホーリー  - 06/7/4(火) 10:21 -
引用なし
パスワード
   漂流民 さん・neptune さん　ありがとうございます。
感謝します。

neptune さんのアドバイスでわかりました。

Call setcell(Range(Cells(5 + cellpos, "AB"), Cells(16 + cellpos, "AB")), 1)

Function setcell(cel As Range, Flag)
　　With cel
　　　　If Flag = 0 Then
　　　　　　.Borders(xlEdgeLeft).Weight = xlThin
　　　　　　.Borders(xlEdgeTop).Weight = xlThin
　　　　　　.Borders(xlEdgeBottom).Weight = xlThin
　　　　End If
　　　　.Borders(xlEdgeRight).Weight = xlThin
　　End With
End Function


少ずつ頑張ります、質問の際にはよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7307 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free