selection project（project selection是什么意思）

本文目录

project selection是什么意思
excel中怎样读取另一个文件
Sublime Text 有哪些实用技巧
一种编程语言
选型样本用英语怎么说
project表格高亮什么意思
WORD高级替换技巧
高分求教Word中如何实现倒计时
如何高效地使用 Sublime Text

project selection是什么意思

project selection项目选择双语对照词典结果：project selection[英][prəˈdʒekt siˈlekʃən][美][prəˈdʒɛkt sɪˈlɛkʃən]（投本投资中）项目的选择;

excel中怎样读取另一个文件

第一种方法:打开另一个文件,copy,paste:触发按钮单机事件,VBA如下:[code=vb] Private Sub CommandButton1_Click()Dim towb As WorkbookDim tows As WorksheetDim torow As IntegerDim fromwb As WorkbookDim fromws As WorksheetDim fromrow As IntegerDim projectnameDim iDim openfiles ’input the filepath of your selectionSet towk = Application.ActiveWorkbookSet tows = ActiveSheettorow = [a65536].End(3).Row + 1 ’get the last row of data by column A ’get the active worksheet ’call openfile functionopenfiles = openfile()If openfiles 《》 ““ ThenSet fromwb = Application.Workbooks.Open(openfiles)Set fromws = fromwb.Sheets(“IPIS“) ’set ID tows.Activate tows.Cells(torow, 1) = tows.Cells(torow - 1, 1) + 1 ’set “Go/No Go“ tows.Activate tows.Cells(torow, 2) = “Go“ ’set “Project Name“ fromwb.Activate fromws.Activate fromws.Cells(5, 1).Select Selection.Copy tows.Activate tows.Cells(torow, 7).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False projectname = tows.Cells(torow, 7) ’set “Customer“ by projectname tows.Activate tows.Cells(torow, 4) = Split(projectname, “ “, 2)(0) ’ range（“A1“） Like “*1234*“ End Iftowk.ActivateEnd SubFunction openfile() As Variant ’Declare a variable as a FileDialog object. Dim fd As FileDialog ’Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog(msoFileDialogFilePicker) ’Declare a variable to contain the path ’of each selected item. Even though the path is aString, ’the variable must be a Variant because For Each...Next ’routines only work with Variants and Objects. Dim vrtSelectedItem As Variant ’Use a With...End With block to reference the FileDialog object. With fd ’Allow the selection of multiple files. .AllowMultiSelect = True ’Use the Show method to display the file picker dialog and return the user’s action. ’If the user presses the button... If .Show = -1 Then ’Step through each string in the FileDialogSelectedItems collection. For Each vrtSelectedItem In .SelectedItems ’vrtSelectedItem is aString that contains the path of each selected item. ’You can use any file I/O functions that you want to work with this path. ’This example displays the path in a message box. MsgBox “Selected item’s path: “ & vrtSelectedItem openfile = vrtSelectedItem Next ’If the user presses Cancel... Else End If End With ’Set the object variable to Nothing. Set fd = NothingEnd Function[/code]总结:这种方法可以实现,但是需要打开对应的选择文件才行.第二种方法:利用引用来显示另一个表的内容,不打开文件,VBA代码如下:触发按钮单机事件:[code=vb] Private Sub CommandButton1_Click()Dim towb As WorkbookDim tows As WorksheetDim torow As IntegerDim fromwb As WorkbookDim fromws As WorksheetDim fromrow As IntegerDim projectnameDim iDim openfiles ’input the filepath of your selectionDim filenameSet towk = Application.ActiveWorkbookSet tows = ActiveSheettorow = [a65536].End(3).Row + 1 ’get the last row of data by column A ’get the active worksheetApplication.ScreenUpdating = False ’call openfile functionopenfiles = openfile()If openfiles 《》 ““ Then’Set fromwb = Application.Workbooks.Open(openfiles)’Set fromws = fromwb.Sheets(“IPIS“)’set ID tows.Activate tows.Cells(torow, 1) = tows.Cells(torow - 1, 1) + 1 ’set “Go/No Go“ tows.Activate tows.Cells(torow, 2) = “Go“ ’set “Project Name“ filename = dealstr(openfiles) ActiveSheet.Cells(torow, 7).Formula = “=’“ & filename & “IPIS’!$A$5“ projectname = tows.Cells(torow, 7) ’set “Customer“ by projectname tows.Activate tows.Cells(torow, 4) = Split(projectname, “ “, 2)(0) ’ range（“A1“） Like “*1234*“ End Iftowk.ActivateApplication.ScreenUpdating = TrueEnd SubFunction dealstr(f As Variant) As Variant Z = Len(f) For ii = Z To 1 Step -1 If Mid(f, ii, 1) = “\“ Then Exit For End If Next ii For i = Len(f) To y Step -1 If Mid(f, i, 1) 《= “z“ Then Exit For End If Next i a = Mid(f, ii + 1, i - ii) b = Mid(f, 1, ii) dealstr = b & “[“ & a & “]“End FunctionFunction openfile() As Variant ’Declare a variable as a FileDialog object. Dim fd As FileDialog ’Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog(msoFileDialogFilePicker) ’Declare a variable to contain the path ’of each selected item. Even though the path is aString, ’the variable must be a Variant because For Each...Next ’routines only work with Variants and Objects. Dim vrtSelectedItem As Variant ’Use a With...End With block to reference the FileDialog object. With fd ’Allow the selection of multiple files. .AllowMultiSelect = True ’Use the Show method to display the file picker dialog and return the user’s action. ’If the user presses the button... If .Show = -1 Then ’Step through each string in the FileDialogSelectedItems collection. For Each vrtSelectedItem In .SelectedItems ’vrtSelectedItem is aString that contains the path of each selected item. ’You can use any file I/O functions that you want to work with this path. ’This example displays the path in a message box. openfile = vrtSelectedItem Next ’If the user presses Cancel... Else End If End With ’Set the object variable to Nothing. Set fd = NothingEnd Function[/code]总结:这种方法,不用再打开选择的文件,但是,利用引用的方式显示另一个文件的内容,显得有些藕断丝连,不方便.第三种方法:利用ExecuteExcel4Macro,不打开文件就能读取内容,不再是引用的关系,VBA代码如下:触发按钮单机事件:[code=vb]Private Sub CommandButton1_Click()Dim towb As WorkbookDim tows As WorksheetDim torow As IntegerDim cnn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim i As IntegerDim SQL As String, cnnStr As String, sFileName As StringDim wb As WorkbookDim ws As WorksheetDim projectnameDim openfiles ’input the filepath of your selectionDim filenameSet towk = Application.ActiveWorkbookSet tows = ActiveSheettorow = [a65536].End(3).Row + 1 ’get the last row of data by column A ’get the active worksheetApplication.ScreenUpdating = False ’call openfile functionopenfiles = openfile()If openfiles 《》 ““ Then If GetValue(getpathname(openfiles), getfilename(openfiles), “IPIS“, “A2“) = “error“ Then MsgBox “选取文件有误“ Else ’set ID tows.Activate tows.Cells(torow, 1) = tows.Cells(torow - 1, 1) + 1 ’set “Go/No Go“ tows.Activate tows.Cells(torow, 2) = “Go“ ’set “Project Name“ tows.Cells(torow, 7) = GetValue(getpathname(openfiles), getfilename(openfiles), “IPIS“, “A5“) projectname = tows.Cells(torow, 7) ’set “Customer“ by projectname tows.Activate tows.Cells(torow, 4) = Split(projectname, “ “, 2)(0) End IfEnd IfApplication.ScreenUpdating = TrueEnd SubPrivate Function GetValue(path, filename, sheet, ref) ’ 从关闭的工作薄返回值 Dim MyPath As String ’确定文件是否存在 If Right(path, 1) 《》 “\“ Then path = path & “\“ If Dir(path & filename) = ““ Then GetValue = “error“ Exit Function End If ’创建公式 MyPath = “’“ & path & “[“ & filename & “]“ & sheet & “’!“ & Range(ref).Range(“A1“).Address(, , xlR1C1) ’执行EXCEL4宏函数 GetValue = Application.ExecuteExcel4Macro(MyPath)End FunctionFunction openfile() As Variant’Declare a variable as a FileDialog object. Dim fd As FileDialog ’Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog(msoFileDialogFilePicker) ’Declare a variable to contain the path ’of each selected item. Even though the path is aString, ’the variable must be a Variant because For Each...Next ’routines only work with Variants and Objects. Dim vrtSelectedItem As Variant ’Use a With...End With block to reference the FileDialog object. With fd ’Allow the selection of multiple files. .AllowMultiSelect = True ’Use the Show method to display the file picker dialog and return the user’s action. ’If the user presses the button... If .Show = -1 Then ’Step through each string in the FileDialogSelectedItems collection. For Each vrtSelectedItem In .SelectedItems ’vrtSelectedItem is aString that contains the path of each selected item. ’You can use any file I/O functions that you want to work with this path. ’This example displays the path in a message box. openfile = vrtSelectedItem Next ’If the user presses Cancel... Else End If End With ’Set the object variable to Nothing. Set fd = NothingEnd FunctionFunction getfilename(f As Variant) As Variant Z = Len(f) For ii = Z To 1 Step -1 If Mid(f, ii, 1) = “\“ Then Exit For End If Next ii For i = Len(f) To y Step -1 If Mid(f, i, 1) 《= “z“ Then Exit For End If Next i getfilename = Mid(f, ii + 1, i - ii)End FunctionFunction getpathname(f As Variant) As Variant Z = Len(f) For ii = Z To 1 Step -1 If Mid(f, ii, 1) = “\“ Then Exit For End If Next ii For i = Len(f) To y Step -1 If Mid(f, i, 1) 《= “z“ Then Exit For End If Next i getpathname = Mid(f, 1, ii)End Function[/code]总结:感觉还是这种方式比较好~

