利用checkbox功能,勾選到textbox中

sillykin

想請問是否可利用checkbox功能,勾選到textbox中;如textox中巳經輸入[我巳知道],勾選旁任一checkbox任一值可跑到[我巳知道]後面,在輸入其他文字;用意利用checkbox勾選可快速加在文字後方以利加速輸入方式, 任意勾選checkbox均可在巳輸入文字後方顯示所要的值,在輸入其他的文字,在任選CHECKBOX的值,不知這樣的方式可否可做呢?

山菊花

供参考。

sillykin

山菊花 发表于 2016-3-6 19:15
供参考。

謝謝版主的幫忙,還有一點小小問題,勾選完後,所勾選文字游標可否跑到所勾選後方呢???

山菊花

sillykin 发表于 2016-3-6 19:37
謝謝版主的幫忙,還有一點小小問題,勾選完後,所勾選文字游標可否跑到所勾選後方呢???

这句话听不懂，换个说法试试或用图表示一下。

sillykin

山菊花 发表于 2016-3-6 21:40
这句话听不懂，换个说法试试或用图表示一下。

點選上述checkbox任何一個;在輸入任何文字

點選checkbox後游標可否停留在所點選文字之後呢??

山菊花

修改类模块代码如下（楼上附件已更新）：
Private Sub hz_Click()
    If hz.Value = False Then Exit Sub
    With UserForm1.TextBox96
        .Value = .Value & hz.Caption
        .SetFocus
    End With
    hz.Value = False
End Sub

sillykin

山菊花 发表于 2016-3-6 22:21
修改类模块代码如下（楼上附件已更新）：
Private Sub hz_Click()
    If hz.Value = False Then Exit Su ...

謝謝總版主的幫忙，巳下載下來試用，正是小妹所要的方式，在次感謝版主，感恩

sillykin

能否請教版主，如果文字間勾選所需值，能否從中間文字插入嗎？（目前中途插入部份都由最後文字開始；而無法中途插入）

山菊花

sillykin 发表于 2016-3-14 22:39
能否請教版主，如果文字間勾選所需值，能否從中間文字插入嗎？（目前中途插入部份都由最後文字開始；而無法 ...

在类模块中，修改下面一行代码：
.Value = .Value & hz.Caption
为：
.SelText = hz.Caption

sillykin

感謝版主大力的幫忙,小妹在此感謝