不知EXCEL能不能借助VBA实现这个功能

wyslw2004

中文字表编辑软件CCED有这样一个功能：
当表格处于编辑状态时，可以使用F3复制上行（同列）的单元格的一个字符，shif+F3t可以直接复制光标后所有的字符。
不知EXCEL能不能借助 文字框，取出上一单元格的值，再按F1，实现复制一个字符呢？（F1是帮助，其实没什么用的，需要这种功能的，都是普通用户，经常输入数据的用户，没几人去看帮助的）。

yayahzmeng

当然可以，VBA比你现阶段的想象强大

gbgbxgb

1. Private Sub Workbook_Activate()
   
2.     Application.OnKey "{F1}", "ThisWorkbook.Macro1"
   
3. End Sub
   
4. 
   
5. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
6.     Application.OnKey "{F1}", ""
   
7. End Sub
   
8. 
   
9. Private Sub Workbook_Deactivate()
   
10.     Application.OnKey "{F1}", ""
    
11. End Sub
    
12. 
    
13. Private Sub Macro1()
    
14.     Dim a As Variant
    
15.     '
    
16.     With ActiveCell
    
17.         If .Row > 1 Then
    
18.             a = .Offset(-1)
    
19.             If Len(a) > 0 Then
    
20.                 a = Left(a, 1)
    
21.                 .Value = a
    
22.             End If
    
23.         End If
    
24.     End With
    
25. End Sub
    

复制代码

wyslw2004

gbgbxgb 发表于 2017-7-2 13:06

白天太忙了，没及时看贴子，抱歉啊。~~
老师，只能复制一次么？我希望的是可以连续按f1,别外，这个功能对大家很实用的，希望老师完善后，做成加载项插件的形式，方便更多的人使用。

蓝桥玄霜

不看帮助文件的是很难学好VBA的。

gbgbxgb

wyslw2004 发表于 2017-7-2 23:57
白天太忙了，没及时看贴子，抱歉啊。~~
老师，只能复制一次么？我希望的是可以连续按f1,别外，这个功能 ...

1. Private Sub Workbook_Activate()
   
2.     Application.OnKey "{F1}", "ThisWorkbook.Macro1"
   
3. End Sub
   
4. 
   
5. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
6.     Application.OnKey "{F1}", ""
   
7. End Sub
   
8. 
   
9. Private Sub Workbook_Deactivate()
   
10.     Application.OnKey "{F1}", ""
    
11. End Sub
    
12. 
    
13. Private Sub Macro1()
    
14.     Dim theStr1$, theStr2$, reg As Object, theLenth&
    
15.     '
    
16.     With ActiveCell
    
17.         If .Row > 1 Then
    
18.             theStr1 = .Offset(-1)
    
19.             If Len(theStr1) > 0 Then
    
20.                 theStr2 = .Value
    
21.                 theLenth = Len(theStr2)
    
22.                 Set reg = CreateObject("VBScript.RegExp")
    
23.                 reg.Pattern = "^" & theStr2
    
24.                 If reg.Test(theStr1) Then
    
25.                     theStr2 = Left(theStr1, theLenth + 1)
    
26.                     .Value = theStr2
    
27.                 End If
    
28.             End If
    
29.         End If
    
30.     End With
    
31.     Set reg = Nothing
    
32. End Sub

复制代码

wyslw2004

gbgbxgb 发表于 2017-7-3 10:57

老师，已测试通过了。非常完美。这可是提高输入速度的大利器。老师有时间，方便的话，做成可加载项，肯定 大受欢迎的。也许我说得不清楚，我说一组数据：
输入通迅录时，
前面可能都是 福建省福州市XXXX这类形式的数据，只是后面不同。这时，这个功能就非常有用了。~~可惜，若是能用shift+f1,直接复制光标后面的数据，就更完美了。

wyslw2004

蓝桥玄霜 发表于 2017-7-3 10:30
不看帮助文件的是很难学好VBA的。

非常感谢蓝桥老师的指教，您这么忙，还光顾我这个新人的贴。谢谢啊

wyslw2004

gbgbxgb 发表于 2017-7-3 10:57

老师，换成excel2016，这段程序，用不了。什么原因呢？

nmcfbgttyl

这个真好用