Excel VBA 質問スレ Part32

1 ：2013/10/07 〜 最終レス ：2013/10/27

ExcelのVBAに関する質問スレです
　　　　　　　　　　　　　　　　　　 ＿＿＿
　　　　　　　＿＿＿　　　　　 ／＿＿＿_ヽ　　　　 　＿＿__
　　　　　　/＿＿＿_＼　　　 |　|´・ω・｀|　| 　　　／＿＿＿ヽ
　　　　　 .ｌ |´・ω・｀|　 ニX二　.￣￣￣　 二X二　 |´・ω・｀| l　俺たちに任せろ
　　　　　　!､￣￣￣　　ヽ　　 |　　　　　　 | 　　 / 　 ￣￣￣/
　　　　　　　ヽ_/ヽ､　 ヽ__）　　＼__/＼_／.　　 /_／　　ノヽ_/
　　　　　　　　　　　 ￣　　　　　　　　　　　　　　 ￣￣
前スレ
Excel VBA 質問スレ Part31
http://toro.2ch.net/test/read.cgi/tech/1376371376/

2 ：

コード作成依頼スレです。

3 ：

似たようなスレ立てんなや

4 ：

このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。
アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。
　　　　　　　　　　　　　　　　　　京都大学霊長類研究所

5 ：

>>2
ちがいます。ここは質問スレです。
依頼だなんだというくだらない論争をやめましょうよ。

6 ：

>>5
ここはコード作成依頼スレです。
>>1の「俺たちに任せろ」はこのスレのルールです。
回答者はコード作成にきちんとケツを持ちます。
本スレ
http://toro.2ch.net/test/read.cgi/tech/1381151995/

7 ：

>>6
そんなこと言ってません。
勝手なこといわないでください。あなたはご自分のスレからでてこないでくださいよ。

8 ：

>>7
>>1の「俺たちに任せろ」は嘘ってことか？
俺たちに任せろと言っておきながら、コード作成にケツ持ちませんなんて無責任なことを言おうとしてるのかな？

9 ：

>>8
なんでよそのスレに口出すのですか。スレちがうんだから干渉しないでくれませんか。
書いてあることそれいじょうでもいかでもありませんよ。

10 ：

新しくスレ立てて勝手にやれみたいなことを言っといて
その新しいスレを荒らしに来るんだから立派だよね

11 ：

>>9-10
そういうことを言うからには本スレには来ないっていう宣言でいいのかな？

12 ：

>>9
http://toro.2ch.net/test/read.cgi/tech/1381151995/5,7
7のような奴がいる限り、俺じゃなくても誰かがこのスレに書き込むと思うよ。

13 ：

★★★★★★★★
★　俺たちの掟　★
★★★★★★★★
１．ループカウンタ含め一文字変数は絶対使いません。
２．変数名、プロシージャ名等の名称は適切な名前を付けます。
３．ByRef、ByValは省略しません。
４．最低限のコメントは必ず入れます。
５．エスパーコードは書きません。
６．書いたコードは最後までケツを持ちます。
７．掟に背いたら二度とコードで回答しません。

14 ：

>>13
ケツを持ちますという言い回しから察するにもうひとつのスレを建てたひとですよね。
再三いいますがスレが違うんだから干渉しないでくださいよ。勝手なルールを持ち込まないでください。
あなたの身勝手なルールとあなたとのくだらない論争がいやだからこのスレを建てたんです。出てってください。

15 ：

じゃ★5のこともあるし、次スレに>>964を誘導しておくか
次スレ
Excel VBA 質問スレ Part32
http://toro.2ch.net/test/read.cgi/tech/1381151717/

16 ：

すまん誤爆

17 ：

結局ここに落ち着いたのか

18 ：

ここが次スレか。
グダグダなテンプレが全て取っ払われてすっきりしたな。

19 ：

質問です。
VB.Netで使おうと思っているのですが、
一々セルに値を設定するコードを書かなくても、アクティブレポートやクリスタルレポートの様に
一度テンプレートを作ってしまえばデータから一覧をEXCELで作ってくれる
ツール？DLLファイル？があったと思うんですけど名前を忘れてしまいました。
誰かご存知の方はいらっしゃいませんか？

20 ：

