史萊姆論壇

返回   史萊姆論壇 > 教學文件資料庫 > 繪圖軟體應用技術文件
忘記密碼?
註冊帳號 論壇說明 標記討論區已讀

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』

Google 提供的廣告


 
 
主題工具 顯示模式
舊 2006-02-10, 09:06 AM  
psac
榮譽會員
 
psac 的頭像
榮譽勳章
UID - 3662
在線等級: 級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時
註冊日期: 2002-12-07
住址: 木柵市立動物園
文章: 17381
現金: 5253 金幣
資產: 33853 金幣
預設 教學 - 常用EXCEL技巧匯總

常用EXCEL技巧匯總

利用"條件求和嚮導"對資料按條件進行匯總

在一個表格中經常需要將表中的資料按一定的條件進行求和計算。如一個人事職稱檔案表,需要統計"助理工程師"、"工程師"、"會計師"等職稱的人數各為多少。對類似問題,利用"條件求和嚮導"便可很好地解決。具體方法是選項"工具"*"增益集",在開啟的視窗中選"條件求和嚮導",然後按"確定"按鈕,使用增益集; 選項"工具"*"嚮導"*"條件求和",進入求和嚮導; 在求和嚮導中首先按下"輸入"框右邊的小按鈕,然後在表格中直接選定包含資料的區域,再按下"下一步",在"求和列"中選定求和資料所在列,在"條件"項中增加求和的條件,根據嚮導的步驟指定存放匯總結果的單元格,即將游標置於輸入項中,直接在表格中選相應單元格即可,最後按下"完成"按鈕。在匯總結果單元格中將出現預期的匯總結果,且一旦設定,匯總結果單元格會隨著資料變化自動匯總,一勞永逸。要取消匯總結果只需點擊匯總結果單元格,將公式去掉即可。當然,熟悉函數公式的用戶,可直接定義單元格的公式,效果是一樣的。

把Excel表格轉換為圖片

許多報紙和雜誌都介紹過在Excel中,同時按住Shift鍵點擊「文件」表單,原來的「關閉」表單項就會變成「全部關閉」。如果我們在按下Shift鍵的同時點擊「編輯」表單,原來的複製和貼上就會變成「複製圖片」和「貼上圖片」。利用這一功能,我們可以將一個資料表以圖片的形式進行複製,從而將其轉換為圖片。方法如下:

首先選需要複製成圖片的單元格區域,然後按住Shift鍵依次選項「編輯→複製圖片」指令,接著彈出「複製圖片」視窗,選項「圖片」單選項後點擊「確定」按鈕,這時就將選定的表格區域複製成圖片了。最後複製到目標只需直接選項「貼上」指令即可(或者按Shift鍵再選項「編輯→貼上圖片」指令)。我們還可以將其在Word中進行貼上。

另外,在複製圖片時如果選項了「如列印效果」單選項,在貼上的時候如果表格沒有邊框,複製後的圖片也不會出現邊框。


將Excel的文本數位轉換成數位



在Excel中,系統將前面帶有半形單引號的數位視為文本對待,而且為了某些需要,用戶可以通過「格式」表單中的「單元格」指令,將數位設定為文本格式。然而,現在我們卻需要把工作表中文本格式的數位轉換成數位,那麼以下方法可以一試。

1.一次轉換一個單元格

在「工具」表單上,按下「選項」,再按下「錯誤檢查」選擇項(一定要確保選了「允許後台錯誤檢查」和「數位以文本形式儲存於」複選框)。選任何在左上角有綠色錯誤指示符的單元格。在單元格旁邊,按下出現的按鈕,再按下「轉換為數位」。

2.一次轉換整個區域

在某空白單元格中,輸入數位「1」。選該單元格,並在「編輯」表單上按下「複製」指令。選取需轉換的儲存於為文本數位的單元格區域。在「編輯」表單上,按下「選項性貼上」。在「運算」下,按下「乘」。按下「確定」按鈕。

3.處理特殊財務數位

一些財務程序顯示負值時在該值右邊帶有負號「-」。要將此文本字串串轉換為數值,必須返回除最右邊字串(即負號)以外的所有文本字串串字串,然後乘以「-1」。例如,如果單元格A2中的值為「156-」,那麼公式「=LEFT(A2,LEN(A2)-1)*-1」將文本轉換為數值「-156」,然後用上面的方法操作。

快速隱藏單元格所在位置的行與列

1. 按ctrl+9 可隱藏選單元格或區域所在的行
2. 按ctrl+0 可隱藏選單元格或區域所在的列


恢復隱藏的行和列的快捷鍵是:
ctrl+shift+0
ctrl+shift+9
__________________
http://bbsimg.qianlong.com/upload/01/08/29/68/1082968_1136014649812.gif
psac 目前離線  
送花文章: 3, 收花文章: 1625 篇, 收花: 3194 次
有 3 位會員向 psac 送花:
chuchu2 (2009-04-04),keypipi (2009-04-12),tsai2878 (2011-02-08)
感謝您發表一篇好文章
舊 2006-09-21, 08:05 AM   #46 (permalink)
榮譽會員
 
psac 的頭像
榮譽勳章
UID - 3662
在線等級: 級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時
註冊日期: 2002-12-07
住址: 木柵市立動物園
文章: 17381
現金: 5253 金幣
資產: 33853 金幣
預設

常駐於工具列上的月曆控件-增益集
說 明 本範例將[月曆控件]常駐於工具列上,方便使用者查閱日期或選擇日期,功能如下

1.直接調用月曆控件來輸入日期

2.按 Ctrl + t 可以直接輸入當天的日期(類似Excel 2002 版以前的 Ctrl + ;,從Excel 2003版以後就不能用了)

3.新版增加了窗體開啟/關閉時淡入及淡出的效果及一些小修正
http://vba.com.tw/VBAFILE/general/H0050.1.jpg





Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Formatting").Controls("Calendar").Delete
On Error GoTo 0
Application.OnKey "^t"
End Sub
--------------------------------------------------------------------------------
Private Sub Workbook_Open()
If hasCalendar Then
Call CreateControl
'Ctrl + t 輸入當天的日期
Application.OnKey "^t", "Insert_today"
Else
MsgBox "您並未安裝月曆控件(mscal.ocx),無法使用本增益集 "
End If
End Sub




Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, _
ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2 '表示把窗體設置成半透明樣式

--------------------------------------------------------------------------------

Sub CreateControl()
Dim caobjBtn As CommandBarButton
On Error Resume Next
Application.CommandBars("Formatting").Controls("Calendar").Delete
Err.Clear
Set caobjBtn = Application.CommandBars("Formatting").Controls.Add( _
Type:=msoControlButton, Temporary:=True)
With caobjBtn
.Caption = "Calendar"
.TooltipText = "月曆"
.OnAction = "CaForm_Initialize"
.BeginGroup = True
.Style = msoButtonIcon
.FaceId = 125
End With
End Sub

--------------------------------------------------------------------------------

Sub CaForm_Initialize()
CaForm.Show 0
End Sub

--------------------------------------------------------------------------------

Sub Insert_today()
If TypeName(ActiveCell) = "Range" Then
ActiveCell = Date
End If
End Sub

--------------------------------------------------------------------------------

Function hasCalendar() As Boolean
Dim obj As Object
On Error Resume Next
Set obj = CreateObject("MSCAL.Calendar")
hasCalendar = (Err = 0)
Set obj = Nothing
End Function

--------------------------------------------------------------------------------

Sub SetUFOpacity(Alpha As Byte, rhwnd As Long)
Dim rtn As Long
rtn = GetWindowLong(rhwnd, GWL_EXSTYLE) '取的窗口原先的樣式
rtn = rtn Or WS_EX_LAYERED '使窗體添加上新的樣式
SetWindowLong rhwnd, GWL_EXSTYLE, rtn '把新的樣式賦給窗體
SetLayeredWindowAttributes rhwnd, 0, Alpha, LWA_ALPHA
End Sub



Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private WithEvents evnsht As Excel.Worksheet
Dim yoffset As Long, xOffset As Long
Dim Counter1 As Integer, Counter2 As Integer
Dim hndMe As Long

--------------------------------------------------------------------------------

Private Sub CommandButton1_Click()
Unload Me
End Sub

--------------------------------------------------------------------------------

Private Sub UserForm_Activate()
With Application.CommandBars("Formatting")
Me.Top = (.Top + .Height) * 0.75 + yoffset
Me.Left = (.Controls("Calendar").Left + _
.Controls("Calendar").Width) * 0.75 + xOffset - Me.Width
End With
For Counter1 = 1 To 240 Step 1
Call SetUFOpacity(CByte(Counter1), hndMe)
For Counter2 = 1 To 100
DoEvents
Next Counter2
Next Counter1
Me.Calendar1.Value = Date
End Sub

--------------------------------------------------------------------------------

Private Sub UserForm_Initialize()
xOffset = (Me.Width - Me.InsideWidth) / 2
yoffset = Me.Height - Me.InsideHeight - xOffset - 1
hndMe = FindWindow(vbNullString, Me.Caption)
SetWindowLong hndMe, -16, &H84080080 '去標頭
SetWindowLong hndMe, -20, &H40000 '去外框
DrawMenuBar hndMe
Me.Calendar1.Top = 0
Me.Calendar1.Left = 0
Me.Label1.Top = Me.Calendar1.Height
Me.Width = Me.Calendar1.Width
Me.Height = Me.Calendar1.Height + Me.Label1.Height
Set evnsht = ActiveSheet
End Sub

--------------------------------------------------------------------------------

Private Sub Calendar1_Click()
If TypeName(ActiveCell) = "Range" Then
ActiveCell = CDate(Calendar1.Value)
End If
Unload Me
End Sub

--------------------------------------------------------------------------------

Private Sub Calendar1_DblClick()
Unload Me
End Sub

--------------------------------------------------------------------------------

Private Sub evnsht_SelectionChange(ByVal Target As Range)
Unload Me
End Sub

--------------------------------------------------------------------------------

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
For Counter1 = 240 To 1 Step -1
Call SetUFOpacity(CByte(Counter1), hndMe)
For Counter2 = 1 To 100
DoEvents
Next Counter2
Next Counter1
Set evnsht = Nothing
End Sub




說明:
附件內有兩個檔案,請解壓縮到同一資料夾內,請執行安裝程式



VBE 密碼:chijanzen



本範例必須要安裝[月曆控件]才能執行,如果電腦安裝月曆控件,請參考以下連結

http://vba.com.tw/VBAFILE/ActiveX/G0010.htm
psac 目前離線  
送花文章: 3, 收花文章: 1625 篇, 收花: 3194 次
舊 2006-09-21, 08:07 AM   #47 (permalink)
榮譽會員
 
