エクセル2000を使用しています。関数を使用するかわかりませんが2つ教えてください。
1.月を入力すると自動的に月末の日付が表示される。
(例:A1のセルに1と入力するとB1のセルに1月の月末日である31と表示)
2.A列に入力してある種類ごとにB列の数値の合計をB列の最後に出す。

よろしくお願いします。

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

A 回答 (5件)

1.分析ツールからEOMONTH関数を使うと便利です。

次の例は、A1に入力された月の末日の数値を返します。

=DAY(EOMONTH(A1&"/"&1,0))

もしEOMONTH関数が"#NAME?"のエラーを返す場合は、[ツール]>[アドイン]として、"分析ツール"にチェックを入れてください。(このアドインは便利な関数が豊富です。)
"分析ツール"が無い場合はofficeの追加と削除で、分析ツールの追加インストールが要ります。

2.SUMIF関数が便利です。例えばA列の1~10行目に、イ、ロ、ハの三種類の分類がランダムにあって、その値がB列の1~10行目に対応して入力されている場合、"イ"の合計を知りたい場合は、

=SUMIF(A1:A10,"イ",B1:B10)

となります。
    • good
    • 0
この回答へのお礼

皆さん回答ありがとうございました。おかげで助かりました。
ポイントは参考にさせていただいた方につけさせていただくことにしました。

お礼日時:2003/09/19 10:17

月を入力とは、どのような状態でしょうか。


入力は2003/9/17のように日付全てを入力しないと計算できません。上記のように入力すればA1に日付を入力するとして、B1に
=DATE(YEAR(A1),MONTH(A1)+1,DAY(1))-1
と入力すると、B1に、2003/9/30と出ます。後はセルの書式設定で表示形式を変更してください。
    • good
    • 0

1.


B1セルに
=DAY(DATE(2003,A1+1,0))
と入力します。式中の2003は2003年を示していますので他の年にする時は変更してください。
    • good
    • 0

こんにちは。

maruru01です。

1.について
年はどうしますか。
とりあえず、今年ということなら、B1に、

=IF(ISNUMBER(A1),TEXT(DATE(YEAR(TODAY()),A1+1,0),"d"),"")

です。
(A1が数値以外の場合は「""」になります。)

2.について
SUMIFやSUMPRODUCT関数で出来ます。
具体的な例がないと、数式は提示しようがありませんが。
    • good
    • 0

補足をお願いします。



> 1.月を入力すると
2月はどうしますか?うるう年判定は不要ですか?

> 2.A列に入力してある種類ごとに
どのような種類なのでしょうか?
    • good
    • 0

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

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

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

Q刀とバフ研磨

短刀に買ってきたバフ研磨をしてみたのですが全然変化なし、やり方が悪いのでしょうか?

Aベストアンサー

砥石で研いだ刃先は細かいギザギザが有ります。
このギザギザが切る対象物へきっかけとして食い込むことで、物はよく切れます。

研ぐ事と磨く事は違います。
バフが回転するバフ研磨では、円弧状に磨いてしまうので砥石で研いだ時のような微細なギザギザができません。
バフの円周面を使って刃と直角に研磨した場合は、刃先から根元まで平面にするのは非常に困難ですし、その場合、砥石のきめ細かさには敵いません。

もしも刀の切れ味のことではなくて、研磨しても光らないということでしたら、研磨剤をつけたり、バフを適当な物に変えれば済むことですが。

参考URL
http://www.ntv.co.jp/megaten/library/date/02/11/1103.html

参考URL:http://www.ntv.co.jp/megaten/library/date/02/11/1103.html

QA1に数字の1を入力するとB1の値がA1に表示、A2に数字の2を入力するとB2の値がA2に表示

エクセル初心者です

セルのA1に数字の1を入力するとB1の値がA1に表示、A2に数字の2を入力するとB2の値がA2に表示されるようなものを作りたいのですが・・・
どなたかご教授お願いします

例えば、A1に1を入れるとB1の値"北海道"がA1に表示され、A2に2を入れるとB2の値"青森"がA2に表示といった感じでです

宜しくお願いいたします

Aベストアンサー

No3,5,6です。
補足要求をしましたが時間がないので、No6での以下の理解、