前スレ
01 http://pc11.2ch.net/test/read.cgi/tech/1054356121/
02 http://pc11.2ch.net/test/read.cgi/tech/1168308855/
03 http://pc11.2ch.net/test/read.cgi/tech/1180192018/
04 http://pc11.2ch.net/test/read.cgi/tech/1189814602/
05 http://pc11.2ch.net/test/read.cgi/tech/1197448064/
06 http://pc11.2ch.net/test/read.cgi/tech/1205231499/
07 http://pc11.2ch.net/test/read.cgi/tech/1212587819/
08 http://pc11.2ch.net/test/read.cgi/tech/1219673793/
09 http://pc11.2ch.net/test/read.cgi/tech/1228372971/
10 http://pc12.2ch.net/test/read.cgi/tech/1235332603/
11 http://pc12.2ch.net/test/read.cgi/tech/1241885130/
12 http://pc12.2ch.net/test/read.cgi/tech/1247566074/
13 http://pc12.2ch.net/test/read.cgi/tech/1254281104/
14 http://pc12.2ch.net/test/read.cgi/tech/1262748898/
15 http://pc12.2ch.net/test/read.cgi/tech/1271261239/
16 http://hibari.2ch.net/test/read.cgi/tech/1280045912/
17 http://hibari.2ch.net/test/read.cgi/tech/1289182437/
18 http://hibari.2ch.net/test/read.cgi/tech/1298240666/
19 http://hibari.2ch.net/test/read.cgi/tech/1305754555/
20 http://hibari.2ch.net/test/read.cgi/tech/1312435844/
21 http://hibari.2ch.net/test/read.cgi/tech/1316931607/
22 http://toro.2ch.net/test/read.cgi/tech/1322400978/
23 http://toro.2ch.net/test/read.cgi/tech/1327763113/
24 http://toro.2ch.net/test/read.cgi/tech/1334305148/
25 http://toro.2ch.net/test/read.cgi/tech/1341722983/
26 http://toro.2ch.net/test/read.cgi/tech/1345363310/
27 http://toro.2ch.net/test/read.cgi/tech/1353842387/
28 http://toro.2ch.net/test/read.cgi/tech/1359607536/
29 http://toro.2ch.net/test/read.cgi/tech/1364689772/
30 http://toro.2ch.net/test/read.cgi/tech/1370088822/

21 ：

ここはコード作成依頼スレです。
本スレ
http://toro.2ch.net/test/read.cgi/tech/1381151995/

22 ：

>>21
テンプレのどこにも作成依頼スレとは書かれていないしここではテンプレが全て。
むこうは★5や、VB6で使えるオブジェクトのことは書いてはいけないことで
がんじがらめになったのが好きなドMな人用。
使い分けだよね。

23 ：

>>22
>>2

24 ：

>>23
それはテンプレじゃなくてただのレスだよね

25 ：

同じタイトルで分かり難い
分けるんだったらタイトル考えるべき

26 ：

うん、次スレ立てるときに考えよう

27 ：

という訳で、ここはコード許容スレ、
あっちはコード拒否スレと言う住み分けか。
スレタイにも作成依頼なんて一言も書いて無いし、
立てるならちゃんと別スレとしてスレタイにも書いて立てるべきだったな。
ここをコード作成依頼スレとするのはこのスレタイで立った時点でもう手遅れだ。

28 ：

http://toro.2ch.net/test/read.cgi/tech/1376371376/
↑から誘導されてきました964です
テーブルに小計を挿入しようと色々調べてみたんですがどうもテーブル状態だと
小計が挿入できないみたいなんで
上のURLを参考に
「"シート2"を開いたときに"シート1"にある"テーブル1"を"シート2"に
　テーブルじゃない状態で貼付け
　貼り付けた表を項目1項目2の優先順位でソートし項目3の小計を入れる」
っていうのをマクロでやりたいんですが
Private Sub Worksheet_Activate()
　　Dim rngDat As Range
　　Dim pvtTbl As PivotTable
　　'データ範囲※
　　Set rngDat = ThisWorkbook.Sheets("シート1") _
　　　　.Range("テーブル1").CurrentRegion
このあと貼付けのとこからほとんどわからないんですがどう書いたらいいか誰かお願いします
ほとんど丸投げ状態の質問ですいません

29 ：

