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
1 hits

【56630】時間表示についてお願いします。 マクロ 08/6/25(水) 23:40 質問
【56631】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 0:14 発言
【56632】Re:時間表示についてお願いします。 マクロ 08/6/26(木) 0:25 お礼
【56633】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 8:31 発言
【56635】Re:時間表示についてお願いします。 マクロ 08/6/26(木) 13:51 質問
【56638】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 14:55 発言
【56640】Re:時間表示についてお願いします。 マクロ 08/6/26(木) 16:04 質問
【56642】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 16:55 発言
【56644】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 17:26 発言
【56646】Re:時間表示についてお願いします。 マクロ 08/6/26(木) 18:44 質問
【56647】Re:時間表示についてお願いします。 kanabun 08/6/26(木) 19:07 発言
【56692】Re:時間表示についてお願いします。 マクロ 08/6/30(月) 18:51 お礼
【56696】Re:時間表示についてお願いします。 kanabun 08/6/30(月) 23:08 発言
【56724】Re:時間表示についてお願いします。 マクロ 08/7/2(水) 10:10 質問
【56729】Re:時間表示についてお願いします。 kanabun 08/7/2(水) 11:26 発言
【56733】Re:時間表示についてお願いします。 kanabun 08/7/2(水) 13:54 発言
【56734】Re:時間表示についてお願いします。 VBAでメール 08/7/2(水) 13:57 質問
【56736】Re:時間表示についてお願いします。 kanabun 08/7/2(水) 15:08 回答
【56775】Re:時間表示についてお願いします。 VBAでメール 08/7/4(金) 10:16 質問
【56776】Re:時間表示についてお願いします。 kanabun 08/7/4(金) 10:45 発言
【56777】Re:時間表示についてお願いします。 kanabun 08/7/4(金) 10:50 発言
【56781】Re:時間表示についてお願いします。 VBAでメール 08/7/4(金) 14:32 質問
【56782】Re:時間表示についてお願いします。 kanabun 08/7/4(金) 14:46 発言
【56784】Re:時間表示についてお願いします。 VBAでメール 08/7/4(金) 15:16 質問
【56787】Re:時間表示についてお願いします。 放置新聞 08/7/4(金) 15:40 発言
【56788】Re:時間表示についてお願いします。 kanabun 08/7/4(金) 15:48 発言
【56810】Re:時間表示についてお願いします。 マクロ 08/7/6(日) 20:22 お礼
【56826】Re:時間表示についてお願いします。 VBA勉強中です 08/7/7(月) 17:19 質問
【56830】Re:時間表示についてお願いします。 kanabun 08/7/7(月) 18:16 発言
【56831】Re:時間表示についてお願いします。 VBA勉強中です 08/7/7(月) 18:47 お礼
【56832】Re:時間表示についてお願いします。 kanabun 08/7/7(月) 18:52 発言
【56898】Re:時間表示についてお願いします。 マクロ 08/7/10(木) 10:15 質問
【56912】Re:時間表示についてお願いします。 kanabun 08/7/10(木) 14:40 発言
【56922】Re:時間表示についてお願いします。 マクロ 08/7/10(木) 19:34 お礼

25245 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free