Excel VBA質問箱 IV

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

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


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

25245 / 76732

←次へ　｜　前へ→


	【56830】Re:時間表示についてお願いします。

kanabun - 08/7/7(月) 18:16 -


	引用なし

	パスワード

▼VBA勉強中ですさんまたは ▼マクロさん：
> TextBox76: 累計時間 (TextBox77 + TextBox78 + TextBox82)
> TextBox50 -49 = TextBox78(小計時間)
> TextBox54 -53 = TextBox77(小計時間)
> TextBox57 -56 = TextBox82(小計時間)
>
> TextBox70、71、72(DATE：日付)
> TextBox52､55､58 (コメント)
> になります｡
> CommandButton36_Click()はワークシート(DATA)に飛ばす

'----------- 以下のようにまとめてみました

・転記は日付と時間とコメントの3種類ある。
・これらは有効なデータかどうかのチェックの仕方を変えなければいけない。
・同じパターンで列番号がちがうものは、共通プロシージャを作っておいて
　そこを呼び出すようにする

Private Sub CommandButton36_Click()
　　Dim lRow As Long
　　Dim ss As String
　　Dim Number As Long
　　Number = TextBox3.Text
　　
　　Dateの転記 TextBox70, "AL" '<-- 正しい転記先「列」名に修正してください
　　Dateの転記 TextBox71, "AP"
　　Dateの転記 TextBox72, "BA" '<-- 正しい転記先「列」名に修正してください
　　
　　Timeの転記 TextBox49, "Q"　　't1 正しい転記先「列」名に修正してください
　　Timeの転記 TextBox50, "R"　　't2 正しい転記先「列」名に修正してください
　　Timeの転記 TextBox53, "S"　　't3
　　Timeの転記 TextBox54, "T"　　't4 正しい転記先「列」名に修正してください
　　Timeの転記 TextBox56, "U"　　't5 正しい転記先「列」名に修正してください
　　Timeの転記 TextBox57, "V"　　't6 正しい転記先「列」名に修正してください
　　
　　Commentの転記 TextBox52, "" '<-- 転記先列名を記入してください
　　Commentの転記 TextBox55, "" '<-- 転記先列名を記入
　　Commentの転記 TextBox58, "" '<-- 転記先列名を記入

End Sub

Private Sub Dateの転記(ByVal Tbox As MSForms.TextBox, 列 As String)
　Dim ss As String
　ss = Tbox.Text
　If Len(ss) = 0 Then Exit Sub
　If IsDate(ss) Then　　　　　　'有効な日付データか？
　　　Worksheets("DATA").Cells(Row.Count, 列).End(xlUp).Offset(1).Value = ss
　End If
End Sub

Private Sub Timeの転記(ByVal Tbox As MSForms.TextBox, 列 As String)
　Dim ss As String
　ss = Tbox.Text
　If Len(ss) = 0 Then Exit Sub
　If IsDate(ss) Then
　　　If TimeValue(ss) > 0 Then '時間データとして有効な場合、転記
　　　　　Worksheets("DATA").Cells(Row.Count, 列).End(xlUp).Offset(1).Value = ss
　　　End If
　End If
End Sub
　
Private Sub Commentの転記(ByVal Tbox As MSForms.TextBox, 列 As String)
　Dim ss As String
　ss = Tbox.Text
　If Len(ss) = 0 Then Exit Sub
　Worksheets("DATA").Cells(Row.Count, 列).End(xlUp).Offset(1).Value = ss
End Sub

0 hits

▼

【56630】時間表示についてお願いします。 マクロ 08/6/25(水) 23:40