批量去掉表格选定区域的小数部分

386026398

附件为一段可以去掉小数部分的vba，想选中word表格部分区域时也能去掉小数部分。

gwjkkkkk

Option Explicit
Sub test1()
    Dim i&, n&, r&, objTable As Table, strRngText$
   
    Application.ScreenUpdating = False
   
    With ActiveDocument
        For Each objTable In .Tables
            With objTable
                n = .Range.Cells.Count
                For i = 1 To n
                    strRngText = Left(.Range.Cells(i).Range.Text, Len(.Range.Cells(i).Range.Text) - 2)
                    If IsNumeric(strRngText) Then
                        r = InStr(strRngText, ".")
                        If r Then
                            .Range.Cells(i).Range.Text = Mid(.Range.Cells(i).Range.Text, 1, r - 1)
                        End If
                    End If
                Next i
            End With
        Next
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

。。。。。。。。

386026398

gwjkkkkk 发表于 2024-8-29 20:40
。。。。。。。。

谢谢回复，你这是将表格中全部数据去掉小数部分了。我需要的是表中选定的部分区域去掉

gwjkkkkk

386026398 发表于 2024-8-29 21:21
谢谢回复，你这是将表格中全部数据去掉小数部分了。我需要的是表中选定的部分区域去掉

这个不会了。。。

饮冰e士

Sub GetSelectedCells()
    Dim cellContent As String
    Dim cell As cell, n%

    ' 选中表格单元格
    If Selection.Information(wdWithInTable) = True Then
        For Each cell In Selection.Cells
          cellContent = cell.Range.Text ' 换成实际数据处理
          MsgBox cellContent
        Next cell
    Else
        MsgBox "ÇëÑ¡Ôñ±í¸ñÖDμÄμ￥Ôa¸ñ¡￡"
    End If
End Sub