gooポイントが当たる質問投稿キャンペーン>>

VBA初心者です。
VBA PDFで保存するマクロで実行時エラー 1004 が出てしまいます。
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="MAT\商品別グラフ" & i - 62 & ".pdf", _
OpenAfterPublish:=False
ドキュメントを保存できませんでした。ドキュメントが開いているか保存時にエラーが発生した可能性があります。というエラーメッセージです。

Excelでグラフを9枚、PDFで保存するマクロを作ったのですが、
実行してうまくいく場合と、上記のエラーが出てしまう場合があります。

色々思考錯誤しましたが、どこを直せばいいのかわかりません。
どなたか見て頂けないでしょうか。
WINDOWS7 office2013を使用しています。

どうぞ宜しくお願いいたします。

Sub PDF作成()
Dim i As Integer

Dim WB As Workbook
Dim WS01 As Worksheet
Dim WS02 As Worksheet

Set WB = Application.Workbooks("売上管理表グラフ.xlsm")
Set WS01 = ThisWorkbook.Worksheets("データ")
Set WS02 = ThisWorkbook.Worksheets("グラフ")

For i = 62 To 72

WS01.Range("A4").Value = WS01.Cells(i, "A").Value

WS02.Activate

Application.CutCopyMode = False

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="MAT\商品別グラフ" & i - 62 & ".pdf", _
OpenAfterPublish:=False ’←エラーはここが反転しています’

Next i

End Sub

A 回答 (2件)

コード、よさげですけどね。



1.売上管理表グラフ.xlsmが格納されているフォルダに MAT というフォルダはありますか?
2.Filename:="MAT\商品別グラフ" ~ はフルパスで書いた方がいいかも
  例)Filename:="c:\売上管理\MAT\商品別グラフ" ~

それと、質問のカテゴリは少なくともRubyではないような。

コンピューター・テクノロジー >Microsoft Office >Excel(エクセル)

かな。
    • good
    • 0
この回答へのお礼

返信ありがとうございます。
1.マイドキュメントにMATというフォルダを作ってあります。
2.Filenameの箇所をフルパスで書いてみましたら、サクサク動きました!!

売上管理表グラフ.xlsmが格納されているフォルダにMATというフォルダを作っていないのがエラーの原因ですかね。(マイドキュメントに作っていた)
フルパスで指定したことによって、場所が確定され実行された。
とても勉強になりました。
お手数をおかけしました。ありがとうございました。

カテゴリは焦って間違えてしまいましたが、おかげさまで解決しました。
本当にありがとうございました!!!

お礼日時:2017/11/02 10:51

・Filenameの指定にドライブレターがない。


 「D:\MAT\商品グラフ」などとしないと、マイドキュメント内などへの保存となってしまいます。
・MATフォルダーが存在しなければ出力することはできません。
 存在しない場合にMATフォルダーを作り上げるという実装を行うか、MATフォルダーを用意しなければ動作しない仕様とするかのどちらかです。
    • good
    • 0
この回答へのお礼

早速の返信ありがとうございます。
MATというフォルダは作ってあるのですが、動く時とエラーになる時があります。
ここがおかしいみたいなので、もう少し変更してみます。
ありがとうございます。

お礼日時:2017/11/02 10:44

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aと関連する良く見られている質問

QExcel VBA  シートを指定してpdf化

指定のフォルダに入っている全てのエクセルファイルをシートを指定して一つのpdfファイルに変換したいと考えています。全てのエクセルファイルにはSheet1~Sheet5まであり、Sheet1~Sheet4までをpdf化させたいのですが、なかなか上手くいきません。

どなたかご教授願えれば幸いです。試作したマクロコードは下記になります。よろしくお願いいたします。

Sub pdf()
'変換対象の.exlsファイルを保存したフォルダ
Const PATH = "E:\Exceclデータ\vba\"

'.xlsなどのファイルを検索
Dim file As String
file = Dir(PATH & "*.xlsx")

'すべての検索結果を取得するまでのループを継続
Do While file <> ""
Dim tmp_path As String
tmp_path = PATH & file

'ファイルを開いて、PDF形式でエクスポート
Workbooks.Open tmp_path

Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")).Select
Sheets("Sheet1").Activate


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=tmp_path & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False


'現在のファイルを閉じる
ActiveWorkbook.Close

'次に合致するファイルを取得
file = Dir()

Loop

End Sub

指定のフォルダに入っている全てのエクセルファイルをシートを指定して一つのpdfファイルに変換したいと考えています。全てのエクセルファイルにはSheet1~Sheet5まであり、Sheet1~Sheet4までをpdf化させたいのですが、なかなか上手くいきません。