B4がROOT,C4が♭9,D4が9,E4がm3,F4がM3~M4がM7
置き換え対象はB6:W11の範囲

ということでいいのなら以下で出来ます。

1.シートのタブを右クリックし、コードの表示を選択
2.出てきたVBエディター(白い画面)に下記をコピペ

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
If Intersect(Target, Range("B6:W11")) Is Nothing Then Exit Sub
x = Target.Value
Application.EnableEvents = False
Target.Value = Range("A4").Offset(0, x)
Application.EnableEvents = True
End Sub

3.AltキーとF11キーを一緒に押してワークシートへもどります。

Q研磨ディスクとバフ研磨、コンパウンドの違い

ディスクグラインダーで1mmから3mm程度の鋼板を研磨しているのですが、研磨ディスクとバフ研磨、コンパウンドの違いを教えて下さい。
現在はイチグチの研磨ディスクで番手を40→80→180→400の順で試しており、丁寧に研磨すれば研磨跡も多少きになるぐらいで表面もぼやけて顔が映るぐらいになります。
できればRaで1.6相当になることを目標にしているのですが、研磨ディスクで目指せるものでしょうか?(表面粗さの測定はお金と手間がかかるのであくまで行わないという前提でお願いします。)
また、バフ研磨やコンパウンドで研磨することの違いと特にコンパウンドで研磨することの意味を教えて下さい。
宜しくお願いします。

Aベストアンサー

研磨ディスクと一言でいわれても非常に多くの形状・種類がありますからね。研磨紙を重ねたもの、研磨材を付着させた不織布でできたもの、ゴム・スポンジ状に研磨剤を含ませたもの、バフだって研磨ディスクの一種です。研磨材の総合カタログをご覧になれば分かりますが、ディスクグラインダーで使用するディスク状のバフにも麻、綿、羊毛、フェルトなど素材や形状が様々です。
正確かどうかは別にして、一般に考えられているイメージをすごく簡単に言ってしまえば、それ自体が何らかの研磨材(砥粒)をもって、それだけで研削・研磨作業ができるものを研磨(研削)ディスク。
バフは磨き輝かせる、という意味で何もつけずバフだけで磨くこともありますが、金属研磨の場合は何らかの研磨材(青棒・白棒など)を外から補給しながら使うものが多いです。
コンパウンドってのは研磨材の一種でペースト状、液状のものが多いですね。

私は面粗度を表すRaには馴染みがないですが、Ra1.6というと▽▽▽(上仕上げ)相当になりますね。詳しくは私もうまく説明できませんが、▽印で表す面租度といのは人によって随分幅があるもののようで、専門の方に怒られるのを覚悟で言えば、▽▽▽だと概ね、フライス・旋盤などのバイト切削だけで得られる最上の仕上げ面~ベアリングの内外輪のはめあい面程度までの幅をもった面粗さの状態になります。爪で引っかいた時、凸凹とか引っ掛かりを感じない程度、と言えばいいでしょうか。
いわゆる鏡面というのは▽▽▽▽で、通常は研削ではなく研磨でなければ出せないレベルで、Raだと1桁ないし2桁数字が小さくなります。
SPCC材でt1~3mm程度、500mm四方、でそんな表面粗さを必要とする場面が想像できません。
摺動面だとしてもそれなら面粗さのほかに全体の平滑度とか材の硬さがより重要だと思うのですが。

勘違いされているようですが、黒皮というのは酸化物ですから、これがある材は熱延です。薄板のSPCC材は冷間圧延ですから黒皮がありません、いわゆるミガキがこれにあたります。SPCCに黒皮はありません。冷延ですから応力が残っていたり加工硬化などの影響もありますが、SS400よりも引張り強度は低いですね。
熱延でも薄板の場合は圧延しているうちに温度が下がってくるためか、黒皮が薄く比較的強固ですが、中厚以上になると黒皮も厚くなります。

ミガキ(コールド)は板厚の精度も良く、そのままで表面粗さも▽▽程度はあると思われます。この程度では不満なのでしょうか?全体の平滑度が犠牲になってもよいのなら、ディスクグラインダーではなく、オービタルサンダーで使い古したペーパー(いわゆる砥粒がつぶれた)400♯をつけて軽く均一にあたればRa1.6程度になると思います。新しい研磨材(ペーパー)だと傷をひきます。
ペーパーを使っての研磨といのは(とくにこのような上仕上げになると)作業者の技術・力加減で随分結果に差が出るものです。

