エクセルで12枚のシートに同じ表が1つずつ作ってあります。表の中は文字のセルも数式のセルもあります。各シートの同じセルにあるものを選び出して、別の新しいシートにある表の指定した部分に貼り付けたいのです。要するにシート間の串刺しをして別のところに貼り付けたいわけです。例を書きます。
元の表というのは例えば、「シート1はAさんのデータで名前、住所などが入力してある。シート2はBさん、シート3はCさん・・・」で、名前だけの一覧表を新しいシートに作る、ということがしたいのです。質問の意味わかっていただけましたでしょうか?よろしくおねがいします。

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

A 回答 (8件)

不規則なのは残念ですね。

VBAからはシートを番号で参照できるので簡単なのですが。
もし、VBAを使われるのであれば、
Sub GetSheetName()
Dim i As Integer
Dim dist_name As String
Dim sname As String

dist_name = ActiveSheet.Name

For i = 1 To Sheets.Count
sname = Sheets(i).Name
If sname = dist_name Then Exit For
ActiveCell.Offset(i - 1, 0).Value = sname
Next i
End Sub
のような簡単なものを書けば良いと思います。
上のコードは、シート名の列を作りたいシートのセル位置にカーソルを持っていき、マクロを実行すると一番目のシートからカーソルのあるシートまでのシート名のリストを作ります。

だいぶ前にやっぱり同じ様なことをやりたくて作った物です。

では。
    • good
    • 0
この回答へのお礼

せっかく回答をいただいたのに実はVBAについては全くわからず、教えていただいた式をどうしたらいいのかすらわからず・・・という状態でした。で、早速VBA(VB)の勉強をはじめたところです。今は少しだけですがわかります。
がんばります!
悩んでいたことは、シートが8枚と少なかったので、勢いにまかせて”貼り付け”でなんとか通り抜けました。はははつ!
全部自分で理解できるようになったらやってみます。

お礼日時:2001/04/01 18:29

補足です。

集計という表現は適切ではなかったかも知れませんが、mickjey2さんのようなコードの中に
Worksheets(dist_name).Activate
R = cells(Activesheet.Rows.Count, C).End(xlup).Row
Worksheets(dist_name).cells(R+1, C).value = _
Worksheets(i).cells(RR,CC).value
見たいなコードを入れれば可能かと思います。また、「シート間の串刺し」に関して既にヘルプはご覧になりましたか、、、。
注)R、RRは行変数、C,CCは列変数として目的に応じて設定してください。
固定値であれば、定数としてもかまいません。
    • good
    • 0
この回答へのお礼

ありがとうございました。実はVBAについては全くわからず、教えていただいた式をどうしたらいいのかすらわからず・・・という状態でした。で、早速VBA(VB)の勉強をはじめたところです。教えていただいたコードが読める
ようになるのはいったいいつになるのやら・・と思いつつ。
悩んでいたことは、シートが8枚と少なかったので、勢いにまかせて”貼り付け”でなんとか通り抜けました。

お礼日時:2001/04/01 18:21

もし、私がやるとすると、シート名をSheet1,Sheet2,....と最後に数字をつけていく名前にします。


こうやると、串刺しを入力するシートで、どこかのセルにSheet1と入れて、そのセルをマウスでドラッグ(右下の黒ポチ)すれば以下sheet2, sheet3, ...という一列ができあがります。

これさえすれば、後はIndirect関数で該当のセルを参照すればOKです。
たとえば、A1~A10にシート名が入っていて、各シートの C1セルを参照する場合は、

INDIRECT("'" & A1 & "'" & "!$C$1")

をB1に入れて、後はB2~B10にコピーすればいいわけです。

シート名が規則的じゃない場合は、VBAなどを使わないとちょっと困難かと。
(もしかしたらやり方があるかもしれませんが、ちょっと思いつきません)
    • good
    • 0
この回答へのお礼

なるほど、シート名を規則的なものにかえてしまうんですね。シート名が個人名なのでちょっとつかいにくいかな?と思いましたが、このアイデア何かの時に使わせていただきます。indirect関数 勉強します。
ありがとうございました。

