Excel VBA質問箱 IV

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

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


10281 / 13644 ツリー ←次へ | 前へ→

【22472】写真整理したい KH 05/2/22(火) 10:38 質問[未読]
【22474】Re:写真整理したい IROC 05/2/22(火) 11:36 回答[未読]
【22501】Re:写真整理したい HK 05/2/22(火) 23:02 質問[未読]
【22504】Re:写真整理したい ponpon 05/2/22(火) 23:52 発言[未読]
【22568】Re:写真整理したい HK 05/2/23(水) 23:14 質問[未読]
【22572】Re:写真整理したい ponpon 05/2/24(木) 0:13 発言[未読]
【22589】Re:写真整理したい こうちゃん 05/2/24(木) 14:01 回答[未読]
【22601】Re:写真整理したい ponpon 05/2/24(木) 18:19 発言[未読]
【22638】Re:写真整理したい HK 05/2/25(金) 8:58 質問[未読]
【22653】Re:写真整理したい やす 05/2/25(金) 16:34 発言[未読]
【22661】Re:写真整理したい HK 05/2/25(金) 22:24 質問[未読]
【22690】Re:写真整理したい やす 05/2/28(月) 13:59 発言[未読]
【22703】Re:写真整理したい HK 05/2/28(月) 21:34 質問[未読]
【22718】Re:写真整理したい やす 05/3/1(火) 9:27 回答[未読]
【22719】Re:写真整理したい HK 05/3/1(火) 9:44 質問[未読]
【22725】Re:写真整理したい やす 05/3/1(火) 11:20 回答[未読]
【22727】Re:写真整理したい HK 05/3/1(火) 12:10 お礼[未読]

【22472】写真整理したい
質問  KH  - 05/2/22(火) 10:38 -

引用なし
パスワード
   初めまして、初心者からの質問ですがよきアドバイスお願いします。
デジタル写真が沢山たまっていますので整理をエクセル上でしたいのですが、A4用紙を使用して一枚に写真を10枚ぐらい貼り付けて、メモリーを出来る限り少なくなるように保存して置きたいのですができるでしょうか。
バージョンはXP、2002です

【22474】Re:写真整理したい
回答  IROC  - 05/2/22(火) 11:36 -

引用なし
パスワード
   >メモリーを出来る限り少なくなるように
ハードディスクの間違いでしょうか?

画質が劣化しても構わないなら、個々の写真を圧縮。
閲覧時に解凍が必要でも構わないなら、LzhやZipで圧縮する。

それよりもハードディスクを購入することをお勧めいたします。

【22501】Re:写真整理したい
質問  HK  - 05/2/22(火) 23:02 -

引用なし
パスワード
   ▼IROC さん:
>>メモリーを出来る限り少なくなるように
>ハードディスクの間違いでしょうか?
>
>画質が劣化しても構わないなら、個々の写真を圧縮。
>閲覧時に解凍が必要でも構わないなら、LzhやZipで圧縮する。
>
>それよりもハードディスクを購入することをお勧めいたします。
言葉足らずですみません、簡単なアルバムのようなものを作りたかったのですが。
画質は、劣化してもかまいません。だれでも画像を簡単に取込めて整理できたらと思い、質問しました。宜しくお願いします。

【22504】Re:写真整理したい
発言  ponpon  - 05/2/22(火) 23:52 -

引用なし
パスワード
   ponponです。こんばんは。
こちらが参考になると思います。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1176693
エクセルでなくてもよいなら
http://hulatt.hp.infoseek.co.jp/SlideShow.html

【22568】Re:写真整理したい
質問  HK  - 05/2/23(水) 23:14 -

引用なし
パスワード
   ▼ponpon さん:
>ponponです。こんばんは。
>こちらが参考になると思います。
>↓
>http://oshiete1.goo.ne.jp/kotaeru.php3?q=1176693
>エクセルでなくてもよいなら
>http://hulatt.hp.infoseek.co.jp/SlideShow.html
お礼の返事遅れまして申し訳ありません。
取込み画像のマクロ大変便利です。有り難うございました。
マクロの意味が解れば、もう少し思い通りのサイズとか出来ると思うのですが、
まことに勝手なお願いとは思いますが、差し支えなければ教えていただけないでしょうか。

