Tag: 下标
用下标字符导入excel文件
上传Excel文件是好的，不是一个问题 经历了很多关于ubuntu excel的文章，试了一下 http://phpexcel.codeplex.com/ http://sourceforge.net/projects/phpexcelreader/ https://stackoverflow.com/a/7889220/1026905 （非常好的编码类） 我的问题是我不能上传在Excel文件中看到的字符，因为它是 上标部分正在转换示例中 ∴ tn = n² + 2n + 1 + 2 n²…得到转换 ∴….照原样转换 所有字符像∠Ωπ√∞≅⊥∴∴≈⊆⊆I我可以照原样转换 唯一的问题是tn，t1，t2，t3我无法获得n，1,2,3作为下标（不能在这里显示，但你可以在图像中查看 tn … should be t<sub>n</sub> … in html format n should be subscript 我没有这样做
从由范围加载的数组中删除空白条目
我试图删除一个数组，从一个名为TY [L3名称]（1列，X行长）从Excel中的数据表加载的空白条目。 下面的代码旨在从数组中删除所有空值（一旦它已经被加载范围），并返回一个新的数组，其中只有数据的行。 我想将这个数组传递给一个集合，以删除重复，但我想弄清楚为什么我不能先乘坐空白（现在我在一个点，我只是想了解如何做到这一点不pipe我是否通过这个别的东西或不）。 ReDim Preserve行代码错误。 我首先将NewArr的大小设置为MyArr表，但最后返回空行。 然后我试图调整它，所以我只有行中的数据，但我似乎无法得到的NewArr（）数组做这个没有错误。 我正在使用立即窗口来validation没有空白条目（目前在TY [L3名称]范围的末尾有8行）。 Sub BuildArray() ' Load array Dim MyArr() Dim j As Long ' Size array MyArr() = Range("TY[L3 Number]") ReDim NewArr(LBound(MyArr) To UBound(MyArr), 1) ' For Loop to search for Blanks and remove from Array ' The Lbound and UBound parameters will be defined by the […]
使用ActiveCell.Offset的VBA使运行时错误9下标超出范围
这是我的第一篇文章，请耐心等待。 我目前正在学习Excel的VBA编码，我正在尝试读取一个.csv文件并解释它。 但是当我运行这个脚本的时候，我会得到一个错误“9”（下标超出范围），尽pipe代码仍然有效，但是我需要去除它。 代码如下： Sub OpenTextFile() Worksheets("Ark1").ChartObjects.Delete Close #1 Call chart Dim path As String path = "C:\hello" Dim file As String file = Range("C1").Value Dim filetype As String filetype = ".csv" Dim FilePath As String FilePath = path & file & filetype Open FilePath For Input As #1 row_number = 0 Do Until EOF(1) […]
VBA Error9导出到PDF
使用Excel VBA，我试图以PDF格式打印一张工作簿。 我正在使用这个代码： Private Sub cmd_Print_Design_Click() Sheets("Sheet1").ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "/" & "Design Summary", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub 该代码不运行，我得到ERROR 9 "Subscript out of Range" 。 我不明白如何解决它。
在引用单元格时下标超出范围错误
我的代码的目标是采取一个单元格的旧值，并检查它对一个新的价值，如果它进入。 如果旧值更改为新值，则更新指定单元格中的date。 我的代码的问题是，我似乎无法find一种方法来解决这个错误，而不是我的代码中断，因此我无法修复这一行代码。 我知道我的arrays超出了界限，但是我无法弄清楚如何避开它。 这是我的代码： Dim oldValue() Public Sub Worksheet_SelectionChange(ByVal Target As Range) oldValue = Me.Range("D4", "D21").Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("D4:D21")) Is Nothing Then Dim c As Range For Each c In Intersect(Target, Me.Range("D4:D21")) 'Here's where my code is breaking "Subscript out of range error" If oldValue(c.Row) […]
在更改单元格颜色时下标超出范围错误
嗨，我是新来的vba，我可能不真正undestand很多，但我不能解释为什么我得到一个“运行时错误9：下标超出范围”的错误，当代码应该改变单元格的背景颜色到另一个 Sub CompareWorksheets(ws1 As Worksheet, ws2 As Worksheet) Dim r As Long, c As Integer Dim lr1 As Long, lr2 As Long, lc1 As Integer, lc2 As Integer Dim maxR As Long, maxC As Integer, cf1 As String, cf2 As String Dim DiffCount As Long Application.ScreenUpdating = False With ws1.UsedRange lr1 = .Rows.Count lc1 = […]
下标超出范围，Excel VBA，试图在循环内创build一个数组
我试图循环遍历表单中的所有控件，每次它捕获一个Label时，Label的Tag元素被添加到数组中。 Dim labelCounter As Integer labelCounter = 0 Dim arrayTag() As String For Each ctl In Me.Controls Select Case TypeName(ctl) Case "Label" arrayTag(labelCounter) = ctl.Tag labelCounter = labelCounter + 1 End Select Next 我不断收到下标超出范围的错误。 这里怎么了？
当input已经打开的工作簿时，下标超出范围，VBA
堆栈的人， 我有一个麻烦的问题。 我正在写一个macros，允许用户select和使用已打开的工作簿。 在用户通过用户表单获得名称后，当我尝试设置工作簿或与其交互时，会出现下标超出范围的错误。 我已经确认工作簿已经打开，并且ExcelAp对象正在连接到正确的Excel实例。 这是相关的代码： Option Explicit …. Public Sub TerminalOpen() Dim WorkbookOpen As VbMsgBoxResult Dim ExcelAp As Excel.Application Dim FedExWkbk As Excel.Workbook …. Else Set ExcelAp = Excel.Application WorkbookSelection.Show WkbkFedExTracking = Trim(VBA.Left(WkbkFedExTracking, InStr(1, WkbkFedExTracking, ".", vbTextCompare) – 1)) Set FedExWkbk = ExcelAp.Workbooks(WkbkFedExTracking) <<<<< This is where the error occurs FedExWkbk.Activate End If 为了logging，我也尝试了很晚才把ExcelAp绑定起来。 […]
在VBA中打印Long to Cells的数组，并使下标超出范围错误
我几乎完成了电子表格，在这里我比较了两个数组，而任何在一个数组中而不在另一个数组中的任何数据都被放入第三个数组中。 然后，我想将数组中的值放到工作簿的工作表上的单元格中，但是即使数组在debugging器中显示一个值，我也会得到下标超出范围。 这里是打印数组的循环： If (Not MissingLoans) = -1 Then ThisWorkbook.Sheets("Inputs and Results").Cells(PrintCell, 1) = "No Missing Loans Found on Roll-Up" Else For i = 1 To (UBound(MissingLoans())) Step 1 *** ThisWorkbook.Sheets("Inputs and Results").Cells(PrintCell, 1).Value = MissingLoans(i) PrintCell = PrintCell + 1 Next End If 我把星号放在了超出范围的错误的位置，但是MissingLoans（I）正在显示一个值。 实际上Missingloans（1）是数组中唯一的值。
VBA Excel：奇数下标超出范围错误（9）
我遇到了一个奇怪的VBA下标超出范围错误在这个简单的子： Sub writeTypes(ByVal rowNb As Long, ByVal colNb, ws As Worksheet) On Error GoTo ErrorHandler_ObjMethod Const METHOD_NAME = "writeTypes (CCase)" With ws If Not isArrayEmpty(pTypes) Then For i = LBound(pTypes) To UBound(pTypes) If pTypes(i) <> "" Then .Cells(rowNb, colNb).Value = .Cells(rowNb, colNb).Value & pTypes(i) & ";" ElseIf i = UBound(pTypes) Then .Cells(rowNb, colNb).Value = Left(.Cells(rowNb, […]