お礼日時:2001/03/26 22:58

個人の複数のデータがシートごとに入力(定型)されていて、特定の項目(複数でも可)のみを別のシートに集計するということであれば、VBAを使えば簡単にできます。

10だろうが1000シートだろうがあっという間にできます。集計したい項目(セル番地)を変えることも可能ですし、集計先を他のブックやシートの特定の位置にコピーすることも簡単にできます。シート数の分だけ、項目の数だけコンピューターに自動的に集計させることも可能です。新しい個人データが増えた場合や項目数が据えた場合にも対応できます。最終行に自動的に追加していくことも簡単にできると思います。先ずはマクロに基本動作を記録して、不要部分を削除し、ループでまわせばOKです。具体的にシートのどのセルにデータが入っているかがわかれば、サンプルプログラムを作れますので、必要であれば詳細をお聞かせください。

この回答への補足

あのー、、集計じゃないんです。bupu4uさんの回答の中にあるように、「(各人毎のシートが全く同じ構造=同じ場所に対応するデータがあったとして。) 新しいシートで、セル毎に参照ブック名を変えられるか?ですよね」・・・これなんです。シートが100枚あったとして、特定の項目(例えば住所)だけを別のシートに100行楽に貼り付けられないか、ということです。100行ひとつひとつに参照セルを打ち込むのは手間ですので。
なんかエクセル詳しそうなので期待してま~す!
ps.いただいた回答おもしろそうですね。今回の質問とは別に、使ってみたいです。でもむずかしそう・・・

補足日時:2001/03/26 23:12
    • good
    • 0

#4の訂正です。


参照ブック名=>参照シート名
ブック名を1個づつ変えていくしかないと=>シート名…
です。
    • good
    • 0

補足に対する回答というか提案です。


(各人毎のシートが全く同じ構造=同じ場所に対応するデータがあったとして。)
新しいシートで、セル毎に参照ブック名を変えられるか?ですよね。
これはうまい案が思いつきません。1個入力したセルの数式をコピーして人数分だけ貼り付ける。あとは式を編集してブック名を1個づつ変えていくしかないと思います。このとき数式表示をオンにしておくと少し楽かもしれません。

ただし、名前のシートができたとして、次に住所のシートを作るのだったら簡単ですね。名前のシートをそのままコピーして参照セル名だけ 検索_置き換え するだけですから。
多分すでにご存知のことだと思いますが。m(__)m
    • good
    • 0
この回答へのお礼

シート名をたくさん打つのが大変なので簡単にできる方法がないかな、と思って質問しました。
置換ですね。そうですね・・・なるほど・・・
ありがとうございました。

お礼日時:2001/03/26 22:49

他シートのあるセルの内容をリンクさせるには、


1.リンク先のセル内で半角の「=」を入力します。
2.リンク元のセルをクリックで指定し、Enterで確定します。

これで、リンク先にリンク元の内容か反映されます。
又、他ブックでも同じ様な方法でリンクが出来ます。
    • good
    • 0
この回答へのお礼

私の質問の仕方が不十分だったようですね。シート名をたくさん打つのが大変なので簡単にできる方法がないかな、と思って質問しました。
でも早速の回答ありがとうございました

お礼日時:2001/03/26 22:45

名前の一覧表のシートのセルにに以下のように入れてください


Sheet2!B1(sheet2の行1列Bを表示する)

行列の表示は設定により違うかもしれませんが
シート名+!+表示元のセル でよいとおもいます。

やり方としては、一覧表のシートでデータを表示するセルを決め
そこを選択してエクセルの数式の編集
(ツールバーの「=」が表示されているところ)で「=}を押し
目的のシートに移動し、表示するデータ(セル)をクリックする。
そして「OK」を押せば一覧にほかのシートのセルの内容が表示されるはずです。

説明が下手ですが、、^^;

この回答への補足

