代码
excel2010vba加密的方法
在Excel中除了可以利用设置外还可以利用VBA编程进行加密，利用VBA编程可以令加密更加严谨，下面是由小编分享的excel2010 vba加密的方法，希望对你有用。 excel2010 vba加密的方法 利用VBA加密步骤1：对想发布自己的Excel VBA的开发者来说，Excel VBA本身不提供VBA代码的加密，封装。目前比较最可靠的Excel VBA代码加密的方法，就是把VBA代码编译成DLL(动态链接库文件)，在VBA中调用，从而实现VBA代码的加密，封装，方便和Excel文件整合发布出去。DLL文件基本没法被破解，除此之外其他的VBA加密方法，都可以被轻易破解。用户只需要你的Excel文件，和这个dll文件就够了，不必安装其他任何程序。 利用VBA加密步骤2：编译成DLL文件其实很简单。机子上安装Visual Basic 6.0就可以编译成dll文件了，Visual Basic .Net反倒有点麻烦。Visual Basic通过OLE(对象链接引擎)技术调用Excel以及其中的对象。 利用VBA加密步骤3：总的来说，VBA代码只要做一些简单修改就可以了。主要是对Excel对象的引用，不然VB不能识别vba代码中的对象。比如如下的VBA代码 windows(workbook1).activate range("L50")=1 直接放进VB中编译成Dll就会有问题，因为VB不能直接识别range对象。 需要添加几行简单的代码来告诉vb怎么引用excel中的这些对象： dim xlapp as excel.applicatiion
excel2007工作簿合并的教程
Excel中的工作簿具体该如何合并呢?接下来是小编为大家带来的excel2007工作簿合并的教程，供大家参考。 excel2007工作簿合并的教程： 工作簿合并步骤1：将需要合并的excel工作簿文件放置在一个文件夹中。 工作簿合并步骤2：每个文件夹中的工作簿都输入了简单的内容。 工作簿合并步骤3：在该文件夹中，新建立一个新的excel工作簿文件。重命名为8. 工作簿合并步骤4：打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。 工作簿合并步骤5：在弹出的代码编辑窗口中，输入代码。注意：通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-VBA project模块，双击sheet1，即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。 工作簿合并步骤6：在代码窗口中，黏贴下列代码： Sub CombineFiles() Dimpath As String
Excel2010中实现输入两个字符自动切换单元格的操作方法
在数据输入时，经常要输入固定的字符数后，要按回车键，怎么实现输入后自动换单元格，提高输入速度。今天，小编就教大家在Excel2010中实现输入两个字符自动切换单元格的操作方法。 Excel2010中实现输入两个字符自动切换单元格的操作步骤如下： 你电脑上必须有一个能有运行Microsoft visual basic代码编辑器，因为这需要用VB代码来实现。打开EXCEL软件，选择你要输入数据的工作表。 右击工作表，选择查看代码。 在编辑区里拷入以下代码： Private Sub TextBox1_Change() If Len(Me.TextBox1.Text) <> 2 Then Exit Sub Me.TextBox1.Activate ActiveCell = Me.TextBox1.Text Me.TextBox1.Text = ""
excel利用VBA禁止打印工作簿
如果需要在某个工作簿中禁止打印工作表，可以用下面的方法来实现：在VBA编辑器“工程”窗口中，双击“ThisWorkBook”，在右边的代码窗口中输入下面的代码：Private Sub Workbook_BeforePrint(Cancel As Boolean)Cancel = TrueEnd Sub该代码使用了Workbook.BeforePrint事件，在打印工作簿之前执行代码。这样，当我们在该工作簿中选择“打印”或“打印预览”命令时，Excel将不会进行打印。
excel利用VBA获取系统特殊文件夹路径
Windows 特殊文件夹，包括 "Desktop" 文件夹、"MyDocuments" 文件夹等，如果我们要在VBA中用到这些文件夹，可以用下列代码来获取这些特殊文件夹的路径。Option ExplicitSub GetMyDocumentsPath()Dim WSHShell As ObjectSet WSHShell = CreateObject("Wscript. Shell") ‘请去掉Shell前的空格MsgBox "MyDocuments文件夹位于：" & WSHShell.SpecialFolders("MyDocuments")Set WSHShell = NothingEnd Sub说明：上述代码获取的是“MyDocuments”文件夹的路径，如果要获取其他特殊文件夹路径，可以将代码中的“MyDocuments”更换为下面的文件夹名称。如果指定的文件夹不存在，“SpecialFolders”属性返回空值。这些特殊文件夹有：AllUsersDesktop AllUsersStartMenu AllUsersPrograms AllUsersStartup Desktop Favorites Fonts MyDocuments NetHood PrintHood Programs Recent SendTo StartMenu Startup Templates
如何将excel公式打印到Word中
有时我们需要将指定单元格或区域中的公式打印出来，以便分析。下面的VBA代码可以实现这个功能，可以将选择的单元格或区域中的公式打印到Word中，方便打印。使用方法：1.单击菜单“工具→引用”，在弹出的“引用 VBAproject”窗口中，勾选“Microsoft Word 11.0 Object Library ”2.在VBA编辑器中，单击菜单“插入→模块”，在右侧的代码窗口中输入下列代码。Public Sub PrintFormulasToWord(Dim Cnt As StringDim C As RangeDim WordObj As Word.ApplicationDim HasArr As BooleanOn Error Resume NextErr.Number = 0Set WordObj = GetObject(, "Word.Application")If Err.Number = 429 ThenSet WordObj = CreateObject("Word.Application")Err.Number = 0End IfWordObj.Visible = TrueWordObj.Documents.Add
excel中利用VBA生成一列随机字符串 代码
用下面的VBA代码可以在A1:A100区域中生成由大小写字母和数字组成的12位长度的随机字符串，从中挑选几个作为密码用还是不错的。在Excel中按Alt+F11打开VBA编辑器，双击“工程”窗口中的某个工作表名称，在右侧的代码窗口中输入下列代码：Sub MakeRandomString()Dim J As IntegerDim K As IntegerDim iTemp As IntegerDim sNumber As StringDim RandomStr(1 To 100, 1 To 1) As StringDim bOK As BooleanRandomizeFor J = 1 To 100sNumber = ""For K = 1 To 12DoiTemp = Int((122 – 48 + 1) * Rnd + 48)Select Case iTempCase 48 To 57, 65 To 90, 97 To 122bOK = TrueCase ElsebOK = FalseEnd SelectLoop Until bOKbOK = FalsesNumber = sNumber & Chr(iTemp)Next KRandomStr(J, 1) = sNumberNext JRange("A1:A100").Value = RandomStrEnd Sub最后运行代码。如果要生成其他长度的随机字符串，将其中的For K = 1 To 12中的“12”改为其他数字即可，如：For K = 1 To 10即可生成10位长度的随机字符串。
excel利用VBA制作包含超链接的工作表目录
如果Excel工作簿中包含许多工作表，可以在一个工作表中列出所有工作表目录和相关说明，以方便在各工作表之间跳转。下面的VBA代码就可以实现这个功能，可以在某个工作表的第一列中产生其他工作表的目录列表及其超链接，单击工作表名称就可以跳转到相应的工作表中，并且可以在其他工作表的A1单元格中设置一个返回目录的超链接，单击可以返回到包含目录的工作表中。按Alt+F11，打开VBA编辑器，在“工程”窗口中双击要设置目录列表的工作表名称，在右侧代码窗口中输入下面的代码后运行：Sub CreateSheetsIndex()Dim wSheet As WorksheetDim i As Longi = 1With Me.Columns(i).ClearContents.Cells(1, 1) = "工作表目录".Cells(1, 1).Name = "目录"End WithFor Each wSheet In WorksheetsIf wSheet.Name <> Me.Name Theni = i + 1With wSheet.Range("A1").Name = "工作表" & wSheet.Index.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:="目录", ScreenTip:= _"跳转到“" & Me.Name & "”工作表", TextToDisplay:="返回目录"End WithMe.Hyperlinks.Add Anchor:=Me.Cells(i, 1), Address:="", SubAddress:="工作表" & wSheet.Index, _ScreenTip:="跳转到“" & wSheet.Name & "”工作表", TextToDisplay:=wSheet.NameEnd IfNext wSheetEnd Sub说明：1.由于上述代码会在所有工作表的A1单元格输入链接内容，所以运行代码前务必确保A1单元格为空。2.如果工作表有密码保护，请先解除保护。3.运行代码创建工作表目录列表后，如果又新建工作表或修改工作表名称，请再次运行代码。
excel打开工作簿时总是打开指定的工作表
通常在保存Excel工作簿时，如果某个工作表处于活动状态，下次打开这个工作簿时就会自动打开这个工作表。如果我们需要每次打开工作簿时总是打开指定的工作表，而无论保存时哪个工作表处于活动状态，可以用下面一个简单的VBA代码来实现：Private Sub Workbook_Open()Sheet3.ActivateEnd Sub按Alt+F11，打开VBA编辑器，在工程窗口中双击当前Excel文件名中的“ThisWorkBook”，在右侧的代码窗口中输入上述代码并保存，如图。 这样，每次打开工作簿时，Excel将自动打开“Sheet3”所对应的工作表，需要说明的是，这里的“Sheet3”不是工作表名称，而是工程窗口中的对象名称“Sheet3”，它对应的工作表名称是“汇总表”。当在Excel中更改工作表名称时，不会影响代码的运行，仍然会打开对象“Sheet3”对应的工作表。如果需要在代码中指定每次打开的工作表名称，可以用下面的代码：Private Sub Workbook_Open()Sheets("汇总表").SelectEnd Sub
excel批量提取超链接中的地址
如果Excel表格单元格中包含有许多用文本形式显示的超链接，如“给我发邮件”、“访问我的网站”等，要逐一查看所有超链接的地址，用手工的方法显得太繁琐，我们可以用自定义函数来批量提取这些超链接中的地址，将下列代码插入到标准模块中： Function GetURL(rng As Range) As StringOn Error Resume NextGetURL = rng.Hyperlinks(1).AddressEnd Function使用方法是在单元格中输入公式，假如单元格D6中含有超链接：=geturl(D6)还可以使用下面的代码将工作表中的所有超链接地址全部显示出来，运行代码前先备份工作簿，因为它会在含有超链接的单元格的右侧显示其地址，有可能会破坏工作表结构。Sub ExtractHL()Dim HL As HyperlinkFor Each HL In ActiveSheet.HyperlinksHL.Range.Offset(0, 1).Value = HL.AddressNextEnd Sub