Results of 1 - 1 of about 470 for EDATE (0.000 sec.)
- [[20120622154538]]
- #score: 9974
- @digest: d7746558a427591d7798b04a5cbe8618
- @id: 59411
- @mdate: 2012-06-22T08:46:56Z
- @size: 2126
- @type: text/plain
- #keywords: findaddress (55646), 変版 (7748), 刻() (6812), 似っ (6198), sdate (5861), 土16 (5200), 水13 (4927), 火12 (4907), 水6 (4306), 金15 (4226), 勤勤 (4162), 木14 (4162), 土9 (4150), 火5 (3731), 改変 (3676), 金8 (2901), 木7 (2763), 打刻 (2538), 真似 (2274), 日17 (1878), mydate (1782), 列空 (1547), edate (1540), 勤退 (1280), 月18 (1225), isempty (1144), ムカ (1135), myrow (1112), 番簡 (960), 間2 (935), unprotect (810), 日10 (763)
- 『タイムカードマクロの改変版について』（真似っこ）
過去ログの中で（川野鮎太郎）さんが教えてくれた下記のマクロを見つけたのですが、 こちらを是非活用したいのですが、私の場合、Cの出勤が必要ありません。 何度か試してみたんですが、どこをどう削除して改変すれば良いのでしょうか? すいませんが教えて下さい。よろしくお願いします。 （因みに適当なボタンを作って、それをクリックすれば現在の時刻が反映するマクロです） ******************************** 以下のような表があるとして、マクロでならこんな感じでどうでしょうか。 A B C D E 1 日付 曜日 出勤 退勤 勤務時間 2 11/14 日 3 11/15 月 4 11/16 火 5 11/17 水 6 11/18 木 7 11/19 金 8 11/20 土 9 11/21 日 10 11/22 月 11 11/23 火 12 11/24 水 13 11/25 木 14 11/26 金 15 11/27 土 16 11/28 日 17 11/29 月 18 11/30 火 Option Explicit Sub 打刻() Dim SDate As Variant, EDate As Variant Dim MyDate As Date Dim MyRow As Long Dim c As Range Dim FindAddress As String MyDate = Date MyRow = Range("A65536").End(xlUp).Row With Worksheets("Sheet1").Range("A2:A" & MyRow) Set c = .Find(MyDate, LookIn:=xlFormulas) If Not c Is Nothing Then FindAddress = c.Address SDate = Range(FindAddress).Offset(, 2).Value EDate = Range(FindAddress).Offset(, 3).Value Else MsgBox ("該当する日がありません") Exit Sub End If End With If IsEmpty(SDate) = False And _ IsEmpty(EDate) = False Then Exit Sub ActiveSheet.Unprotect If Range(FindAddress).Offset(, 2).Value = "" Then Range(FindAddress).Offset(, 2).Value = Format(Now, "hh:mm") Else Range(FindAddress).Offset(, 3).Value = Format(Now, "hh:mm") End If ActiveSheet.Protect End Sub *************************** ---- 一番簡単なのは、C列に適当なデータを入力しておいて、C列を非表示にしておくこと。 If Range(FindAddress).Offset(, 2).Value = "" Then で、C列空白かどうかだけ チェックしていますから。 マクロは改変の必要はありません。 （みやほりん） ---- なるほど!! ありがとうございました!! （真似っこ）... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201206/20120622154538.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97050 documents and 608253 words.
訪問者：