文本框自动显示符合条件单元格、显示相同关键词和数量，并在指定单元格自动输入指定值

非洲来的

大家好！

我需要实现的功能如下图所述，无所不能的 Excel VBA 家族，请赐予我代码吧！

感谢！

lsdongjh

业务规则描述不清楚，什么叫“以此类推”？？ 此是什么？

非洲来的

lsdongjh 发表于 2018-6-19 11:59
业务规则描述不清楚，什么叫“以此类推”？？ 此是什么？

你好，谢谢你提出的问题！文字描述中的文本框自动显示为1，系笔误，应该是显示为 “2". 以此类推，就是说，如果6.1和6.2对应的C7和C8都自动输入了 RED1 和 RED2 之后，点击 NEXT，文本框1 自动显示为 10，文本框2和文本框4自动显示为 4，当我在文本框3输入Green 时，点击NEXT之后，C12：C15则自动填写GREEN1, GREEN2, GREEN3, GREEN4.

点击NEXT时要实现两个功能：先输入指定值、再显示下一下。

lsdongjh

问题是 显示为“2” ，显示为10，这两个数字是怎么来的，接下来显示什么，是2和10 循环？

非洲来的

lsdongjh 发表于 2018-6-19 12:09
问题是 显示为“2” ，显示为10，这两个数字是怎么来的，接下来显示什么，是2和10 循环？

A列的数据是提前输入好的，现在要做的就是统计 “编号相同的、后面有小数点的单元格数量”，如果编号后面没有小数点的，就自动跳过。谢谢！

lsdongjh

1. Dim lngRowId As Long
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4.     If TB3.Value = "" Then
   
5.         MsgBox "Please Enter [Letter]"
   
6.     Else
   
7.         MySet TB3.Value, TB4.Value
   
8.         MyInic
   
9.     End If
   
10. End Sub
    
11. 
    
12. Private Sub UserForm_Initialize()
    
13.     MyInic
    
14. End Sub
    
15. 
    
16. Private Function MyInic()
    
17.     Dim shSource As Worksheet, arrSource As Variant
    
18.     Dim lngRow_Start As Long, lngRow_End As Long
    
19.     Dim lngRow As Long, strTemp As String
    
20.     Dim strID As String, lngCount As Long
    
21.     Dim strResult(1 To 1, 1 To 5) As Variant
    
22.    
    
23.     Set shSource = Sheets("Sheet1")
    
24.     arrSource = shSource.UsedRange
    
25.     lngRow_Start = shSource.Range("C" & Rows.Count).End(xlUp).Row
    
26.     If lngRow_Start > 1 Then lngRow_Start = lngRow_Start + 1
    
27.     lngRow_End = shSource.Range("A" & Rows.Count).End(xlUp).Row
    
28.    
    
29.     For lngRow = lngRow_Start To lngRow_End
    
30.         strTemp = arrSource(lngRow, 1)
    
31.         If InStr(strTemp, ".") > 0 Then
    
32.             strTemp = Split(strTemp, ".")(0)
    
33.             If strID = "" Then
    
34.                 lngRowId = lngRow
    
35.                 strID = strTemp
    
36.                 lngCount = lngCount + 1
    
37.             Else
    
38.                 If strTemp = strID Then
    
39.                     lngCount = lngCount + 1
    
40.                 Else
    
41.                     Exit For
    
42.                 End If
    
43.             End If
    
44.         End If
    
45.     Next
    
46.    
    
47.     TB1.Value = ""
    
48.     TB2.Value = ""
    
49.     TB3.Value = ""
    
50.     TB4.Value = ""
    
51. 
    
52.     If strID <> "" Then
    
53.         TB1.Value = strID
    
54.         TB2.Value = lngCount
    
55.         TB3.Value = ""
    
56.         TB4.Value = lngCount
    
57.     End If
    
58. End Function
    
59. 
    
60. Private Function MySet(strChar As String, lngMax As Long)
    
61.     Dim lngRow As Long
    
62.     For lngRow = 1 To lngMax
    
63.         Sheet1.Range("C" & lngRowId + lngRow - 1).Value = strChar & lngRow
    
64.     Next
    
65. End Function
    

复制代码

lsdongjh

代码审核中，附件： AutoFill.rar (16.13 KB, 下载次数: 9)

2018-6-19 13:26 上传

点击文件名下载附件

非洲来的

lsdongjh 发表于 2018-6-19 13:26
代码审核中，附件：

不得不感叹：真是高手在民间呀！佩服...感谢！！！

非洲来的

lsdongjh 发表于 2018-6-19 13:25

老师你好！

如果窗体启动后要从1开始显示，一直显示到10；是1，4，5，6，7，8或9的时候数量显示为1，请问该代码如何修改？谢谢！