質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

textbox

HTMLの<input type="text">で生成されるtextboxに関するタグです。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

解決済

1回答

610閲覧

初心者ですいません。フォームからの受け渡しについて

hanju8810tt

総合スコア16

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

textbox

HTMLの<input type="text">で生成されるtextboxに関するタグです。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

0グッド

0クリップ

投稿2019/09/28 08:54

Private Sub CommandButton1_Click()
Backup_start
End Sub

Sub Backup_start()
Worksheets("Main").Select
Worksheets("Main").Activate
Dim myRange1 As Range
Dim mymmdd As String
Set mymmdd = UserForm1.TextBox1.Value
For Each myRange1 In Range("B1:B30000")

If myRange1.Value Like mmdd And myRange1.Offset(0, 1).Value Like "symatomfs21" And myRange1.Offset(0, 6).Value Like "30233" Then Debug.Print Right(myRange1.Value, 11) End If

Next

End Sub

↑を実行するとSet mymmdd = UserForm1.TextBox1.Valueの部分で必ず
”コンパイルエラー オブジェクトが必要です。”と表示されます。

解決策を教えてください!

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

meg_

2019/09/28 09:06

コードは「コードの挿入」で記入してください。
m.ts10806

2019/09/28 20:20

>初心者ですいません。 こういった但し書きを避けるために「初心者アイコン」があります。 質問は調整できますので、適宜ご対応ください
guest

回答1

0

ベストアンサー

下記コードで良いと思います。

vba

1mymmdd = UserForm1.TextBox1.Value

上記よりもBackup_start()に引数として、TextBox1.Valueを渡した方がより良いと思います。

投稿2019/09/28 09:13

meg_

総合スコア10577

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

hanju8810tt

2019/09/28 20:38

ありがとうございました。解決できました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問