【22572】Re:写真整理したい
発言  ponpon  - 05/2/24(木) 0:13 -

引用なし
パスワード
   ▼HK さん:
 ponponです。こんばんは。
 私もネット上で偶然見つけたものですから、サンプルとして保存していたものです。
 詳しいことは、常連さんの回答を待つとして、
 私に考えられることは、

Sub 取込()
'画像取込み
  Const z1 As Single = 100 'サイズ指定
    '↑ここで表示のサイズが変えられます。
  Dim ico As Long, stc As Variant, selnm As Variant
  Dim x1 As Single, y1 As Single
  'ChDir "D:\Other
  selnm = Application.GetOpenFilename(Title:="Ctrl、矢印ドラッグで複数選択", _
  MultiSelect:=True)
  If Not IsArray(selnm) Then MsgBox "キャンセルされました": Exit Sub
  ico = 30 '最上位の位置
  On Error Resume Next
  With ActiveSheet 'Sheet指定
    For Each stc In selnm
  '↑ここでFor Each を使うのではなく、for nextを使って、selnmに格納され
  ' ている画像の枚数を取得して、.Shapes(.Pictures.Insert(stc).Name)の貼
  ' り付ける位置を1枚目から5枚まではこのまま、5枚から10枚までは、
  ' その横にというように指定してやる必要があると思います。
  ' 初心者ですからコード化するには時間がかかります。
  ' ↓ここのように
  'http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=21061;id=excel


     With .Shapes(.Pictures.Insert(stc).Name)
      If Err.Number = 0 Then
       .Name = Dir(stc, vbNormal) '名前付け
       .LockAspectRatio = msoTrue '固定
       x1 = .Width '横取得
       y1 = .Height '縦取得
       .Left = 0 '左位置指定
       .Top = ico '上位置指定
       If x1 > y1 Then '縦横判定
         .Width = z1 '横形
         .Height = y1 * z1 / x1
       Else
         .Height = z1 '縦形
         .Width = x1 * z1 / y1
       End If
       ico = ico + z1 + 10 '間隔指定
      Else
       Err.Clear 'ErrReset
      End If
     End With
     Next
   End With
End Sub


>>こちらが参考になると思います。
>>↓
>>http://oshiete1.goo.ne.jp/kotaeru.php3?q=1176693
>>エクセルでなくてもよいなら
>>http://hulatt.hp.infoseek.co.jp/SlideShow.html
>お礼の返事遅れまして申し訳ありません。
>取込み画像のマクロ大変便利です。有り難うございました。
>マクロの意味が解れば、もう少し思い通りのサイズとか出来ると思うのですが、
>まことに勝手なお願いとは思いますが、差し支えなければ教えていただけないでしょうか。

【22589】Re:写真整理したい
回答  こうちゃん  - 05/2/24(木) 14:01 -

引用なし
パスワード
   ponponさん、HKさん、こんにちは

そのままだと「ファイルサイズを小さくしたい」になっていない
ようなので、少しだけ手を入れてみました。

こんな感じです・・
変数名の変更は自分なりの整理ですので、気にしないでください。

