textbox輸入方式

sillykin

請問有沒有辦法由表單輸入轉入表格中(邊打邊寫入表格空格中；修改內容亦同),另顯示字數(總字數160個;也包含空格)；原在Ａ45儲存格中輸入,打完都超出表格,且每次都要上下移動查看,想說是否利用表單輸入直接代入表格中,另有(顯示字數)(提示巳到最後格數無法輸入)，好控制

山菊花

做得有点笨。

sillykin

For i = 1 To nLen
        If i Mod 20 = 1 Then
            nR = nR + 1
            nL = 0
        End If

i值找不到專案程式庫

sillykin

sillykin 发表于 2016-3-6 19:31
For i = 1 To nLen
        If i Mod 20 = 1 Then
            nR = nR + 1

找不到專案

山菊花

点击VBE编辑窗口菜单“工具—引用”，看是否有错误的引用，如有，将其删除。

sillykin

山菊花 发表于 2016-3-6 22:17
点击VBE编辑窗口菜单“工具—引用”，看是否有错误的引用，如有，将其删除。

謝謝版主細心指點，巳解決上述小問題，（１）但在textbox所輸入之任何文字或數字，可與儲存格同步呢？（２）在執行中，要按esc才能顯示所輸之文字，可否同時出現所輸入之文字（３）打字打到一半，離開表單，在按一次表單，可否能回復之前所輸入之文字呢？在繼續之前未打完之文字呢？這３小點可否能有解決之道呢？？版主抱歉，製造你問題。應該可加入
If Len(TextBox１) = 160 Then
MsgBox "巳到160個字"
TextBox１.SetFocus
Else
Label2 = "目前巳輸入共" & Len(TextBox１) & "字數,此項目最多最多為160個文字"
End If

山菊花

第一二个问题不明白是什么原因。
按第三个要求已修改，请重新下载楼上附件。