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

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

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

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

Q&A

解決済

1回答

458閲覧

VBAのユーザーフォームを活用して複数データを一括入力

T_1

総合スコア17

VBA

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

0グッド

0クリップ

投稿2022/06/24 08:18

編集2022/06/27 14:15

あらかじめExcelのA列には日付が入っており
B列にはデータ入力用の空セルになっております。
C列には予測数値入力用の空セルになっています。
データ画面
|日付|現在数値|予測値|
1 |2022年6月24日|:--:|--:|
2 |2022年XX月XX日| | |

ユーザーフォームで
|日付|数値|
1 |2022/06/24(任意入力)|1任意入力|
2 |B=A + "m"+1|2任意入力|
3 |C=B+"m"+1|3任意入力| (データ入力ボタン)

ユーザーフォームで任意入力した
日付とデータ画面の日付がマッチした時
ユーザーフォームの数値が データ画面のマッチした日付の数値セルに入力されるようにしたいです。
ユーザーフォームの1行目の数値はデータ画面の現在数値に
2行目以降はデータ画面の予測値に入力するやり方やコードなどご教授願います。

2022/06/27 - 追記
早速のご返答ありがとうございます。
少しイメージしにくい点もあったかと思います。
以下更新いたしましたので再度ご協力をお願いいたします。

イメージ説明

制作シートのイメージを張り付けいたしました。
日付列とA列 B列があり

ユーザーフォーム
イメージ説明
ラベル1の日付に2022/06/27と入力すると
ラベル2以降のボックスに 2022/07/27…ラベル10 2023/4/27と自動入力
eが数値入力ボックスです。

ラベル1の日付とマッチした数値は シートの列Aへ入力
ラベル2以降の日付とマッチしたものは列Bへ入力

データ入力は一括入力ボタンが押された時に作動させたいです。

宜しくお願い致します。

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

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

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

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

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

guest

回答1

0

ベストアンサー

質問への追記を受け、修正しました。

Private Sub TextBox1_AfterUpdate() Dim d d = TextBox1.Text If Not IsDate(d) Then Exit Sub Dim i For i = 0 To 9 Me.Controls(i).Text = DateAdd("m", i, d) Next End Sub Private Sub CommandButton1_Click() Dim i sheetupdate Me.Controls(0).Text, Me.Controls(10).Text, 1 For i = 1 To 9 sheetupdate Me.Controls(i).Text, Me.Controls(i + 10).Text, 2 Next End Sub Private Sub sheetupdate(d, e, c) With ActiveSheet Dim rng As Range Set rng = .Columns(1).Find(DateValue(d)) If rng Is Nothing Then Exit Sub rng.Offset(, c).Value = e End With End Sub

投稿2022/06/24 09:43

編集2022/06/27 05:15
jinoji

総合スコア4585

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

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.50%

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

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

質問する

関連した質問