{"id":252,"date":"2020-01-06T13:19:24","date_gmt":"2020-01-06T04:19:24","guid":{"rendered":"https:\/\/have-stone.iobb.net\/wordpress\/?p=252"},"modified":"2020-01-18T11:24:34","modified_gmt":"2020-01-18T02:24:34","slug":"%e6%88%90%e7%b8%be%e5%87%a6%e7%90%868","status":"publish","type":"post","link":"https:\/\/have-stone.iobb.net\/wordpress\/?p=252","title":{"rendered":"\u6210\u7e3e\u51e6\u74068"},"content":{"rendered":"\n<p>\u6700\u7d42\u7684\u306a\u30b3\u30fc\u30c9\u3092\u793a\u3059\u524d\u306b\u3001\u3082\u3046\u4e00\u5ea6\u6e96\u5099\u6bb5\u968e\u306e\u78ba\u8a8d\u3092\u3057\u3066\u304a\u304f\u3002\u4eca\u56de\u306f\u3001\u9023\u8f096\u3067\u79d1\u76ee\u540d\u56fa\u5b9a\u306e\u51e6\u7406\u3068\u3057\u3066\u63b2\u8f09\u3057\u305f\u30b3\u30fc\u30c9\u3092\u3069\u3093\u306a\u79d1\u76ee\u3067\u3042\u3063\u3066\u3082\u51e6\u7406\u3067\u304d\u308b\u3088\u3046\u4e00\u822c\u5316\u3059\u308b\u3002<\/p>\n\n\n\n<p><br> 1.\u96c6\u8a08\u5bfe\u8c61\u3068\u306a\u308b\u751f\u5f92\u96c6\u56e3\u3092\u62bd\u51fa\u3057\u305f\u30c6\u30fc\u30d6\u30eb\u3092\u4f5c\u6210\u3059\u308b\u3002<br>\u3000T_seito<br> 2.1\u306e\u751f\u5f92\u96c6\u56e3\u306b\u3064\u3044\u3066\u3001\u7279\u5b9a\u306e\u8a66\u9a13\u306b\u3064\u3044\u3066\u306e\u6210\u7e3e\u60c5\u5831\u3092\u62bd\u51fa\u3057\u305f\u30c6\u30fc\u30d6\u30eb\u3092\u4f5c\u6210\u3059\u308b\u3002<br>  T_seiseki<br> 3.2\u306e\u30c6\u30fc\u30d6\u30eb\u304b\u3089\u3001\u96c6\u8a08\u5bfe\u8c61\u306e\u79d1\u76ee\u3092\u62bd\u51fa(\u91cd\u8907\u30af\u30a8\u30ea)\u3057\u305f\u30c6\u30fc\u30d6\u30eb\u3092\u4f5c\u6210\u3059\u308b\u3002<br>  T_kamoku<br> \u3053\u306e3\u3064\u306e\u30c6\u30fc\u30d6\u30eb\u304c\u4f5c\u6210\u3067\u304d\u305f\u3089\u3001\u4eca\u56de\u7d39\u4ecb\u3059\u308bVBA\u306e\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308c\u3070\u3088\u3044\u3002<br> \u5f93\u3063\u3066\u30013\u3064\u306e\u30c6\u30fc\u30d6\u30eb\u3068\u30b3\u30fc\u30c9\u5b9f\u884c\u4e2d\u306b\u65b0\u898f\u4f5c\u6210\u3055\u308c\u308b\u30c6\u30fc\u30d6\u30eb(T_ichiran)\u3067\u5408\u8a084\u3064\u306e\u30c6\u30fc\u30d6\u30eb\u3092\u6271\u3046\u3053\u3068\u306b\u306a\u308b\u3002<\/p>\n\n\n\n<p>\u3082\u3061\u308d\u3093\u3001\u5b9f\u969b\u306e\u73fe\u5834\u3067\u306f\u3053\u308c\u3089\u3059\u3079\u3066\u3092\u81ea\u52d5\u5316\u3057\u3066\u3001\u4e00\u89a7\u8868\u5370\u5237\u307e\u3067\u884c\u3046\u3053\u3068\u306b\u306a\u308b\u3002<br> \u4f8b\u3048\u3070\u3001\u6b21\u306e\u3088\u3046\u306a\u30d5\u30a9\u30fc\u30e0\u304b\u3089\u6307\u5b9a\u3092\u3057\u3066\u30dc\u30bf\u30f3\u3092\u62bc\u3059\u3060\u3051\u3067\u51e6\u7406\u3055\u308c\u308b\u3088\u3046\u306b\u3059\u308b\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image size-large is-resized\"><img loading=\"lazy\" src=\"https:\/\/have-stone.iobb.net\/wordpress\/wp-content\/uploads\/2020\/01\/image-9.png\" alt=\"\" class=\"wp-image-121\" width=\"546\" height=\"313\" srcset=\"https:\/\/have-stone.iobb.net\/wordpress\/wp-content\/uploads\/2020\/01\/image-9.png 412w, https:\/\/have-stone.iobb.net\/wordpress\/wp-content\/uploads\/2020\/01\/image-9-300x172.png 300w\" sizes=\"(max-width: 546px) 100vw, 546px\" \/><figcaption>\u76f4\u63a5\u5165\u529b\u306f\u30df\u30b9\u306e\u3082\u3068\u3001\u5e74\u5ea6\u3092\u6307\u5b9a\u3057\u9069\u5207\u306a\u30af\u30e9\u30b9\u7bc4\u56f2\u306e\u6307\u5b9a\u3057\u304b\u3067\u304d\u306a\u3044\u3088\u3046\u306b\u3059\u3079\u304d\u3067\u3042\u308b\u3002<\/figcaption><\/figure>\n\n\n\n<p>\u6e96\u5099\u6bb5\u968e\u306e3\u3064\u306e\u30c6\u30fc\u30d6\u30eb(\u8aad\u307f\u53d6\u308a\u5c02\u7528)<br> T_seito<br> T_kamoku<br> T_seiseki<br> \u65b0\u898f\u4f5c\u6210\u3055\u308c\u308b\u30c6\u30fc\u30d6\u30eb<br> T_ichiran<br><br> \u305d\u308c\u3067\u306f\u3001\u4ee5\u4e0b\u306bVBA\u30b3\u30fc\u30c9\u3092\u793a\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Private Sub cmdLast_Click()\n\nDim cn As ADODB.Connection\n\n'---- 4\u3064\u306e\u30c6\u30fc\u30d6\u30eb\u3092\u4f7f\u7528\u3057\u307e\u3059 ----\nDim r1 As ADODB.Recordset\nDim r2 As ADODB.Recordset\nDim r3 As ADODB.Recordset\nDim r4 As ADODB.Recordset\n'-----------------------------------\n\nDim h_avg As Double      '\u5e73\u5747\u70b9\nDim i, j, k              '\u30ab\u30a6\u30f3\u30bf\u30fc\nDim st_SQL As String     'sql\u7528\u6587\u5b57\u5217\nDim all_k As String      '\u79d1\u76ee\u540d\u3092\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u306b\u3059\u308b\u305f\u3081\u306e\u6587\u5b57\u5217\u3001sql\u6587\u3067\u4f7f\u7528\nDim all_k_i As String    '\u79d1\u76ee\u540d\u3092\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u306b\u3059\u308b\u305f\u3081\u306e\u6587\u5b57\u5217\u3001sql\u6587\u3067\u4f7f\u7528\nDim all_k_h As String    '\u79d1\u76ee\u540d\u3092\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u306b\u3059\u308b\u305f\u3081\u306e\u6587\u5b57\u5217\u3001sql\u6587\u3067\u4f7f\u7528\nDim k_name(30) As String   '\u79d1\u76ee\u540d\u3092\u5165\u308c\u308b\u914d\u5217\nDim k_n As Integer       '\u79d1\u76ee\u6570\u3092\u5165\u308c\u308b\u5909\u6570\n\n'\u79d1\u76ee\u6570\u3092\u53d6\u5f97\nk_n = DCount(\"*\", \"T_kamoku\")\n\nall_k_i = \"\u751f\u5f92\u540d varchar,\"        '\u30d5\u30a3\u30fc\u30eb\u30c9\u5b9a\u7fa9\nall_k_h = \"\u5e73\u5747\u70b9 Double\"         '\u30d5\u30a3\u30fc\u30eb\u30c9\u5b9a\u7fa9\n\nSet cn = CurrentProject.Connection\n\nSet r1 = New ADODB.Recordset\nSet r2 = New ADODB.Recordset\nSet r3 = New ADODB.Recordset\nSet r4 = New ADODB.Recordset\n\n\nr1.Open \"T_seiseki\", cn, adOpenForwardOnly, adLockReadOnly '\u5f97\u70b9\u30c6\u30fc\u30d6\u30eb\nr3.Open \"T_kamoku\", cn, adOpenForwardOnly, adLockReadOnly  '\u79d1\u76ee\u540d\u30c6\u30fc\u30d6\u30eb\n\ni = 1\n\n'\u79d1\u76ee\u540d\u3092\u53d6\u5f97\nDo Until r3.EOF\n\n    k_name(i) = r3!\u79d1\u76ee\u540d\n    r3.MoveNext\n    i = i + 1\n\nLoop\n\n'-----------------------\ni = 1\n\n'-------###\u3053\u3053\u304c\u30dd\u30a4\u30f3\u30c8###-------\n'\u79d1\u76ee\u540d\u3092\u4e00\u822c\u5316\u3057\u3066\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u306b\u5165\u308c\u308b\u6e96\u5099\nFor i = 1 To 25\n all_k = all_k &amp; \"kn\" &amp; i &amp; \" double,\"\nNext\n\n\n'\u6700\u7d42\u7684\u306b\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u3068\u3059\u308b\u305f\u3081\u306e\u51e6\u7406\nall_k = all_k_i &amp; all_k &amp; all_k_h\n\n\n'\u51e6\u7406\u524d\u306b\u30c6\u30fc\u30d6\u30eb\u3092\u524a\u9664\nOn Error Resume Next\nDoCmd.DeleteObject acTable, \"T_ichiran\"\nOn Error GoTo 0\n\n\n'\u30c6\u30fc\u30d6\u30eb\u4f5c\u6210\u306eSQL\u6587\u304a\u3088\u3073SQL\u5b9f\u884c\nst_SQL = \"CREATE TABLE T_ichiran(\" &amp; all_k &amp; \");\"\nDoCmd.RunSQL st_SQL\n\nr2.Open \"T_ichiran\", cn, adOpenKeyset, adLockOptimistic    \n '\u65b0\u898f\u306b\u4f5c\u6210\u3057\u305f\u30c6\u30fc\u30d6\u30eb\n\n\n'\u751f\u5f92\u540d\u3092\u53d6\u308a\u51fa\u3057\u3001\u65b0\u898f\u30c6\u30fc\u30d6\u30eb\u306b\u767b\u9332\u3059\u308b\u51e6\u7406\n\nr4.Open \"T_seito\", cn, adOpenKeyset, adLockReadOnly      \n '\u751f\u5f92\u540d\u3092\u53c2\u7167\u3059\u308b\u30c6\u30fc\u30d6\u30eb\n\n      Do Until r4.EOF\n            r2.AddNew\n            r2!\u751f\u5f92\u540d = r4!\u751f\u5f92\u540d\n            r2.Update\n            r4.MoveNext\n      Loop\n\n'---------------------------------------------------------------\n'\u3053\u3053\u304b\u3089\u70b9\u6570\u3092\u66f8\u304d\u8fbc\u3080\u51e6\u7406\n'\u53c2\u7167\u30c6\u30fc\u30d6\u30eb\u306f\u5f97\u70b9\u30c6\u30fc\u30d6\u30ebT_seideki\uff08r1.open\uff09\u2192T_ichiran\uff08r2.open\uff09\n'---------------------------------------------------------------\n\nr1.MoveFirst\nr2.MoveFirst\n\n\nDo Until r2.EOF\n\n    h_avg = 0\n    k = 0\n    r1.MoveFirst\n    \n    Do Until r1.EOF\n    \n        j = 1\n    \n        Do Until j > r2.Fields.Count - 1\n            \n            If r1!\u751f\u5f92\u540d = r2!\u751f\u5f92\u540d And k_name(j) = r1!\u79d1\u76ee\u540d Then\n                 \n                       r2(\"kn\" &amp; j) = r1!\u70b9\u6570  '-- r2.Fields(j).Value = r1!\u70b9\u6570 \u3068\u3057\u3066\u3082\u53ef ---\n                       h_avg = h_avg + Nz(r1!\u70b9\u6570)\n                       k = k + 1\n                       If h_avg &lt;> 0 Then r2!\u5e73\u5747\u70b9 = Round((h_avg \/ k), 2)\n                       r2.Update\n                \n            Else\n\n\n            End If\n\n            j = j + 1\n   \n        Loop\n\n     r1.MoveNext\n     Loop\n\n\nr2.MoveNext\nLoop\n\n'-------\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u3092\u9589\u3058\u308b------\nr1.Close\nSet r1 = Nothing\nr2.Close\nSet r2 = Nothing\nr3.Close\nSet r3 = Nothing\nr4.Close\nSet r4 = Nothing\ncn.Close\nSet cn = Nothing\n\nEnd Sub<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u6700\u7d42\u7684\u306a\u30b3\u30fc\u30c9\u3092\u793a\u3059\u524d\u306b\u3001\u3082\u3046\u4e00\u5ea6\u6e96\u5099\u6bb5\u968e\u306e\u78ba\u8a8d\u3092\u3057\u3066\u304a\u304f\u3002\u4eca\u56de\u306f\u3001\u9023\u8f096\u3067\u79d1\u76ee\u540d\u56fa\u5b9a\u306e\u51e6\u7406\u3068\u3057\u3066\u63b2\u8f09\u3057\u305f\u30b3\u30fc\u30c9\u3092\u3069\u3093\u306a&hellip; <a class=\"moretag\" href=\"https:\/\/have-stone.iobb.net\/wordpress\/?p=252\">read&nbsp;more<\/a><\/p>\n","protected":false},"author":1,"featured_media":211,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,13],"tags":[5,7,8],"_links":{"self":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/252"}],"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=252"}],"version-history":[{"count":8,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/252\/revisions"}],"predecessor-version":[{"id":261,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/252\/revisions\/261"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/media\/211"}],"wp:attachment":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=252"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=252"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=252"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}