>>28
本当にソートされた小計を持つ一覧作成のトリガーはシート2を開いた時でいいの？
そうするとそのままだとシート2を開く度に一覧を作ろうとするけど。

30 ：

>>28
ちょっと待て。
なんか変数にPivotTable切ってあるけど、これは何に使うつもりだったんだ？

31 ：

コードで議論するんじゃなかったっけ？

32 ：

なに言ってんだこいつ

33 ：

>>31
荒らし専用Rースレに帰れや
荒らし専用Rースレ
http://toro.2ch.net/test/read.cgi/tech/1381151995/

34 ：

>>29
OKです
>>30
URLのマクロそのまま最初コピペしたようなもんなんでよけいなのはいってるかもです…

35 ：

>>34
あー、長ったらしくなるのと、シート側にも少し手を入れたんで
実際に作ったものをUPしたよ。
ここのアップローダーに置いといたんで
信用するなら自己責任でダウンロードしてくれ。
http://uproda.2ch-library.com/
ファイル：lib717689.xls
DLキー：1

36 ：

複数ある特定の文字を含まないシート名から、a1 ,b1,c1,b1…をSheet1に貼り付けする方法はありませんか？
　シート名取得はできたのですが不要なシートも取得してしまいます。　よろしくお願いします。

37 ：

dim targetworksheets as new collection
dim r
set r = CreateObject("VBScript.RegExp")
r.pattern = "[abc]" ' "[複数ある特定の文字]"
dim ws as worksheet
for each ws in worksheets
if not r.test(ws.name) then
targetworksheets.add ws
end if
next

38 ：

テキスト文から数字のみ取り出すマクロってありますか。例えば、以下のような文がある時、数字をセルに落としたいです。
例
高さ30mの位置から質量1.0kgの球を鉛直下向きに4.9m/sで投げ下ろした。
高さ=30
質量=1
初速度=4.9
のようにしたいのですが。

39 ：

>>38
1文字ずつ数字かどうか調べて欲しい部分だけ連結していくしかないです
For 〜 文章の文字数
If 〜 Mid 〜 数字、符号、小数点かどうか
Val 文字列を数値に変換

40 ：

前スレの720です。
報告が遅くなりすみません。
教えて頂いた方法を試してみましたが出来ませんでした。
>>722さんのですが、
対象となるチェックボックスがユーザーフォーム上では無く、
シート上にあります。
(チェックボックスはActiveXのものです)
for eachのところでシート上のチェックボックスを見るようにすれば出来そう、と思い
下記コードを作成してみました。
Dim c As Object
For Each c In Worksheets("Sheet1").OL EObjects
If c.Object.GroupName = "Group1" Then c.Value = False End If Next
しかし、「このプロパティまたはメソッドをサポートしていません」とエラーがでます。
どなたかどこがおかしいか教えて頂いけないでしょうか？
あと>>721さんの方法ですが、
上記のようにActiveXのコントロールを使用しているので
グループボックスがありませんでした…。
フォームコントロールを使用する機会があれば試してみます！
長文になってしまいすみません。
よろしくお願いします。

41 ：

>>37
ありがとうございます。
For Each ws in worksheetsで
実行時エラー　１３
型が一致しません。
と帰って来ます。

42 ：

>>38
それ、仮に数字が取り出せたとして、それぞれの数字が何の数字なのかはどうやって判断するの？

43 ：

>>40
TypeName判断してるとこはどこにいったんだよ
あれが何をやってるか理解してないのか

44 ：

>>43
ぶつぶつ言ってないでさっさと作れってことだろ。

45 ：

>>44
いいからお前は向こうのスレから出てくんな

46 ：

>>41
For Each ws in ThisWorkbook.worksheets

47 ：

>>46
いいなぁ。正規表現って苦手なんだよなぁ。

48 ：

質問です。
上、下、左、右のキーでオートシェイプを移動させる処理を作っています。
ループを組んで移動させる様にしているのですが、
移動する度に画面更新の為、Do Eventsを呼んでいます。
そうすると、本来のEXCELの挙動であるカーソルの移動も行われてしまいます。
各キーが押された時、EXCEL本来の挙動はして欲しくありません。
バージョンは2010だとDo Eventsを呼ばなくてもうまく画面更新がされる様なのですが、
2003ではそうも行かないので、誰かご教示して頂ければありがたいです。