psac 的頭像
榮譽勳章
UID - 3662
在線等級: 級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時
註冊日期: 2002-12-07
住址: 木柵市立動物園
文章: 17381
現金: 5253 金幣
資產: 33853 金幣
預設

本範例提供1994~2010年之間的農曆年轉換函數,採用陣列方式處理可以隨實際狀況改變農曆年的顯示方式

主 題  農曆年函數
版 本  >= 10.0(Office 2002)
說 明 本範例提供1994~2010年之間的農曆年轉換函數,採用陣列方式處理可以隨實際狀況改變農曆年的顯示方式
參 考




Dim IntToSimDay__$(31, 4)
Public rgstrMonthName(11) As String
Public rgstrDayName(6) As String
Public rgiDaysInMonth(11) As String
Dim B__1__$(11)
Dim B__2__(220)
Dim B__3__(410)
Dim B__4__$(30)
Dim B__5__$(12)
Dim B__6__$(12)
Dim B__7__$(23)
Dim iYear
Dim iMonth
Dim iDay
'IntToSimDay__$(, 0)'天干地支年
'IntToSimDay__$(, 1)'十二生肖年
'IntToSimDay__$(, 2)'農曆月
'IntToSimDay__$(, 3)'農曆日
'IntToSimDay__$(, 4)'24節氣

--------------------------------------------------------------------------------

 
Function ChineCalender(iDate)
Dim iYear As Integer, iMonth As Integer, iDay As Integer
If IsDate(iDate) Then
iYear = Year(iDate)
iMonth = Month(iDate)
iDay = Day(iDate)
Call IniLunarStr
GetLunarDays iYear, iMonth
Intyear = "民國" & Application.WorksheetFunction.Text(iYear - 1911, "[DBNum1];@") & "年"
 
ChineCalender = IntToSimDay__$(iDay - 1, 0) & IntToSimDay__$(iDay - 1, 1) & IntToSimDay__$(iDay - 1, 2) _
& IntToSimDay__$(iDay - 1, 3) & IntToSimDay__$(iDay, 4)
Else
ChineCalender = ""
End If
End Function

--------------------------------------------------------------------------------

