{"id":1716,"date":"2021-04-26T16:25:14","date_gmt":"2021-04-26T08:25:14","guid":{"rendered":"http:\/\/cnliutz.uicp.io\/?p=1716"},"modified":"2021-04-26T17:21:12","modified_gmt":"2021-04-26T09:21:12","slug":"excel-%e6%95%b0%e6%8d%ae%e5%8c%ba%e5%9f%9f%e5%90%8d%e7%a7%b0%e3%80%81%e5%8d%95%e5%85%83%e6%a0%bc%e5%b1%9e%e6%80%a7%e8%ae%be%e7%bd%ae","status":"publish","type":"post","link":"http:\/\/g1n29wqq.ipyingshe.net:5347\/?p=1716","title":{"rendered":"excel \u6570\u636e\u533a\u57df\u540d\u79f0\u3001\u5355\u5143\u683c\u5c5e\u6027\u8bbe\u7f6e\u3001\u56fe\u8868\u7ed8\u5236"},"content":{"rendered":"\n<pre class=\"wp-block-code\"><code> ActiveWorkbook.Worksheets(\"Sheet1\").Range(\"a1:g6\").Name = \"data0\"\n \n  With ActiveWorkbook.Worksheets(\"Sheet1\").Range(\"data0\").Font\n    .Name = \"\u6977\u4f53\"\n    .Size = 14\n    .Color = RGB(255, 0, 0)\n    .Bold = True\n    .Italic = True\n    .Underline = xlUnderlineStyleDouble\n    \n  End With\n   ActiveWorkbook.Worksheets(\"Sheet1\").Range(\"data0\").Interior.Color = RGB(0, 100, 200)\n   \n   'Range(\"data0\").Select\n   With ActiveWorkbook.Worksheets(\"Sheet1\").Range(\"c9:g12\").Borders\n        .LineStyle = xlDouble\n        .Color = RGB(255, 100, 255)\n        .Weight = xlHairline\n  End With\n    Worksheets(\"Sheet1\").Range(\"A1:G1\").Borders(xlEdgeBottom).Color = RGB(255, 0, 0)\n    MsgBox \"The name of the active workbook is \" &amp; ActiveWorkbook.Name\n    \nEnd Sub\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub zhu_xing_tu()\r\n    '\u521b\u5efa\u72ec\u7acb\u7684\u56fe\u8868\r\n    Dim oChart As Chart\r\n    Dim oWK As Worksheet\r\n    Set oWK = Excel.Worksheets(1)\r\n    Dim oChartObject As ChartObject\r\n    '\u5148\u521b\u5efa\u4e00\u4e2a\u7a7a\u767d\u7684\u56fe\u5f62\r\n    Set oChart = Excel.charts.Add\r\n    '\u5bf9\u7a7a\u767d\u7684\u56fe\u5f62\u8fdb\u884c\u8bbe\u7f6e\r\n    With oChart\r\n        .ChartWizard Source:=oWK.Range(\"a1:b13\"), gallery:=xlColumnClustered, PlotBy:=xlColumns, HasLegend:=False, _\r\n        Title:=\"\u8fd9\u662f\u4e00\u4e2a\u67f1\u5f62\u56fe\", CategoryTitle:=\"\u65e5\u671f\", ValueTitle:=\"\u4f53\u6e29\"\r\n           '\u5c06\u65e0\u6570\u636e\u7684\u70b9\u7528\u7ebf\u8fde\u63a5\r\n        .DisplayBlanksAs = xlInterpolated\r\n        .ChartType = xlLine\r\n        '\u663e\u793a\u6570\u636e\u8868\r\n        .HasDataTable = True\r\n    End With\r\nEnd Sub\r\n\r\nSub del()\r\n    If ActiveSheet.ChartObjects.Count >= 1 Then\r\n       ActiveSheet.ChartObjects.Delete\r\n    End If\r\nEnd Sub\r\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-1716","post","type-post","status-publish","format-standard","hentry","category-6"],"_links":{"self":[{"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/posts\/1716","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1716"}],"version-history":[{"count":4,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/posts\/1716\/revisions"}],"predecessor-version":[{"id":1721,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/posts\/1716\/revisions\/1721"}],"wp:attachment":[{"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1716"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1716"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1716"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}