Tag: excel 2010

Excel 2010保护工作表不lockingcheckbox

我有一个包（列）/function（行）selectmatrix的Excel表。 我在单个单元格中使用了checkbox表单控件（开发人员选项卡），以便让客户select在什么产品中使用哪些function。 一切工作正常。 现在我想locking这张表来进行意外修改。 我试图保护表格，但是checkbox仍然打开供select或取消select。 如何保护checkbox以便意外地select或取消select（需要修改密码）？ 对不起，不允许在这里附上图片…

VBA Excel代码条码扫描

我有这个Excel电子表格，我正在使用条形码扫描器，每次我用条形码扫描器捕获的东西光标跳过一列。 例如，在A3单元格中，信息被捕获，所以光标将移动到C3，在C3我捕获另一个条形码，光标将移动到E3等; 一旦在G3，应该回到A4捕捉另一个盒子。 这是我的代码….. Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Whoa Application.EnableEvents = False If Not Target.Cells.CountLarge > 1 Then If Not Intersect(Target, Columns(1)) Is Nothing Then Target.Offset(, 1).Select ElseIf Not Intersect(Target, Columns(2)) Is Nothing Then Target.Offset(, 1).Select ElseIf Not Intersect(Target, Columns(3)) Is Nothing Then Target.Offset(, 1).Select ElseIf Not Intersect(Target, Columns(4)) Is […]

我怎样才能读取Excel中的单元格与C＃？

我想在C＃中做一个excel工具。 该工具必须打开文件夹中的每个excel文档，并在单元格E1中查找值。 如果单元格保存我search的值，它将被删除，文档将被保存。 然后，应用程序将转到下一个excel文件。 我可以打开文档，但是我不能在单元格中查看值。 在这里我的代码： using Microsoft.Office.Interop.Excel; //Preparing the required items Microsoft.Office.Interop.Excel.Application excel = null; Workbook wb = null; //Start Excel excel = new Microsoft.Office.Interop.Excel.Application(); excel.Visible = false; try { //Open file wb = excel.Workbooks.Open( @"C:\Users\….", ExcelKonstanten.UpdateLinks.DontUpdate, ExcelKonstanten.ReadOnly, ExcelKonstanten.Format.Nothing, "", //Password "", //WriteResPasswort ExcelKonstanten.IgnoreReadOnlyRecommended, XlPlatform.xlWindows, "", //Separator ExcelKonstanten.Editable, ExcelKonstanten.DontNotifiy, ExcelKonstanten.Converter.Default, ExcelKonstanten.DontAddToMru, ExcelKonstanten.Local, ExcelKonstanten.CorruptLoad.NormalLoad); //Read […]

如何保持第一个单元格始终使用vba在Excel中处于活动状态

如何在打开Excel表单时始终保持第一个单元格处于活动状态。 任何人都可以指导我如何做到这一点。 这是我的代码： Private Sub Send_Click() Dim strURL As String strURL = "http://xxxxxxxxxxxx.com/excelAPI.php?customer_id=1&mobilenumber=" _ & ActiveCell.Value & "&message=" & ActiveCell.Offset(0, 1).Value Call Sheets("Sheet1").WebBrowser4.Navigate(strURL) End Sub

为什么这个循环不能正常工作？ 我不断收到对象“_Global”失败的方法“范围”失败

我试图绘制lnD和i，其中i是x轴，lnD是y轴。 我有一个方程，我正在为我放入一系列的值，并尝试检索lnD的值。 但是，我遇到了一个奇怪的问题。 首先，这里是代码。 我应该注意到，它导致我的Excel冻结了几秒钟，但它不会崩溃或什么： Tracker = 0 Alpha = -1.593975 Beta = -334.6942 For i = 0 To 0.1 Step 0.01 Tracker = Tracker + 1 lnD = Beta * i + Alpha Range("XFB" & Tracker).Value = i Range("XFC" & Tracker).Value = lnD Next i 我收到对象“_Global”失败的“方法范围”错误。 而当我看数据应该是哪些列时，它只是i = 0和lnD = -1.593975，重复一遍又一遍。 当我看到Tracker的价值时，它已经增加到了一万个，而且由于所有的列都已经到了excel的底部，这意味着循环实际上是循环的。 但为什么我被困在零，而不是增加？ 为什么我得到这个错误？ […]

在button的Excel中隐藏/取消隐藏单元格组

我有一组单元格B32到R32长度和B32到B51宽度。 我打算在开始打开表单时将这个块隐藏起来。 我已经把这个块命名为“分析”。 表格中有一个button。 当按下button时，我想取消隐藏该块。 我是Excel Vba的新手。 我想知道做这个操作的语法/代码。 提前致谢。 阿南达

清除依赖项并具有validation列表的单元格

我需要一些帮助。 我正在设置一个包含多个validation列表的电子表格。 每个validation列表都有多个链接到它们的validation列表（依赖者）。 当我更改第一个validation列表时，我需要清除所有依赖它的单元格（如果他们有附加的validation列表）。 我试图创build一个dynamic的macros，所以我不需要命名范围（我有太多的任何方式）。 基本上，如果激活的单元格更改/它有一个validation列表，并有依赖关系 – 然后清除相关单元格的内容，如果他们有validation列表。 原则上它听起来很直接，但它是杀了我… !!!! 有没有人有这样的macros已经到位，或者我会感激任何意见？ 谢谢Ciaran。 主要想法。 使用一个dynamic范围byval目标作为范围 如果单元格有依赖项activecell.dependents.count> 0 如果实际的单元格有validation列表等activecell.specialcells（xlcelltypeallvalidation）

Excel 2010 VBA：使用单元格中的值保存文件以确定path和文件名

我想写一些代码，将保存多个选项卡作为Excel文件指定的文件夹中的PDF文档。 我想要文档中的单元格来决定保存这个文件的位置。 我不知道这是否可能，但如果有任何帮助将是好的！ 我目前在我的代码的保存过程中得到运行时错误“1004”。 是的，我有创build被引用的文件夹。 Sub asdf() Dim Fname As String Dim Fpath As String Dim YrMth As String Fname = Sheets("Sheet1").Range("A1").Text YrMth = Sheets("Sheet1").Range("A2").Text & "\" & Sheets("Sheet1").Range("A3").Text Fpath = "C:\Documents and Settings\My Documents\" & YrMth & "\Group\" & Fname & ".pdf" ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet4")).Select Application.DisplayAlerts = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Fpath, _ Quality:=xlQualityStandard, […]

VBA：粘贴不同名称的图表

我使用VBA来复制和粘贴图表。 ActiveSheet.ChartObjects("Chart1").Activate ActiveChart.ChartArea.Copy ActiveSheet.PasteSpecial Format:="Microsoft Office Drawing Object", Link:= _ False, DisplayAsIcon:=False 问题是，我最终有两个图表具有相同的名称（ "Chart1" ），当我尝试重命名后： 'ActiveSheet.Shapes("Chart1").Name = CHART_NAME 他们都被重命名。 如何粘贴不同名称的图表。

在Excel中创build字母数字序列

通过使用excel，我需要创build从0000到ZZZZ的4个字母/数字的字母数字序列。 我创build了一个如下所示的macros： Sub a() Dim iChar1 As Integer, iChar2 As Integer, iChar3 As Integer, iChar4 As Integer Dim sOutput As String For iChar1 = 65 To 90 For iChar2 = 65 To 90 For iChar3 = 65 To 90 For iChar4 = 65 To 90 sOutput = Chr(iChar1) & Chr(iChar2) & Chr(iChar3) & iChar4 ActiveCell.Value […]