Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49390 / 76732

←次へ　｜　前へ→


	【32252】Re:現在利用しているコードも記載します2.

Hirofumi - 05/12/11(日) 13:00 -


	引用なし

	パスワード

もうTestデータも削除してしまっているのでTest出来ませんが
以下を変更すれば善いと思います

1、「Public Sub CrossTabulation」の中で以下の様に変更

'　　　　　　'日付を探索
'　　　　　　lngCol = GetDateColumn(vntField(0), rngDate, _
'　　　　　　　　　　　　　　　　rngResult.Offset(, clngTop)) + clngTop
'　　　　　　'No.を探索
'　　　　　　lngRow = GetTagNoRow(vntField(5), rngScope, rngResult)
'　　　　　　'日付、Noの交差するセルに値を書き込み
'　　　　　　With rngResult.Offset(lngRow, lngCol)
'　　　　　　　　.NumberFormatLocal = "G/標準"
'　　　　　　　　.Value = vntField(6)
'　　　　　　End With
'　　　　Loop

　　　　～

　　　　　　'No.を探索
　　　　　　lngRow = GetTagNoRow(vntField(5), rngScope, rngResult)
　　　　　　'行位置が見つかったら
　　　　　　If lngRow > 0 Then
　　　　　　　　'日付を探索
　　　　　　　　lngCol = GetDateColumn(vntField(0), rngDate, _
　　　　　　　　　　　　　　　　　　rngResult.Offset(, clngTop)) + clngTop
　　　　　　　　'日付、Noの交差するセルに値を書き込み
　　　　　　　　With rngResult.Offset(lngRow, lngCol)
　　　　　　　　　　.NumberFormatLocal = "G/標準"
　　　　　　　　　　.Value = vntField(6)
　　　　　　　　End With
　　　　　　End If
　　　　Loop

2、「Private Function GetTagNoRow」を以下の様に変更

'★プロシージャ変更
Private Function GetTagNoRow(vntTagNo As Variant, _
　　　　　　　　　　　　rngScope As Range, _
　　　　　　　　　　　　rngListTop As Range) As Long

　　Dim lngFound As Variant

　　'No範囲にNoが無いなら
　　If rngScope Is Nothing Then
　　　　lngFound = 0
　　Else
　　　　'Noを探索
　　　　lngFound = DataSearch(CLng(vntTagNo), rngScope, , 0)
　　End If

　　'位置を返す
　　GetTagNoRow = lngFound

End Function

PS:
全文のUpは、全文のUpが如何しても必要な場合だけにした方が善いですよ

1 hits

▼

【28362】外部ファイルの自動読み込みについて ミツコ 05/9/3(土) 17:46