Tag: excel

将单元格格式化为数字types“百分比”

我正在尝试在Microsoft Excel中将范围“C3:C8”格式化为数字格式百分比。 下面的代码不起作用,我不确定为什么。 运行脚本后,范围“C3:C8”保持格式化为“常规” 。 我正在使用Excel for Max 2011和Applescript Editor版本2.7 set formatRange to range "C3:C8" of sheet "Sheet1" set number format of (formatRange of (sheet "Sheet1" of active workbook)) to "Percentage"

在Excel上书写

当我在Excel文件中写入某些信息时,它只logging第一行中的单元格,剩下的是空的: for(int i = 0; i < 10; i++) { Label data1 = new Label(1, i, "1"); wsheet.addCell(data1); Label data2 = new Label(2, i, "2"); wsheet.addCell(data2); Label data3 = new Label(3, i, "3"); wsheet.addCell(data3); wworkbook.write(); } wworkbook.close(); 如何将代码更改为在所有十行中进行的post?

“运行时错误91”设置variables

我遇到了一个运行过去曾经工作过的VBA脚本的问题。 代码尝试从已经生成的数据库和Excel工作表中获取数据,然后运行更多计算来创build可用的统计信息。 这部分是错误的地方: Dim strCat, strPlan, strCustodian As String Dim i, lAssets As Long Dim cn As ADODB.Connection, rs As ADODB.Recordset 'ms access connection Public Const cnnstr As String = "Provider=Microsoft.ACE.OLEDB.12.0; " & _ "Data Source=G:\OADBO.accdb;" Dim rngA, rngB As Range Option Explicit Private Sub MapExisting() Set rngA = wsEntry.Range("A1") For i = 1 To […]

将一行分成多个部分

我有以下逗号分隔的文件: FName, LName, Family Role Stan, Smith, Husband | Father | Son Francine, Smith, Wife | Mother Steve, Smith, Son Hayley, Smith, Wife | Daughter Roger, Smith, Alien 我希望以下输出: Fname, LName, Family Role Stan, Smith, Husband Stan, Smith, Father Stan, Smith, Son Francine, Smith, Wife Francine, Smith, Mother Steve, Smith, Son Hayley, Smith, Wife Hayley, […]

在通用Windows应用程序或Window Store应用程序中创buildExcel文件

我正在学习使用Visual Studio 2015开发通用的Windows 10应用程序。我想实现一个函数来创build一个Excel文件,然后在这个Excel文件中写入数据,在我的应用程序中。 我尝试在C#中添加参考Microsoft.Office.Interop.Excel。 生成错误:缺less编译器所需的成员System.Runtime.InteropServices.LCIDConversionAttributesearch此错误,并findWindowsapp store应用程序不支持Microsoft.Office.Interop.Excel。 我无法创buildExcel文件。 我不想使用任何商业库(如syncfusion)。 如何在通用Windows应用程序或Window storeApp中创buildExcel文件? 请请告诉我任何解决办法。 谢谢

单元格显示错误的数字值

A1:单元格中的值显示为49.0 ,但单击顶部栏时显示48.9847219431886 。 A2:单元格中的值显示为43.0 ,但单击顶部栏时显示42.9792446979968 。 所以如果我想在另一个单元格中使用这个单元格的值,让我们说在CONCATENATE函数中,它连接错误的值。 =Concat(A1," – " ,A2)给出结果48.9847219431886 – 42.9792446979968 但我希望它应该是49.0 – 43.0 我检查了数字格式,它被设置为“自定义”types_(* #,##0.0_);_(* (#,##0.0);_(* "-"??_);_(@_).试图改变格式文本和数字,但没有运气。

在范围内查找文本并插入新行

对于解决这个问题我有一些想法,但是我不知道如何在VBA中一起处理这两个单独的函数的链接。 我希望代码能够find在一个范围内不是空白的单元格,并插入一个新的行与其各自的数据。 例: No abcd q1 q2 q3 q4 q5 1 XXXX poor rubbish 2 YYYY excellent great 数据可以出现在q1和q5之间的任何地方,我希望VBA将q1 – q5中的每个响应与单独的一行分开。 因此,我假设我需要一个循环函数来查看q1和q5之间的单元格是否不是空白的,从这个我想新行分隔每个响应与自己的行,但我不确定如何告诉VBA在q2下留下“穷人”,并寻找下一个非空白,并采取非空白,并插入一个新的行(所以'垃圾'应采取新的行,但从原来的行删除,所以“穷人”可以拥有自己的独立线路)。 最终的结果应该是这样的: No abcd q1 q2 q3 q4 q5 1 XXXX poor 1 XXXX rubbish 2 YYYY excellent 2 YYYY great

“Range.Find”testing没有说“Object Required”

为什么我运行这段代码的时候会得到一个对象是必需的错误? Dim mitarbeiterStatus Dim mitarbeiterCell As Variant Set mitarbeiterCell = Nothing Dim rowsinWorkflow As Integer rowsinWorkflow = Worksheets("worksheet1").Range("A1").End(xlDown).Row With Worksheets("worksheet1").Range("B2:B" & rowsinWorkflow) Dim firstAddress mitarbeiterCell = .Find(displayName, LookIn:=xlValues) If Not mitarbeiterCell Is Nothing Then 'ERROR HERE firstAddress = mitarbeiterCell.Address Do '….. Set mitarbeiterCell = .FindNext(displayName) Loop While Not c Is Nothing And mitarbeiterCell.Address <> firstAddress […]

循环一个文本文件和一个Excel文件

我想查看一个文件中是否包含(不等于)Excel文件中的列。 data = pd.read_excel('C:/Users…/excel.xlsx', sep='\t') f=open("list.txt", "r+") for line in f: line = line.rstrip() for vh in data["Column_of_interest"]: vh = vh.rstrip() match = line in vh print (match) break 结果应该是全部“真实的”,但它只给了我第一个“真”的。

如何在Worksheet代码中声明和使用公用函数和子例程

我在我的工作表模块中声明了一个公共函数: Public Function isValidContract(contract As String) As Boolean ' Code reads cell values from the worksheet and determines ' if passed-in contract is one of them. End Function 我想能够从其他模块和类模块访问它。 我已经尝试了以下内容: Public Sub someRandomSubInAntoherModule() Dim contract As String Dim sh as Worksheet ' Code that sets contract Set sh = Sheets("Matrix") If Not sh.isValidContract(contract) Then ' […]