小小出入库管理系统(2012年12月又作了更新)

zjdh · 发表于 2016-9-22 16:23

不懂你在说啥！！

易木阁主 · 发表于 2016-9-22 16:51

zjdh 发表于 2016-9-22 16:23
不懂你在说啥！！

   If Asc(Mid$(myStr, I, 1)) < 0 Then LG = True: Exit For
Next
arr2 = Array("编码", "物品名称", "规格型号", "单位")
k = k + 1
ReDim Arr1(1 To 4, 1 To k)
For I = 1 To 4
      Arr1(I, k) = arr2(I - 1)
Next
For I = 1 To UBound(Arrsj)
      S = Arrsj(I, 1) & " " & Arrsj(I, 2) & " " & Arrsj(I, 3)
      N = ""
      If LG Then
         N = S
      Else
         For J = 1 To Len(S)
            P = Mid(S, J, 1)
            If Asc(P) < 0 Then N = N & PINYIN(P) Else N = N & P
         Next
      End If
      If InStr(N, myStr) Then
         k = k + 1
         ReDim Preserve Arr1(1 To 4, 1 To k)

易木阁主 · 发表于 2016-9-22 16:54

易木阁主发表于 2016-9-22 16:51
If Asc(Mid$(myStr, I, 1)) < 0 Then LG = True: Exit For
Next
arr2 = Array("编码", ...

明细帐查不了

zjdh · 发表于 2016-9-23 07:40

不发附件无法分析！

易木阁主 · 发表于 2016-9-23 07:52

麻烦给看看，谢谢！

易木阁主 · 发表于 2016-9-23 07:58

双击编码菜单，只能选一次品种，第二次选时，点击就选不上了，退出系统后，再次进入也是第一次好用

zjdh · 发表于 2016-9-23 08:11

附件很正常啊！

易木阁主 · 发表于 2016-9-23 08:19

zjdh 发表于 2016-9-23 08:11
附件很正常啊！

那可能是我电脑Office有问题，谢谢！

zhutouxian · 发表于 2016-9-23 15:31

非常感谢，现在特别需要

间断的菜鸟 · 发表于 2016-9-23 20:42

大神，我想实现权限操作单元格，如何改代码？

Sub 系统设置()
If Sheets("系统设置").[D22] = 1 Then
UlS Sheet2
Sheets("系统设置").Select
Else
TS
End If
End Sub

复制代码

这里是有权限的用户可以打开这个工作表，我希望是打开后只可以填写工作表里的某3列单元格（无限往下延），能不能实现？或者如何操作，求指教！！！

		自动登录	找回密码
密码			免费注册

[分享] 小小出入库管理系统(2012年12月又作了更新)