代码之家 › 专栏 › 技术社区 › Piecevcake

Excel VBA或公式将多个ActiveX文本框的值复制到相邻单元格

vba copy-paste textbox excel

Piecevcake · 技术社区 · 7 年前

我收到了一份工作簿,其中有很多ActiveX文本框,列中有我需要使用的值。有没有办法获取这些值并将其放在每个框位置右侧的列中?

它们被锁定并“随细胞移动”。它们在选择窗格中显示为“HTMLText nnn”。每个文本框中都有一个值。

我在Kutools上试过这个(谢谢他们, the page ),它看起来应该可以工作,但什么也没有发生(没有复制值,没有删除框):

Sub TextboxesToCell_Kutools()

    Dim xRg As Range
    Dim xRow As Long
    Dim xCol As Long
    Dim xTxtBox As TextBox
     
    Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
        ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    xRow = xRg.Row
    xCol = xRg.Column
     
    For Each xTxtBox In ActiveSheet.TextBoxes
        Cells(xRow, xCol).Value = xTxtBox.text
        xTxtBox.Delete
        xRow = xRow + 1
    Next
     
End Sub

1 回复 | 直到 3 年前

Piecevcake 7 年前

找到了!

    Sub H___CopyFormsHTMLBoxToSameCell()
'https://windowssecrets.com/forums/showthread.php/169760-Text-box-value-from-a-web-page-copy-and-paste (modified)

Dim OLEObj As OLEObject 'from the control toolbox toolbar
Dim DestCell As Range
Dim wks As Worksheet
Set wks = ActiveSheet

With wks
    For Each OLEObj In .OLEObjects
        If TypeOf OLEObj.Object Is msforms.TextBox Then
            Set DestCell = OLEObj.TopLeftCell.Offset(0, 0)
            DestCell.Value = OLEObj.Object.Value
             OLEObj.Delete 'vp added
'    ActiveCell.Activate doesnt center cell!

        End If
    Next OLEObj
End With

MsgBox "Done. Home, find, selection pane check for other shapes; f5, objects, Ctrl-click unselect pictures, delete."

End Sub

推荐文章

Aggie04 · 循环查找符合搜索条件的记录,然后在两个电子表格之间剪切和粘贴

6 年前

Saeed D. · 如何在Windows远程桌面RDC中从Mac剪切并粘贴到Windows

6 年前

Gabe Carvajal · 在每个小计中,for then loop copy and paste above data vba

6 年前

Piecevcake · Excel VBA或公式将多个ActiveX文本框的值复制到相邻单元格

7 年前

Nico · 在python中的新文件中粘贴文件

7 年前

user8285660 · 如果满足条件,Vba复制并粘贴特定单元格

7 年前

Hufflegigans · Excel:如何使用“复制粘贴”命令到选定图纸区域(VBA)

7 年前

L.Dutch · 将公式从一个工作簿复制到另一个工作簿

7 年前

Erika · 粘贴范围类的特殊方法失败-Excel VBA

8 年前

nagarajan · 如何复制匹配块并使用vim上的正则表达式写入另一个文件?

9 年前