どなたかご教授願えれば幸いです。試作したマクロコードは下記になります。よろしくお願いいたします。

Sub pdf()
'変換対象の.exlsファイルを保存したフォルダ
Const PATH = "E:\Exceclデータ\vba\"

'.xlsなどのファイルを検索
Dim file As String
fi...続きを読む

Aベストアンサー

こんばんは。

#1の回答者です。

>「実行時エラー 1004
>ドキュメントを保存できませんでした。ドキュメントを開いているか、保存時にエラーが発生した可能性があります。」

なるほど、コードの問題ではありませんね。

office2010のPDF保存機能で 「ドキュメントが開いているかエラーが発生しています」 のエラーが発生する
http://answers.microsoft.com/ja-jp/office/forum/office_2010-excel/office2010%E3%81%AEpdf%E4%BF%9D%E5%AD%98%E6%A9%9F/6bc9dd64-d6ec-490f-9165-60bb3205326e

「通常モードでPDFを保存オプションを開き「ISO19005-1に準拠(PDF/A)」のチェックを外したところ、正常に保存することができるようになりました」
とあります。一度、手動で直してみてから、試したらどうなるでしょうか。

QVBAでPDFを保存する

Excel2013です。VBAでPDFで保存するコードを書きたいのですが、通常の名前をつけて保存のように保存先とファイル名をその都度変更できるウィンドウを出したいのですが、どのようにすればいいのでしょうか?保存先とファイル名をあらかじめ指定する方法はネット検索でヒットするのですが、そうでない方法が探せません。

以下は現在のコードです。
Sub PDF保存()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"c:\\xxx.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Aベストアンサー

GetSaveAsFilenameメソッドでできるでしょう。


ファイル指定ダイアログの表示
http://www.officepro.jp/excelvba/book_new/index10.html

QVBA  PDF ファイル名をセルからつける

ExcelでPDFを出力するときに、たとえばB1のセルに入力されているものを、ファイル名の一部として出力する方法がわかりません。

例えばB1に「資料1」と入力されていた場合で、PDFのファイル名を[TEST資料1.pdf]にしたい場合、下記に何かを足すだけでできますでしょうか?

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"I:\補TEST\TEST.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

できれば、解説もいただけると助かります。よろしくお願いします。

Aベストアンサー

一例です。
文字列の結合ですから解説は不要ですよね。

"I:\補TEST\TEST" & Range("B1") & ".pdf", Quality:=xlQualityStandard, _

Qエクセルのシートをマクロでpdf化したい

いつもお世話になっております。
よろしくお願いいたします。

エクセルの決裁書を社員名でpdf保存したいと考えてますが、
例えばA1の文字列をファイル名にして保存、などはマクロで
できるのでしょうか。

よろしくお願いいたします。

Aベストアンサー

No.2の回答者です。

エラーの内容を書かないと、何のエラーなのか判断つかないのですが。
おそらく、[ 実行時エラー '1004' ] のエラーなのでは?
そうだとしたら、マクロでのパスの書き方の問題だと思いますよ。
Cドライブ直下に保存できないために、エラーになっているのだと思います。

古いOS(たぶんXP以前)なら、Filename:="c:\" & Range("A1").Value & ".pdf"
という書き方でも実行できたと思いますが、最近のOSの場合だと保存先として
利用できないようなので。

Sub PDF変換()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
 Filename:="C:\Users\ユーザー名\Documents\" & Range("A1").Value & ".pdf"
End Sub

上記のように保存先をユーザー名の部分までは必要みたいです。
"C:\Users\ユーザー名\"のユーザー名は、使用しているPCでのユーザー名に
必ず書き換えてくださいね。
もしもユーザー名を調べるのが面倒なら、パスを書かないで作成してください。

Sub PDF変換()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
 Filename:= Range("A1").Value & ".pdf"
End Sub

No.2の回答者です。

エラーの内容を書かないと、何のエラーなのか判断つかないのですが。
おそらく、[ 実行時エラー '1004' ] のエラーなのでは?
そうだとしたら、マクロでのパスの書き方の問題だと思いますよ。
Cドライブ直下に保存できないために、エラーになっているのだと思います。

古いOS(たぶんXP以前)なら、Filename:="c:\" & Range("A1").Value & ".pdf"
という書き方でも実行できたと思いますが、最近のOSの場合だと保存先として
利用できないようなので。

Sub PDF変換()
ActiveSheet.ExportAsFix...続きを読む

QExcel ファイルに保存すると実行時エラーになる

