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 質問
【28367】Re:外部ファイルの自動読み込みについて Hirofumi 05/9/4(日) 2:15 回答
【28368】Re:外部ファイルの自動読み込みについて Hirofumi 05/9/4(日) 2:17 回答
【28370】Re:外部ファイルの自動読み込みについて ミツコ 05/9/4(日) 9:13 質問
【28371】Re:外部ファイルの自動読み込みについて ミツコ 05/9/4(日) 9:14 質問
【28372】Re:外部ファイルの自動読み込みについて Hirofumi 05/9/4(日) 10:36 回答
【28373】Re:外部ファイルの自動読み込みについて Hirofumi 05/9/4(日) 11:18 発言
【28374】Re:外部ファイルの自動読み込みについて ミツコ 05/9/4(日) 11:31 質問
【28375】Re:外部ファイルの自動読み込みについて Hirofumi 05/9/4(日) 13:30 回答
【28376】Re:外部ファイルの自動読み込みについて ミツコ 05/9/4(日) 17:50 質問
【28377】Re:外部ファイルの自動読み込みについて Hirofumi 05/9/4(日) 19:12 回答
【28378】Re:外部ファイルの自動読み込みについて ミツコ 05/9/4(日) 20:06 質問
【28379】Re:外部ファイルの自動読み込みについて Hirofumi 05/9/4(日) 21:11 回答
【28751】Re:外部ファイルの自動読み込みについて ミツコ 05/9/13(火) 22:42 質問
【28796】Re:外部ファイルの自動読み込みについて Hirofumi 05/9/14(水) 21:35 回答
【28753】Re:外部ファイルの自動読み込みについて ミツコ 05/9/13(火) 22:48 質問
【32249】Hirofumiさん教えてください。 ミツコ 05/12/11(日) 11:15 質問
【32250】現在利用しているコードも記載します1. ミツコ 05/12/11(日) 11:27 質問
【32251】現在利用しているコードも記載します2. ミツコ 05/12/11(日) 11:28 質問
【32252】Re:現在利用しているコードも記載します2. Hirofumi 05/12/11(日) 13:00 回答
【32273】Re:現在利用しているコードも記載します2. ミツコ 05/12/12(月) 1:56 お礼

49390 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free