Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12401 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10572】抽出したい koshimizu 04/2/2(月) 14:34 質問
【10588】Re:抽出したい INA 04/2/3(火) 8:40 回答
【10594】Re:抽出したい koshimizu 04/2/3(火) 10:37 質問
【10603】Re:抽出したい Jaka 04/2/3(火) 12:23 回答
【10611】Re:抽出したい koshimizu 04/2/3(火) 16:38 お礼
【10700】Re:抽出したい Jaka 04/2/9(月) 9:49 回答
【10707】Re:抽出したい koshimizu 04/2/9(月) 16:12 お礼
【10572】抽出したい
質問  koshimizu  - 04/2/2(月) 14:34 -
引用なし
パスワード
   こんにちは。
Sheet1のような表があります。Sheet2のような表にしたいのですが。

Sheet1
Ａ列　　Ｂ列　　　Ｃ列　　 　Ｄ列　　　Ｅ列　　　　　　
店名　　　　２／２日　　　　　　　２／３日　　　Ｂ列Ｃ列結合　１週間分有りま
a店　　鈴木太郎 青木二郎　　青柳一郎 芥川三郎
b店　　茂木五郎　　　　　　鈴木太郎 茂木五郎
c店　　青柳一郎 芥川三郎 　青木二郎

Sheet2
Ａ列　　　Ｂ列　　Ｃ列　　 Ｄ列　　　Ｅ列
氏名　　　２／２　２／３　　２／４　　２／５
鈴木太郎　　a店　　b店
青木二郎　　a店　　c店
青柳一郎　　c店　　a店　　　　　　　　
芥川三郎　　c店　　a店
茂木五郎　　b店　　b店

Ｓｈｅｅｔ２の氏名は入力済です。
【10588】Re:抽出したい
回答  INA  - 04/2/3(火) 8:40 -
引用なし
パスワード
   >したいのですが。

ご自分ではどこまで出来ていて、何が分からなくてご質問されたのですか？
マクロ作成依頼の丸投げ行為は、あまり歓迎されませんよ。
【10594】Re:抽出したい
質問  koshimizu  - 04/2/3(火) 10:37 -
引用なし
パスワード
   INA さん
こんにちは。
マクロは初心者です。基礎の講習会に参加し自動記録等を教えていただきました。
どこから始めたら良いかわかりません。
アドバイスお願いします。
【10603】Re:抽出したい
回答  Jaka  - 04/2/3(火) 12:23 -
引用なし
パスワード
   関数ですみません。

Sheet2

