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

翼若云 · 发表于 2005-5-23 22:43

我的程序进行了一下修正，其中weeknum等函数直接采用ISO WEEK中的，偷懒一次,请大家多多提意见!

O3CZNG4h.rar (23.51 KB, 下载次数: 43)

[此贴子已经被作者于2005-5-23 22:43:23编辑过]

Emily · 发表于 2005-5-24 01:48

翼若云

做得不錯，應用已公開編碼是省時。

但你有沒有留意一頁工作更表只是 4 星期，一年 52 星期，即需要十頁以上的 4 Week，所以你的編碼不可以存在 WorkSheet 內，需用 Module。

還有，有關自定函數放在 Module 內是較好的處理。

[此贴子已经被作者于2005-5-24 10:47:38编辑过]

qyan · 发表于 2005-5-24 16:28

好久没来论坛了，太慢了

tortoise · 发表于 2005-5-25 17:04

繁体的，以看头就晕了。再加上是vba头就更晕。 [em03][em06]

办公之星 · 发表于 2005-5-26 11:42

竞赛专区的起点太高了。VBA方面的能够参与的人大约会更少一点。

版主大约不在大陆生活，繁体不算，汉语也不怎么“协议”，呵呵。

lgcmeli · 发表于 2005-5-26 18:41

确实对我太难。呵呵。

Samsea · 发表于 2005-5-26 19:28

试试看：

M8oL1u5r.zip (23.93 KB, 下载次数: 40)

[此贴子已经被作者于2005-5-26 19:37:21编辑过]

Emily · 发表于 2005-5-26 20:28

Samsea

很多謝你的參予，我沒有詳細看你的編碼。只是作了一些測試

做得不錯 [em17]

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Row = 1 And Target.Column = 3 Then EndMonth End If End Sub

可以用 If Target.Address <> "$C$1" Then Exit Sub

週次，(不理會 Iso Week) 不通過，將你附件用 27 Dec 2004 , 26 Dec 2005 試試

十分喜歡 ActiveSheet.Name = "W" & Cells(5, 4) & "-W" & Cells(5, 25)

Remark: 可以應用已公開 ISO Week 編碼

Samsea · 发表于 2005-5-27 20:07

以下是引用Emily在2005-5-26 20:28:00的发言：
週次，(不理會 Iso Week) 不通過，將你附件用 27 Dec 2004 , 26 Dec 2005 試試

我是这样理解：该年含有几个星期四，就算有几周。第一个星期四，就是WeekN1.....，已更正。

8mSR01f7.zip (21 KB, 下载次数: 33)

Emily · 发表于 2005-5-27 20:50

Samsea:

Please use 3 Oct 2005 to test your code

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

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