限定单元格范围循环宏怎么写

anoberts

求助：在G3：K10单元格查找蛋白质、脂肪，并加粗字体，对边框画线，其他单元格的蛋白质（B3)、脂肪(B4)不修改，宏怎么写？谢谢！

excel玉米

Dim Rng as range,Rg as Range
Set Rng=range("G3:K10")
For Each Rg in Rng
      If instr(Rg,"蛋白质")>0 then
          '在这里写加粗和划线
      End if
Next

tanglf188

excel玉米 发表于 2024-4-23 17:07
Dim Rng as range,Rg as Range
Set Rng=range("G3:K10")
For Each Rg in Rng

1. Sub test()
   
2.     Rem 这里写入恢复设置代码
   
3.     For Each mc In Sheet1.Range("G3:K10")
   
4.         If InStr(mc.Value, "脂肪") Or InStr(mc.Value, "蛋白质") Then
   
5.             With mc
   
6.                 Rem 以下写入设置格式
   
7.                 '.Font.Name = "等线"   '单元格字体名称
   
8.                 '.Font.Size = 14   '单元格字体大小
   
9.                 '.Font.Color = RGB(255, 255, 255) '设置字体颜色
   
10.                 .Font.Bold = True   '单元格字体是否为粗体,可以是True或False两个值
    
11.                 '.Font.Italic = True   '单元格字体是否为斜体,可以是True或False两个值
    
12.             End With
    
13.         End If
    
14.     Next
    
15. End Sub
    

复制代码

anoberts

excel玉米，tanglf188，收到，谢谢！

anoberts

实际要的结果，即只对单元格G3:K39范围内的“能量，蛋白质，碳水化合物，钠”加粗，要精确匹配，如含有“脂肪”的“反式脂肪（酸）”不能加粗。帮忙查找一下宏哪里错了谢谢！

anoberts

实际要的结果，即只对单元格G3:K39范围内的“能量，蛋白质，碳水化合物，钠”加粗，要精确匹配，如含有“脂肪”的“反式脂肪（酸）”不能加粗。帮忙查找一下宏哪里错了谢谢！

anoberts

哪位老师可以提供一下解决方法，谢谢！

taller