早速の回答ありがとうございます。私にはおっしゃることがよく理解できてないんでしょうか?この方法だとシートが100枚あったらシート名を100回入力するというようにとれるんですが・・・
もしそうなら、コピーアンド貼り付け、またはリンク貼り付けの操作と手間が変わらない気がするんですけど。シート名を1つ入れさえすれば(例えばシート1)、表示先のシートでコピーアンドドラッグするとシート2以降のデータが表示されるんですか?
理解不足ですみません。よろしくおねがいします。

補足日時:2001/03/25 13:22
    • good
    • 0
この回答へのお礼

私の質問の仕方が不十分だったようですね。シート名をたくさん打つのが大変なので簡単にできる方法がないかな、と思って質問しました。
でも早速の回答ありがとうございました。

お礼日時:2001/03/26 22:44

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

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

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

Qチャイルドシートは、汚れが目立つの?(ベージュ)

チャイルドシートの購入を考えています。
実際に利用されている方に質問です・・

実際に使ってみると、チャイルドシートは、
どれくらい汚れるものでしょうか?

車の内装にあわせ、ベージュ、白系のチャイルドシートの
購入を考えていますが、汚れが目立つのでは?っと心配しています。
アドバイスをお願い致します。

Aベストアンサー

こんにちは。

うちもベージュ系ですが、汚れはそんなに目立ちませんよ!
座ってるだけなので、靴の汚れやたまにパンやお茶を飲ませたりするのでその汚れぐらいです。
以前ベビーカーを購入したときに、赤ちゃんの汚れはミルクやよだれが多いので却って黒など濃い色の方が目立ちますよって店員さんに言われました。

Q同じブック内の、あるシートの表を別シートにリンク貼り付けしたのですが、貼り付けた側の空白のセルに0がついてしまう

エクセル97にて、
同じブック内の、あるシートの表を別シートに
「リンク貼り付け」したのですが、貼り付けた側の
空白の部分に「0」(日付の場合は「00/1/0」「1900/1/0」)がついてしまうのですが、
空白のままにする方法はありますでしょうか?

Aベストアンサー

ツール→オプション→表示→ゼロ値のチェックをはずしてみてください。
それで0が消えると思います。

Q新車購入について相談 (内装・シートカバー・スライドドア・ナビ・購入時期など)

トヨタのシエンタ(パールシルバー)のGグレード購入を考えてます。
1年以上検討したので、焦らないほうがとは思いますが、レンタカー代などもかかり、今月中には買いたいと・・・。
1つでもご回答お願いします。

(1)Gグレードを選ぶと、内装は自動的にベージュです。
(内装を黒にしたいならSエディションになる)内装はベージュの方が広く感じそうだと異議なしのつもりでしたが、兄は「外装白にするなら絶対黒だと思う」と。しかしSエディションにすると、標準装備が落ちます。
やはり内装はベージュより黒のほうが合いますか?

(2)シートカバーについて
母は純正ベージュ皮調シートカバーや、インテリアの木目調パネルに惹かれていますが、高いし購入に迷っています。
どう思われますか?

(3)Gグレードは助手席側後席が電動スライドドア標準装備です。運転席側後席も電動にしたいならプラス5万です。以前「両側電動スライドドアは本当に便利」という声を何度か読んだのですが(口コミの掲示板)どうですか?

(4)純正HDDナビを考えてます。デュアル画面(助手席ではDVDが見え運転席ではナビが見れる、また運転中でも助手席ではナビの操作をできるというもので、惹かれますが一番高い)はいいですか?
また、音楽保存できるんだからMDはいらないと思ってましたが、自分の手持ちのMDの多さや、乗車する人がMDを聞きたいかもと思い、MD付がいいかと迷っています。
また、ハンディフリーなどのblueなんとかとかは、便利ですか?
画面の種類もいろいろあります。
純正ナビでお勧めはなんですか?

(5)購入時期ですが、11月中に買おうとしていますが、
ちょっとのことで1月までまてば「19年前期車」となり査定の時など全然違うと聞きましたがどう思われますか?

トヨタのシエンタ(パールシルバー)のGグレード購入を考えてます。
1年以上検討したので、焦らないほうがとは思いますが、レンタカー代などもかかり、今月中には買いたいと・・・。
1つでもご回答お願いします。

