エクセルマクロを実行した後、
マウスを使わずに、
直接いきなりセルへ入力すると、
ツールバーのコマンド選択バー(というのかな?)
が出てきてしまいます。

例えば、
「H」と入力すると、ヘルプのバー。
「F」と入力すると、ファイルのバー。
「E」と入力すると・・・ですね。
にゅーっと出てきてしまうのです。

エクセルマクロの実行内容は、
実行すると、他のファイルを開いて、
閉じるということをやっています。

上記のいう「H」が、
セルへ入力できればいいのですが、
何が原因なのかさっぱりわかりません。

「Application.EnableEvents = ・・・」や
「Application.ScreenUpdating = ・・・」
かな?

誰か対処方法がありましたら、
伝授のほうをよろしくおねがいします。

OS:windows95
ソフト:Excel97

         です。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

VBAの公開ありがとうございました。


これはコピー・貼り付けされたものでしょうか?
手で書き写したとしたら、たぶん外してます。

Prc_opmaster()の中の2行目で

Workbooks("sheet1").Activat

Worksheets("sheet1").Activate
じゃないかなと思います。

エクセル2000だとエラーになります。

では。
    • good
    • 0

#1の方のおっしゃる通りで、なぜか「ALT」が押された状態のようです。



マクロって、VBAのことですよね?
原因を取り除くか、入力したいセルを選択状態にしてしまうというのはどうでしょうか?
Range("C8").Select
(例はC8セルに入力したい場合)

頑張ってくださいね。

この回答への補足

では、おもいきってVBAの中身を、
公開しちゃいます。
みなさんからの意見がいただけますように・・・。

---ここから------------------------------------
Private Sub Workbook_Open()
 Application.ScreenUpdating = False
 Sheets("sheet1").Activate
 Prc_opmaster   '//Bというファイルを開く
 ActiveWindow.Visible = False   '//Bというファイルを非表示

 '(なにかやってます)

 Prc_clsmaster  '//Bというファイルを閉じる
 Application.ScreenUpdating = True
 Range("A1").Select
End Sub

Sub Prc_opmaster()
 Workbooks.Open ("Bというファイルのパス"), ReadOnly:=True
 Workbooks("sheet1").Activate
End Sub

Sub Prc_clsmaster()
 Workbooks("B.xls").Close False
End Sub
---ここまで------------------------------------

「Prc_opmaster」と「Prc_clsmaster」の2つのプロシージャーは、
標準モジュールに記述してあります。

わかっていることは、
Bというファイルを開く処理をすると、
バーがにゅーっと現象が起きてしまいます。
それがなぜだかわからんのです。

こんな補足、大丈夫かな・・・・

補足日時:2001/06/06 10:19
    • good
    • 0
この回答へのお礼

ありがとうございます。
はい、マクロはVBAのことです。

Range("C8").Select
と最後に入れてみたんですけど、
だめですねー。

なんででしょうかねー。

お礼日時:2001/06/06 10:00

多分、「ALT」キーが押された状態になっていると考えられます。

マクロの内容が不明なので、原因は分かりませんが、
一回「ESC」キーを押して入力してみてはどうでしょうか。
多分入力はできるような気がしますが・・・・・
情報不足の感があります。
    • good
    • 0
この回答へのお礼

ありがとうございます。
また情報不足を指摘されてしまった・・・。

「ESC」キー押してみたんですけど、
だめでしたねー。

なんででしょうかねー。

お礼日時:2001/06/06 09:57

このQ&Aに関連する人気のQ&A

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

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

このQ&Aを見た人が検索しているワード

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

Qexcelのマクロでrangeの選択がうまくいきません。

excelのマクロでrangeの選択がうまくいきません。
以下のマクロをsheet2に書きました。testcopyは動きますが、testcopy2は動きません。なぜなのでしょうか。どうすればいいのでしょうか。それ以外のマクロの部分との関係から、cellsを使い、数字を使ってrangeの処理をしたいのです。よろしくお願いします。

