{"id":1030,"date":"2018-12-03T11:48:19","date_gmt":"2018-12-03T02:48:19","guid":{"rendered":"https:\/\/vongg.com\/?p=1030"},"modified":"2018-12-03T12:40:48","modified_gmt":"2018-12-03T03:40:48","slug":"excel-cell-%e6%af%94%e8%bc%83","status":"publish","type":"post","link":"https:\/\/vongg.com\/?p=1030","title":{"rendered":"excel Cell \u6bd4\u8f03"},"content":{"rendered":"

\u697d\u3005(^-^)\u30b3\u30f3\u30da\u30a2<\/p>\n

\u30b7\u30fc\u30c8\u300c\u306f\u3058\u3081\u306b\u300d:\u5b9f\u884c\u30dc\u30bf\u30f3<\/p>\n

\u30b7\u30fc\u30c8\u300c\u30b3\u30f3\u30da\u30a2\uff11\u300d<\/p>\n

\u30b7\u30fc\u30c8\u300c\u30b3\u30f3\u30da\u30a2\uff12\u300d<\/p>\n\n\n<\/colgroup>\n\n\n\n\n
\u25cf\u4f7f\u7528\u65b9\u6cd5<\/span><\/td>\n<\/tr>\n
\u2460 \u30b7\u30fc\u30c8\u300c\u30b3\u30f3\u30da\u30a2\uff11\u300d\u3001\u53ca\u3073\u300c\u30b3\u30f3\u30da\u30a2\uff12\u300d\u306b\u3001\u305d\u308c\u305e\u308c\u6bd4\u8f03\u3059\u308b\u30c7\u30fc\u30bf\u3092\u8cbc\u308a\u4ed8\u3051\u308b\u3002<\/span><\/td>\n<\/tr>\n
\u2461 \u5b9f\u884c\u30dc\u30bf\u30f3\u3092\u62bc\u3059\u3002<\/span><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

UserForm2\u3042\u308a\u3002<\/p>\n

Sub comp_main()
\nDim i As Integer
\nDim j As Integer
\nDim count As Integer
\nDim Sheet1() As String
\nDim Sheet2() As String<\/p>\n

‘—–\u3000\u30c7\u30fc\u30bf\u5165\u529b\u9818\u57df\u53d6\u5f97\u51e6\u7406\u3000————————————–<\/p>\n

Dim x1 As Long
\nDim y1 As Long
\nDim x As Long
\nDim y As Long<\/p>\n

Sheets(“\u30b3\u30f3\u30da\u30a2\uff11”).Select
\nOn Error Resume Next
\ny1 = Cells.Find(“*”, Range(“A1”), , , xlByRows, xlPrevious).Row
\nx1 = Cells.Find(“*”, Range(“A1”), , , xlByColumns, xlPrevious).Column
\nIf Err <> 0 Then
\nMsgBox “\u30b3\u30f3\u30da\u30a2\uff11\u30b7\u30fc\u30c8\u306b\u30c7\u30fc\u30bf\u304c\u3042\u308a\u307e\u305b\u3093\u3002”
\nGoTo 999
\nEnd If
\nOn Error GoTo 0<\/p>\n

Sheets(“\u30b3\u30f3\u30da\u30a2\uff12”).Select
\nOn Error Resume Next
\ny = Cells.Find(“*”, Range(“A1”), , , xlByRows, xlPrevious).Row
\nx = Cells.Find(“*”, Range(“A1”), , , xlByColumns, xlPrevious).Column
\nIf Err <> 0 Then
\nMsgBox “\u30b3\u30f3\u30da\u30a2\uff12\u30b7\u30fc\u30c8\u306b\u30c7\u30fc\u30bf\u304c\u3042\u308a\u307e\u305b\u3093\u3002”
\nGoTo 999
\nEnd If
\nOn Error GoTo 0<\/p>\n

If x1 > x Then
\nx = x1
\nEnd If<\/p>\n

If y1 > y Then
\ny = y1
\nEnd If<\/p>\n

‘—–\u3000\u30e1\u30a4\u30f3\u51e6\u7406\u3000————————————–<\/p>\n

ReDim Sheet1(y, x)
\nReDim Sheet2(y, x)<\/p>\n

Sheets(“\u30b3\u30f3\u30da\u30a2\uff11”).Select
\nApplication.ScreenUpdating = False
\nFor j = 1 To x
\nFor i = 1 To y
\nSheet1(i, j) = Cells(i, j)
\nNext i
\nNext j<\/p>\n

Sheets(“\u30b3\u30f3\u30da\u30a2\uff12”).Select
\nFor j = 1 To x
\nFor i = 1 To y
\nSheet2(i, j) = Cells(i, j)
\nNext i
\nNext j<\/p>\n

Sheets(“\u30b3\u30f3\u30da\u30a2\uff11”).Select
\nCells.Select
\nSelection.Interior.ColorIndex = xlNone<\/p>\n

Sheets(“\u30b3\u30f3\u30da\u30a2\uff12”).Select
\nCells.Select
\nSelection.Interior.ColorIndex = xlNone<\/p>\n

count = 0<\/p>\n

For j = 1 To x
\nFor i = 1 To y
\nIf Sheet1(i, j) <> Sheet2(i, j) Then
\nSheets(“\u30b3\u30f3\u30da\u30a2\uff11”).Select
\nCells(i, j).Select
\nSelection.Interior.ColorIndex = 4
\nSheets(“\u30b3\u30f3\u30da\u30a2\uff12”).Select
\nCells(i, j).Select
\nSelection.Interior.ColorIndex = 4
\ncount = count + 1
\nEnd If
\nNext i
\nNext j<\/p>\n

Sheets(“\u30b3\u30f3\u30da\u30a2\uff11”).Select<\/p>\n

UserForm2.TextBox1.Value = count
\nUserForm2.Show<\/p>\n

999<\/p>\n

End Sub<\/p>\n

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

\u697d\u3005(^-^)\u30b3\u30f3\u30da\u30a2 \u30b7\u30fc\u30c8\u300c\u306f\u3058\u3081\u306b\u300d:\u5b9f\u884c\u30dc\u30bf\u30f3 \u30b7\u30fc\u30c8\u300c\u30b3\u30f3\u30da\u30a2\uff11\u300d \u30b7\u30fc\u30c8\u300c\u30b3\u30f3\u30da\u30a2\uff12\u300d \u25cf\u4f7f\u7528\u65b9\u6cd5 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[130],"tags":[],"_links":{"self":[{"href":"https:\/\/vongg.com\/index.php?rest_route=\/wp\/v2\/posts\/1030"}],"collection":[{"href":"https:\/\/vongg.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/vongg.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/vongg.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/vongg.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1030"}],"version-history":[{"count":2,"href":"https:\/\/vongg.com\/index.php?rest_route=\/wp\/v2\/posts\/1030\/revisions"}],"predecessor-version":[{"id":1032,"href":"https:\/\/vongg.com\/index.php?rest_route=\/wp\/v2\/posts\/1030\/revisions\/1032"}],"wp:attachment":[{"href":"https:\/\/vongg.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1030"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/vongg.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1030"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/vongg.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1030"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}