vba

试试重装一下显卡驱动

不要在64位系统下安装32位的显卡驱动。

您好，很高兴能为您回答，这个看起来是C盘的某个安装软件，一般EXE的都是软件安装程序，如果说360一直阻止，那么很有可能您是下载了一些安装软件，其中一个有病毒，在后台安装，如果说您知道他的进程，您就可以打开资源管理器，在进程中将他关闭，再用360查杀，建议您使用腾讯电脑管家，想这样的user一般都是不存在的，那么很有可能那是病毒，您可以打开腾讯电脑管家的界面，那里有许多的病毒介绍，看看有没有相同的，如果说有建议您使用腾讯管家，360也不要卸载，360扫描一次，腾讯管家扫描一次（这里说明一次，那个一些还没有打开的杀毒引擎，例如小红伞，那些都要打开，查杀效果很好。）。肯定有一个是木马，可以联系黑客的木马，将他删除，并且打开C盘，将里面所有的隐藏文件打开，或者你就用搜索，在电脑里搜索OAWrapper.exe，找出来并且知道他的定点位置，将那个文件夹或者文件删除。如果说您喜欢我的答案，清选择我为满意答案，这里我还送您一个电脑管家安装软件，把他安装并扫描，谢谢!

假设n的值在你的控制之中，用以下for语句：range("a:a").clearcontents"清空原有公式fori=1toncells(i,1).formula="=b"&i&"+c"&inext