Private Sub IniLunarStr()
Dim i
rgstrMonthName(0) = "一月"
rgstrMonthName(1) = "二月"
rgstrMonthName(2) = "三月"
rgstrMonthName(3) = "四月"
rgstrMonthName(4) = "五月"
rgstrMonthName(5) = "六月"
rgstrMonthName(6) = "七月"
rgstrMonthName(7) = "八月"
rgstrMonthName(8) = "九月"
rgstrMonthName(9) = "十月"
rgstrMonthName(10) = "十一月"
rgstrMonthName(11) = "十二月"
B__2__(0) = 30 '11
B__2__(1) = 29 '12 1994 (農曆月份最後一天)
B__2__(2) = 30 '1
B__2__(3) = 30 '2
B__2__(4) = 30 '3
B__2__(5) = 29 '4
B__2__(6) = 30 '5
B__2__(7) = 29 '6
B__2__(8) = 30 '7
B__2__(9) = 29 '8
B__2__(10) = 29 '9
B__2__(11) = 30 '10
B__2__(12) = 29 '11
B__2__(13) = 30 '12 1995
B__2__(14) = 29 '1
B__2__(15) = 30 '2
B__2__(16) = 30 '3
B__2__(17) = 29 '4
B__2__(18) = 30 '5
B__2__(19) = 29 '6
B__2__(20) = 30 '7
B__2__(21) = 30 '8
B__2__(22) = 39 'r8
B__2__(23) = 29 '9
B__2__(24) = 30 '10
B__2__(25) = 29 '11
B__2__(26) = 30 '12 1996
B__2__(27) = 29 '1
B__2__(28) = 30 '2
B__2__(29) = 29 '3
B__2__(30) = 30 '4
B__2__(31) = 30 '5
B__2__(32) = 29 '6
B__2__(33) = 30 '7
B__2__(34) = 29 '8
B__2__(35) = 30 '9
B__2__(36) = 30 '10
B__2__(37) = 29 '11
B__2__(38) = 29 '12 1997
B__2__(39) = 30 '1
B__2__(40) = 29 '2
B__2__(41) = 30 '3
B__2__(42) = 29 '4
B__2__(43) = 30 '5
B__2__(44) = 29 '6
B__2__(45) = 30 '7
B__2__(46) = 30 '8
B__2__(47) = 29 '9
B__2__(48) = 30 '10
B__2__(49) = 30 '11
B__2__(50) = 29 '12 1998
B__2__(51) = 30 '1
B__2__(52) = 29 '2
B__2__(53) = 29 '3
B__2__(54) = 30 '4
B__2__(55) = 29 '5
B__2__(56) = 39 'r5
B__2__(57) = 30 '6
B__2__(58) = 30 '7
B__2__(59) = 29 '8
B__2__(60) = 30 '9
B__2__(61) = 30 '10
B__2__(62) = 29 '11
B__2__(63) = 30 '12 1999
B__2__(64) = 30 '1
B__2__(65) = 29 '2
B__2__(66) = 29 '3
B__2__(67) = 30 '4
B__2__(68) = 29 '5
B__2__(69) = 29 '6
B__2__(70) = 30 '7
B__2__(71) = 29 '8
B__2__(72) = 30 '9
B__2__(73) = 30 '10
B__2__(74) = 30 '11
B__2__(75) = 29 '12 2000
B__2__(76) = 30 '1
B__2__(77) = 30 '2
B__2__(78) = 29 '3
B__2__(79) = 29 '4
B__2__(80) = 30 '5
B__2__(81) = 29 '6
B__2__(82) = 29 '7
B__2__(83) = 30 '8
B__2__(84) = 29 '9
B__2__(85) = 30 '10
B__2__(86) = 30 '11
B__2__(87) = 29 '12 2001
B__2__(88) = 30 '1
B__2__(89) = 30 '2
B__2__(90) = 29 '3
B__2__(91) = 30 '4
B__2__(92) = 39 'r4
B__2__(93) = 30 '5
B__2__(94) = 29 '6
B__2__(95) = 29 '7
B__2__(96) = 30 '8
B__2__(97) = 29 '9
B__2__(98) = 30 '10
B__2__(99) = 29 '11
B__2__(100) = 30 '12 2002
B__2__(101) = 30 '1
B__2__(102) = 30 '2
B__2__(103) = 29 '3
B__2__(104) = 30 '4
B__2__(105) = 29 '5
B__2__(106) = 30 '6
B__2__(107) = 29 '7
B__2__(108) = 29 '8
B__2__(109) = 30 '9
B__2__(110) = 29 '10
B__2__(111) = 30 '11
B__2__(112) = 29 '12 2003
B__2__(113) = 30 '1
B__2__(114) = 30 '2
B__2__(115) = 29 '3
B__2__(116) = 30 '4
B__2__(117) = 30 '5
B__2__(118) = 29 '6
B__2__(119) = 30 '7
B__2__(120) = 29 '8
B__2__(121) = 29 '9
B__2__(122) = 30 '10
B__2__(123) = 29 '11
B__2__(124) = 30 '12 2004
B__2__(125) = 29 '1
B__2__(126) = 30 '2
B__2__(127) = 39 'r2
B__2__(128) = 30 '3
B__2__(129) = 30 '4
B__2__(130) = 29 '5
B__2__(131) = 30 '6
B__2__(132) = 29 '7
B__2__(133) = 30 '8
B__2__(134) = 29 '9
B__2__(135) = 30 '10
B__2__(136) = 29 '11
B__2__(137) = 30 '12 2005
B__2__(138) = 29 '1 2005
B__2__(139) = 30 '2 2005
B__2__(140) = 29 '3 2005
B__2__(141) = 30 '4 2005
B__2__(142) = 29 '5 2005
B__2__(143) = 30 '6 2005
B__2__(144) = 30 '7 2005
B__2__(145) = 29 '8 2005
B__2__(146) = 30 '9 2005
B__2__(147) = 29 '10 2005
B__2__(148) = 30 '11 2005
B__2__(149) = 29 '12 2006
B__2__(150) = 30 '1 2006
B__2__(151) = 29 '2 2006
B__2__(152) = 30 '3 2006
B__2__(153) = 29 '4 2006
B__2__(154) = 30 '5 2006
B__2__(155) = 29 '6 2006
B__2__(156) = 30 '7 2006
B__2__(157) = 39 '7 2006 r2
B__2__(158) = 30 '8 2006
B__2__(159) = 30 '9 2006
B__2__(160) = 29 '10 2006
B__2__(161) = 30 '11 2006
B__2__(162) = 30 '12 2006
B__2__(163) = 29 '1 2007
B__2__(164) = 29 '2 2007
B__2__(165) = 30 '3 2007
B__2__(166) = 29 '4 2007
B__2__(167) = 29 '5 2007
B__2__(168) = 30 '6 2007
B__2__(169) = 29 '7 2007
B__2__(170) = 30 '8 2007
B__2__(171) = 30 '9 2007
B__2__(172) = 30 '10 2007
B__2__(173) = 29 '11 2007
B__2__(174) = 30 '12 2007
B__2__(175) = 30 '1 2008
B__2__(176) = 29 '2 2008
B__2__(177) = 29 '3 2008
B__2__(178) = 30 '4 2008
B__2__(179) = 29 '5 2008
B__2__(180) = 29 '6 2008
B__2__(181) = 30 '7 2008
B__2__(182) = 29 '8 2008
B__2__(183) = 30 '9 2008
B__2__(184) = 30 '10 2008
B__2__(185) = 29 '11 2008
B__2__(186) = 30 '12 2008
B__2__(187) = 30 '1 2009
B__2__(188) = 30 '2 2009
B__2__(189) = 29 '3 2009
B__2__(190) = 29 '4 2009
B__2__(191) = 30 '5 2009
B__2__(192) = 39 'r5 2009
B__2__(193) = 29 '6 2009
B__2__(194) = 30 '7 2009
B__2__(195) = 29 '8 2009
B__2__(196) = 30 '9 2009
B__2__(197) = 29 '10 2009
B__2__(198) = 30 '11 2009
B__2__(199) = 30 '12 2009
B__2__(200) = 30 '1 2010
B__2__(201) = 29 '2 2010
B__2__(202) = 30 '3 2010
B__2__(203) = 29 '4 2010
B__2__(204) = 30 '5 2010
B__2__(205) = 29 '6 2010
B__2__(206) = 29 '7 2010
B__2__(207) = 30 '8 2010
B__2__(208) = 29 '9 2010
B__2__(209) = 29 '10 2010
B__2__(210) = 30 '11 2010
B__2__(211) = 30 '12 2010
 
 
B__3__(0) = 5 '1994
B__3__(1) = 20
B__3__(2) = 4
B__3__(3) = 19
B__3__(4) = 6
B__3__(5) = 21
B__3__(6) = 5
B__3__(7) = 20
B__3__(8) = 6
B__3__(9) = 21
B__3__(10) = 6
B__3__(11) = 21
B__3__(12) = 7
B__3__(13) = 23
B__3__(14) = 8
B__3__(15) = 23
B__3__(16) = 8
B__3__(17) = 23
B__3__(18) = 8
B__3__(19) = 23
B__3__(20) = 7
B__3__(21) = 22
B__3__(22) = 7
B__3__(23) = 22
B__3__(24) = 6 '1995
B__3__(25) = 20
B__3__(26) = 4
B__3__(27) = 19
B__3__(28) = 6
B__3__(29) = 21
B__3__(30) = 5
B__3__(31) = 20
B__3__(32) = 6
B__3__(33) = 21
B__3__(34) = 6
B__3__(35) = 22
B__3__(36) = 7
B__3__(37) = 23
B__3__(38) = 8
B__3__(39) = 23
B__3__(40) = 8
B__3__(41) = 23
B__3__(42) = 9
B__3__(43) = 24
B__3__(44) = 8
B__3__(45) = 23
B__3__(46) = 7
B__3__(47) = 22
B__3__(48) = 6 '1996
B__3__(49) = 20
B__3__(50) = 4
B__3__(51) = 19
B__3__(52) = 6
B__3__(53) = 21
B__3__(54) = 5
B__3__(55) = 20
B__3__(56) = 6
B__3__(57) = 21
B__3__(58) = 6
B__3__(59) = 22
B__3__(60) = 7
B__3__(61) = 22
B__3__(62) = 7
B__3__(63) = 23
B__3__(64) = 7
B__3__(65) = 23
B__3__(66) = 8
B__3__(67) = 23
B__3__(68) = 7
B__3__(69) = 22
B__3__(70) = 7
B__3__(71) = 21
B__3__(72) = 5 '1997
B__3__(73) = 20
B__3__(74) = 4
B__3__(75) = 18
B__3__(76) = 5
B__3__(77) = 20
B__3__(78) = 5
B__3__(79) = 20
B__3__(80) = 5
B__3__(81) = 21
B__3__(82) = 5
B__3__(83) = 21
B__3__(84) = 7
B__3__(85) = 23
B__3__(86) = 7
B__3__(87) = 23
B__3__(88) = 7
B__3__(89) = 23
B__3__(90) = 8
B__3__(91) = 23
B__3__(92) = 7
B__3__(93) = 22
B__3__(94) = 7
B__3__(95) = 22
B__3__(96) = 5 '1998
B__3__(97) = 20
B__3__(98) = 4
B__3__(99) = 19
B__3__(100) = 6
B__3__(101) = 21
B__3__(102) = 5
B__3__(103) = 20
B__3__(104) = 6
B__3__(105) = 21
B__3__(106) = 6
B__3__(107) = 21
B__3__(108) = 7
B__3__(109) = 23
B__3__(110) = 8
B__3__(111) = 23
B__3__(112) = 8
B__3__(113) = 23
B__3__(114) = 8
B__3__(115) = 23
B__3__(116) = 7
B__3__(117) = 22
B__3__(118) = 7
B__3__(119) = 22
B__3__(120) = 6 '1999
B__3__(121) = 20
B__3__(122) = 4
B__3__(123) = 19
B__3__(124) = 6
B__3__(125) = 21
B__3__(126) = 5
B__3__(127) = 20
B__3__(128) = 6
B__3__(129) = 21
B__3__(130) = 6
B__3__(131) = 22
B__3__(132) = 7
B__3__(133) = 23
B__3__(134) = 8
B__3__(135) = 23
B__3__(136) = 8
B__3__(137) = 23
B__3__(138) = 9
B__3__(139) = 24
B__3__(140) = 8
B__3__(141) = 23
B__3__(142) = 7
B__3__(143) = 22
B__3__(144) = 6 '2000
B__3__(145) = 21
B__3__(146) = 4
B__3__(147) = 19
B__3__(148) = 5
B__3__(149) = 20
B__3__(150) = 4
B__3__(151) = 20
B__3__(152) = 5
B__3__(153) = 21
B__3__(154) = 5
B__3__(155) = 21
B__3__(156) = 7
B__3__(157) = 22
B__3__(158) = 7
B__3__(159) = 23
B__3__(160) = 7
B__3__(161) = 23
B__3__(162) = 8
B__3__(163) = 23
B__3__(164) = 7
B__3__(165) = 22
B__3__(166) = 7
B__3__(167) = 21
B__3__(168) = 6 '2001
B__3__(169) = 20
B__3__(170) = 4
B__3__(171) = 18
B__3__(172) = 5
B__3__(173) = 20
B__3__(174) = 5
B__3__(175) = 20
B__3__(176) = 5
B__3__(177) = 21
B__3__(178) = 5
B__3__(179) = 21
B__3__(180) = 7
B__3__(181) = 23
B__3__(182) = 7
B__3__(183) = 23
B__3__(184) = 7
B__3__(185) = 23
B__3__(186) = 8
B__3__(187) = 23
B__3__(188) = 7
B__3__(189) = 22
B__3__(190) = 7
B__3__(191) = 22
B__3__(192) = 5 '2002
B__3__(193) = 20
B__3__(194) = 4
B__3__(195) = 19
B__3__(196) = 6
B__3__(197) = 21
B__3__(198) = 5
B__3__(199) = 20
B__3__(200) = 6
B__3__(201) = 21
B__3__(202) = 6
B__3__(203) = 21
B__3__(204) = 7
B__3__(205) = 23
B__3__(206) = 8
B__3__(207) = 23
B__3__(208) = 8
B__3__(209) = 23
B__3__(210) = 8
B__3__(211) = 23
B__3__(212) = 7
B__3__(213) = 22
B__3__(214) = 7
B__3__(215) = 22
B__3__(216) = 6 '2003
B__3__(217) = 20
B__3__(218) = 4
B__3__(219) = 19
B__3__(220) = 6
B__3__(221) = 21
B__3__(222) = 5
B__3__(223) = 20
B__3__(224) = 6
B__3__(225) = 21
B__3__(226) = 6
B__3__(227) = 22
B__3__(228) = 7
B__3__(229) = 23
B__3__(230) = 8
B__3__(231) = 23
B__3__(232) = 8
B__3__(233) = 23
B__3__(234) = 9
B__3__(235) = 24
B__3__(236) = 8
B__3__(237) = 23
B__3__(238) = 7
B__3__(239) = 22
B__3__(240) = 6 '2004
B__3__(241) = 21
B__3__(242) = 4
B__3__(243) = 19
B__3__(244) = 5
B__3__(245) = 20
B__3__(246) = 4
B__3__(247) = 20
B__3__(248) = 6
B__3__(249) = 21
B__3__(250) = 5
B__3__(251) = 21
B__3__(252) = 7
B__3__(253) = 22
B__3__(254) = 7
B__3__(255) = 23
B__3__(256) = 7
B__3__(257) = 23
B__3__(258) = 8
B__3__(259) = 23
B__3__(260) = 7
B__3__(261) = 22
B__3__(262) = 7
B__3__(263) = 21
B__3__(264) = 5 '2005 1
B__3__(265) = 20 '2005 2
B__3__(266) = 4 '2005 3
B__3__(267) = 18 '2005 4
B__3__(268) = 5 '2005 5
B__3__(269) = 20 '2005 6
B__3__(270) = 5 '2005 7
B__3__(271) = 20 '2005 8
B__3__(272) = 5 '2005 9
B__3__(273) = 21 '2005 10
B__3__(274) = 5 '2005 11
B__3__(275) = 21 '2005 12
B__3__(276) = 7 '2005 13
B__3__(277) = 23 '2005 14
B__3__(278) = 7 '2005 15
B__3__(279) = 23 '2005 16
B__3__(280) = 7 '2005 17
B__3__(281) = 23 '2005 18
B__3__(282) = 8 '2005 19
B__3__(283) = 23 '2005 20
B__3__(284) = 7 '2005 21
B__3__(285) = 22 '2005 22
B__3__(286) = 7 '2005 23
B__3__(287) = 22 '2005 24
B__3__(288) = 5 '2006 1
B__3__(289) = 20 '2006 2
B__3__(290) = 4 '2006 3
B__3__(291) = 19 '2006 4
B__3__(292) = 6 '2006 5
B__3__(293) = 21 '2006 6
B__3__(294) = 5 '2006 7
B__3__(295) = 20 '2006 8
B__3__(296) = 5 '2006 9
B__3__(297) = 21 '2006 10
B__3__(298) = 6 '2006 11
B__3__(299) = 21 '2006 12
B__3__(300) = 7 '2006 13
B__3__(301) = 23 '2006 14
B__3__(302) = 7 '2006 15
B__3__(303) = 23 '2006 16
B__3__(304) = 8 '2006 17
B__3__(305) = 23 '2006 18
B__3__(306) = 8 '2006 19
B__3__(307) = 23 '2006 20
B__3__(308) = 7 '2006 21
B__3__(309) = 22 '2006 22
B__3__(310) = 7 '2006 23
B__3__(311) = 22 '2006 24
B__3__(312) = 6 '2007 1
B__3__(313) = 20 '2007 2
B__3__(314) = 4 '2007 3
B__3__(315) = 19 '2007 4
B__3__(316) = 6 '2007 5
B__3__(317) = 21 '2007 6
B__3__(318) = 5 '2007 7
B__3__(319) = 20 '2007 8
B__3__(320) = 6 '2007 9
B__3__(321) = 21 '2007 10
B__3__(322) = 6 '2007 11
B__3__(323) = 22 '2007 12
B__3__(324) = 7 '2007 13
B__3__(325) = 23 '2007 14
B__3__(326) = 8 '2007 15
B__3__(327) = 23 '2007 16
B__3__(328) = 8 '2007 17
B__3__(329) = 23 '2007 18
B__3__(330) = 8 '2007 19
B__3__(331) = 23 '2007 20
B__3__(332) = 8 '2007 21
B__3__(333) = 23 '2007 22
B__3__(334) = 7 '2007 23
B__3__(335) = 22 '2007 24
B__3__(336) = 6 '2008 1
B__3__(337) = 21 '2008 2
B__3__(338) = 4 '2008 3
B__3__(339) = 19 '2008 4
B__3__(340) = 5 '2008 5
B__3__(341) = 20 '2008 6
B__3__(342) = 4 '2008 7
B__3__(343) = 20 '2008 8
B__3__(344) = 5 '2008 9
B__3__(345) = 21 '2008 10
B__3__(346) = 5 '2008 11
B__3__(347) = 21 '2008 12
B__3__(348) = 7 '2008 13
B__3__(349) = 22 '2008 14
B__3__(350) = 7 '2008 15
B__3__(351) = 23 '2008 16
B__3__(352) = 7 '2008 17
B__3__(353) = 22 '2008 18
B__3__(354) = 8 '2008 19
B__3__(355) = 23 '2008 20
B__3__(356) = 7 '2008 21
B__3__(357) = 22 '2008 22
B__3__(358) = 7 '2008 23
B__3__(359) = 21 '2008 24
B__3__(360) = 5 '2009 1
B__3__(361) = 20 '2009 2
B__3__(362) = 4 '2009 3
B__3__(363) = 18 '2009 4
B__3__(364) = 5 '2009 5
B__3__(365) = 20 '2009 6
B__3__(366) = 4 '2009 7
B__3__(367) = 20 '2009 8
B__3__(368) = 5 '2009 9
B__3__(369) = 21 '2009 10
B__3__(370) = 5 '2009 11
B__3__(371) = 21 '2009 12
B__3__(372) = 7 '2009 13
B__3__(373) = 23 '2009 14
B__3__(374) = 7 '2009 15
B__3__(375) = 23 '2009 16
B__3__(376) = 7 '2009 17
B__3__(377) = 23 '2009 18
B__3__(378) = 8 '2009 19
B__3__(379) = 23 '2009 20
B__3__(380) = 7 '2009 21
B__3__(381) = 22 '2009 22
B__3__(382) = 7 '2009 23
B__3__(383) = 22 '2009 24
B__3__(384) = 5 '2010 1
B__3__(385) = 20 '2010 2
B__3__(386) = 4 '2010 3
B__3__(387) = 18 '2010 4
B__3__(388) = 5 '2010 5
B__3__(389) = 20 '2010 6
B__3__(390) = 4 '2010 7
B__3__(391) = 20 '2010 8
B__3__(392) = 5 '2010 9
B__3__(393) = 21 '2010 10
B__3__(394) = 5 '2010 11
B__3__(395) = 21 '2010 12
B__3__(396) = 7 '2010 13
B__3__(397) = 23 '2010 14
B__3__(398) = 7 '2010 15
B__3__(399) = 23 '2010 16
B__3__(400) = 7 '2010 17
B__3__(401) = 23 '2010 18
B__3__(402) = 8 '2010 19
B__3__(403) = 23 '2010 20
B__3__(404) = 7 '2010 21
B__3__(405) = 22 '2010 22
B__3__(406) = 7 '2010 23
B__3__(407) = 22 '2010 24
' t-birdlo:19950401 - Add for Kumi Speed Up Module
B__4__$(1) = "初一"
B__4__$(2) = "初二"
B__4__$(3) = "初三"
B__4__$(4) = "初四"
B__4__$(5) = "初五"
B__4__$(6) = "初六"
B__4__$(7) = "初七"
B__4__$(8) = "初八"
B__4__$(9) = "初九"
B__4__$(10) = "初十"
B__4__$(11) = "十一"
B__4__$(12) = "十二"
B__4__$(13) = "十三"
B__4__$(14) = "十四"
B__4__$(15) = "十五"
B__4__$(16) = "十六"
B__4__$(17) = "十七"
B__4__$(18) = "十八"
B__4__$(19) = "十九"
B__4__$(20) = "二十"
B__4__$(21) = "卄一"
B__4__$(22) = "卄二"
B__4__$(23) = "卄三"
B__4__$(24) = "卄四"
B__4__$(25) = "卄五"
B__4__$(26) = "卄六"
B__4__$(27) = "卄七"
B__4__$(28) = "卄八"
B__4__$(29) = "卄九"
B__4__$(30) = "三十"
B__5__$(1) = "閏一月"
B__5__$(2) = "閏二月"
B__5__$(3) = "閏三月"
B__5__$(4) = "閏四月"
B__5__$(5) = "閏五月"
B__5__$(6) = "閏六月"
B__5__$(7) = "閏七月"
B__5__$(8) = "閏八月"
B__5__$(9) = "閏九月"
B__5__$(10) = "閏十月"
B__5__$(11) = "閏十一"
B__5__$(12) = "閏十二"
B__6__$(1) = "正月"
For i = 2 To 12: B__6__$(i) = rgstrMonthName(i - 1): Next i
B__7__$(0) = "小寒"
B__7__$(1) = "大寒"
B__7__$(2) = "立春"
B__7__$(3) = "雨水"
B__7__$(4) = "驚蟄"
B__7__$(5) = "春分"
B__7__$(6) = "清明"
B__7__$(7) = "穀雨"
B__7__$(8) = "立夏"
B__7__$(9) = "小滿"
B__7__$(10) = "芒種"
B__7__$(11) = "夏至"
B__7__$(12) = "小暑"
B__7__$(13) = "大暑"
B__7__$(14) = "立秋"
B__7__$(15) = "處暑"
B__7__$(16) = "白露"
B__7__$(17) = "秋分"
B__7__$(18) = "寒露"
B__7__$(19) = "霜降"
B__7__$(20) = "立冬"
B__7__$(21) = "小雪"
B__7__$(22) = "大雪"
B__7__$(23) = "冬至"
End Sub

