这可能很容易解决,但我现在已经摆弄了一段时间,似乎无法解决它.
栏目A持有市场回报,栏目B返回某一股票.我想计算超额市场回报:股票表现好多少多于市场？在专栏中C,我手动计算了这些值:
. A B C
---------------------------
1 -2.22 0.17 2.39
2 -2.99 0.57 3.56 both the market as the stock have lost, but the
3 -11.68 -0.40 11.28 <-- stock has lost 11.28 less than the market has
4 6.16 0.06 -6.10 <-- compared to the market, the stock underperformed
5 0.94 -0.22 -1.16 by 6.10
6 7.45 0.17 -7.28
7 -1.96 -0.07 1.89
你不能只是单纯地提取A1从B1,反之亦然.我糊涂了; 谁不是,知道用什么公式C1;C7来得到正确的答案？
我正在更新问题以显示我已经拥有的内容,然后从这里添加行...
Function CleanName(strName As String) As String
'will clean part # name so it can be made into valid folder name
'may need to add more lines to get rid of other characters
CleanName = Replace(strName, "/", "")
CleanName = Replace(CleanName, "*", "")
CleanName = Replace(CleanName, ".", "")
CleanName = Replace(strName, "\", "")
End Function
我对以下内容感到困惑:
=TEXT(41432, "mm/dd/yyyy")返回06/07/2013=TEXT(41432, "mm/dd/yyyy")返回06/08/2017都在同一台电脑上!这是怎么回事？谢谢!
我想计算同一列中每20个单元格的标准偏差.
我正在使用的等式是STEDIV.现在,如果我想在Excel中学会计算STEDIV(A21:A40)从STEDIV(A1:A20),是有办法做到这一点？
非常感谢.
如何避免重置 Dir？
d = Dir(root & "*", vbDirectory)
d = Dir(): d = Dir() ' skip . and ..
While d <> ""
f = Dir(root & d & "\*.txt")
While f <> ""
' do something with f
f = Dir()
Wend
d = Dir() ' RunTime Error "5": Invalid Procedure or Call to Argument
Wend
我的理解是当Dir(root & d & "\*.txt")被调用时，生成的第一个列表被Dir(root & "*", vbDirectory)重置。我怎样才能避免这种情况？我尝试将第二个循环放在函数中
d = Dir(root & "*", vbDirectory)
d = Dir(): d = …我有这样的文件路径,我想从中提取年份:
\\Main\Folder\Folder1\Folder2\123456\ABC\V.1\SubFolder\1950\file.ext
\\Main\Folder\Folder1\Folder2\123456\BCD\V.1\SubFolder1\1987\file1.ext
\\Main\Folder\Folder1\Folder2\123456\ABC\V.1\SubFolder\1987_dup\file1.ext
\\Main\Folder\Folder1\Folder2\123456\CDA\V.1\SubFolder1\1950\file.ext
\\Main\Folder\Folder1\Folder2\123456\ABC\V.1\SubFolder\1997\file1.ext
\\Main\Folder\Folder1\Folder2\123456\XYZ\V.1\SubFolder3\1997_dup\file1.ext
...
观察我要提取的年份是路径中10"\"之后的前4个字符.感谢任何帮助,谢谢!
我目前正在努力解决以下问题
我正在尝试实现一个输入框,用户可以在其中输入列的字符.
在那之后,我不知道如何将其转换为数字以在Worksheet.CellsMethod中使用它
例如:用户输入"B",因此程序将其保存在名为x的变量中并将其转换为数字,以便它可以用作Worksheet.Cells(Row, X)
有没有方法或有人知道如何做到这一点？
一个工作表.103列.我需要填充第104列,查看一列(列O又名.15).该列中只有两个值,1或3.如果该列中有1,则该行的第104列单元格需要一个表示法; 如果它是3然后它需要一个不同的表示法.我对公式有所了解,对vba有点了解,这让我无处可去.我有其他宏用于转换列中的值,但它们都在同一列中工作,我似乎无法使那些适应我现在需要的.是否有一个相对快速的小宏我可以通过查看列o中的值并以两个符号之一弹出到我的上一列？
在那里编辑了第一部分.我猜想一下子想到两件事.这是专栏.有近3600行.我需要遍历每一行并根据列O中的值是1还是3来在最后一列(第104列)中输入符号.因此,从第1行开始并在最后一列中输入x或y取决于列o中的值,然后对每一行重复.
我有两个文档应该共享一个数值,每次使用其中一个文档后,该数值也应该增加1.
例如:
我很确定我可以创建第三个电子表格,我可以更新以更新两个单元格值,但我想知道是否有办法链接其他单元格
=A1.但是实现这一目标的最佳方法是什么？
我想显示文件夹和excel中的7000个文件内容？
我找到了一段代码,它帮助了我,但它是唯一一本一读.但是,我想一次性阅读7000.请帮忙.
Option Explicit
Sub Import_TXT_File()
Dim strg As Variant
Dim EntireLine As String
Dim FName As String
Dim i As String
Application.ScreenUpdating = False
FName = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Choose File to Import")
Open FName For Input Access Read As #1
i = 1
While Not EOF(1)
Line Input #1, EntireLine
strg = EntireLine
'Change "Sheet1" to relevant Sheet Name
'Change "A" to the relevant Column Name
Sheets("Sheet1").Range("A" & i).Value = strg
i = i + 1 …