こんにちは。宮本と申します。VB6(SP5)で、
プログラミングをしております。
下記の様にプログラミングをしましたが、どうしても
[実行時エラー’1004’ test_1.xlsにアクセスできません]と、なります。
c:\test.xls は、元々ある事を前提とし、c:\test_1.xlsに上書きをしたいのです。
宜しくお願い致します。

Dim wApp As Excel.Application
Dim wExl As Object

Set wApp = CreateObject("Excel.Application")

Set wApp = CreateObject("Excel.Application")
Set wExl = wApp.Workbooks.Open("c:\test.xls")

wExl.Worksheets(1).Cells(1, 1).Value = 3000

wExl.Application.Visible = False
wExl.Application.DisplayAlerts = False
wExl.SaveAs "c:\test_1.xls" <---ここで、エラー

こんにちは。宮本と申します。VB6(SP5)で、
プログラミングをしております。
下記の様にプログラミングをしましたが、どうしても
[実行時エラー’1004’ test_1.xlsにアクセスできません]と、なります。
c:\test.xls は、元々ある事を前提とし、c:\test_1.xlsに上書きをしたいのです。
宜しくお願い致します。

Dim wApp As Excel.Application
Dim wExl As Object

Set wApp = CreateObject("Excel.Application")

Set wApp = CreateObject("Excel.Application")
Set wExl = wApp.Workbooks....続きを読む

Aベストアンサー

Set wApp = Nothing
wExl.Close True

最後に追加すればOKだと思います。

QEXCELファイルのカレントフォルダを取得するには?

EXCELファイルのカレントフォルダを取得するには?

C:\経理\予算.xls

D:\2005年度\予算.xls

EXCEL97ファイルがあります。

VBAで
  カレントフォルダ名
(C:\経理\,D:\2005年度\)
を取得する事は可能でしょうか?

CURDIRでは上手い方法が見つかりませんでした。

Aベストアンサー

こんばんは。
Excel97 でも、同じですね。以下で試してみてください。

Sub test()
'このブックのパス
a = ThisWorkbook.Path
'アクティブブックのパス
b = ActiveWorkbook.Path
'Excelで設定されたデフォルトパス
c = Application.DefaultFilePath
'カレントディレクトリ
d = CurDir
MsgBox "このブックのパス   : " & a & Chr(13) & _
   "アクティブブックのパス: " & b & Chr(13) & _
   "デフォルトパス    : " & c & Chr(13) & _
   "カレントディレクトリ : " & d & Chr(13)
End Sub

QDoEvents関数って何?

こんにちは。

VBAやプログラミングに詳しい皆様に
教えていただきたい質問があります。

cells(1,1)からcells(5000,1)までの値を消去するときに
処理の進行状況を表示するためにuserform上にプログレスバーを表示したいと思います。

そこで下記のようなコードを入力しました。

userform1.show
for i =1 to 5000
cells(i,1)=""
userform1.progressbar1.value=i/5000*100
next i
unload userform1

しかしこれだとuserformの背景が真っ白になってしまい
ラベルの文字も消えてしまいます。
そこで「EXCEL VBA パーフェクトマスター」という本を見たら

for i =1 to 5000
cells(i,1)=""
userform1.progressbar1.value=i/5000*100
DoEvents
next i
unload userform1
と入力すれば解決することがわかりました。

しかし「DoEvents」についてあまり詳しく書いていなかったのでDoEvents関数をヘルプで見ると、
「発生したイベントがオペレーティング システムによって処理されるように、プログラムで占有していた制御をオペレーティング システムに渡すフロー制御関数です。」

と書いてあるのですが正直、書いてあることがよくわかりません。

どなたかDoEvents関数について、
もう少しわかりやすく教えていただけませんか。
それから、最初に書いたコードで実行すると
ユーザーフォームの背景が真っ白になってしまう原因も
教えていただけませんか?

よろしくお願いいたします。

こんにちは。

VBAやプログラミングに詳しい皆様に
教えていただきたい質問があります。

cells(1,1)からcells(5000,1)までの値を消去するときに
処理の進行状況を表示するためにuserform上にプログレスバーを表示したいと思います。

そこで下記のようなコードを入力しました。

userform1.show
for i =1 to 5000
cells(i,1)=""
userform1.progressbar1.value=i/5000*100
next i
unload userform1

しかしこれだとuserformの背景が真っ白になってしまい
ラベルの文字も消えてしまいます。
そ...続きを読む

Aベストアンサー

簡単に言うと、
OS に制御を渡すってことです。(ヘルプそのまんま)
時間が掛かるループ処理などの場合、ループが終わるまで制御は独占されてしまいます。
ですのでループ中は OS や Excel そのものにも再描画をさせる暇さえ与えません。
途中に DoEvents を入れると制御が OS に渡るので、OS は溜まっていた処理をそこで行うことができます。
結果、フォームの再描画などが行われることになります。

