成人AV在线无码|婷婷五月激情色,|伊人加勒比二三四区|国产一区激情都市|亚洲AV无码电影|日av韩av无码|天堂在线亚洲Av|无码一区二区影院|成人无码毛片AV|超碰在线看中文字幕

Excel批注中顯示公式

在Excel表格中,如果需要對含有公式的單元格進行標(biāo)注,可以使用批注功能。批注可以包含單元格的公式等信息。手動添加批注費時費力且容易出錯,但是通過使用VBA程序可以簡單快捷地實現(xiàn)。 使用VBA程序添

在Excel表格中,如果需要對含有公式的單元格進行標(biāo)注,可以使用批注功能。批注可以包含單元格的公式等信息。手動添加批注費時費力且容易出錯,但是通過使用VBA程序可以簡單快捷地實現(xiàn)。

使用VBA程序添加批注

以下是使用VBA程序來為含有公式的單元格添加批注的步驟:

  1. 打開Excel表格,并按下【Alt F11】組合鍵打開VBA編輯器。
  2. 在VBA編輯器上方點擊【插入】,然后選擇【模塊】。
  3. 在模塊的代碼框中輸入以下VBA程序代碼,并按下【F5】鍵運行程序。
Sub addco()
    Dim str1, str2, mycell
    On Error Resume Next  '忽略運行過程中可能出現(xiàn)的錯誤
    Set mysheet1  ("Sheet1")  '定義工作表
    Set myrange  mysheet1.Range("A2:F1000")  '定義單元格區(qū)域A2:F1000
    For Each mycell In myrange  '對單元格區(qū)域里面的每一單元格執(zhí)行一次
        If mycell <> "" Then  '如果單元格不是空白,則
            str1    '獲取單元格里面的字符
            str2  Left(str1, 1)  '在獲取的公式里邊截取左側(cè)的一個字符
            If str2  "" Then  '如果獲取的字符含有(公式),則
                 Text:str1  '單元格添加批注,批注的內(nèi)容為單元格的公式
            End If
        End If
    Next
End Sub

以上程序代碼解讀:

1. For Each ... In...函數(shù)用于對某一范圍內(nèi)的元素進行循環(huán)操作。在此程序中,mycellmyrange范圍內(nèi)的一個元素,也就是一個變量。

2. Left函數(shù)用于從字符串的左側(cè)開始截取指定數(shù)量的字符。如果截取的字符中不包含"",則說明單元格不是公式計算,無需添加批注。

查看添加的批注

回到Excel工作表界面后,含有公式的單元格旁邊會自動添加批注,并顯示單元格的公式。

標(biāo)簽: