Excel総合相談所 132
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん@そうだ選挙にいこう
垢版 |
2018/07/01(日) 12:22:32.86
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類         .】 Windows**
【2 Excelのバージョン   】 Excel**
【3 VBAが使えるか    .】 はい・いいえ
【4 VBAでの回答の可否】 可・否

▼━関連スレ━━━━━━━━━━━━

前スレ
Excel総合相談所 131
https://find.5ch.net/search?q=excel

Excel VBA 質問スレ Part51(1000到達済み)
https://find.5ch.net/search?q=excel+vba

【質問不可】Excel総合相談所スレの雑談・議論スレ4
https://find.5ch.net/search?q=excel+%E3%80%80%E7%9B%B8%E8%AB%87%E6%89%80
0503名無しさん@そうだ選挙にいこう
垢版 |
2018/09/22(土) 15:29:18.63
【1 OSの種類         .】 Windows8.1
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 いいえ(起動して入力するまではできます)
【4 VBAでの回答の可否】 可
初心者です。説明が下手なので画像付きで質問させていただきます。
Sheet1で図のように入力すると、自動でSheet2に図のように入力されるプログラムを作りたいです。

Sheet1:https://i.imgur.com/jzCfjb5.jpg
Sheet2:https://i.imgur.com/ChU3p4G.jpg

よろしくお願いします。
0504名無しさん@そうだ選挙にいこう
垢版 |
2018/09/22(土) 15:54:58.33
>>503
シート1の3行目以降も同じように入力していくのを想定してるの?
その場合、そのデータはどこに増えていくの?
シート2の11以降に増やすのか、シート3を作ってそこにデータを入れるのか。
0505名無しさん@そうだ選挙にいこう
垢版 |
2018/09/22(土) 15:55:11.94
>>503
すみません補足です。
Sheet2のA列の数字は既に入力されており、Sheet1で第2行,A〜Dのデータを入力すると、Sheet2の画像のように自動入力されるプログラムを作りたいです。
0507名無しさん@そうだ選挙にいこう
垢版 |
2018/09/22(土) 16:11:45.88
転記するのはいいとして、どのタイミングで転記するか決めないと。
ボタンを押すのか、あとは例えばE2をダブルクリックしたら2行目を、E3をダブルクリックしたら3行目を転記するとか。
4項目全部入力したら転記するのかとか、消す場合はどうするのかとかも決めておかないと。
0509名無しさん@そうだ選挙にいこう
垢版 |
2018/09/22(土) 16:14:07.93
記載行に重複がある場合は下にある行の内容に書き換えても問題ない?
それともメッセージで既にデータがあります!とか確認する?
0511507
垢版 |
2018/09/22(土) 16:30:24.98
ボタンを押すとなると、データが複数ある時にどの行のデータを転記するかというのを決めなきゃいけない。
普通は一番下の行だろうけど。
0512名無しさん@そうだ選挙にいこう
垢版 |
2018/09/22(土) 16:45:15.68
Sub test()

Dim i As Long
Dim myRow As Long

'myRowは一番下のデータがある行(C列で上から下に検索する)
myRow = Cells(1, 3).End(xlDown).Row

'Sheet2をオブジェクト変数Ws2に
Dim Ws2 As Worksheet
Set Ws2 = Worksheets("Sheet2")

'最終行のC列、D列に数値が入っていて、D列の数値>=C列の数値である場合のみ転記をする。

If IsNumeric(Cells(myRow, 3)) = True And IsNumeric(Cells(myRow, 4)) = True And _
Cells(myRow, 3) <= Cells(myRow, 4) Then
For i = Cells(myRow, 3) To Cells(myRow, 4)
Ws2.Cells(i + 1, 2) = Cells(myRow, 1)
Ws2.Cells(i + 1, 3) = Cells(myRow, 2)
Next i
Else
MsgBox "入力値が適正ではありません"
End If
End Sub
0517512
垢版 |
2018/09/23(日) 11:57:15.24
>>516
その場合、E列をWクリックするとその行のデータをもとに転記するイベントプロシージャにすれば?

