1、一、选取你认为好听的字从字典或者网,诗歌,小说,散文或者你喜欢的电视剧中找到你认为好听的字,将它们统统输入excel表格中。
2、二、将excel代码复制进你的vba中下面这段代码复制进你的开发工具下的visual ba衡痕贤伎sic 中Private Sub Comman颊俄岿髭dButton1_Click()a = Cells(1, 1).ValueDim arr(1 To 50)For i = 1 To Len(a) arr(i) = Mid(a, i, 1) Cells(i + 1, 2).Value = arr(i)Next im = 2For i = 1 To Len(a)For j = 1 To Len(a) If j <> i Then Cells(m, 3).Value = arr(i) & arr(j): m = m + 1Next jNext in = 2For i = 1 To Len(a)For j = 1 To Len(a)For k = 1 To Len(a) If j <> i And j <> k And i <> k Then Cells(n, 4).Value = arr(i) & arr(j) & arr(k): n = n + 1Next kNext jNext iEnd Sub
3、三、获取你想要的名字新建一个按钮,关联你的代码点击按钮就可以获得你想要的名字序列了,然后从里面选择你想要的名字吧是不是很有意思。