Excel Blog http://blog.excelhome.net/ 1 Oblog 4.0 master@excelhome.net <![CDATA[在工作表中动态添加窗体控件]]> http://blog.excelhome.net/user1/fanjy/archives/2008/1063.html fanjy 2008-8-19 8:38:00 下面的内容及程序代码模仿自《Excel 2007 VBA Programmer’s Reference》，可能在某些情形下极其有用，因此特辑录于此，供参考。
如下图所示，双击工作表Sheet1的列A中的任一单元格，将出现一组合框，允许用户选择其中的项目。当用户选取某项目后，将自动输入到该单元格，并在该单元格右侧的单元格中输入相应的价格数字，组合框同时消失。
addcomboxdynamic1
下面是程序代码。在工作表Sheet1的代码模块中输入BeforeDoubleClick事件代码：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Not Intersect(Target, Columns(”A”)) Is Nothing Then
         Call AddDropDown(Target)
         Cancel = True
    End If
End Sub
在任一模块中，输入下面的代码：
Sub AddDropDown(Target As Range)
    Dim ddBox As DropDown
    Dim vProducts As Variant
    Dim i As Integer
    ‘创建产品数组
    vProducts = Array(”香蕉”, “苹果”, “菠萝”, “葡萄”)
    ‘在目标单元格中添加下拉控件
    With Target
        Set ddBox = Sheet1.DropDowns.Add(.Left, .Top, .Width, .Height)
    End With
    ‘定义执行的宏并填充列表
    With ddBox
        .OnAction = “EnterProdInfo”
        For i = LBound(vProducts) To UBound(vProducts)
            .AddItem vProducts(i)
        Next i
    End With
End Sub
Private Sub EnterProdInfo()
    Dim vPrices As Variant
    ‘创建价格数组
    vPrices = Array(6, 8, 5, 4)
    ‘输入所选项到相应的单元格
    With Sheet1.DropDowns(Application.Caller)
        .TopLeftCell.Value = .List(.ListIndex)
        .TopLeftCell.Offset(0, 1).Value = vPrices(.ListIndex + LBound(vPrices) - 1)
        ‘删除
        .Delete
    End With
End Sub

如下图所示：
addcomboxdynamic2
 