(1)Gグレードを選ぶと、内装は自動的にベージュです。
(内装を黒にしたいならSエディションになる)内装はベージュの方が広く感じそうだと異議なしのつもりでしたが、兄は「外装白にするなら絶対黒だと思う」と。しかしSエディションにすると、標準装備が落ちます。
やはり内装はベージュ...続きを読む

Aベストアンサー

(1)車のキャラからいって、内装はベージュのほうが合っている感じがします。(もう少し言うと、キャラから考えて白はあまりふさわしくないような・・・)

(2)どちらもいらないと思いますが・・・特にシエンタに木目は不要だと思います。車格が低いので。

(3)実際に後席ドアをどれだけ使うかの頻度によって違ってくると思いますし、駐車場の関係で、どちら側をよく使うかというのも関係するでしょう。また、坂道に止めることが多ければかなり重宝するでしょうね。ただ、シエンタくらいのコンパクトな車のドアは、比較的軽く閉められるので、展示車などで効果のほどを確かめたほうが良いと思います。

(4)私個人の考えですが、助手席側だけDVDを観るシチュエーションが想像できません。普通のものでじゅうぶんだと思います。ただ、私は社外品をオススメします。身内が今年購入したヴィッツの純正HDDナビ、「最低」でした。道路や案内ルートがよく似た色ばかり使って本当に見づらく、操作性も悪くて、直感的に使えない駄作だなと思いました。カロッツェリアの楽ナビあたりなら、親切度や測位も高レベルで安価ですよ。MD再生OKの機種もありますし、カー用品店の作業員に頼めば、走行中の操作もOKになりますしね(運転者は走行中操作しないこと!)。ハンズフリーやbluetoothは、よほど頻繁にかかってくる人でない限り実用性はないでしょう。

(5)「全然違う」とまではいかないと思います。確かに2年くらいで乗り捨てるようであれば大きく変わるでしょうが、5年、10年使うならさほど変わらないでしょう。5年で4,5万(2,3万かも)の違い、10年でほとんど違いなしかと思います。シエンタは来年あたりには生産中止で消滅濃厚モデルなので、プレミアがつくか、マイナー不人気中古車になるかですが・・・おそらく後者が濃厚なので、長く乗りつぶしてあげるほうが吉だと思います。

(1)車のキャラからいって、内装はベージュのほうが合っている感じがします。(もう少し言うと、キャラから考えて白はあまりふさわしくないような・・・)

(2)どちらもいらないと思いますが・・・特にシエンタに木目は不要だと思います。車格が低いので。

(3)実際に後席ドアをどれだけ使うかの頻度によって違ってくると思いますし、駐車場の関係で、どちら側をよく使うかというのも関係するでしょう。また、坂道に止めることが多ければかなり重宝するでしょうね。ただ、シエンタくらいのコンパクトな車のドアは...続きを読む

Qマクロについて 複数セルの値を別シートの任意のセルにコピー貼り付けしたい

タイトルのとおり、シート1の離れた複数セルのそれぞれの値をシート2の任意のセルに貼り付けたいと考えました。
いろいろネットで調べましたが、結果、下記のようなものはできました。

Sub 貼り付け()
  Dim rc As Range
  Dim rp As Range
  Dim i As Long
  
  Set rc = Sheets("Sheet1").Range("A1, B1, C1, D1, F1")
  Set rp = Sheets("Sheet2").Range("E1, F2, G3, B4, D4")
  Sheets(rp.Parent.Name).Select
  For i = 1 To rc.Areas.Count
    rc.Areas(i).Copy
    rp.Areas(i).Select
    ActiveSheet.Paste link:=True
  Next i
  Application.CutCopyMode = False
End Sub

ですが、これではリンクの貼り付けになってしまうため、値の貼り付けをどうしたらできるか考えております。
こちらは、マクロに関してまったくの初心者です。いろいろ調べて見た目の結果、このマクロが一番望んでいたものに近かったので試してみました。が、値の貼り付けにはならないので、どうしたら値の貼り付けができるか教えていただけませんでしょうか?