Sub 取込()
'画像取込み
  Const z1 As Single = 100 'サイズ指定
    '↑ここで表示のサイズが変えられます。
  Dim TopSetVal As Long
  Dim LeftSetVal As Long
  Dim Stc As Variant
  Dim Selnm As Variant
  Dim x1 As Single
  Dim y1 As Single
  Dim xx As Single
  Dim yy As Single
  Dim i As Long
  
  'ChDir "D:\Other
  Selnm = Application.GetOpenFilename(Title:="Ctrl、矢印ドラッグで複数選択", _
  MultiSelect:=True)
  If Not IsArray(Selnm) Then MsgBox "キャンセルされました": Exit Sub
  
  TopSetVal = 30 '最上位の位置
  LeftSetVal = 0 '左の位置
  i = 1
  
  On Error Resume Next
  
  With ActiveSheet 'Sheet指定
    For Each Stc In Selnm
     With .Shapes(.Pictures.Insert(Stc).Name)
      If Err.Number = 0 Then
       .Name = Dir(Stc, vbNormal) '名前付け
       .LockAspectRatio = msoTrue '固定
       x1 = .Width '横取得
       y1 = .Height '縦取得
       If x1 > y1 Then '縦横判定
         xx = z1  '横形
         yy = y1 * z1 / x1
       Else
         yy = z1 '縦形
         xx = x1 * z1 / y1
       End If
        
       .Width = xx
       .Height = yy
       
       '------------------------------------------------ここから
       '一旦切り取って、形式を指定して貼り付け
       ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Select
       Selection.Cut
       ActiveSheet.PasteSpecial Format:="図 (JPEG)", _
       Link:=False, DisplayAsIcon:=False
       
       TopSetVal = TopSetVal + z1 + 10 '間隔指定
       
       Selection.Left = LeftSetVal '左位置指定
       Selection.Top = TopSetVal '上位置指定
      
       '5個目で列変え
       If i Mod 5 = 0 Then
        LeftSetVal = LeftSetVal + xx + 10
        TopSetVal = 30
       End If
       i = i + 1
       '------------------------------------------ここまでを追加
      
      Else
       Err.Clear 'ErrReset
      End If
     End With
     Next
   End With
End Sub

【22601】Re:写真整理したい
発言  ponpon  - 05/2/24(木) 18:19 -

引用なし
パスワード
   ▼こうちゃん さん:

>ponponさん、HKさん、こんにちは

ponponです。こんばんは。

>そのままだと「ファイルサイズを小さくしたい」になっていない
>ようなので、少しだけ手を入れてみました。

