Excel VBA質問箱 IV

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

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


67395 / 76738 ←次へ | 前へ→

【13901】Re:検索したデータを特定のシートへ貼り付ける
質問  ハルコ  - 04/5/16(日) 0:23 -

引用なし
パスワード
   >▼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                '★この行追加

0 hits

【13588】検索したデータを特定のシートへ貼り付ける ハルコ 04/5/8(土) 15:29 質問
【13597】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/9(日) 11:39 回答
【13608】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/9(日) 16:20 質問
【13613】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/9(日) 18:23 回答
【13617】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/9(日) 20:02 質問
【13618】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/9(日) 20:44 回答
【13620】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/9(日) 21:21 質問
【13664】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/10(月) 20:06 回答
【13666】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/10(月) 21:24 質問
【13668】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/10(月) 21:48 回答
【13669】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/10(月) 23:12 質問
【13719】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/11(火) 20:18 回答
【13721】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/11(火) 21:10 回答
【13722】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/11(火) 22:24 質問
【13755】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/12(水) 19:50 回答
【13760】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/12(水) 22:17 質問
【13801】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/13(木) 21:49 回答
【13845】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/15(土) 1:31 質問
【13849】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/15(土) 7:31 回答
【13889】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/15(土) 19:20 質問
【13895】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/15(土) 20:56 回答
【13900】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/15(土) 23:29 質問
【13901】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/16(日) 0:23 質問
【13903】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/16(日) 1:45 回答
【13909】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/16(日) 19:07 質問
【13910】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/16(日) 21:07 回答
【13911】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/16(日) 22:48 お礼

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