| |
▼はるのこ さん：
>VBAを始めたばかりなので、コードがとても見苦しいと思いますが
>よろしくお願いします；；
１．Err.Number とErr.Descriptionは必ず書いて下さい。
２．キチンとインデントを入れましょう。見にくいです。
すると、なにかがぬけているのが良く判ります。
※訂正はしてないです。インデントを付けただけです。
又、すぐ気が付いたので詳細については見てません。
Sub macro3()
Dim c
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim k As Integer
Dim firstAddress As String
Application.ScreenUpdating = False
Set wb1 = ActiveWorkbook
Set wb2 = Workbooks.Open("G:\zyouhousyori\inn100best_full.csv")
Set c = cell.Find(What:=Range("B3").Value)
With wb2.Worksheets(1).Range("A1:A100")
If Not c Is Nothing Then
firstAddress = c.Address
Do
Set c = cell.FindNext(c)
For k = 0 To 10
.Range("C100").End(xlUp).Offset(1).Copy _
wb1.Worksheets("sheet1").Cells(7 + k, 2)
Exit For
Loop While Not c Is Nothing And _
c.Address <> firstAddress
End If
End With
Application.ScreenUpdating = True
wb2.Close False
End Sub
>VBA初心者なので、どこがどう違うのかいまいちわかりません；
VBA初心者なので・・・と言うせりふを使うのは百害あって一利なし
です。
例えばこういう風に思う人もいます。少なくは無いと思いますよ。
ht tp://wids.net/lib/forlusers.html
|
|
neptune
- 09/11/12(木) 21:53 -
