<?xml version="1.0" encoding="utf-8" standalone="yes"?><rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom"><channel><title>Office on Sawyer Zheng's Blog</title><link>https://elated-raman-42e0c2.netlify.app/tags/office/</link><description>Recent content in Office on Sawyer Zheng's Blog</description><generator>Hugo</generator><language>zh-cn</language><lastBuildDate>Fri, 10 Feb 2023 16:53:38 +0800</lastBuildDate><atom:link href="https://elated-raman-42e0c2.netlify.app/tags/office/index.xml" rel="self" type="application/rss+xml"/><item><title>excel -- Excel Usage Notes</title><link>https://elated-raman-42e0c2.netlify.app/post/notes/excel/</link><pubDate>Wed, 20 Mar 2019 00:00:00 +0000</pubDate><guid>https://elated-raman-42e0c2.netlify.app/post/notes/excel/</guid><description>&lt;div id="outline-container-headline-1" class="outline-2"&gt;
&lt;h2 id="headline-1"&gt;
快捷键
&lt;/h2&gt;
&lt;div id="outline-text-headline-1" class="outline-text-2"&gt;
&lt;div id="outline-container-headline-2" class="outline-3"&gt;
&lt;h3 id="headline-2"&gt;
填充
&lt;/h3&gt;
&lt;div id="outline-text-headline-2" class="outline-text-3"&gt;
&lt;ul&gt;
&lt;li&gt;向右填充 Ctrl + R right&lt;/li&gt;
&lt;li&gt;向下填充 Ctrl + D down&lt;/li&gt;
&lt;li&gt;智能填充 Ctrl + E&lt;/li&gt;
&lt;/ul&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;div id="outline-container-headline-3" class="outline-3"&gt;
&lt;h3 id="headline-3"&gt;
切换窗口
&lt;/h3&gt;
&lt;div id="outline-text-headline-3" class="outline-text-3"&gt;
&lt;ul&gt;
&lt;li&gt;
&lt;p&gt;工作表 sheet&lt;/p&gt;
&lt;ul&gt;
&lt;li&gt;Ctrl + PgUp PageUp&lt;/li&gt;
&lt;li&gt;Ctrl + PgDn PageDown&lt;/li&gt;
&lt;/ul&gt;
&lt;/li&gt;
&lt;/ul&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;div id="outline-container-headline-4" class="outline-3"&gt;
&lt;h3 id="headline-4"&gt;
翻页
&lt;/h3&gt;
&lt;div id="outline-text-headline-4" class="outline-text-3"&gt;
&lt;ul&gt;
&lt;li&gt;
&lt;p&gt;上下&lt;/p&gt;
&lt;ul&gt;
&lt;li&gt;PageUp&lt;/li&gt;
&lt;li&gt;PageDown&lt;/li&gt;
&lt;/ul&gt;
&lt;/li&gt;
&lt;li&gt;
&lt;p&gt;左右&lt;/p&gt;
&lt;ul&gt;
&lt;li&gt;向左 Alt + PageUp&lt;/li&gt;
&lt;li&gt;向右 Alt + PageDown&lt;/li&gt;
&lt;/ul&gt;
&lt;/li&gt;
&lt;/ul&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;div id="outline-container-headline-5" class="outline-3"&gt;
&lt;h3 id="headline-5"&gt;
切换单元格
&lt;/h3&gt;
&lt;div id="outline-text-headline-5" class="outline-text-3"&gt;
&lt;ul&gt;
&lt;li&gt;向右 &amp;lt;Tab&amp;gt;&lt;/li&gt;
&lt;li&gt;向左 Shift + &amp;lt;Tab&amp;gt;&lt;/li&gt;
&lt;li&gt;向下 &amp;lt;Enter&amp;gt;&lt;/li&gt;
&lt;li&gt;向上 Shift + &amp;lt;Enter&amp;gt;&lt;/li&gt;
&lt;/ul&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;div id="outline-container-headline-6" class="outline-3"&gt;
&lt;h3 id="headline-6"&gt;
翻译搜索
&lt;/h3&gt;
&lt;div id="outline-text-headline-6" class="outline-text-3"&gt;
&lt;ul&gt;
&lt;li&gt;Ctrl + 鼠标单击&lt;/li&gt;
&lt;/ul&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;div id="outline-container-headline-7" class="outline-2"&gt;
&lt;h2 id="headline-7"&gt;
python 操纵工具
&lt;/h2&gt;
&lt;div id="outline-text-headline-7" class="outline-text-2"&gt;
&lt;p&gt;参考：&lt;/p&gt;</description></item><item><title>ppt ---- powerpoint</title><link>https://elated-raman-42e0c2.netlify.app/post/notes/ppt/</link><pubDate>Sun, 10 Feb 2019 00:00:00 +0000</pubDate><guid>https://elated-raman-42e0c2.netlify.app/post/notes/ppt/</guid><description>&lt;div id="outline-container-headline-1" class="outline-2"&gt;
&lt;h2 id="headline-1"&gt;
播放
&lt;/h2&gt;
&lt;div id="outline-text-headline-1" class="outline-text-2"&gt;
&lt;ul&gt;
&lt;li&gt;从头播放：F5&lt;/li&gt;
&lt;li&gt;从现在位置播放：Shift + F5&lt;/li&gt;
&lt;/ul&gt;
&lt;/div&gt;
&lt;/div&gt;</description></item><item><title>Vba Excel</title><link>https://elated-raman-42e0c2.netlify.app/post/notes/vba_excel/</link><pubDate>Wed, 09 Aug 2017 00:00:00 +0000</pubDate><guid>https://elated-raman-42e0c2.netlify.app/post/notes/vba_excel/</guid><description>&lt;div id="outline-container-headline-1" class="outline-2"&gt;
&lt;h2 id="headline-1"&gt;
禁止拷贝文件方法
&lt;/h2&gt;
&lt;div id="outline-text-headline-1" class="outline-text-2"&gt;
&lt;p&gt;&lt;a href="http://www.360doc.com/showweb/0/0/762370756.aspx"&gt;http://www.360doc.com/showweb/0/0/762370756.aspx&lt;/a&gt;&lt;/p&gt;
&lt;div class="src src-vba"&gt;
&lt;div class="highlight"&gt;&lt;div class="chroma"&gt;
&lt;table class="lntable"&gt;&lt;tr&gt;&lt;td class="lntd"&gt;
&lt;pre tabindex="0" class="chroma"&gt;&lt;code&gt;&lt;span class="lnt"&gt; 1
&lt;/span&gt;&lt;span class="lnt"&gt; 2
&lt;/span&gt;&lt;span class="lnt"&gt; 3
&lt;/span&gt;&lt;span class="lnt"&gt; 4
&lt;/span&gt;&lt;span class="lnt"&gt; 5
&lt;/span&gt;&lt;span class="lnt"&gt; 6
&lt;/span&gt;&lt;span class="lnt"&gt; 7
&lt;/span&gt;&lt;span class="lnt"&gt; 8
&lt;/span&gt;&lt;span class="lnt"&gt; 9
&lt;/span&gt;&lt;span class="lnt"&gt;10
&lt;/span&gt;&lt;span class="lnt"&gt;11
&lt;/span&gt;&lt;span class="lnt"&gt;12
&lt;/span&gt;&lt;span class="lnt"&gt;13
&lt;/span&gt;&lt;span class="lnt"&gt;14
&lt;/span&gt;&lt;span class="lnt"&gt;15
&lt;/span&gt;&lt;span class="lnt"&gt;16
&lt;/span&gt;&lt;span class="lnt"&gt;17
&lt;/span&gt;&lt;span class="lnt"&gt;18
&lt;/span&gt;&lt;span class="lnt"&gt;19
&lt;/span&gt;&lt;/code&gt;&lt;/pre&gt;&lt;/td&gt;
&lt;td class="lntd"&gt;
&lt;pre tabindex="0" class="chroma"&gt;&lt;code class="language-fallback" data-lang="fallback"&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt; Private Sub Worksheet_SelectionChange(ByVal Target As Range)
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　Dim MyDiskCode
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　Set MyDiskCode = GetObject(&amp;#34;Winmgmts:&amp;#34;).InstancesOf(&amp;#34;Win32_DiskDrive&amp;#34;)
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　For Each mo In MyDiskCode
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　　Sheet1.Cells(999, 256).Value = mo.Model
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　Next
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　End Sub
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt; Private Sub Workbook_Open()
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　Dim MyDiskCode
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　Set MyDiskCode = GetObject(&amp;#34;Winmgmts:&amp;#34;).InstancesOf(&amp;#34;Win32_DiskDrive&amp;#34;)
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　For Each mo In MyDiskCode
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　MyNewCode = mo.Model
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　Next
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　If (MyNewCode &amp;lt;&amp;gt; Trim(Sheet1.Cells(999, 256).Value)) Then
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　　ThisWorkbook.Close
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　End If
&lt;/span&gt;&lt;/span&gt;&lt;span class="line"&gt;&lt;span class="cl"&gt;　　End Sub&lt;/span&gt;&lt;/span&gt;&lt;/code&gt;&lt;/pre&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;div id="outline-container-headline-2" class="outline-2"&gt;
&lt;h2 id="headline-2"&gt;
excel 工作表保护
&lt;/h2&gt;
&lt;div id="outline-text-headline-2" class="outline-text-2"&gt;
&lt;ol&gt;
&lt;li&gt;可以选定单元格属性为，不锁定，&lt;/li&gt;
&lt;li&gt;保护工作表功能，不允许，用户选定，锁定单元格，
这样用户，就不能通过普通方法，修改单元格&lt;/li&gt;
&lt;li&gt;而我们却可以，使用 VBA 后台编写程序，修改它。&lt;/li&gt;
&lt;/ol&gt;
&lt;p&gt;&lt;strong&gt;&lt;strong&gt;&lt;strong&gt;Warning&lt;/strong&gt;&lt;/strong&gt;&lt;/strong&gt;
 实践证明，下述方法可行,但是，vba 会产生漏洞，因为
 通过 vba， Select 语句选定单元格，
 如果不，重新选定为，用户，可访问区域，
 而是，锁定区域(用户禁止访问区域)，
 那么，用户将获得，禁止区域的访问权限！！！
 ===&amp;gt; 因此，使用 vba 后，要 Select 成，用户允许访问区域。&lt;/p&gt;</description></item></channel></rss>