Sheets("會議科目設置").Active?'切換到“會議科目設置”工作表
n?=?Range("C4").Value?'從C4單元格取得科目總數
ReDim?nm(n)?As?String,?num(n)?'根據科目總數,定義科目名稱數組nm和科目編號數組num
For?i?=?1?To?n
nm(i)?=?Cells(2?+?i,?2)?'從B3開始,將科目名稱保存到數組nm中
num(i)?=?Cells(2?+?i,?1)?'從A3開始,將科目編號保存到數組num中
Next?i
For?i?=?1?To?n
Sheets.Add?after:=workseets(Worksheets.Count)?'為每個科目名稱新建壹張工作表
ActiveSheet.Name?=?nm(i)?'並名稱新的工作表名稱為科目名稱
Next?i
Sheets("會議科目設置").Active?'切換到“會議科目設置”工作表
For?i?=?1?To?n?'循環每個科目
st?=?"b"?&?i?+?2?'從B3單元格開始
Range(st).Select?'定位B列的科目名稱單元格
'為這個科目名稱單元格添加超級鏈接,鏈接到科目名稱所對應的工作表的A1單元格,鏈接的顯示名稱為科目名稱
ActiveSheet.Hyperlinks.Add?anchor:=Selection,?Address:="",?SubAddress:=?_
nm(i)?&?"!A1",?TextToDisplay:=nm(i)
ActiveCell.Offset(1,?0).Activate?'定位下壹個科目名稱(從代碼邏輯來看,這句話多余了,可刪除)
Next?i
For?i?=?1?To?n
Sheets(nm(i)).Activate?'切換到每張科目工作表
Range("A1")?=?num(i)?&?""?&?nm(i)?'在A1單元格輸入內容:科目編號+空格+科目名稱
Range("A1:B1").Select?'選定A1:B1單元格
Selection.Merge?'合並兩個單元格
With?Selection.Borders(xlEdgeBottom)?'設置合並單元格的下邊框為細實線
.LineStyle?=?xlContinuous
.Weight?=?xlMedium
End?With
With?Selection?'設置合並單元格的文本對齊
.HorizontalAlignment?=?xlCenter?'水平居中
.VerticalAlignment?=?xlCenter?'垂直居中
End?With
Range("A2")?=?"編碼"
Range("B2")?=?"科目名稱"
'為合並單元格添加返回超級鏈接,鏈接回“會計科目設置”工作表的A1單元格
ActiveSheet.Hyperlinks.Add?anchor:=Selection,?Address:="",?SubAddress:=?_
"會計科目設置!A1",?TextToDisplay:=num(i)?&?""?&?nm(i)
Column("A:B").ColumnWidth?=?30?'設置A:B兩列列寬為30磅
Rows("1:1").RowHeight?=?25?'設置第1行行高為25磅
Next?i
End?Sub