B2
=IF(ISERROR(MATCH($A2,Sheet1!B:B,0)),IF(ISERROR(MATCH($A2,Sheet1!
C:C,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!C:C,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!B:B,0),1))

C2
=IF(ISERROR(MATCH($A2,Sheet1!D:D,0)),IF(ISERROR(MATCH($A2,Sheet1!
E:E,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!E:E,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!D:D,0),1))

D2
=IF(ISERROR(MATCH($A2,Sheet1!F:F,0)),IF(ISERROR(MATCH($A2,Sheet1!
G:G,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!G:G,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!F:F,0),1))

E2
=IF(ISERROR(MATCH($A2,Sheet1!H:H,0)),IF(ISERROR(MATCH($A2,Sheet1!
I:I,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!I:I,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!H:H,0),1))

F2
=IF(ISERROR(MATCH($A2,Sheet1!J:J,0)),IF(ISERROR(MATCH($A2,Sheet1!
K:K,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!K:K,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!J:J,0),1))

G2
=IF(ISERROR(MATCH($A2,Sheet1!L:L,0)),IF(ISERROR(MATCH($A2,Sheet1!
M:M,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!M:M,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!L:L,0),1))

H2
=IF(ISERROR(MATCH($A2,Sheet1!N:N,0)),IF(ISERROR(MATCH($A2,Sheet1!
O:O,0)),"err",INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!O:O,0),1)),
INDEX(Sheet1!$A$1:$B$4,MATCH($A2,Sheet1!N:N,0),1))

時間が無いので、I2以降は自分でかいてね！

上記関数をSheet2の２行目に入れ、必要なところまでフィルドラッグ。
または、コピーしたいセルを選択して、セル右下にマウスポインタを当てて＋になったところで、Wクリックすると左の列のデータ分だけコピーしてくれます。

半角文字は適度に改行してくれと起こられちゃったんで、まるっきり適当に改行してあります。
【10611】Re:抽出したい
お礼  koshimizu E-MAIL  - 04/2/3(火) 16:38 -
引用なし
パスワード
   Jaka さん
こんにちは。前回もありがとうございました。

いつも親切丁寧にお答えをいただきありがとうございます。
関数便利ですね。ＭＡＴＣＨ関数があることはわかっていたのですが
日時と場所が同時などでどのようにするのか手がつけれない状態でした。
ＩＮＤＥＸ関数勉強になりました。
Jaka さんの教えていただきました関数は意味も理解できerr（MATCHなし)も空白で
使用するつもりです。

これを使うのは生徒がボランティアで各福祉施設に行くための資料の１部になります。
今後ともよろしくお願いすると共に、この関数を次回より使用させていただきます。
本当にありがとうございました。
【10700】Re:抽出したい
回答  Jaka  - 04/2/9(月) 9:49 -
引用なし
パスワード
   日付も検索対象に加えてみました。　　　　
Sheet1、2の日付がどうやって記入されているのか解らないと手が出ませんけど．．．。　　　　
Sheet1、日付の表示形式が、「m/d"日"」　　　　
Sheet2、日付の表示形式が、「3月4日」　　　　
と、なっているとして。　　　　

テスト環境がシート３だったもので、変えてください。　　　　
She3　→　She2　　　　
Sheets("Sheet3")　→　Sheets("Sheet2")
She3ＸＸ　→　She2ＸＸ

データが同じパターンで増えて幾分には、Sheet2では255列までなら大丈夫ですが、256列はダメです。
それと、日付は年号からしっかり2004/2/2と書くようにした方が、後々の為に良いと思います。
関数で表示された日付は、マクロのFind検索でまともに引っかからないから．．．。
手動なら大体引っかかるみたいですが、マクロだと、いちいち日付の入っているセルを探して、表示形式まで調べてって事になりそうなんで．．．。
Match使えばいいじゃんと思えますが、一列または１行ずつしか調べられないし、ループ組むのにも面倒だし．．．。
日付と名前のどちらを優先に使用かと迷いましたが、日付優先にしました。
これって、表の構築と言うか検索対象がはっきり決まっていないというのが盲点ですね。

Sub koshi2()
　　Dim She1 As Worksheet, She3 As Worksheet
　　Dim She1EdR As Long, She3EdR As Long, She3EdC As Long
　　Dim I As Long, II As Long
　　Dim FindN As Range, FindRag As Range, SacRag As Range
　　Dim SacCo As Variant
　　
　　Set She1 = Sheets("Sheet1")
　　Set She3 = Sheets("Sheet3")
　　She1EdR = She1.Range("A65536").End(xlUp).Row
　　She3EdR = She3.Range("A65536").End(xlUp).Row
　　She3EdC = She3.Range("IV1").End(xlToLeft).Column
　　Set SacRag = She1.Range("A1", She1.Range("IV1").End(xlToLeft))
　　
　　For I = 2 To She3EdC
　　　　SacCo = Application.Match(She3.Cells(1, I).Value2, SacRag, 0)
　　　　If Not IsError(SacCo) Then
　　　　　 Set FindRag = She1.Range(She1.Cells(2, SacCo), She1.Cells(She1EdR, SacCo + 1))
　　　　　 For II = 2 To She3EdR
　　　　　　　 If She3.Cells(II, 1).Value <> "" Then
　　　　　　　　　Set FindN = FindRag.Find(She3.Cells(II, 1).Value, LookAt:=xlWhole)
　　　　　　　　　If Not FindN Is Nothing Then
　　　　　　　　　　 She3.Cells(II, I).Value = She1.Cells(FindN.Row, 1).Value
　　　　　　　　　Else
　　　　　　　　　　 She3.Cells(II, I).Value = ""
　　　　　　　　　End If
　　　　　　　 Else
　　　　　　　　　She3.Cells(II, I).Value = ""
　　　　　　　 End If
　　　　　 Next
　　　　Else
　　　　　 She3.Range(Cells(2, I), Cells(She3EdR, I)).Value = "日付Err"
　　　　End If
　　Next
　　Set She1 = Nothing
　　Set She3 = Nothing
　　Set SacRag = Nothing
　　Set FindRag = Nothing
　　Set FindN = Nothing
End Sub
【10707】Re:抽出したい
お礼  koshimizu E-MAIL  - 04/2/9(月) 16:12 -
引用なし
パスワード
   Jaka さん
こんにちは。
いつも親切にありがとうございます。

早速ためしましたところ作動しています。
日付につきましてもJaka さんのご指摘のように２００４／２／９で入力し
表示形式で２月９日にしています。
優先順位も生徒がいつ、どこに行くのかと言う表なのでこれでばっちりです。
ただし、マクロの内容は全くと言って良いくらいわかりません。
お願いですが、初心者に良い本等ありましたらお教えください。
本当にありがとうございます。今後ともよろしくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12401 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free