それか、アクティブセルの行を転記するようにすればいいか。
myRow = ActiveCell.Row
に変更すればいい。
3行目をアクティブにした状態でボタンを押せば、3行目のデータをもとに転記される。
0519517
垢版 |
2018/09/23(日) 15:59:49.63
ドラッグ(矩形選択)した行を一括転記するようにしました。

これ、適正でない行が多いとmsgboxが何回もでるけど、いい方法あります?
変数jをelseの時だけ配列に入れて、それをmsgboxでまとめて1回だけ出すとかできるかな。
「5行目6行目のデータが適正ではありません」みたいに。

Sub test()
'矩形選択範囲から行を取得、該当業のデータをもとにsheet2に転記するプロシージャ
'例)A2:A8を選択した状態なら、2行目から8行目
'   B3:B10を選択した状態なら、3行目から10行目

Dim i As Long
Dim j As Long
'Sheet2をオブジェクト変数Ws2に
Dim Ws2 As Worksheet
Set Ws2 = Worksheets("Sheet2")
'C列、D列に数値が入っていて、D列の数値>=C列の数値である場合のみ転記をする。
For j = Selection(1).Row To Selection(Selection.Count).Row
If IsNumeric(Cells(j, 3)) = True And IsNumeric(Cells(j, 4)) = True And _
Cells(j, 3) <= Cells(j, 4) Then
For i = Cells(j, 3) To Cells(j, 4)
Ws2.Cells(i + 1, 2) = Cells(j, 1)
Ws2.Cells(i + 1, 3) = Cells(j, 2)
Next i
Else
MsgBox j & "行目の入力値が適正ではありません"
End If
Next j
End Sub
0520名無しさん@そうだ選挙にいこう
垢版 |
2018/09/23(日) 16:17:26.66
>>519
Sub 偶数()

'1から10の中で偶数一覧を出力する
For i = 1 To 10
If i Mod 2 Then
'do nothing.
Else
偶数一覧 = 偶数一覧 & i & ","
End If
Next

'output
If 偶数一覧 Then
MsgBox "偶数:" & 偶数一覧
Else
MsgBox "偶数なし"
End If

End Sub
0521519
垢版 |
2018/09/23(日) 17:12:00.87
>>520
なるほど。勉強になりました。
0522名無しさん@そうだ選挙にいこう
垢版 |
2018/09/24(月) 00:30:56.81
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

A列に半角英数字10桁の商品コードが並んでいます。
タイプとしては英数字混在のものと数字だけのものです。英字だけのコードはありません。
B列には商品名があり、index(match)で商品コードを入れたら商品名を表示させたいです。

しかし、商品コード入力欄にテキスト入力をすると、商品コードが英数字混在のものしかヒットしません。
matchの検索値をvalue()で指定すると今度は数字だけのコードしかヒットしません。
どちらでもヒットするようにするにはどうすればよいでしょうか?
0523名無しさん@そうだ選挙にいこう
垢版 |
2018/09/24(月) 02:23:02.79
>>522
現在の商品コードを文字列で同一すべき
適当な作業列に「=TEXT(A1,"@")」みたいに書いて、これをコピーして値として貼り付けで文字列に変換できる。

今後の登録のために、商品コード列の書式設定は「文字列」に変える

MATCHの第一引数に指定したセルも文字列に変える。
それが無理ならMATCH(TEXT(・・・,"@"),・・・)にすればいい。
0524名無しさん@そうだ選挙にいこう
垢版 |
2018/09/27(木) 10:14:49.51
powerpivot機能ですが、
エクセルではフォローされている36:00:00みたいな24時間を超える書式[h]:mm:ssが、powerpivotではフォローされていないのか、データ型を日付にするとエラーになってしまい、テキスト型になってしまいます。

何か回避策はありませんでしょうか?
0525名無しさん@そうだ選挙にいこう
垢版 |
2018/09/27(木) 16:18:44.81
元々のデータはテキストファイルか何かなのかいな
0526名無しさん@そうだ選挙にいこう
垢版 |
2018/09/28(金) 15:23:53.46
1 OSの種類         .】 Windows**
【2 Excelのバージョン   】 Excel**
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

