VBA中的一些代码

原创 2004年10月20日 12:54:00

 让OFFICE能识别文档中的文字
如果要让此程序能运行,要添加EXCEL的引用,只有EXCEL才有此功能
Sub SpeakIt()
    Set x = New Excel.Application
    x.Speech.Speak (ActiveWindow.Selection)
    Set x = Nothing
End Sub

让PPT能随机出题。
Slides 一个代表指定演示文稿中所有幻灯片的 Slides 集合。只读。

Sub RandomlyPlay()
    Dim num As Integer
    Randomize
    Dim i As Integer
   
    n = ActivePresentation.Slides.Count - 1
   
    i = Int(n * Rnd + 1)
  '  MsgBox i
    ActiveWindow.View.GotoSlide i
  
End Sub

'
Sub InsertTitle()
    Range("A1").Select
    ActiveCell.EntireRow.Select
 
    Selection.Copy
    ActiveCell.Offset(2, 0).Range("A1").EntireRow.Select
    Do While Not ActiveCell.Text = ""
   
    Selection.Insert Shift:=xlDown
    ActiveCell.EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(2, 0).Range("A1").EntireRow.Select
 

    Loop
    Application.CutCopyMode = False '2?′|óú???D?ò?′???£ê?
End Sub

VBA中的一些代码

 让OFFICE能识别文档中的文字如果要让此程序能运行,要添加EXCEL的引用,只有EXCEL才有此功能Sub SpeakIt()    Set x = New Excel.Application  ...
  • greystar
  • greystar
  • 2004年10月20日 12:54
  • 1483

欢迎使用CSDN-markdown编辑器

Sub RunGroup() ‘Test2 Macro Dim Sbrange As Range, WKC1 As String, Str As String, R2 As Integer, C2...
  • hkey266
  • hkey266
  • 2017年09月16日 09:48
  • 38

IFIX VBA的几个小窍门

 1、从后台调度中访问或修改全局变量的代码  描述:在iFIX中使用调度要后台运行的时候需要启动FixBackgroundServer程序,而该程序实际上是启动了独立于Workspace的进程,所以在...
  • lerit
  • lerit
  • 2009年08月23日 20:40
  • 4206

VBA 中代码里的中文 日文 拷贝 粘贴后出现乱码

VBA 中代码里的中文 日文 拷贝 粘贴后出现乱码 解决方法很简单: 只要将代码编辑器里的字符输入法,切换成需要拷贝文字的输入法。 譬如要拷贝中文,就切换到中文输入法,拷贝日文就切换到日文...
  • quickgu
  • quickgu
  • 2016年10月03日 14:43
  • 1036

excel工作表单元格操作小技巧

选择单元格:Range("A1").Select 选择连续的单元格:Range("A1:G8").Select 选择不连续的单元格:Range("A1,B6:B10,D9").Select 单元格间移...
  • gxiyv
  • gxiyv
  • 2007年04月26日 00:13
  • 2009

转:经典Excel VBA代码

转:经典Excel VBA代码 Application(Excel程序)篇Application.EnableEvents= True/ False ’启用/禁用所有事件Application.Dis...
  • Edream2
  • Edream2
  • 2007年11月03日 11:39
  • 1414

VBA - 封装我们的VBA代码

        Visual Basic for Applications(简称VBA)是新一代标准宏语言,是基于Visual Basic for Windows 发展而来的。VBA 提供了面向对象的...
  • LeosHope
  • LeosHope
  • 2007年07月01日 12:09
  • 3506

Excel 2010 中发生事件时运行 VBA 代码

Excel 2010 中发生事件时运行 VBA 代码 Office 2010              1(共 1)对本文的评价是有帮助 - 评价此主题              ...
  • superes
  • superes
  • 2013年05月31日 17:24
  • 1462

excel中利用vba合并多个sheet页和合并多个excel文档

合并sheet页, 合并excel文档, 合并工作表, 合并工作簿合并工作表(sheet)合并多个工作表 仅适用于每个sheet的第一行是数据头,数据从第二行开始。Sub 合并工作表() D...
  • win_turn
  • win_turn
  • 2017年07月20日 20:33
  • 446

VBA在Excel中的应用(一)

http://www.cnblogs.com/jaxu/archive/2009/04/04/1407004.html 目录  ActiveCell   ActiveWorkbook...
  • liuyukuan
  • liuyukuan
  • 2014年05月28日 20:09
  • 1077
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VBA中的一些代码
举报原因:
原因补充:

(最多只允许输入30个字)