{"id":402,"date":"2020-01-19T16:56:53","date_gmt":"2020-01-19T07:56:53","guid":{"rendered":"https:\/\/have-stone.iobb.net\/wordpress\/?p=402"},"modified":"2024-03-29T16:36:17","modified_gmt":"2024-03-29T07:36:17","slug":"excel%e7%89%88%e3%82%bf%e3%82%a4%e3%83%9e%e3%83%bc","status":"publish","type":"post","link":"https:\/\/have-stone.iobb.net\/wordpress\/?p=402","title":{"rendered":"Excel\u7248\u30bf\u30a4\u30de\u30fc"},"content":{"rendered":"\n

Excel\u7248\u306e\u30bf\u30a4\u30de\u30fc\u3092\u4f5c\u3063\u3066\u307b\u3057\u3044\u3068\u3046\u8981\u671b\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n\n\n\n

\u9023\u8f09\u9014\u4e2d\u3067\u3059\u304c\u5148\u306b\u516c\u958b\u3057\u307e\u3059\u3002
Access\u7248\u3068\u540c\u69d8\u306e\u6a5f\u80fd\u3092\u6301\u305f\u305b\u307e\u3057\u305f\u3002<\/p>\n\n\n\n

\u5229\u7528\u3059\u308b\u95a2\u6570\u306fAccess\u7248\u3068\u540c\u3058\u3067\u3059\u3002
\u305f\u3060\u3057\u3001\u30bf\u30a4\u30de\u30fc\u30a4\u30d9\u30f3\u30c8\u306f\u4f7f\u3048\u306a\u3044\u306e\u3067
Timer()\u95a2\u6570\u3067\u7d4c\u904e\u6642\u9593\u3092\u5224\u5b9a\u3057\u307e\u3059\u3002
\u753b\u9762\u4f8b\u3068\u30b3\u30fc\u30c9\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n
Dim dt As Date\nDim stf As Integer  'stop\u7528\u30d5\u30e9\u30b0\n\nPrivate Sub CommandButton1_Click()\n stf = 0\n Call my_Procedure\n\nEnd Sub\n\nPrivate Sub CommandButton2_Click()\n'Reset\u30dc\u30bf\u30f3\u3067\u521d\u671f\u5316\n dt = TimeSerial(Range(\"A1\"), Range(\"B1\"), Range(\"C1\"))\n Me.TextBox1 = dt\n\nEnd Sub\n\nPrivate Sub CommandButton3_Click()\nstf = 1\nEnd Sub\n\nPrivate Sub Label2_Click()\n\nEnd Sub\n\nPrivate Sub UserForm_Initialize()\n'\u521d\u671f\u5316\n dt = TimeSerial(Range(\"A1\"), Range(\"B1\"), Range(\"C1\"))\n Me.TextBox1 = dt\n Me.Label2.Caption = dt\n\nEnd Sub\n\nPublic Sub my_Procedure()\n  Dim t_start As Double\n  Dim t_next As Double\n  Dim t_timer As Double\n\n  t_start = Timer()\n  t_next = t_start\n  \n  Do\n   If t_next - t_start > Range(\"A1\") * 3600 + Range(\"B1\") * 60 + Range(\"C1\") Then Exit Do\n   If stf = 1 Then Exit Do  'stop\u30dc\u30bf\u30f3\u304c\u62bc\u3055\u308c\u305f\u304b\u3069\u3046\u304b\n\n   t_timer = Timer() - t_next\n    If t_timer > 1 Then\n       t_next = Timer()\n       dt = DateAdd(\"s\", \"-1\", dt)\n       Me.TextBox1 = dt\n       Range(\"A4\") = dt\n   End If\n   DoEvents\n  Loop\n\nEnd Sub\n\n<\/pre>\n

\u00a0<\/p>","protected":false},"excerpt":{"rendered":"

Excel\u7248\u306e\u30bf\u30a4\u30de\u30fc\u3092\u4f5c\u3063\u3066\u307b\u3057\u3044\u3068\u3046\u8981\u671b\u304c\u3042\u308a\u307e\u3057\u305f\u3002 \u9023\u8f09\u9014\u4e2d\u3067\u3059\u304c\u5148\u306b\u516c\u958b\u3057\u307e\u3059\u3002Access\u7248\u3068\u540c\u69d8\u306e\u6a5f\u80fd\u3092\u6301… read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,16],"tags":[18,7,19],"_links":{"self":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/402"}],"collection":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=402"}],"version-history":[{"count":13,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/402\/revisions"}],"predecessor-version":[{"id":654,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/402\/revisions\/654"}],"wp:attachment":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=402"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=402"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=402"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}