Tag: macros

VBA拼写检查Excel中的特定单元格

除了别的之外，我正在使用一个macros来拼写检查我在Excel中创build的发票，然后保存它。 目前，它拼写检查整个工作簿。 我想拼写检查特定工作表的证书单元格（因为我不想拼写检查发票上的人名和地址）。 具体来说，我只想拼单检查表格“发票”中的单元格D15-D19和表格“安全检查”中的单元格D38， 有人能指出我正确的方向吗？ 这是我正在使用的，我想提炼的VBA代码： Option Explicit Sub SaveAsSafety() 'Saves filename as value of A1 plus the current date Application.CommandBars("Tools").Controls("Spelling…").Execute 'Invokes spell check Dim newFile As String, fName As String ' Don't use "/" in date, invalid syntax fName = Range("M9").Value 'Change the date format to whatever you'd like, but make sure it's in […]

如何将文件保存到使用vba的原始文件的位置？

我正在写一个简单的macros来做以下事情：1.删除所有格式2.取消隐藏所有隐藏的列3.保留四个指定的标签：“Forms”，“Fields”，“DataDictionaries”和“DataDictionaryEntries”4.保存在原始文件所在位置下的文件（带有这四个选项卡）。 这是我的代码： Sub removeformat() Dim sheetlist As Variant Dim sheet As Variant sheetlist = Array("Forms", "Fields", "DataDictionaries", "DataDictionaryEntries") For Each sheet In sheetlist Sheets(sheet).Activate Sheets(sheet).Cells.Select Selection.ClearFormats Sheets(sheet).Cells(1, 1).Select Sheets(sheet).Columns("A:IV").Hidden = False Next sheet Sheets(Array("Forms", "Fields", "DataDictionaries", "DataDictionaryEntries")).Copy ActiveWorkbook.SaveAs Filename:="File to Upload", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.Close End Sub 问题是第四步。 它不会保存到原始文件位置，而是保存到Excel默认位置。 你们能帮我解决这个问题吗？ 非常感谢！

使iOS应用程序具有与Excel工作表相同的function

我有一个Excel表.xlsm包含目前用于一些计算公式和macros。 它基本上是一个内置于Excel中的应用程序。 我需要做的就是把这个excel文件转换成可以在iPad上运行的应用程序。 问题是，下拉菜单，checkbox和大量的公式写在它和公式中，在Excel中有单元格和函数的引用，这真是令我困惑的是，当我在某个单元格中input某些值时，发现真正发生的事情。 另外，与之相关的VBA项目也受到密码保护。 有没有什么办法可以将这个excel文件的function转换为适用于iOS的应用程序。

为所有消息ID写单个函数