Sub testcopy()
Worksheets("sheet1").Range("B3:C10").Copy
Worksheets("sheet2").Range("e5").Select
ActiveSheet.Paste
End Sub

Sub testcopy2()
Worksheets("sheet1").Range(Cells(3, 2), Cells(10, 3)).Copy
Worksheets("sheet2").Range("e5").Select
ActiveSheet.Paste
End Sub

Aベストアンサー

>testcopyは動きますが、testcopy2は動きません

testcopyは「動作したり、しなかったりする」が正しい表現です。
  要するに今回testcopyが動いたのは▼たまたま▼ということです。

testcopy2 は当然ながらエラーになります。
何れにしろ、両方ともに問題があるということです。
その問題点は2つあります。

(1)アクティブでないシートのセルはSelect(Activate)できない
(2)複数のシートを扱うときのセルの参照は
   そのセルがどのシートのセルなのか明示する必要がある


これを踏まえて、、、、
---------------
●testcopy●

これが動作するのは
Sheet【2】がアクティブな状態で実行する場合です

Sheet【1】がアクティブな状態で実行すると
  Worksheets("sheet2").Range("e5").Select
ここで、問題点(1)の理由によりエラー。
で、先ずシートを選択、次にセルを選択と2段階にしないといけません。

  Worksheets("sheet2").Select
  ActiveSheet.Range("E5").Select

----------------
●testcopy2●

▼Sheet【1】がアクティブな状態で実行
  testcopyと同じ場所、同じ理由でエラー

▼Sheet【2】がアクティブな状態で実行
  Worksheets("sheet1").Range(Cells(3, 2), Cells(10, 3)).Copy
  ここで、問題点(2)により、エラー。
 
 Cellsの前にシートオブジェクトがないので
 Cells(3, 2), Cells(10, 3)はアクティブなSheet【2】のセルとみなされ
 (★実際はちょと違う場合もありますが今回はそう★)

 Worksheets("sheet1").Range(  ← Sheet【1】
 Cells(3, 2), Cells(10, 3))   ← Sheet【2】

このようにSheet【1】【2】が混在していることになり、エラー
で、Cellsの前にシートを付加してセルがどのシートのセルか明示してやる

Worksheets("sheet1").Range(Worksheets("sheet1").Cells(3, 2), Worksheets("sheet1").Cells(10, 3)).Copy
  
---------------------------------
で、質問者のコードを修正すると
'-------------
Sub testcopy()
 Worksheets("sheet1").Range("B3:C10").Copy
 With Worksheets("sheet2")
   .Select
   .Range("E5").Select
   .Paste
 End With
End Sub
'-------------

Sub testcopy2()
 With Worksheets("sheet1")
   .Range(.Cells(3, 2), .Cells(10, 3)).Copy
 End With
 With Worksheets("sheet2")
   .Select
   .Range("E5").Select
   .Paste
 End With
End Sub
'--------------

●ただ今回のような単純なコピーの場合は
 既出の回答にあるようにSelectなしで書くのがふうつです。
'-----------
Sub testcopy111()
 Worksheets("sheet1")
   .Range("B3:C10").Copy Worksheets("sheet2").Range("E5")
 End With
End Sub
'-----------
Sub testcopy222()
 Worksheets("sheet1")
  .Range(.Cells(3, 2), .Cells(10, 3)).Copy Worksheets("sheet2").Range("E5")
 End With
End Sub
'-----------

今回の件は重要事柄ですので覚えておきましょう。
以上です。
 

>testcopyは動きますが、testcopy2は動きません

testcopyは「動作したり、しなかったりする」が正しい表現です。
  要するに今回testcopyが動いたのは▼たまたま▼ということです。

testcopy2 は当然ながらエラーになります。
何れにしろ、両方ともに問題があるということです。
その問題点は2つあります。

(1)アクティブでないシートのセルはSelect(Activate)できない
(2)複数のシートを扱うときのセルの参照は
   そのセルがどのシートのセルなのか明示する必要がある


これを踏まえて、、、、
-...続きを読む

Q【EXCEL】あるセルにAという値が入力されたら既定範囲にマクロを自動実行したい

