商品券講座

Q西武百貨店商品券は梅田ロフトで使えますか？http://www2.seibu.jp/giftcard/この上の右側にある西武百貨店商品券なんですが、西友では使えなくなってました。関西なのでかなり使いどころが限られてるようです。一部のロフトでは使えるという情報はありますが、大阪の梅田ロフトで使えるのでしょうか？あるいは、三宮のそごうにあるロフトはどうでしょうか？

BA2010年4月現在の西武商品券ご利用案内のしおりには、使えるお店に梅田ロフト、京都ロフトの記載はあります。それ以外のロフトの記載はありませんが、そごう・西武の店舗に入店しているロフトに関しては使用可能です。関西地区ですと、高槻（高槻西武内）、三ノ宮（そごう神戸店内）、大津（大津西武内）が当てはまります。（そごう・西武内のロフトの場合、そごう・西武で使える金券であれば、全て使用可能です。）そごう・西武内のロフトの場合、1回のお買い上げ額が、1050円以上でしたら、ミレニアムカード又はクラブオンカードを提示すれば、ポイントの付与もあります。逆に使用できないのは、阿倍野ロフト、西宮ロフト、姫路ロフト、奈良ロフト、くずはロフト、堺ロフトです。（※ルクアにあるロフトに関しては分かりません。）

Qこの度、DOCOMOからauに機種変更するのどすが、この中の機種やったらどれを選びますか？MEDIAS BAR IS11DIGNOI S11K(２００００商品券付き)INFOBAR A01MIRACH IS11PTWINDOWS PHONE IS12TMOTOROLA PHOTON ISW11MAQUOS PHONEIS14SHIS13SH(２００００円商品券あり)REGZA PHONE IS11T(３００００円商品あり)G'Z ONE IS11CAXPERIAIS 11S(２００００商品券あり)

BAどこ基準か分からないので。。。高性能！PHOTONに1票

Qビジョンメガネでめがねを買いました。ネットでアンケートに答えると商品券をくれるそうですが、そのアドレスにアクセスしても存在せず、ＨＰも特にアンケートのページもないです。どこから入ればいいでしょうか？１０００円の商品券はどっちでもいいけど、お店にちょっと意見があるのでアンケートに答えたいです。

BAビジョンメガネってここ？ http://www.vision-megane.co.jp/お問合わせページから問合わせれば良いんじゃないの？

Qアマゾンで買い物する際に代引きが使えないとき商品券かクレカで払わなければいけないですが、商品券もクレカで買わなければならないですよね？代引きが使えないとなると、それしか方法はないでしょうか？

BAAmazonギフト券はコンビニにて現金で購入出来ますよ。3000円、5000円、10000円、20000円券の4種類あります。(イオンでは1500円券)Amazonギフト券購入方法http://www.amazon.co.jp/gp/gc/ref=topnav_giftcert下にあるシートタイプ、カードタイプ、ショッピングカードを確認してみてください。上にある印刷タイプやEメールタイプはAmazonサイト内でクレジットカード支払いのみで購入出来ます。

Qお願いします。結構調整したりして見ましたが、実行が出来なかったので教えて欲しいです。エクセルのＨ〜Ｌへ商品番号*お名前*顧客ＮＯ*売上日*枚数をその都度入力下へしていきます。Ｂには下へ商品券番号を配布した番号があらかじめ入力されています。Ｈの番号を検索してＬの枚数分下へコピーしていきたいのですが、下記のＶＢＡをつなげたいのですが実行エラーになってしまいます。どうしたらよいでしょうか？！できれば番号がダブらないようにＣからＦに入力されている場合は上書きできないようにＢＯＸを表示したいのですが分かりずらい説明で申し訳ないのですが宜しくお願いします。Sub test2()Dim sh1 As WorksheetSet sh1 = Worksheets("sheet1")d = sh1.Range("A65536").End(xlUp).RowMsgBox dk = 1For i = 1 To dFor j = 1 To sh1.Cells(i, "L")sh1.Range(sh1.Cells(i, "H"), sh1.Cells(i, "L")).Copy _sh1.Cells(k, "B")k = k + 1Next jNext iEnd SubSub test3()With Columns("B").Find(Range("B1").Value, After:=Range("B4"), LookIn:=xlValues, LookAt:=xlWhole)If .Address = "$B$1" ThenMsgBox ("なし")Else.SelectEnd IfEnd WithEnd Sub

BA同様の質問が有りましたので、参考までhttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1255174597