Iam新的Excel VBA，我开始写一个代码，执行得很好，但我需要一个build议如何编写一个函数，我不需要编写代码的所有“ID”。 例如：我有主工作表有ID（1000x，10000，2000X，20000）。 我想只search带有数字的ID而不是字母表，并将其与具有相同ID的另一个工作表进行比较，如果获得相应的ID第三列数据并将它们全部封装在主工作表中。 我在Coloumn A中拥有所有ID（10000,20000）的主工作表（“Tabelle1”），我想要ID 10000的B列中的ID为10000的信息。有时我有10000次四次。 要将信息粘贴到另一个工作表（“Test_2”），我想收集所有的10000和corrosponding数据。 Sub Update() If MsgBox("Are you sure that you wish to Update New Measurement ?", vbYesNo, "Confirm") = vbYes Then Dim erow As Long, erow1 As Long, i As Long erow1 = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To erow1 If Sheets("Tabelle1").Cells(i, 2) <> "10000" Then Sheets("Tabelle1").Range(Sheets("Tabelle1").Cells(i, 1), […]

为Excel VBAmacros循环设置“直到”端点

我对VBA几乎一无所知，需要一些帮助！ 我logging了一个简单的macros，它将插入一行，并在列B中find某个值（“select”）时执行一些相对剪切/粘贴操作。我希望此macros循环，直到达到数据集的末尾（记住macros的一部分插入更多的行）。 我已经得到它循环，做我想要的，但我不知道如何使它停止，不是无限的。 search空白不会有帮助，因为数据集中有几个空格。 希望有一个有用的Do Until代码？ 如果你有一个解决scheme，你可以请把它附加到我的macros在你的答复，所以我可以看到整个事情看起来如何？ 谢谢！！ Sub Macro6() ' ' Macro6 Macro ' Spacer ' ' Keyboard Shortcut: Ctrl+q ' Dim c As Range For Each c In Range("B1:B3000") Cells.Find(What:="choice", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate ActiveCell.Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ActiveCell.Offset(1, 0).Range("A1:B1").Select Selection.Cut ActiveCell.Offset(-1, 0).Range("A1").Select ActiveSheet.Paste ActiveCell.Offset(1, 0).Range("A1").Select […]

Excel VBAmacros将电子表格值与sql server表匹配

我有macros从Excel列A中取出单元格值，并在SQL Server数据库中检查该值，并在电子表格中返回数据。 现在我需要匹配电子表格列A和列B中的两列，如果条件为真，则返回电子表格中的所有数据。 我的macros工作正常单条件（列A），但是当我编辑我的SQL语句在macros中包括第二个条件（F列）我得到一个错误消息 运行时错误2147217913 800040e07。 这是我的macros： Sub GetSQLData() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim sConnString As String Dim newrow As String 'MODIFIED: create the search string for the IN-Statement newrow = "(" For i = 1 To Worksheets("Sheet1").Cells(Worksheets("Sheet1").Rows.Count, "A").End(xlUp).Row newrow = newrow & "'" & Left(Trim(Worksheets("Sheet1").Cells(i, "A").Value), 7) & "'," Next […]

如何使用macros将选定范围内的所有值减1

我已经search了类似的问题，但我遇到的问题是，我正在添加我正在寻找一个现有的loggingmacros使用像这样的命令： 范围（Selection，Selection.End（xlUp））。select select一个范围。

如何将相同的IF语句应用于同一列中的多个单元格？ （EXCEL）

我目前正在研究一个macros，为工作创build一个不同产品和选项代码的matrix。 我需要的大部分信息已经从我们运行的订单创build系统中导出。 然而，其中一个不导出的东西是对大约150个选项代码的描述。 每个选项代码都带有一个在单独工作表中概述的描述，所以不必总是引用其他工作表，而是决定使用IF语句将描述编程到代码中。 我的目标是编写一个程序，查看列中的每个选项代码，然后在相邻列中插入该选项代码的匹配描述。 例如：我的程序会说：如果活动单元格显示“AAAAA”，然后select一个单元水平偏移的单元格并插入“选项1”。 否则，如果它显示“BBBBB”，则插入另一个选项说明。 由于我们的产品订单总是在变化，我需要每周提供大约3000个产品的信息，所以我需要知道如何input一次我的条件，然后插入一段代码，告诉程序执行下一步（X）列中的选项数量，或者只要单元格中包含数据。 我很确定一个循环会解决我的问题，但我还没有find一个满足我的要求的循环脚本。 以下是我到目前为止： Private Sub Option_Matrix_2() 'Enters data for Option code Description into worksheet Range("G4").Select If ActiveCell.FormulaR1C1 = "AAAA" Then ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate ActiveCell.FormulaR1C1 = "Description 1" ElseIf ActiveCell.FormulaR1C1 = "CCCCC" Then ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate ActiveCell.FormulaR1C1 = "Description 2" ElseIf ActiveCell.FormulaR1C1 = "EEEEE" Then ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate ActiveCell.FormulaR1C1 = "Description 3" […]

试图复制工作表时超出范围错误

整个macros应从一个站点打开一个文件，然后复制一个特定的工作表并粘贴到另一个工作簿。 到目前为止，macros已打开，但未能复制并粘贴抛出“超出范围的错误”错误。 我正在修复该错误或打开工作簿，然后删除额外的表，我不想看到。 任何帮助将不胜感激！ Public Sub OpenFileFromWeb() ' Define Workbook and Worksheet Variables Dim wkbMyWorkbook As Workbook Dim wkbWebWorkbook As Workbook Dim wksWebWorkSheet As Worksheet Set wkbMyWorkbook = ActiveWorkbook ' Open The Web Workbook Workbooks.Open ("http://path.path.com/path/site/path/test_Data.xls") Sheets("Sheet3").Select ' Set the Web Workbook and Worksheet Variables Set wkbWebWorkbook = ActiveWorkbook Set wksWebWorkSheet = ActiveSheet ' Choose […]

如何在同一个单元格中插入新行

我有一个小的build议，因为我是新的Excel VBA， 我喜欢更新特定单元格（j，8）中的某个string，其中t是要更新的string，t从1到10不等。 我喜欢更新特定单元格中“alt enter”的t值 如果单元格已经填满，我喜欢添加新行 destlastrow = bsmWS.Range("A" & bsmWS.Rows.Count).End(xlUp).Row 'Checking the BSM/CMS/LDP/RCTA (Test Catalog) For j = 2 To destlastrow b = onlyDigits(bsmWS.Range("A" & j).value) If InStr(b, "T") Or InStr(b, "") = 0 Then ' Check if it Test case or Test case ID ' do something ElseIf InStr(b, "T") Or InStr(b, "D") […]