想问个问题，为什么单元格区域的背景色不能批量直接赋值呢？

leeeshi · 发表于 2018-10-12 20:02

  Dim color '定义背景色数组
  ReDim color(1 To maxrow, 1 To 1) '重定义背景色数组
  color = Cells(shtop + 1, maxcol - 1).Resize(maxrow, 1).Interior.ColorIndex '获得背景色
想请问一下，为什么color = Cells(shtop + 1, maxcol - 1).Resize(maxrow, 1).Interior.ColorIndex不能直接赋值
难道非要用循环吗？
  For i = 1 To maxrow
  color(i, 1) = Cells(shtop + i, maxcol - 1).Interior.ColorIndex '获得背景色
  Next

  Dim arr '定义数组
  ReDim arr(1 To maxrow, 1 To 1) '重定义数组
  arr = Cells(shtop + 1, maxcol).Resize(maxrow, 1) '获得数组
为什么arr = Cells(shtop + 1, maxcol).Resize(maxrow, 1)可以直接赋值

932789750 · 发表于 2018-10-12 21:48

类型不一样。Cells().Resize()是range型，可以直接转换数组。ColorIndex是long型，不能

leeeshi · 发表于 2018-10-12 22:25

除了用循环赋值，还有其它更好的方法吗？

		自动登录	找回密码
密码			免费注册

[求助] 想问个问题，为什么单元格区域的背景色不能批量直接赋值呢？