这可能是一个简单的,但我有这个Excel vba宏,我试图划分两个整数,我最终得到一个圆数,即使在那里应该有一个逗号.例如278/101 = 3.虽然它真的是2,75而不是3.这是为什么？
宏非常简单,如下所示:
Dim intFull, intLow , intDivided as Integer
intFull = 278
intLow = 101
intDivided = intFull \ intLow
我有以下代码:
Function TruncateString(str, n)
' Returns an array with strings no more than n char long, truncated at spaces
Dim truncatedArr() As String
If str <> "" Then
str = remove_spaces_left(str)
For i = 0 To (CLng(Len(str) / n))
Index = InStrRev(Left(str, n), " ")
ReDim Preserve truncatedArr(i)
truncatedArr(i) = Left(str, Index)
If Right(truncatedArr(i), 1) = " " Then truncatedArr(i) = Left(truncatedArr(i), Len(truncatedArr(i)) - 1)
str = Right(str, Len(str) - Index)
Next i
End If
TruncateString = truncatedArr
End Function …我希望有人可以看看并为我整理一下; 我不得不说错误处理不是我的强点.我有下面的代码块,我一直在玩一些错误句柄,但它不是我真的想要它.
我要做的是确保如果在任何时候出现错误,我打开的工作簿和excel实例将正常关闭.
我相信有更多更好,更简单的方法来实现这一点,而不是我想出的.
Sub QOScode()
On Error GoTo Fail
Dim app As New Excel.Application
app.Visible = False 'Visible is False by default, so this isn't necessary
Dim book As Excel.Workbook
Set book = app.Workbooks.Add(ActiveWorkbook.Path & "\QOS DGL stuff.xlsx")
'set up error handeling so if any thing happens the instance of excel with QOS sheets is closed gracefully
On Error GoTo Closebook
' MsgBox book.Sheets("ACLS").Cells(3, 3)
'Do what you have to do
'
Closebook:
On Error Resume Next
book.Close SaveChanges:=False …我正在使用Microsoft Project VBA将我的活动名称从英语翻译成中文.
我的问题是我在一些英文活动名称中嵌入了一些中文翻译.我想在将字符串传递给Microsoft Translator之前删除中文字符.
关于我如何做到这一点的任何想法？
我正在为甘特图电子表格写一些VBA.
我在第5行有3个月的日期,我可以通过在更新整个工作表的单元格中输入日期来设置开始日期.
我的图表L6:CZ42有一系列单元格.对于此范围,如果第5行中的单元格是该月的第1个,则该列中的每个单元格都将具有灰色虚线左边框,而右侧没有任何内容.这是我想要的方式.
问题是它在单元格的顶部和底部添加了一个灰色边框,对于第7行到第41行是可以的,但是对于第6行,我想要一个黑色的顶部边框,而对于第42行,我想要一个黑色的底部边框.
我添加了这部分代码试图对此问题进行排序,但语法错误,检查是否在第6行
' If this is the first row (6) in the range then
' add a black continuous border to the top
If Cells(6, i) Then
With .Borders(xlEdgeTop)
.ColorIndex = 1
.Weight = xlThin
.LineStyle = xlContinuos
End With
End If
这是我的整个代码
Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim CuDate As Date
For i = 12 To 104
CuDate = Cells(5, i).Value
' Are we on the 1st day of the month
If …任何人都可以让我知道如何在excel中保持'08'或'09'等.. 因为当我输入08并保存它变为8.
我想在小数前面保持0
我有一个大CSV文件,我想以编程方式在excel中打开它,突出显示一个特定行(我知道行号).最简单的方法是什么？
我认为我的选择是:
假设系统安装了Excel,我更喜欢Java/Python/Shell或任何适用于Mac/Windows的东西.所以,我最好的选择可能会让#1我回到如何将CSV文件转换为文件的问题xlsx.
这听起来很简单,但我一直在努力寻找解决方案.在我去秃头之前的任何帮助都会很棒.
我需要一个能够的配方
05/12/2012 5:30 PM并说07/12/2012 5:45 PM);我希望公式的结果如下所示"eg 2 Days 0 Hrs and 15 Mins".
谢谢
链接到示例工作簿
我想知道是否有人在Excel(2010)中使用LINEST有任何提示.很容易找到指南但很难获得帮助排除故障.这可能不是正确的论坛,但每个人都在这里有所帮助我无法抗拒询问.
我正在尝试使用Excel LINEST函数将三阶多项式拟合为一组数据.
X_List: 44.00 45.50 46.30 46.80 47.50 47.90 48.60 49.90 51.20 51.80 52.30 53.00 53.40 54.30 55.70
Y_List: 0.10 1.00 3.00 5.00 10.00 15.00 25.00 50.00 75.00 85.00 90.00 95.00 97.00 99.00 99.90
=LINEST(Y_LIST, X_LIST^{1,2,3})^{1,2,3}
我正在使用的LINEST方程是: ^{1,2}
这总是给我一个#VALUE!我使用^{1}或^{1,2,3}不使用时出错
X_List: 44.00 45.50 46.30 46.80 47.50 47.90 48.60 49.90 51.20 51.80 52.30 53.00 53.40 54.30 55.70
Y_List: 0.10 1.00 3.00 5.00 10.00 15.00 25.00 50.00 75.00 85.00 90.00 95.00 97.00 99.00 99.90 .这个相同的公式适用于另一个数据集,所以我知道它不是一个错字问题,当我制作数据图表并应用趋势线时,它给了我一个公式,所以它应该能够计算一些东西.无论我是否使用"数组"输入法,即使用所选范围的ctrl-shift-enter,它都会这样做. …
我在使If NOT Like代码工作时遇到了一些问题.
下面是编码的一部分.似乎编码正在带来第二个记录,在该字段中有铁路,但没有一个记录在那之前或之后有铁路.
实际上,它应该在该领域的任何地方带来不包含铁路的记录,但它也不会这样做.任何反馈都表示赞赏.
Set rngData = Intersect(wsData.UsedRange, wsData.Range("A:K"))
j = 1
rngData.Rows(1).Copy Destination:=wsGalreq.Cells(j, 1)
For i = 2 To rngData.Rows.Count
If Not rngData.Cells(i, 11).Value = "SUPPLIER A" And rngData.Cells(i, 6).Value Like "*RAIL*" Then
j = j + 1
rngData.Rows(i).Copy Destination:=wsGalreq.Cells(j, 1)
End If
Next