これから、もっとマクロを勉強したいと考えております。
解説みたいなものも一緒にいただけるとありがたいです。

よろしくお願いします。

タイトルのとおり、シート1の離れた複数セルのそれぞれの値をシート2の任意のセルに貼り付けたいと考えました。
いろいろネットで調べましたが、結果、下記のようなものはできました。

Sub 貼り付け()
  Dim rc As Range
  Dim rp As Range
  Dim i As Long
  
  Set rc = Sheets("Sheet1").Range("A1, B1, C1, D1, F1")
  Set rp = Sheets("Sheet2").Range("E1, F2, G3, B4, D4")
  Sheets(rp.Parent.Name).Select
  For i = 1 To rc.Areas.Count
    rc.Areas(i).Copy
   ...続きを読む

Aベストアンサー

こんにちは!
せっかくコードをお考えのようなので別案はお望みではないかもしれませんが、
コピー&ペーストではなく、単に値の表示だけで良いと思います。

Sub Sample1()
Dim i As Long
Dim myAry1 As Variant, myAry2 As Variant

myAry1 = Array("A1", "B1", "C1", "D1", "F1")
myAry2 = Array("E1", "F2", "G3", "B4", "D4")
For i = 0 To UBound(myAry1)
Worksheets("Sheet2").Range(myAry2(i)).Value = Worksheets("Sheet1").Range(myAry1(i)).Value
Next i
End Sub

こんな感じでも大丈夫だと思います。

※ 今回は対象セルが少ないので、オーソドックスにコツコツやるのであれば

Sub Sample2()
Dim wS As Worksheet
Set wS = Worksheets("Sheet1")
With Worksheets("Sheet2")
.Range("E1") = wS.Range("A1")
.Range("F2") = wS.Range("B1")
.Range("G3") = wS.Range("C1")
.Range("B4") = wS.Range("D1")
.Range("D4") = wS.Range("F1")
End With
End Sub

といった感じですかね。m(_ _)m

こんにちは!
せっかくコードをお考えのようなので別案はお望みではないかもしれませんが、
コピー&ペーストではなく、単に値の表示だけで良いと思います。

Sub Sample1()
Dim i As Long
Dim myAry1 As Variant, myAry2 As Variant

myAry1 = Array("A1", "B1", "C1", "D1", "F1")
myAry2 = Array("E1", "F2", "G3", "B4", "D4")
For i = 0 To UBound(myAry1)
Worksheets("Sheet2").Range(myAry2(i)).Value = Worksheets("Sheet1").Range(myAry1(i)).Value
Nex...続きを読む

Q車のシートがベージュ

車のシートがベージュだと汚れやすいですか?
万が一珈琲やコーラ等の黒い液体をこぼした場合、
染みになりますか?
それともある程度撥水してすぐ拭き取れば大丈夫ですか?


新車を購入するのですが、
欲しい車の好きな色だとシートの色がベージュしかないのです。
(フィットハイブリットの赤)


子どもが小さくて汚すので、
ベージュのシートは不安です・・・。
実際に淡い色のシートをお使いの方、感想を教えてください<(_ _)>

Aベストアンサー

私は5ヶ月前に新車でランドクルーザープラドを購入しました。が、東日本大震災やタイの洪水などあって納車は3ヶ月半待ち。私も内装は黒が好きなので(ボディーはパールホワイト)黒を注文しました。
しかしディーラーの注文ミスで標準色のベージュが来てしまいました。再度注文と担当者に言いましたが、また同じ様に3ヶ月ほど納期がかかるという事で10万円分の追加オプションを付けて貰いしぶしぶ納得しました。今まで内装は黒しか乗った事が無いので最初は本当に抵抗ありました。でも人間なんでも慣れですね。普通に乗っていると少し時間が経つとなんだベージュもなかなか良いじゃん。ってなりました。
私もなんで内装は黒かと言うとやはり汚れです。黒はホコリなどは目立ちますが、飲み物をこぼした時などサッと拭いておけば全く目立ちませんもんね。ベージュだとそう言う訳には行きませんからね。そこで私もオススメなのがシートカバーです。純正品は高価なのでホームセンターなど売っている自社ブランドでほぼ全サイズ適用なシートに被せるだけの物が売っています。運転、助手席はもちろん2列目シートに付けてます。お子様の食べこぼしや飲みこぼし位ならほぼこれで防げると思いますよ。カバーが汚れればまた買えば良いんですからね。ちなみに運転、助手席は各980円後部座席は1480円でした。3つ合わせても4000円弱ですからね。内装色か嫌だからってボディーのカラーは絶対に妥協しない方が良いですよ。

