| ■No86471 (shu さん) に返信
お世話になります。
Q1, 8:10〜8:45のデータ部分と10:20〜10:55のデータ無い部分の空白は、もう少し無くならないでしょうか?、
> For i = 20 To 55 ' 10:20〜10:55
> datS = datS + 1
> 'Uridat(datS).Jikoku = "10:" & Str(i) '時刻
> Uridat(datS).Jikoku = $"10:{i:00}" '時刻
> Uridat(datS).Suu1 = i + 100 '数量1
> Uridat(datS).Suu2 = i + 20 '数量2
> Next
試しに、上をを下記にでもすると棒グラフも無い空白部分がさらに多くなります。
For i = 20 To 55 ' 14:20〜14:55
datS = datS + 1
'Uridat(datS).Jikoku = "14:" & Str(i) '時刻
Uridat(datS).Jikoku = $"14:{i:00}" '時刻
Uridat(datS).Suu1 = i + 100 '数量1
Uridat(datS).Suu2 = i + 20 '数量2
Next
Q2, チャートの右端と左端の空白(棒グラフの無い部分)は無くならないでしょうか?
|