|
▼IROC さん:
>現在、どのようなコードになっているのか掲載して頂けませんか?
かめかめの成長記録シートに、ボタンがあり、それを押すと、
FormInputが、でてきて、そのフォームのテキストボックスに、
甲羅長、全長、体重を入力して、Imputボタンを押したところのモジュールが、
以下になっています。よろしくお願いします。
Option Explicit
'ワークシート変数
Private Sub CmdImput_Click()
Set WS1 = Sheets("かめかめの成長記録")
Set WS2 = Sheets("Graph")
Dim R As Integer, C As Integer
If FormInput.TextKora = "" Then
MsgBox "甲羅長が未記入です。"
FormInput.TextKora.SetFocus
End If
If FormInput.TextZencyo = "" Then
MsgBox "全長が未記入です。"
FormInput.TextZencyo.SetFocus
End If
If FormInput.TextWeight = "" Then
MsgBox "体重が未記入です。"
FormInput.TextWeight.SetFocus
End If
If FormInput.TextComment = "" Then
MsgBox "コメントが未記入です。"
FormInput.TextWeight.SetFocus
End If
For R = 5 To 38 Step 6
For C = 2 To 6
If WS1.Cells(R, C) = "" Then
' シートの保護解除
ActiveSheet.Unprotect
WS1.Cells(R, C) = FormInput.TextKora
WS1.Cells(R + 1, C) = FormInput.TextZencyo
WS1.Cells(R + 2, C) = FormInput.TextWeight
WS1.Cells(R + 3, C) = FormInput.TextComment
Unload FormInput
'シートの保護
Cells.Select
Range("A22").Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
'↓↓月の行↓↓
If R = 10 Or R = 16 Or R = 22 Or R = 28 Then
R = R + 1
End If
End If
Next
Next
End Sub
|
|