エクセルのひとつのシートに一覧になった名簿があるのですが(6000人分くらい)この表から任意の250人位を選んで別のシートに用意されてるカードに名前、住所、電話番号、所属など必要な項目を個人別に印刷したいのです。一枚一枚手作業で設定して印刷するのは大変なので、自動的に250人のデータ-を差し換えながら250枚のカードを印刷する方法をお教えください。なお、250人のデターだけを選択して他を削除してもいいのでデータ-の抽出方法には困らないのですが、エクセル上の250のシートにカードを作ることは、容量上困難です。また、個々のカードは、印刷すればよくエクセル上にファイルとして残る必要はありません

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

A 回答 (2件)

朝時間がなくて応えられませんでしたが、夜見ると似た質問があり、そちらに解答を入れました。

参考にしてください。
http://www.okweb.ne.jp/kotaeru.php3?qid=667710
の#7です。
抽出した後のやり方です。私は似たようなことを全体を
VBAでやってますが、上記では関数式+最少のVBAで自動化
を工夫しました。
    • good
    • 0

住所録をもとにしてハガキに住所を印刷するときと同様の手順でできます。


必要なデータを抽出したExcelファイルを作成し、Wordの差込印刷ヘルパーを立ち上げて、カードのサイズや印刷する項目の設定をします。

(詳しく書ける自信がないので、下記を参照してください)

http://www.f6.dion.ne.jp/~kon8/ouyou/reson7.html

参考URL:http://www.f6.dion.ne.jp/~kon8/ouyou/reson7.html

この回答への補足

個別に作るカードもエクセルですでにできている表なのでワードでなくエクセルで差込印刷のようなことをしたいのですが。

補足日時:2003/09/30 11:27
    • good
    • 0
この回答へのお礼

ありがとうございます。ワードの差込印刷は知ってるのですが、今回のカードはエクセルですでにできている表なのです

お礼日時:2003/09/30 11:31

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

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

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

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

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

Qイオンカードセレクトに落ちた場合、、

イオン銀行についてです。
インターネットから申し込みすると返送書類やらでめんどくさそうなので、イオンにてイオンATMのとこに置いてあった
イオンカードセレクトの申し込み書類を拝借し ました。

以前、イオンカードセレクトに落ちてただのイオン銀行カードが届いたと聞いたのですが、落ちた場合ちゃんイオン銀行カードきますかね?

イオンと楽天を主に利用するので、クレジットでもいいんですが、ポイントさえ溜まれば否決可決はどちらでもいいです。

楽天は楽天銀行デビットを持ってますので、イオン銀行も欲しいので

結論から言いますとセレクトに落ちた場合はイオン銀行カードが届きますか?

回答お願い致します。

結果的セレクト質問からの否決の場合のイオン銀行カードなので、カテゴリがよくわからずクレジットにしました。間違っていましたら申し訳ありません。

Aベストアンサー

イオン銀行カードは、単なるイオン銀行、銀行口座のキャッシュカードです。

イオンカードは、クレジットカードです。

イオンカードセレクトは、イオン銀行のキャッシュカードと、イオンカード(クレジットカード)がジョイントしたカードです。

クレジットカードが申し込みで落ちれば、違法行為をやって居なければ、申し込みで落ちないイオン銀行の口座開設は行われますし、キャッシュカードも送られてくることになります。

Qエクセルでシートに入力した値を別シートに飛ばし、月別に集計する方法を教えてください

タイトルでは分かり辛かったとは思いますが、要約すると以下の通りです。

1.元シート(以下Aと呼びます)に毎日同じセル内に1回値を入力します。

2.その入力された値を別シート(以下Bと呼びます)へとリンクさせ、尚且つそのBシート内で1か月分の集計を取ります。

つまりAシートでは毎日同じセルに値を入力しますが、Bシートでは1列ずつ下に記録され1か月分の入力がされていく、そのような操作は可能でしょうか?

Bシートのあるセルに”=Aシートの指定セル”を入力するとAシートで値を変更するたびに同じセル内で値が更新されてしまいます。

どなたか方法が分かる方お知恵をお貸し下さい。よろしくお願いします。

Aベストアンサー