注意点ですが、
Private Sub CommandButton1_Click()
  Dim i As Long

  For i = 1 To 50000
    DoEvents
    Cells(i,1) = ""
  Next i
End Sub

Private Sub CommandButton2_Click()
  MsgBox "hoge"
End Sub

っていうフォームのコードがあった場合、
DoEvents を入れることによって、ループ中にユーザーがCommandButton2 を押すことによって CommandButton2 のクリック イベントも動いちゃいます。
CommandButton1 のクリック イベントではループの前に
CommandButton1.Enabled = False
CommandButton2.Enabled = False
を書いてフォーム上の CommandButton を無効にしておき、ループが終わったら
CommandButton1.Enabled = True
CommandButton2.Enabled = True
と書いて CommandButton を有効に戻してください。

これを工夫すれば、CommandButton2 で CommandButton1 のループを途中キャンセルする処理もすることができます。

Private Canceled As Boolean

Private Sub CommandButton1_Click()

  CommandButton2.Enabled = False

  Dim i As Long
  For i = 1 To 50000
    DoEvents

    If Canceled = True Then
      MsgBox "キャンセルしました"
      Exit Sub
    End If

    Cells(i, 1).Value = ""
  Next i
End Sub

Private CommandButton2_Click()
  Canceled = True
End Sub



コードの行頭にあるスペースは見易さのために全角スペースで作成していますので、これをこのままコピペするとエラーになるかもしれません。
コピペするなら行頭の全角スペースを半角スペースに直してください。

簡単に言うと、
OS に制御を渡すってことです。(ヘルプそのまんま)
時間が掛かるループ処理などの場合、ループが終わるまで制御は独占されてしまいます。
ですのでループ中は OS や Excel そのものにも再描画をさせる暇さえ与えません。
途中に DoEvents を入れると制御が OS に渡るので、OS は溜まっていた処理をそこで行うことができます。
結果、フォームの再描画などが行われることになります。

注意点ですが、
Private Sub CommandButton1_Click()
  Dim i As Long

  For i = 1 To 50000
...続きを読む

Q別のシートから値を取得するとき

Worksheets("シート名").Activate
上記のを行ってから別シートの値を取得するのですが、
この処理を行うと指定したシートへ強制的にとんでしまいます。。。

※イメージ
For ~ To ~
  Worksheets("シートA").Activate
  シートAの値取得
       :
  Worksheets("シートB").Activate
  シートBの値取得
Next

このイメージ処理を行うとものすごい勢いで画面がチカチカします。。。
シートを変えずに他のシートから値を取得する方法はないのでしょうか。
教えてください!

Aベストアンサー

Worksheets("シートA").Range("A1")

みたいな感じでできませんか?

QVBA 実行時エラー1004 rangeメソッドは失敗しました。globalオブジェクトのエラー

始めまして、VBA初心者のものです。
ただいまエクセルでグラフを作成しています。作業自体は単純作業の繰り返しなのでVBAを用いてやりたいのですが、マクロを実行したときに実行時エラー’1004’rangeメソッドは失敗しました。’_global’オブジェクトとメッセージが出て、実行できません。 デバックをすると以下の5行目で黄色のバーが出ていました。自分なりに原因を考えたのですがrangeの関係するところに、Range("A8:A1587,e8:e1587")というような変数を用いないやり方でやると上手くいくので、変数に関する定義がまずいと思うのですが、それ以上の事は分かりません。どなたか、分かる方がおりましたら、よろしくお願いします。また、プログラムは以下のようになります。

Sub 繰り返し()
'繰り返し
Dim s As Integer
For s = 0 To 17
Range("cells(8,1):cells(1580,1),cells(8,s+2):cells(1580,s+2)").Select
Range("cells(8,s+2)").Activate
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("20081216_210647").Range( _
"cells(8,1):cells(1580,1),cells(8,s+2):cells(1580,s+2)"), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = "=""0810p2x"""
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="0810p2x"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "0810p2x"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "t"
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Next
End Sub

始めまして、VBA初心者のものです。
ただいまエクセルでグラフを作成しています。作業自体は単純作業の繰り返しなのでVBAを用いてやりたいのですが、マクロを実行したときに実行時エラー’1004’rangeメソッドは失敗しました。’_global’オブジェクトとメッセージが出て、実行できません。 デバックをすると以下の5行目で黄色のバーが出ていました。自分なりに原因を考えたのですがrangeの関係するところに、Range("A8:A1587,e8:e1587")というような変数を用いないやり方でやると上手くいくので、変数に関する定義...続きを読む