试试看这样写语句：Range(Cells(y, 2), Cells(y + ph_sl - 1, 2)).Formula = "=SUMIFS(基础资料!E:E,基础资料!C:C,A19,基础资料!J:J, """ & bz_mc(i) & """)"

Sub test()Dim na As Stringna = Sheet2.nameRange("A1").Formula = "=SUM(" & na & "!A:A)"End Sub

在Excel中，我们经常使用各种各样的公式来进行数据的计算分析和处理，在VBA中也不例外。本文将介绍VBA中使用公式的相关属性。下面我们就来学习一下关于VBA中的formular1c1的使用方法。详细说明：在VBA中，Range对象的Formula属性和FormulaR1C1属性可以让我们分别使用A1样式和R1C1样式的公式。官方说明：关于Formula属性和FormulaR1C1属性的官方说明两个属性都返回或者设置对象的公式，其中Formula属性表示使用A1引用样式表示法，FormulaR1C1属性表示使用R1C1样式引用。说明：如果单元格中是常量，则返回该常量。如果单元格为空，则返回空字符串。如果单元格中是公式，那么Formula属性以字符串形式返回该公式，该字符串与公式栏中显示的格式相同（包括等号）。如果设置单元格中的值或公式为日期格式，Excel将验证单元格是否已经格式化为日期或者时间数字格式。如果不是，Excel将修改数字格式为默认的短日期数字格式。如果单元格区域是一维或二维单元格区域，那么设置该公式为相同维度的VB数组。类似地，可以将公式放置到VBA数组中。设置多单元格区域的公式，使用该公式填充该区域内的所有单元格。以上就是Excel VBA formular1c1的使用方法及说明，希望对大家有所帮助。

代码中 | 干啥呀！去掉。

模拟器不对 或者游戏版本不对 去在下一个别的

12345678 Sub test()Dim i As IntegerOn Error Resume <a href="https://www.baidu.com/s?wd=Next&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3njnsmHw9uHI9nH-hnym40ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6K1TL0qnfK1TL0z5HD0IgF_5y9YIZ0lQzqlpA-bmyt8mh7GuZR8mvqVQL7dugPYpyq8Q1DYn10vnW6snjDvPWDdn1ckP1b" target="_blank" class="baidu-highlight">Next</a>For i = 1 To 5 MsgBox Cells(i, 1).Validation.Formula1<a href="https://www.baidu.com/s?wd=Next&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3njnsmHw9uHI9nH-hnym40ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6K1TL0qnfK1TL0z5HD0IgF_5y9YIZ0lQzqlpA-bmyt8mh7GuZR8mvqVQL7dugPYpyq8Q1DYn10vnW6snjDvPWDdn1ckP1b" target="_blank" class="baidu-highlight">Next</a> iOn Error GoTo 0End Sub

要修改和隐藏或系统文件的属性之前，先把它的属性去掉setattr filename , 0 "去掉所有的属性写完后又覆盖回来就行了！

添加渐进色的示例，你把range换成chart.chartarea应该是一样的。有不懂得追问我。Sub GradientDemo() Dim rng As Range Set rng = Range("B2:C10") rng.Cells.Merge Dim grd1 As LinearGradient rng.Interior.Pattern = XlPattern.xlPatternLinearGradient Set grd1 = rng.Interior.Gradient Dim cs As ColorStop grd1.Degree = 10 Set cs = grd1.ColorStops.Add(0.25) cs.Color = vbYellow cs.TintAndShade = 0.25 Set cs = grd1.ColorStops.Add(1) cs.Color = vbRedSet rng = Range("E2:F10") Dim grd2 As RectangularGradient rng.Interior.Pattern = XlPattern.xlPatternRectangularGradient rng.Cells.Merge Set grd2 = rng.Interior.Gradient grd2.RectangleLeft = 0.5 grd2.RectangleTop = 0.5 Set cs = grd2.ColorStops.Add(0.25) cs.Color = vbRed Set cs = grd2.ColorStops.Add(1) cs.Color = vbYellowEnd Sub

1新建一个空白工作簿，在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签，在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境，2在“代码窗口“中复制粘贴以下代码：Sub Dic() "定义字典对象变量 Dim oDic As Object "创建字典对象 Set oDic = CreateObject("Scripting.Dictionary") Dim arrKey Dim arrItem With oDic "添加键和项目(key,item),其中键不能重复 .Add 1, "a" .Add 2, "b"" 判断是否存在某个键 MsgBox .Exists(2) "把键2的项目修改为"d" .Item(2) = "d" "返回键的数组 arrKey = .keys "返回项目的数组 arrItem = .items "清空字典 .RemoveAll End With "释放字典对象，清空内存 Set oDic = NothingEnd Sub3以上代码是在VBA中使用字典对象的通用代码，任何具体的案例都可以在这个代码的基础上进行修改，建议收藏保存，避免每次使用字典对象时需要重复输入以上代码。具体的字典对象的所有属性、方法可以参考MSDN中的在线帮助。

使用汇总工具

我倒是会写

vba是编程语言vbh是游戏Venus Blood HYPNO

你好！你的电脑出现的这种情况是由于杀毒软件将办公软件Excel系统文件误杀造成的。解决办法：依次打开C:Documents and SettingsAdministratorApplication DataMicrosoftExcelXSTART这个EXCEL加载文件夹中多出一个StarUp.xls文件，直接将StarUp.xls删除就OK！具体如下：1、简介EXCEL表处理软件是美国微软公司研制的办公自动化软件OFFICE 中的重要成员，经过多次改进和升级，最新版本为EXCEL2000。它能够方便的制作出各种电子表格，使用公式和函数对数据进行复杂的运算;用各种图表来表示数据直观明了;利用超级链接功能，用户可以快速打开局域网或Interner上的文件，与世界上任何位置的互联网用户共享工作薄文件。2、软件Excel中大量的公式函数可以应用选择，使用Microsoft Excel可以执行计算，分析信息并管理电子表格或网页中的数据信息列表，可以实现许多方便的功能，带给使用者方便。与其配套组合的有：Word、PowerPoint、Access、InfoPath及Outlook,Publisher3、百科名片Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh操作系统的电脑而编写和运行的一款试算表软件。Excel 是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策操作，广泛地应用于管理、统计财经、金融等众多领域。

"下面是word2007的代码 Dim oJpg As Shape"图片文件名要带路径和扩展名 Set oJpg = ActiveDocument.Shapes.AddPicture(FileName:= _ "图片文件名", _ LinkToFile:=False, SaveWithDocument:=True)"With ActiveDocument.Shapes(1)With oJpg With .PictureFormat .TransparentBackground = msoTrue .TransparencyColor = RGB(0, 0, 0) "透明色，根据实际修改 End With .Fill.Visible = FalseEnd WithSet oJpg = Nothing"下面是Excel2007的代码 Dim oShape As Shape Set oShape = ActiveSheet.Shapes.AddPicture("图片文件名", True, True, 60, 60, 60, 60)With oShape .PictureFormat.TransparentBackground = msoTrue .PictureFormat.TransparencyColor = RGB(0, 0, 0) " RGB(212, 208, 200) .Fill.Visible = msoFalseEnd With Set oShape = Nothing

selection 说白了就是选择的区域range，下面可以给你参考一下，希望能给你帮助Range.Replace 方法 返回 Boolean，它表示指定区域内单元格中的字符。使用此方法并不会更改选定区域或活动单元格。语法表达式.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)表达式 一个代表 Range 对象的变量。参数名称 必选/可选 数据类型 描述 What 必选 Variant Microsoft Excel 要搜索的字符串。 Replacement 必选 Variant 替换字符串。 LookAt 可选 Variant 可为以下 XlLookAt 常量之一：xlWhole 或 xlPart。 SearchOrder 可选 Variant 可为以下 XlSearchOrder 常量之一：xlByRows 或 xlByColumns。 MatchCase 可选 Variant 如果为 True，则搜索区分大小写。 MatchByte 可选 Variant 只有在 Microsoft Excel 中选择或安装了双字节语言时，才能使用此参数。如果为 True，则双字节字符只与双字节字符匹配。如果为 False，则双字节字符可与其对等的单字节字符匹配。 SearchFormat 可选 Variant 该方法的搜索格式。 ReplaceFormat 可选 Variant 该方法的替换格式。 返回值Boolean说明每次使用此方法后，参数 LookAt、SearchOrder、MatchCase 和 MatchByte 的设置都将被保存。如果下次调用此方法时不指定这些参数的值，就使用保存的值。设置这些参数将更改“查找”对话框中的设置，如果省略这些参数，更改“查找”对话框中的设置将更改使用的保存值。要避免出现这一问题，每次使用此方法时请明确设置这些参数。示例本示例将每个“SIN”三角函数都替换为“COS”函数。替换所进行的区域为工作表 Sheet1 中的 A 列。Visual Basic for Applications Worksheets("Sheet1").Columns("A").Replace _ What:="SIN", Replacement:="COS", _ SearchOrder:=xlByColumns, MatchCase:=True

我知道，但我不知你是否诚信，请给我邮箱，采纳后我会解答

太长，翻译完了，也会因为字数限制，没办回答这里面很多重复的 Columns("Y:Y").Select 选择Y列 Selection.Cut 把选中的区域剪切，这里即剪切Y列下面的该类型的意思一样，只是操作的区域不同selection.TextToColumns Destination。。。省略N字！ 分列功能，配合上句这条的意思是用间隔符"&"对AE列分列，分列后的参考位置为AE1单元格后面那几条类似，只是间隔符改一下。Selection.Insert Shift:=xlToRight这里，配合上条，是插入一列，在当前选中的区域右移Rows("2:2").Select，选择第二行Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove插入一行，单元格向下移动，格式同上行，其实后面的可以省略Selection.Copy复制选中区域－－－－－这不是翻译给谁的吧，这完全是别人录制的宏

VBA连接oracle数据库小 "システム共通変数Public ORA_SE As Object "OracleのセッションオブジェクトPublic ORA_DB As Object "Oracleの接続オブジェクト"******************************************************************************" uff8cuff9fuff9buff7cuff70uff7cuff9euff6c名 : Ora_Connect" 概要 : Oracle接続" uff8auff9fuff97uff92uff70uff80 : なし" 说明 :Oracleへの接続を行う"******************************************************************************"Public Sub Ora_Connect()Public Function Ora_Connect() Dim rt As IntegerOn Error GoTo err Set ORA_SE = CreateObject("OracleInProcServer.XOraSession")"Set ORA_DB = ORA_SE.OpenDatabase("数据库连接词", "用户名/密码", 0&) Set ORA_DB = ORA_SE.OpenDatabase("combcm", "combcm/combcm", 0&)Exit Functionerr:End Function"******************************************************************************" uff8cuff9fuff9buff7cuff70uff7cuff9euff6c名 : Ora_DisConnect" 概要 : Oracle切断" uff8auff9fuff97uff92uff70uff80 : なし" 说明 : Oracleの切断を行う"******************************************************************************"Public Sub Ora_DisConnect()Public Function Ora_DisConnect() Set ORA_SE = Nothing Set ORA_DB = NothingEnd FunctionPublic Function getData() "该当なし If OraDynaset.EOF = True Then Set OraDynaset = Nothing Exit Function Else "2004/03/06 add rec_cntを2して2行目から书き出す "rec_cnt = 2 "Do While Not OraDynaset.EOF "For row_cnt = 0 To OraDynaset.Fields.Count - 1 " Cells(rec_cnt, row_cnt + 1).Value = OraDynaset(row_cnt).Value "Next row_cnt "2004/11/26 クリップボードを介した方法でスピードアップ対応。 "从数据库中取出数据 OraDynaset.CopyToClipboard Cells(2, 1).Select ActiveSheet.Paste rec_cnt = OraDynaset.RecordCount "OraDynaset.DbMoveNext "rec_cnt = rec_cnt + 1 "Loop End Ifend function

这句代码是错误的，运行出错。有完整的代码可以发上来看看。应该如下：Sheet*.Rows(i).Copy。复制工作表i行Sheet*.Range("A65536").End(xlUp).Offset(1, 0) 。A列最后一个飞空非空单元格的下面一个单元格

你放到什么事件中???截图看下

u2002u2002u2002u2002是返回指定 Range区域中第一行所在的 u2002u2002u2002u2002返回工作表或某个区域中所在行组成的集合，返回的是 Range对象

rows是行columns是列Columns("a:c").ClearContents

1、首先，打开或者新建一个Excel表格，如下图所示。2、然后，按下Alt+F11组合键，打开VBA编辑界面，点击左侧相应的工作表，出现右侧空白的代码编辑区，如下图所示。3、编写代码如下图所示。4、将光标放在代码中间，点击“运行子程序”，如下图所示。5、关闭VBA界面，返回Excel，就可以看到B1:D10内的原本合并的单元格都取消了合并，如下图所示。

就是第52行的意思， 和 rows("52") 一个意思，

hang="10:10,11:11,15:15,16:16"

rows(a & ":" & b).select

rows(i & ":" & i+10)

可以

rnd()得0~1随机数，则rnd()*(5-2)得0~3随机数，那么x=rnd()*(5-2)+2得2~5随机数；同理y得2~6随机数。希望能帮到您。

[A1].Interior.colorIndex = 6 "这是调色板上的颜色序号[A1].Interior.Color = RGB(120, 120, 255) "这是真正的颜色，16进制MsgBox Hex([A1].Interior.Color) "查看颜色的16进制值，可以用这个作为对比，并进行判断

刷机精灵怎么刷机

　　你在这一行.range(columns(12),columns(18)).delete代码上面加一行代码,跟踪看看行号和列号debug.print aq有这么大的列吗?你的a可能有10000excel表了行号有这么大,列号最大256列

使用Range吧，Range可以选择多列，而Columns("3:5").Select就会报1004错，你的语句可以这样写：Range(Cells(1, col + 1), Cells(1, col + 5)).EntireColumn.Select例子效果图：

Sub a()Dim i As IntegerDim j As Integeri = 1j = 5ActiveSheet.Columns(i).Resize(, j).columnwidth =6End Sub

将单元格的值赋给数组，数组必须是二维数组。所以这句 ID = IDs(i) 应改为：ID = IDs(i,1)另外还要注意，调用函数时传递的参数i不能大于n-2

改为Function PicInComment(Optional ByVal PicReserve As Integer, Optional ByVal WidthEdge As Integer )再试试使用语句PicInComment(1,400)你这样固定参数的直接将function 改成sub就可以了。function就是可以传参数给它 进行计算的！

怎么会是方法，你看错了吧？

另存文件使用workbook的saveas方法，例如：ThisWorkBook.SaveAs "c:123.xls"

Windows 命令脚本

word本身不能另存为pdf格式，你用菜单另存为就可以看到可以转哪几种格式了pdf格式要用专门的转换工具或专用的word插件

你的问题搞定了吗

在outlook vba查看 “视图”——“对象浏览器”，未搜到Ontime方法建议定时发邮件 通过 MailItem对象的DeferredDeliveryTime属性进行延时发送邮件。这个属性就是手动发邮件时设置的“延迟传递”

微软决定让office,如:word,excel,powerpointt等开发出来的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言VASUAL BASIC 的子集.实际上VBA是"寄生于"VB应用程序的版本.Vba 就是宏语言.不同之处:1. VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL 等) 动 化2. VB具有自己的开发环境,而VBA必须寄生于已有的应用程序.3. 要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是 可执行文件(*.EXE),而VBA开发的程序必须依赖于它的"父"应用程序,例如EXCEL.而控件就是办公软件或说办公程序上一些浮动的面板---窗体,上的相应标签或控制按钮.它一般和宏结合使用,使应用更完美,健全,便捷

http://yunpan.cn/QtB7tNKaiQLn9是这个吗？内置图标？

sub test()dim t as singlet=timer。。。。。中间部分是你的程序msgbox"运行时间：”& format(timer-t,"0.00")end sub

指定位置就行了

一脸懵逼

len（）是什麽函数你知道吗？ len()返回的是字节数 long是4个字节的

这两个过程的适用范围不同Private Sub Worksheet_Change(ByVal Target As Range)" 定义VBA，并规定了该VBA只能作用于工作表，并随时监控工作表的变化Private Sub Worksheet_SelectionChange(ByVal Target As Range)而这个是对表的选择为执行条件,也就是点一下工作表所以在表页上有什么要处理的都是用下面这个过程,对表的控制或有加载项需要处理一般都放在Private Sub Workbook_Open()End Sub如果想不影响日常使用excel,又想间隔一段时间看一下最新数据,就放模块里面去,他可以让你在指定时间更新,也可以指定隔多少时间更新,非常方便Private Sub auto_open()Application.OnTime TimeValue("16:50:00"), "my_Procedure"End Sub

http://club.excelhome.net/forum.php?mod=viewthread&tid=907145 这个方法行不行啊！？

下面代码试试Sub dd() ActiveDocument.Paragraphs(1).Range.Select Selection.Find.Execute FindText:="1", ReplaceWith:="*", Replace:=wdReplaceAllEnd Sub

Sub ExcuteMe()"选择目录Set objFD = Application.FileDialog(msoFileDialogFolderPicker)With objFD If .Show = -1 Then" 如果单击了确定按钮，则将选取的路径保存在变量中 sPath = .SelectedItems(1) End If End WithApplication.ScreenUpdating = 0Application.DisplayAlerts = 0Debug.Print sPath"查找该目录下的文档f$ = Dir(sPath & "*.docx")Do While f <> "" Target = (sPath & "" & f) Debug.Print Target Documents.Open Target FindTextInRange ActiveDocument.Range ActiveDocument.Save ActiveDocument.Close f = Dir Loop End SubFunction FindTextInRange(FindRange As Range) With FindRange.Find .ClearFormatting .Text = "1:[0-9]00" .Replacement.Text = "1:500" .Forward = True .Wrap = wdFindStop .MatchWildcards = True .Execute Replace:=wdReplaceAll End WithEnd Function

在VBA中写一个模块，在模块中写docmd.RunMacro("宏名")即可

olor属性即可。

FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中,它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象。

Sub 读取txt多列内容()On Error Resume NextSet fso = CreateObject("scripting.filesystemobject")Set sfile = fso.opentextfile(ThisWorkbook.Path & "1.txt")txtline = txtline & sfile.readallMsgBox txtlinearr = Split(txtline, vbCrLf)Cells(1, 1).Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)Columns("A:A").TextToColumns Tab:=TrueSet sfile = Nothing: Set fso = NothingEnd Sub

我做过WORD中的VBA，不知道兄弟是要在什么环境中运行的。不同环境，有些函数是有区别的

如果txt文件中的数据是由逗号分隔，试试下面的代码：Sub TXT导入到EXCEL() "把由逗号分隔的TXT数据导入EXCELApplication.ScreenUpdating = False "关闭屏幕刷新Const ForReading = 1 "打开一个只读文件Set fso = CreateObject("Scripting.FileSystemObject") "创建文本对象Set fd = Application.FileDialog(msoFileDialogOpen) "创建“打开”对话框对象If fd.Show = -1 Then "如果选择了文件 FileName = fd.SelectedItems(1) "记录文件路径(指定文本文件名)Else "如果没有选择文件 MsgBox "没有选择文件，请重新操作！", , "导入到EXCEL" Exit Sub "退出程序End IfSet sFile = fso.OpenTextFile(FileName, ForReading) "创建并打开名为sFile的TextStream对象i = 1 "设置输入单元格的起始行号Do While Not sFile.AtEndOfStream "如果不是文本文件的尾端，则读取数据 LineText = sFile.ReadLine "从文本文件中依次读取一行数据为字符串 d = InStr(LineText, "，") "计算这行数据从左向右第一个全角逗号的位置 If d > 0 Then "如果全角逗号存在 TH = Replace(LineText, "，", ",") "把字符串中的全角逗号替换成半角逗号 FJ = Split(TH, ",") "把由半角逗号分隔的字符串TH写入数组FJ ElseIf d = 0 Then "如果全角逗号不存在 FJ = Split(LineText, ",") End If For iCol = LBound(FJ) To UBound(FJ) "从数组中读取数据并写入对应的单元格 ThisWorkbook.ActiveSheet.Cells(i, iCol + 1) = FJ(iCol) Next iCol i = i + 1 "滚动到下一个写入数据的单元格行 LoopsFile.CloseSet fso = NothingSet fd = NothingSet sFile = NothingApplication.ScreenUpdating = False "关闭屏幕刷新End Sub注意：按Alt+F11打开宏编辑器，插入模块，粘贴上述代码后，在要导入TXT文件的当前工作表中制作一个命令按钮链接宏即可操作。

Excel对PDF就好像鸡同鸭讲，不是一个系统怎么统计？

<DIV class=cnblogs_Highlighter><PRE class=brush:csharp;gutter:false;> <DIV class=cnblogs_Highlighter><PRE class=brush:csharp;gutter:false;>Sub cal() Dim wN As Double "北 Dim wNNE As Double "北东北 Dim wNE As Double "东北 Dim wENE As Double "东东北 Dim wE As Double "东 Dim wESE As Double "东东南 Dim wSE As Double "东南 Dim wSSE As Double "南东南 Dim wS As Double "南 Dim wSSW As Double "南西南 Dim wSW As Double "西南 Dim wWSW As Double "西西南 Dim wW As Double "西 Dim wWNW As Double "西西北 Dim wNW As Double "西北 Dim wNNW As Double "北西北 Dim vN As Double "北 Dim vNNE As Double "北东北 Dim vNE As Double "东北 Dim vENE As Double "东东北 Dim vE As Double "东 Dim vESE As Double "东东南 Dim vSE As Double "东南 Dim vSSE As Double "南东南 Dim vS As Double "南 Dim vSSW As Double "南西南 Dim vSW As Double "西南 Dim vWSW As Double "西西南 Dim vW As Double "西 Dim vWNW As Double "西西北 Dim vNW As Double "西北 Dim vNNW As Double "北西北 Dim num As Integer "1-12 Dim i As Integer "6-66 Dim j As Integer "3-26 Dim nameid As Integer "1-15 For num = 1 To Sheets.Count For i = 6 To 66 Step 2 For j = 3 To 26 If Sheets(num).Cells(i, j) <> "" Then If Sheets(num).Cells(i, j) > 348.76 Or Sheets(num).Cells(i, j) < 11.25 Then If Sheets(num).Cells(i + 1, j) > 5# Then wN = wN + 1 vN = vN + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 11.26 And Sheets(num).Cells(i, j) < 33.75 Then If Sheets(num).Cells(i + 1, j) > 5# Then wNNE = wNNE + 1 vNNE = vNNE + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 33.76 And Sheets(num).Cells(i, j) < 56.25 Then If Sheets(num).Cells(i + 1, j) > 5# Then wNE = wNE + 1 vNE = vNE + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 56.26 And Sheets(num).Cells(i, j) < 78.75 Then If Sheets(num).Cells(i + 1, j) > 5# Then wENE = wENE + 1 vENE = vENE + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 78.76 And Sheets(num).Cells(i, j) < 101.25 Then If Sheets(num).Cells(i + 1, j) > 5# Then wE = wE + 1 vE = vE + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 101.26 And Sheets(num).Cells(i, j) < 123.75 Then If Sheets(num).Cells(i + 1, j) > 5# Then wESE = wESE + 1 vESE = vESE + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 123.76 And Sheets(num).Cells(i, j) < 146.25 Then If Sheets(num).Cells(i + 1, j) > 5# Then wSE = wSE + 1 vSE = vSE + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 146.26 And Sheets(num).Cells(i, j) < 168.75 Then If Sheets(num).Cells(i + 1, j) > 5# Then wSSE = wSSE + 1 vSSE = vSSE + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 168.76 And Sheets(num).Cells(i, j) < 191.25 Then If Sheets(num).Cells(i + 1, j) > 5# Then wS = wS + 1 vS = vS + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 191.26 And Sheets(num).Cells(i, j) < 213.75 Then If Sheets(num).Cells(i + 1, j) > 5# Then wSSW = wSSW + 1 vSSW = vSSW + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 213.76 And Sheets(num).Cells(i, j) < 236.25 Then If Sheets(num).Cells(i + 1, j) > 5# Then wSW = wSW + 1 vSW = vSW + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 236.26 And Sheets(num).Cells(i, j) < 258.75 Then If Sheets(num).Cells(i + 1, j) > 5# Then wWSW = wWSW + 1 vWSW = vWSW + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 258.76 And Sheets(num).Cells(i, j) < 281.25 Then If Sheets(num).Cells(i + 1, j) > 5# Then wW = wW + 1 vW = vW + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 281.26 And Sheets(num).Cells(i, j) < 303.75 Then If Sheets(num).Cells(i + 1, j) > 5# Then wWNW = wWNW + 1 vWNW = vWNW + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 303.76 And Sheets(num).Cells(i, j) < 326.25 Then If Sheets(num).Cells(i + 1, j) > 5# Then wNW = wNW + 1 vNW = vNW + Sheets(num).Cells(i + 1, j) End If ElseIf Sheets(num).Cells(i, j) > 326.26 And Sheets(num).Cells(i, j) < 348.75 Then If Sheets(num).Cells(i + 1, j) > 5# Then wNNW = wNNW + 1 vNNW = vNNW + Sheets(num).Cells(i + 1, j) End If End If End If Next j Next i """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" Dim filename As String filename = "" For nameid = 1 To 15 filename = filename & Sheets(num).Cells(4, nameid) Next nameid """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" Dim sFile As Object, FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") Set sFile = FSO.CreateTextFile("C:" & filename & ".txt", True) sFile.WriteLine ("wN" & vbTab & wN) sFile.WriteLine ("wNNE" & vbTab & wNNE) sFile.WriteLine ("wNE" & vbTab & wNE) sFile.WriteLine ("wENE" & vbTab & wENE) sFile.WriteLine ("wE" & vbTab & wE) sFile.WriteLine ("wESE" & vbTab & wESE) sFile.WriteLine ("wSE" & vbTab & wSE) sFile.WriteLine ("wSSE" & vbTab & wSSE) sFile.WriteLine ("wS" & vbTab & wS) sFile.WriteLine ("wSSW" & vbTab & wSSW) sFile.WriteLine ("wSW" & vbTab & wSW) sFile.WriteLine ("wWSW" & vbTab & wWSW) sFile.WriteLine ("wW" & vbTab & wW) sFile.WriteLine ("wWNW" & vbTab & wWNW) sFile.WriteLine ("wNW" & vbTab & wNW) sFile.WriteLine ("wNNW" & vbTab & wNNW) """""""""""""""""""""""""""""""""" sFile.WriteLine ("vN" & vbTab & vN) sFile.WriteLine ("vNNE" & vbTab & vNNE) sFile.WriteLine ("wNE" & vbTab & wNE) sFile.WriteLine ("vENE" & vbTab & vENE) sFile.WriteLine ("vE" & vbTab & vE) sFile.WriteLine ("vESE" & vbTab & vESE) sFile.WriteLine ("vSE" & vbTab & vSE) sFile.WriteLine ("vSSE" & vbTab & vSSE) sFile.WriteLine ("vS" & vbTab & vS) sFile.WriteLine ("vSSW" & vbTab & vSSW) sFile.WriteLine ("vSW" & vbTab & vSW) sFile.WriteLine ("vWSW" & vbTab & vWSW) sFile.WriteLine ("vW" & vbTab & vW) sFile.WriteLine ("vWNW" & vbTab & vWNW) sFile.WriteLine ("vNW" & vbTab & vNW) sFile.WriteLine ("vNNW" & vbTab & vNNW) sFile.Close Set sFile = Nothing Set FSO = Nothing Next num MsgBox "计算完成" End Sub </PRE> </DIV> </PRE> </DIV>

改Path呀，不要去改SFile，后面有好几个地方要引用这个名字，

用VBA操作MATCH函数的要点：1、使用前要写一句 On Error Resume Next2、使用方法： application.WorksheetFunction.Match(,,,)例子：查询值：B1单元格，查询区域A列，得到的数字赋给变量ySub abc() Dim y On Error Resume Next y = Application.WorksheetFunction.Match(Range("b1"), Columns("a"), False) MsgBox yEnd Sub

用range对象的pastespecial方法，可以选择粘贴格式，值和数字格式的常量是xlpastevaluesandnumberformats:usedrange.copysheet1.range("a"&......).pastespecial xlpastevaluesandnumberformats

其实就是一个拆分代码

Call UserForm_Initialize()

initialize是窗体初始化期间完成的事件activate是窗体初始化完成后处于激活状态时的事件

Java 给Excel添加数字签名 Excel VBA使用数字签名。Excel中可添加数字签名以供文档所有者申明文档的所有权或有效性。下面介绍如何在Java程序代码中实现给Excel工作簿添加签名。工具/材料Excel版本：2013编译环境：IntelliJ IDEA2018JDK版本：1.8.0Excel库工具：spire.xls.jar 4.3.4数字证书及密码操作方法01在IDEA项目文件夹路径下，存入一个Excel文件，版本为2013版本的xlsx文件;以及已知密码的pfx格式的数字证书。如图：02在idea项目引入excel库工具spire.xls.jar的包，如图：03在程序中键入如下代码：import com.spire.xls.*;import com.spire.xls.digital.CertificateAndPrivateKey;import java.util.Date;public class AddSignature {public static void main(String[] args) throws Exception {//加载Excel工作簿Workbook wb = new Workbook();wb.loadFromFile("test.xlsx");//添加数字签名wb.addDigitalSignature(new CertificateAndPrivateKey("cer.pfx","123654yes!"), "The Author is Mia",new Date());//保存文档wb.saveToFile("AddSignature.xlsx",ExcelVersion.Version2013);wb.dispose();}}04执行程序，生成文档。在结果文档中查看签名添加效果：1. 添加签名import com.spire.xls.*;import com.spire.xls.digital.CertificateAndPrivateKey;import java.util.Date;public class AddSignature {public static void main(String[] args) throws Exception {//加载Excel工作簿Workbook wb = new Workbook();wb.loadFromFile("test.xlsx");//添加数字签名wb.addDigitalSignature(new CertificateAndPrivateKey("cer.pfx","123654yes!"), "The Author is Mia",new Date());//保存文档wb.saveToFile("AddSignature.xlsx",ExcelVersion.Version2013);wb.dispose();}}2.检测是否签名import com.spire.xls.*;public class DetectSignature {public static void main(String[] args) {//加载Excel工作簿Workbook wb = new Workbook();wb.loadFromFile("AddSignature.xlsx");//判断文档是否签名boolean signature = wb.isDigitallySigned();if(signature==true){System.out.println("文档已签名!");}else{System.out.println("未签名文档!");}}}3.删除签名import com.spire.xls.*;public class RemoveSignature {public static void main(String[] args) {//加载Excel工作簿Workbook wb = new Workbook();wb.loadFromFile("AddSignature.xlsx");//删除签名wb.removeAllDigitalSignatures();//保存文档wb.saveToFile("RemoveSignature.xlsx",ExcelVersion.Version2013);wb.dispose();}}执行程序代码后，生成的结果文档中不再有签名。特别提示代码中的路径为IDEA项目文件夹路径，路径也可另外自定义。

line：Cells(i, 3) = "error"不在循环之内。

语句本身没有问题，问题出在不是操作查询上。我试过，如果是操作查询，类似的语句是可以执行的。如:docmd.RunSQL"INSERTINTO表2(字段a,字段B)SELECTDISTINCT表1.字段a,定额.字段BFROM表1WHERE(((表1.字段a)="&"""&tuhao&"""&"))ORDERBY表1.字段B"建议换方式查询。

错在这项 jieqv(Range("K1").Validation.Formula1)你打错或没有定义 jieqv--**--你能写得出这个宏，已是不错。可惜或可能，你是抄书的，或是录的。你用的方法是正统，但不实用。

此处的r应该是Range类型的对象，Range.Merge表示把区域进行合并。

你没有获得授权吧

程序和执行效果如下图：下面的程序代码仅供参考，浏览器有可能偷吃：Option ExplicitSub 宏1()Dim arr, i&, n&n = Sheets.CountReDim arr(3 To n)For i = LBound(arr) To UBound(arr)arr(i) = iNext iSheets(arr).SelectEnd Sub

sheets(array(1,3))这种表达是指看得见的SHEET编号要想将隐藏的可见，必须将隐藏的表的表名讲清楚

本工作簿起始的第一个表格。

因为你的程序选定只在sheet1运行。所以其它sheet运行时会出错。