标签: worksheet

我创建了一个简单的工作表宏,在双击单元格时将单元格的内容发送到外部程序.起初,我拥有了表单模块中的所有代码,并且必须将其复制到我想要其功能的每个表单上.现在,我设法将工作表模块中的代码减少到调用标准模块中的子程序,它可以工作,但我必须将代码复制到我需要其功能的每个工作表上.有没有办法只在一个地方(标准模块,工作簿模块或类模块)输入代码,并让它在工作簿中的任何工作表上运行,而工作表后面没有代码？谢谢您的帮助.

我正在尝试创建一个综合的运动规划和培训日历.部分内容是一张纸根据用户在另一张纸上识别的比赛和日期来识别比赛发生的周数.我已经确认我的VLOOKUP没有引用不存在的列,并且单元格样式对于那些适用的类型是General.

这是公式:

=VLOOKUP(Periods!A6,Races!$F$2:$F$20,2,FALSE)

查找值是第一张图像上的训练周,用于识别目标工作表上的比赛.该表上的每一行都有不同的培训周.我试图在公式表上得到D列(和F),以显示比赛的优先级,如果有一个计划适用的一周.

任何帮助表示赞赏.

谢谢!

麦克风

需要将具有16000 x 12个条目的相当higeisch数据集转储到工作表中.

我现在使用以下功能:

        for (int r = 0; r < dt.Rows.Count; ++r)
        {
            for (int c = 0; c < dt.Columns.Count; ++c)
            {
                worksheet.Cells[c + 1][r + 1] = dt.Rows[r][c].ToString();
            }
        }

我把这个例子改成了中心部分

