着完入力マクロ投稿 | MANICA Community Site

このトピックには2件の返信、1人の参加者があり、最後にhnakano8810により9年、 10ヶ月前に更新されました。

3件の投稿を表示中 - 1 - 3件目 (全3件中)

投稿者

投稿

2015年1月26日 6:06 PM #296

参加者

マクロ集にあった勤怠管理をもとに前から欲しかった個人用の着完入力システムを作ってみました。


&#039; 題名の行番号
Public Const ROW_NUMBER_TITLE = 1
&#039; 着手完了の開始列番号
Public Const COLUMN_NUMBER_RESULT_START = 3
 
Sub ProcessManager(TagID As String, TimeStamp As String)
    Dim column As Integer
    
    column = COLUMN_NUMBER_RESULT_START
    
    While (Cells(ROW_NUMBER_TITLE, column).Value &lt;&gt; &quot;&quot;) And (Cells(ROW_NUMBER_TITLE, column + 2).Value &lt;&gt; &quot;&quot;)
        column = column + 3
    Wend
        
    Cells(ROW_NUMBER_TITLE, column).Value = &quot;着手時刻&quot;
    Cells(ROW_NUMBER_TITLE, column + 1).Value = &quot;完了時刻&quot;
    
    If Cells(ActiveCell.row, column).Value &lt;&gt; &quot;&quot; Then
        Cells(ActiveCell.row, column + 1).Value = Time
        Cells(ActiveCell.row, column + 2).FormulaR1C1 = &quot;=RC[-1]-RC[-2]&quot;
        Cells(ROW_NUMBER_TITLE, column + 2).Value = &quot;経過時間&quot;
    Else
        Cells(ActiveCell.row, column).Value = Time
    End If
End Sub

' 題名の行番号

Public Const ROW_NUMBER_TITLE = 1

' 着手完了の開始列番号

Public Const COLUMN_NUMBER_RESULT_START = 3

Sub ProcessManager(TagID As String, TimeStamp As String)

Dim column As Integer

column = COLUMN_NUMBER_RESULT_START

While (Cells(ROW_NUMBER_TITLE, column).Value <> "") And (Cells(ROW_NUMBER_TITLE, column + 2).Value <> "")

column = column + 3

Wend

Cells(ROW_NUMBER_TITLE, column).Value = "着手時刻"

Cells(ROW_NUMBER_TITLE, column + 1).Value = "完了時刻"

If Cells(ActiveCell.row, column).Value <> "" Then

Cells(ActiveCell.row, column + 1).Value = Time

Cells(ActiveCell.row, column + 2).FormulaR1C1 = "=RC[-1]-RC[-2]"

Cells(ROW_NUMBER_TITLE, column + 2).Value = "経過時間"

Else

Cells(ActiveCell.row, column).Value = Time

End If

End Sub

シートを日付ごとにシートを自動で生成したり、完了時のタグの読取を忘れるとひどいことに
なりますが、その辺はおいおい。

＃キャプチャも撮ってみましたが、ローカルの画像は投稿できない？？

2015年1月26日 6:09 PM #297

hnakano8810

参加者

codeで囲んでみましたが、うまく投稿できてませんね。なぜでしょう。
よく分かりません。

2015年1月27日 9:45 AM #298

hnakano8810

参加者

作業着手時にその作業用に用意したタグを読み取らせます。着手時刻が記録されます。
キャプチャ1
作業完了時に同じタグを読み取らせれば、完了時刻が記録されます。経過時間も計算します。たぶん
キャプチャ2
他の作業も同様
キャプチャ3
キャプチャ4
設定画面の「セル発見時にマクロを実行する」に2個上の投稿のマクロを指定すれば動きます。

＃画像は一旦投稿すれば掲載できるんですね

投稿者

投稿

3件の投稿を表示中 - 1 - 3件目 (全3件中)

このトピックに返信するにはログインが必要です。