Excel VBA質問箱 IV

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

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


66267 / 76734 ←次へ | 前へ→

【15032】Re:『データの突合』(
回答  BB  - 04/6/14(月) 2:04 -

引用なし
パスワード
   ▼lucky-cat-konkon さん:

 今晩は。
イロハBOOKの、一番シートから、3番シートまでを検索し、ホヘトBOOKの、"記入用"というシートに記入するマクロを書きました。注意事項がいくつか有ります。

1.標準モジュールをホヘトBOOKに挿入し、下記コードを記入する。
2.ホヘトBOOKのシートに、"記入用"と名前を付け、A6から、横に、項目名を書いていく。
3.各BOOKの名称、シートの名称は、下記コードに出てくるのと完全に一致させる。(半角、全角に注意!)
4.項目名も、一致させる。出来ない場合は、イロハBOOKの方の項目名の上に、一列挿入して一致した項目名を書く。(たとえば、「氏名」の上のセルに、「つくった人」と書けば、つくった人でその行を特定できる。)
5.記入用シートのつくった人の欄(「つくった人」と書いてあるセルの下のセル)に名称を記入し、そのセルを選択した状態でマクロを動かす。(私は、ボタンのような丸い図形をシートに貼り付け、マクロを登録して、クリックする方法をいつもやっています。)


*私は、WINDOWS2000と、EXCEL97で動作させて、順調に動かせました。私もプロではないので、lucky-cat-konkon さんのシステムでうまくいくかどうかは、やってみなければわかりません。うまくいかない場合は、また連絡してください。


Option Explicit

Dim vv() As Variant

Dim gensi As Object, yousi As Object

Dim s As String

Dim i As Integer, j As Integer, ir As Integer, ic As Integer

Dim r As Range

Dim ws As Worksheet


Sub つくった人()

Set yousi = ThisWorkbook.Worksheets("記入用")
s = ActiveCell.Value

i = MsgBox(s & "さんを検索しますか?", vbYesNo)
If i <> vbYes Then Exit Sub

i = 0

Do While Range("a6").Offset(, i).Value <> ""
  i = i + 1
  ReDim Preserve vv(2, i)
  vv(1, i) = Range("a6").Offset(, i - 1).Value
Loop

Set gensi = Workbooks("イロハBOOK.xls")
gensi.Activate
シート
記入

End Sub


Private Sub シート()

For Each ws In gensi.Worksheets
  If ws.Name = "一番シート" Or ws.Name = "二番シート" Or ws.Name = "三番シート" Then
    ws.Activate
    検索
  End If
Next ws

End Sub

Private Sub 検索()

For Each r In ws.UsedRange
  If r.Value = s Then
    ir = r.Row
    Exit For
  End If
Next r

For j = 1 To i
  For Each r In ws.UsedRange
    If r.Value = vv(1, j) Then
      ic = r.Column
      vv(2, j) = Cells(ir, ic).Value
      Exit For
      MsgBox vv(2, j)
    End If
  Next r
Next j

End Sub


Private Sub 記入()

yousi.Activate

For j = 1 To i
  Cells(ActiveCell.Row, 1).Offset(, j - 1).Value = vv(2, j)
Next j

End Sub

1 hits

【14952】『データの突合』( lucky-cat 04/6/11(金) 17:40 質問
【14964】Re:『データの突合』( ”” 04/6/11(金) 23:09 発言
【15002】Re:『データの突合』( BB 04/6/13(日) 2:06 回答
【15003】Re:『データの突合』( lucky-cat-konkon 04/6/13(日) 8:09 発言
【15005】Re:『データの突合』( BB 04/6/13(日) 10:17 質問
【15007】Re:『データの突合』( lucky-cat-konkon 04/6/13(日) 11:14 発言
【15032】Re:『データの突合』( BB 04/6/14(月) 2:04 回答
【15043】Re:『データの突合』 lucky-cat 04/6/14(月) 12:23 お礼
【15074】Re:『データの突合』 BB 04/6/15(火) 1:13 回答
【15077】Re:『データの突合』 lucky-cat 04/6/15(火) 11:17 お礼
【15088】Re:『データの突合』 lucky-cat 04/6/15(火) 13:21 お礼

66267 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free