Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26982 / 76738

←次へ　｜　前へ→


	【55082】IF文について教えて下さい

マッキ－ - 08/4/14(月) 20:38 -


	引用なし

	パスワード

初心者でよくわかっていないものですが、誰か宜しかったら教えてください。
下記プログラムの「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
　 '最下行に１行挿入する
　
　 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

0 hits

▼

【55082】IF文について教えて下さい マッキ－ 08/4/14(月) 20:38

≪