--------------------------------------------------------------------------------

Private Sub GetLunarDays(iYear, iMonth)
Dim StartOf1994Month
Dim StartOf1994Day
Dim iDS1994
Dim iDSAsk
Dim iFrom1994
Dim iTotalSim
Dim iSMName
Dim iSimMonth
Dim fDBMonth
Dim k
Dim iStartSim
Dim i
StartOf1994Month = 11
StartOf1994Day = 20
iDS1994 = DateSerial(1994, 1, 1)
iDSAsk = DateSerial(iYear, iMonth, 1)
iFrom1994 = iDSAsk - iDS1994
iTotalSim = 0
iSMName = StartOf1994Month
While iTotalSim < (iFrom1994 - StartOf1994Day)
If B__2__(iSimMonth) > 30 Then
fDBMonth = 1
iTotalSim = iTotalSim + B__2__(iSimMonth) - 10 'B_2_(0)=30
Else
fDBMonth = 0
iTotalSim = iTotalSim + B__2__(iSimMonth)
iSMName = iSMName + 1
If iSMName > 12 Then iSMName = 1
End If
iSimMonth = iSimMonth + 1
Wend
If B__2__(iSimMonth) > 30 Then
k = B__2__(iSimMonth) - 10
iSMName = iSMName - 1
Else
k = B__2__(iSimMonth)
End If
iStartSim = StartOf1994Day + (iFrom1994 - iTotalSim)
If iStartSim > k Then
iStartSim = iStartSim Mod k
iSimMonth = iSimMonth + 1
If B__2__(iSimMonth) > 30 Then
fDBMonth = 1
k = B__2__(iSimMonth) - 10
Else
fDBMonth = 0
k = B__2__(iSimMonth)
If B__2__(iSimMonth) < 31 Then iSMName = iSMName + 1
If iSMName > 12 Then iSMName = 1
End If
End If
lunYeay = iYear
For i = 0 To 30
If iStartSim = 1 Then
If fDBMonth = 1 Then
IntToSimDay__$(i, 2) = B__5__$(iSMName)
IntToSimDay__$(i, 3) = B__4__$(iStartSim)
IntToSimDay__$(i, 4) = GetLunarSections(i, iYear, iMonth)
IntToSimDay__$(i, 0) = lunCalYear(i, iYear, iMonth)
IntToSimDay__$(i, 1) = TwelveAnimals(i, iYear, iMonth)
 
Else
IntToSimDay__$(i, 2) = B__6__$(iSMName)
IntToSimDay__$(i, 3) = B__4__$(iStartSim)
IntToSimDay__$(i, 4) = GetLunarSections(i, iYear, iMonth)
IntToSimDay__$(i, 0) = lunCalYear(i, iYear, iMonth)
IntToSimDay__$(i, 1) = TwelveAnimals(i, iYear, iMonth)
End If
iStartSim = iStartSim + 1
Else
If iStartSim > k Then
iSimMonth = iSimMonth + 1
iStartSim = 1
i = i - 1
If B__2__(iSimMonth) > 30 Then
k = B__2__(iSimMonth) - 10
fDBMonth = 1
Else
k = B__2__(iSimMonth)
fDBMonth = 0
iSMName = iSMName + 1
If iSMName > 12 Then iSMName = 1
End If
If iSMName = 1 Then
lunYeay = iYear + 1
Else
lunYeay = iYear
End If
Else
IntToSimDay__$(i, 2) = B__6__$(iSMName)
IntToSimDay__$(i, 3) = B__4__$(iStartSim)
IntToSimDay__$(i, 4) = GetLunarSections(i, iYear, iMonth)
IntToSimDay__$(i, 0) = lunCalYear(i, iYear, iMonth)
IntToSimDay__$(i, 1) = TwelveAnimals(i, iYear, iMonth)
iStartSim = iStartSim + 1
End If
End If
Next
' GetLunarSections iYear, iMonth
End Sub

--------------------------------------------------------------------------------

Function GetLunarSections(i, iYear, iMonth)
Dim iSimSection
Dim j
iSimSection = (iYear - 1994) * 24 + (iMonth - 1) * 2
j = B__3__(iSimSection)
If i = j Then
GetLunarSections = B__7__$((iMonth - 1) * 2)
Exit Function
Else
GetLunarSections = ""
End If
j = B__3__(iSimSection + 1)
If j = i Then
GetLunarSections = B__7__$((iMonth - 1) * 2 + 1)
Exit Function
Else
GetLunarSections = ""
End If
End Function

--------------------------------------------------------------------------------

Function lunCalYear(i, iYear, iMonth) 'lunarCalendarYear(天干地支年)
Dim Gan()
Dim Zhi()
Gan = Array("甲", "乙", "丙", "丁", "戊", "己", "庚", "辛", "壬", "癸")
Zhi = Array("子", "丑", "寅", "卯", "辰", "巳", "午", "未", "申", "酉", "戌", "亥")
Y = iYear
If iMonth = 1 Or iMonth = 2 Then
If IntToSimDay__$(i, 2) = "十一月" Or IntToSimDay__$(i, 2) = "十二月" Then
Y = Y - 1
End If
End If
While (Y - 1904) >= 10 '天干
Y = Y - 10
Wend
rGan = Gan(Y - 1904)
 
Y = iYear
If iMonth = 1 Or iMonth = 2 Then
If IntToSimDay__$(i, 2) = "十一月" Or IntToSimDay__$(i, 2) = "十二月" Then
Y = Y - 1
End If
End If
While (Y - 1900) >= 12 '地支
Y = Y - 12
Wend
 
