|
C = 3
For R = 3 To 49
'DATA書き込み
If Cells(R, 2) <> "" And _
Cells(R, 3) = "" And Cells(R, 4) = "" And Cells(R, 5) = "" And Cells(R, 6) = "" And _
Left(Cells(R, 2), 4) <> "2004" Then
'シートの保護を解除
Cells.Select
ActiveSheet.Unprotect
Cells(R, C) = FormInput.TextKora
Cells(R, C + 1) = FormInput.TextZencyo
Selection.NumberFormatLocal = "0"
Cells(R, C + 2) = FormInput.TextWeight
Selection.NumberFormatLocal = "0"
Cells(R, C + 3) = FormInput.TextComment
Selection.NumberFormatLocal = "0"
'シートの保護
Cells.Select
' Range("A1").Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
Exit For
C = 3
End If
Next
としていますが、かきこまれた数値をグラフとしては0としか認識しません。
セルをじか入力すれば(数値を) たとえば、20を入力すると20の位置に折れ線としてポイントがうたれます。
|
|