以下是我在阅读Dave Zych的建议后实施的内容.这非常有效.

    private static void AppendWorkSheet(Excel.Workbook workbook, DataSet data, String tableName)
    {
        Excel.Worksheet worksheet;
        if (UsedSheets == 0) worksheet = workbook.Worksheets[1];
        else worksheet = workbook.Worksheets.Add();
        UsedSheets++;
        DataTable dt = data.Tables[0];
        var valuesArray = new object[dt.Rows.Count, dt.Columns.Count];

        for (int r = 0; r < dt.Rows.Count; …

我正在使用Workbook_Open在打开应用程序时调用userform,这很正常.但是我希望它只在第一次打开时运行.我试过这个,如果我从编辑器运行sub而不是打开文件时它可以工作.

Sub Workbook_Open()
If Worksheets("DataSheet").Range("A1").Value = "" Then
     QuickStartForum.Show
End If
End Sub

注意:A1包含将在用户表单运行后填充的值

看来问题是它在将数据加载到工作表之前打开用户表单.

这有什么解决方法还是我需要采取不同的方法？

我的工作表名为'doc_name',它有两个工作表,'sheet1'和'sheet2'.但是,我只能将数据写入标有'sheet1'的工作表？

这是一个限制还是我做错了什么？

这工作,

wks = gc.open("doc_name").sheet1

但这失败了,

wks = gc.open("doc_name").sheet2

给出这个错误,

AttributeError:'Spreadsheet'对象没有属性'sheet2'

我也注意到这个失败了,

wks = gc.open("doc_name").S heet1

...我使用大写'S'..如果我指定小写,它只会写.s heet1

如何写入工作表而不必编写代码... wks = gc.open("doc_name").sheet1？

我在Tableau 8.2中创建了一个故事.对于我的一个点我正在拖动工作表,但是当我这样做时,工作表标题不会显示在故事点上.

将工作表添加到故事点时,有没有办法让故事点显示工作表标题？或者我是否需要手动添加说明？

我无法阅读此 xlsx 文件并使用sheet=2（“数据”）“ http://www3.weforum.org/docs/gcr/2015-2016/GCI_Dataset_2006-2015.xlsx ”

我做了什么：

library(readxl)
library(XLConnect)
library("openxlsx")

temp = tempfile(fileext = ".xlsx")
dataURL <- "http://www3.weforum.org/docs/gcr/2015-2016/GCI_Dataset_2006-2015.xlsx"
download.file(dataURL, destfile=temp, mode='wb')
file<- read.xlsx(temp, sheet= 2)

我得到以下信息：

Error in .jcall("RJavaTools", "Ljava/lang/Object;", "invokeMethod", cl,  :  java.lang.OutOfMemoryError: GC overhead limit exceeded

有人可以帮忙吗？谢谢:)

我正在尝试使用EPPlus设置XLSM文件的工作表权限，但似乎我只能设置默认保护级别，没有设置单个保护。作为记录，我正在尝试以编程方式完成本文中的方法1 。这是我正在使用的代码：

using (var p = new ExcelPackage("output.xlsm"))
{
    var ws = p.Workbook.Worksheets["MySheet"];

    // Set some cell values here

    // Filtering, sorting, protection
    ws.Cells[7, 1, 10, 5].AutoFilter = true;
    ws.View.FreezePanes(7, 1);
    ws.ProtectedRanges.Add("FilteredCells", new ExcelAddress(7, 1, 10, 5));

    // Worksheet protection
    ws.Protection.AllowAutoFilter = true;
    ws.Protection.AllowDeleteColumns = false;
    ws.Protection.AllowDeleteRows = false;
    ws.Protection.AllowEditObject = false;
    ws.Protection.AllowEditScenarios = false;
    ws.Protection.AllowFormatCells = false;
    ws.Protection.AllowFormatColumns = false;
    ws.Protection.AllowFormatRows = false;
    ws.Protection.AllowInsertColumns = false;
    ws.Protection.AllowInsertHyperlinks = false;
    ws.Protection.AllowInsertRows = false;
    ws.Protection.AllowPivotTables = false;
    ws.Protection.AllowSelectLockedCells = …

我正在尝试比较2列,目标是返回不匹配的行.例如,我在第1列和第2列中有以下内容

1                     2
id name age job       id  name  age  job
1   aaa  11 bbb        1   aaa   11   bbb
2   ccc  22 ddd        2   ccc   22   eee

我正在寻找的回报是

2  ccc 22  ddd
2  ccc 22  eee 

我正在尝试使用以下内容

select id, name, age from 1 where id in
(
select id, name, age from 1
minus
select id, name, age from 2
)
union all
select id, name, age from 2 where id in
(
select id, name, age from 1
minus …

我在VBA代码中有一些Sql查询,这是一行代码的示例:

strQry = strQry & Worksheets("Data").Cells(9, 7) & """, " & _ 

我需要在此行的末尾添加注释.像这样:

strQry = strQry & Worksheets("Data").Cells(9, 7) & """, " & _ 'comment hjjkk

我通常使用撇号进行评论,但该行不接受该字符.请指教.另外,如果可能的话,我需要在该行的末尾对该确切行进行评论.谢谢!

在我的 BI 列中的工作表中有组件名称 在列 AI 中希望有动态添加的复选框，因为 B 列中的名称列表会随着时间的推移而增加

我需要能够执行以下操作： - 处理事件 (onclick) 作为勾选/取消勾选复选框隐藏/取消隐藏另一个工作表中的行 - 在我循环浏览另一个模块中的复选框时返回每个复选框的状态（来自commandbox) 并根据状态是否执行操作 - 修改每个复选框的状态，因为我有 1 个命令框来勾选它们，还有 1 个命令框来取消勾选它们

到目前为止，我有一个工作原型，但我有两个问题：1）复选框没有链接到 A 列中的单元格，它们只是在我创建它们时定位 2）复选框不是动态的，我手动创建它们并且有为每个复选框（> 50 个复选框）编写一个事件处理程序 (onclick)

我试图创建一个代码来动态添加复选框并创建一个类模块来处理事件，但我真的被卡住了..我复制并修改了一些最初用于用户表单的代码，并设法使其在一个userform，但我宁愿将所有内容都放在工作表上，如上所述。

这是类模块代码（命名为：clsBoxEvent）

Option Explicit
Public WithEvents cBox As MSForms.CheckBox

Private Sub cBox_Click()
MsgBox cBox.Name
End Sub

这是我作为模块编写的代码。我打算将它放在一个命令按钮的事件 (onclick) 中，我打算单击该按钮以更新复选框列表。除非这不是必需的，因为有一种方法可以在 B 列中的单元格不为空时立即创建复选框？

我感谢您的意见。

Dim chkBoxEvent As clsBoxEvent
Dim chkBox As MSForms.CheckBox
Dim chkBoxColl As Collection

Private Sub chkBox_update()
Dim i As Integer
Set chkBoxColl = New Collection

For i = 1 To …

在PHPExcel中,如何删除名称为工作表的工作表？

我有这个,但它不起作用:

$objWorkSheet->removeSheetByIndex("Worksheet");

我需要在 Excel 文件中找到第一个空行，我目前正在使用 Openpyxl 和 Python。我找不到任何可以满足我需要的方法，所以我正在尝试自己制作。这是我的代码：

 book = load_workbook("myfile.xlsx")
 ws = book.worksheets[0]
 for row in ws['C{}:C{}'.format(ws.min_row,ws.max_row)]:
    for cell in row:
        if cell.value is None:
            print cell.value
            break

我正在遍历“C”列中的所有单元格，如果单元格为空，我将“破坏”。问题是它不会中断，它只会打印出“无”值。

谢谢