下面的代码给了我错误的下标of range.it在这一行给了我错误:
[ oSheet.Cells(i,5).Value = g(h) ]
我使用上面的代码来使用拆分函数来分离字符串。我在一个单元格中有以下excel数据:
Pankaj sharma;#234;#khushal verma;#786;#parul datta;#456;#
我想使用VBA将其转换为:
pankaj sharma
库沙尔·维尔马
Dim c
Dim d
Dim h
Set objExcel = CreateObject("Excel.Application")
Set objWork
我熟悉java编程、抛出和捕获错误,也不确定这是否是excel VBA中的一个功能。我想做下面的捕捉,但不确定它是否仍然工作。
If Workbooks("Name").Worksheets("Sheet1") Is Nothing Then
Err.Raise vbObjectError + 9, , "Destination Spreadsheet not Open. Please Open"
End If
Set wsDest = Workbooks("Name").Worksheets("
在VBA中运行以下代码来调用数组中的excel单元格,并在FOR循环中使用它进行计算,但将"Subscript超出范围“错误
Sub nestedLoopFor()
Dim i As Integer
Dim j As Integer
Dim Qty As Variant
Dim Cap As Variant
Qty = Range("C2:L2").Value 'call cells from 3rd row
Cap = Range("B3:B7").Value 'call cells fr
我正在尝试通过编写用户定义的函数来使Excel工作表更具可读性,更易于使用。我正在尝试转换如下公式,
=If(IsErr(GetPivotData(Pivot Look up information here)),0,GetPivotData(Pivot Look up information here))
使用vba代码
pt.GetPivotData(Pivot Look up information here)
我在检测VBA中的查找查询时遇到问题。在上面的公式中,这是由IsErr函数处理的。我尝试过使用IsError(pt.GetPivotData(这里是透视查找信息)),但是程序崩溃
谁能帮我弄清楚为什么这个代码erro是“下标超出范围”。(运行时错误9)
Dim arrayU() As Variant
Dim arrayX() As Variant
Dim arrayW() As Variant
Dim LrowU As Integer
Dim LrowX As Integer
Dim LrowW As Integer
Dim i As Integer
Dim j As Integer
Dim bed_in_use As Integer
For i = 3 To LrowX
For r = 3 To LrowW
For j = 3 To LrowX
所以,我有一个表单,我试图用一个数组填充ComboBox,该数组应该包含基于循环的元素。但是,当我尝试初始化表单并填充ComboBox时,我得到了一个Subscript out of Range Error
我真的不确定为什么我会超出范围,所以我需要一些帮助来检查我的代码。我不是最熟悉VBA的人,所以我真的可以用另一双眼睛来告诉我哪里做错了。
Private Sub UserForm_Initialize()
Dim refConcentrations As Variant
Dim i As Long, j As Integer, LRow As Long
With
我尝试遍历窗体中的所有控件,每次它捕获标签时,标签的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
我在同一个工作簿中创建了许多工作表(大约30张)。我试图用VBA编程,其中一个值将出现在一个指定的倍数单元格中,但是存在一个“运行时错误9,Subscript超出范围”的问题。
Sub Invoice()
For i = 5 To 11
With Sheets("Sheet" & i)
.Range("J2") = "a"
End With
Next i
End Sub
如代码所示,值"a“必须出现在从sheet5到sheet11的每个工作表的单元格she
我正在尝试将VBA创建的数组打印到excel电子表格的单元格中。渗流和径流值不断得到“下标超出范围”错误,我是否正确地创建软管数组?我已经将计算和打印子函数合并为一个。
NumMonth = 12
Dim col As Long
Dim rw As Long
rw = 4
col = 13
Range(Cells(rw, col), Cells(rw + NumMonth - 1, col)).Value = _
Application.Transpose(WC)
Range(Cells(rw, col + 1), Cells(rw + NumMonth - 1, co
我试图制作一个Excel2007VBA代码来使用userform选择一个工作表。在测试过程中,如果输入工作簿中没有的工作表名,就会使'Subscript超出范围‘错误。我的密码在下面。
Private Sub Okbtn_Click()
sheetname = Me.ComboBox1.Value
If sheetname = "" Then
Unload Me
MsgBox "Sheet Name not enetered", vbExclamation, "Hey!"
Exit Sub
End If
This
我真的是VBA的新手,我已经在这个问题上尝试了一整天,所以任何帮助和提示都很感谢。我在努力找出我做错了什么。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intArray(0, 9) As Integer
Dim strTarget As String
Dim blnFound As Boolean
Dim intRowIndex As Integer
Dim intColumnIndex As Integer
Dim intMatchIndex As Integer
For intRowIndex
我试图从动态数组中调用一个值,以便稍后在VBA函数中使用,但如果不抛出一个数组,则无法调用它。这里怎么了?
我试图更改数组类型和调用方法,但错误不断出现。
Dim lastColumn As Integer
Dim defaultWidth As Double
defaultWidth = 8.11
lastColumn = 30
'Declare array for column width
Dim widthArray() As Double
ReDim widthArray(lastColumn)
For c = 1 To lastColumn
widthArra
我对vba脚本很陌生。我正试图在下面写一个函数,但没能成功地写出它。我真的很感激我能帮上什么忙。
守则是:
Option Explicit
Dim status As String
Sub StartModule()
Dim index As Integer
Dim result As String
Dim a As Integer
Dim Name As Variant
Range("D4").Value = 1
Range("D5").Value = 5
Range("D6").Value = 9
Range("D7")
如果我尝试这样做:
int count = int.TryParse(Console.ReadLine(), out count) ? count : default(int);
而不是这个:int count = int.Parse(Console.ReadLine());
问题已解决,但随后出现数组超出范围的错误。我该怎么做?
using System;
using System.Linq;
using System.IO;
using System.Text;
using System.Collections;
using System.Collections.Generic;
cl
我正在做一个简单的电梯程序,我必须在电梯移动之前和之后输出每个楼层的组成。为了做到这一点,我创建了每个楼层上不在电梯中的乘客的列表。当我试图打印这个包含乘客身份的特定列表时,问题就出现了。 我尝试过多种方法来打印出现各种索引错误的列表,例如元组超出范围或该项不可迭代。 interior = [[] for i in range(self._floors)]
for f in range(self._floors):
for p in self._passengers:
if p.waiting() and p.starting_floor() == f:
您好,我在Excel中使用VBA,需要将来自两个区域的值从单元格的公式中传递到自定义函数中。该函数如下所示:
Public Function multByElement(range1 As String, range2 As String) As Variant
Dim arr1() As Variant, arr2() As Variant
arr1 = Range(range1).value
arr2 = Range(range2).value
If UBound(arr1) = UBound(arr2) Then
Dim arrayA()
#include<iostream>
#include<string>
#include <cstring>
using namespace std;
bool b[200][200];
int a[46];
int test_cases;
int n;
int m;
int first;
int second;
int main()
{
cin>>test_cases;
while(test_cases--){
cin>>n;
cin>>m;
for (int i=0;i<2
当我编写生成随机字符串列表的代码时,长度为5个字符,以7为单位:
#include<iostream>
#include<string.h>
using namespace std;
void generate(string*, int);
int main()
{
string* list = new string[7];
generate(list, 7);
return 0;
}
void generate(string* list, int a)
{
for (int i = 0; i < a; i++)
{
我已经阅读了关于这个主题的答案,并弄明白了为什么会出现“超出范围的列表索引”,,但我似乎无法准确定位我需要做什么来纠正代码。我是个初学者,因此可能忽视了正确的写作伦理。
代码是反转已经提供的字符串,但我是以一种方式编写,以便我可以开始从用户的输入,从一个未知的词数,它仍将工作。
teststring = "this is a test"
result = []
result = teststring.split() #holding individual element
final = [] #to hold the rev
我是excel中的VBA新手,我编写代码将单元格从工作表复制到数组中。当我运行时,会出现运行时错误。我不知道出了什么问题。
Sub DistSystem()
Dim count As Integer
Dim i As Integer
Dim array_rank() As Variant
Dim array_city() As Variant
Dim array_assign() As Variant
count = Sheets("111").Range("Y2").Value
For i = 0 To c
我有一个结构,其中我有一个向量
vector<int> accept;
在我的程序中,当我试图在特定索引处插入一个值时。我知道这个错误:
terminate called after throwing an instance of 'std::out_of_range'
what(): vector::_M_range_check
在我的循环的每一次迭代中,我都会增加AlphabetCounter并在这个特定的索引上放置一个值,如下所示:
AlphabetCounter=AlphabetCounter+1;
NewNextStateDouble.accept
我有一个MS Word文档,它生成一个Excel,其中填充了Word文档中的一个表中的数据。Word表的Excel版本将是一个检查表。因此,我试图在生成的excel中添加一些特性,以使其更有用。我尝试添加条件格式设置(如果该行被标记为完全)和验证(因此已完成的列有带有Yes或No的下拉列表)。我可以使两者在Excel中工作,但不能从Word获得VBA来向生成的Excel添加功能。
在这两种情况下,.Add方法似乎都造成了问题。我尝试了两个语法来做到这一点:
With objNewExcel.Sheets(1).Range("e5").Validation
.Add Ty
我知道这是一个非常基本的问题,
但我尝试了很多方法,并且总是表现出来:
“致命错误:数组索引超出范围”
我想要创建一个0~100 int数组
e.q.变量integerArray = 0,1,2,3,.....,100
我试着
var integerArray = [Int]()
for i in 0 ... 100{
integerArray[i] = i
}
还出现了“致命错误:数组索引超出范围”
谢谢你的帮助
完整代码:
class AlertViewController: UIViewController,UIPickerViewDelegate, UIPickerViewDa
我是VBA新手,我试图将一些累积值赋值给数组,但是会发生以下错误:
下标超出范围(错误9)。
下面是代码:
Dim array1(), acm As Long
Dim i As Integer
i = 0
For lin = 4 To contRows
For col = 3 To contColumns
acm = acm + Sheets("2017").Cells(lin, col).Value
Next col
array1(i) = acm 'error 9
i = i + 1
Next lin
我希望
我有一个循环,它抛出了一个错误"Int不可转换为Range< Int >":
var summaryValues:[Int]=[Int]();
for (dayIndex,valuesPerDay) in enumerate(allValuesPerDay){
if (valuesPerDay>0){
while summaryValues[dayIndex]==nil{ // ERROR
summaryValues.append(0);
}
summaryValues[dayIn
我正试图为Microsoft Access创建一个VBA脚本,该脚本可以提取标题(如先生、夫人、博士等)。在“名称”字段中,然后返回该标题的已清除的特定版本。我试图创建一个多维数组,其中一列包含标题,另一列使用已清除的标题,但当我试图编译脚本时,会出现语法错误。我知道语法错误是因为多维数组,因为我基于以前的脚本,以前的脚本只查找旧的标题,并且运行良好。,我遗漏了什么导致这是语法错误?我没有正确地调用多维数组吗?,诚然,我对VBA脚本并不熟悉,在编程方面也很生疏,所以如果我遗漏了一些简单的东西,请原谅我。
Public Function findTitles(inName) As Str
如果我输入A3B4程序的运行,但是输入A10B13所以程序会出现超出范围的错误索引,那么如何在没有库的情况下修复代码并使用这些代码。
Char = input ("Input Char : ")
Total = len(Char)
Decompress =""
for i in range (0, Total,2):
Loop = int(Char[i+1])
for j in range (0, Loop):
Decompress = Decompress + Char [i]
print("Outp
我正在尝试将一个简单的excel函数复制到VBA中,但我得到了类型不匹配错误。基本上,我有两个命名的范围rDate和rYear和下面的Excel函数,它可以很好地工作,并给出以下输出:
=IF(YEAR(RDate)=r YEAR,rYear,"")
但是,正如我前面提到的,在尝试将其转换为VBA时,我遇到了类型不匹配错误。下面是我的代码:
Public ws As Worksheet
Sub Test()
Dim rDate, rYear, rResult, cell As Range
Set ws = Worksheets("Sheet1")
Set r