各位大佬，我想在excel呈现每组3个数字，总共14组。每组挑选出一个相乘的所有结果，就有3的14比方个，请问我的vba代码一直显示range作用于对象错误，应该怎么调整？谢谢各位大佬 ' 将结果写入新的工作表 Set ws = ThisWorkbo-CSDN社区

2301_77954627 2023-05-03 17:46:33

各位大佬，我想在excel呈现每组3个数字，总共14组。每组挑选出一个相乘的所有结果，就有3的14比方个，请问我的vba代码一直显示range作用于对象错误，应该怎么调整？谢谢各位大佬 ' 将结果写入新的工作表 Set ws = ThisWorkbook.Worksheets.Add ws.Range("A1:N" & UBound(arrResults)).Value = arrResults End Sub Sub CalculateAllProducts(arrData() As Double, arrResults() As Double, ByVal level As Integer, ByVal resultIndex As Long) Dim i As Integer If level <= 14 Then For i = 1 To 3 arrResults(resultIndex, level) = arrData(level, i) CalculateAllProducts arrData, arrResults, level + 1, resultIndex + (i - 1) * (3 ^ (14 - level)) Next i End If End Sub

...全文

33 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

使用的类库 pip install openpyxl 操作实现 •工作簿操作 # coding: utf-8 from openpyxl import Workbook # 创建一个excel工作簿 wb = Workbook() # 打开一个工作簿 wb = load_workbook('test.xlsx') # 保存工作簿到文件 wb.save('save.xlsx') •工作表操作 # 获得当前的工作表对象 ws = wb.active # 通过工作表名称得到工作表对象 ws = wb.get_sheet_by_name('sheet') # 获取工作簿的所有工作表对象列表 ws

1. Cells 表示一个Range对象, 默认无参数时代表整个工作表的所有单元格 Dim allCells As range Dim ws As Worksheet Set ws = Application.ActiveWorkbook.ActiveSheet Set allCells = ws.Cells With allCells

如果问题仍然存在，你可以尝试将工作表复制到一个新的Excel文件中，以查看是否可以解决问题。如果工作表被保护，并且你没有正确的权限，那么整个工作表将显示为灰色。工作表文件可能损坏或格式错误，导致整个工作表呈现灰色。当你打开Excel时，如果整个工作表呈现灰色，这可能是由于几个可能的原因引起的。请将代码中的"YourPassword"替换为你的工作表密码，然后在VBA编辑器中运行此宏。在某些情况下，工作表显示为灰色可能是由于图形硬件加速的问题。Excel将尝试修复文件中的任何错误，并打开修复后的工作表。

好的，以下是一段VBA代码，它可以实现在Excel中多个工作表的合并： Sub MergeSheets() Dim ws As Worksheet Dim sh As Worksheet Dim i As Integer Dim LastRow As Long Set ws = ThisWorkbook.Sheets("合并后的工作表") '将合并后的数据存储在名为"合并后的工...

VBA Excel对象大纲 VBA Excel对象大纲： VBA Excel对象层次结构 VBA Set 对象赋值 VBA IsObject 判断是否对象 VBA Workbook 工作簿 VBA Worksheet 工作表 VBA Range 区域 VBA Application 应用 VBA 图表

7,732

社区成员

197,677

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章