[开_23] 格式、找尋及 merge cell ★★ (已完結)

Samsea · 发表于 2005-5-27 21:43

以下是引用Emily在2005-5-27 20:50:00的发言：
Samsea:

Please use 3 Oct 2005 to test your code

谢谢你抽时间看我贴子，[em04] 我自己测试还没有你详细。我现增加一个判断处理：

If Month(Cells(9, 4)) = Month(Cells(9, 31)) Then Range(Cells(4, 4), Cells(4, 31)).Merge Cells(4, 4) = Cells(9, 4) Else

........

lFEzolmO.zip (23.18 KB, 下载次数: 61)

翼若云 · 发表于 2005-5-28 00:12

谢谢Emily的提醒，我将函數放在 Module 里了。

修正后的文件：

iNkIuCVO.rar (26.37 KB, 下载次数: 61)

[此贴子已经被作者于2005-5-28 9:35:00编辑过]

Emily · 发表于 2005-5-28 00:39

翼若云：

請參看 Samsea 頁與頁之間的做法

loadhigh · 发表于 2005-5-31 12:56

Emily:你好!

我来凑个热闹。

另外需要说明一下:关于日期的输入已经用combobox控件绑定了数据,只需要用属标或方向键控制即可。还有就是关于“週數”不知道该如何理解？所以没有作，是否是判断该周属于当月的第几周（如果是的话，代码中已经有了，只不过被注释掉没有被使用）还是判断该周的有效工作日的天数？而表下面关于这28天中是否有公众假期只是按要求做了代码显示，不知道是否需要在表的下方详细列出？

43aze8EM.zip (23.28 KB, 下载次数: 55)

Emily · 发表于 2005-5-31 18:11

loadhigh

你好！

ISO Week 的自定函吸數已在本帖有介紹，可參考。

以下是我簡單測試

我沒有想過用 Combox，很特別，但你限制在 2005 年

日期與星期天不符合，例如 24 Jan 2005 是星期 1，4 組星期是固定不變的。

2 Jan 2006 是元旦日假期，PH 頁內是沒有的，不應有 S1 出現

loadhigh · 发表于 2005-5-31 20:03

Emily:你好!

日期与星期不对的问题是因为我们常把星期一当作一周的第1天，而西方却是将sunday做为first day ，weekday()的返回就是这样体现的，而我却疏忽了。修改了以下生成combobox中数据项的代码和week_day数组的顺序后，结果就应该是正确的了。

另外ph表中的公众假日的年份是2005年，所以不适应以后年度的相同日期的比较判断，故我在代码中只比较它们在月和日上的值是否一致。

kIUEcIID.zip (23.33 KB, 下载次数: 54)

Emily · 发表于 2005-5-31 21:27

我發覺你們較喜歡整個工作簿(或頁)都是囝用 VBA 做的，是不是不可以函數，VBA 共存呢？

skylark · 发表于 2005-6-1 19:21

To Emily :

我来迟了,也发一个吧,代码未优化,特点1 是使用方便,有菜单,用户可不打开VBE.

2 是未用ISOWeekNum,也未用自定义函数.感谢楼上的网友的启发,感谢Emily 的题目,

使我把日期方面研究一下,其实很有必要.谢谢!

_____________________________

Do Our Job Well Try Anything Once

DlSiBoC1.rar (28.91 KB, 下载次数: 58)

xuanhou · 发表于 2005-6-1 20:51

看来偶只有学习的份了，向各位学习。

Emily · 发表于 2005-6-1 22:17

以下是引用skylark在2005-6-1 19:21:00的发言：
To Emily :

我来迟了,也发一个吧,代码未优化,特点1 是使用方便,有菜单,用户可不打开VBE.

2 是未用ISOWeekNum,也未用自定义函数.

skylark，多謝參予

看來 VBA 越來越複雜。菜單我覺得沒有需要

我沒詳細看，只發覺4組星期天都由 VBA 填出，還有格式化後依然選取 AE6-AE40。

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

[Excel 程序开发] [开_23] 格式、找尋及 merge cell ★★ (已完結)

回复：（Emily）Samsea:Please use 3 Oct 2005 to tes...

回复：（Emily）我發覺你們較喜歡整個工作簿(或頁)都是...