请高手帮忙修改代码

alonzhang76

洋务德雷 发表于 2022-12-14 22:52
解决了两个问题。第一个和第三个问题。

感谢，看了你的代码，你这个段位远远超出我的能力，很好用，感谢，另外应该怎么解决第4个问题，强迫症看了很难受

zpy2

alonzhang76 发表于 2022-12-14 23:54
感谢，看了你的代码，你这个段位远远超出我的能力，很好用，感谢，另外应该怎么解决第4个问题，强迫 ...

代码使工作表”报价录入“的A21:M100区域单元格缩小字体填充
缩小字体 啥意思？

你地铁图

表做的真好看

alonzhang76

zpy2 发表于 2022-12-15 15:08
代码使工作表”报价录入“的A21:M100区域单元格缩小字体填充
缩小字体 啥意思？

如附图，哪怕我直接在工作表设置了单元格对齐格式里的“缩小字体填充”，但通过窗体输入产品后，还是变成了自动换行

洋务德雷

alonzhang76 发表于 2022-12-14 23:54
感谢，看了你的代码，你这个段位远远超出我的能力，很好用，感谢，另外应该怎么解决第4个问题，强迫 ...

1. Sub 字体填充()
   
2. '
   
3. ' 字体填充 宏
   
4. '
   
5. 
   
6. '
   
7.     Range("A21:M100").Select
   
8.     With Selection
   
9.         .HorizontalAlignment = xlLeft
   
10.         .VerticalAlignment = xlCenter
    
11.         .WrapText = False
    
12.         .Orientation = 0
    
13.         .AddIndent = False
    
14.         .IndentLevel = 0
    
15.         .ShrinkToFit = True
    
16.         .ReadingOrder = xlContext
    
17.         .MergeCells = False
    
18.     End With
    
19. End Sub
    

复制代码

第四个问题，完全可以借助录制宏就可以了。