我必须检查完整的A列,检查单元格值长度是否小于6,然后将其删除
我以前在工作表上做过这样的操作
activesheet.range("A" & row_number).select
selection.entirerow.delete
正如人们建议使用变体一样,我希望使用变体
我已将一组范围转换为变体
dim var as variant
var=sheet1.range("A1:D1000").value
假设我有20行,其列中的单元格值长度小于6。我必须删除varian
小结:我想知道是否有可能创建一个正在运行的文件,该文件每周都包含列,并且只在该周有活动的行中向每周列添加一个值
更多细节:每周我都会有一个新文件,其中包含多个客户行项目。我想要一个检查列表文件,其中a列是所有客户,而其他列是周结束日期。
每周,当我将所有数据放入周报时,我希望在该清单文件中注明该周出现的客户。虽然在添加客户数据之前,“到每周文件”为空,但它是一个保存的模板,其中包含用于操作数据的公式
我试着做一个透视表,它只工作了一周,但却不知道如何将每周添加到同一个透视表中,以及如何让客户在同
我有两张excel电子表格。两者都有相同的字段/列,例如姓名、公寓号、城市、Pin码等。我想比较这两张表,并根据一些特定字段(如公寓号、建筑、位置、城市)找出重复项。那么我如何才能做到这一点呢
如果我能得到帮助,我会非常感激的
谢谢。由于您的要求似乎很模糊,我建议添加一列,指出哪些是数据的源表,然后将一张表附加到另一张表上。要进行比较,请筛选组合中的一列或多列。您好,欢迎使用StackOverflow!看看VLOOKUP函数。这将从匹配的数据集中为您提供一个字段,或者在找不到任何内容时产生错误…
我使用excel来存储链接。在这些链接中,我有一些需要编辑的部分(我使用find/replace宏进行编辑),还有一些需要删除,但是find和replace不能删除随机代码
例如:lty=1&rc=fpcDlkseLz4&ra
我希望宏删除的是所有链接的“rc=xxxxxxxxxx&”,随机码可以采用数字、字母大写或小写。尝试下面的非vba解决方案
=MID(A1,1,FIND("rc=",A1,1)-1)&RIGHT(A1,(LEN(A1)-FIND("&",A1,FIND
我在服务器上放置了一个Excel模板。我需要将html表内容复制到
用户单击“导出到excel”时的模板。我有下面的代码,这是它生成自己的excel,而不是复制到模板中的数据。我使用javascript的这一点。我的代码需要与chrome兼容,我有它的IE工作。请帮助
$( "#Export" ).click(function() {
var location = document.createElement('a');
var url =('data:applicatio
我通常可以通过快速的谷歌搜索找到我遇到的问题的答案,但这一次我甚至很难形成一个问题来找到答案
我试图找出是否可以使用Excel工具提示来显示单元格数据。例如,鼠标悬停时:会出现一个工具提示,显示选定单元格中的单元格值,最好是一些纯文本,但不是必需的
i、 e.我有一个概览表,它简化了另一个表中的数据,但希望所述单元格值显示在鼠标上方。当您将鼠标悬停在单元格注释上时,它们会显示出来。你可以用VBA编程。谢谢你的帮助。我会调查的!
我有两列,A和B,包含值。我想在C列中插入值,其中每个值都包含在a和B中
我期望的结果示例:
A B C
Hello No No
Nothere here here
YesNo ha
由于“此处”包含在“Nothere”中,因此必须添加。与“YesNo”中的“No”相同
据我所知,我可以使用FIND查找字符串是否存在,并使用VLOOKUP搜索整个列。但是如何在整个专栏中使用FIND呢?因为有了VLOOKUP,我必须搜
我有两张tablix的。我在第一张表格后输入了一个分页符,以便表格显示在两张纸上。但是,每张图纸分别命名为Sheet1和Sheet2。如何通过reporting services应用程序自动为其指定自己的唯一名称?导出到Excel时,可以使用报表->InitialPageName属性设置第一张工作表的名称:
进一步的工作表由分页符触发,在SSRS 2008R2及以上版本中,您可以使用PageName属性命名工作表。可在可触发分页符的不同位置设置,例如Tablix:
或tablix中在组实例之
因此,我正在运行一个Powershell脚本,该脚本将返回指定文件夹中的所有用户及其对所有共享文件夹的访问权限。我的问题是,我试图让Powershell将信息直接转储到打开的excel文件中。到目前为止,该脚本使用正确的信息将输出运行到CSV文件,但当我试图将其转储到excel中时,它不起作用。这是因为我不知道如何将单元格值设置为对象属性值
这是密码
#Get Folder Permissions
$xl = [Runtime.Interopservices.Marshal]::GetActi
我有一个Excel格式的天气数据,2008年每小时采集一次。2008年有366天,因此有8784小时。但是,我注意到有8767行,因此缺少8784-8767=17小时。不幸的是,我不知道一整年中少了哪些时间。我还有一个额外的列,以“日-月-年-时间”的格式显示日期和时间。例如31-12-0823:00
Excel中是否有任何方法可以将缺少的小时数添加为额外的一行
谢谢只需从上一个日期时间中减去一个日期时间,如果答案不是1小时,那么您就知道缺少的行在哪里了。您可以为此使用一个简单的IF函数,例如
我在数据透视表中使用过滤器时遇到很多问题。到目前为止,我发现成功的唯一方法是通过添加虚拟日期来删除数据列表中的任何空白。一旦数据透视表的源范围中只有一种类型的数据,我就可以对数字(“0.00”)执行pivotfields.numberformat,然后过滤器工作,我可以将数据放回“dd/mm/yyyy”
我知道可以使用此方法(pivotitem.visible=true/false)在源范围内为空,但我没有成功
这里有两个文件,相同的数据,相同的数据透视表,相同的代码。一个有效,另一个无效。如果
从Excel中提取日期并将其作为MATLAB序列号放入MATLAB,这让我非常头疼。它们作为日期字符串提供给我(例如日期={'20/09/2014','23/09/2014',…})。我使用了MATLAB adviceddatenum函数和以下dd/mm/yyyy尝试将其直接转换为该形式。但是,它继续将其强制为毫无帮助的mm/dd/yyyy序列形式
我的确切密码是:
Date = {'01/02/2014';'01/03/2014';'01/04/2014';'01/05/2014';'01/0
我的目标是发布一个Excel电子表格,可以搜索,但可以锁定。我能锁定牢房。我不能做的是设置文档,使其无法重新保存或复制。如何设置Excel电子表格,使其无法保存到其他文件或由个人移动?您可以对每张工作表进行密码保护,并在下载时选中每个复选框。
见:
或者,您可以按以下说明对笔记本进行密码保护:
TL;博士--
文件-->另存为-->(在“另存为”菜单中)工具-->常规选项
它应该为您提供打开密码和修改密码选项。为什么不将其设置为只读文件?在这种情况下,具有特定密码的用户可以保存和更改密码。
我有代码来复制/粘贴返回的数据
下标超出范围
此代码在另一个具有不同参数的工作簿中工作
”。。。
wb.工作表(“表1”).范围(“A2:P”和lastRowCopy).副本
activeWB.Worksheets(“Sheet1”).Range(“A”和lastRowPaste).Paste特殊xlPasteValues“断开的行”已编辑
wb.Close SaveChanges:=False
它打开工作簿“wb”,复制正确的值(lastRowCopy和lastRowPaste正确),但粘贴
我正在尝试逐个筛选列的值。每次筛选的值都不同。有没有一种方法可以让宏捕捉到这一点
Sub Macro1()
Sheets("Open").Select
'invoice value less than 0
ActiveSheet.Range("$A$1:$R$2700").AutoFilter Field:=11, Criteria1:="<0", _
Operator:=xlAnd
'Selected Country
ActiveS
我有一些VBA代码,它使用
rng.Address(外部:=True,引用样式:=xlR1C1)
VBA代码与COM服务器通信,后者需要知道字符串格式是什么
不幸的是,格式似乎在两种情况之间(随机)切换。我不知道是什么原因导致VBA做出这种改变
这两种格式是
“[book]sheet”!R1C1
[book]页!R1C1
也就是说,有时书籍和工作表部分包含单引号,但有时不包含单引号
通过直接打印地址字符串,我可以在VBA调试窗口中看到这些格式更改
我在Office2007和2010年都经历过这种
我正在做一个需要大量复杂计算的项目,我想在Excel中进行这些计算,但我想让数据库保持Access
作为一个基本示例,如果我在Access中有一个表,例如
+---------+---------+-----+
| Number1 | Number2 | Sum |
+---------+---------+-----+
| 1 | 1 | |
| 1 | 2 | |
| 2 | 2 | |
+---
标签: Excel
worksheet-functioncognos-tm1
上述TM1工作表使用DBRW公式将用户输入的值写入多维数据集,还使用该公式获取值并在工作表中显示。多维数据集中的值由电影代码(如7500023)组成。此电影代码可以映射到维度DIM中的电影标题。需要注意的是,此电影代码和电影标题都是维度中使用的主要名称的别名,其运行方式类似于0007500023(前面有零的电影代码)。我希望在工作表中显示电影标题,而不是电影代码
我尝试使用SUBNM函数,但它打开了一个子集编辑器,也不像DBRW那样将值写入多维数据集。所以,这是不可能的
DBRA函数在从DIM维
我正在更新一个工具,使用户能够使用一些数据进行一些基本的时间序列分析。当一系列图从下拉列表中选择不同的时间序列时,它们会自动更新。插入Excel电子表格的是PowerPoint演示文稿,该演示文稿以前已链接到Excel电子表格中的图形,因此它会根据Excel进行更新。这就是我在更新时遇到的困难
我在Excel中复制图形,然后在PowerPoint中执行“粘贴特殊->粘贴链接->Microsoft Excel图表对象”。在我尝试移动文件或更改文件名之前,这一切都很正常。它不会链接到插入PowerP
我在整个模型中使用了以下公式:
=SUMIFS(Table1[s1q6_1 : S1Q6],INDIRECT("table1["&$B$2&"]"),$C$2,INDIRECT("table1["&$B$3&"]"),$C$3,INDIRECT("table1["&$B$4&"]"),$C$4,INDIRECT("table1["&$B$5&"]"),$C$5,INDIRECT("table1["&$B$6&"]")
我正在使用下面的代码在一个范围内进行拼写检查
Sub SpellCheck()
Application.SpellingOptions.DictLang = 1033
Dim cel As Range, CellLen As Long, CurChr As Long, TheString As String
Dim a As Integer
For Each cel In Range("Spell[description]")
'splitting paragraph into word
我有一个文件,在C2单元到C21单元中执行一系列VLOOKUP。我注意到有人在使用Vlookup,其中查找值是一个范围。因此,与其这样做
=VLOOKUP($B2,$E$2:$F$7,2,FALSE)
他们是这样做的:
=VLOOKUP($B$2:$B$21,$E$2:$F$7,2,FALSE)
这样做有什么好处吗?我能看到的唯一好处是,可以将其用作数组公式,并将其包装为总和或其他聚合公式。您将如何进行此操作。我试着={SUM(VLOOKUP($B$2:$B$21,$E$2:$F$7,2,F
我在Excel表格中有一个列(比如B1),显示了如下一些产品:
Sand Systems
Gas Systems
Blenders
Other
Other 2
Other 3
Other 4
我需要计算不包含文本“Other#”(#是一个数字)的行,换句话说,“Sand Systems”、“Gas Systems”、“Blenders”和“Other”=4
到目前为止,解决方案是使用一个带有公式=SEARCH的辅助列,但是如何使它忽略“Other”单元格并接受“Other#”?此外,我不想使用
如果我循环浏览10个文档,并用这些文档中的数据填充excel表格,那么有时导出速度慢,有时导出速度快。
这是怎么可能的,这就是我导出数据的方式:
Set objExcel = CreateObject("Excel.Application")
objExcel.Application.Visible = True
Call objExcel.Application.Workbooks.Open(CorDos.CorBestandsnaam)
Set xlSheet = objExcel.Appl
我试图使用excel宏从sql表中删除特定的行,我有这个脚本要插入,只是稍微调整了一下,但没有效果。请找个人帮忙好吗。这就是我想要的
Sub Button1_Click()
Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim strSQL As String
strSQL = "DELETE FROM dbo.AssociateInfo" & _
" WHERE (ID, FirstName, LastName, Hir
我在Excel中有以下格式的数据:
输入:
我希望数据采用后续格式,即输出
Col1 | Col2
A1 |B1
A2 |B2
A3 |B3
A4 |B4
A5 |B5
A6 |B6
A7 |B7
A8 |B8
我尝试了很多,但没有找到任何解决方案,关于如何框架这个问题,或在excel中这样做。
我们将非常感谢您的每一个帮助/指导/链接。
提前谢谢。我没有答案,但我要提醒您,不要将此类非规范化数据存储在Excel(或数据库)中。Excel也不是这种数据清理操作的最佳工具。两列中的项目数是否相同
我写下了下面的代码:
Sub formatCondMesi()
Worksheets(1).Unprotect Password:="ponzio"
Dim i As Integer
'For i = 2 To 13
Worksheets(1).Select
Worksheets(1).Cells.FormatConditions.Delete
'1)
With Worksheets(1).Application.Union(Range("C7:O149"), Range("C155:O
我有两列,如下所示,我需要提取一个匹配两列的部分单词,并将其放入第三列
Name1 Name2
RED CURRY CHICKEN GREEN CURRY CHICKEN
BEEF WITH MINT LEAVES BEEF WITH BASIL LEAVES
SWEET AND SOUND PORK BACON AND EGG
FRIED RI
我得到了日薪,但我需要计算/转换成分钟。假设我的日薪是1166.67,那么我需要以分钟为单位进行计算/换算。请提供我在excel表格中使用的公式。提前谢谢 每天每分钟支付
如果每日支付位于单元格A2中,并且您想要计算当天的-每分钟支付,您可以使用以下公式:
=A2/(24*60)
每班每分钟工资
如果你真的想知道工作时间的每分钟工资-,,那么你就错过了一个关键信息:“轮班多少小时?”
如果您的每日工资在单元格A2中,而工作时数在单元格B2中,您可以使用以下公式:
标签: Excel
conditional-formatting
目前有两个多条件公式问题:
第一个是我在表格的B栏中有很多日期(代表某物被创建的日期),我正在尝试制作一个公式,允许我将所有90天到179天的日期(从创建日期算起)涂成黄色,所有180天以上的日期涂成红色。我还需要所有的日期,既不符合这些条件(0至89天),以保持正常。这显然会使用“今日”功能根据日期不断更新
第二个问题在N列中,我需要在B列中显示日期加上90天,但是如果B列中没有信息,我需要它不显示任何内容。我可以用一个非常简单的N=b2+90来实现这一点,但这显然意味着如果b2中还没有应用日
我在Excel中有以下数据:
A B C
1 Task Name Total Effort (days) %Finished
2 Task 1 5 30
3 Task 2 8 25
4 Task 3 23
我是VBA新手,一直在尝试编写一个代码,根据特定单元格地址的输入值隐藏和取消隐藏行。然而,它不起作用,我也不知道为什么。我已将我的代码张贴在下面:
Sub Hide()
If Worksheets("IS").Range("B8").Value = "Show All" Then
Worksheets("IS").Rows("12:165").EntireRow.Hidden = False
End If
If Worksheets("IS").Range("B8").Value =
我有一个文件,将包含随时可用的工作表。有人使用UserForm选择一组已定义的工作表。“项目A”或“项目B”等
通过选择其中一个集合,将在sheet4.range(“i4”)的单元格中写入ex.“项目A”。每次新开始时,将仅显示使用UserFrom选择的集合。我需要为用户添加的所有附加工作表做一个简短的修复
在我的select case表达式中,我需要对大于表4的表进行声明。So表5、表6等
我应该如何在:
例如,对于“项目A”案例,所有带有sheetX>sheet4的新图纸都将设置为高度隐藏
我有一个单元格,其中包含以下部分或全部字母--T,a,B,C,F。如果是单个字母,我希望返回.105表示T或F。263如果是A、B或C,则返回。如果找到多个字母,则我希望返回找到的字母的总和。--示例为T,单元格中的B应返回。368而A、B、C将返回。79
我希望将值放在单个单元格中
这是一个数组公式,因此必须在按住Ctrl-Shift键的同时输入=SUMPRODUCT((表1[字母])=TRANSPOSE(中间(D2,行(间接(“1:”&LEN(D2))),1))*Table1[值]另一个变量
所以,我试图对不同表中的一个单元格求和,但我希望求和在同一个单元格上,或者至少求和结果。第一次求和的单元格将在求和后被删除
在这种情况下,单元格A1将被删除
代码只粘贴公式,但不粘贴
Private Sub C2_Click()
Sheets("Prueba").Range("A1").Formula = "Sum(Prueba!A1, Reporte!C5)"
End Sub
但是没有错误消息。以及控制论。Nomad说您需要使用所需公式中的相等sing=in。记住,这就像你在单元格中
当我运行以下代码(设计用于筛选表,然后删除筛选的行)时,我收到一个运行时错误“5”。当我单步执行宏时,不会出现此错误。只有在运行它的时候
Sub delete()
Rng.AutoFilter Field:=8, Criteria1:=Array( _
"ROCKFORD DSC", "MATTESON PLANT", "WHEELING PLANT"), _
Operator:=xlFilterValues
Rng.Offset(1, 0).Special
我以前没有真正尝试过这方面的工作,所以我不知道我现在在做什么。我对html的知识有限,所以不确定我是否做得对。基本上,我的目标是通过宏打开InternetExplorer,更改一些基于id的元素,然后单击网站上的submit按钮来显示数据。然后我需要继续下一步的工作
正如您从代码中看到的,我试图通过html代码中的id号与IE上的小部件进行交互
Sub Automate_IE_Enter_Data()
'This will load a webpage in IE
Dim i As Lo
我有一个范围sh.RangeF46:I46,当前有一个薄的底部边框,我想使用VBA来摆脱它,但是我尝试的解决方案失败了。现在我只有:
sh.Range("F46:I46").Borders(xlEdgeBottom).LineStyle = xlNone
我也试过:
For Each r In sh.Range("F46:I46")
r.Borders(xlEdgeBottom).LineStyle = xlNone
Next r
sh.Ran
从图中,我想要的是当用户在[H3]中输入想要的值时。如果表中有10个值,用户输入5。我希望下拉列表只显示1到5
将数据验证列表添加到输入单元格,并将列表引用设置为:
=OFFSET(F4, 0, 0, H3, 1)
您已经尝试过的代码在哪里?您遇到了什么问题?因为我没有代码,我可以不进行编码吗?如何解释设置下拉列表限制的原因?如果可以选择的话,可以很容易地使用helper列来完成。
我有一个PowerShell脚本,可以将.xls文件转换为.txt文件。当选中“仅当用户登录时运行”作为我的用户帐户时,它在PowerShell中可以正常运行,并作为计划任务运行,但如果我尝试系统并在登录与否时运行,它将不起作用
我已经尝试了不同的参数,并在帐户上设置了一些安全标志
某些调试在以系统用户身份运行时显示:
Microsoft Excel无法访问文件“C:\test\test.xls”。有几个可能的原因:
•文件名或路径不存在。
•另一个程序正在使用该文件。
•您试图保存的工作簿与当
如何将源代码粘贴到列(C列)而不是单元格(C1)中
想要这个
不是这样的
要想做你想做的事情,你需要一个有效的行分隔符,如果你知道的话,你可以试试下面的代码
Sub Tester()
s = GetSource("https://www.google.com/")
separator="?" '<<< to changed
arr = Split(s, separator)
For r = 0 To UBound(arr)
Cells(r + 1, 1) = arr(r)
我必须将主excel工作表拆分为各有100行的工作表
我有代码在每个工作表中运行正确的数据,但我需要重命名工作表
它们当前输出为“Sheet1”、“Sheet2”等
我希望代码是动态的,因为我不知道将创建多少工作表
我想在循环“J1”、“J2”等中包含重命名,或者在之后运行一段代码,将任何工作簿(如“Sheet%”重命名为“J%”
我目前的代码如下:
Option Explicit
Sub SplitDataNrows()
Dim N As Long, rw As Long, LR As L
多年来,我遇到了一个断断续续的问题,表头(似乎)随机地失去了使用应该出现的黑色向下箭头选择列的能力;箭头只是停止出现
在线搜索只在answers.microsoft网站上产生了一个线程,但是线程作者提到了VBA,微软团队认为这可能是原因,然后没有人提出解决方案。在我使用任何代码之前,xlsx格式的电子表格中肯定出现过这个问题
这个问题并不严重,但它会使某些操作慢得多,到目前为止,我找到的唯一解决方案是将表转换回一个范围,然后再转换回一个表。显然,这并不理想,因为这意味着必须修正引用此表的每个公式
我试图将今天的日期连接成一个公式,并将其添加到单元格中
在线
Cells(2, colNum).Value = "=AVERAGE(Table57[" & today & " Avg Vuln Sev Score])
我收到一条错误消息
运行时错误1004:应用程序定义或对象定义错误
我尝试用各种方式格式化日期,但都返回了一个错误。
我试过:
使用+而不是&
将其包装为文本()
用格式()包装它
将日期直接与日期一起放入其中(&Date)&
单元格(2,colNum).Val
正如昨天所建议的,我将我的问题分为两部分,尽管我认为它们可能有联系:
我有一个Excel宏,基本上可以工作,但是宏添加的工作表越多,速度就越慢。
它最多可以创建几百张表,每一张表都是不同的报告,所以我必须保留所有的表。
开始时,10张纸大约需要10秒,但在70/80张左右时,时间几乎是原来的三倍。
这仅仅是因为纸张的数量,还是我可以再次加快速度
代码有点长,因此我将其缩减以解决此问题,并在代码中对其进行了标记:
Sub My_Issues()
Dim ColumnLetter As St
晚上好,
我想知道如何让这段代码在从N7到N51的一系列单元上工作
弹出框工作得很好,但仅在N7的引用单元格中,我需要它来处理从N7到N51的每个单元格,以便当每个单元格值更改时,弹出框出现。因此,如果更改单元格N8,则会出现框,依此类推。原因是并不是每个单元格都会改变,我只需要在改变的单元格上显示弹出框,等等。这是我收集的代码
Private Sub Worksheet_change(ByVal Target As Range)
If Target.Address = "$N$7" Then
我想有一个公式:如果股票是“卖出的”,那么我在第I列中插入的公式将从第K列中选择最后一个“加权平均成本/股份(动态)”,然后将其与第G列中卖出的股份数量相乘,这样我将自动计算卖出股份的处置成本
例如,假设我出售了(500)股Danaher Corp,那么我需要一个公式来选择最后一个“加权平均成本/股份(动态)”,即123美元,然后将其乘以出售的(500)股,因此处置成本为(61667美元)。对于亚马逊公司来说,应该是2920美元(50美元)=(146000美元)
当我在运行宏后关闭Excel工作簿时,如果它是我打开的最后一个工作簿,我会得到一个空白窗口。它在一个月前按预期工作(与手动保存和关闭相同)。我不能使用“application.quit”,因为我一次打开了多个窗口。有人能提出解决办法吗
我使用的是365 16.0.12527.20612 320位
Sub Update_ADI()
'
' Update_ADI Macro
' This macro will change the date, period (update in macr
如何在代码中引用活动工作表中选定的单元格范围。
澄清一下,我不是问如何选择一个单元格范围
有任何ActiveRange或ActiveRegion之类的东西吗?
我还没有找到它
例如,(不工作)这里有一个简单的子系统:
子测试()
暗淡区域,cel As范围
region=ActiveCell.CurrentRegion
对于区域中的每个cel
cel=1
下一个细胞
端接头
几句话:
定义所有变量类型,如果选择了一个范围,则选择已经是一个范围。请注意,它可能会返回其他对象,因此在使用它之前应检查
如何通过VBA过滤出数组。我的意思是,我想从字段29中排除arrarrayarr是一个很长的列表。以下代码段不起作用
arr = Array("<>0735", "<>801124", "<>0613","<>0921", "<>1086", "<>0949", "<>0494&quo
上一页 1 2 3 4 5 6 7 8 9 ...
下一页 最后一页 共 2673 页