49 ：

>>42
指定したセルに落とせれば良いです

50 ：

>>49
いや、俺は>>42じゃないけど、多分言いたかった事は
文章から取り出した数字がいつも決まった順序やフォーマットなのか、
要するに規則性がなければ取り出した数字がどの項目に当てはまるのかを、
どうやって判断を付けるのかということなんじゃないかと思うよ。

51 ：

>>42 >>49
ある文字列を長い文の中から検索し、
その直後にある数字を拾いたいのです。

身長は高く、185cm、体重はその割に軽く70.5kg,年齢は30です。
この例ですと、体重という文字を入力すると70.1が帰ってくるようなマクロが欲しいのです。

52 ：

>>51
最初からそう書いて欲しかった…
それだと全然違うプログラムになるよ
あと70.1なんかどっから出てきた

53 ：

身長１８０cmで体重７８Kg体脂肪１９％ダイエット中のオレはどうすればいいんだ？

54 ：

70.1ってのは70.5のタイプミスだろうなぁ（しょーもない間違いが多いタイプ？

55 ：

>>51
これはねぇ・・・
もう少し細部に渡って要件をつめないと作るの難しいと思うよ。
例えば文章内に同じキーワードが2回出てきたらどうするのか、とか、
文字列の被るキーワード(例えば「体重」と「体重計」)みたいのは有るのか 、とか、
数字と見なすものの扱いで、カンマは数字の桁区切りとみなすか数字以外とみなすか、とか、
符合も例えばキーワードを「値段」とした時、もしこんな文章だったらどう扱うのか
「値段は個数×金額なので、10×50で500となる」とか、他にももろもろ。

56 ：

コンマの処理をどうするかも難題だな
「X,Yはそれぞれ100,200です」
「値段は1,200円です」
日本語の文法解析でもしないと区切りか位取りか区別できないべ
VBAでは不可能に近い
プロでも逃げ出すレベルの難問になる

57 ：

51です。ありがとうございます
万能なものがあれば有難いのですが
いま自分が求めるものはもっと簡単です。
検索文字は身長、体重、年齢のように違う文字です。文字重複はありません。
数字にカンマはありません。小数はあります。桁数は決まっていません。
検索文字と知りたい数字の間には、数字、ドットはありません。
A1に検索文字を入力 B1に出力
文はA10からA20に貼り付けます。
これでお願いします

58 ：

>検索文字と知りたい数字の間には、数字、ドットはありません。
間違ました。数字、ドットはありませんではなく、
ドットが単独で存在することはありません。
です。

59 ：

Vbaでstring文字列の圧縮ってできますか？
rest で文字列をpost するのに
圧縮してからpostしたいのですが
DeflateStream, GZip が使えないっぽいので

60 ：

できますよ

61 ：

>>59
ttp://openlab.ring.gr.jp/tsuneo/index-j.html

62 ：

>>57
いや、まだ聞きたいことはある。
キーワードに対して必ず数字は存在するの？
後、符合は？特にマイナス。

63 ：

>>35
お礼が遅くなりました
ありがとうございます
まだ使ってみてなんですが明日使ってみます

64 ：

>>43
typenameの所ですが、すみません。
理解していませんでした。
調べて入れてみましたが、動きませんでした。。
私が書いたものを少し変えて、
Dim c As Object
For Each c In Worksheets("Sheet1").OL EObjects
If c.Name = "aaa" Then
c.object.Value = False
End If
Next
としたところ動作はしたのですが、これでは名前を取得しているので本来の目的のグループネーム毎に切替えるができません。
nameのところをgroup nameにするとまた「このプロパティまたはメソッドをサポートしていません」とエラーがでます。
チェックボックスではグループネームを取得出来ないのでしょうか？
何回もすみませんがどなたか分かる方よろしくお願いします。

65 ：

>>57
(1) 文字列をInstrで検索、それが判定のスタート位置になる
(2) Midで1文字ずつ判定して、数字が出てくるまで探す
(3) 数字、小数点以外が出てきたら終了
これだけ

66 ：

>>65
コード作成依頼スレなんだから作ってやればいいじゃん。
文章での回答を嫌ってる回答者が立てたスレなんだから。

67 ：

