| |
Hirofumi さんに前に教えていただいたCSV取り込みマクロですが
試行錯誤しながら工夫をしようとしています。
CSVにある日付、Noとsheet1にある日付、Noをリンクさせ数値を挿入しています。
現状ではCSVに記載ある"No"がsheet1に存在しない場合、最終行にNoの追加書き込みにしています。
これを止めて、csvに記載のNoがsheet1にある時のみ数値の挿入をする。
に変更したいのです。
下記の部分でいろいろ試していますが出来ません。
アドバイスをお願いします。
Private Function GetTagNoRow(vntTagNo As Variant, _
rngScope As Range, _
rngListTop As Range) As Long
Dim lngFound As Variant
Dim lngCount As Long
'No範囲にNoが無いなら
If rngScope Is Nothing Then
lngFound = 0
lngCount = 0
Else
'Noを探索
lngFound = DataSearch(CLng(vntTagNo), rngScope, , 0)
lngCount = rngScope.Rows.Count
End If
'探索成功（Noが有るなら）
If lngFound > 0 Then
'位置を返す
GetTagNoRow = lngFound
'Else
'With rngListTop
'行末位置を更新
'lngCount = lngCount + 1
'セルの書式を文字列に設定
'(無いと探索が出来ない）
'.Offset(lngCount).NumberFormatLocal = "@"
'行末にNoを書き込み
'.Offset(lngCount).Value = vntTagNo
'挿入位置を返す
'GetTagNoRow = lngCount
'探索範囲の更新
'Set rngScope _
= .Offset(1).Resize(lngCount)
'End With
End If
End Function
|
|
ミツコ
- 05/12/11(日) 11:15 -