40♯ということは当然黒皮取り、ということになりますが、この作業をディスクグラインダーでやってしまっては凸凹が激しく、薄板でRa1.6を目指すとするなら使い物にならなくなるはずです。
黒皮肌を機械研削で表面粗さ▽▽▽を目指すとすると、取り代は0.5mm以上見ておかなくてはなりません。
ミガキの表面素地でさえ不満なのですから、こんな大きさの薄板の研磨をこんな荒いところからスタートしたんでは、中盤戦以降に使うものが多羽根ディスクだろうがフラップだろうがハイラップだろうが同じこと、使い物にならなくなってるはずです。

>「研磨跡も多少きになるぐらいで表面もぼやけて顔が映るぐらいになります」

その程度であればRa1.6くらいにはなってるはずですが、本当にそれ以上の面が必要だとするなら鏡面研磨に進むしかないですね。
赤棒(主に傷取り目的、鏡面状態にはならない)で試してみて、なお不満なら白棒(準鏡面、曇った鏡面)、青棒と進める。
研磨作業の手間を考えれば黒皮材を使う意味が分かりません、「ミガキ」とはっきり材を指定すべきです。
それより、単に表面だけが必要で特に理由がないなら、用途によって304が良いか430が良いかわかりませんが、ステンの鏡面板を寸法指定で発注するほうが良いよいに思いますが。

研磨ディスクと一言でいわれても非常に多くの形状・種類がありますからね。研磨紙を重ねたもの、研磨材を付着させた不織布でできたもの、ゴム・スポンジ状に研磨剤を含ませたもの、バフだって研磨ディスクの一種です。研磨材の総合カタログをご覧になれば分かりますが、ディスクグラインダーで使用するディスク状のバフにも麻、綿、羊毛、フェルトなど素材や形状が様々です。
正確かどうかは別にして、一般に考えられているイメージをすごく簡単に言ってしまえば、それ自体が何らかの研磨材(砥粒)をもって、それ...続きを読む

QExcel2013 VBA A列とB列の文字をA列とB列とC列に移動させる方法

A列とB列に文字が入っているのですが、下記のようにA列とB列とC列に文字を移動させたいです。
(A列の数字は必ず奇数のA列に入っています。)
VBAのコードを教えて下さい。

例えば
A1 1  B1 cat
A2 空白 B2 猫
A3 空白 B3 dog
A4 空白 B4 犬
A5 2  B5 whale
A6 空白 B6 クジラ
A7 3  B7 rabbit
A8 空白 B8 ウサギ

とデータがある場合

A1 1  B1 cat  C1 猫
A2 空白 B2 dog  C2 犬
A3 2  B3 whale  C3 クジラ
A4 3  B4 rabbit C4 ウサギ

としたいです。

実際、データは、A5196まであります。

Aベストアンサー

No.1です。

>実際、データは、A5196まであります。

前回のコードは一つずつカット&ペーストしていますので
かなりの時間を要すると思います。
↓のコードに変更してみてください。