rZhi = Zhi(Y - 1900)
lunCalYear = rGan & rZhi & "年"
End Function

--------------------------------------------------------------------------------

Function TwelveAnimals(i, iYear, iMonth) '十二生肖年
Dim Ani()
Ani = Array("鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊", "猴", "雞", "狗", "豬")
Y = iYear
If iMonth = 1 Or iMonth = 2 Then
If IntToSimDay__$(i, 2) = "十一月" Or IntToSimDay__$(i, 2) = "十二月" Then
Y = Y - 1
End If
End If
While (Y - 1900) >= 12
Y = Y - 12
Wend
TwelveAnimals = "[" & Ani(Y - 1900) & "]"
End Function
 
 


Private Sub Calendar1_Click()
MsgBox ChineCalender(Calendar1.Value)
End Sub

--------------------------------------------------------------------------------

Private Sub UserForm_Initialize()
Calendar1 = Now()
End
 

說明:
Function ChineCalender(iDate) 函數的運用說明如下

在工作表中直接使用本函數:例如在 A2儲存格中輸入 2004/8/18 轉換農曆年格式可直接在 B2儲存格入公式 =ChineCalender(A2)

則程式碼回傳回 甲申年[猴]七月初三

在程式中呼叫自訂函數:如範例中的 MsgBox ChineCalender(Calendar1.Value)

 

ChineCalender 函數包含了 天干地支年、十二生肖年、農曆月、農曆日、24節氣等五個參數,這五個參數可以自由的搭配使用

例如要取得的農曆年格式為 民國九十三年七月初三 則參數組合如下

Intyear = "民國" & Application.WorksheetFunction.Text(iYear - 1911, "[DBNum1];@") & "年"
ChineCalender = Intyear & IntToSimDay__$(iDay - 1, 2) _
& IntToSimDay__$(iDay - 1, 3) & IntToSimDay__$(iDay, 4)

例如要取得的農曆年格式為 甲申年七月初三 則參數組合如下

ChineCalender = IntToSimDay__$(iDay - 1, 0) & IntToSimDay__$(iDay - 1, 2) _
& IntToSimDay__$(iDay - 1, 3) & IntToSimDay__$(iDay, 4)
 

例如要取得的農曆年格式為 七月初三 則參數組合如下

ChineCalender = IntToSimDay__$(iDay - 1, 2) & IntToSimDay__$(iDay - 1, 3)
psac 目前離線  
送花文章: 3, 收花文章: 1625 篇, 收花: 3194 次
舊 2006-09-21, 08:11 AM   #48 (permalink)
榮譽會員
 
psac 的頭像
榮譽勳章
UID - 3662
在線等級: 級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時
註冊日期: 2002-12-07
住址: 木柵市立動物園
文章: 17381
現金: 5253 金幣
資產: 33853 金幣
預設

簡單實用的繁體與簡體互相轉換的代碼作
Private Declare Function LCMapString Lib "kernel32" Alias _
"LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As _
Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, _
ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" _
(ByVal lpString As String) As Long


Dim STf As String, 繁體字元串
Dim STj As String, 簡體字元串
Dim STlen As Long, 待轉換字串長度

Sub Test1() 'Gb碼簡體轉繁體
STj = "中華人民共和國"
STlen = lstrlen(STj)
STf = Space(STlen)
LCMapString &H804, &H4000000, STj, STlen, STf, STlen
Debug.Print STf
End Sub

Sub Test2() 'Gb碼繁體轉簡體
STf = "中華人民共和國"
STlen = lstrlen(STf)
STj = Space(STlen)
LCMapString &H804, &H2000000, STf, STlen, STj, STlen
Debug.Print STj
End Sub

Sub Test3() '國標繁體轉港台繁體
Te = "君不見黃河之水天上來,奔流到海不復回。"
ST = StrConv(Te, vbFromUnicode)
ST = StrConv(ST, vbUnicode, &H804)
ST = StrConv(ST, vbFromUnicode, &H404)
Te = StrConv(ST, vbUnicode)
Debug.Print Te
End Sub

Sub Test4() '港台繁體轉國標繁體
Te = "ǎ獨猠ㄓ瑈確"
ST = StrConv(Te, vbFromUnicode)
ST = StrConv(ST, vbUnicode, &H404)
ST = StrConv(ST, vbFromUnicode, &H804)
Te = StrConv(ST, vbUnicode)
Debug.Print Te
End Sub
psac 目前離線  
送花文章: 3, 收花文章: 1625 篇, 收花: 3194 次
舊 2006-09-21, 08:35 AM   #49 (permalink)
榮譽會員
 
psac 的頭像
榮譽勳章
UID - 3662
在線等級: 級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時
註冊日期: 2002-12-07
住址: 木柵市立動物園
文章: 17381
現金: 5253 金幣
資產: 33853 金幣
預設

