|
>▼Hirofumi さん、こんばんは。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=13900;id=excel
で質問した内容のうち、以下のものについては、解決しました。
【13618】の内容から、前後スペースを取るため、コードを追加しました。
追加したコードはその下に記述したとおりでよろしいのでしょうか?試したら、「a店」のデータが貼り付けることができました。
>
>>意味が善く解らないのですが?
>>
>>1、に就いて
>>
>>>1.まず、「集計表」にある先頭(6行目)の店舗のデータが貼り付けられません。
>>>ちなみに、この店舗名は「a店」です。
>>
>>これは、「a店」が、店舗名のIndexに有る「a店」と違う場合が考えられます
>>其の意味は、「a店」が「a店 」で有ったり「 a店」で有ったりすると起こります
>
> ★1.これは、ウォッチで確認したところ、以下の1.2.の値が「a店」だけは 「a店 」でした。その他の店は全て「b店」など、空白がありませんでし
> た。
> よって、日付シートへ貼り付けられるデータは、a店以外の全てのデータだけで す。なぜ、a店だけが「a店 」となるのか分かりません。
>
>
> 'i行B列のセル値が日付と認識されないなら
> Else
> 'コピーフラグがTrueなら
> If blnCopy Then
> '店舗Indexにi行A列の値が有るなら
> If dicStore.Exists(1.vntData(1, 1)) Then
> '店舗の行位置を取得
> lngStoreNo _
> = CLng(dicStore.Item(2.vntData(1, 1)))
>
Public Sub Classification2()
・
・
・
'i行B列のセル値が日付と認識されないなら
Else
'コピーフラグがTrueなら
If blnCopy Then
vntData(1, 1) = Trim(vntData(1, 1)) ←ここを追加
'店舗Indexにi行A列の値が有るなら
If dicStore.Exists(vntData(1, 1)) Then
Private Function MakeStoreIndex(dicStore As Object, _
lngSheetNo As Long) As Boolea
・
・
・
'店舗Indexに就いて
With dicStore
'店舗名の先頭から終まで繰り返し
For i = 1 To UBound(vntData, 1)
vntData(i, 1) = Trim(vntData(i, 1)) ←ここを追加
'配列に「合計」が出てきたらForを抜ける ★この行追加
If Trim(vntData(i, 1)) = "合計" Then '★この行追加
Exit For '★この行追加
End If '★この行追加
|
|