Aベストアンサー

>ご指摘を受けたところを書き換えて回してみた結果、書き換えた箇所
>でエラーがでます。(実行時エラー’1004’’cells’メソッドは失敗
>しました。’global’オブジェクト)
>しかし、何が原因でエラーになるか自分では分かりません。

≪例1≫
Range(Cells(8, 1), Cells(1587, 2)).Select
上記の例では、RangeとかCellsの上位オブジェクトであるシート名が省略されています。
ActiveSheet.Range(ActiveSheet.Cells(8, 1), ActiveSheet.Cells(1587, 2)).Select
というわけです。
マクロ実行時に、Activeな(Excelで表示されている)シートが上位オブジェクトとして、自動的に認識されます。

≪例2≫
Sheets("Sheet2").Range(Cells(8, 1), Cells(1587, 2)).Select
上記の例では、Rangeのみシート名が記述されています。
Sheets("Sheet2").Range(ActiveSheet.Cells(8, 1), ActiveSheet.Cells(1587, 2)).Select
というわけです。
Activeなシートが、Sheet2の場合はエラーになりません。
しかし、ActiveなシートがSheet2以外の場合、エラーが発生します。
直前に、
Sheets("Sheet1").Select
などとしていれば、ActiveシートがSheet1になっていますから、エラーになります。

Sheets("Sheet2").Range(Sheets("Sheet2").Cells(8, 1), Sheets("Sheet2").Cells(1587, 2)).Select
と書いておけば安心です。
Withステートメントを使えばスッキリ纏めることができます。
With Sheets("Sheet2")
  .Range(.Cells(8, 1), .Cells(1587, 2)).Select
End With

# Sheets("Sheet2")の上位オブジェクトが省略されていることにも気がついてください。

>そこで自分で基礎を勉強したいのですが推薦できる参考書などがござ
>いましたら、教えていただけませんか?
私自身は、入門書程度の雑誌を1冊買っただけです。どれが良いとかはよく分かりません。
「マクロの記録」を活用して、参考コードを取得し、汎用性のあるコードに編集しています。
新しい単語があれば、文字カーソルを単語の上に置き、F1キーを押してVBAのヘルプを必ず見るようにしています。
躓いた時は、Web検索して欲しい情報を得たり、あるいは、こうした掲示板で先輩方のお力をお借りしています。

Excel(エクセル)VBA入門:目次
http://oshiete1.goo.ne.jp/kotaeru_reply.php3?q=4651404
エクセル入門・初級編
http://www.kenzo30.com/excel_kiso.htm

>ご指摘を受けたところを書き換えて回してみた結果、書き換えた箇所
>でエラーがでます。(実行時エラー’1004’’cells’メソッドは失敗
>しました。’global’オブジェクト)
>しかし、何が原因でエラーになるか自分では分かりません。

≪例1≫
Range(Cells(8, 1), Cells(1587, 2)).Select
上記の例では、RangeとかCellsの上位オブジェクトであるシート名が省略されています。
ActiveSheet.Range(ActiveSheet.Cells(8, 1), ActiveSheet.Cells(1587, 2)).Select
というわけです。
マクロ実行時に、Activeな...続きを読む

Qエクセルのマクロでの保存先指定方法を教えて

エクセルのマクロを使用して作業したいと思っています。
印刷画面をpdfにして出力しようと思っております
ただし、ここで使用しております エクセルデータは usbで使用しており
pcによりドライブが変わってしまう
このusbに pdfデータを出力したいのですができますでしょうか
pdf変換しておくとプリンタなくても コンビニ印刷できるもので・・・

詳しい方 お教えください
宜しくお願い致します

Aベストアンサー

スミマセン,随分間の空いたレスポンスでしたので,こちらも見落としていました。


>ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"I:\H23年度\マレットゴルフ 成績表.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

ようやっと,ご利用のエクセルのバージョンを含めてそもそもどうやってPDFを保存しているのかの情報が出てきましたね。
この流れで行うなら

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=thisworkbook.path & "\マレットゴルフ 成績表.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

といった具合になります。
ドライブレターだけ参照して全く違うフォルダに保存したい場合は,前述回答を参考にちょい直してください。

スミマセン,随分間の空いたレスポンスでしたので,こちらも見落としていました。


>ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"I:\H23年度\マレットゴルフ 成績表.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

ようやっと,ご利用のエクセルのバージョンを含めてそもそもどうやってPDFを保存しているのかの情報が出てきましたね。
この流れで行うなら

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
F...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング