|
初心者でよくわかっていないものですが、誰か宜しかったら教えてください。
下記プログラムの「If kigou <= 12 Or kigou >= 34 Then
ws2.Range("収入支出台帳").Cells(insertRow, 4) = TextBox5.Text」の
部分ですが、「kigou」の値に関係なく、「ws2.Range("収入支出台帳").Cells(insertRow, 4) = TextBox5.Text」が実行されてしまいます。基本的な事がわかっていないかもしれませんが、是非、教えて下さい。お願いします。
Dim gousei As Long
Dim kigou As Long
Private Sub TextBox12_Click()
'------------------------------------
'登録ボタンによる処理
'-----------------------------------
Set ws1 = Worksheets("分類")
Set ws2 = Worksheets("台帳")
'シ−トの保護を解除する
ws2.Unprotect
'最下行に1行挿入する
insertRow = ws2.Range("収入支出台帳").Rows.Count
ws2.Range("収入支出台帳").Rows(insertRow).Insert Shift:=xlDown
'デ−タをセルに入力する
'年月日
kigou = ws2.Range("収入支出台帳").Cells(insertRow, 2)
gousei = "平成" & TextBox1.Text & "年" & TextBox2.Text & "月" & TextBox3.Text & "日"
ws2.Range("収入支出台帳").Cells(insertRow, 1) = gousei
'分類
ws2.Range("収入支出台帳").Cells(insertRow, 7) = TextBox4.Text
'記号分類
For i = 1 To 100
If ws2.Range("収入支出台帳").Cells(insertRow, 7) = ws1.Cells(i + 14, 4).Value Then
ws2.Range("収入支出台帳").Cells(insertRow, 2) = ws1.Cells(i + 14, 4).Previous.Value
End If
Next i
'収入先、支出先
If kigou <= 12 Or kigou >= 34 Then
ws2.Range("収入支出台帳").Cells(insertRow, 4) = TextBox5.Text
ElseIf kigou >= 13 And kigou <= 33 Then
ws2.Range("収入支出台帳").Cells(insertRow, 5) = TextBox5.Text
Else: ws2.Range("収入支出台帳").Cells(insertRow, 4) = ""
ws2.Range("収入支出台帳").Cells(insertRow, 5) = ""
End If
|
|