關鍵代碼：

　　'獲取行標題和列標題
　　Dim icol， irow As String
　　icol=InputBox（"請輸入斜線單元格的行標題"， 行標題）
　　irow=InputBox（"請輸入斜線單元格的列標題"， 列標題）
　　Selection.Value = icol + "    " + irow
　　'判斷字符串是否符合規定
　　If Len（icol） = 0 or Len（irow） = 0 Then
　　MsgBox （"輸入的標題為空！"）
　　Exit Sub
　　End If
　　'判斷選區是否只有一個單元格
　　If Selection.Count <> 1 Then
　　MsgBox （"請選擇一個單元格再執行此操作！"）
　　Exit Sub
　　End If
　　'設置左上至右下的斜線
　　With Selection.Borders（xlDiagonalDown）
　　.LineStyle = xlContinuous
　　.Weight = xlThin
　　.ColorIndex = xlAutomatic
　　End With