![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.1ベストアンサー
- 回答日時:
こんにちは!
画像を拝見して、こちらの憶測ですが、
コマンドボタン1(出勤時間)のボタンをクリックすると
A1セルにその時点の日時が入るようになっているのですね。
画像のC1セルの「33」が何を意味しているのか分からないのですが、
それは無視してやってみました。
コマンドボタン2(退勤/勤務時間)をクリックすれば画像の配置のB列に
労働時間(15分単位で切り捨て)×日給(C5セル) を表示するようにしてみました。
↓のコードをコマンドボタン2に登録してみてください。
Private Sub CommandButton2_Click()
Dim lastRow As Long, c As Range, myRng As Range
Dim myTm As Long, myMt As Long
myTm = Hour(Now() - Range("A1"))
myMt = WorksheetFunction.Floor(Minute(Now() - Range("A1")), 15)
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
If lastRow > 10 Then
Set myRng = Range(Cells(11, "A"), Cells(lastRow, "A"))
Set c = myRng.Find(what:=Format(Date, "yyyy/m/d"), LookIn:=xlValues, lookat:=xlWhole) '//★//
If Not c Is Nothing Then
c.Offset(, 1) = (myTm + myMt / 60) * Range("C5")
Else
MsgBox "今日の日付がありません。"
End If
End If
End Sub
※ コード内の「★」の行の表示形式は
お手元のA列日付列の表示形式に合わせてください。
※ 「CommandButton2」は実際のオブジェクト名にしてください。
休憩時間などの兼ね合いがあるのが普通だとおもいますが、
それは考慮していません。m(_ _)m
この回答へのお礼
お礼日時:2018/07/09 18:17
回答ありがとうございます。
無知で申し訳ないのですが、★の部分に入力する表示形式の意味が
分からず、毎回「今日の日付がありません」と出てしまいます。
具体的に教えていただけたら嬉しいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 所得・給料・お小遣い 週休3日制のシフト制の日割り計算を教えてください。 給与 22万(総支給) 週休3日制 10時間勤務 1 2022/05/25 07:54
- その他(お金・保険・資産運用) 失業給付額ですが、最後の月の給与は 3 2023/02/21 16:53
- 労働相談 有給の計算について 3 2023/05/20 13:11
- 労働相談 有給休暇使用時の賃金の計算方法について 5 2022/04/04 00:02
- 求人情報・採用情報 1日の実働7.5h✕週6日の求人についてお尋ねします。 週の労働時間は40hまでなので、5hこえた分 2 2022/10/24 15:48
- その他(プログラミング・Web制作) 【フローチャートの書き方について】 勤務年数と勤務場所を入力し,給与額を表示するフローチャートを作成 2 2022/10/04 12:11
- その他(法律) 有給金額の計算について 5 2023/06/23 17:44
- その他(開発・運用・管理) 時間給の計算方法をお教えください 2 2022/06/01 12:21
- 人事・法務・広報 4月からの残業60時間以上の割増の計算式 2 2023/03/14 14:44
- 所得・給料・お小遣い 1日8時間、月21日稼働、最低時給1071円で18万!時給2500円だと42万!!!(^_^;) 1 2023/02/09 19:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
エクセルVBAでOptionButtonのオ...
-
押したボタンの位置取得(共通の...
-
Accessのコマンドボタンの立体...
-
ShowAllDataのエラーを回避したい
-
EXCELでNo.を変えて印刷したい
-
スクロールしてもボタンを常に...
-
Accessユーザーフォームでコマ...
-
エクセルVBA
-
チェックボックスで「いずれか1...
-
ACCESSのコマンドボタン...
-
[ExcelVBA] コマンドボタンを押...
-
エクセル 給与計算表
-
excelコマンドボタンと内容を別...
-
PPTのコマンドボタンがクリック...
-
コマンドボタンがあるかどうか...
-
Auto CAD の F1(ヘルプ)を機...
-
コマンドボタンで「終了ボタン...
-
EXCELのシート上に埋め込...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
押したボタンの位置取得(共通の...
-
スクロールしてもボタンを常に...
-
エクセルVBAでOptionButtonのオ...
-
ShowAllDataのエラーを回避したい
-
PPTのコマンドボタンがクリック...
-
エクセルVBA
-
Excel VBA --- コマンドボタ...
-
エクセルVBA シート上にあるコ...
-
Accessのコマンドボタンの立体...
-
コマンドボタンで「終了ボタン...
-
エクセルのコマンドボタンの位...
-
コマンドボタンがあるかどうか...
-
チェックボックスで「いずれか1...
-
EXCELでNo.を変えて印刷したい
-
Wordでドラッグした文字列を括...
-
MS_AccessからPDFファイルを開...
-
Accessユーザーフォームでコマ...
-
[ExcelVBA] コマンドボタンを押...
おすすめ情報