| ■No86531 (shu さん) に返信
お世話になります。
' 10:20〜11:55
'For i = 0 To 59 ' 10:20〜10:59 ’<--- これは間違い
For i = 20 To 59 ' 10:20〜10:59
datS = datS + 1
Uridat(datS).Jikoku = $"10:{i:00}" '時刻
Uridat(datS).Suu1 = i + 100 '数量1
Uridat(datS).Suu2 = i + 20 '数量2
Uridat(datS).mark = " "
'If i = 0 Then ’<--- これは間違い
If i = 20 Then
Uridat(datS).mark = "*" ' "*" マーク
End If
Next
先ず最初に↑のような間違いをしてましたので修正をさせていただきます。
> 仮に30分単位のピックアップとして
> 8:10
> 8:30
> 10:20
> 10:30
> 11:00
> 11:30
> の順でピックアップ、ただし8:10と10:20は*がついているのでこれらのデータの直前に空白データを追加
> となるのでデータが追加される順番をかんがえると
> 1 空白
> 2 8:10
> 3 空白
> 5 10:20
> 6 10:30
> 7 11:00
> 8 11:30
> となります。
1 空白
2 8:10
3 8:30
3 空白
4 10:20
5 10:30
6 11:00
7 11:30
となりますね。
>>If disp Then
>> ret.Rows.Add(x, d, row("数量1"), row("数量2"))
>> x += 5
>>End If
> ここの ret.Rows.Add(x, d, row("数量1"), row("数量2"))を行う直前でif判定でrow("Mark")の内容をチェックして
> 空白を追加すればよいと思うのです。
If row("マーク") = "*" Then
End If
そのようには思うのですが今はこれくらいしか思いつきません（汗；
ちなみに、
何故、*マークを付けたかは、その方がプログラムも簡素化かが出来るのでは？？ とも思ったからです。
|