EXCEL技巧53例

  1、如何在已有的單元格中批量加入一段固定字元?

  例如:在單位的人事資料,在excel中輸入後,由於上級要求在原來的職稱證書的號碼全部再加兩位,即要在每個人的證書號碼前再添上兩位數13,如果一個一個改的話實在太麻煩了,那麼我們可以用下面的辦法,省時又省力:

   1)假設證書號在A列,在A列後點擊滑鼠右鍵,插入一列,為B列 ;

   2)在B2單元格寫入: ="13" & A2 後Enter鍵;

   3)看到結果為 13xxxxxxxxxxxxx 了嗎?滑鼠放到B2位置,單元格的下方不是有一個小方點嗎,按著滑鼠左鍵往下拖動直到結束。當你放開滑鼠左鍵時就全部都改好了。 若是在原證書號後面加13 則在B2單元格中寫入:=A2 & 「13」 後Enter鍵。

   2、如何設置文件下拉視窗的最下面的最近執行的文件名個數?

   打開「工具」,選「選項」,再選「一般」,在「最近使用的文件清單」下面的文件個數輸入框中改變文件數目即可。若不在表菜單中顯示最近使用的文件名,則將「最近使用的文件清單」前的復選框去掉即可。

   3、在EXCEL中輸入如「1-1」、「1-2」之類的格式後它即變成1月1日,1月2日等日期形式,怎麼辦?

  這是由於EXCEL自動識別為日期格式所造成,你只要點擊主表菜單的「格式」表菜單,選「單元格」,再在「數位」表菜單標籤下把該單元格的格式設成文本格式就行了。

   4、在EXCEL中如何使它像WORD一樣的自動定時儲存文件?

   點擊「工具」表菜單「自動儲存」項,設置自動儲存資料夾的間隔時間。如果在「工具」表菜單下沒有「自動儲存」表菜單項,那麼執行「工具」表菜單下「載入ā巨集...」選上「自動儲存」,「確定」。然後進行設置即可。

   5、用Excel做多頁的表格時,怎樣像Word的表格那樣做一個標題,即每頁的第一行(或幾行)是一樣的。但是不是用頁眉來完成?

   在EXCEL的文件表菜單-網頁面設置-工作表-印表標題;可進行頂端或左端標題設置,通過按下折疊交談視窗按鍵後,用滑鼠劃定範圍即 可。這樣Excel就會自動在各頁上加上你劃定的部分作為表頭。

   6、在Excel中如何設置加權平均?

   加權平均在財務核算和統計工作中經常用到,並不是一項很複雜的計算,關鍵是要理解加權平均值其實就是總量值(如金額)除以總數量得出的單位平均值,而不是簡單的將各個單位值(如單價)平均後得到的那個單位值。在Excel中可設置公式解決(其實就是一個除法算式),分母是各個量值之和,分子是相應的各個數量之和,它的結果就是這些量值的加權平均值。

   7、如果在一個Excel文件中含有多個工作表,如何將多個工作表一次設置成同樣的頁眉和頁腳?如何才能一次印表多個工作表?

   把滑鼠移到工作表的名稱處(若你沒有特別設置的話,Excel自動設置的名稱是「sheet1、sheet2、sheet3.......」),然後點右鍵,在彈出的表菜單中選擇「選擇全部工作表」的表菜單項,這時你的所有操作都是針對全部工作表了,不管是設置頁眉和頁腳還是印表你工作表。

   8、EXCEL中有序號一欄,由於對表格進行調整,序號全亂了,可要是手動一個一個改序號實在太慢太麻煩,用什麼方法可以快速解決?

   如果序號是不應隨著表格其他內容的調整而發生變化的話,那麼在製作EXCEL表格時就應將序號這一字段與其他字段分開,如在「總分」與「排名」之間空開一列,為了不影響顯示美觀,可將這一空的列字段設為隱藏,這樣在調整表格(資料清單)的內容時就不會影響序號了。

   9、用Excel2000做成的工資表,只有第一個人有工資條的條頭(如編號、姓名、崗位工資.......),想輸出成工資條的形式。怎麼做?

   這個問題應該這樣解決:先複製一張工資表,然後在網頁面設置中選中工作表選項,設置印表工作表行標題,選好工資條的條頭,然後在每一個人之間插入行分頁符,再把頁長設置成工資條的高度即可。 使用自定義方式重裝了一遍中文office97,Excel的印表紙選項中只有A4一種,怎麼辦? 隨便安裝一個印表機驅動程式就可以了。

   10、在Excel中小數點無法輸入,按小數點,顯示的卻是逗號,無論怎樣設置選項都無濟於事,該怎麼辦?

   這是一個比較特殊的問題,我曾為此花了十幾個小時的時間,但說白了很簡單。在Windows的控制台中,點擊「區域設置」圖示,在彈出的「區域設置內容」對話面板上在「區域設置」裡選擇「中文(中國)」,在「區域設置內容」對話面板上在「數位」內容裡把小數點改為「.」(未改前是「,」),按「確定」按鍵結束。這樣再打開Excel就一切都正常了。

   11、如何快速選取特定區域?

   使用F5鍵可以快速選取特定區域。例如,要選取A2:A1000,最簡便的方法是按F5鍵,出現「定位」視窗,在「引用」欄內輸入需選取的區域A2:A1000。

   12、如何快速返回選中區域?

   按Ctr+BacksPae(即退格鍵)。

   13、如何快速定位到單元格?

  方法一:按F5鍵,出現「定位」交談視窗,在引用欄中輸入欲跳到的單元格位址,單市「確定」按鍵即可。

   方法二:單擊編輯欄左側單元格位址框,輸入單元格位址即可。

   14、「Ctrl+*」的特殊功用

   一般來說,當處理一個工作表中有很多資料的表格時,通過選定表格中某個單元格,然後按下 Ctrl+* 鍵可選定整個表格。Ctfl+* 選定的區域是這樣決定的:根據選定單元格向四周輻射所涉及到的有資料單元格的最大區域。

  15.如何快速選取工作表中所有包含公式的單元格?

   有時,需要對工作表中所有包含公式的單元格加以保護,或填入與其他單元格不同的顏色,以提醒用戶注意不能在有此顏色的區域內輸入資料。以下方法可以幫助快速選取所有包含公式的單元格:≡瘛氨嗉保堋岸ㄎ弧保鰲岸ㄎ惶跫卑磁淞岸ㄎ惶跫倍曰翱蛑醒≡瘛骯健畢睿礎叭范ā卑磁純傘?

   16、如何在不同單元格中快速輸入同一數內容?

  選定單元格區域,輸入值,然後按 Ctrl+ Ener鍵,即可實現在選定的單元格區域中一次性輸入相同的值。

   17、只記得函數的名稱,但記不清函數的參數了,怎麼辦?

   如果你知道所要使用函數的名字,但又記不清它的所有參數格式,那麼可以用鍵盤快捷鍵把參數貼上去到編輯欄內。

   具體方法是:在編輯欄中輸入一個等號其後接函數名,然後按 Ctr+ A鍵,Excel則自動進入「函數指南——步驟 2之2」。當使用易於記憶的名字且具有很長一串參數的函數時,上述方法顯得特別有用。

   18、如何把選定的一個或多個單元格拖放至新的位置?

   按住Shift鍵可以快速修改單元格內容的次序。

   具體方法是: 選定單元格,按下Shift鍵,移動滑鼠指標至單元格邊緣,直至出現拖放指標箭頭(空心箭頭),然後按住滑鼠左鍵進行拖放操作。上下拖拉時滑鼠在單元格間邊界處會變為一個水平「工」狀標誌,左右拖拉時會變為垂直「工」狀標誌,釋放滑鼠按鍵完成操作後,選定的一個或多個單元格就被拖放至新的位置。

   19、如何讓螢幕上的工作空間變大?

   可以將不用的工具欄隱藏,也可以極大化Excel視窗,或者在「視圖」表菜單中選擇「全屏顯示」命令。

   20、如何使用快顯表菜單?

   快顯表菜單中包括了一些操作中最常用的命令,利用它們可以大大提高操作效率。首先選定一個區域,然後單擊滑鼠右健即可調出快顯表菜單,根據操作需要選擇不同命令。

  21、如何使用快顯表菜單?

   快顯表菜單中包括了一些操作中最常用的命令,利用它們可以大大提高操作效率。首先選定一個區域,然後單擊滑鼠右健即可調出快顯表菜單,根據操作需要選擇不同命令。

  22、如何防止Excel自動打開太多文件?

   當Excel啟動時,它會自動打開Xlstart目錄下的所有文件。當該目錄下的文件過多時,Excel載入太多文件不但費時而且還有可能出錯。解決方法是將不該位於Xlstart目錄下的文件移走。另外,還要防止EXcel打開替補啟動目錄下的文件:選擇「工具」\「選項」\「普通」,將「替補啟動目錄」一欄中的所有內容刪除。

  23、如何去掉網格線?

   1)除去編輯視窗中的表格線

   單擊「工具」表菜單中的「選項」,再選中「視圖」,找到「網格線」,使之失效;

   2)除去印表時的未定義表格線

   有時會出現這樣的情況:你在編輯時未定義的表格線(在編輯窗中看到的也是淡灰色表格線),一般情況下在印表時是不會印表出來的,可有時卻偏偏不聽使喚給印表出來了,特別是一些所謂的「電腦」VCD中編輯的Excel表格更是這樣。要除去這些表格線,只要在單擊「文件」、「網頁面設置」、「工作表」表菜單,點擊一下「網格線」左邊的選擇框,取消選擇「網格線」就行了。

  24、如何快速格式化報表?

   為了製作出美觀的報表,需要對報表進行格式化。有快捷方法,即自動套用Excel預設的表格樣式模板。方法是: 選定操作區域,選取「格式」表菜單中的「自動套用格式」命令,在格式列表框中選取一款你滿意的格式樣式模板,按「確定」按鍵即可。要注意的是,格式列表框下面有包括「數位」、「邊框線」、「字體」等6個「應用格式種類」選項,若某項前面的「x」不出現,則在套用表格樣式模板時就不會用該項。

  25、如何快速地複製單元格的格式?

   要將某一格式化操作複製到另一部分資料上,可使用「格式刷」按鍵。選擇含有所需源格式的單元格,單擊工具條上的「格式刷」按鍵,此時滑鼠變成了刷子形狀,然後單擊要格式化的單元格即可將格式拷貝過去。

  26、如何為表格新增斜線?

  一般我們習慣表格上有斜線,而工作表本身並沒有提供該功能。其實,我們可以使用繪圖工具來實現: 單擊「繪圖」按鍵,選取「直線」,滑鼠變成十字型.將其移至要新增斜線的開始位置,按住滑鼠左鍵拖動至停止位置,釋放滑鼠,斜線就畫出來了。另外,使用「文字框」按鍵可以方便地在斜線上下方新增文字,但文字周圍有邊框,要想取消它,可選中文字框,調出快顯表菜單,選擇「對像格式」\「圖案」,選擇「無邊框」項即可。

  27、如何快速地將數位作為文本輸入?

   在輸入數位前加一個單引號「」』,可以強制地將數位作為文本輸入。

  28、如何定義自己的函數?

  用戶在Excel中可以自定義函數。切換至 Visual Basic模塊,或插入一頁新的模塊表(Module),在出現的空白程式視窗中鍵入自定義函數VBA程式,按Enter確認後完成編 寫工作,Excel將自動檢查其正確性。此後,在同一工作薄內,你就可以與使用Exed內部函數一樣在工作表中使用自定義函數,如:

  Function Zm(a)

  If a< 60 Then im=『不及格」

   Else Zm=「及格」

  End If

  End Function

  29、如何在一個與自定義函數駐留工作簿不同的工作簿內的工作表公式中呼叫自定義 函數?

   可在包含自定義函數的工作薄打開的前提下,採用鏈接的方法(也就是在呼叫函數時加上該函數所在的工作簿名)。假設上例中的自定義函數Zm所在工作薄為MYUDF.XLS,現要在另一不同工作簿中的工作表公式中呼叫Zm函數,應首先確保MYUDF.XLS被打開,然後使用下述鏈接的方法: =MYUDF.XLS! ZM(b2)

  30、如何快速輸入資料序列?

   如果你需要輸入諸如表格中的專案序號、日期序列等一些特殊的資料系列,千萬別逐條輸入,為何不讓Excel自動填充呢?在第一個單元格內輸入起始資料,在下一個單元格內輸入第二個資料,選定這兩個單元格,將游標指向單元格右下方的填充柄,沿著要填充的方向拖動填充柄,拖過的單元格中會自動按Excel內部規定的序列進行填充。如果能將自己經常要用到的某些有規律的資料(如辦公室人員名單),定義成序列,以備日後自動填充,豈不一勞永逸!選擇「工具」表菜單中的「選項」命令,再選擇「自定義序列」標籤, 在輸入框中輸入新序列,注意在新序列各項2間要輸入半角符號的逗號加以分隔(例如:張三,李四,王二……),單擊「增加」按鍵將輸入的序列儲存起來。

  31、使用滑鼠右鍵拖動單元格填充柄

   上例中,介紹了使用滑鼠左鍵拖動單元格填充柄自動填充資料序列的方法。其實,使用滑鼠右鍵拖動單元格填充柄則更具靈活性。在某單元格內輸入資料,按住滑鼠右鍵沿著要填充序列的方向拖動填充柄,將會出現包含下列各項的表菜單:複製單元格、以序列方式填充、以格式填充、以值填充;以天數填充、以工作日該充、以月該充、以年填充;序列……此時,你可以根據需要選擇一種填充方式。

  32.如果你的工作表中已有某個序列項,想把它定義成自動填充序列以備後用,是否需要按照上面介紹的自定義序列的方法重新輸入這些序列項?

   不需要。有快捷方法:選定包含序列項的單元格區域,選擇「工具」\「選項」\「自定義序列」,單擊「引入」按鍵將選定區域的序列項新增至「自定義序列」交談視窗,按「確定」按鍵返回工作表,下次就可以用這個序列項了。

  33、上例中,如果你已擁育的序列項中含有許多重複項,應如何處理使其沒有重複項,以便使用「引入」的方法快速創建所需的自定義序列?

   選定單元格區域,選擇「資料」\「篩選」\「高階篩選」,選定「不選重複的記錄」選項,按「確定」按鍵即可。

  34、如何對工作簿進行安全保護?

   如果你不想別人打開或修改你的工作簿,那麼想法加個密碼吧。打開工作薄,選擇「文件」表菜單中的「另存為」命令,選取「選項」,根據用戶的需要分別輸入「開啟文件口令」或「修改文件D令」,按「確定」退出。

  工作簿(表)被保護之後,還可對工作表中某些單元格區域的重要資料進行保護,起到雙重保護的功能,此時你可以這樣做:首先,選定需保護的單元格區域,選取「格式」表菜單中的「單元格」命令,選取「保護」,從交談視窗中選取「鎖定」,單由「確定」按鍵退出。然後選取「工具」表菜單中的「保護」命令,選取「保護工作表」,根據提示兩次輸入口令後退出。

  注意:不要忘記你設置有「口令」。

  35、如何使單元格中的顏色和底紋不印表出來?

   對那些加了保護的單元格,還可以設置顏色和底紋,以便讓用戶一目瞭然,從顏色上看出那些單元格加了保護不能修改,從而可增加資料輸入時的直觀感覺。但卻帶來了問題,即在黑白印表時如果連顏色和底紋都打出來,表格的可視性就大打折扣。解決辦法是:選擇「文件」\「網頁面設置」\「工作表」,在「印表」欄內選擇「單元格單色印表」選項。之後,印表出來的表格就面目如初了。

  36、工作表保護的口令忘記了怎麼辦?

   如果你想使用一個保護了的工作表,但口令又忘記了,有辦法嗎?有。選定工作表,選擇「編輯」\「複製」、「貼上去」,將其拷貝到一個新的工作薄中(注意:一定要是新工作簿),即可超越工作表保護。當然,提醒你最好不用這種方法盜用他人的工作表。

  37、「$」的功用

   Excel一般使用相對位址來引用單元格的位置,當把一個含有單元格位址的公式拷貝到一個新的位置,公式中的單元格位址會隨著改變。你可以在列號或行號前新增符號 「$」來凍結單元格位址,使之在拷貝時保持固定不變。

  38、如何用漢字名稱代替單元格位址?

   如果你不想使用單元格位址,可以將其定義成一個名字。

   定義名字的方法有兩種:一種是選定單元格區域後在「名字框」直接輸入名字,另一種是選定想要命名的單元格區域,再選擇「插入」\「名字」\「定義」,在「當前工作簿中名字」交談視窗內鍵人名字即可。使用名字的公式比使用單元格位址引用的公式更易於記憶和閱讀,比如公式「=SUM(實發工資)」顯然比用單元格位址簡單直觀,而且不易出錯。

  39、如何在公式中快速輸入不連續的單元格位址?

   在SUM函數中輸入比較長的單元格區域字元串很麻煩,尤其是當區域為許多不連續單元格區域組成時。這時可按住Ctrl鍵,進行不連續區域的選取。區域選定後選擇「插入」\「名字」\「定義」,將此區域命名,如Group1,然後在公式中使用這個區域名,如「=SUM(Group1)」。

  40、如何定義局部名字?

   在預定情況下,工作薄中的所有名字都是全局的。其實,可以定義局部名字,使之只對某個工作表有效,方法是將名字命名為「工作表名!名字」的形式即可。

  41、如何命名常數?

   有時,為常數指定一個名字可以節省在整個工作簿中修改替換此常數的時間。例如,在某個工作表中經常需用利率4.9%來計算利息,可以選擇「插入」\「名字」\「定 義」,在「當前工作薄的名字」框內輸入「利率」,在「引用位置」框中輸入「= 0.04.9」,按「確定」按鍵。

  42、工作表名稱中能含有空格嗎?

   能。例如,你可以將某工作表命名為「Zhu Meng」。有一點結注意的是,當你在其他工作表中呼叫該工作表中的資料時,不能使用類似「= ZhU Meng!A2」的公式,否則 Excel將提示錯誤訊息「找不到文件Meng」。解決的方法是,將呼叫公式改為「='Zhu Mg'! A2」就行了。當然,輸入公式時,你最好養成這樣的習慣,即在輸入「=」號以後,用滑鼠單由 Zhu Meng工作表,再輸入餘下的內容。

  43、給工作表命名應注意的問題

   有時為了直觀,往往要給工作表重命名(Excel預定的荼表名是sheet1、sheet2.....),在重命名時應注意最好不要用已存在的函數名來作荼表名,否則在下述情況下將產徵收豈義。我們知道,在工作薄中複製工作表的方法是,按住Ctrl健並沿著標籤行拖動選中的工作表到達新的位置,複製成的工作表以「源工作表的名字+(2)」形式命名。例如,源表為ZM,則其「複製克隆」表為ZM(2)。在公式中Excel會把ZM(2)作為函數來處理,從而出錯。因而應給ZM(2)工作表重起個名字。

  44、如何拆分或取消拆分視窗?

   當我們給一個工作表輸入資料時,在向下滾動過程中,尤其是當標題行消失後,有時會記錯各列標題的相對位置。這時可以將視窗拆分為幾部分,然後將標題部分保留在螢幕上不動,只滾動資料部分。其方法是在主表菜單上單擊「視窗」\「拆分視窗」。取消拆分視窗時除了使用「視窗」\「撒消拆分視窗」命令外,有捷徑:將滑鼠指標置於水平拆分或垂直拆分線或雙拆分錢交點上,雙擊滑鼠即可取消已拆分的視窗。

  45、如何給工作簿擴展?

   選取「工具」\「選項」命令,選擇「一般」項,在「新工作薄內的工作表數」對話欄用上下箭頭改變打開新工作表數。一個工作薄最多可以有255張工作表,系統預定值為6。

  46、如何減少重複勞動?

   我們在實際應用Excel時,經常遇到有些操作重複應用(如定義上下標等)。為了減少重複勞動,我們可以把一些常用到的操作定義成ā巨集。其方法是:選取「工具」表菜單中的「ā巨集」命令,執行「記錄新ā巨集」,記錄好後按「停止」按鍵即可。也可以用VBA編程定義ā巨集。

  47、如何快速地批量修改資料?

   假如有一份 Excel工作簿,裡面有所有職工工資表。現在想將所有職工的補貼增加50(元),當然你可以用公式進行計算,但除此之外還有更簡單的批量修改的方法,即使用「選擇性貼上去」功能: 首先在某個空白單元格中輸入50,選定此單元格,選擇「編輯」\「複製」。選取想修改的單元格區域,例如從E2到E150。然後選擇「編輯」\「選擇性貼上去」,在「選擇性貼上去」交談視窗「運算」欄中選中「加」運算,按「確定」健即可。最後,要刪除開始時在某個空白單元格中輸入的50。

  48、如何快速刪除特定的資料?

   假如有一份Excel工作薄,其中有大量的產品單價、數量和金額。如果想將所有數量為0的行刪除,首先選定區域(包括標題行),然後選擇「資料」\「篩選」\「自動篩選」。在「數量」列下拉列表中選擇「0」,那麼將列出所有數量為0的行。此時在所有行都被選中的情況下,選擇「編輯」\「刪除行」,然後按「確定」即可刪除所有數量為0的行。最後,取消自動篩選。

  49、如何快速刪除工作表中的空行?

   以下幾種方法可以快速刪除空行:

   方法一:如果行的順序無關緊要,則可以根據某一列排序,然後可以方便地刪掉空行。

   方法二:如果行的順序不可改變,你可以先選擇「插入」\「列」,插入新的一列入在A列中順序填入整數。然後根據其他任何一列將表中的行排序,使所有空行都集中到表的底部,刪去所有空行。最後以A列重新排序,再刪去A列,恢復工作表各行原來的順序。

   方法三:使用上例「如何快速刪除特定的資料」的方法,只不過在所有列的下拉列表中都選擇「空白」。

  50、如何使用數組公式?

   Excel中數組公式非常有用,它可建立產生多值或對一組值而不是單個值進行操作的公式。要輸入數組公式,首先必須選擇用來存放結果的單元格區域,在編輯欄輸入公式,然後按ctrl+Shift+Enter組合鍵鎖定數組公式,Excel將在公式兩邊自動加上括號「{}」。不要自己鍵入花括號,否則,Excel認為輸入的是一個正文標籤。要編輯或清除數組公式.需選擇數組區域並且啟動編輯欄,公式兩邊的括號將消失,然後編輯或清除公式,最後按Ctrl+shift+Enter鍵。

  51、如何不使顯示或印表出來的表格中包含有0值?

   通常情況下,我們不希望顯示或印表出來的表格中包含有0值,而是將其內容置為空。例如,圖1合計列中如果使用「=b2+c2+d2」公式,將有可能出現0值的情況,如何讓0值不顯示? 方法一;使用加上If函數判斷值是否為0的公式,即: =if(b2+c2+d2=0,「」, b2+c2+d2) 方法二:選擇「工具」\「選項」\「視窗」,在「視窗選項」中去掉「零值」選項。 方法三:使用自定義格式。 選中 E2:E5區域,選擇「格式」\「單元格」\「數位」,從「分類」列表框中選擇「自定義」,在「格式」框中輸入「G/通用格式;G/通用格式;;」,按「確定」按鍵即可。

  52、在Excel中用Average函數計算單元格的平均值的,值為0的單元格也包含在內。有沒有辦法在計算平均值時排除值為0的單元格?

   方法一:如果單元格中的值為0,可用上例「0值不顯示的方法」將其內容置為空,此時空單元格處理成文本,這樣就可以直接用Average函數計算了。

   方法二:巧用Countif函數 例如,下面的公式可計算出b2:B10區域中非0單元格的平均值:

  =sum(b2: b10)/countif(b2: b1o,"<>0")

  53、如何在Excel中實現「自動更正」功能?

   Word用戶都知道,利用Word的「自動更正」功能可以實現資料的快速輸入.但在Excel中卻沒有類似「自動更正」功能的表菜單命令。其實,使用VloopuP函數可以巧妙地解決這一問題。 