Sublime Text 有哪些实用技巧

Sublime快捷键

Sublime原生自带的快捷键也能很大程度上方便开发，这里以Mac为主，windows多数与其相似，以下是Mac下所默认的快捷键：

Mac 备注：具体符号对应的按键

⌘Command key
⌃Control key
⌥Option key
⇧Shift Key

为了方便记忆，将快捷键分成了8个类型，分别为

Edit(编辑)
Selection(光标选中)
Find(查找）
View(视图)
Go to(跳转)
Project(工程)
General(通用)
Tabs(标签)

Edit(编辑)

⌘[向左缩进 | Left indent
⌘]向右缩进 | Right Indent
⌘⌃↑与上一行互换（超实用！）| Swap line up
⌘⌃↓与下一行互换（超实用！）| Swap line down
⌘⇧D复制粘贴当前行（减少多余的粘贴）| Duplicate line
⌘J拼接行（css格式化时挺有用） | join lines
⌘←去往行的开头 | Beginning of line
⌘→去往行末尾 | End of line
⌘⌃/块注释 | Toggle comment block
⌃K从光标开始的地方删除到行尾 | Delete to end
⌃⇧K删除一整行 | delete line
⌃T相邻单词互换位置，在’,’前试用，有惊喜（很有趣）| Transpose
⌘⇧↩向光标前插入一行|insert line before
⌘↩向光标后插入一行|inter line after
⌘⌥T插入特殊字符|Special characters
⌃D向后删除（很怪异的操作，不过感觉很酷炫）

Selection(光标选中)

⌘D选中相同的词 | Expand selection to words
⌃⌘G多重文本光标选中（再也不用⌘ D一个一个的找啦）| Expand all selection to words
⌘L选中一行|Expand selection to line
Esc单选（取消多重选择）|Single selection,Cancel multiple selections
⌃⇧↑一行一行向上选中|Add previous line
⌃⇧↓一行一行向下选中|Add next line
⌘⇧L将选中的区域分割成多行选中状态(多光标操作状态)|Split into lines
⌥+拖动鼠标多重光标选中
⌘⇧J已缩进层级为依据，一层层向外选中|Expand selection to indentation
⌃⇧M将匹配括号中的内容选中|Expand selection to brackets

Find(查找)

⌘F普通查找|Find
⌘G查找下一个|Find next
⌘⇧F在文件夹中查找| Find in files
⌘⇧E缓存用于替换的内容，方便之后的替换|Use selection for replace
⌘E缓存用于查找的内容，方便之后的查找|Use selection for find
⌘⌥E一个接一个往下替换|Replace next

View(视图)

推荐使用Origami插件，可以随意对sublime进行分割

Go to(跳转/定位)

⌘P跳转文件（很方便）| Go to anything
⌘R定位文件中的方法@| Go to symbol
⌘G定位文件中的行号:| Go to line
⌃M定位匹配的括号 | Jump to matching bracket
⌘F2设置/取消定位标记| Toggle bookmark
F2跳转到定位标记处 | Next bookmark
⌘⇧F2清除所有定位标记| Clear all bookmarks
⌘⌥→下一个打开的文件| Next file

Project(工程)

⌘⌃P在保存过的工程中切换，随意变换工程环境|Switch project window

General(通用)

⌘⇧P 打开命令行| Command prompt
⌘K, ⌘B隐藏/打开侧边栏| Toggle side bar

Tabs（标签栏）

⌘⇧t 打开最后一次关闭的文件|Open last closed tab
^Tab 循环遍历tab|Cycle up through tabs
^⇧Tab 反方向循环遍历tab|Cycle down through tabs

_____________________________________实用插件

Emmet:这个插件内置的功能很强大，它的快捷键详细说明如下：

操作、编辑HTML：Emmet Documentation
快速生成html语法篇：Cheat Sheet
理解记忆后，能增加很多开发效率。

Tag: HTML格式化

jsformat: javascript格式化

Origami：Sublime视图设置SublimeText/Origami · GitHub

一种编程语言

可以在DOC上使用的编程语言最常见的当属Visual Basic Application(VBA).这种语言广泛用于Microsoft Office系列中。VBA 是基于Visual Basic 发展而来的，它们具有相似的语言结构。Visual Basic 是Microsoft 的主要图形界面开发工具，VBA 5.0 （亦即VBA 97）则是Visual Basic 5.0 的子集。Visual Basic 是由Basic 发展而来的第四代语言。Visual Basic 作为一套独立的 Windows 系统开发工具，可用于开发Windows 环境下的各类应用程序，是一种可视化的、面向对象的、采用事件驱动方式的结构化高级程序设计语言。它具有高效率、简单易学及功能强大的特点。VB 的程序语言简单、便捷，利用其事件驱动的编程机制，新颖易用的可视化设计工具，并使用Windows 应用程序接口（API）函数，采用动态链接库（DLL）、动态数据交换（DDE）、对象的链接与嵌入（OLE）以及开放式数据库访问（ODBC）等技术，可以高效、快速地编制出 Windows 环境下功能强大、图形界面丰富的应用软件系统。 Visual Basic 程序很大一部分以可视（Visual）形式实现，这意味着在设计阶段就可以看到程序运行的屏幕画面，用户可以在设计时能够方便地改动画面图像、大小、颜色等，直到满意为止。VB 的用户可以是缺乏Windows 及C 语言开发经验的专业软件人员，也可以是具有一定Windows 开发经验的专业人员，VB 的可视化编程方法使得原来繁琐枯燥、令人生畏的Windows 应用程序设计变得轻松自如、妙趣横生。以往的Windows 应用程序开发工具在设计图形用户界面时，都是采用编程的方法，并伴随大量的计算任务，一个大型应用程序约有90%的程序代码用来处理用户界面，而且在程序设计过程中不能看到界面显示的效果，只有在程序执行时才能观察到，如果界面效果不佳，还需要回到程序中去修改。Visual Basic 提供了新颖的可视化设计工具，巧妙地将Windows 界面设计的复杂性封装起来，程序开发人员不必再为界面设计而编写大量程序代码，仅需采用现有工具按设计者要求的布局，在屏幕上画出所需界面，并为各图形对象设置属性即可，VB 自动产生界面设计代码，这样便将事先编制好的控件可视地连接到一起，构成一个随时可调整的界面。 VBA 不但继承了VB 的开发机制，而且VBA 还具有与VB 相似的语言结构，它们的集成开发环境IDE（Intergrated Development Environment）也几乎相同。但是，经过优化，VBA 专门用于Office 的各应用程序。VB 可运行直接来自Windows 95 或NT 桌面上的应用程序，而VBA 的项目（Project）仅由使用VBA 的Excel、Word、 PowerPoint 等称为宿主（Host）的Office 应用程序（Application）来调用。VBA 和WordBasic 之间主要的区别是 WordBasic 语言包含由大约 900 个命令组成的一张平面列表，而 Visual Basic 则包含了由对象组成的一个分层结构，每个对象都可提供一组特定方法和属性（与 WordBasic 中的语句和函数相似）。大多数 WordBasic 命令在任何时候都可运行，而 Visual Basic 只在特定的时候提供有效对象的方法和属性。注意：本书提到的Visual Basic 如果不加特别说明，都是指Visual Basic For Applications。对象是 Visual Basic 这一宏伟大厦的基石，在 Visual Basic 中进行的几乎任何操作都与修改对象有关。Word 的任何元素（如文档、段落、域、书签等），都可以用 Visual Basic 中的对象来代表。与平面列表中的命令不同，部分对象只能通过其他对象才能加以访问。例如，可以通过不同的对象（如 Style、Selection 和 Find 对象）来访问 Font 对象。应用加粗格式的编程任务就表明了两种编程语言之间的区别。下面的 WordBasic 指令对所选内容应用加粗格式。下面的示例是 Visual Basic 语句，也是对所选内容应用加粗格式。 Selection.Font.Bold = True Visual Basic 不包含 Bold 语句和函数，却有一个名为 Bold 的属性（属性通常指一个对象的特性，例如大小、颜色，或者是否是加粗）。Bold 是 Font 对象的一个属性。同样地，Font 是返回一个 Font 对象的 Selection 对象的一个属性。按照下面的对象结构，可以生成指令，以将加粗格式应用于所选内容。 Bold 属性是一个 Boolean 类型、可读写的属性。这意味着可以将 Bold 属性设置为 True 或 False（真或假），也可返回当前值。下面 WordBasic 指令的返回值表明是否将加粗格式应用于所选内容。 x = Bold（）下面的示例是 Visual Basic 语句，返回所选内容的加粗格式的状态。 x = Selection.Font.Bold 要在 Visual Basic 中执行一个任务，就需要确定合适的对象。例如，如果用户想应用【字体】对话框中的字符格式，可使用 Font 对象。然后需要确定如何理顺从 Application 对象到 Font 对象的 Word 对象结构，以找到包含需要修改的 Font 对象的对象。在确定了该对象的路径之后（例如，Selection.Font），可使用 Visual Basic 编辑器中的【对象浏览器】、【帮助】或【自动列表成员】之类的功能来确定可将什么属性和方法应用于该对象。将 WordBasic 宏转换为 Visual Basic 宏可使任务自动化，如果在 Word 中重复进行某项工作，可用宏使其自动执行。宏是将一系列的 Word 命令和指令组合在一起，形成一个命令，以实现任务执行的自动化。用户可创建并执行一个宏，以替代人工进行一系列费时而重复的 Word 操作。事实上，它是一个自定义命令，用来完成所需任务。宏的一些典型应用如：加速日常编辑和格式设置、组合多个命令、使对话框中的选项更易于访问、使一系列复杂的任务自动执行等。 Word 提供了两种创建宏的方法：宏录制器和 Visual Basic 编辑器。宏录制器可帮助用户开始创建宏。Word 在 VBA 编程语言中把宏录制为一系列的 Word 命令。可在 Visual Basic 编辑器中打开已录制的宏，修改其中的指令。也可用 Visual Basic 编辑器创建包括 Visual Basic 指令的非常灵活和强有力的宏，这些指令无法采用录制的方式。当第一次进行下列任何操作时，Word 2000 将自动转换 Word 6.x 或 Word 95 模板中的宏。

选型样本用英语怎么说

technologyselection例句以下例句来源于网络，仅供参考1.系统的项目包括长期的考虑和应用的设计与技术选型过程中的项目规划。systematicprojectsincludelong-termconsiderationandprojectplanningintheprocessofdesignandtechnologyselectionfortheapplication.

project表格高亮什么意思

新建Scheme + 修改字体ctrl+alt+s打开Settings界面，Editor 》 Colors&Fonts 》 Font。Default scheme是亮色调，但我想定制一套暗背景的环境，所以在右侧Scheme name下拉框中选择Monokai，以此作为修改的基础，然后点击Save as，给自己新建的Scheme起个名字吧，如下图：这里面可以设置字体（我一般选择Consolas），字体大小，行间距。自定义语法高亮用ctrl+alt+s打开Settings界面，Editor 》 Colors&Fonts。不同语言有各自的语法高亮规则，但有一部分是通用的（General），我们首先来设置General，然后再根据需要设置不同语言的语法高亮。General的设置普通文本：default text折叠文本: Folded text光标: Caret光标所在行: Caret row行号: Line numberTODO: TODO default光标下变量高亮：Search result搜索结果：Text search result匹配的括号：Matched brace不匹配的括号：Unmatched brace未使用的符号：Unused symbol左边空隙（行号，断点）：Gutter background选中的文本背景色：Selection background选中的文本前景色：Selection foreground区分语言的设置举例来说，如果要更改Javascript的语法高亮，就在上图中选择Javascript，然后再进行详细设置。具体设置项就不赘述了。显示行号 + 自动换行如果用Vim编程，行号是非常必要的辅助。WebStorm默认是不显示行号的，没关系，显示行号非常的容易。只要在代码左侧的gutter区域点右键，就会出现下图的菜单：勾选上Show Line Numbers即可。另外，勾选上图中的Use Soft Wraps就启用了WebStorm的自动换行的功能，即过长的代码行不会超出屏幕，不会出现横向的滚动条。值得一提的是，标准的Vim，jk是移到上一行下一行，如果代码自动换行了，被分割成的两行虽然看起来是两行，但其实是一个逻辑行，这时候用jk是上移下移一个逻辑行。这种情况下，如果要从同一逻辑行的“第一行”移动到“第二行”，需要按gj，即先按g再按方向。虽然Vim提供了这个方法，但还是经常按错。好消息是，启用了Use Soft Wraps的WebStorm不需要这样，直接按j就可以从同一逻辑行的“第一行”移动到“第二行”。导入导出设置File 》 Export Settings导出用户设置。如下图，你可以选择要导出哪些类型的设置，也可以选择导出到哪个目录下。导出后的配置以jar包的形式存在，导入也同样简单，File 》 Import Settings，选择jar包导入成功后，重启WebStorm就大功告成了。

WORD高级替换技巧

做下面之前，前先备份一下，你的这个word文档。（EXCEL宏有弄过一点，WORD的宏，这是第一次，很多函数不熟，下面的不简练）在word下按ALT+F11然后在左边的project(你的文件名) 比如:project (新建 Microsoft Word 文档)下面的Microsoft word对象中,双击 ThisDocument然后将下列两行单引号间的代码贴上去,你可以修改inch=“1“这一行’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’Sub insertchar() Dim i, line As Integer Dim para, para2 As String Dim a As Long Dim inch As String inch = “1“ ’要插入的字符,你可以修改这个 line = 1 Do ActiveDocument.Paragraphs(line).Range.Select Selection.HomeKey Unit:=wdLine para = ActiveDocument.Paragraphs(line).Range For i = 1 To Len(para) a = AscW(Mid(para, i, 1)) If 19968 《= a And a 《= 32767 Then Selection.MoveRight Unit:=wdCharacter, Count:=i - 1 Selection.TypeText Text:=inch Exit For End If Next i Selection.MoveDown Unit:=wdLine, Count:=1 line = line + 1 Loop Until line = ActiveDocument.Paragraphs.CountEnd Sub’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’然后保存,在此窗口下按F5，然后返回word窗口中，看一下，出果不出什么问题的话，应当是添加了“1“这个字符。

高分求教Word中如何实现倒计时

在Word中制作倒计时钟，主要利用VBA所提供的定时器功能。下面以2010年元旦为例。步骤如下：1、打开Word，新建一个空白文档，设置好字体、字形、字号等格式；2、按下“Alt+F11”组合键，进入VBA编辑器；3、按下“Ctrl+R”组合键，弹出工程资源管理器窗口，双击“Project”下的“ThisDocument”,打开代码窗口，输入以下代码： Sub Timer() ss=DateDiff(“s”, Now, “2010-12-31 24:00:00”) If ss》=0 Then Dd=ss\86400ss=ss-dd*86400hh=ss\3600ss=ss-hh*3600mm=ss\60ss=ss-mm*60Selection.HomeKey Unit:=wdstorySelection.EndKey Unit:=wdstory,Extend:=wdExtendSelection.Text=“距离2010年元旦还有” &vbCrLf & dd & “天”& hh & “小时”& mm & “分钟”& ss & “秒”Selection.Collapse Direction:=wdCollapseEndApplication.OnTime Now+TimeValue(“00:00:01”), “Timer”End IfEnd Sub4、按下“Alt+F8”组合键，打开“宏”，选中“Timer”，单击“运行”按钮返回，文档中即可出现一个倒计时钟了

如何高效地使用 Sublime Text

声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，谢谢。