ここから本文です

Public resultRowNum As Integer

アバター

ID非公開さん

2016/5/1909:00:02

Public resultRowNum As Integer

Private Function Search_0(searchStr As String, sheetOjbFrom As Worksheet, toSheetObject As Worksheet) As Integer
Dim lngYLine As Long
Dim intXLine As Integer
Dim Obj As Object

' Set Obj = sheetOjbFrom.Cells.Find(searchStr, lookat:=xlWhole)
' If Obj Is Nothing Then
' MsgBox "りんごは見つかりませんでした。"
' Else
' lngYLine = sheetOjbFrom.Cells.Find("りんご", lookat:=xlWhole).Row

Dim c As Range
Dim firstAddress As String
Set c = sheetOjbFrom.Cells.Find(searchStr, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
lngYLine = c.Row

intXLine = c.Column


MsgBox "りんごは、" + CStr(lngYLine) + "行目の" _
+ CStr(intXLine) + "列目にあります"

sheetOjbFrom.Cells(lngYLine, 1).EntireRow.Copy Destination:=toSheetObject.Rows(resultRowNum)
resultRowNum = resultRowNum + 1

Set c = sheetOjbFrom.Cells.FindNext(c)


Loop While Not c Is Nothing And c.Address <> firstAddress
End If

Search_0 = 0
End Function

Sub Search()
Dim findKey(2) As String
Dim searchFoldPath As String
Dim searchFileName As String
Dim intResult As Integer
Dim copyTofold As String
Dim copyToFileName As String
findKey(0) = "りんご"
findKey(1) = "ばなな"

searchFoldPath = "C:\test\"
searchFileName = Dir(searchFoldPath & "*.xls*")
copyTofold = "C:\cpto\"
copyToFileName = "result.xlsx"

Dim wb As Workbook
Dim copyToWb As Workbook
Dim i As Integer
Dim j As Integer
resultRowNum = 1
Set copyToWb = Workbooks.Open(copyTofold & copyToFileName)
Do While searchFileName <> ""

Set wb = Workbooks.Open(searchFoldPath & searchFileName)


For i = 1 To wb.Worksheets.Count

For j = 0 To UBound(findKey) - LBound(findKey) + 1

intResult = Search_0(findKey(j), wb.Worksheets(i), copyToWb.Worksheets(1))
Next
Next

wb.Close (False)
searchFileName = Dir()

Loop
copyToWb.Close (True)
'Dim searchStr As String

'Dim sheetOjbCopyFrom As Worksheet
'Dim sheetOjbCopyTo As Worksheet

'searchStr = "りんご"
'Set sheetOjbCopyFrom = Worksheets("sheet4")
' Set sheetOjbCopyTo = Worksheets("sheet3")
' intResult = Search_0(searchStr, sheetOjbCopyFrom, sheetOjbCopyTo)

End Sub

閲覧数:
25
回答数:
1

違反報告

ベストアンサーに選ばれた回答

2016/5/1912:43:03

何が聞きたいのでしょうか?

この回答は投票によってベストアンサーに選ばれました!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる