Tag: 工作表

使用VBA匹配excel中两个不同工作表的两列的值

这里是我的代码下面我试图编写一个程序来匹配使用此代码使用vba两个不同的工作表的值两列 Sub Compare2Worksheets(ws1 As Worksheet, ws2 As Worksheet) Dim ws1row As Long, ws2row As Long, ws1col As Integer, ws2col As Integer Dim maxrow As Long, maxcol As Integer, colval1 As String, colval2 As String Dim report As Workbook, difference As Long Set report = Workbooks.Add With ws1.UsedRange ws1row = .Rows.Count ws2col = .Columns.Count End With […]

同时复制多个工作表以保留图表参考

我在Excel中创build了一个双工作表模板 – 第一个工作表用于漂亮的图表，另一个表单用于驱动这些图表的数据。 我已经写了一个vb.net 2005应用程序，可以转储在第二个工作表上的所有数据，图表工作表完美地更新。 我想在同一本工作手册上多次做这个报告。 （所以这些标签会显示“Person1 – Chart”，“Person1 – Data”，“Person2 – Chart”，“Person2 – Data”等） 我的解决scheme是，对于每个要运行此报表的人员，请复制图表模板，然后复制数据模板。 问题是创build的每个图表模板都指向原始数据工作表。 我怎样才能设置每个图表工作表指向什么工作表？ 有办法复制成对的工作表，保持与他们自己的关系，而不是父母的关系？

如何确定可以在C＃程序中创build的Excel表格的最大数量？

我知道excel表单的唯一限制是系统资源，但我想知道是否有某种方式可以在C＃中找出这个数字。

迭代通过Excel工作表名称，当办公室没有安装使用vb6

由于ACE.OLEDB提供程序，我可以读取没有安装Excel的Excel表格。 我也可以使用下面的代码遍历工作表，但是如果我没有弄错的话，它需要安装office： Set xlApp = CreateObject("Excel.Application") Set wb = xlApp.Workbooks.Open(txtExcelFile, ReadOnly:=True, editable:=False) If wb.Worksheets.Count = 0 Then MsgBox "Excel file contains no worksheets" GoTo SubEnd End If Dim i As Integer For i = 1 To wb.Worksheets.Count cboWorksheet.AddItem (wb.Worksheets(i).Name) Next 我希望能够查询Excel表格来填充一个下拉列表，但即使办公室没有安装，我可以这样做吗？ 为了解释我们目前的情况，我已经为我们的crm构build了一个dynamic导入器，通常我们通过他们的服务器更容易访问公司，与客户端pc相比，办公室安装的可能性更小。 所以我想在导入一个excel文件的时候不要完全依靠office。 当然，这不是一个主要的function，我可以将工作表名称存储为文本字段，但如果可以select相关的工作表名称，则会更好。 可以这样做，并在VB6？ 谢谢

将Excel工作表的保护状态传递给单元格

我很好奇是否可以将Excel工作表的保护状态传递给该工作表的单元格。 例如 工作表1被locking编辑…单元格A1将被编程为说“locking” Sheet1被解锁…单元格A1会说“解锁” 。 工作表上的button将用于打开和closures工作表保护。 使用workbook_open事件打开时，我的工作表将被locking。 这是一个表格，我不希望公式在使用时被全部使用，但是可能需要完全访问。 它更多地提醒用户他们处于“解锁”模式，所以要格外小心。 使用VBA已成定局？ 我是VBA noob，但不介意使用代码作为解决scheme 任何想法或build议欢迎

带有隐藏工作表名称的dynamic范围

我正在尝试为某些手动input创build归档选项。 我有这个工作，但是当存档被隐藏时，我遇到了一些问题。 Sub Archive() Dim sDumpRange As String Dim sDumpSheet As String sDumpSheet = "Active archive" If Range("C6") <> Empty Then pRow = Sheets(sDumpSheet).Range("I1") If pRow > 1 Then Range("A2:E" & pRow).Delete Shift:=xlUp Else End If sDumpRange = "'" & Sheets("Active archive") & "'!" & "A" & Range("A5000").End(xlUp).Row + 1 ' sDumpRange = "A" & […]

比较不同的Excel工作表中的单元格，如果有任何值重复则返回

我想比较多个工作表，并检查是否有任何重复值的单元格。 例如他说我有工作表WS1，WS2，WS3，WS4，WS5。 每个这些工作表都有来自单元格A1到H10的数据。 现在让我们说我有另一个名为“RWS”的工作表。 如果Ws1到WS5中的A1单元格具有所有不同的值，我希望RWS中的A1调用入口为1，如果这些值中的任何一个重复且发生多次，则为0。 有没有简短的方法来做到这一点？

如何导入所需列的工作表？ Excel VBA

我可以将工作表成功导入到我的工作簿中。 但是，有可能只是导入我想要的列？ 数据真的很大，我不想有麻烦去通过每个单元的一部分。 以下是我的代码： Sub ImportSheet() Dim wb As Workbook Dim activeWB As Workbook Dim sheet As Worksheet Dim FilePath As String Dim oWS As String Set activeWB = Application.ActiveWorkbook FilePath = "C:\Report.xlsx" Application.ScreenUpdating = False Application.DisplayAlerts = False Set wb = Application.Workbooks.Open(FilePath) wb.Sheets("Report").Copy After:=activeWB.Sheets(activeWB.Sheets.Count) activeWB.Activate wb.Close False Application.ScreenUpdating = True Application.DisplayAlerts = True End […]

VBA Excel如何激活工作表1中的工作表2，3和4的macros

我有一个文件夹中的3个工作簿。 我使用macros将该文件夹中每个工作簿中的每个Sheet1复制到我的工作簿示例中 。 在我的工作簿示例中，现在有4个工作表，名为sheet1 ， sheet1（4）， sheet1（3）， sheet1（2）。 我想使用一个button表单，所以当我点击它时，代码（下面）运行除了表单之外的任何其他表单。 Sub Copy_Sum() Dim ws As Worksheet 'Selecting the worksheets to loop through K = 1 For Each ws In ThisWorkbook.Worksheets 'Skiping the sheet1 If ws.Name <> "Sheet1" Then 'Counting the number of rows for automation rowscount = Cells(Rows.Count, 1).End(xlUp).Row temp = 0 'add name Cells(rowscount + […]

find名为CSn的总张数

通常，空白评估工作簿包含在数据input表格CS1（总是存在）之前的9张，CS数量（其中x可以是50,100,200等）以及最后一张CS页张之后的零张。 有时用户将在最后一张工作表前后添加工作表，但不允许在第一张和最后一张工作表之间添加工作表。 要求是改进现有的VLOOKUP代码（当前查看工作簿中的每张工作表），只查看所有的CS工作表。 因此，需要查找多less名为“CSn”（其中n是从1到未知的整数）工作表在工作簿中。 如果CS工作表在工作簿的末尾，这很容易，但如果用户在最后一个CS工作表之后添加其他工作表，则不那么容易。 我不知道如何确定最后的CS表索引作为CS表的数量变化。 快速代码显示CS页数 Public Sub No_of_Sheets() intCount = ActiveWorkbook.Sheets.Count 'Find total number of workbook sheets intCS1_Index = Sheets("CS1").Index 'CS1 Sheet index intCSCount = intCount – (intCS1_Index – 1) 'Find total number of CS sheets nonCSSheets = intCount – intCSCount 'Find total number of Non-CS sheets MsgBox " CS1 Sheet Index = […]