Excel menukar hasil pengiraan fungsi berbilang lembaran kerja kepada nilai berangka

Artikel ini membawa anda pengetahuan yang berkaitan tentang excel Terutamanya mengatur isu berkaitan tentang cara menukar hasil pengiraan fungsi berbilang lembaran kerja kepada nilai berangka, termasuk hasil satu lembaran kerja nilai, menukar formula kepada nilai berangka dalam berbilang lembaran kerja, menukar formula kepada nilai berangka dalam berbilang buku kerja, dll. Mari kita lihat bersama-sama.

Cadangan pembelajaran berkaitan: tutorial cemerlang

Bagaimana untuk menukar hasil pengiraan fungsi berbilang lembaran kerja kepada nilai berangka? Hari ini saya akan memberi tumpuan kepada jenis isu ini dengan anda. Bergantung pada skop operasi, ini boleh dibahagikan kepada tiga situasi.

• Tukar formula kepada nilai berangka dalam satu lembaran kerja

• Tukar formula kepada nilai berangka dalam berbilang lembaran kerja

• Menukar formula kepada nilai berangka dalam berbilang buku kerja

1 Menukar formula serantau kepada nilai berangka

Mari kita bincangkan kes pertama dahulu. , menukar hasil pengiraan fungsi serantau kepada nilai berangka. Ini adalah yang paling biasa dan operasinya agak mudah. Salin kawasan sasaran, klik kanan dan tampal secara selektif sebagai nilai.

Animasi operasi ditunjukkan seperti berikut:

2. Tukar formula berbilang helaian kepada nilai

Jika anda sedang menukar. semua lembaran kerja dalam buku kerja semasa Untuk menukar formula kepada nilai berangka, anda perlu menggunakan kod VBA. Kod rujukan adalah seperti berikut:

Sub FunctionTransValue_Sheets()
Dim sht As Worksheet
For Each sht In Worksheets '遍历工作表
sht.UsedRange.Value = sht.UsedRange.Value
Next
End Sub

Baris 3 hingga 5 kod merentasi lembaran kerja dan baris 4 kod menukar nilai sel kepada nilai, sekali gus mengalih keluar kandungan formula.

3. Tukar formula kepada nilai dalam berbilang buku kerja

Untuk menukar formula kepada nilai dalam berbilang buku kerja dalam folder tertentu, anda boleh menyalin dan menjalankan kod berikut:

Sub FunctionTransValue_Workbooks() '全部工作簿
Dim strPath As String, sht As Worksheet
Dim strWbName As String, wb As Workbook
With Application.FileDialog(msoFileDialogFolderPicker) '获取文件夹路径
If .Show Then strPath = .SelectedItems(1) & "\" Else Exit Sub
End With
On Error Resume Next
With Application
.ScreenUpdating = False '取消屏幕刷新
.DisplayAlerts = False '取消警告信息
.EnableEvents = False '取消事件
.Calculation = xlCalculationManual '取消公式重算
.AskToUpdateLinks = False '取消外链询问
End With
strWbName = Dir(strPath & "*.xls*")
Do While strWbName <> "" &#39;dir语句遍历excel文件
If strWbName <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(strPath & strWbName) &#39;打开工作簿
For Each sht In wb.Worksheets &#39;遍历工作表公式转数值
sht.UsedRange.Value = sht.UsedRange.Value
Next
wb.Close True &#39;保存关闭工作簿
End If
strWbName = Dir() &#39;下一个excel文件
Loop
With Application &#39;恢复系统设置
.ScreenUpdating = True
.DisplayAlerts = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.AskToUpdateLinks = True
End With
If Err.Number Then
MsgBox Err.Description
Else
MsgBox "转换完成。"
End If
End Sub

Analisis kod Berikut

Baris 4 hingga 6 kod membenarkan pengguna memilih folder sasaran dan mendapatkan laluan folder.

Baris 8 hingga 14 membatalkan satu siri tetapan sistem.

Baris 15 hingga 25 kod menggunakan fungsi DIR pernyataan gelung bersyarat untuk melintasi buku kerja. Baris 19 hingga 21 kod kemudian melintasi lembaran kerja dan menukar formula kepada nilai berangka.

Baris 26 hingga 32 kod memulihkan satu siri tetapan sistem.

Baris 33 hingga 37 kod maklum balas hasil pelaksanaan program.

Cadangan pembelajaran berkaitan: tutorial cemerlang

Atas ialah kandungan terperinci Excel menukar hasil pengiraan fungsi berbilang lembaran kerja kepada nilai berangka. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!