本当にグタグタ長々と申し訳ありませんでした。

私は5ヶ月前に新車でランドクルーザープラドを購入しました。が、東日本大震災やタイの洪水などあって納車は3ヶ月半待ち。私も内装は黒が好きなので(ボディーはパールホワイト)黒を注文しました。
しかしディーラーの注文ミスで標準色のベージュが来てしまいました。再度注文と担当者に言いましたが、また同じ様に3ヶ月ほど納期がかかるという事で10万円分の追加オプションを付けて貰いしぶしぶ納得しました。今まで内装は黒しか乗った事が無いので最初は本当に抵抗ありました。でも人間なんでも慣れですね。普通...続きを読む

Qエクセル2003で別のマクロで選択したセルに別のシートからコピーして貼り付けるマクロ

別のマクロで選択したセルに別のシートからコピーして貼り付けるマクロ、どうしても、このマクロが作れないです。
難題すぎて・・・・
貼り付けるセルの値は選択ボタンによって変わる仕様ですが、エクセル2003で可能なんでしょうか?
難しすぎてコードが全然解らない状態です
どなたかご教授願えれば幸いです。

Aベストアンサー

モジュールレベルで変数を宣言すればどうでしょうか。
マクロが同じモジュールにがあるなら
Dim rng As Range
マクロが別のモジュールにあるなら
Public rng As Range

Sub a()
Set rng = ActiveSheet.Range("A1")
End Sub

Sub b()
MsgBox rng.Value
Set rng = Nothing
End Sub

[XL] Visual Basic for Applications 変数の適用範囲
​http://support.microsoft.com/kb/141693/ja

Q内装がベージュの軽

内装がベージュ系統の軽を探しています。現在検討しているのは、スズキMRワゴンかラパン、ホンダライフ等なんですが、色々見ているうちに自分の希望がわからなくなってしまいました。以前は興味なかったものでも真剣に考えたり、またその逆だったり。。。そこで何かみなさんの意見が聞きたいのです。勿論内装の話だけでなく、視界の見渡し、運転のしやすさ、手入れのしやすさ等の意見も聞かせてください。他の軽もお勧めがありましたら宜しくお願いします。
とにかくベージュ仕様(白~ベージュ~オレンジ系統。青~グレー~黒系統を除いたもの)を第一条件と考えています。安らぐような、やわらかい可愛い雰囲気が希望です。日産マーチ(普通車ですが)のエクリュみたいなものだと可愛いんですが、ちょっと汚れが心配。。。その辺はどうなんでしょうね。ちなみに日産モコは可愛いのですが割高?なので検討外です。

Aベストアンサー

こんばんはです。
お勧めは絶対にラパんです。
私は、ラパン、MRワゴンをディーラーの展示車を見てきてます。ラパンは室内の開放感が良く、室内のシートなど布製品の触り心地が感動でした。あと運転席から車のボンネットの左右の角がよく見え運転しやすそうでした。

 MRワゴンは室内の開放感がラパンに比べて苦しかったです。座ってみて肩の上からの頭上空間がせまいのです、ドアガラスが近いような気が・・・。

やっぱり高い買い物なので後悔のないように展示車や試乗車を運転したり触ったりして、comuneさん自身の感覚で決めるのが一番だと思いますよ。

Q表から別シートに一覧表を作成したいのですが

