Excel VBA質問箱 IV

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

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


66222 / 76734 ←次へ | 前へ→

【15077】Re:『データの突合』
お礼  lucky-cat  - 04/6/15(火) 11:17 -

引用なし
パスワード
   BBさんいつもありがとうございます。
やはりERRがでちゃいます。
具体的に書きます。
ABOOK
BBOOKがあります。
ABOOKにはシートは1個で一覧という名前です。
列には場所、建物、種類
BBOOKにもシートは1個で局名という名前とします
列には場所 場所B 情報という列とします。

両BOOKの場所をキーに一致したら
BBOOKの記入という新シートに
場所 建物  情報を表示するというものです。

BBOOKに記入用シート作成


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("ABOOK.xls")
gensi.Activate
シート
記入

End Sub


Private Sub シート()

For Each ws In gensi.Worksheets
  If 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 お礼

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