求助，怎样循环输入几个单词？非常感谢详见附件

EXCE;纯净水

求助，怎样循环输入几个单词？非常感谢详见附件

liulang0808

楼主的问题层出不穷啊。。。。。
其实也是换汤不换药的

大灰狼1976

1. Private Sub CommandButton1_Click()
   
2. Dim s$
   
3. s = "苹果,橘子,石榴,香蕉,椰子"
   
4. If InStr(s, [c2]) = 0 Then [c2] = "苹果" Else [c2] = Split(Split(s, [c2])(1), ",")(1)
   
5. End Sub
   

复制代码

大灰狼1976

s最后少写了一个苹果，编辑失败。

astupig

1. Sub test()
   
2.     arr = Array("1apple", "2orange", "3pomegranate", "4banana", "5coconut")
   
3.     If [c2] = "" Then [c2] = arr(0)
   
4.     myIndex = WorksheetFunction.Match([c2], arr, 0) Mod 5
   
5.     [c2] = arr(myIndex)
   
6. End Sub
   

复制代码

EXCE;纯净水

liulang0808 发表于 2019-10-10 13:09
楼主的问题层出不穷啊。。。。。
其实也是换汤不换药的

非常赞，感谢老师一个劲的帮助非常感激

EXCE;纯净水

大灰狼1976 发表于 2019-10-10 13:12

感谢帮助感谢帮助感谢帮助

petergaod

这和昨天的问题一模一样啊，我的代码完全可以直接套用，为何还要拿出来问？