psac 目前離線  
送花文章: 3, 收花文章: 1625 篇, 收花: 3194 次
舊 2006-09-21, 08:37 AM   #50 (permalink)
榮譽會員
 
psac 的頭像
榮譽勳章
UID - 3662
在線等級: 級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時
註冊日期: 2002-12-07
住址: 木柵市立動物園
文章: 17381
現金: 5253 金幣
資產: 33853 金幣
預設

PDF.軟]巧學巧用Excel 2003公式與函數

http://www.00083.com/Soft/UploadSoftPic/200608/20060812113909636.gif
本書內容翔實,敘述深入淺出,實例豐富,步驟清晰,適合具有初步Excel應用經驗的辦公處理、財務處理及其他相關資料處理人員。
點擊下載



excel幾個很實用的技巧,值得推薦

因為工作的原因需要加強學習excel,學習中瞭解了一些excel的小技巧,不敢獨享,推薦給大家,個人認為都很實用,獻給需要的人吧。

分數的輸入
   ( 1 )如果直接輸入「1/5」,系統會將其變為「1月5日」,解決辦法是:先輸入「0」,然後輸入空格,再輸入分數「1/5」。
  (2) 序列「001」的輸入
  如果直接輸入「001」,系統會自動判斷001為資料1,解決辦法是:首先輸入「'」(西文單引號),然後輸入「001」。
  (3) 日期的輸入 
  如果要輸入「4月5日」,直接輸入「4/5」,再敲Enter鍵就行了。如果要輸入當前日期,按一下「Ctrl+;」鍵
Excel2003全能培訓教程 高清晰PDF電子書

中文版Excel 2003是美國微軟公司發佈的Office 2003辦公套裝軟件家族中優秀的電子錶格製作和資料處理軟件.本書以「實用」為原則.全面講解了中文版Excel2003的基礎知識、基本操作和應用實例。
  全書共分為三篇:
  第一篇為基礎篇,系統講解了中文版Excel 2003的新增功能、安裝過程、工作視窗、工作環境以及如何創建和編輯工作表等知識。
  第二篇為提高篇,詳細介紹了中文版Excel2003的使用方法.如設置工作表格式、使用公式和函數、編輯圖形、應用圖表、管理資料清單和工作表、設置工作簿的印表及共享等知識。
  第三篇為實例篇,精心選取了求職封面、個人簡歷、客戶訊息管理、職工工資表、學產生績統計、學產生績查詢、產品生產記錄表、產品銷售統計表、固定資產報表、資產管理檢討表、股票管理表、股票走勢圖和網路應用等實例,並精闢講解了這些實例的製作過程,讓讀者能對所學內容盡快地掌握,且學以致用。
  本書內容翔實、圖文並茂,採用了由淺入深、實戰演練的方式進行講述,是電腦培訓班和自學者的首選教材,同時對於電腦辦公人員、財務管理人員和其他office用戶都有很高的參考價值


http://www.52zy.com/down/980/