フォローありがとうございます(^^;
コードを解析し、自分でもできるよう勉強します。

【22638】Re:写真整理したい
質問  HK  - 05/2/25(金) 8:58 -

引用なし
パスワード
   ▼こうちゃん さん:
>ponponさん、HKさん、こんにちは
>
>そのままだと「ファイルサイズを小さくしたい」になっていない
>ようなので、少しだけ手を入れてみました。
>
>こんな感じです・・
>変数名の変更は自分なりの整理ですので、気にしないでください。
>
>Sub 取込()
>'画像取込み
>  Const z1 As Single = 100 'サイズ指定
>    '↑ここで表示のサイズが変えられます。
>  Dim TopSetVal As Long
>  Dim LeftSetVal As Long
>  Dim Stc As Variant
>  Dim Selnm As Variant
>  Dim x1 As Single
>  Dim y1 As Single
>  Dim xx As Single
>  Dim yy As Single
>  Dim i As Long
>  
>  'ChDir "D:\Other
>  Selnm = Application.GetOpenFilename(Title:="Ctrl、矢印ドラッグで複数選択", _
>  MultiSelect:=True)
>  If Not IsArray(Selnm) Then MsgBox "キャンセルされました": Exit Sub
>  
>  TopSetVal = 30 '最上位の位置
>  LeftSetVal = 0 '左の位置
>  i = 1
>  
>  On Error Resume Next
>  
>  With ActiveSheet 'Sheet指定
>    For Each Stc In Selnm
>     With .Shapes(.Pictures.Insert(Stc).Name)
>      If Err.Number = 0 Then
>       .Name = Dir(Stc, vbNormal) '名前付け
>       .LockAspectRatio = msoTrue '固定
>       x1 = .Width '横取得
>       y1 = .Height '縦取得
>       If x1 > y1 Then '縦横判定
>         xx = z1  '横形
>         yy = y1 * z1 / x1
>       Else
>         yy = z1 '縦形
>         xx = x1 * z1 / y1
>       End If
>        
>       .Width = xx
>       .Height = yy
>       
>       '------------------------------------------------ここから
>       '一旦切り取って、形式を指定して貼り付け
>       ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Select
>       Selection.Cut
>       ActiveSheet.PasteSpecial Format:="図 (JPEG)", _
>       Link:=False, DisplayAsIcon:=False
>       
>       TopSetVal = TopSetVal + z1 + 10 '間隔指定
>       
>       Selection.Left = LeftSetVal '左位置指定
>       Selection.Top = TopSetVal '上位置指定
>      
>       '5個目で列変え
>       If i Mod 5 = 0 Then
>        LeftSetVal = LeftSetVal + xx + 10
>        TopSetVal = 30
>       End If
>       i = i + 1
>       '------------------------------------------ここまでを追加
>      
>      Else
>       Err.Clear 'ErrReset
>      End If
>     End With
>     Next
>   End With
>End Sub
お礼の言葉を差し上げながらまことに失礼いたしました。
マクロを使わせてもらって気がついたのですが、2回目以降は、画像がダブってしまうので取り出して別のセルに移動しなくてはなりません。最後のお願いです、ご指導よろしくお願いします。

【22653】Re:写真整理したい
発言  やす  - 05/2/25(金) 16:34 -

引用なし
パスワード
   HKさんこんにちは
>>  
>>  TopSetVal = 30 '最上位の位置
>>  LeftSetVal = 0 '左の位置

ここを、以下のようにしてみては?

  Dim PicCount As Long
  PicCount = ActiveSheet.Shapes.Count
  TopSetVal = 30 + (PicCount Mod 5) * (z1 + 10) '最上位の位置
  LeftSetVal = Int(PicCount / 5) * (z1 + 10) '左の位置

既存の画像の後ろに新しい画像が追加されるはずです。

【22661】Re:写真整理したい
質問  HK  - 05/2/25(金) 22:24 -

引用なし
パスワード
   ▼やす さん:
>HKさんこんにちは
>>>  
>>>  TopSetVal = 30 '最上位の位置
>>>  LeftSetVal = 0 '左の位置
>
>ここを、以下のようにしてみては?
>
>  Dim PicCount As Long
>  PicCount = ActiveSheet.Shapes.Count
>  TopSetVal = 30 + (PicCount Mod 5) * (z1 + 10) '最上位の位置
>  LeftSetVal = Int(PicCount / 5) * (z1 + 10) '左の位置
>
>既存の画像の後ろに新しい画像が追加されるはずです。
やす さんこんばんわ お手間を取らして申し訳ありません。
試してみますと、最上位に画像が貼り付かなくて、一枚分下にずれてしまいます。どうすれば一番上に画像が貼り付くのでしょうか。

【22690】Re:写真整理したい
発言  やす  - 05/2/28(月) 13:59 -

引用なし
パスワード
   ▼HK さん:
>試してみますと、最上位に画像が貼り付かなくて、一枚分下にずれてしまいます。どうすれば一番上に画像が貼り付くのでしょうか。

HKさんこんにちは。

ここ
>       TopSetVal = TopSetVal + z1 + 10 '間隔指定
>       
>       Selection.Left = LeftSetVal '左位置指定
>       Selection.Top = TopSetVal '上位置指定

順序を変えて下さい。
>       Selection.Left = LeftSetVal '左位置指定
>       Selection.Top = TopSetVal '上位置指定
>
>       TopSetVal = TopSetVal + z1 + 10 '間隔指定

こうちゃんさんのコードしか動かしていなかったもので、それまでと変わっているのがわかりませんでした。
ごめんなさいね。

【22703】Re:写真整理したい
質問  HK  - 05/2/28(月) 21:34 -

引用なし
パスワード
   ▼やす さん:
>▼HK さん:
>>試してみますと、最上位に画像が貼り付かなくて、一枚分下にずれてしまいます。どうすれば一番上に画像が貼り付くのでしょうか。
>
>HKさんこんにちは。
>
>ここ
>>       TopSetVal = TopSetVal + z1 + 10 '間隔指定
>>       
>>       Selection.Left = LeftSetVal '左位置指定
>>       Selection.Top = TopSetVal '上位置指定
>
>順序を変えて下さい。
>>       Selection.Left = LeftSetVal '左位置指定
>>       Selection.Top = TopSetVal '上位置指定
>>
>>       TopSetVal = TopSetVal + z1 + 10 '間隔指定
>
>こうちゃんさんのコードしか動かしていなかったもので、それまでと変わっているのがわかりませんでした。
>ごめんなさいね。
色々と面倒かけて申し訳なく思っています。
数字を色々といじるだけしか出来ませんので根気よく何度も試しているのですが、最終的なマクロがどうなれば完成するのか判らなくなってきました。
どうか、サイズは 150 で、5枚縦に並べたら右側にまた5枚並ぶ、この繰り返しができるマクロが完成したらベストなのですが最後のお願い聞いていただけないでしょうか。

【22718】Re:写真整理したい
回答  やす  - 05/3/1(火) 9:27 -

引用なし
パスワード
   ▼HK さん:
おはようございます。
>数字を色々といじるだけしか出来ませんので根気よく何度も試しているのですが、最終的なマクロがどうなれば完成するのか判らなくなってきました。
>どうか、サイズは 150 で、5枚縦に並べたら右側にまた5枚並ぶ、この繰り返しができるマクロが完成したらベストなのですが最後のお願い聞いていただけないでしょうか。

コードの始めのところを見てください。
>  Const z1 As Single = 100 'サイズ指定
>    '↑ここで表示のサイズが変えられます。
この100を150にすると表示のサイズが変えられます。
数字をいじるだけなので試してみてください。

5枚については変更の必要がありませんね。
(もし変更する場合は、コード中に数字の「5」か3つあるので、それらを変更してください。)

【22719】Re:写真整理したい
質問  HK  - 05/3/1(火) 9:44 -

引用なし
パスワード
   ▼やす さん:
>▼HK さん:
>おはようございます。
>>数字を色々といじるだけしか出来ませんので根気よく何度も試しているのですが、最終的なマクロがどうなれば完成するのか判らなくなってきました。
>>どうか、サイズは 150 で、5枚縦に並べたら右側にまた5枚並ぶ、この繰り返しができるマクロが完成したらベストなのですが最後のお願い聞いていただけないでしょうか。
>
>コードの始めのところを見てください。
>>  Const z1 As Single = 100 'サイズ指定
>>    '↑ここで表示のサイズが変えられます。
>この100を150にすると表示のサイズが変えられます。
>数字をいじるだけなので試してみてください。
>
>5枚については変更の必要がありませんね。
>(もし変更する場合は、コード中に数字の「5」か3つあるので、それらを変更してください。)
おはようございます。
早速、サイズを直て実行しましたが、「5」のままだと4枚と最上段に1枚ダブって貼り付きます。「6」にしますと5枚と最上段に1枚ダブってしまう状態です。
どうか良きアドバイスお願いします。

【22725】Re:写真整理したい
回答  やす  - 05/3/1(火) 11:20 -

引用なし
パスワード
   あれあれ?(レス確認)・・・あ!

[#22653]で1行コピーし忘れてました。
申し訳ないです(i = PicCount + 1)

改めて全文を。
おわびではありませんが、「5」は冒頭の1つにしてみました。

Sub 取込()
'画像取込み
  Const z1 As Single = 150 'サイズ指定
    '↑ここで表示のサイズが変えられます。
  Const ColChVal As Long = 5 '1列の画像数
    '↑ここで縦に並べる数が変えられます。
  Dim TopSetVal As Long
  Dim LeftSetVal As Long
  Dim PicCount As Long
  Dim Stc As Variant
  Dim Selnm As Variant
  Dim x1 As Single
  Dim y1 As Single
  Dim xx As Single
  Dim yy As Single
  Dim i As Long
 
  'ChDir "D:\Other
  Selnm = Application.GetOpenFilename(Title:="Ctrl、矢印ドラッグで複数選択", _
  MultiSelect:=True)
  If Not IsArray(Selnm) Then MsgBox "キャンセルされました": Exit Sub
 
  PicCount = ActiveSheet.Shapes.Count
  TopSetVal = 30 + (PicCount Mod ColChVal) * (z1 + 10) '最上位の位置
  LeftSetVal = Int(PicCount / ColChVal) * (z1 + 10) '左の位置
  
  i = PicCount + 1
 
  On Error Resume Next
 
  With ActiveSheet 'Sheet指定
    For Each Stc In Selnm
     With .Shapes(.Pictures.Insert(Stc).Name)
      If Err.Number = 0 Then
       .Name = Dir(Stc, vbNormal) '名前付け
       .LockAspectRatio = msoTrue '固定
       x1 = .Width '横取得
       y1 = .Height '縦取得
       If x1 > y1 Then '縦横判定
         xx = z1  '横形
         yy = y1 * z1 / x1
       Else
         yy = z1 '縦形
         xx = x1 * z1 / y1
       End If
    
       .Width = xx
       .Height = yy
   
       '------------------------------------------------ここから
       '一旦切り取って、形式を指定して貼り付け
       ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Select
       Selection.Cut
       ActiveSheet.PasteSpecial Format:="図 (JPEG)", _
       Link:=False, DisplayAsIcon:=False
   
       Selection.Left = LeftSetVal '左位置指定
       Selection.Top = TopSetVal '上位置指定
   
       TopSetVal = TopSetVal + z1 + 10 '間隔指定
   
       'ColChVal個目で列変え
       If i Mod ColChVal = 0 Then
        LeftSetVal = LeftSetVal + xx + 10
        TopSetVal = 30
       End If
       i = i + 1
       '------------------------------------------ここまでを追加
   
      Else
       Err.Clear 'ErrReset
      End If
     End With
     Next
   End With

End Sub

【22727】Re:写真整理したい
お礼  HK  - 05/3/1(火) 12:10 -

引用なし
パスワード
   ▼やす さん:
>あれあれ?(レス確認)・・・あ!
>
>[#22653]で1行コピーし忘れてました。
>申し訳ないです(i = PicCount + 1)
>
>改めて全文を。
>おわびではありませんが、「5」は冒頭の1つにしてみました。
>
>Sub 取込()
>'画像取込み
>  Const z1 As Single = 150 'サイズ指定
>    '↑ここで表示のサイズが変えられます。
>  Const ColChVal As Long = 5 '1列の画像数
>    '↑ここで縦に並べる数が変えられます。
>  Dim TopSetVal As Long
>  Dim LeftSetVal As Long
>  Dim PicCount As Long
>  Dim Stc As Variant
>  Dim Selnm As Variant
>  Dim x1 As Single
>  Dim y1 As Single
>  Dim xx As Single
>  Dim yy As Single
>  Dim i As Long
> 
>  'ChDir "D:\Other
>  Selnm = Application.GetOpenFilename(Title:="Ctrl、矢印ドラッグで複数選択", _
>  MultiSelect:=True)
>  If Not IsArray(Selnm) Then MsgBox "キャンセルされました": Exit Sub
> 
>  PicCount = ActiveSheet.Shapes.Count
>  TopSetVal = 30 + (PicCount Mod ColChVal) * (z1 + 10) '最上位の位置
>  LeftSetVal = Int(PicCount / ColChVal) * (z1 + 10) '左の位置
>  
>  i = PicCount + 1
> 
>  On Error Resume Next
> 
>  With ActiveSheet 'Sheet指定
>    For Each Stc In Selnm
>     With .Shapes(.Pictures.Insert(Stc).Name)
>      If Err.Number = 0 Then
>       .Name = Dir(Stc, vbNormal) '名前付け
>       .LockAspectRatio = msoTrue '固定
>       x1 = .Width '横取得
>       y1 = .Height '縦取得
>       If x1 > y1 Then '縦横判定
>         xx = z1  '横形
>         yy = y1 * z1 / x1
>       Else
>         yy = z1 '縦形
>         xx = x1 * z1 / y1
>       End If
>    
>       .Width = xx
>       .Height = yy
>   
>       '------------------------------------------------ここから
>       '一旦切り取って、形式を指定して貼り付け
>       ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Select
>       Selection.Cut
>       ActiveSheet.PasteSpecial Format:="図 (JPEG)", _
>       Link:=False, DisplayAsIcon:=False
>   
>       Selection.Left = LeftSetVal '左位置指定
>       Selection.Top = TopSetVal '上位置指定
>   
>       TopSetVal = TopSetVal + z1 + 10 '間隔指定
>   
>       'ColChVal個目で列変え
>       If i Mod ColChVal = 0 Then
>        LeftSetVal = LeftSetVal + xx + 10
>        TopSetVal = 30
>       End If
>       i = i + 1
>       '------------------------------------------ここまでを追加
>   
>      Else
>       Err.Clear 'ErrReset
>      End If
>     End With
>     Next
>   End With
>
>End Sub
有難うございました。感謝、感謝
これで、完璧に実用することができました。

本当にお手間を取らせて申し訳ありませんでした。

10281 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free