ここから本文です

vba 真似作成したが、エクセルに反映できなかった。 コードは次の通りに書いたが...

アバター

ID非公開さん

2018/12/1208:56:08

vba 真似作成したが、エクセルに反映できなかった。
コードは次の通りに書いたが、どこが間違いか。教えて頂けませんか。

Option Explicit
Private ニュウシュツコ As String
Private lastRow As Long

Private Sub 保存ボダン_Click()
If 年テキストボックス.Text = "" Then
MsgBox "年を入力してください。"
Exit Sub
End If

If 月テキストボックス.Text = "" Then
MsgBox "月を入力してください。"
Exit Sub
End If

If 日テキストボックス.Text = "" Then
MsgBox "日を入力してください。"
Exit Sub
End If

If 職場コードNoテキストボックス.Text = "" Then
MsgBox "職場コードNoを入力してください。"
Exit Sub
End If

If 棚番テキストボックス.Text = "" Then
MsgBox "棚番を入力してください。"
Exit Sub
End If

If 列テキストボックス.Text = "" Then
MsgBox "列を入力してください。"
Exit Sub
End If

If 行テキストボックス.Text = "" Then
MsgBox "行を入力してください。"
Exit Sub
End If

If 数量テキストボックス.Text = "" Then
MsgBox "数量を入力してください。"
Exit Sub
End If

If 品番テキストボックス.Text = "" Then
MsgBox "品番を入力してください。"
Exit Sub
End If

If ニュウシュツコ = "" Then
MsgBox "入庫出庫を選択してください。"
Exit Sub
End If

With Worksheets("入出庫詳細")
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lastRow, 1).Value = 年テキストボックス.Text
.Cells(lastRow, 2).Value = 月テキストボックス.Text
.Cells(lastRow, 3).Value = 日テキストボックス.Text
.Cells(lastRow, 4).Value = 職場コードNoテキストボックス.Text
.Cells(lastRow, 5).Value = 棚番テキストボックス.Text
.Cells(lastRow, 6).Value = 列テキストボックス.Text
.Cells(lastRow, 7).Value = 行テキストボックス.Text
.Cells(lastRow, 8).Value = 数量テキストボックス.Text
.Cells(lastRow, 9).Value = 品番テキストボックス.Text
.Cells(lastRow, 10).Value = ニュウシュツコ
End With

年テキストボックス.Text = ""
月テキストボックス.Text = ""
日テキストボックス.Text = ""
職場コードNoテキストボックス.Text = ""
棚番テキストボックス.Text = ""
列テキストボックス.Text = ""
行テキストボックス.Text = ""
数量テキストボックス.Text = ""
品番テキストボックス.Text = ""
入庫オプションボタン.Value = False
出庫オプションボタン.Value = False
End Sub

Private Sub 入庫オプションボタン_Change()
If 入庫オプションボタン.Value = True Then
ニュウシュツコ = "入庫"
End If
End Sub

Private Sub 出庫オプションボタン_Change()
If 出庫オプションボタン.Value = True Then
ニュウシュツコ = "出庫"
End If
End Sub

ニュウシュツコ,Exit Sub,LastRow,End If,Private Sub,UserForm1.Show,ユーザーフォーム

閲覧数:
43
回答数:
1

違反報告

ベストアンサーに選ばれた回答

fro********さん

2018/12/1209:44:03

コードはどこに書きましたか?
標準モジュールではなくユーザーフォームのモジュールに書かないと動きません。

ユーザーフォームのモジュールに書き込んだら、標準モジュールにユーザーフォームを表示するコードを書けばいいです。
例えばユーザーフォームの名前はUserForm1として

Sub Test()
UserForm1.Show
End Sub

でフォームを表示させます。

また、それぞれのコントロールに名前をつけているようですが、コントロールの方の名前はその通りに変更されていますか?
VBEでフォームの各コントロールをクリックして、左側のウィンドウのオブジェクト名を確認してみてください。

  • アバター

    質問者

    ID非公開さん

    2018/12/1211:56:19

    ありがとうございます!
    再度、確認します。

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この回答は投票によってベストアンサーに選ばれました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる