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

dear小菜

1楼没看到有说明如何修改的。。。。Private Sub UserForm_Initialize()
    Label1.Caption = Sheets("系统设置").Range("C26")
    ARR = Sheets("系统设置").Range("B5:C" & Sheets("系统设置").Range("C16").End(3).Row)
    For I = 1 To UBound(ARR)
        ComboBox1.AddItem ARR(I, 1)
    Next I
End Sub

zjdh

dear小菜 发表于 2017-5-31 08:51
1楼没看到有说明如何修改的。。。。Private Sub UserForm_Initialize()
    Label1.Caption = Sheets("系 ...

1楼有链接问题处理办法

dear小菜

1. 打开文件不执行宏
2. Alt+F11 打开VBA编辑器
3. 菜单----工具----引用 ，将丢失的控件前段勾去除，保存文件。
4. 宏安全复原，打开文件。
谢谢，用此方法解决了，WIN7 64位可以打开文件了

dear小菜

打印单据时弹出用户定义类型未定义。。。指向Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)  如何解决

zhjp8018

做的真好 ，老师可以教教我吗？

zhjp8018

楼主在吗？你有教学群吗？求教

zjdh

dear小菜 发表于 2017-5-31 11:04
打印单据时弹出用户定义类型未定义。。。指向Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MS ...

可能由于版本问题，该功能无法运行，你可以将整段删除掉，（仅用于列表排序）

dear小菜

我查了一下你以前的问题，关于控件的，我发现少了一个控件，但我加上后又显示那个424运行错误提示，不知是不是还要曾加LISTVIEW窗体，但我不懂怎么搞，我把两个文件发给你，你帮我看看。谢谢了，一个是添加了控件，一个是没有添加控件（我用另一个表试过了你说的删一段，但不知我是不是删错了，但又提示另一个错误)

dear小菜

C:\WINDOWS\SYSTEM32\MSCOMCTL.OCX，那个控件的位置一定要在这里吗？我觉得很奇怪，我那个控件，我不打勾的话退出来，进去想再重新引用又找不到没显示，然后我重新添加，他又说正在被引用，然后又出来了，你教的里面说退出再引用，我都试过了，但还是不行，不知是哪里有问题

zjdh

zhjp8018 发表于 2017-6-1 13:37
楼主在吗？你有教学群吗？求教

本论坛就有很多视频教育，你可以去看看，有助你你提高水平。