似たような質問は結構多くありますが、セルに値を入力したときにマクロを実行すると、間違えた場合、訂正した場合は、どうするかなどがあります。
やりたいことを、Sheet1のC1,C2,C3に入力して内容確認後、ボタンを押すと
Sheet2のデータの最後の行の下に、横方向に記録していくということしたら。VBAで仕事を行うに定番のようなマクロです。
以下、試して、そちらの都合に合わせて編集してください。

Sub ボタン3_Click()
GYOU = Sheets("Sheet2").Range("B65536").End(xlUp).Offset(1, 0).Row
Sheets("Sheet2").Cells(GYOU, 2).Value = Range("C1").Value
Sheets("Sheet2").Cells(GYOU, 3).Value = Range("C2").Value
Sheets("Sheet2").Cells(GYOU, 4).Value = Range("C3").Value
End Sub
補足説明
Range("B65536").End(xlUp).Offset(1, 0).Row  は
エクセルで使用できる最大行65536行目のB列を上方向へ移動して、空白でない行を探す、その行から1行上へ移動した行番号を取得して、変数GYOUに入れる。
Sheets("Sheet2").Cells(GYOU, 2).Value = Range("C1").Value は、
シート2で、前のコマンドで探し当てた行の2列目にC1セルに値を入れるです。

似たような質問は結構多くありますが、セルに値を入力したときにマクロを実行すると、間違えた場合、訂正した場合は、どうするかなどがあります。
やりたいことを、Sheet1のC1,C2,C3に入力して内容確認後、ボタンを押すと
Sheet2のデータの最後の行の下に、横方向に記録していくということしたら。VBAで仕事を行うに定番のようなマクロです。
以下、試して、そちらの都合に合わせて編集してください。