一つのセル内に
プリン3個、エアコン2個、ミカン4個、バナナ2個
という風に固有名詞は無秩序、個は規則的なセル内の数字を
合計して出すにはどうすればいいでしょうか
0528名無しさん@そうだ選挙にいこう
垢版 |
2018/09/28(金) 15:41:42.64
11を別セルに出したいです
0530名無しさん@そうだ選挙にいこう
垢版 |
2018/09/28(金) 16:21:07.31
FINDで「個」の位置を順番に把握して
MIDで切り出して
LOOKUPがらみで数値だけ抜き出して
足す

感じになるのかな。「個」の個数が不定だと修羅の道
0532名無しさん@そうだ選挙にいこう
垢版 |
2018/09/28(金) 17:24:41.89
そもそもそんなデータ(1つのセルに文字列と数値が混在、単位まで付いてる)を作らないようにしないと。
項目 数値 単位 の3列でデータ作るようにする。
単位は表示形式で付ける方が良いかも知れない。

>>530さんの方法でやるか、固有名詞(りんご、バナナ)を全てピックアップできるなら、もう少し簡単にできるけど。
0536530
垢版 |
2018/09/28(金) 21:49:01.77
>>535
条件は書いてあることで全てだったのですが

A1 プリン3個、エアコン2個、ミカン4個、バナナ2個
A2 RIGHTB(LEFT(A1,FIND("個",A1)-1),2)*1
A3 FIND("個",A1)
A4 RIGHTB(LEFT(A1,FIND("個",A1,A3+1)-1),2)*1
A5 FIND("個",A1,A3+1)
の繰り返しでできましたありがとうございました。
0538名無しさん@そうだ選挙にいこう
垢版 |
2018/09/29(土) 00:55:27.61
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

特定の計算をしたいのですが、前もって最下行までセルに式を入れるとファイルサイズが大きくなりすぎたので、
VBAで計算させる様にしたのですが、問題があります。
1.AC列はZ列から+14の日付にしたい。
2.このマクロだと1行目が書き換わってしまう。
3.シート「保全_集計表」を別のブックに貼り付けしたいのですが、別ブックのサイズが3MBになることがあります。てしまいました。


この3点を解決する方法があればご教授願います、

サンプル
http://fast-uploader.com/file/7093705631477/
0539名無しさん@そうだ選挙にいこう
垢版 |
2018/09/29(土) 02:24:09.44
もし、P2が0(ゼロ)のとき、Q2はO2*(2/3)
もし、P2が0(ゼロ)じゃないとき、Q2は(O2-P2)*2/3
真偽の数字を、100のくらいから四捨五入したいのですが、IF関数にROUND関数を組み合わせる方法がわかりません。

