如何使用假设

xing_chen · 发表于 2022-11-20 16:38

老师，簿中有多表，依表列总数分为2种。现有代码实现了多表的同位置的删行和插列，但在填写列名我希望部分表格填写“合计”（表名涂红），另部分表格不填写“合计”，这怎么写IF的代码？敬请老师赐教。

feilanga · 发表于 2022-11-20 17:12

最大列 = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
If 最大列 > 5 Then

‘二者区别是列数的不同，那么判断列数’

于箱长 · 发表于 2022-11-20 17:36

不知所云，不明所以

xing_chen · 发表于 2022-11-20 17:57

于箱长发表于 2022-11-20 17:36
不知所云，不明所以

谢谢老师的回复，指出我的表述不清！我的意思是若运行代码则整个工作簿中工作表的 i1列（第9列的第1个单元格）都会生成“合计”字符，怎么添加 if语句使得1到4（涂红表格）有“合计”而5到7的表格不添加“合计”。不知道这样的表述还是否会使人云里雾里吗?

582766 · 发表于 2022-11-20 18:18

唉
‘’‘’‘’‘’‘’‘’

xing_chen · 发表于 2022-11-20 18:28

582766 发表于 2022-11-20 18:18
唉
‘’‘’‘’‘’‘’‘’

谢谢老师的回复！运行代码未达到理想。

gwjkkkkk · 发表于 2022-11-20 18:48

本帖最后由 gwjkkkkk 于 2022-11-20 19:25 编辑

Sub test()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
   With wks
      .[C1] = "项目": .[D1] = "细项"
      .[I1] = IIf(wks.Tab.Color = 255, "合计", "")
   End With
Next
Beep
End Sub

gwjkkkkk · 发表于 2022-11-20 18:49

本帖最后由 gwjkkkkk 于 2022-11-20 18:51 编辑

代码审核中，请参考附件，不知道是不是这个意思。。。

于箱长 · 发表于 2022-11-20 20:04

xing_chen 发表于 2022-11-20 17:57
谢谢老师的回复，指出我的表述不清！我的意思是若运行代码则整个工作簿中工作表的 i1列（第9列的第1个单 ...

明白了，你等我撸完串地

于箱长 · 发表于 2022-11-20 20:07

xing_chen 发表于 2022-11-20 17:57
谢谢老师的回复，指出我的表述不清！我的意思是若运行代码则整个工作簿中工作表的 i1列（第9列的第1个单 ...

I1？I1不是合并单元格吗？你确定你不是在开玩笑吗？

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

[求助] 如何使用假设

评分

评分

评分