如何用VBA实现，点击自创图形后，获取图形中的文字，然后进入以该文字命名的工作表

Xname = ActiveSheetShapes(ActiveSheetShapes(ApplicationCaller)Name)TextFrame2TextRangeCharactersText

Worksheets(Xname)Activate

一，建个查询，附在子窗体上，查询中"作者"字段下写上条件 IIF(ISNULL([窗体名]![Form]![作者]),"",[窗体名]![Form]![作者])

二，在"查询"按钮的CLICK事件下，写入代码，mechild0query '意思是执行子窗体查询，单词哥们我记不太准确了，到时你看提示再写。

去网上查找 ACCESS刘小军查询 能找到这方面查询的一大把案例。

Function StrWithChinese(StrChk As String) As Boolean StrChk = VBAStrConv(StrChk, vbNarrow)'将字符串转换成半角 StrWithChinese = IIf(Len(StrChk) < LenB(StrConv(StrChk, vbFromUnicode)), True, False)

'VBA中默认英文字符串都是Unicode，双字节，如果转化为vbFromUnicode就变成单字节，汉字还是双字节，如果转换之前的字符长度与转化之后的字节长度相等（LenB是计算字符的字节长度的函数），说明不含中文字符，反之含有中文字符。 End Function

Sub check() DebugPrint StrWithChinese("中文Excel应用论坛") DebugPrint StrWithChinese("ExcelHome Forum") End Sub

上述方法在VBA中和自定义工作表函数都可以使用。

Function StrWithChinese(StrChk As String) As Boolean

StrChk = VBAStrConv(StrChk, vbNarrow)

将字符串转换成半角。

vba中默认英文字符串都是unicode双字节，如果转化为vbfromunicode就变成单字节，汉字还是双字节，如果转换之前的字符长度与转化之后的字节长度相等，说明不含中文字符，反之含有中文字符。

vba被称为宏语言，但是它决不能和宏划上等号，宏是一条指令或者几条指令的集合，控制word执行一连串的 *** 作。

以上就是关于如何用VBA实现，点击自创图形后，获取图形中的文字，然后进入以该文字命名的工作表全部的内容，包括:如何用VBA实现，点击自创图形后，获取图形中的文字，然后进入以该文字命名的工作表、Access VBA中，怎样实现输入汉字，进行查询、VBA判断字符串中是否含有汉字等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！