Excel2003にて複数店舗のシフト管理をしているのですが、
初心者のうえ独学で学んだ為全く分かりません。
縦に日付、横に人が並んでいる表といえば分かりますか?
A1="日"、A2=1、A3=2…
B1="佐藤"、B2="山田"、B3="鈴木"
その交点にその人が行く店舗名が表示されている表を作成しています。
日 佐藤 山田 鈴木
1 A店  B店
2 C店      A店

そのデータから、
日付 応援に行く人 応援をもらう店舗
1   佐藤       A店
1   山田       B店
2   佐藤       C店
2   鈴木       A店

の様な表に変換しています。今までは手入力で変換していたため、
ミス等がないかチェックが大変で困っています。
何か良い方法がありましたら教えてください。
質問も初めてで分かりにくい所があるかもしれませんが
よろしくお願いします。

Aベストアンサー

Sheet1に次の様式の元データ
日 佐藤 山田 鈴木
1 A店  B店
2 C店      A店
があり、Sheet1に何らかのデータ変更をした際、直ちに
Sheet2に
日付 応援に行く人 応援をもらう店舗
1   佐藤       A店
1   山田       B店
2   佐藤       C店
2   鈴木       A店
の様式で表が自動更新される方法を提案します。

シート名「Sheet1」を右クリック→コード表示(V)にて、次のコードをコピー&ペースト、「×」クリックですべて完了。
あとは、Sheet1への入力操作だけです。

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sheet2").Cells.ClearContents
Sheets("Sheet2").Cells(1, 1).Value = "日付"
Sheets("Sheet2").Cells(1, 2).Value = "応援に行く人"
Sheets("Sheet2").Cells(1, 3).Value = "応援をもらう店舗"
r2 = 1
For r = 2 To Range("A65536").End(xlUp).Row
For c = 2 To 256
If Cells(r, c) <> "" Then
r2 = r2 + 1
Sheets("Sheet2").Cells(r2, 1).Value = Sheets("Sheet1").Cells(r, 1)
Sheets("Sheet2").Cells(r2, 2).Value = Sheets("Sheet1").Cells(1, c)
Sheets("Sheet2").Cells(r2, 3).Value = Sheets("Sheet1").Cells(r, c)
End If
Next c
Next r
End Sub

Sheet1に次の様式の元データ
日 佐藤 山田 鈴木
1 A店  B店
2 C店      A店
があり、Sheet1に何らかのデータ変更をした際、直ちに
Sheet2に
日付 応援に行く人 応援をもらう店舗
1   佐藤       A店
1   山田       B店
2   佐藤       C店
2   鈴木       A店
の様式で表が自動更新される方法を提案します。

シート名「Sheet1」を右クリック→コード表示(V)にて、次のコードをコピー&ペースト、「×」クリックですべて完了。
あ...続きを読む

Q車の内装の合皮補修内装の合皮部分が汚れていて、内装を拭くシートで擦ったら、合皮は黒なのですが、擦っ

車の内装の合皮補修
内装の合皮部分が汚れていて、内装を拭くシートで擦ったら、合皮は黒なのですが、擦った部分が少し白きなってしまいました…
自分で補修したいと考えてますが、何か良い補修クリームみたいな物はないでしょうか?
傷は付いていません、擦りすぎで少し白くなってしまったのです…
良い物があれば、教えて下さい。
お願いします。

Aベストアンサー

多少ツヤ質感差は出てしまいますが、革靴用の”乳化性クリーム”黒を少量薄く塗って乾拭きすれば良いです。
WAX系の靴墨と間違えない様にしてください。
合成皮革の汚れを落とす場合、車用の内装クリーナーだとアルコール系の溶剤が入っていることがあるのでお勧めしません。
薄めた中性洗剤を含ませて絞ったタオルで拭くか、革靴用の汚れ落とし用クリーナーで拭くのが良いです。

Qエクセルでシート1のセルに入力すると別シートのセルに表示させるには

依頼されて会員証をエクセル2003で作っている最中です。
SHEET1に下記の様に会員証のベースを作ました。

