過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     188
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼列を指定して検索するには？  小林 02/10/10(木) 20:20
　　　┗Re:列を指定して検索するには？  Nakamura 02/10/10(木) 22:53
　　　　　　┗Re:列を指定して検索するには？  小林 02/10/10(木) 22:58

　───────────────────────────────────────
　■題名 ： 列を指定して検索するには？
　■名前 ： 小林 <yoshio-k@hi-ho.ne.jp>
　■日付 ： 02/10/10(木) 20:20
　-------------------------------------------------------------------------
   
皆さんこんばんは。



Ｃ列のみを検索したいのですが、どのようにしたらいいのでしょうか？



以下のマクロを書いていますが，

Ｃ列以外でもヒットしてしまいます。



よろしくお願いします。



Sub kt()

Dim i As Integer

Dim ws1 As Object, ws2 As Object

Dim maxrow As Integer



Set ws1 = Worksheets("入力")

Set ws2 = Worksheets("zumen")

maxrow = ws1.UsedRange.Rows.Count



Application.ScreenUpdating = False



For i = 3 To maxrow

Worksheets("入力").Activate

sd = Cells(i, 2).Value

If ws1.Cells(i, 2) <> "" Then

 Worksheets("zumen").Select

　 With ws2.Range("C:C")

　　Cells.Find(What:=sd, LookIn:=xlValues, _

　　　　　　　 LookAt:=xlWhole, SearchOrder:=xlByRows).Activate

　 If Err.Number = 91 Then

　　GoTo find_err:

　　End If

　

　 ActiveCell.Offset(0, -1).Copy Destination:=ws1.Cells(i, 2).Offset(0, 1)

　 ws1.Cells(i, 2).Offset(0, -1).Value = _

　　　　ActiveCell.Offset(0, 6).Value & ActiveCell.Offset(0, 7).Value

　End With

find_err:

　On Error Resume Next

End If

Worksheets("入力").Select

Next

Application.ScreenUpdating = True

End Sub


　───────────────────────────────────────
　■題名 ： Re:列を指定して検索するには？
　■名前 ： Nakamura
　■日付 ： 02/10/10(木) 22:53
　-------------------------------------------------------------------------
   
こんばんは



>Cells.Find(What:=sd, LookIn:=xlValues, _

>　　　　　 LookAt:=xlWhole, SearchOrder:=xlByRows).Activate



は



.Find(What:=sd, LookIn:=xlValues, _

　　　　　 LookAt:=xlWhole, SearchOrder:=xlByRows).Activate



で良いのでは



Cellsが付くとシート全体になってしまいます。



それでは


　───────────────────────────────────────
　■題名 ： Re:列を指定して検索するには？
　■名前 ： 小林 <yoshio-k@hi-ho.ne.jp>
　■日付 ： 02/10/10(木) 22:58
　-------------------------------------------------------------------------
   
▼Nakamura さん：

>こんばんは

>

>>Cells.Find(What:=sd, LookIn:=xlValues, _

>>　　　　　 LookAt:=xlWhole, SearchOrder:=xlByRows).Activate

>

>は

>

>.Find(What:=sd, LookIn:=xlValues, _

>　　　　　 LookAt:=xlWhole, SearchOrder:=xlByRows).Activate

>

>で良いのでは

>

>Cellsが付くとシート全体になってしまいます。



ありがとうございました。

ばっちりです。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     188