「あるセルにAという値が入力されると,既定範囲にマクロを自動実行する」ということはできますか?

たとえばB2に「欠席」という値が入ったらその下のB3~B8までセルを斜線にする.
    C3に「欠席」という値が入ったらその下のC3~C8までセルを斜線にする.

という感じです.マクロサイトもいくつかみたのですが分かりません.お願いします.

Aベストアンサー

#02です。
>結合して斜線1本にしたかったです
結合するならこんな感じでしょう。ざっとしかテストしてませんが…
ただしB3:B8の複数セルに値が入力されていると、先頭セル以外の値は消えてしまいますがよいですね。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, trg As Range
 Set trg = Intersect(Target, Range("B2:C2"))
 If Not trg Is Nothing Then
  For Each r In trg
   If r.Value = "欠席" Then
    Application.DisplayAlerts = False
    r.Offset(1, 0).Resize(6, 1).Merge
    Application.DisplayAlerts = True
    r.Offset(1, 0).MergeArea.Borders(xlDiagonalDown) _
        .LineStyle = xlContinuous
   Else
    r.Offset(1, 0).Resize(6, 1).MergeCells = False
    r.Offset(1, 0).Resize(6, 1).Borders(xlDiagonalDown) _
        .LineStyle = xlNone
   End If
  Next r
 End If
End Sub