[●●●の会]
会員番号 [SHEET2の会員番号列]
住所 [SHEET2の住所列]
氏名 [SHEET2の氏名列]
電話番号 [SHEET2の電話番号列]
[管理社名]

SHEET2にまだ空欄ですが、会員番号・住所・氏名・電話番号のリスト表を作りました。

ここからが課題でして、SHEET2に会員番号、住所とセルに打ち込んでいくと

SHEET1のそれぞれに対応したセルに表示させる為に

SHEET1のセルに、[=Sheet2!A3]と打ち込めば、

SHEET2のA3のセルが対応されますが、

これではそのセルしか対応しません。

SHEET2の1行目に会員番号、住所から打ち込んだものは、

単純にSHEET1の表示させたいセルに[=SHEET2!○○]を打ち込めば、

それが対応されます。

ただSHEET2の2行目は空白ですので、新たに打ち込んで対応させようとしても出来ません。

毎度毎度SHEET1の表示させたセルに[=SHEET2!○○]をしていくのは大変です。

新規にリストを打ち込むたびにSHEET1の会員証に

表示させる方法はどういったものがあげられるのでしょうか?

或いは、SHEET1の会員証ベースに打ち込んでいくとSHEET2のリストに

自動的に登録される仕組みの方がやりやすいのでしょうか?

数式も教えていただければ大変有難いです。

アクセスの方がやりやすいかもしれませんが、

依頼した方のPCにはアクセスは入っていないですし、

私自身もアクセスはイマイチの部分があります。

エクセルのマクロなるものを使えません。

年始早々に使用したいとの事ですので、
なんとか仕上げてあげたいとは思います。
宜しくお願い致します。

依頼されて会員証をエクセル2003で作っている最中です。
SHEET1に下記の様に会員証のベースを作ました。

[●●●の会]
会員番号 [SHEET2の会員番号列]
住所 [SHEET2の住所列]
氏名 [SHEET2の氏名列]
電話番号 [SHEET2の電話番号列]
[管理社名]

SHEET2にまだ空欄ですが、会員番号・住所・氏名・電話番号のリスト表を作りました。

ここからが課題でして、SHEET2に会員番号、住所とセルに打ち込んでいくと

SHEET1のそれぞれに対応したセルに表示させる為に

SHEET1のセルに、[=Sheet2!A3]と...続きを読む

Aベストアンサー

>次のA3に会員番号00002として打ち込み、会員種類を法人、以下違う人の名前や電話番号などを打ち込んでも、SHEET1では会員番号が変わるだけで、他は1行の情報のままです。。。。。。

=IF(B2="","",ROW())
こちらの式はA2セル入力の後下方向にコピーしてください、Sheet2の会員番号は会員種類に入力があると自動的に表示されます、直接入力はしないでください。
表示形式を00002としたいのであれば、Sheet2のA列とSheet1の会員番号セルをセルの書式設定のユーザー定義で00000としてください。

て入力で00002と入力してその表示になっているので有ればそれは文字列として設定されていると思います、文字列の場合はSheet1の会員番号の呼び出しのMAX関数が働きません。


>OFFSETは基準の端から端までを考えなくても良いという事で、会員番号の最大値と最終行は等しいから、C2でも良いし、D2でも良いのでしょうか?
>OFFSETの行数設定で(A:A)ではおかしい事になるのでしょうか?

OFFSETで求めているのはVLOOKUP関数の検索範囲の右下のセル番地です
http://officetanaka.net/excel/function/function/offset.htm
OFFSETの図解説明のサイトです。

>次のA3に会員番号00002として打ち込み、会員種類を法人、以下違う人の名前や電話番号などを打ち込んでも、SHEET1では会員番号が変わるだけで、他は1行の情報のままです。。。。。。

=IF(B2="","",ROW())
こちらの式はA2セル入力の後下方向にコピーしてください、Sheet2の会員番号は会員種類に入力があると自動的に表示されます、直接入力はしないでください。
表示形式を00002としたいのであれば、Sheet2のA列とSheet1の会員番号セルをセルの書式設定のユーザー定義で00000としてください。

て入力で000...続きを読む


人気Q&Aランキング