{"id":8004,"date":"2008-03-22T13:18:00","date_gmt":"2008-03-22T13:18:00","guid":{"rendered":"http:\/\/melotopia.net\/b\/?p=8004"},"modified":"2008-03-22T13:18:00","modified_gmt":"2008-03-22T13:18:00","slug":"vba-%ec%8a%a4%ed%81%ac%eb%a6%bd%ed%8a%b8-2%ed%83%84","status":"publish","type":"post","link":"http:\/\/melotopia.net\/b\/?p=8004","title":{"rendered":"VBA \uc2a4\ud06c\ub9bd\ud2b8 2\ud0c4"},"content":{"rendered":"<div class=\"desc\">\n<blockquote><p>\n         Sub Distance()<\/p>\n<p>         Dim i As Integer<br \/>\n         <br \/>\n         Dim j As Integer<br \/>\n         <br \/>\n         Dim k As Integer<br \/>\n         <br \/>\n         Dim l As Integer<br \/>\n         <br \/>\n         Dim n As Integer<\/p>\n<p>         l = 2<br \/>\n         <br \/>\n         j = 2<br \/>\n         <br \/>\n         For i = 1 To 7<br \/>\n         <br \/>\n         n = 3<br \/>\n         <br \/>\n         For k = 1 To 7<\/p>\n<p>         If 1# > (Worksheets(&#8220;Sheet1&#8221;).Cells(i, j).Value) * (Worksheets(&#8220;Sheet1&#8221;).Cells(i, j).Value) &#8211; (Worksheets(&#8220;Sheet2&#8221;).Cells(k, l).Value) * (Worksheets(&#8220;Sheet2&#8221;).Cells(k, l).Value) Then<br \/>\n         <br \/>\n         Worksheets(&#8220;Sheet1&#8221;).Cells(i, j + n).Value = Worksheets(&#8220;Sheet2&#8221;).Cells(k, 1).Value<br \/>\n         <br \/>\n         n = n + 1<br \/>\n         <br \/>\n         End If<br \/>\n         <br \/>\n         Next<br \/>\n         <br \/>\n         Next<\/p>\n<p>         End Sub\n        <\/p><\/blockquote>\n<p>\n        \uc774\ub188\uc740 \ub300\uccb4 \ubb50\ud558\ub294 \ub188\uc77c\uae4c\uc694? -_-;<br \/>\n        <\/p>\n<div style=\"width:100%;margin-top:30px;clear:both;height:30px\">\n<div style=\"width:31px;float:left;\">\n<a href=\"\/toolbar\/popup\/abuseReport\/?entryId=807\" onclick=\"window.open(this.href, 'tistoryThisBlogPopup', 'width=550, height=510, toolbar=no, menubar=no, status=no, scrollbars=no'); return false;\"><br \/>\n<img data-recalc-dims=\"1\" decoding=\"async\" alt=\"\uc2e0\uace0\" src=\"https:\/\/i0.wp.com\/t1.daumcdn.net\/tistory_admin\/static\/ico\/ico_spam_report.png\" style=\"border:0\"\/><br \/>\n<\/a>\n<\/div>\n<\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"<p>Sub Distance() Dim i As Integer Dim j As Integer Dim k As Integer Dim l As Integer Dim n As Integer l = 2 j = 2 For i = 1 To 7 n = 3 For k = 1 To 7 If 1# > (Worksheets(&#8220;Sheet1&#8221;).Cells(i, j).Value) * (Worksheets(&#8220;Sheet1&#8221;).Cells(i, j).Value) &#8211; (Worksheets(&#8220;Sheet2&#8221;).Cells(k, l).Value) * [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[12],"tags":[],"class_list":["post-8004","post","type-post","status-publish","format-standard","hentry","category-12"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p8o6gA-256","jetpack-related-posts":[],"jetpack_likes_enabled":true,"_links":{"self":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/8004","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=8004"}],"version-history":[{"count":0,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/8004\/revisions"}],"wp:attachment":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=8004"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=8004"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=8004"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}