Sub Sample2()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(1, "C"), Cells(lastRow, "C"))
.Formula = "=IF(MOD(ROW(),2)=1,B2,"""")"
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Application.ScreenUpdating = True
MsgBox "完了"
End Sub

少しは短縮できると思います。m(_ _)m

No.1です。

>実際、データは、A5196まであります。

前回のコードは一つずつカット&ペーストしていますので
かなりの時間を要すると思います。
↓のコードに変更してみてください。

Sub Sample2()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(1, "C"), Cells(lastRow, "C"))
.Formula = "=IF(MOD(ROW(),2)=1,B2,"""")"
.Value = .Value
.SpecialCells(xlCellTypeB...続きを読む

Q自動レベル補正と自動コントラストと自動カラー補正の違い

自動レベル補正と自動コントラストと自動カラー補正の違い

質問させてください。
PhotoShopの機能である、「自動レベル補正」と「自動コントラスト」と「自動カラー補正」は具体的に何が違うのでしょうか?また、どのような目的で使用するのでしょうか?

僕が調べた限りでは、「自動コントラスト」は画面が黒っぽいときに使用して、「自動レベル補正」と「自動カラー補正」は画像に色がかかっているときに使用するようですが、それでは「自動レベル補正」と「自動カラー補正」の二種類が存在するがわかりません。

どなたか教えてください。お願いします。

Aベストアンサー

PhotoShopのヘルプの説明を

「自動レベル補正」コマンドは「レベル補正」スライダを自動的に動かし、ハイライトとシャドウを設定します。このコマンドにより、各カラーチャンネルの最 も明るいピクセルがホワイトに、最も暗いピクセルがブラックに定義され、それに応じて中間のピクセル値が再分布されます。「自動レベル補正」は各カラー チャンネルを個別に調整するので、色合いが削除されたり発生したりすることがあります。

「自動カラー補正」コマンドは、シャドウ、中間調、ハイライトに対するチャンネルのヒストグラムではなく実際の画像を検索することによって画像のコントラ ストと色を調整します。これにより、中間調が調整され、ホワイトとブラックのピクセルが自動カラー補正オプションダイアログボックスで設定した値に基づい て切り捨てられます。

どうも違うようですが難しい説明ですね。
「自動カラー補正」はコントラストの調整もしているようですね。

私は「自動コントラスト」は画像にメリハリが無い時にも使っています。

QA列とB列の重複を抽出したいのですがA列とB列の値は一部だけ同じ文字です。ご教示お願いします。

エクセル初心者です。重複を見つけるのが仕事です。いろいろやってみたのですがうまくできません。
お知恵をお貸しください。

A列には企業名が入力されています。
B列にも企業名が入力されていますが全く同じ文字ではないのです。

たとえばこういうことです。
A1 (有)雪見酒      B1  雪見
A2 株式会社豪雪地帯   B2 (株)豪雪地帯
A3 ゆきかき本舗     B3 (有)ゆきかき本舗

A列にある企業名とB列にある企業名が同じであればセルを塗りつぶすか○を表示させるように
したいのです。
重複を見つけるのが目的なので、ほかの方法でもかまいません。
すみません、A列のセルとB列のセルが全く同じ名前ならば重複が見つけられたのですが
ここから先がどうしてもわからないのです。。。
申し訳ありませんがどうか教えてください。。。

Aベストアンサー

No4です。以下のマクロを標準モジュールへ登録してください。
--------------------------------------------------
Option Explicit
Public Sub 重複チェック()
Dim maxrow1 As Long
Dim maxrow2 As Long
Dim row1 As Long
Dim row2 As Long
Dim nameT1() As String
Dim nameT2() As String
Dim t1, t2 As Variant
t1 = Time
maxrow1 = Cells(Rows.Count, "A").End(xlUp).row '最大行取得
maxrow2 = Cells(Rows.Count, "B").End(xlUp).row '最大行取得
ReDim nameT1(maxrow1)
ReDim nameT2(maxrow2)
Range("C1:" & "D" & maxrow2).Value = ""
Call makeTable(nameT1, "A", maxrow1)
Call makeTable(nameT2, "B", maxrow2)
For row1 = 1 To maxrow1
For row2 = 1 To maxrow2
If Cells(row2, "C") = "" Then
If Mymatch(nameT1(row1), nameT2(row2)) = True Then
Cells(row2, "C").Value = "○"
Cells(row2, "D").Value = row1
End If
End If
Next
Next
t2 = Time
MsgBox ("チェック完了 処理時間=" & Minute(t2 - t1) & "分" & Second(t2 - t1) & "秒")
End Sub
'余分な文字を削除した結果をテーブルに格納する
Private Sub makeTable(ByRef nameT() As String, ByVal col As String, ByVal maxrow As Long)
Dim row As Long
Dim ary As Variant
Dim name As String
Dim i As Long
ary = Array("㈱", "(株)", "株式", "(有)", "有限", "会社")
For row = 1 To maxrow
name = Cells(row, col).Value
For i = 0 To UBound(ary)
name = Replace(name, ary(i), "")
Next
nameT(row) = name
Next
End Sub
'企業名が一致かどうか判定する
Private Function Mymatch(ByVal name1 As String, ByVal name2 As String) As Boolean
Mymatch = False
Dim pos As Variant
pos = InStr(1, name1, name2, vbTextCompare)
If pos > 0 Then Mymatch = True
End Function
-----------------------------------------------------
一致の精度が悪ければその旨補足してください。
(一致すべきものが一致しない、一致してはいけないものが一致している)
100%解決できる保証はありませんが、多少のチューニングは行います。

No4です。以下のマクロを標準モジュールへ登録してください。
--------------------------------------------------
Option Explicit
Public Sub 重複チェック()
Dim maxrow1 As Long
Dim maxrow2 As Long
Dim row1 As Long
Dim row2 As Long
Dim nameT1() As String
Dim nameT2() As String
Dim t1, t2 As Variant
t1 = Time
maxrow1 = Cells(Rows.Count, "A").End(xlUp).row '最大行取得
maxrow2 = Cells(Rows.Count, "B").End(xlUp).row '最大行取得
ReDim ...続きを読む

Q自動保存の解除

Excel、Wordの自動保存を解除したいです。
Excelを開けて[ツール]ー[オプション]ー[自動保存]で自動を行わないにチェック、同様にWordを開けて[ツール]ー[オプション]ー[保存]で自動バックアップのチェックを外し自動保存を解除しましたが、何かのタイミングでまた自動保存が実行され、確認して見ると、自動保存にチェックされてます。

どうにか自動保存を解除する方法はないでしょうか?

Aベストアンサー

Ano.1 補足
Wordの自動保存を解除についての補足
ツール→オプション→保存→保存オプション→「ックアップファイルを作成する」に、チェックがあれば、はずしてください。

Qエクセル 関数 1と入力されたセルの隣の列の値から、一つ前に1と入力されたセルの隣の列の値の引き算

1と入力されたセルの隣の列の値から、一つ前に1と入力されたセルの隣の列の値の引き算をしたいです。
具体的に、添付した画像の表で説明します。
A列は、連続した数値が入っています。
B列には、ところどころに、1が入力されています。(空白のセルが多いです。)
C列には、B列で、1と入力されたセル(例:B6)と同じ行のA列のセル(A6)の値から、B列で、一つ前に1と入力されたセル(B2)と同じ行のA列のセル(A2)の値の引き算をしたいです。
いまのところ、C列の結果は、D列にしめしたような計算で、ひとつずつ計算しています。

C列を、自動的におこなってくれるように工夫したいのですが、どんな関数をつかったらよいかわからないので、教えてほしいです。
補足ですが、行の入れ替え(サイズを変える、等)はしたくないです。(列の挿入はもちろんOKです。)

どうぞよろしくお願いします。

Aベストアンサー

D列を作業用に使用します。D列を最終的には見えないように設定してください。(文字色を白にするなど)
D1セルに「=A1*B1」
D2セルに「=IF(B2<>1,D1,A2*B2)」
D3セルより下はD2セルをコピー
C1セルに「=IF(D1=0,"",D1)」
C2セルに「=IF(D1=D2,"",D2-D1)」
C3セルより下はC2セルをコピー

QPhotshopの自動補正について

Photshopの画質調整機能に「自動レベル補正」「自動コントラスト」「自動カラー補正」がありますが、これらの違いがいまいちよくわかりません。

テキストを参考にしますと、「写真を明るくするには」という課題に対して一方では「自動コントラスト」を利用し、他方では「自動レベル補正」を使っています。

また、色調を修正する場合についても「自動カラー補正」を利用したばあいと「自動レベル補正」を利用した結果がほぼ同じになるということもあります。

自動補正を利用する場合のポイントや法則のようなものがありましたら教えてください。

Aベストアンサー

はじめまして。
コメントを拝見しましたが「画像加工について人に教える立場になってしまいまして」人に画像加工を教えるのはたいへんな事かと思います。人それぞれの感性は違いますし、色についての感じ方も違います。それなら「自動レベル補正」「自動コントラスト」「自動カラー補正」を使ってある程度オートメーション化を計ろうとするのも良いですがこれらを使って良いと判断出来る写真は5枚に1枚程度だと思います。やはりマニュアルな部分は必要だと感じます。
デジタル画像の補正で重要な事はまず、それを評価出来る環境を作る事です。室内光などもありますが一番大きいのはモニタのキャリブレーションです。アドビガンマなどを使って最低限、コントラストの調整と色温度の設定はしっかりやる必要があります。そして、
ソフト側の補正については画像に最適な濃度を作る事、グレーのバランスをしっかり取る
事が一番のキモになります。
1、画像を最適な濃度にするという事は慣れないうちは難しいですが、一番良い方法としては0%~100%の濃度を使い切る事が重要です。目で確認するにはヒストグラム(レベル補正ならモニタ表示100%で)で確認する事が出来ます。黒い山を端から端まで使い切ったものの方が濃度再現が0~100%ありますので階調再現が優れていると言えます。
パステルカラーや霧の中に居るような写真などは0~70%くらいで納めた方がよかったり
するので使い切りが良いとは言えませんが。
そして0~100%まで使い切ったら今度は暗い写真か明るい写真か見た目で判断し、トーンカーブなどを使って中間調子を調節していきます。コントラストを低くするには逆S字カーブを作るように、コントラストを上げるならばS字に。これを機械に任せるなら「自動コントラスト」ですが、他の2つの自動補正よりもこれは当たりが多いでしょう。
2、次にグレーのバランスですがこれは「自動レベル補正」「自動カラー補正」が関係してくる項目です。前記2つの補正は出来れば使わずにこれから書く事を参考にしてみて下さい。まず、グレーのバランスを保つという事はデジカメで言うホワイトバランスを調整するのと同じことです。白い部分が白く、グレーの部分がグレーになるようにする事を指しますが自動補正を使うならばトーンカーブを開くと右下の方にあるスポイトツールの中間のものをクリックし、それを使って画面でグレーにならなければならない部分をクリックしてみて下さい。何回かクリックしていけば見た目で良いと思えるグレーバランスになると思いますのでそこでストップして終了します。厳密に言えばカラーバランスやトーンカーブで調整するべきですが、自動ツールを使うならこちらの方がまだ仕上がりは良好です。またバリエーションを使うのも良いかもしれません。
私も昔、画像補正を人に教える立場になり、あなたのお気持ちが良くわかるので回答させてもらいました。この他にも画像補正にはさまざまな課題があると思いますがまた困った事がありましたら質問下さい。

はじめまして。
コメントを拝見しましたが「画像加工について人に教える立場になってしまいまして」人に画像加工を教えるのはたいへんな事かと思います。人それぞれの感性は違いますし、色についての感じ方も違います。それなら「自動レベル補正」「自動コントラスト」「自動カラー補正」を使ってある程度オートメーション化を計ろうとするのも良いですがこれらを使って良いと判断出来る写真は5枚に1枚程度だと思います。やはりマニュアルな部分は必要だと感じます。
デジタル画像の補正で重要な事はまず、それ...続きを読む

Q【VBA マクロ】条件に合うセルを検索して、その行のD列に0を入力する sheet1のA列に4月〜

【VBA マクロ】条件に合うセルを検索して、その行のD列に0を入力する

sheet1のA列に4月〜3月までの月が入っています。
sheet2のA1には4月〜3月のいずれかの月が入っています。
sheet2のA1をsheet1のA列から検索して、その行のD列へ0を入力したいです。
ご教授お願いします。

Aベストアンサー

前提としてsheet1のA列にある4月〜3月までの月というのはA1~A12までの範囲ですか.それともそれ以降にも4月~3月というのが続くのでしょうか?
というのも1つの方法としてA列の上から順にSheet2のA1と合致しているかを見て,
合っている場合にその行のD列に0を打つなら繰り返し演算で良いと思いましたので(For Nextを使う)


Sub test()
Dim i As Integer
For i = 1 To 12
If Worksheets("Sheet1").Cells(i, 1) = Worksheets("Sheet2").Cells(1, 1) Then
Cells(i, 4) = 0
End If
Next
End Sub


関数なら下記式で同じような事ができますね.
=IF(ISERROR(MATCH(A1,Sheet2!$A$1,0)),"",0)


人気Q&Aランキング