日本人做的excel版甘特图

shijianchang · 发表于 2012-2-28 21:04

本帖最后由 shijianchang 于 2012-2-28 21:22 编辑

excel版甘特图.part3.rar (288.35 KB, 下载次数: 2861)

excel版甘特图.part2.rar (289.06 KB, 下载次数: 2553)

excel版甘特图.part1.rar (289.06 KB, 下载次数: 3003)

日本人用vba做的excel版甘特图，感觉很好。但自己不懂日文，求助能看懂日文或读懂代码的朋友，帮忙给转换国文一下，造福我们国人

shijianchang · 发表于 2012-2-28 21:12

怎么附件上传了看不到呢

liucqa · 发表于 2012-2-28 21:14

分卷压缩，重新传

liucqa · 发表于 2012-2-28 22:04

Public Function IsRegisted() As Boolean
Dim sn As String
sn = GetSetting(REGISTER_APPNAME, REGISTER_SECTION, REGISTER_KEY_SN, "")

If (Decode(sn) <> GetSerialNumber()) Then
IsRegisted = False
Else
IsRegisted = True
End If
End Function

不懂日文，只能找找注册代码了

liucqa · 发表于 2012-2-28 22:15

excel版甘特图.rar (872.03 KB, 下载次数: 3448)

用谷歌翻译，把菜单搞成中文了

eyeshot · 发表于 2012-2-28 22:44

找到注册窗体修改以下代码
Private Sub UserForm_Initialize()
Me.ComputerID.Text = GetSerialNumber()
Me.SerialNumber = Encode(GetSerialNumber())
End Sub

chen_pinghui · 发表于 2012-2-28 22:50

确实很强大，还没看懂。
wbs 输入后，就会自动调出对应的色彩框，只有VBA才能实现的吧？

shijianchang · 发表于 2012-2-29 08:57

感谢楼上朋友，注册或仅仅菜单翻译不是最需要的。主要想学习制作方法，希望能碰到懂日文或根据代码转换能翻译为中文的高手

liucqa · 发表于 2012-2-29 09:15

shijianchang 发表于 2012-2-29 08:57
感谢楼上朋友，注册或仅仅菜单翻译不是最需要的。主要想学习制作方法，希望能碰到懂日文或根据代码转换能翻 ...

代码都是英文的，你找日文高手干嘛呀

shijianchang · 发表于 2012-2-29 09:27

liucqa 发表于 2012-2-29 09:15
代码都是英文的，你找日文高手干嘛呀

{:soso_e128:}我当然知道代码是英文的，只是vba还是半桶水而已

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

[分享] 日本人做的excel版甘特图

评分