IF(P2=0,O2*(2/3),(O2-P2)*2/3と組んではみました。

例えばQ2セルが13,333となった場合は、13,000で表示されるようにしたいのです。

私は看護師で、社員旅行の会計を任されましたが、バカなのでわかりません。教えてください。

O2は月々の旅行積立額、P2は旅行代金、Q2は返金額です。旅行は泊まり、日帰りとあって、日帰りの場合は積立額から、旅行代金を引いた2/3を積み立てた人に返して、旅行に行かなかった人は、積立額の2/3を返すことになっています。泊まりは、積立全額が旅行代金になります。
0542538
垢版 |
2018/09/29(土) 07:42:33.27
>>540
問題ありません。i=2で1行目が変わらないのですか。
0544538
垢版 |
2018/09/29(土) 08:17:14.32
>>543
サンプルは2行でしたが、2000行位になります。条件付きでループを終了させたいのですが、思いつきませんでした。
0545名無しさん@そうだ選挙にいこう
垢版 |
2018/09/29(土) 08:49:20.57
>>544
話がかみあってないけど、「For i = 1 to」を、「For i = 2 to 」に変更する。
3行おきになっているのは、そのままでもいいけど、変数jにした方が見やすい。

別ブックに張り付けるのは、どのブックか不明なので(新規ブックなのか既存のブックなのか等)、もっと情報がないとわかりません。

Sub calclation()

Dim i As Long
Dim j As Long

Dim MaxRow As Long
MaxRow = Sheets("保全_集計表").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To MaxRow
For j = 16 To 46 Step 3
Cells(i, j).Value = Cells(i, j - 1) + Cells(i, j - 2)
Next j
Cells(i, 29) = Cells(i, 26) + 14
Next i
End Sub
0546538
垢版 |
2018/09/29(土) 10:05:53.52
>>545
既存のブックになります。
よろしくお願いします。
0547545
垢版 |
2018/09/29(土) 10:35:56.91
>>546
既存のブックなら、余計分からない。
そもそも、vbaで計算結果入れるだけで重くなるなら、もともとのブックに問題があるのでは?
よろしくお願いしますって、何をしてほしいのか。
0549名無しさん@そうだ選挙にいこう
垢版 |
2018/10/01(月) 22:37:09.13
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい・
【4 VBAでの回答の可否】 可・
A列 B列 C列  D列 E列以降
ID  品名 型式 残数 日付

E列以降に日付を入れるとD列(残数)が-1するにはどうしたらいいでしょうか?

D2が5でE2、F2に日付が入るとD2が3と表示させたいのです。
0550名無しさん@そうだ選挙にいこう
垢版 |
2018/10/01(月) 22:49:56.78
>>549
A列 B列 C列  D列      E列        F列以降
ID  品名 型式 残数(入力) 残数(計算後)  日付

でいいなら、
E2=D2-COUNTIF(F2:H2,">0")

D列をそのまま変更するのはvbaがいる上に結構めんどくさい
(コメントに元の数値を逃して、計算するなどの変な処理が必要)
0551549
垢版 |
2018/10/01(月) 23:09:36.57
>>550
ありがとうございます。こちらの方がよいです。半期の棚卸で”いつ”部品をもちだしたか
不明で数と資産金額が合わなくて大惨事になりました。
1000万は無いって。
0552名無しさん@そうだ選挙にいこう
垢版 |
2018/10/02(火) 19:27:43.15
すみません、質問させてください。
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
A1の数値を別のセルに 「.jpg」をつけて表示させたいのですが、どうしたらできますか?
セルの書式設定のユーザー定義にもないし、入力件数が多くて困っています。
関数などがまったくわからなくて、ネットでも調べてみたのですが検索の仕方が悪いのか
見当違いのものばかりで…お力を貸してください。お願いします。
0554名無しさん@そうだ選挙にいこう
垢版 |
2018/10/02(火) 23:48:13.63
>>552
別のセルに
=A1&".jpg" と入力
=A1と書いて、書式設定のユーザー定義に0".jpg"と入力
=CONCATENATE(A1,".jpg")と入力
さぁ好きなのを選べ。

あと数値を・・ってことなので桁揃えするなら
=TEXT(A1,"0000")&".jpg"
としたり
=A1と書いて、書式設定のユーザー定義に0000".jpg"と入力
という方法があるゾ
0555名無しさん@そうだ選挙にいこう
垢版 |
2018/10/03(水) 02:26:52.78
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 2010

エクセルの計算効率についてです。
COUNTIFを使う場合
1列10万件のセルをカウントするのと
1列1万件のセルを個別に10列分カウントしてあとで10個の数を足すのとでは
どちらが計算結果が早く出ますか?
あと、あらかじめ条件外となるものは先に=""で空指定したほうが
計算結果が早く出ますか?
0556名無しさん@そうだ選挙にいこう
垢版 |
2018/10/03(水) 06:59:51.10
>>555
内部的な最適化までは誰もわからん。試したほうが早い
大抵の場合、余計なことをせずに素直な計算式にするのが一番良い
あと、罫線や色、フォント、条件付き書式など何も設定しないことの方がよっぽど大事
0557552
垢版 |
2018/10/03(水) 12:43:47.92
552です。
おかげさまで作業効率アップしました!
お二方ありがとうございました!
0558名無しさん@そうだ選挙にいこう
垢版 |
2018/10/03(水) 13:58:12.10
求人で「エクセルができるかた」というのはどれくらいができればよいのでしょうか?
・四則演算ができる
・index,match,offsetなどの関数が使える
・条件付き書式のせっていができる
くらいで大丈夫ですか?
0559名無しさん@そうだ選挙にいこう
垢版 |
2018/10/03(水) 14:37:42.85
職場によって求められるスキルは違うと思うけど、vlookupじゃなく、あえてindexやmutchを上げてるレベルなら大丈夫じゃない?
あとは、グラフとかピボット使えればいいかなと
0561名無しさん@そうだ選挙にいこう
垢版 |
2018/10/03(水) 20:22:35.20
採用した社員の履歴書にMOUSエキスパートが書いてあり
どれくらいできるのかwktkしたら全然実務向きでなかったでござる。
0563名無しさん@そうだ選挙にいこう
垢版 |
2018/10/03(水) 22:33:19.11
MOSエキスパートは関数とか熟知してなくても取れるしね
試験対策してればとれるし、機能の使用・理解範囲が無駄に広いだけだから、すごく役に立つというよりかは、ある程度どんな職場でも働けるってだけだよね
excelで画像加工とかほぼ実務で使わんw
0566名無しさん@そうだ選挙にいこう
垢版 |
2018/10/04(木) 15:18:54.76
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 否
【4 VBAでの回答の可否】否
一つのセルの中に指定の単語がいくつ使われているのか
をカウントする場合はどうすればいいですか?
0567名無しさん@そうだ選挙にいこう
垢版 |
2018/10/04(木) 15:33:48.52
>>566
=(LEN (A1)- LEN (SUBSTITUTE (A1,"単語", "") )/ LEN("単語")
0568566
垢版 |
2018/10/04(木) 19:57:42.94
>>567
できました。なかなかやりますね。
0569名無しさん@そうだ選挙にいこう
垢版 |
2018/10/04(木) 22:50:08.71
1つのセルをウィンドウいっぱいに広げる方法ある?
そしてウィンドウのサイズを変えたら、セルのサイズもそれに追従するみたいな
0570名無しさん@そうだ選挙にいこう
垢版 |
2018/10/04(木) 22:56:53.36
ないです
0571名無しさん@そうだ選挙にいこう
垢版 |
2018/10/05(金) 19:15:09.88
印刷の設定を全シート一括でできますか?
0576名無しさん@そうだ選挙にいこう
垢版 |
2018/10/06(土) 16:34:04.78
セルに書き込む毎に枠線が自動で付く書式 =or($A1:$F1<>"")って書式組む時に
範囲選択してるんだから
普通に枠を付けるのとたいして変わらないと思いませんか?
0577名無しさん@そうだ選挙にいこう
垢版 |
2018/10/06(土) 18:18:03.26
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel for Office 365
【3 VBAが使えるか    .】 否
【4 VBAでの回答の可否】 否

ピボットテーブルでの比率の計算について教えて下さい。
元の集計表として、

時間帯, 基準値, 要素1, 要素2, 要素3
0, 200, 80, 50, 20
1, 210, 100, 20, 30
2, 180, 150, 50, 0

23, 90, 0, 70, 50

という合計を集計したピボットテーブルがあります。
これを元に、基準値に対する比率を求めるピボットテーブル

時間帯, 基準値, 要素1, 要素2, 要素3
0, 100.0%, 40.0%, 25.0%, 10.0%
1, 100.0%, 47.6%, 9.5%, 14.3%
2, 100.0%, 83.3%, 27.8%, 0.0%

23, 100.0%, 0%, 77.8%, 55.6%

というピボットテーブルを追加または新規で作りたいのですが、
「親集計に対する比率」で[基準値]を「基準フィールド」に指定してみたところ、
結果は#N/Aエラーになってしまいました。
何かやり方があるのでしょうか?

各行には異なる日付の内訳(行数可変)があるので、
直接セル指定での計算列追加は避けたいです。
0578名無しさん@そうだ選挙にいこう
垢版 |
2018/10/06(土) 18:18:37.44
1か2か3の値が毎時入手できて、これを積み上げ横棒グラフで同じ数字なら同じ色にして12個積み上げてグラフにする方法ありますか?
0579名無しさん@そうだ選挙にいこう
垢版 |
2018/10/07(日) 05:11:50.39
左にタイトル 右に内容
みたいな感じでエクセルが使える

しかし入力がしずらい

エンター押すと次の枠に行っちゃうし(ソートするときは枠結合しないといけないし)
ALT+エンター 使えばいいんだけどなんか面倒

メモ帳だと左にタイトルつけれなくソートもないし メモしたものがわからなくなるし

他のいいソフトありますか?
もしくはエクセルの使い方。
0583577
垢版 |
2018/10/08(月) 09:17:41.61
自己解決

「計算の種類」の「親集計に対する比率」の使い方は分かりませんでしたが、
目的のことは「集計フィールドの追加」で出来ました。
0587名無しさん@そうだ選挙にいこう
垢版 |
2018/10/09(火) 16:22:30.57
たとえばExcelのA1に0、A4に10と入力して、
A2に3.3333、A3に6.6666と出力させる方法はありますか?

間にあるセルの分だけ等分にして表示させたいのですが

実際使うときは数千等分にしたいのです
0589名無しさん@そうだ選挙にいこう
垢版 |
2018/10/09(火) 17:59:42.43
図形に指定したサイズ(cm)通りに印刷されません。
それ以上に、縦横比が狂ってしまい困ってます。
プリンターが原因でしょうか?
0591名無しさん@そうだ選挙にいこう
垢版 |
2018/10/09(火) 22:22:04.33
最近のMSには小さな親切大きなお世話って言葉がピッタリだ
初心者やタブレット向けにセキュリティやUIを変えたつもりだろうが
使い慣れた操作を大きく変更されて余計使いづらいっていう
0592名無しさん@そうだ選挙にいこう
垢版 |
2018/10/09(火) 22:27:57.11
今さらそんなこと言っても、大きなお世話はMSの伝統でしょ。
win10の強制アップデート
word、Excelのオートコレクト
office2007になった時のリボン導入
IEの強制バンドル
コントロールパネルがなくなる
勝手にアップデートして勝手に再起動
0593名無しさん@そうだ選挙にいこう
垢版 |
2018/10/09(火) 22:37:33.83
>>588
やっぱvbaですか
少し齧っただけだけどやってみます
ありがとう
0595名無しさん@そうだ選挙にいこう
垢版 |
2018/10/10(水) 05:52:51.26
>>592
> win10の強制アップデート
うん
> word、Excelのオートコレクト
設定切れよ
> office2007になった時のリボン導入
慣れ。むしろ使いやすい
> IEの強制バンドル
それ何が困るの?独占禁止法?
> コントロールパネルがなくなる
グループポリシーの方で設定すりゃ関係ない
> 勝手にアップデートして勝手に再起動
WSUSは?
0598名無しさん@そうだ選挙にいこう
垢版 |
2018/10/10(水) 13:58:38.16
まだIEとか言ってるのか
0599名無しさん@そうだ選挙にいこう
垢版 |
2018/10/10(水) 18:54:34.40
> IEの強制バンドル
はまだ良いとして、規定のブラウザ変えようとすると警告が出るのがイラッと来る
あとこういう警告のせいでIEが根強いと思うと更にイラッと来る
で、そんなwindowsを使わなければならない自分にイラッと来る

まぁIEの挙動が大分マシになったとはいえ、
めんどくさい事には変わりない

未だにIE前提で作られている管理ツールはやまほどあるからな
0602名無しさん@そうだ選挙にいこう
垢版 |
2018/10/11(木) 12:40:48.85
このスレレベルが高すぎるんですが
エクセルのことに関して初心者でも相談できるスレないでしょうか
5ch内をスレタイ検索してみましたがうまく見つかりません
■ このスレッドは過去ログ倉庫に格納されています

ニューススポーツなんでも実況