こんなんでいいか？
' 文字列sから単語wを探して、その直後の数値を返す
Function SearchNum(s, w)
　　p = InStr(s, w)
　　Do
　　　　p = p + 1
　　Loop Until Val(Mid(s, p)) Or p > Len(s)
　　SearchNum = Val(Mid(s, p))
End Function

68 ：

>>61
どう使うんですか？

69 ：

回答している人はどこでどうやってEXCELやMacroを勉強したのでしょうか？
上司には「いずれ結果は出るだろうけど、歩みが遅すぎる。私のマクロを見て勉強しなさい。」
と言われました。
そんな上司のマクロはぐうの音も出ないものですが、Dimがないのとifが多くてさっぱりわかりませんでした。

70 ：

Option Explicitもないようなソースを作っておいて自分のマクロを見て勉強せよとは片腹痛い

71 ：

>>69
そういうコード作成依頼ではない質問は本スレへ。
Excel VBA 質問スレ Part32
http://toro.2ch.net/test/read.cgi/tech/1381151995/

72 ：

>>69
Dimが無い人の言うことは聞き流せばOKです。

73 ：

Dimがないとか欠点を指摘できてる時点でわからないふりしてるだけにしか見えない
性格悪い

74 ：

>>71
このスレはコード以外も許容している。
何度も言うが、お前はそのスレからこっち来るな。

75 ：

>>73
わたし処女なの
とか言いながら
玉なめしてくるような違和感ですね
わかります

76 ：

>>71がこのスレとあのスレを建てた確率99%

77 ：

ワークシート上で使いたいのですが、
条件を満たす文字列と一致する文字列を含む他のブック上のセルの位置を返す関数
を教えてください。

78 ：

>>76
いや、俺も最初そう思ってたけど、
このスレを立てたのは別人だろう。
最初の方のレスを見ると合点がいくはずだ。
しかも向こうは本スレと言い張っているが、
タイムスタンプを見てもこちらの方が立ったのが早い。
向こうのスレは削除依頼を出せば重複スレとして
さっくり削除されるレベルって事だ。

79 ：

>>78
本当にそうなら素直に感心する

80 ：

>>74
それはない。
勝手にスレタイを付けて、>>1に前スレとしてExcel VBA 質問スレ Part31を
記載してるだけのコード作成依頼スレでしょ。
もっと言えばこのスレに前スレなんてない。
このスレは今までのExcel VBA 質問スレの過去スレの趣旨と反している訳で本スレとは言えない。
本スレはこっち
Excel VBA 質問スレ Part32
http://toro.2ch.net/test/read.cgi/tech/1381151995/
今まできちんとしたテンプレがあったスレが、いきなりまともなテンプレもないスレになるなんてありえない。
しかもこのスレのこれまでの内容のほとんどは質問じゃなくてコード作成依頼だし。
コード作成依頼であれば何も言わないけど、>>69のような内容はこのスレの趣旨とは違う。

81 ：

>>80
消えろ

82 ：

推奨NGワード 「コード作成依頼」

83 ：

>>77
Find

84 ：

>>75
　 /＼＿＿_／＼
／　⌒　　　⌒ ::: ＼
|　（●）,　、（●）、　| 　　 ／￣￣￣￣￣
|　　,,ノ(、_, )ヽ、,, 　 | 　＜　やるじゃん
|　　　ト‐＝‐ｧ' 　 .::::| 　　 ＼＿＿＿＿＿
＼　　｀ニニ´　 .:::／
／｀ー‐--‐‐―´´＼

85 ：

>>64
Dim c As Object
For Each c In Worksheets("Sheet1").OLEObjects
If TypeName(c.Object) = "CheckBox" Then
If c.Object.GroupName = "Group1" Then
c.Object.Value = False
End If
End If
Next
>チェックボックスではグループネームを取得出来ないのでしょうか？
チェックボックスでは取得できるが、それ以外では取得できない（出来るやつもあるけど）
OLEObjectsにはチェックボックス以外も含まれてるから、それがチェックボックスかどうか判断してるのがIf TypeName の所

86 ：

>>80
お前の思い込みなんてどうでもいい。
こっちのスレとあっちのスレ、どっちを今後本スレとして使うのかはスレの住人が決めることだ。

87 ：