分享】教你在Excel中輕鬆填充序號數列

  使用過Excel的朋友相信都有過這樣的經歷,那就是當我們在一個很長的表格裡填充序號時,用滑鼠拖拽是很難定位的。其實,換一種方法,也許填充長篇序號就會變得輕鬆許多。

  【注】本文所述技巧已於Excel 2003下測試通過

  1.打開需要填充序號列的Excel文件

  2.輸入好序號初始值,並用滑鼠選中

  3.然後,雙擊初始值下方的「填充柄」。這時,Excel便開始自動檢測記錄的長度,並自動按順序設置好相應的序號

flash: http://files.enet.com.cn/200606/250782055.swf




Excel2003函數應用完全手冊
軟件類型:
國外軟件/免費軟件
軟件語言:
英文
執行環境:
Win9X/WinXP/Win2000/
軟件大小:
155 KB
Excel2003函數應用完全手冊。
http://soft.netnest.com.cn/uploadfiles/2006-07-30/20060730_090002_121.gif
下載位址
解Word和Excel文件密碼工具
圖片:
http://bbs.crsky.com/1128632305/Mon_0608/7_57816_d08da825a3b9ee4.jpg

Office Password Remover 是可以瞬間破解MS Word和Excel文檔文件密碼工具,本人測試均不超過5秒。工作原理尚不清楚,不過使用本軟件需要連接到互連網,因為要給軟件服務器發送很少的資料並解密。不過大家可以放心,本軟件不會洩露任何個人隱私。

點擊進入下載

http://bbs.crsky.com/1128631104/nature/sigline.gif


Excel函數應用500例 實例下載對一些execl函數的使用方法看不懂的朋友可以看一下了

http://www.wishdown.com/upimages/2006-8/20068191915110.gif
下載位址
一款將Word、Excel轉換成Swf 文件或 PDF 文件的軟件

FlashPaper 2 令您輕易地將任何可印表的文檔(Word、Excel)轉換為 Swf 文件或 PDF 文件,並且轉換後的文件具有很強的保密性,可以防止瀏覽者進行複製貼上去,從而保護了作者的勞動成果...


下載位址:(用訊雷下)

http://jscz.driversky.com/down/FlashPaper2.rar

Excel函數日常應用500實例下載
對一些execl函數的使用方法看不懂的朋友,這下好多了。
http://www.jz5u.com/upimages/2006-8/200682921831081.GIF
http://www.jz5u.com/upimages/2006-8/200682921835753.GIF
下載位址

此帖於 2006-09-22 02:19 PM 被 psac 編輯.
psac 目前離線  
送花文章: 3, 收花文章: 1625 篇, 收花: 3194 次
舊 2006-09-21, 08:41 AM   #51 (permalink)
榮譽會員
 
psac 的頭像
榮譽勳章
UID - 3662
在線等級: 級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時級別:30 | 在線時長:1048小時 | 升級還需:37小時
註冊日期: 2002-12-07
住址: 木柵市立動物園
文章: 17381
現金: 5253 金幣
資產: 33853 金幣
預設

Q:
【求助】是否有批量替換多個EXCEL文檔中圖片的軟件

像批量替換某個資料夾下所有文檔裡文字內容的那種軟件,知道的告訴一下哦,謝謝

A:

「文本替換專家」

不知道是不是樓主要找的?
Q:
http://down.jdxz.net/downinfo/6688.html
謝謝,不過我要替換的是文檔中的圖片


A:
再給提供一點訊息吧,軟件我沒有找到了:


有關EXCEL中替換,或者插入圖片的問題
http://www.bluespace.cn/Html/Csdn/2_...w_4896584.html

指定單元格位置批量插入指定圖片
http://www.excelpx.com/dispbbs.asp?b...&ID=363&page=1


Q:
【求助】Excel裡的「繁體」字,如何轉成「簡體」字

如題,謝謝!

A:

有個繁體與簡體轉換的載入巨集

直接給一個給你吧
Office 2003 簡繁轉換載入巨集讓你可以在 PowerPoint 2003、Excel 2003 以及 Access 2003 進行中文簡繁體轉換。若您的系統沒有安裝 Microsoft Office 2003,則無法安裝此載入巨集。
系統要求
支持的操作系統: Windows 2000, Windows 2000 Server, Windows Server 2003, Windows XP

此下載程式適用於下列 Office 應用程式:
PowerPoint 2003, Excel 2003 及 Access 2003


Q:

【求助】關於excel資料累加的問題

閒著沒事 想利用excel來管理小店會員 現在的需要是(詳見附件)在消費裡面每次輸入不同的資料後 後面的消費總額會隨之改變,嘗試用巨集但是總出錯,然後用迭代運算 出現第一個人能夠正常輸入消費後,消費總額改變,但是對第二個人修改的時候發現第一個人的消費總額要改變。我把附件傳上來了,希望那位朋友幫我改下,謝謝!



A:

,一個會員的多次消費是不是形成多條記錄?

那表就建得有問題,應該一張為用戶訊息表,一張為用戶消費表。

一般我都用sum來求和的.


Q:
【求助】在excel 中日期「20060101」如何轉換為 「2006-01-01」

在excel 中日期「20060101」如何轉換為 「2006-01-01」 謝謝各位!


A:
需要另起單元格,在單元格A2中利用函數
=CONCATENATE(LEFT(A1,4),"-",MID(A1,5,2),"-",RIGHT(A1,2))
其中A1為單元格(20060101)

表菜單「資料→分列」,勾選「固定寬度」,連續兩次點擊「下一步」,在步驟三交談視窗的「列資料格式」中,選擇「日期」,並選定「YMD」形式,按下「完成」按鍵



圖片:

我這個最簡單,看圖

http://bbs.crsky.com/1128632305/Mon_0607/65_354_d16cea61873f86b.jpg



Q:


【求助】怎麼EXCEL替換*號為×(已解決)(*號前加~)

怎麼EXCEL替換*號為×
這個印表起來不好看,要換成×,但替換時*表示所有,怎麼樣才能替換掉*?

A:




在查找中輸入「~*」(不包括引號),在替換為中輸入「×」(不包括引號),接著就搞定了。\\\\



Q:

【求助】怎樣在Microsoft Excel表中實現簡繁轉化?

如題!在word中有此功能, Excel找不到???
謝謝指點了先!!!

A:



需要安裝修正檔
MS官方的

http://download.microsoft.com/downlo...W/tcscconv.exe

http://download.microsoft.com/downlo...1/tcscconv.msi



Q:


【求助】怎麼設置Excel中設置表表相聯??

就是在不同兩張表中的同一個關鍵字,改了這個關鍵字,另一種個關鍵字也跟著變動.

效果?

改A表的資料,B表自動變化?

先謝謝



A:





=VLOOKUP(A8,a!A8:B15,2,FALSE)

其中的2是不是表2的意思?

使用語法

VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)

Lookup_value 為需要查找的值。Lookup_value 可以為數值、引用或文本字元串。

Table_array 為需要在其中查找資料的資料表。可以使用對區域或區域名稱的引用,例如資料庫或列表。

如果 range_lookup 為 TRUE,則 table_array 的第一列中的數值必須按升序排列:…、-2、-1、0、1、2、…、-Z、FALSE、TRUE;否則,函數 VLOOKUP 不能返回正確的數值。如果 range_lookup 為 FALSE,table_array 不必進行排序。

通過在「資料」表菜單中的「排序」中選擇「升序」,可將數值按升序排列。

Table_array 的第一列中的數值可以為文本、數位或邏輯值。

文本不區分大小寫。

Col_index_num 為 table_array 中待返回的匹配值的列序號。Col_index_num 為 1 時,返回 table_array 第一列中的數值;col_index_num 為 2,返回 table_array 第二列中的數值,以此類推。如果 col_index_num 小於 1,函數 VLOOKUP 返回錯誤值值 #VALUE!;如果 col_index_num 大於 table_array 的列數,函數 VLOOKUP 返回錯誤值 #REF!。

Range_lookup 為一邏輯值,指明函數 VLOOKUP 返回時是精確匹配還是近似匹配。如果為 TRUE 或省略,則返回近似匹配值,也就是說,如果找不到精確匹配值,則返回小於 lookup_value 的最大數值;如果 range_value 為 FALSE,函數 VLOOKUP 將返回精確匹配值。如果找不到,則返回錯誤值 #N/A。

說明

如果函數 VLOOKUP 找到 lookup_value,且 range_lookup 為 TRUE,則使用小於等於 lookup_value 的最大值。

如果 lookup_value 小於 table_array 第一列中的最小數值,函數 VLOOKUP 返回錯誤值 #N/A。

如果函數 VLOOKUP 找不到 lookup_value 且 range_lookup 為 FALSE,函數 VLOOKUP 返回錯誤值 #N/A。


Q:

【求助】怎麼把excel裡面的資料按照指定的格式匯入到world中
圖片:
http://bbs.crsky.com/1128632305/Mon_0607/65_162393_eb99f65f85e112d.jpg

圖片:
http://bbs.crsky.com/1128632305/Mon_0607/65_162393_b2d9553e2b59a75.jpg

Excel裡面有一個通訊錄,我想導到入world中,然後在world中按照信封的樣式模板排列,最好輸出,請問這個怎麼匯入!
好久以前弄過一次,現在不記得怎麼弄了~!



A:

很多學校期末都都要給學生寄成績通知單,教務處需要印表大量的信封。利用Word XP與Excel XP可以協作來批量印表信封,一起來看看吧。

1、準備階段

(1)新增一Excel文件「新生名單」,將新生名單的各項訊息匯入或直接輸入,如:郵政編碼、通訊位址、姓名等。

(2)新增一Word文件「信封」,呼叫表菜單「工具→信函與郵件→中文信封嚮導」,打開「信封製作嚮導」交談視窗(沒有此功能需用Office XP來源碟來安裝),根據嚮導提示設計一個信封,設置好字體、字號.

2、呼叫資料

(1)在「信封」文件中,呼叫表菜單「視圖→郵件合併」,顯示郵件合併工具欄,點擊[打開資料源]工具按鍵,按提示選擇新增的Excel文件「新生名單」,選擇sheet1。

(2)選擇「000000」(代表郵政編碼),點擊郵件合併工具欄[插入域]按鍵,在交談視窗中選擇插入「郵政編碼」,「000000」被「《郵政編碼》」所代替。然後進行同樣操作,替換「位址」、「姓名」。

(3)點擊郵件合併工具欄[檢視合併資料圖示]按鍵,會顯示「新生名單」中的學生資料。

3、印表信封

點擊郵件合併工具欄中的[合併到印表機],同時對交談視窗進行設置,最後印表出信封。
psac 目前離線  
送花文章: 3, 收花文章: 1625 篇, 收花: 3194 次
 


主題工具
顯示模式

發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用


所有時間均為台北時間。現在的時間是 01:37 PM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2019, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1