#02です。
>結合して斜線1本にしたかったです
結合するならこんな感じでしょう。ざっとしかテストしてませんが…
ただしB3:B8の複数セルに値が入力されていると、先頭セル以外の値は消えてしまいますがよいですね。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, trg As Range
 Set trg = Intersect(Target, Range("B2:C2"))
 If Not trg Is Nothing Then
  For Each r In trg
   If r.Value = "欠席" Then
    Application.DisplayAlerts = False
    r.Offset(1...続きを読む

QRange("K" & TR).Formula = で、セルにマクロで式を書きたいのですが

よろしくお願いします。いつもgooの皆さんには大変お世話になっています
エクセルは2013です

わけあって、セルにマクロで式を書いています
例えば TRは行を表す変数ですが
Range("K" & TR).Formula = "=IFERROR(AY" & TR & ","""")" と書いたマクロの結果は
=IFERROR(AY43,"") という式がRange("K" & TR) に書かれます

それでは、いま、マクロで下記のように書いているコード(TRは行を表す変数です)
Range("Z" & i) = Range("Z" & i - 1) - Range("AG" & TR) * 10000 は
Range("Z" & i).Formula = 
で書く場合、=の右側をどう書いたら良いでしょうか

色々とやってみたのですが狙った式になりません

この場合 変数 i を使っているので、もしかしたら、そもそも無理なことでしょうか

うまく説明できていませんがよろしくお願いします

Aベストアンサー

No.1です。申し訳ありません大ボケな回答をしていましました。

要するに↓ってことですよね? また勘違いしていたらスミマセン。

Range("Z" & i).Formula = "=Z" & i - 1 & "-AG" & TR & " * 10000"

Qあるセルに入力したら実行するマクロの組み方

過去ログで探しきれなかったのでお願いします。
エクセル2003です。
A1に「りんご」と入力するとB1とC1が結合されて「○」と出て
A1にりんご以外の何かを入力すると同じく結合されて「×」とでるマクロの組み方をご教示願います。

どうしても結合させる必要があるので、関数では無理かと思います。
よろしくお願いします。

Aベストアンサー

入力するシートのワークシートモジュールに以下のコードを記述

Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    Range("B1:C1").MergeCells = True   'セルの結合
    If Target.Value = "りんご" Then
      Range("B1").Value = "○"
    Else
      Range("B1").Value = "×"
    End If
  End If
End Sub

Worksheet_Changeはワークシートに変更があった際にコールされるマクロでTargetに変更のあったセルです。

QVBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗

マクロ実行時に、エラー’1004RangeクラスのPasteSpecialメソッドが失敗と表記され、マクロが実行されません。

マクロの内容は、任意の範囲をコピー、新規book追加し、
新規bookに(1)Paste:=xlPasteValues (2)Paste:=xlPasteColumnWidths (3)Paste:=xlPasteFormats の順に貼り付けし保存するものです。

いろいろ調べては見たのですが、当方初心者の為、わからずじまいです。お手数ではございますが、どなたかご教授願います。
下記にマクロ内容全部記載します。
よろしくお願いします。

*********************************************************
*********************************************************
Sub 日報別ファイルに保存したい1()
Worksheets("日報").Range("A3:AF36").Copy
With Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

ApplicationDisplayAlerts = True '同名FILEが存在する場合'
ActiveWorkbook.SaveAs Filename:= _
"c:\日報\" & ActiveSheet.Range("J2") & "年" & ActiveSheet.Range("l2") & "月" & ActiveSheet.Range("n2") & "日_日報.xls" _
, FileFormat:=xlNormal
.Close file


End With

End Sub

マクロ実行時に、エラー’1004RangeクラスのPasteSpecialメソッドが失敗と表記され、マクロが実行されません。

マクロの内容は、任意の範囲をコピー、新規book追加し、
新規bookに(1)Paste:=xlPasteValues (2)Paste:=xlPasteColumnWidths (3)Paste:=xlPasteFormats の順に貼り付けし保存するものです。

いろいろ調べては見たのですが、当方初心者の為、わからずじまいです。お手数ではございますが、どなたかご教授願います。
下記にマクロ内容全部記載します。
よろしくお願いします。

***********...続きを読む

Aベストアンサー

こんにちは。

>結果、「ThisWorkbook」上の下記のマクロを削除すると、正常に動きだしました。
それは、Copy 範囲が、消えてしまうことで、PasteSpecial が利かなくなってしまうからです。

まず、シート名の長いコードは、これだけでよいはずです。

Private Sub Workbook_Activate()
 Select Case StrConv(Trim(ActiveSheet.Name), vbNarrow)
 Case "1" To "30", "日報"
  Application.Calculation = xlCalculationManual
 End Select
End Sub


-------------------------------------------
''もし、そのままでダメでしたら、 ' Application.EnableEvents = False 'イベントの介入を阻止する のところのコメント・ブロック('コードの手前のアポストロフィ)を外して、再度試してみてください。

Sub 日報別ファイルに保存したい2()
Dim myRng As Range
Set myRng = Worksheets("日報").Range("A3:AF36")
 ' Application.EnableEvents = False 'イベントの介入を阻止する

With Workbooks.Add
  myRng.Copy
 .ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues, _
             Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  myRng.Copy
 .ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths, _
             Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  myRng.Copy
 .ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteFormats, _
             Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
  Application.CutCopyMode = False
 
 ApplicationDisplayAlerts = True '**これは、そのままでは必要ないはずです。'
 
 ActiveWorkbook.SaveAs Filename:="c:\日報\" & ActiveSheet.Range("J2") & "年" & _
                 ActiveSheet.Range("l2") & "月" & _
                 ActiveSheet.Range("n2") & "日_日報.xls", _
                 FileFormat:=xlNormal
 .Close file
End With
Set myRng = Nothing
'Application.EnableEvents = True 'イベントマクロの活動を戻す

End Sub

こんにちは。

>結果、「ThisWorkbook」上の下記のマクロを削除すると、正常に動きだしました。
それは、Copy 範囲が、消えてしまうことで、PasteSpecial が利かなくなってしまうからです。

まず、シート名の長いコードは、これだけでよいはずです。

Private Sub Workbook_Activate()
 Select Case StrConv(Trim(ActiveSheet.Name), vbNarrow)
 Case "1" To "30", "日報"
  Application.Calculation = xlCalculationManual
 End Select
End Sub


-----------------------------------------...続きを読む

Qエクセルでセルに文字が入力されたらマクロを実行

前回どなたかが質問されて回答を見せてもらったら私のやりたいことと同じだったので実行してみましたが出来なかったのでもう一度質問をさせてください。
1.実行したのですが、なにも実行されません。
2.実行したらメッセジBOXだけは実行するのですが、後のコマンドが実行されずにエラーになります。
もう一度詳しく教えてください。
マクロ初心者ですよろしくお願いします。
1.【シートモジュールで条件判定し、マクロを起動する】
通常はこちらの方法が使われます。
Private Sub Worksheet_Change(ByVal Target As Range)
  '変化のあったセルがA1セルか?
  If Target.Address = "$A$1" Then
     '条件判定:A1セルの値は 1 か?
    If Target.Value = 1 Then
      MsgBox "A1セルは条件を満たしました"
    End If
  End If
End Sub
2.【ワークシート上で条件判定し、マクロを起動する】
処理内容にもよっては不向きな場合もありますが、こんな方法も
あります。
マクロを Sub ではなく、Function 、、つまり関数にしてしまいます。
Function TestMacro() '<-- Sub を Function に替える
  MsgBox "A1セルは条件を満たしました"
  TestMacro = "" '戻り値はなし
End Function
そして、ワークシートの B1 セルに次の式を入力します。()は必須
です。
 =IF(A1=1,TestMacro(),"")

前回どなたかが質問されて回答を見せてもらったら私のやりたいことと同じだったので実行してみましたが出来なかったのでもう一度質問をさせてください。
1.実行したのですが、なにも実行されません。
2.実行したらメッセジBOXだけは実行するのですが、後のコマンドが実行されずにエラーになります。
もう一度詳しく教えてください。
マクロ初心者ですよろしくお願いします。
1.【シートモジュールで条件判定し、マクロを起動する】
通常はこちらの方法が使われます。
Private Sub Worksheet_Change(ByV...続きを読む

Aベストアンサー

全てのセルで1が入力されたら実行するには、

>  '変化のあったセルがA1セルか?
>  If Target.Address = "$A$1" Then

この部分を改造します。具体的に言うとコメントアウトしてください。もしくは削除する。これに対応するEnd Ifも忘れずに。

親切にコメントで動作を書いてあるのに無駄なようですね残念です。

QExcelマクロでRange("A1:A5,C1:C5")をCellsで書きたいのですが

マクロ初心者です。
Excelマクロでグラフを作成するときに、元データを指定する所で、
Source:=Range("A1:A5,C1:C5")とするような場合、
「A1」とかアルファベットでの番地指定ではなく、
Cellsを用いて書きたいのです。

Source:=Range("A1:A5")であれば、
Source:=Range(Cells(1, 1), Cells(5, 1))と書けばいいことは分かるのですが、範囲指定を複数にする場合が分からないのです。

よろしくお願いします。

Aベストアンサー

Unionを使用したらできると思います。

Source:=Union(Range(Cells(1, 1), Cells(5, 1)), Range(Cells(1, 3), Cells(5, 3)))

今Excelがインストールされてないパソコンで作業していないので確認はしていないのですが・・・。

よかったら参考にして下さい

Q検索の実行で、ヒットした行のA列の番号を、セルB3に自動入力するマクロ

検索の実行で、ヒットした行のA列の番号を、セルB3に自動入力するマクロを教えてください。
エクセルの6行目から約19000行目まで、A列には1からの番号、B列に薬名、C列に剤形、D列にコードが入力されている薬台帳があるのですが、この台帳から薬名を検索して、最初にヒットしたA列の番号をセルB3に表示したいのです。
どなたかよろしくお願いします。

Aベストアンサー

>標準モジュールに貼り付けたのですが、動いてくれません。

動作しないのは、まるまる提示のコードを実行しようとしているか、あなたの質問に不備があるか、です。
当然のことながら、「What:="薬名"」の"薬名"の部分は検索したい薬名に正確に修正しないとダメです。
それでも動作しないなら、質問に記載されていない事項があるためです。

たとえば、新規ブックに、A6:A10に1から順に番号を振り、B10にでも「薬名」と入れて、提示したコードを貼り付け実行すれば、B3に5と表示されます。やりたいことと違う場合は再度質問を読み直されることをお勧めします。

Qエクセルのマクロ(range)について

マクロの作りと理解の方法について教えてください。

今、日報を作り直しています。
以前作成した方は、このように作っていました。


Worksheets("日報").Select
Range("Q7:Q23").Value = Range("U7:U23").Value
Range("S7:S59").Value = Range("V7:V59").Value
Range("A1").Select
MsgBox " 転写を終了しました。"
End Sub


マクロでは複数の行列を指定していますが、1行だけ表すと、
具体的な表とデータの変化の仕方とするとこのようになっています。

M    O    Q     S       U     V
個数 金額  累計個数 金額金額 (=M+Q) (=O+S)
0、   0、   100、   1000、    100、   1000 
1,初期状態

10、  100、  100、   1000、    110、   1100
2,個数を入力すると、計算式を入力してあるUとVの数が変わる

10、  100、   110、   1100、    120、   1200
3,マクロを実行すると、UとVの数がQとSに入力され、計算式を入力してあるUとVの数がさらに変わる。

0、   0、    110、   1100、   110、    1100
4,MとOの数をゼロ(クリア)にすると、計算式を入力してあるUとVの数が変わる。     


なかなか理解できないのは、Range("Q7:Q23").Value = Range("U7:U23").Valueの部分で、
2,の後にマクロを実行すると、U 110、V 1100がQ 100とS 1000に書き込まれることです。
通常の計算式だと=は対象となったセルをそのまま表示していると思うのですがのですが、
マクロに書いてある式だと3,のところでUとVの数をQとSに書き込んであります。
なぜ=なのにマクロでは一方のセルに数を書き込んでいるのでしょうか。
また、QやSをUやVへ書き込んでいないのでしょうか。

どなたか詳しく教えていただけると幸いです。

マクロの作りと理解の方法について教えてください。

今、日報を作り直しています。
以前作成した方は、このように作っていました。


Worksheets("日報").Select
Range("Q7:Q23").Value = Range("U7:U23").Value
Range("S7:S59").Value = Range("V7:V59").Value
Range("A1").Select
MsgBox " 転写を終了しました。"
End Sub


マクロでは複数の行列を指定していますが、1行だけ表すと、
具体的な表とデータの変化の仕方とするとこのようになっています。

M    O    Q     S...続きを読む

Aベストアンサー

プログラミング言語では、一般的に、
「=」は、右辺から左辺への「代入」
を意味します。

マクロ = Visual Basic = プログラミング言語
なので、Excelにおける「=」とは少し意味合いが違っています。

Qエクセル:マクロ「Application.CutCopyMode = False」って?

エクセルのマクロを記録していると

「Application.CutCopyMode = False」

というものがよく出てきますが、これは何でしょう?
どういう意味のものかわかりません。
削除しても差し支えないのもでしょうか?

Aベストアンサー

「Application.CutCopyMode = False」の前で
セルのコピー、または切り取りを行っていると思います。
これは、その操作(セルのコピー、または切り取り)を無効にしているだけです。
------------
Range("A1").Select
Selection.Copy ← これを無効にしている
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
------------
上記の場合であれば、「Application.CutCopyMode = False」を削除しても問題ありませんが、
以下の場合、貼り付け処理でエラーになります。
------------
Range("A1").Select
Selection.Copy
Range("A2").Select
Application.CutCopyMode = False
ActiveSheet.Paste ← ココでエラー
------------
ご自分で、セルをコピーしてみると分かると思いますが、コピーした範囲が点線で点滅されます。
「Application.CutCopyMode = False」をすると、
その点滅がなくなります。

「Application.CutCopyMode = False」の前で
セルのコピー、または切り取りを行っていると思います。
これは、その操作(セルのコピー、または切り取り)を無効にしているだけです。
------------
Range("A1").Select
Selection.Copy ← これを無効にしている
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
------------
上記の場合であれば、「Application.CutCopyMode = False」を削除しても問題ありませんが、
以下の場合、貼り付け処理でエラーになります。
------------
...続きを読む


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

人気Q&Aランキング