Excel VBA質問箱 IV

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

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


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

26608 / 76738

←次へ　｜　前へ→


	【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

2 hits

▼

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

≪