Excel VBA質問箱 IV

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

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


4633 / 13644 ツリー ←次へ | 前へ→

【55461】文字を確実に認識させる方法を教えてください cook 08/5/5(月) 11:36 質問[未読]
【55462】Re:文字を確実に認識させる方法を教えてく... かみちゃん 08/5/5(月) 11:44 発言[未読]
【55484】Re:文字を確実に認識させる方法を教えてく... cook 08/5/6(火) 17:53 お礼[未読]

【55461】文字を確実に認識させる方法を教えてくだ...
質問  cook  - 08/5/5(月) 11:36 -

引用なし
パスワード
   以下のようにセルの文字を読み込んで検索文字と合えば数字を足していく
プログラムを作成しました。しかし、田中の文字はあるのにちゃんと読み込んでない時があります。そのような場合はもう一度、田中の文字をセルに直接打ち直すと
ちゃんと読み込みます。同じ文字列なのに読み込む時と読み込まない時があるのはなぜでしょうか?ご教示頂ければ幸いです


'1日〜30日までのデータで各日付のセルを取得し田中の文字があれば田中の数字を足していくプログラム     
for i = 0 to 30 '1日〜30日までなので30回ループ
 getCell = Cells(i+1, 1)  'セルの文字を取得

 If getMark(i) = "田中" Then
  tanaka(i) = tanaka(i) + Cells(i+1, 2)
 End If
next i


'田中のデータを別のシートに転記するプログラム
Windows("stuffmember.xls").Activate

For i = 0 To 10
  For j = 0 To 30
   getName(i) = Cells(i+1, 2) '職員の列から職員の名前を取得
      
     If getName(i) = "田中" Then        
      Cells(i+1, j+1) = tanaka(j)
     end if
  next j
next i

【55462】Re:文字を確実に認識させる方法を教えて...
発言  かみちゃん  - 08/5/5(月) 11:44 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> 田中の文字をセルに直接打ち直すとちゃんと読み込みます

空白が末尾か先頭に含まれているとかではないですか?
「小田中」という名前もある場合もあると思いますので、Like 演算子ではなく、
If Trim(getName(i)) = "田中" Then
としてみてはいかがでしょうか?

【55484】Re:文字を確実に認識させる方法を教えて...
お礼  cook  - 08/5/6(火) 17:53 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>> 田中の文字をセルに直接打ち直すとちゃんと読み込みます
>
>空白が末尾か先頭に含まれているとかではないですか?
>「小田中」という名前もある場合もあると思いますので、Like 演算子ではなく、
>If Trim(getName(i)) = "田中" Then
>としてみてはいかがでしょうか?

ありがとうございます。明日 早速試してみます!!

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