- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时,我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
我的 VSTO 解决方案存在性能问题,我认为原因主要是 cellColor 逐个单元格设置的方式。
这取决于记录集中的数据,因此每次都不一样。 (我不能使用另一行/列的 copyFormats)
它类似于填充一系列值,只是对于那个值有几种方法。
我想首先在内存中用 C# 创建整个东西(一个 XlColorIndex[,] 数组),我将其传递给类似于下面的 VBA 方法:
Sub fillInterior(ByRef rg As Range, a As Variant)
//a is a double array that represents the colors for the spreadsheet
Dim r As Long, c As Long
Dim tmpRg As Range
r = 1
c = 1
For Each Row In a
For Each colorIdx In Row
Set tmpRg = rg(r, c)
With tmpRg.Interior
.ColorIndex = colorIdx
.PatternColorIndex = xlAutomatic
.PatternColor = xlSolid
End With
c = c + 1
Next
c = 1
r = r + 1
Next
End Sub
我一直在尝试通过以下方式调用这个宏,但还没有成功,非常感谢任何指点:
Excel.Range rg = this.Range[this.Cells[5, 3], this.Cells[6, 4]];
object[,] test2 = new object[2, 2];
test2[0, 0] = 15;
test2[0, 1] = 15;
test2[1, 0] = 15;
test2[1, 1] = 15;
this.Application.Run("Sheet1.fillInterior", rg, test2,
System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing,
System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing,
System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing,
System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing);
我试过 int[,] -
当我尝试 Nullable int 或 Double 时,我确实遇到了不同的错误:double?[,](可空 double 组):
The parameter is incorrect. (Exception from HRESULT: 0x80070057 (E_INVALIDARG))
如果我不尝试可为 null 的类型,我会收到以下 HRESULT 错误(类型不匹配?)
Exception from HRESULT: 0x800A000D
最佳答案
好吧,我应该读过 this更好:应该避免变体,所以如果我可以选择编写我的 VBA,我最好不要使用变体,而是使用适当的数组。
其次,我错误地使用了 VBA 数组,我应该对多维数组 (source) 执行以下操作:
我的 VBA 代码现在看起来像这样:
Sub fillInteriorMulti(rg As Range, Arr() As Long)
Dim N As Long, Ndx1 As Long, Ndx2 As Long
Dim icol As Long
Dim irow As Long
Dim NumDims As Long
// Custom Function: Get the number of array dimensions.
// NumberOfArrayDimensions will return 0
// if the array is not allocated.
NumDims = NumberOfArrayDimensions(Arr:=Arr)
Select Case NumDims
Case 0
// unallocated array
Exit Sub
Case 1
// single dimensional array
For N = LBound(Arr) To UBound(Arr)
With rg(N, 1).Interior
.ColorIndex = Arr(N)
.PatternColorIndex = xlAutomatic
.PatternColor = xlSolid
End With
Next N
Case 2
// 2 dimensional array
For Ndx1 = LBound(Arr, 1) To UBound(Arr, 1)
For Ndx2 = LBound(Arr, 2) To UBound(Arr, 2)
With rg(Ndx1, Ndx2).Interior
.ColorIndex = Arr(Ndx1, Ndx2)
.PatternColorIndex = xlAutomatic
.PatternColor = xlSolid
End With
Next Ndx2
Next Ndx1
Case Else
// Too many dimensions - Do Nothing
End Select
End Sub
Public Function NumberOfArrayDimensions(Arr As Variant) As Integer
// NumberOfArrayDimensions
// This function returns the number of dimensions of an array. An unallocated dynamic array
// has 0 dimensions. This condition can also be tested with IsArrayEmpty.
Dim Ndx As Integer
Dim Res As Integer
On Error Resume Next
// Loop, increasing the dimension index Ndx, until an error occurs.
// An error will occur when Ndx exceeds the number of dimension
// in the array. Return Ndx - 1.
Do
Ndx = Ndx + 1
Res = UBound(Arr, Ndx)
Loop Until Err.Number <> 0
NumberOfArrayDimensions = Ndx - 1
End Function
最后是测试这个的 C# 代码:
int[] test3 = new int[3];
test3[0] = 15;
test3[1] = 15;
test3[2] = 48;
int[,] test4 = new int[2, 2];
test4[0, 0] = 15;
test4[0, 1] = 15;
test4[1, 0] = 15;
test4[1, 1] = 15;
this.Application.Run("Sheet1.fillInteriorMulti", rg, test4,
missing, missing, missing, missing, missing, missing, missing, missing, missing, missing,
missing, missing, missing, missing, missing, missing, missing, missing, missing, missing,
missing, missing, missing, missing, missing, missing, missing, missing);
关于c# - 如何将数组从 C# (VSTO) 项目传递到 VBA 宏,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1531011/
Github:https://github.com/jjvang/PassIntentDemo 我一直在关注有关按 Intent 传递对象的教程:https://www.javacodegeeks.c
我有一个 View ,其中包含自动生成的 text 类型的 input 框。当我单击“通过电子邮件发送结果”按钮时,代码会将您带到 CalculatedResults Controller 中的 Em
我有一个基本的docker镜像,我将以此为基础构建自己的镜像。我没有基础镜像的Dockerfile。 基本上,基本镜像使用两个--env arg,一个接受其许可证,一个选择在容器中激活哪个框架。我可以
假设我想计算 2^n 的总和,n 范围从 0 到 100。我可以编写以下内容: seq { 0 .. 100 } |> Seq.sumBy ((**) 2I) 但是,这与 (*) 或其他运算符/函数不
我有这个网址: http://www.example.com/get_url.php?ID=100&Link=http://www.test.com/page.php?l=1&m=7 当我打印 $_G
我想将 window.URL.createObjectURL(file) 创建的地址传递给 dancer.js 但我得到 GET blob:http%3A//localhost/b847c5cd-aa
我想知道如何将 typedef 传递给函数。例如: typedef int box[3][3]; box empty, *board[3][3]; 我如何将 board 传递给函数?我
我正在将一些代码从我的 Controller 移动到核心数据应用程序中的模型。 我编写了一个方法,该方法为我定期发出的特定获取请求返回 NSManagedObjectID。 + (NSManagedO
为什么我不能将类型化数组传递到采用 any[] 的函数/构造函数中? typedArray = new MyType[ ... ]; items = new ko.observableArray(ty
我是一名新的 Web 开发人员,正在学习 html5 和 javascript。 我有一个带有“选项卡”的网页,可以使网页的某些部分消失并重新出现。 链接如下: HOME 和 JavaScript 函
我试图将对函数的引用作为参数传递 很难解释 我会写一些伪代码示例 (calling function) function(hello()); function(pass) { if this =
我在尝试调用我正在创建的 C# 项目中的函数时遇到以下错误: System.Runtime.InteropServices.COMException: Operation is not allowed
使用 ksh。尝试重用当前脚本而不修改它,基本上可以归结为如下内容: `expr 5 $1 $2` 如何将乘法命令 (*) 作为参数 $1 传递? 我首先尝试使用“*”,甚至是\*,但没有用。我尝试
我一直在研究“Play for Java”这本书,这本书非常棒。我对 Java 还是很陌生,但我一直在关注这些示例,我有点卡在第 3 章上了。可以在此处找到代码:Play for Java on Gi
我知道 Javascript 中的对象是通过引用复制/传递的。但是函数呢? 当我跳到一些令人困惑的地方时,我正在尝试这段代码。这是代码片段: x = function() { console.log(
我希望能够像这样传递参数: fn(a>=b) or fn(a!=b) 我在 DjangoORM 和 SQLAlchemy 中看到了这种行为,但我不知道如何实现它。 最佳答案 ORM 使用 specia
在我的 Angular 项目中,我最近将 rxjs 升级到版本 6。现在,来自 npm 的模块(在 node_modules 文件夹内)由于一些破坏性更改而失败(旧的进口不再有效)。我为我的代码调整了
这个问题在这里已经有了答案: The issue of * in Command line argument (6 个答案) 关闭 3 年前。 我正在编写一个关于反向波兰表示法的 C 程序,它通过命
$(document).ready(function() { function GetDeals() { alert($(this).attr("id")); } $('.filter
下面是一个例子: 复制代码 代码如下: use strict; #这里是两个数组 my @i =('1','2','3'); my @j =('a','b','c'); &n
我是一名优秀的程序员,十分优秀!