只有A列居中

朱付安

代码运行后，B列可以适应文字大小，但是A列靠近左侧，我想居中显示好看些，如何用vba实现，谢谢

huarong7984

所发示例，仅供参考

朱付安

谢谢老师，我看看

朱付安

老师，谢谢帮我添加边框，但是我希望边框能随着内容变化而变化，谢谢

朱付安

huarong7984 发表于 2024-3-10 12:52
所发示例，仅供参考

老师，还有个问题，当我任意一个工作表a1列有内容时，他就会把a1列的内容生成超链接，我想把“返回目录”做成文本框的形式，这种就不会覆盖了

huarong7984

朱付安 发表于 2024-3-10 14:28
老师，还有个问题，当我任意一个工作表a1列有内容时，他就会把a1列的内容生成超链接，我想把“返回目录” ...

所发示例，仅供参考，只需将“返回目录”按键，复制到其他工作表，点击该按钮，即可返回目录

huarong7984

朱付安 发表于 2024-3-10 13:18
老师，谢谢帮我添加边框，但是我希望边框能随着内容变化而变化，谢谢

给的代码，是随目录的增加，而自动添加边框的

ykcbf1100

附件供参考。。。

ykcbf1100

代码如下：

1. Sub 创建目录()
   
2.     Dim sht As Worksheet
   
3.     If Not ShtExists("目录") Then
   
4.         Set sht = Sheets.Add(before:=Sheets(1))
   
5.         sht.Name = "目录"
   
6.     Else
   
7.         Set sht = Sheets("目录")
   
8.     End If
   
9.     With sht
   
10.         r = Sheets.Count
    
11.         .UsedRange.Offset(1).Clear
    
12.         .[a1] = "序号"
    
13.         .[b1] = "目录"
    
14.         With .[a1].Resize(r, 2)
    
15.             .Borders.LineStyle = 1
    
16.             .HorizontalAlignment = xlCenter  '//列居中
    
17.             .VerticalAlignment = xlCenter
    
18.         End With
    
19.         .[b2].Resize(r, 1).HorizontalAlignment = xlLeft
    
20.     End With
    
21.     For i = 2 To Sheets.Count
    
22.         sht.Cells(i, 1) = i - 1
    
23.         sht.Cells(i, 2) = Sheets(i).Name
    
24.         '主表添加超链接
    
25.         sht.Hyperlinks.Add Anchor:=sht.Cells(i, 2), Address:="", SubAddress:= _
    
26.             "'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
    
27.         '子表添加返回超链接
    
28.         If Sheets(i).Range("A1") = "" Then
    
29.             Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), Address:="", SubAddress:= _
    
30.                 "目录!B" & i, TextToDisplay:="返回目录"
    
31.         Else
    
32.             Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), Address:="", SubAddress:= _
    
33.                 "目录!B" & i
    
34.         End If
    
35.     Next
    
36. End Sub

复制代码

朱付安

ykcbf1100 发表于 2024-3-10 21:06
代码如下：

老师，谢谢，但是如果我的非目录工作表a1列有数据，他就把该单元格生成超链接了，我的意思是在非目录工作表自动插入一列，该列放置“返回目录”