セルの内容をテキストボックスへ反映

質問

ユーザーフォームを用いて勤怠打刻のシステムを作っています。

ユーザーフォームの構成は下記の通りです。
TextBox1に時間(hour)を入力
TextBox2に分(minits)を入力
→TextBox3に入力した時間分を表示させ、G列H列に反映
TextBox4に打刻する年月日をB列から拾う

シート
　　A 　 B ・・・ G 　 H
1　 　　 2019/10/1　 　08：00　19：00　
2　　 　 2019/10/2 08：00　 17：00
3 　　 　2019/10/3 08：00 17：00

ユーザーフォームはG列とH列に入力し、
G列に入力するとH列に移動、
H列に入力すると一つ下のG列へ移動と
コマンドボタンを押すと自動でジグザグに動くようにしています。

TextBox4にG列・H列に対応するB列の値を表示させたいと思っています。
例えば、G１を選択しているとTextBox4に2019/10/1を表示、H2を選択していると2019/10/2を表示などです。

年月日は表示されるものの、セルの選択が変わっても
TextBox4の値が変わらない状況です。

ご教授いただければ幸いです。

回答No.3

kkkkkm · ベストアンサー

> 可能でしたらTextBox1にフォーカス移動したときに日付変更としたいです。

ユーザーフォームに
以下の感じでいかかがですか。
G1:H10の範囲は実際の範囲にしてください。

Private Sub TextBox1_Enter()
If Not Intersect(Selection, Range("G1:H10")) Is Nothing Then
Me.TextBox4 = Cells(Selection.Row, "B").Value
End If
End Sub

お礼

早速のお返事ありがとうございます。
無事解決いたしました。
感謝致します

回答No.2

nishi6

B列の入力がどのようになっているのか分からないのと、G、H列への出力タイミングがよく分からないので、ボタン１つで処理し、B列の入力を確認しています。
フォーム立ち上げ時に日付を表示し、TextBox4の表示は「yyyy/m/d」にしています。

当方、win10、Excel2010です。

ユーザーフォームのコードウインドウの例です。ご参考に。

Dim wRow As Long　　　　　'// 出力行
Dim wColumn As Integer　　'// 出力列(G列)

Private Sub CommandButton1_Click()
　Cells(wRow, wColumn) = TextBox3.Text
　wColumn = wColumn + 1
　　If wColumn = 9 Then
　　　wRow = wRow + 1
　　　wColumn = 7
　　End If

　If Cells(wRow, 2).Value <> "" Then
　　TextBox4.Text = Format(Cells(wRow, 2).Value, "yyyy/m/d")
　Else
　　MsgBox "出力行に日付が入力されていません"
　End If
End Sub

Private Sub UserForm_Activate()
　If Cells(wRow, 2).Value = "" Then
　　MsgBox "選択行に日付が入力されていません"
　　Unload Me
　End If
End Sub

Private Sub UserForm_Initialize()
　wRow = ActiveCell.Row
　wColumn = 7
　TextBox4.Text = Format(Cells(wRow, 2).Value, "yyyy/m/d")
End Sub

補足

B列は既に入力してあり、カレンダーのようになっています（表示形式は20○○年〇月〇日）。

ユーザーフォームは常に開いた状態で
G1を選択しコマンドボタン１をクリックするとG1へ入力されます。
コマンドボタンを押したタイミングで次のセル（この場合H1）へ移動します。

ユーザーフォームを開いた状態で次のセルへ移動となります。

回答No.1

kkkkkm

選択が変更されたらかボタンを押したらなのかは分かりませんがそこに
Me(もしくはフォーム名).TextBox4 = Cells(Selection.Row, "B").Value
でいかがですか。

補足

ご回答ありがとうございます。

現段階でシートに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Unprotect

Dim f As Long

f = Selection.row

Worksheets(3).Range("AF15") = Worksheets(3).Cells(f, 2).Value

ActiveSheet.Protect

End Sub
-----------------------------------------------------------------------------------------
If Not Intersect(Target, Range("AF15")) Is Nothing Then

UserForm2.TextBox4 = Worksheets(3).Range("AF15").Value

End If

ユーザーフォームに
Me.TextBox4 = Format(Range("AF15"), "Long Date")

を記入しています。

セルの選択が変更されたら日付を変更したいのですが、
可能でしたらTextBox1にフォーカス移動したときに日付変更としたいです。