通过在 VB 脚本上使用此代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ltr, rNum, AlphaLtrs, selLtr
If Not Intersect(Target, Me.Columns(2)) Is Nothing And _
Target.Cells.Count = 1 Then
If Target.Value = "" Then
AlphaLtrs = "ABCDEFGHIGKLMNOPQRSTUVWXYZ"
selLtr = Application.RoundUp(Rnd() * 26, 0)
ltr = Mid(AlphaLtrs, selLtr, 1)
rNum = Application.RoundUp(Rnd() * 999999, 0)
Target.Value = Me.Range("A" & Target.Row) & "-" & ltr & rNum
End If
End If
End Sub
我需要通过Ms. Access创建,一般用于库存产品
Ms Access 表包含此字段
ID [Primary Key]
Product Title [Short text]
Type [Short text]
SKU [Short text]
Image Preview [Attachment]
Price [Number]
Availability [yes/No]
我需要的是 SKU 将为任何新产品自动生成 key ,唯一 key ,可以在插入新条目时通过表单上的按钮实现,也可以通过最初的新条目实现, key 将与 Excel 代码相同,例如Z401374(字母数字)一旦生成就无法更改
最佳答案
将其放入模块中并运行它。你应该得到你需要的东西。
Sub test()
Dim s As String * 7 'fixed length string with 7 characters
Dim n As Integer
Dim ch As Integer 'the character
For n = 1 To Len(s) 'don't hardcode the length twice
Do
ch = Rnd() * 127 'This could be more efficient.
'48 is '0', 57 is '9', 65 is 'A', 90 is 'Z', 97 is 'a', 122 is 'z'.
Loop While ch < 48 Or ch > 57 And ch < 65 Or ch > 90 And ch < 97 Or ch > 122
Mid(s, n, 1) = Chr(ch) 'bit more efficient than concatenation
Next
Debug.Print s
End Sub
然后您可能需要做的是在表上执行 INNER JOIN(或从 tblProducts WHERE SKU =“上面生成的字符串”中选择 SKU),以确保它不会随机生成相同的字符串两次。最终,只要有足够的 SKU,这就会发生。如果确实如此,只需重新运行生成器并再次测试,直到找不到匹配项,然后您就知道自己拥有唯一的 SKU。
关于mysql - 在 Ms. Access 中生成随机字母数字 key ,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27018606/