>>69
本読んだり仕事仲間に教わったりしてかな。
最初にいい仲間に恵まれると、こう組むといいよって色んな意見が聞けるから、成長も早いと思うよ。
いい仲間に恵まれないと、平気でOptionExplicit付けなかったり、本来クラス化したり関数化しなければ
いけない所を一直線にズラーっと書いていい感じにスパゲッティソースにしたり
それで威張って部下から煙たがられたりするよ。

88 ：

>>86
質問する場所はスレの住人じゃなくて質問者が決めること。
スレの住人なんておかしなことをいう奴だな。

89 ：

>>88
いい加減向こうの糞スレに帰れよ。
こっちはみんないい感じでやってるんだ。
自分の立てた糞スレで人に意見押し付けて好きなだけ暴れ回ってろ。

90 ：

いいんじゃない？
質問者はみんなこっち選んでるみたいだし

91 ：

自演臭いけどなｗ

92 ：

>>91
ここまで全部俺の自演でもいいから
とっとと自分の立てた糞スレに帰りなさい。
羨ましそうに荒らしに来ない様に。

93 ：

>>92
ということは、自演することで本スレかのように見せてるのか。
コード作成依頼の内容なら何も言わないけど、それ以外の質問なら本スレに誘導させてもらうよ。

94 ：

>>93
誘導する前に何か書き込まないとDat落ちするぞーw

95 ：

>>93
スレタイは「Excel VBA 質問スレ」だけど
質問者がこっちのスレがいいと判断して質問してる。

96 ：

>>95
>>92が自演してるって言ってるんだから自演でいいんじゃね？

97 ：

まー、いざとなったら削除依頼だせばいいんじゃない？
試しにこっちのスレの削除依頼出してみてこっちのスレとあっちのスレ
どっちが削除されるか少し興味ある。

98 ：

>>93
これ以上ウダウダ言うならむこうの糞スレ、削除依頼出させてもらうよ。
>>97
つガイドライン

99 ：

質問させて下さい。
複数のオートシェイプにマクロ登録をしているのですが、
結構数があるので別呼び先にすると〜_Clickの様なイベントだらけになってしまいます。
似た様な処理なので呼び先を一つに纏めたのですが、
その後どのボタンが押されたのかを判断したいです。
出来れば内部であまり分岐を増やしたくないので、
Senderのオブジェクトで判断するのではなく、オートシェイプに引数を持たせることは可能ですか？

100read 1read

1read 100read
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲

静的型付け言語の潜在開発生産性は今の100倍 ×3 (561)
C++相談室 part105 (888)
JAVAってこんなことも出来ないの？ (695)
【JavaScript】ｽｸﾘﾌﾟﾄ ﾊﾞﾄﾙﾛﾜｲﾔﾙ40【pl,rb,php,py】 (801)
MSX-BASICの奥義を伝授するスレ (782)
ふらっとVisual C#,C♯,C＃（初心者用） Part107 (667)
--log9.info------------------
surfing★ﾔﾌﾄﾋﾟﾌｧﾝｸﾗﾌﾞ (608)
サーフィンをガンダム風に語るスレ (237)
■〜〜〜四国のダイビング■〜柏島〜■ (192)
ダイビングショップ始めますけど！ (666)
座間味　ケンズクラブについて (267)
　　　真栄田岬って楽しいですか？ (251)
名古屋の最低ショップランキング　３本目 (699)
ケラマビーチホテル＆フェニックス (502)
バブルリングを練習するスレ (183)
ダイビングＣカードは更新制がいい (210)
座間味のシラハマアイランズリゾートについて (157)
横浜のジックってどうですか？ (300)
【ヒラタコラ】な人をなぐさめるスレ (124)
Ｃカードを海外にて取得 (163)
イントラの給料 (535)
mixi 関西台場ってどうよ！！！！！！！ (436)
--log55.com------------------
fastask
【糞鯖放置】Qzoo[キューズー] 4【反応激重】
テンタメ総合スレ Part.2
【Lifemedia】ライフメディア34【旧iMiネット】
げん玉125pt目
【ワウマ！】Wowma! for au 60【旧auｼｮｯﾋﾟﾝｸﾞﾓｰﾙ】
dポイント part18
【ローソン】お試し引換券129枚目【Ponta＆dポイント】