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