Sub ボタン3_Click()
GYOU = Sheets("Sheet2").Range("B65536").End(xlUp).Offset(1, 0).Row
Sheets("S...続きを読む

Qイオン系クレジットカードの複数取得と相互利用はできますか?

タイトルのとおりです。

詳しく書くと、
イオンカードとミニストップカードの2種類が
イオンのカードとしてあると思いますが、

1.複数取得ができるのか?
2.イオンカードはミニストップで使用できるが、
ミニストップカードはジャスコ(イオン)で使用できるのか?また、使用できる場合、決まった日にちの5%引きなどのサービスがイオンカードと変わりないか?

以上が気になっています。

経験者の方、教えてください。
よろしくお願いします。

Aベストアンサー

複数取得は可能です。ただし限度額は2枚のカードのうち
多い方の金額が限度額となります。

またカードの利用についてですが、ミニストップでイオンカードを、
また逆にジャスコ(イオン)でミニストップカードを相互に使用できます。

 割引については、ジャスコ(イオン)での5%引きは
ミニストップカードでは受けれません。
同じイオンが発行していても、ジャスコでの5%引きは
イオンカード(プロパーカードという)のみの特典です。

 しかし逆にミニストップでの毎週土曜日5%OFFは
イオンカードでも受けれます。

Q【エクセル】別シートの名簿の項目を本シートに1人ずつ落とし、数人分までを連続印刷するマクロについて。

いつもお世話になってます。

マクロの記述で質問します。

シート2に連番の名簿番号の付いた名簿を作ります。
シート1に文書の様式を作ります。
シート1の文書の様式の枠外のA1に名簿番号を入力すると
シート1の様式にシート2の同じ名簿番号の者の氏名・住所・電話番号が各欄に表示されます。
印刷ボタンを押すと様式が印刷されます。

ここまではマクロで作ったのですが、(たいしたことありませんが。)

シート1のA1に”4”、B1に”12”と入力し、印刷ボタンを押すと、
名簿番号4~12までを順次様式に反映させ、9枚連続印刷する。

というところまで作りたいのですが、どのようなマクロの記述になるのか判りません。
例としてどのような記述になるのでしょうか?

もしくは、参考になる過去の質問や参考になるようなサイトなどご存知でしたら教えてください。よろしくおねがいします。

(エクセル2003)

Aベストアンサー

簡単に行うならこんな感じでしょうか。

Sub LP()

Dim start As Long
Dim stp As Long
Dim i As Long

start = Range("A1")
stp = Range("B1")

For i = start To stp
Range("A1") = i
Call 作成した印刷マクロ
Next

End Sub

Qイオンカード ゴールド

現在普通のイオンカード(紫色)を持っております。
主にネットショッピングに楽天カードを使用しており、ほとんど使用してないのですが、年会費無料のイオンのゴールドカードがあることを知り、是非目指したいと思っております。
(楽天ショッピングではプラチナ会員までなってますが、あまり会員メリットが感じられない…。)

ネットで自分なりに調べたところ、個人用のイオンカードのゴールドには2種類あり、それぞれのゴールド移行条件は以下の感じでした。
1.イオンゴールドカード(イオンカードからの移行)
 (1)直近1年間の「ショッピング」利用総額が100万円を超える
 (2)直近1年間の利用件数が120件以上かつ「ショッピング」利用総額が80万円を超える
 (3)カード作成からの総額が500万円を超える
 (4)イオングループのみで直近1年間で60万以上を超える
2.イオンゴールドカードセレクト(イオンカードセレクトからの移行)
 (1)住宅ローン利用
 (2)定期預金残高100万円以上
 (3)投資信託の残高がある
 (4)個人年金保険契約
 (5)イオンカードセレクトのクレジット利用
 (6)WAON利用金額が一定以上
 (1)、(3)~(6)の金額不明。

(1)上記1、2のゴールド移行条件について、みなさんの情報、体験等あれば教えて欲しいです。

<上記移行条件を前提として考えた場合>
(2)イオンゴールドカードとイオンゴールドカードセレクト、どちらを持った(目指した)方がいいのでしょうか?

 イオンゴールドカードセレクトはイオン銀行との提携の形をとるため、銀行取扱商品の購入・利用により発行条件が緩和されることから、手っ取り早くゴールドを取得するなら、イオン銀行口座を開設し、その際に、定期預金100万以上を預けるのが一番のように思います。
 イオンゴールドカードでも、1-(1)または1-(2)であれば、1年間(場合によっては1年未満)で条件クリアするのも可能だと思いますが、 1年近くかかってしまいます。(ちなみに、2-(5)が同じ条件なら、セレクトのゴールド取得も可能になりますが…)

 取得期間だけ考えるとセレクトに分があるように感じます。
 ただ、イオンゴールドは一度ゴールド取得後は、未払いや延滞とかなければ使用金額の条件をクリアしていなくても降格にはならないようですが、ゴールドセレクトについては分かりません。常に100万以上の定期を入れておけば降格にはならないのだと思いますが、取得後のゴールド維持の条件を考えると、イオンゴールドカードの方が良いのかなとも思えます。取得の道のりは大変だけど、一度取得すれば後のことはあまり考えないでいいようだし…。自分なりに2つのゴールドカードを比較、まとめると以下のようになります。

          イオンゴールドカード   イオンゴールドカードセレクト
 機能                      ○イオンカード+イオンバンクカード+WAON 
 取得条件   年間利用でクリア可    ○(定期預金残高100万以上)
 取得期間   1年              ○(イオン銀行開設時に定期100万)
 取得後    ○降格なし          不明だけど降格条件厳しそう?
 取得メリット  同じ?            同じ?

単純にイオンゴールドカードセレクトの方が優れているように思えますが、取得後のゴールド維持に重点を置いた場合は、イオンゴールドカードの方がいい???

(3)イオンカードからゴールド移行については一定金額の利用としか規約には書かれていませんが、イオンカードセレクトでは、ゴールド条件(例えば定期預金で100万以上で本当にゴールドになるのか)を担当者に確認できるものなのでしょうか? 

現在普通のイオンカード(紫色)を持っております。
主にネットショッピングに楽天カードを使用しており、ほとんど使用してないのですが、年会費無料のイオンのゴールドカードがあることを知り、是非目指したいと思っております。
(楽天ショッピングではプラチナ会員までなってますが、あまり会員メリットが感じられない…。)

ネットで自分なりに調べたところ、個人用のイオンカードのゴールドには2種類あり、それぞれのゴールド移行条件は以下の感じでした。
1.イオンゴールドカード(イオンカードからの移行)
...続きを読む

Aベストアンサー

お礼読みました。

>「基準に満たない場合は、会員の同意を得ることなく、
>ゴールドカードからイオンカードに変更して発行…」とあります。

こんな規約があるなんて全く知りませんでした。
教えて頂いて、ありがとうございます。
スステム上、ゴールカードは減ることは無いので、将来的には、
適用は十分有り得ると思います。
私が質問者様の立場でしたら、光熱費のひとつくらいを指定して
置くと思います。そうすれば、、毎月料金が発生するので、
大丈夫なのかな?っと思います。

あと、ゴールドになるまで知らなかった事は、家族カードが
最高3枚(合計4枚になる)まで発行出来ます。
我が家的にはちょっと便利です。

あと、どのくらいで条件をクリアするかは、電話で確認した人の
ブログを読んだことがありますので、可能だと思います。

http://www.aeoncredit.co.jp/tokuten/gold/index.html

Qエクセル:シートを切り替えずに別シート上の操作をする

タイトルが正しいかどうか疑問ですが。

シート[Sheet1]にて値を入力したアドレス(の行番号と列番号)を取得し、
その周囲のセルの罫線の色を赤(3)から灰色(15)に置換するコードを作っています。

Sheet1のコードには、
Private Sub Worksheet_Change(ByVal Target As Range)
 AAA Target
End Sub
とだけ書き、入力があったらプロシージャAAAへTargetを持って飛びます。

Sub AAA(ByVal Target As Range)
 Dim M_Row As Integer
 Dim M_Clm As Integer
 Dim Y As Range

 M_Row = Target.Row
 M_Clm = Target.Column

 For Each Y In Worksheets("Sheet1").Range(Cells(M_Row - 2, M_Clm), Cells(M_Row + 1, M_Clm + 5))
  With Y
   If .Borders(xlEdgeTop).ColorIndex = 3 Then .Borders(xlEdgeTop).ColorIndex = 15
   If .Borders(xlEdgeLeft).ColorIndex = 3 Then .Borders(xlEdgeLeft).ColorIndex = 15
   If .Borders(xlEdgeBottom).ColorIndex = 3 Then .Borders(xlEdgeBottom).ColorIndex = 15
  End With
 Next
End Sub

ここまでは正常に動きます。
この後に、アクティブでないシート[Sheet2]の同じセル範囲にある罫線の色も同じように置換したいので、
上記コードに続けて、以下のように書きました。

Sub AAA(ByVal Target As Range)
 Dim M_Row As Integer
 Dim M_Clm As Integer
 Dim Y As Range

 M_Row = Target.Row
 M_Clm = Target.Column

 For Each Y In Worksheets("Sheet1").Range(Cells(M_Row - 2, M_Clm), Cells(M_Row + 1, M_Clm + 5))
  With Y
   If .Borders(xlEdgeTop).ColorIndex = 3 Then .Borders(xlEdgeTop).ColorIndex = 15
   If .Borders(xlEdgeLeft).ColorIndex = 3 Then .Borders(xlEdgeLeft).ColorIndex = 15
   If .Borders(xlEdgeBottom).ColorIndex = 3 Then .Borders(xlEdgeBottom).ColorIndex = 15
  End With
 Next

 For Each Y In Worksheets("Sheet2").Range(Cells(M_Row - 2, M_Clm), Cells(M_Row + 1, M_Clm + 5))
  With Y
   If .Borders(xlEdgeTop).ColorIndex = 3 Then .Borders(xlEdgeTop).ColorIndex = 15
   If .Borders(xlEdgeLeft).ColorIndex = 3 Then .Borders(xlEdgeLeft).ColorIndex = 15
   If .Borders(xlEdgeBottom).ColorIndex = 3 Then .Borders(xlEdgeBottom).ColorIndex = 15
  End With
 Next

End Sub

これだと、
 For Each Y In Worksheets("Sheet2").Range(Cells(M_Row - 2, M_Clm), Cells(M_Row + 1, M_Clm + 5))
の部分で失敗します。
この1行前に、
 Sheets("Sheet2").Select
と入れてやると正常に動作するのですが、
シートを切り替えずにやりたいと思っています。
可能でしょうか?


以下のように、
実行後にSheet1に戻し、
それらを
Application.ScreenUpdating = False
Application.ScreenUpdating = True
で挟むことで、見た目はシートを切り替えずに実行できるのですが、
実際にこのコードを組み込んでいるシートはシート上にあるデータが多いためか(600行×100列程度)、
全く同じコードを実行しても一瞬画面がチラついてしまいます。
(新規Bookで同じコードを組み込んで、何行かに罫線を引いただけのシートだと全くチラつかなかったので、
シート上のデータが多いせいじゃないかと思いました)

Sub AAA(ByVal Target As Range)
 Dim M_Row As Integer
 Dim M_Clm As Integer
 Dim Y As Range
 M_Row = Target.Row
 M_Clm = Target.Column

 For Each Y In Worksheets("Sheet1").Range(Cells(M_Row - 2, M_Clm), Cells(M_Row + 1, M_Clm + 5))
  With Y
   If .Borders(xlEdgeTop).ColorIndex = 3 Then .Borders(xlEdgeTop).ColorIndex = 15
   If .Borders(xlEdgeLeft).ColorIndex = 3 Then .Borders(xlEdgeLeft).ColorIndex = 15
   If .Borders(xlEdgeBottom).ColorIndex = 3 Then .Borders(xlEdgeBottom).ColorIndex = 15
  End With
 Next

 Application.ScreenUpdating = False
 Sheets("Sheet2").Select

 For Each Y In Worksheets("Sheet2").Range(Cells(M_Row - 2, M_Clm), Cells(M_Row + 1, M_Clm + 5))
  With Y
   If .Borders(xlEdgeTop).ColorIndex = 3 Then .Borders(xlEdgeTop).ColorIndex = 15
   If .Borders(xlEdgeLeft).ColorIndex = 3 Then .Borders(xlEdgeLeft).ColorIndex = 15
   If .Borders(xlEdgeBottom).ColorIndex = 3 Then .Borders(xlEdgeBottom).ColorIndex = 15
  End With
 Next

 Sheets("Sheet1").Select
 Application.ScreenUpdating = True

End Sub


よろしくお願いします。

タイトルが正しいかどうか疑問ですが。

シート[Sheet1]にて値を入力したアドレス(の行番号と列番号)を取得し、
その周囲のセルの罫線の色を赤(3)から灰色(15)に置換するコードを作っています。

Sheet1のコードには、
Private Sub Worksheet_Change(ByVal Target As Range)
 AAA Target
End Sub
とだけ書き、入力があったらプロシージャAAAへTargetを持って飛びます。

Sub AAA(ByVal Target As Range)
 Dim M_Row As Integer
 Dim M_Clm As Integer
 Dim Y As Range

 M_Row = Tar...続きを読む

Aベストアンサー

> For Each Y In Worksheets("Sheet2").Range(Cells(M_Row - 2, M_Clm), Cells(M_Row + 1, M_Clm + 5))
のRangeはSheet2を参照しているのに、CellsはこのままではActiveSheetすなわちSheet1を参照することになるので、当然オブジェクト定義エラーになる。
ここは、長くなるが、
For Each Y In Worksheets("Sheet2").Range(Worksheets("Sheet2").Cells(M_Row - 2, M_Clm), Worksheets("Sheet2").Cells(M_Row + 1, M_Clm + 5))
としなければならない。
with
を使え。

Qイオンバンクカードはなぜお店で作れないの?

サティ、マックスバリューによく行くので、イオンカードを作っておこうと思い、店頭に行きました。
説明を受けると、クレジット機能付きのイオンカード(ワオン付き)を勧められました。

私は、イオンバンクカード(犬のついた白いカード)というのが作りたかったのですが、見本の中に存在していませんでした。
イオンバンクカードはイオンカードとしてサティやマックスバリューでは使えないのでしょうか?
なぜ,店頭では作れないのでしょうか?
ワオンのオートチャージもできるし,便利だと思ったのですが…

Aベストアンサー

こんにちは。回答させてください。(私はイオングループの者です)

まず、整理します。
○イオンカード・・・(株)イオンクレジットサービスが発行するクレジットカードのこと。このクレジットカードに電子マネーWAONの機能をつけることができる。
○イオンバンクカード・・・(株)イオン銀行が発行する銀行キャッシュカード。WAON無しもあるが、ほぼWAON付きで発行する人がほとんど。

質問者様の希望のカードはイオン銀行発行のイオンバンクカードWAON付きでよろしいですか?
http://www.waon.com/lineup/index.html
上記の(4)で間違いないですね。

上記カード、簡単に説明します。
(1)店舗で300円で買える。すぐチャージして使える。無記名のため盗難保証なし。
(2)イオンカード(クレジット)を持っている会員に発行するWAONカード。
(3)イオンクレジットカードにWAONの機能をつけたもの
(4)イオン銀行のWAON付きカード。

ここで頭を切り替えてください。
イオンクレジットサービスとイオン銀行は全く別の会社です。
三井住友銀行と三井住友VISAカードと思ってください。
店舗ではクレジットカードの申し込みは即時出来ます。その場で申し込み記入し、仮カード発行、後日審査のうえ、本カード郵送という手順ですよね。
質問者さんの希望はイオン銀行のカードなのです。
例えて言うと、「三井住友VISA」の窓口に行って、「三井住友銀行」のカードを作ってください、というものなので、無理なんです。
イオン銀行のカードはイオン銀行でないとダメなんです。イオンクレジットサービスはクレジットカードしか申し込めないのですから。

イオン銀行はネットメインですが、イオン店舗にも「イオン銀行」がテナント出店しているところもあります。そこでは店頭でカード申し込みできます。それは下記のイオン店舗です。
http://www.aeonbank.co.jp/idea/branch/list/index.html
大型の店舗しか「イオン銀行」は出店していません。

イオンバンクカードWAON付きのメリット
・20日、30日の感謝デーは5%OFF(WAONで支払いすること)
・毎月5日・15日・25日はお客さまわくわくデー、WAON支払いでポイント2倍
・一部マックスバリュでは毎月10日が「WAONデー」WAON支払いでポイント2倍
・イオンカードときめきポイント、JALマイル、SUICAポイントと相互に交換可能。
・来春は吉野家でWAON支払い導入。今後も増えるでしょう。
・WAONのチャージ機はほぼ全店にあるし、レジでも簡単に残高確認、チャージができます。
・イオングループで利用可能。ジャスコ、サティ、ビブレ、マックスバリュ、ミニストップ・・。そうそう、ダイエーもイオングループになったのでそのうちダイエーでも使えるかも。
・イオンバンクWAONカードならオートチャージ機能あり。(これは便利ですよ)

質問者様のようにマックスバリュ、サティなどへ行く機会が多いなら、手間をかけても「イオンバンクWAONカード」を作ったほうがいいでしょう。

長文、失礼しました。
疑問あれば補足ください。

こんにちは。回答させてください。(私はイオングループの者です)

まず、整理します。
○イオンカード・・・(株)イオンクレジットサービスが発行するクレジットカードのこと。このクレジットカードに電子マネーWAONの機能をつけることができる。
○イオンバンクカード・・・(株)イオン銀行が発行する銀行キャッシュカード。WAON無しもあるが、ほぼWAON付きで発行する人がほとんど。

質問者様の希望のカードはイオン銀行発行のイオンバンクカードWAON付きでよろしいですか?
http://www.waon.com/lineu...続きを読む

Q1枚のシートに集計を入力して別シートで印刷

シート1に日付と商品の個数を入力して別のシートに日付指定してその日の集計を印刷をしたいのですが日付の指定がうまうできないので教えて下さい。
エクセルは2010です。

シート1(入力のみ)
     1日   2日   3日・・・・・
商品1  2    3     5
商品2  4    1     2
商品3  3    3     3


シート2
1日←日付指定
商品1  2
商品2  4
商品3  3

シートを日数分作り印刷をするのも考えたのですが出来ればシートを増やしたくないので
ご教授宜しくお願いします。

Aベストアンサー

>商品の順番が違う表示したい場合はどこの数値を直せば良いのか

違うことをやりたくなったら、違う数式を立てます。
きつい言い方をするとご質問者さんはみんな逃げちゃいますが、違うことをしたくなったら改めて何をしたいとキチンと状況を添えて新しいご質問として、元のご相談はちゃんと解決で閉じてから、改めてご相談を投稿することを覚えてください。


シート2のA2以下に商品が順不同で記入されている
シート2のB2に
=IFERROR(VLOOKUP(A2,Sheet2!A:IV,MATCH($A$1,Sheet2!$1:$1,0),FALSE),"")
以下コピー。

Q電話料金をイオンカード払いに変更しようと思いましたが、指定のカード会社

電話料金をイオンカード払いに変更しようと思いましたが、指定のカード会社が、「JCB」や「VISA」「MasterCard」等になっています。イオンカードには「JCB」がついているのですが、この場合のポイントはイオンカードにつくのでしょうか。

Aベストアンサー

>「JCB」や「VISA」や「MasterCard」

これらは「国際ブランド」と言います。

基本的に、カード発行会社が発行したカードは、カード発行会社が開拓した加盟店のみ決済が可能です。 例えば、イオンカードなら、イオンカード加盟店のみ、使えるということ。

これでは不便です。 国内全てのお店をイオンカード加盟店にするのは困難ですし、ましてや海外のお店の全てを加盟店にするのは不可能。 そんなカードでは使い勝手は悪いだけ。

そこでイオンカードは、国際的なクレジット決済システムを持つ「国際ブランド」と提携し、その決済機能を借りることによって、国内・海外を問わず使えるようになります。

イオンカード(JCB)なら、イオン加盟店またはJCB加盟店で使用可能。 もし利用したいお店がイオンの未加盟店でも、JCB加盟店なら・・・お持ちのカードが使えるということ。

JCB加盟店で使ったデータはJCB経由でイオンに送られ、イオンが請求・引落を行い「ときめきポイント」を付与します。 国際ブランドは決済機能と通り道を提供しているだけです。

国内の電力会社10社は、全て「イオン(AEON)カード」が提携先として載っていますから、登録手続きは「イオン(AEON)カード」で構わないのでは?(JCBでも登録可能と思いますが)

>「JCB」や「VISA」や「MasterCard」

これらは「国際ブランド」と言います。

基本的に、カード発行会社が発行したカードは、カード発行会社が開拓した加盟店のみ決済が可能です。 例えば、イオンカードなら、イオンカード加盟店のみ、使えるということ。

これでは不便です。 国内全てのお店をイオンカード加盟店にするのは困難ですし、ましてや海外のお店の全てを加盟店にするのは不可能。 そんなカードでは使い勝手は悪いだけ。

そこでイオンカードは、国際的なクレジット決済システムを持つ「国際ブラン...続きを読む

QIDの種類ごとに別シートに印刷用シートを作成。。。

win7、エクセル2007で作成中です。

シート1に
  B列 C列 D列 E列
  ID  所属 部門 名前
  1   A   1   ○○○
  2   A   1   ○○○
  10  B   1   ○○○
  11  B   1   ○○○
  30  B   2   ○○○
  31  B   2   ○○○
  60  B   3   ○○○
  61  B   3   ○○○
  100  C   1   ○○○
  101  C   1   ○○○
  150  C   2   ○○○
  151  C   2   ○○○
  200  C   3   ○○○
  201  C   3   ○○○

こんなデータがあり、IDと名前だけ印刷の必要があるのですが、
縦長で印刷しにくいので、印刷用シートとしてシート2に所属・部門別にIDと名前だけを抽出したいと思っています。
以前配列関数を習った記憶をうろ覚えで使ってみたりしていたのですがうまくゆかず。。rowもうまく扱えず><

これが完成したらこの仕事が終わるので、できればその度貼り付けなどではなく、 
スマートにできたらと思いまして。。。

ちなみに、データは度々増えていきます。

もしよろしければ、ご教授いただけませんか??
よろしくお願いいたします。

win7、エクセル2007で作成中です。

シート1に
  B列 C列 D列 E列
  ID  所属 部門 名前
  1   A   1   ○○○
  2   A   1   ○○○
  10  B   1   ○○○
  11  B   1   ○○○
  30  B   2   ○○○
  31  B   2   ○○○
  60  B   3   ○○○
  61  B   3   ○○○
  100  C   1   ○○○
  101  C   1   ○○○
  150  C   2   ○○○
  151  C   2   ○○○
  200  C   3   ○○○
 ...続きを読む

Aベストアンサー

シート2のB1、B2に所属と部門

A5に
=IF(ROW(A1)>COUNTIFS(Sheet1!$C:$C,B$1,Sheet1!$D:$D,B$2),"",INDEX(Sheet1!$B:$B,SMALL(IF((Sheet1!$C$1:$C$1000=B$1)*(Sheet1!$D$1:$D$1000=B$2),ROW(Sheet1!$B$1:$B$1000)),ROW(A1))))
と記入、コントロールキーとシフトキーを押しながらEnterで入力
以下コピー

B5に
=IF(A5="","",VLOOKUP(A5,Sheet1!$B:$E,4,FALSE))
と記入、ふつーにEnterで入力
以下コピー

A:B列をコピーして完成。


人気Q&Aランキング

おすすめ情報