{"id":8227,"date":"2008-10-27T15:27:00","date_gmt":"2008-10-27T15:27:00","guid":{"rendered":"http:\/\/melotopia.net\/b\/?p=8227"},"modified":"2008-10-27T15:27:00","modified_gmt":"2008-10-27T15:27:00","slug":"%ec%9d%b4%eb%a6%84%ec%9c%bc%eb%a1%9c-%ec%a0%90%ec%88%98-%eb%82%b4%ea%b8%b0","status":"publish","type":"post","link":"http:\/\/melotopia.net\/b\/?p=8227","title":{"rendered":"\uc774\ub984\uc73c\ub85c \uc810\uc218 \ub0b4\uae30"},"content":{"rendered":"
\n 5\ucc9c\uac1c\ucbe4 \ub418\ub294 \uc774\ub984 \ubaa9\ub85d\uc774 \uc788\ub294\ub370, A=1, B=2 \uc774\ub7f0 \uc2dd\uc73c\ub85c \ud574\uc11c \uc810\uc218\ub97c \uc900\ub2e4. \uadf8 \ub2e4\uc74c\uc5d0, \uadf8\uac78 \uc54c\ud30c\ubcb3 \uc21c\uc73c\ub85c \uc815\ub82c\ud558\uc5ec, \uadf8 \ub4f1\uc218\uc5d0 \ub530\ub77c \uac00\uc911\uce58\ub97c \uacf1\ud574\uc900\ub2e4.
\n
\n \uadf8\ub7f0 \ub2e4\uc74c\uc5d0 \uadf8\uac78 \ubaa8\ub450 \ub354\ud55c\ub2e4. \uc5bc\ub9c8\uc77c\uae4c?
\n
\n \ucd9c\ucc98 : http:\/\/projecteuler.net\/index.php?section=problems&id=22<\/p>\n

\ub098\ub294 \uc5d1\uc140 VBA\ub85c \ud480\uc5c8\ub2e4.<\/p>\n

Sub text()
\n
\n Dim i As Integer
\n
\n For i = 1 To 5200<\/p>\n

Worksheets(“Sheet2”).Cells(i, 1) = Worksheets(“Sheet2”).Cells(1, 2 * i – 1)<\/p>\n

Next<\/p>\n

End Sub<\/p>\n

Sub Macro1()
\n
\n ‘
\n
\n ‘ Macro1 Macro
\n
\n ‘<\/p>\n

‘
\n
\n Cells.Replace What:=”A”, Replacement:=”+1″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”B”, Replacement:=”+2″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”C”, Replacement:=”+3″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”D”, Replacement:=”+4″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”E”, Replacement:=”+5″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”F”, Replacement:=”+6″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”G”, Replacement:=”+7″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”H”, Replacement:=”+8″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False<\/p>\n

Cells.Replace What:=”I”, Replacement:=”+9″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”J”, Replacement:=”+10″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”K”, Replacement:=”+11″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”L”, Replacement:=”+12″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”M”, Replacement:=”+13″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”N”, Replacement:=”+14″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”O”, Replacement:=”+15″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”P”, Replacement:=”+16″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False<\/p>\n

Cells.Replace What:=”Q”, Replacement:=”+17″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”R”, Replacement:=”+18″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”S”, Replacement:=”+19″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”T”, Replacement:=”+20″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”U”, Replacement:=”+21″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”V”, Replacement:=”+22″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”W”, Replacement:=”+23″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”X”, Replacement:=”+24″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False<\/p>\n

Cells.Replace What:=”Y”, Replacement:=”+25″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n Cells.Replace What:=”Z”, Replacement:=”+26″, LookAt:=xlPart, SearchOrder _
\n
\n :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
\n
\n End Sub<\/p>\n

Sub addition()<\/p>\n

Dim i As Integer
\n
\n For i = 1 To 5163
\n
\n Worksheets(“sheet1”).Cells(i, 2) = “=” + Worksheets(“sheet1”).Cells(i, 1).Value<\/p>\n

Next<\/p>\n

End Sub<\/p>\n

\uc774\uac78 \ub2e4 \ud558\uace0 \ub098\uba74 \uac01 \uc774\ub984\ub4e4\uc758 \uc810\uc218 \uac12\uc774 \uacc4\uc0b0\ub418\uc5b4 \uc788\ub2e4.
\n
\n \uc774\uc81c \uc815\ub82c\uc2dc\ucf1c\uc8fc\uace0, \uac00\uc911\uce58\ub97c \uacf1\ud574\uc8fc\uace0, \ub2e4 \ub354\ud558\uba74 \ub41c\ub2e4.<\/p>\n

\uacb0\uad6d, \uc0bd\uc9c8. -_-;
\n
\n \uc544\ub9c8 \ud384\uc774\ub098 \ub8e8\ube44\ub85c \ud480\uba74 \uba87\uc904 \uc548\ub420\uac83 \uac19\ub2e4.
\n <\/p>\n

\n
\n
\n\"\uc2e0\uace0\"
\n<\/a>\n<\/div>\n<\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

5\ucc9c\uac1c\ucbe4 \ub418\ub294 \uc774\ub984 \ubaa9\ub85d\uc774 \uc788\ub294\ub370, A=1, B=2 \uc774\ub7f0 \uc2dd\uc73c\ub85c \ud574\uc11c \uc810\uc218\ub97c \uc900\ub2e4. \uadf8 \ub2e4\uc74c\uc5d0, \uadf8\uac78 \uc54c\ud30c\ubcb3 \uc21c\uc73c\ub85c \uc815\ub82c\ud558\uc5ec, \uadf8 \ub4f1\uc218\uc5d0 \ub530\ub77c \uac00\uc911\uce58\ub97c \uacf1\ud574\uc900\ub2e4. \uadf8\ub7f0 \ub2e4\uc74c\uc5d0 \uadf8\uac78 \ubaa8\ub450 \ub354\ud55c\ub2e4. \uc5bc\ub9c8\uc77c\uae4c? \ucd9c\ucc98 : http:\/\/projecteuler.net\/index.php?section=problems&id=22 \ub098\ub294 \uc5d1\uc140 VBA\ub85c \ud480\uc5c8\ub2e4. Sub text() Dim i As Integer For i = 1 To 5200 Worksheets(“Sheet2”).Cells(i, 1) = Worksheets(“Sheet2”).Cells(1, 2 * i […]<\/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-8227","post","type-post","status-publish","format-standard","hentry","category-12"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p8o6gA-28H","jetpack-related-posts":[],"jetpack_likes_enabled":true,"_links":{"self":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/8227","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=8227"}],"version-history":[{"count":0,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/8227\/revisions"}],"wp:attachment":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=8227"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=8227"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=8227"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}