注:同时发表于完美Excel
]]> <![CDATA[rand和randbetween函数]]> http://blog.excelhome.net/user1/xyfgenius/archives/2008/1061.html xyfgenius 2008-8-17 14:14:00 Syntax rand():
Remarks:
1.Returns an evenly distributed random real number greater than or equal to 0 and less than 1. A new random real number is returned every time the worksheet is calculated.
2.To generate a random real number between a and b, use: RAND()*(b-a)+a
3.If you want to use RAND to generate a random number but don't want the numbers to change every time the cell is calculated, you can enter =RAND() in the formula bar, and then press F9 to change the formula to a random number.
Syntax:RANDBETWEEN(bottom,top)
1.Returns a random integer number between the numbers you specify. A new random integer number is returned every time the worksheet is calculated.
2.Bottom   is the smallest integer RANDBETWEEN will return.
3.Top   is the largest integer RANDBETWEEN will return.
简要的介绍下Excel 2007和Excel 2003 Rand函数的说明:
因为RAND 生成的是 pseudo-random 数字, 如果生成大量的数字,最终数字是会重复的.但这个大量相对于一般人是很大的,所以我们可以放心的使用rand函数产生不重复的数字.
http://support.microsoft.com/kb/828795/en-us
http://support.microsoft.com/kb/86523/en-us

]]> <![CDATA[Excel Hacks #3：阻止用户执行某些操作]]> http://blog.excelhome.net/user1/fanjy/archives/2008/1060.html fanjy 2008-8-16 19:54:00 虽然Excel为工作簿和工作表提供了全面的保护，但是这种“生硬的”工具没有限制用户的“特权”，除非您使用一些技巧。
通过监控和响应事件，您能够管理电子表格与用户的交互。事件是处理工作簿和工作表时所发生的操作。一些常见的事件包括打开工作簿、保存工作簿和关闭工作簿。当触发这些事件中的任一事件时，您能告诉Excel自动执行一些VB代码。
提示：用户能够通过完全禁用宏，从而避免所有保护。单击Office按钮─—Excel选项─—信任中心─—信任中心设置，按“宏设置”按钮，如果安全性被设置为“禁用所有宏，并且不通知”，那么在打开含有宏的工作簿时将没有机会运行宏。
阻止工作簿“另存为…”
通过选择Office按钮─—保存─—工具按钮─—常规选项，然后选中“建议只读”复选框，这样可以指定任何工作簿被保存为只读。这能阻止用户对该文件保存所做的任何修改，除非将其保存为不同的名称或者在不同的位置保存该文件。
然而，有时您可能想阻止用户使用或者不使用不同的名称在另一个目录或文件夹中保存工作簿副本。换句话说，您想用户能够在现有文件中保存，而不是在其他地方保存另一个副本。当多个人对某个工作簿保存修改时，这特别方便，此时不会存在保存在不同文件夹中相同工作簿的多个副本。
自从Excel 97后，就可以使用“保存前”事件了。正如其名称所述，该事件在工作簿被保存之前发生，能够在事实发生之前捕获用户、发出警告，以及阻止Excel保存。
要插入代码，打开工作簿并选择“开发工具─—Visual Basic”，双击工程资源管理器中的ThisWorkbook，在VBE中输入下面的代码，如图1所示，然后返回工作簿，再保存工作簿：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim lReply As Long
    If SaveAsUI = True Then
        lReply = MsgBox(”对不起,不允许您以其它名称保存本工作簿.” & _
            ”您希望保存本工作簿吗?”, vbQuestion + vbOKCancel)
        Cancel = (lReply = vbCancel)
        If Cancel = False Then Me.Save
        Cancel = True
    End If
End Sub
beforesave
图1：输入到ThisWorkbook中的代码
此时，选择“Office按 钮─—保存”，该工作簿将按预料的那样保存。然而，在选择“Office按钮─—另存为”时，Excel将通知您不能以其它的名称保存该工作簿，除非您禁用宏。
提示：当在Excel 2007中保存工作簿时，如果该工作簿包含宏或代码，那么应该将工作簿保存为启用宏的工作簿（*.xlsm），而不能保存为标准的Excel文件格式（ *.xlsx）。
阻止用户打印工作簿
可能您想阻止用户打印您的工作簿，此时使用Excel的“打印前”事件。在VBE中输入下面的代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    MsgBox “对不起,您不能打印本工作簿.”, vbInformation
End Sub
如果希望仅阻止用户打印工作簿中特定的工作表，使用下列代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Select Case ActiveSheet.Name
        Case “Sheet1″, “Sheet2″
        Cancel = True
        MsgBox “对不起,您不能打印本工作簿中的这个工作表.”, vbInformation
    End Select
End Sub
注意，您指定阻止打印工作表“Sheet1”和“Sheet2”。当然，可以修改为工作簿中的任何工作表的名称。要添加工作表，只需在代码后面加上逗号，然后在双引号中输入该工作表的名称。
阻止用户插入更多的工作表
Excel可以保护工作簿的结构以便用户不能删除工作表、重新排列它们出现的顺序、重新命名它们，等等。但是，有时希望仅阻止添加更多的工作表，而仍然允许其它的结构更改。
可以使用下列代码：
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Application.DisplayAlerts = False
    MsgBox “对不起,不能对工作簿添加任一工作表.”, vbInformation
    Sh.Delete
    Application.DisplayAlerts = True
End Sub
上述代码首先显示消息框，然后在用户单击消息框中的确定按钮后立即删除新添加的工作表。Application.DisplayAlerts = False语句的阻止标准的Excel警告，即要求用户是否想删除工作表。
另一种阻止用户添加工作表的方法是，选择“审阅─—更改─—保护工作簿”，然后按下“保护结构和窗口”。然而，正如本技巧开始所述，Excel的工作表保护是相当“生硬的”工具，它会同时阻止了许多其它的Excel功能。

注：初译自《Excel Hacks》，仅供参考。同时发表于完美Excel.

]]> <![CDATA[Excel Hacks #2：同时输入数据到多个工作表]]> http://blog.excelhome.net/user1/fanjy/archives/2008/1059.html fanjy 2008-8-14 13:18:00 经常需要在多个工作表中重复某些数据。可以使用Excel的组合工具，使得在某工作表中输入数据时能够同时将数据输入到多个工作表中。然而，也有更快速且灵活的方式，即使用VBA代码。
在Excel中，有一项能使数据一次放置在多个位置的功能，称之为组。其操作是通过将工作表组合在一起，以便它们在工作簿内建立链接。
手工组合工作表
要手工使用组的功能，只需简单地单击将要输入数据的工作表，并在单击想要放置数据的工作表的标签名时按住Ctrl键。此时，当在工作表的任意单元格中输入数据时，这些数据也将自动输入到已组合的其它工作表中。
要取消工作表组合，只需单击除组合的工作表之外的其它任一工作表标签，或者在工作表标签中单击右键，选择“取消组合工作表”命令。
提示：当将工作表组合在一起时，能够看到标题栏中在工作簿名称后面添加了一对方括号，其中显示“工作组”。这能很方便地查看工作表是否是组合的。建议在完成同步输入数据操作后，取消工作表组合。
虽然上面介绍的方法很容易，但也意味着需要记住工作表是否处于组合状态，并且在不需要时取消组合，否则将存在覆盖其它工作表数据的风险。例如，您可能想仅对某特定的单元格区域同步输入数据，如果在其它区域输入数据时，忘记取消工作表组合则可能覆盖掉其它工作表中已存在的数据或者输入不需要的数据。
自动组合工作表
能够通过使用一些非常简单的VBA代码克服上述缺点。要使这些代码能够工作，必须将它们放置在Sheet对象的私有模块中。即在VBE中右击工作表名称，选择“查看代码”或者双击工作表名称。然后，使用Excel的工作表事件之一，并将代码放置在事件过程中。
首先命名希望成组的单元格区域，以便在其它工作表中自动显示数据。然后，在工作表模块中输入下面的代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range(”MyRange”), Target) Is Nothing Then
‘有目的的将工作表Sheet5放置在第一位,使之成为活动工作表
Sheets(Array(”Sheet5″, “Sheet3″, “Sheet1″)).Select
Else
Me.Select
End If
End Sub
在代码中，使用了命名的区域MyRange，可以将MyRange修改为您工作表中使用的单元格区域名称，同时修改代码中三个工作表名称为希望组合的工作表名称。
syncode
图：自动组合工作表的代码
注意，代码中在数组中使用的第一个工作表名必须是包含代码的工作表，并且您将在该工作表中输入数据。
一旦编写好代码，每次选择工作表中的任意单元格时，代码就会检查是否所选的单元格在命名区域MyRange中。如果在该区域，那么代码将自动组合你希望组合的工作表。如果不在，将通过激活正处理的工作表而取消组合。这项技巧的优点是不需要人工组合工作表，因而没有因为忘记取消组合而造成的危险，同时节省了时间并避免产生障碍。
如果希望在其它工作表中显示相同的数据，但不是出现在相同的单元格地址，那么使用如下的代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range(”MyRange”), Target) Is Nothing Then
With Range(”MyRange”)
.Copy Destination:=Sheets(”Sheet3″).Range(”A1″)
.Copy Destination:=Sheets(”Sheet1″).Range(”D10″)
End With
End If
End Sub
上面的代码也需要放置在Sheet对象的模块中，具体操作与前面内容相同。
注:：初译自《Excel Hacks》，仅供参考。同时发表于完美Excel。
]]> <![CDATA[汇总文件夹内所有工作簿的所有工作表记录]]> http://blog.excelhome.net/user1/gvntw/archives/2008/1057.html gvntw 2008-8-13 10:51:00 Private Sub CommandButton1_Click()
    Dim d As New Dictionary, arr(), i%, j%
    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim cat As New Catalog
    Dim sql$, MyPath$, MyFiles$, TWb$
   
    On Error GoTo Err
    Cells = Empty   '清空单元格数据
    TWb = ThisWorkbook.Name
   
    MyPath = ThisWorkbook.Path
    MyFiles = Dir(MyPath & "\*.xls")
    Do While MyFiles <> ""
        If TWb <> MyFiles Then
            d.Add MyFiles, 0
            j = j + 1
        End If
        MyFiles = Dir
    Loop
   
    If j = 0 Then
        MsgBox "没有文件可合并", , "gvntw"
        Exit Sub
    End If
   
    arr = d.Keys: d.RemoveAll

    For i = 0 To UBound(arr)
        cn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties=Excel 8.0;Data Source=" & MyPath & "\" & arr(i)
        Set cat.ActiveConnection = cn
        For Each Tabs In cat.Tables
            sql = "Select """ & Replace(arr(i), ".xls", "") & """ as 单位,""" & Replace(Tabs.Name, "$", "") & """ as 月份,* From [Excel 8.0;DATABASE=" & MyPath & "\" & arr(i) & "].[" & Tabs.Name & "]"
            d.Add sql, 0
        Next
        cn.Close
    Next

    sql = Join(d.Keys, " UNION ALL ")
    sql = "SELECT  * from (" & sql & ") order by 姓名,月份"
    cn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties=Excel 8.0;Data Source=" & arr(0)
    Set rst = cn.Execute(sql)

    For i = 1 To rst.Fields.Count
        Cells(1, i) = rst(i - 1).Name
    Next
   
    Range("a2").CopyFromRecordset rst
    rst.Close: Set rst = Nothing
    cn.Close: Set cn = Nothing: Set d = Nothing
    MsgBox "表格已汇总完成", , "gvntw"
    Exit Sub
Err:
MsgBox Err.Description, , "错误报告"
End Sub

 
示例附件：UploadFiles/2008-8/39307.2392123.zip
]]> <![CDATA[Excel Hacks #1：创建工作簿的个性化视图]]> http://blog.excelhome.net/user1/fanjy/archives/2008/1055.html fanjy 2008-8-12 13:10:00 在Excel中，能够同时显示多个工作簿，并且可以有在不同窗口排列的工作簿自定义视图，然后将视图工作区保存为.xlw文件并在需要时使用它们。
有时，当在Excel中进行操作时，可能需要在屏幕中打开多个工作簿，使之更容易使用或者从多个工作簿中查看数据。下面介绍如何以整洁且有组织的方式进行这项操作。
首先，打开所有需要的工作簿。
技巧：要一次打开多个工作簿，选择“Office按钮─—打开”，在“打开”对话框中，在按住Ctrl键的同时选择想要打开的工作簿，然后单击“打开”按钮。
从任一工作簿中选择“视图─—窗口─—全部重排”，如果“当前活动工作簿的窗口”复选框已选中，则取消选中，然后选择窗口排列方式并单击“确定”。
如果选择“平铺”，将以平铺的形式显示工作簿，如图1所示。
选择“水平并排”使得一个工作簿在另一个工作簿的顶部，如图2所示。
选择“垂直并排”使得一个工作簿紧挨着另一个工作簿，如图3所示。
选择“层叠”将使一个工作簿在另一个工作簿的上方，如图4所示。
图1：平铺方式排列的四个工作簿
图2：水平排列的四个工作簿
图3：垂直排列的四个工作簿
图4：层叠的四个工作簿
一旦工作簿按预想的视图显示后，就很容易在工作簿之间移动数据，例如复制、粘贴、拖放等。
如果需要反复创建某个视图，那么能够将其保存为工作区（workspace），即选择“视图─—窗口─—保存工作区”，在“文件名”中输入工作区的文件名，单击“确定”。当保存工作区时，文件的扩展名为.xlw而不是.xlsx。要将某工作簿恢复为完整的窗口，只需双击标题栏。
无论何时需要打开这些同样的工作簿，只需简单地打开.xlw文件。任何对在.xlw文件中的工作簿所作的变化都将在关闭工作区时自动保存，或者可以单独保存工作簿。
如果花些时间为需要在多个打开的工作簿中重复操作而设置自定义视图，将会发现这些操作将更容易管理。可以为不同的重复任务使用不同的视图，这取决于具体的任务或者您的感觉。

注：初译自《Excel Hacks》，仅供参考。

]]> <![CDATA[术有专攻 日益精进]]> http://blog.excelhome.net/user1/fanjy/archives/2008/1053.html fanjy 2008-8-11 13:27:00 这是周靖老师在其所译的著作《C#本质论》（英文名《Essential C# 2.0》）的译者序所使用的题目。在序中，有一段话很好，特摘录于此，共勉之！
—————————————————
最近在看《史记 孔子世家》，撷取孔子学琴一则与各位共勉：
孔子学鼓琴师襄子，十日不进。师襄子曰：“可以益矣。”孔子曰：“丘已习其曲矣，未得其数也。”有间，曰：“已习其数，可以益矣。”孔子曰：“丘未得其志也。”有间，曰：“已习其志，可以益矣。”孔子曰：“丘未得其为人也。”有间，有所穆然深思焉。曰：“丘得其为人，黯然而黑，几然而长，眼如望羊，如王四国，非文王其谁能为此也！”师襄子辟席再拜，曰：“师盖云文王操也。”
这则故事的大意为孔子向师襄子学琴，学了十天并不要求学习新的东西。尽管师襄子一再敦促可以增加新的内容，但孔子坚信，不达到三个境界，不能继续学习新的东西：学习常握演奏的技巧，领会其中的志趣，熟悉乐曲的作者。最终，孔子领悟到乐曲作者的心境，使师襄子叹服不已。
每学习一种新东西，都离不开这三个境界，正所谓“昨夜西风凋碧树，独上高楼，望尽天涯路”，此境界一也；“衣带渐宽终不悔，为伊消得人憔悴”，此境界二也；“众里寻他千百度，回头蓦见，那人正在，灯火阑珊处”，此境界三也。
从事技术图书的翻译多年，经常有读者来信问：“我想学习编程，如何入手？”对待这种问题，我往往会勉励他们，万丈高楼平地起，首先要搭建好整个学习框架，梳理整个学习层次，然后选择合适的入门书夯实基础，完全掌握之后再按照已经搭建好的框架逐一填充各个学习模块。
……

]]> <![CDATA[佳能450D试机照]]> http://blog.excelhome.net/user1/chrisfang/archives/2008/1052.html chrisfang 2008-8-11 10:40:00 上周刚刚新买了一台单反Canon450D+Sigma18-200mm F3.5-6.3 DC OS，周末去试了一下机器，拍了一些照片，以长焦端为主。
由于博客限制文件大小为2M，因此上传之前还是进行了一些压缩。








]]> <![CDATA[一些编码词汇]]> http://blog.excelhome.net/user1/xyfgenius/archives/2008/1049.html xyfgenius 2008-8-9 18:16:00 Character: (1) The smallest components of a writing system or script that have semantic value. A character refers to an abstract idea rather than to a specific glyph or shape that a character might have once rendered or displayed. (2) A code element.

Charset: Stands for “character set.” A set of characters used in Windows. Charsets refer to the same collections of characters as those defined by Windows code pages.

CJK/CJKV: A reference to Chinese, Japanese, and Korean languages. Sometimes a “V” for Vietnamese is added to the acronym.

Code page: An ordered set of characters of a given script in which a numeric index (code-point value) is associated with each character. In this book, this term is generally used in the context of code pages defined by Windows and can also be called a “character set” or “charset.”

Code point, or code element: (1) The minimum bit combination that can represent a unit of encoded text for processing or exchange. (2) An index into a code page or a Unicode standard.

Double-byte character set (DBCS): A character encoding in which the code points can be either 1 or 2 bytes. Used, for example, to encode Chinese, Japanese, and Korean languages.
 
GB 2312-80: A multibyte encoding standardized by the People’s Republic of China.

Multibyte character set (MBCS): A character encoding in which the code points can be either 1, 2, or more bytes.

Unicode: A worldwide character encoding that includes most of the world’s scripts; it is developed, maintained, and promoted by the Unicode Consortium, a nonprofit computer industry organization. (The official Unicode Consortium Web site is http://www.unicode.org.)


 

]]> <![CDATA[从关闭的工作簿中取值]]> http://blog.excelhome.net/user1/fanjy/archives/2008/1046.html fanjy 2008-8-7 13:19:00 有许多种从关闭的工作簿中取值的方法，下面是其中之一。下面的VBA代码从关闭的工作簿中获取值。
 Sub ExtractDataFromClosedWorkBook()
    
    Application.ScreenUpdating = False
    
     '创建链接来从关闭的工作簿中获取数据
     '可以将相关代码修改为相应的路径和单元格
    With [Sheet1!A1:B4]
        .Value = "='" & ActiveWorkbook.Path & "\[testDataWorkbook.xls]Sheet1'!A1:B4"
        
         '删除链接
        .Value = .Value
    End With
    
    Application.ScreenUpdating = True
    
End Sub
其中，可以将代码中的路径修改为需要从中获取值的工作簿的路径，单元格也作相应的修改。
]]> <![CDATA[人生中的第一份"工作"]]> http://blog.excelhome.net/user1/xyfgenius/archives/2008/1045.html xyfgenius 2008-8-1 19:23:00 自己是学纺织品检验与商务的,本周1下午接到电话叫我明天就去实习,实习的单位是搞制造的,做装载车,叉车等的.第2天一大早,在熟人的带领下来到了一个总经理的办公室,问候了几句,我就去实习的单位了,(由于该公司是个大公司,我实习的是其下属的一个子公司),接下来见的是副部长,初次见面长相语音我都感觉很像我姑丈,但我没敢说出来.当天他也不知道安排我做什么,就叫我跟个合同租赁员李姐(我是后来才知道她的名字的),看有什么需要帮助的.结果她给我复印了一些有关合同租赁的事宜和范本让我自己先看看,接下来我就一个人仔细的看了看,发觉自己学的进出口贸易实务教程还是很有用的,很多专业术语都配上了.后来刘部给我来了份任务,叫我帮忙叫一大堆单据输入到表格中,我心中暗喜,我在excelhome的这几个月总算没白费阿,用到我的"长处"了.可是公司用的却是wps,虽然后面打开后发觉界面跟excel基本一样,但是功能还是不如excel,我甚至纳闷,这是金山独立开发的吗?怎么感觉就是excel的精简版(第一次接触wps).原以为录入数据是很简单的,后来操作起来发觉还是要动动脑子的,当然最总还是比较轻松的解决了.第一天就这样过去了,总体感觉这个子公司,很乱,管理不好,员工很闲,有玩游戏的,有聊天的.难道大公司华丽的业绩背后隐藏都是这些吗.
第2天事开始多了,也许是部长对我也比较信任了吧,因为奥运会的缘故,很多工厂被迫关闭几个月,导致客户付款要延期,所以我的任务就是核对下延期付款的利息和月份,还是做表,这次要从内部的管理系统里导出数据来核对.由于要用到很多工作表,起初那位张姐就给我几份数据核对,我很快的用函数把它给做完了,告诉她后,她很惊讶,这么快,结果她拿过去用计算器一个一个数据在那用公式计算核对,我晕,怪不得她以为要很久,几千条数据这样核要什么时候才玩啊,这时我才知道原来这里的人不是很会用excel,看来我当初下定决心学学excel还是很有好处的.接下来遇到了麻烦事了,同一个人有很多条记录,导致我查找核对的时候用函数弄出来的都是这个人的第一条记录.以前在home经常处理这种重复的问题的,这次遇到这么多数据,而且工作表也很多的情况下,自己真的有些忙乱了.然后我也做了个蠢事,把重复的记录一个个用眼睛去核对,先在一个表格查找这个人,再在另一个表格查找这个人,看他的几条记录.对的眼睛都花了.今天的感悟就是原来用好excel可以提高这么多的工作效率,即减少了人力又减少了精力,更加坚定了我努力学习它的信念.
接下来几天有时候我就自己一个人看看他们内部的文件,今天看到了久违的ERP,以前在论坛上有看到过,当时没去弄明白是什么东西,今天系统看了下介绍和管理方法,发觉这个很有用的,ERP(Enerprise Resource Plan)企业资源计划,一个对我来说全新的概念,可恶的信息部的把电脑什么都给卡死了,即不能上网,也不能用U盘,那些宝贵的资料我都弄不回来学习(不过呢这样企业机密就能保管的很好,也不错).
一个星期的实习感触最深的就是原来工作真的很无聊的,特别是没事干的时候,如果有事还好,要我没事干坐在那呆一天真的好烦阿,(我性格就是比浮躁的)怪不得大家说工作了会怀念学生生活.
]]> <![CDATA[接力问答游戏]]> http://blog.excelhome.net/user1/kevin/archives/2008/1044.html Kevin 2008-7-31 19:50:00 今天被陈希章同学在MSN上点名了，发现现在居然流行这么一种游戏。
其实人生也就是一场游戏，但如果你想玩得精彩，就得认真地玩、真诚地玩。

****************************************************************************************************
游戏的规则：
A. 被点到的要在自己的博客里写下自己的答案，然后去掉一个你最不喜欢的问题再加上一个你的问题，仍然组成20个问题，传给其他8个人。列出8个需要回答问题的人的名字，还要通知对方"你被点名了"，
B. 这8个人要在自己的博客里注明是从哪里接到的，并且再传给其他8个人，让游戏继续下去，不得回传。被点到名字的人将会得到大家的祝福，并且所有美好的愿望都会在不久的将来实现。
*******************************************************************************************************
1. 喜欢的季节和颜色
初夏
我觉得每种颜色都是美丽的

 

2. 最近在听的，有能说出你心事的歌么，写句歌词给我？

最近不常听歌

 

3. 异性的什么是最吸引你的？为什么？

性情

 

4. 你最希望从朋友（不包括爱人）那里得到的是什么？

坦诚和理解 

5. 说说你去过的最难忘的一个地方？

有点怕”最“这个字，感觉这个问题像学生时代的作文题目。令人难忘的地方有很多，可以因为各种原因而难忘，三亚的碧海蓝天、厦门的环岛路、杭州的西湖、SFO的金门大桥……

 

6. 推荐一家你认为好吃又实惠的美食店。

自从有了LP，似乎很久没在外面吃了，以前吃过的地方也没有符合此标准的。

 

7. 你的星座是什么？比较欣赏哪个星座？

天秤座。星座是人的只读属性，和出生日期相关，有什么必要谈欣赏不欣赏？

 

8. 遇到喜欢的人，你是勇敢表白还是默默关注？

我这种人似乎不太会一见钟情，哈哈。

 

9. 说出点你名的人的3个优点（不可删除题）

我和希章在MSN和邮件上说的话似乎比实际生活中说的话更多。
这位仁兄是充满智慧、勤奋而又真诚的人。

 

10. 什么事情会让你觉得很幸福？

爱与被爱

 

11. 你最想回到哪一年重新开始？

如果真要回，那就从娘胎开始吧，也许可以体验另一种完全不同的人生。

 

12. 计划过自己的将来么，有的话说说。 

稳定的事业，平静温馨的家庭生活。
 

13. 你对你的近况满意吗？有什么需要改变？

满意，但还需要继续努力。

 

14. 有想过以后家里会养一个或几个宠物吗？会选择养那种呢？

想过养只小狗，可是LP不喜欢，而我也很可能没有精力照顾它。

 

15. 你最讨厌的一件事是什么？

遇到完全意外的事件打乱计划。

 

16. 最喜欢的旅游地？

去的地方还不够多，特别是真的当作旅游的地方还太少。希望最近两年有机会去黄山或者云贵川。
 

17. 在过去的时光里，你为自己最感到骄傲的一件事情是什么？

建设了Excel Home这样的平台，现在每天有数以万计的Office用户在上面交流和学习。

 

18.你有没为自己的目标奋斗过？

有，一直在奋斗

 

19. 此时此刻的一个小愿望?

希望Excel Home的原创图书能有不错的成绩。

 

20. 你希望有个怎样的人生?

淡定，做自己喜欢做的事情，和自己喜欢的人在一起。

游戏接力：

==========================================================================================================

增加的题目是：你觉得自己有什么不足？

删除的题目是：你的星座是什么？比较欣赏哪个星座？ 


终于做完了，还真的费了不少脑筋，相当于认真思考了一下自己目前的生活。
轮到我点名了，不好点，因为并不是每个人都有写博客，呵呵。

xiebaby、Grace、Shirley、ZJ、LW、Rose、fanjy、果果、gvntw
]]>