S_OK Then Debug.Print "Interface found on composition class" End IfEnd Function
Debug.Print "Typename(castTo):="; TypeName(castTo)End Sub给了我一个编译错误。我不明白,因为Invoke
当单击双击行中的特定列时,我尝试使用双击工作表事件填充用户窗体中的所有文本框。,带有textbox的userform将弹出,文本框中填充了来自所有列(Project、Aprroval、tool、Status、反馈)的值,该行是双击的。因此,当我双击ID列中的"1“时,用户表单应该会弹出文本框值"A1”、“是”、"123“、”进行中“、”很好“。
到目前为止,这是我的代码,我正在尝试双击事件。Private Sub Worksheet_BeforeDouble