Showing posts with label OFFICE相關. Show all posts
Showing posts with label OFFICE相關. Show all posts
Thursday, March 24, 2016
Excel- 只複製可見儲存格的資料
1. 選取要複製的儲存格區間(其中包含了被隱藏的儲存格)。
2. 按一下 Alt + ;。(已選取被隱藏以外的儲存格)
3. 按一下 Ctrl + C,進行複製。
4. 在其他儲存格按一下 Ctrl + V,進行貼上。
另一方法:
1.選取您要複製的儲存格。
2.在 [常用] 索引標籤的 [編輯] 群組中,按一下 [尋找與選取],然後按一下 [到]。
3.按一下 [到] 對話方塊中的 [特殊]。
4.按一下 [選取] 下方的 [可見儲存格],然後按一下 [確定]。
Sunday, October 18, 2015
Excel刪除換行符號(Alt+Enter)的方法
在Excel的欄位中要使用換行的功能時,會按下Alt+Enter。
取消換行時:
方法1:
1. 開啟取代的視窗,
2. 在「尋找目標」處按下Ctrl+Enter(或Alt+0010),鍵入Alt+Enter的特殊碼
3. 按「全部取代」
方法2:用CLEAN函數
CLEAN函數可以删除文本中不能打印的字符。假如A1格包含換行符號,可在B1格中輸入公式:“=CLEAN(A1)”,即可删除換行符號。
取消換行時:
方法1:
1. 開啟取代的視窗,
2. 在「尋找目標」處按下Ctrl+Enter(或Alt+0010),鍵入Alt+Enter的特殊碼
3. 按「全部取代」
方法2:用CLEAN函數
CLEAN函數可以删除文本中不能打印的字符。假如A1格包含換行符號,可在B1格中輸入公式:“=CLEAN(A1)”,即可删除換行符號。
Tuesday, February 26, 2013
PowerPoint列印簡報為講義模式的頁碼設定
http://itstaffnetwork.blogspot.tw/2012/05/powerpoint-1-1ppt-2-3-4pdfpdf-5vba-1.html
Dim i As Long
Dim lStart As Long
Dim lStop As Long
Dim
lHandoutKind As Long
Dim lSlide As Long
Dim lSlideEnd As Long
Dim
ppHandoutKind As PpPrintOutputType
Dim vbConfirm As
VbMsgBoxResult
'
lSlide = InputBox("從哪一張簡報開始列印?", "開始簡報",
"1")
'
lStart = InputBox("講義起始頁碼編號: ", "講義起始頁碼", "1")
'
lHandoutKind
= InputBox("每頁幾張簡報?" & vbNewLine & "2, 3, 4, 6, 9?", "講義列印類型",
"6")
'
Select Case lHandoutKind
Case 1, 2
ppHandoutKind =
ppPrintOutputTwoSlideHandouts
lHandoutKind = 2
Case 3
ppHandoutKind =
ppPrintOutputThreeSlideHandouts
lHandoutKind = 3
Case 4
ppHandoutKind =
ppPrintOutputFourSlideHandouts
lHandoutKind = 4
Case 5, 6
ppHandoutKind
= ppPrintOutputSixSlideHandouts
lHandoutKind = 6
Case
Else
ppHandoutKind = ppPrintOutputNineSlideHandouts
lHandoutKind =
9
End Select
'
vbConfirm = MsgBox("您已選擇講義列印,每頁投影片張數為" &
lHandoutKind & "張,起始列印頁碼為" & lStart & vbNewLine & ",開始列印頁數為"
& lSlide & ".", vbOKCancel)
'
If vbConfirm = vbOK
Then
'
lStop = Round((ActivePresentation.Slides.Count - (lSlide - 1)) /
lHandoutKind)
If Round((ActivePresentation.Slides.Count - (lSlide - 1)) Mod
lHandoutKind) <= (lHandoutKind / 2) Then
lStop = lStop + 1
End
If
'
For i = 1 To
lStop
'
ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible
=
msoFalse
ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text
= lStart
lStart = lStart + 1
'
With
ActivePresentation.PrintOptions
'
.RangeType =
ppPrintSlideRange
With .Ranges
'
.ClearAll
'
lSlideEnd = lSlide +
lHandoutKind - 1
'
If lSlide > ActivePresentation.Slides.Count
Then
lSlide = ActivePresentation.Slides.Count
End If
If lSlideEnd >
ActivePresentation.Slides.Count Then
lSlideEnd =
ActivePresentation.Slides.Count
End If
.Add Start:=lSlide,
End:=lSlideEnd
lSlide = lSlide + lHandoutKind
End With
'
' Set
number of copies to 1.
'
.NumberOfCopies = 1
'
.OutputType =
ppHandoutKind
'
.HandoutOrder = ppPrintHandoutVerticalFirst
'
列印顏色設定為純粹黑白
.PrintColorType = ppPrintPureBlackAndWhite
'.PrintColorType = ppPrintBlackAndWhite
'.PrintColorType = ppPrintColor
'
配合紙張調整大小
.FitToPage = msoTrue
' 投影片加框
.FrameSlides =
msoTrue
End With
'
'
立即列印出來
ActivePresentation.PrintOut
'
預覽列印;設定預覽列印無法看出講義模式設定頁碼的功能
' ActiveWindow.ViewType =
ppViewPrintPreview
Next i
End
If
'
ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text =
""
ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible =
msoTrue
Dim i As Long
Dim lStart As Long
Dim lStop As Long
Dim
lHandoutKind As Long
Dim lSlide As Long
Dim lSlideEnd As Long
Dim
ppHandoutKind As PpPrintOutputType
Dim vbConfirm As
VbMsgBoxResult
'
lSlide = InputBox("從哪一張簡報開始列印?", "開始簡報",
"1")
'
lStart = InputBox("講義起始頁碼編號: ", "講義起始頁碼", "1")
'
lHandoutKind
= InputBox("每頁幾張簡報?" & vbNewLine & "2, 3, 4, 6, 9?", "講義列印類型",
"6")
'
Select Case lHandoutKind
Case 1, 2
ppHandoutKind =
ppPrintOutputTwoSlideHandouts
lHandoutKind = 2
Case 3
ppHandoutKind =
ppPrintOutputThreeSlideHandouts
lHandoutKind = 3
Case 4
ppHandoutKind =
ppPrintOutputFourSlideHandouts
lHandoutKind = 4
Case 5, 6
ppHandoutKind
= ppPrintOutputSixSlideHandouts
lHandoutKind = 6
Case
Else
ppHandoutKind = ppPrintOutputNineSlideHandouts
lHandoutKind =
9
End Select
'
vbConfirm = MsgBox("您已選擇講義列印,每頁投影片張數為" &
lHandoutKind & "張,起始列印頁碼為" & lStart & vbNewLine & ",開始列印頁數為"
& lSlide & ".", vbOKCancel)
'
If vbConfirm = vbOK
Then
'
lStop = Round((ActivePresentation.Slides.Count - (lSlide - 1)) /
lHandoutKind)
If Round((ActivePresentation.Slides.Count - (lSlide - 1)) Mod
lHandoutKind) <= (lHandoutKind / 2) Then
lStop = lStop + 1
End
If
'
For i = 1 To
lStop
'
ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible
=
msoFalse
ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text
= lStart
lStart = lStart + 1
'
With
ActivePresentation.PrintOptions
'
.RangeType =
ppPrintSlideRange
With .Ranges
'
.ClearAll
'
lSlideEnd = lSlide +
lHandoutKind - 1
'
If lSlide > ActivePresentation.Slides.Count
Then
lSlide = ActivePresentation.Slides.Count
End If
If lSlideEnd >
ActivePresentation.Slides.Count Then
lSlideEnd =
ActivePresentation.Slides.Count
End If
.Add Start:=lSlide,
End:=lSlideEnd
lSlide = lSlide + lHandoutKind
End With
'
' Set
number of copies to 1.
'
.NumberOfCopies = 1
'
.OutputType =
ppHandoutKind
'
.HandoutOrder = ppPrintHandoutVerticalFirst
'
列印顏色設定為純粹黑白
.PrintColorType = ppPrintPureBlackAndWhite
'.PrintColorType = ppPrintBlackAndWhite
'.PrintColorType = ppPrintColor
'
配合紙張調整大小
.FitToPage = msoTrue
' 投影片加框
.FrameSlides =
msoTrue
End With
'
'
立即列印出來
ActivePresentation.PrintOut
'
預覽列印;設定預覽列印無法看出講義模式設定頁碼的功能
' ActiveWindow.ViewType =
ppViewPrintPreview
Next i
End
If
'
ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text =
""
ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible =
msoTrue
Thursday, February 21, 2013
Friday, January 18, 2013
如何在word表格中插入圖片時,表格不變,圖片能自動縮小呢?
在Word表格插入大圖能自動縮成指定尺寸
選取表格,表格內容,表格,選項,自動調整內容大小(打勾取消)
選取表格,表格內容,表格,選項,自動調整內容大小(打勾取消)
列(指定高度打勾設定大小)
欄(慣用寬度打勾設定大小)
插入圖片時,表格即不會隨圖片大小變動!
另一招:
可以先調整好你要的表格、欄位的大小,然後選取表格,再選取[表格工具/版面配置]功能表中的[儲存格大小/自動調整]選項中的「固定欄寬」。插入圖片時,表格即不會隨圖片大小變動!
另一招:
Monday, September 24, 2012
關閉word追蹤修訂功能
關閉word追蹤修訂功能
追蹤修訂的開啟與取消:是開始記錄與結束記錄,所以按下取消時,它依舊會顯示啟動記錄以來的所有修改歷程,而非隱藏那些歷程。

修改記錄不再出現的方法是:點選「校閱」>「變更」>「接受」>「接受文件中的所有變更」。(word2010)

追蹤修訂的開啟與取消:是開始記錄與結束記錄,所以按下取消時,它依舊會顯示啟動記錄以來的所有修改歷程,而非隱藏那些歷程。

修改記錄不再出現的方法是:點選「校閱」>「變更」>「接受」>「接受文件中的所有變更」。(word2010)

Friday, July 06, 2012
T 分數
T 分數的公式 = Z 分數 *10 +50
Z 分數:STANDARDIZE,完整格式如:STANDARDIZE (需要標準化的值, 平均數, 標準差)
平均數的公式:AVERAGE
標準差的公式:STDEV
STANDARDIZE 函數:傳回常態化的值
STDEV.P 函數 :根據整個母體來計算標準差
STDEV.S 函數:根據樣本來估計標準差
STDEVA 函數:根據樣本來估計標準差,包含數字、文字和邏輯值
STDEVPA 函數:根據整個母體來計算標準差,包含數字、文字和邏輯值
Z 分數:STANDARDIZE,完整格式如:STANDARDIZE (需要標準化的值, 平均數, 標準差)
平均數的公式:AVERAGE
標準差的公式:STDEV
STANDARDIZE 函數:傳回常態化的值
STDEV.P 函數 :根據整個母體來計算標準差
STDEV.S 函數:根據樣本來估計標準差
STDEVA 函數:根據樣本來估計標準差,包含數字、文字和邏輯值
STDEVPA 函數:根據整個母體來計算標準差,包含數字、文字和邏輯值
Saturday, May 12, 2012
Sunday, April 22, 2012
注音輸入法中的多功能前導字元鍵
1. 你先切換到新注音輸入法。
2. 按一下多功能前導字元鍵:`[同~鍵]
Uniode內碼輸入:加按'U’及Unicode內碼
BIG5內碼輸入:加按'B’及BIG5內碼
詞語怏速輸入:加按'P’及造詞工具中所定義的捷徑字元
全形標點符號
反查字碼 :alt x
Wednesday, April 04, 2012
excel VBA :自動匯入各班資料
Sub 巨集2()
'
' 巨集2 巨集
'
'
Dim AllFiles As String
For j = 1 To 11
Workbooks.Open "C:\Users\user\Desktop\定期考查得獎名單\1\1" & Format(j, "00") & ".xls"
AllFiles = "1" & Format(j, "00") & ".xls"
Range("A2").Select
Windows(AllFiles).Activate
Range("A2:D11").Select
Selection.Copy
Windows("total.xls").Activate
ActiveSheet.Paste
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Next
End Sub
'
' 巨集2 巨集
'
'
Dim AllFiles As String
For j = 1 To 11
Workbooks.Open "C:\Users\user\Desktop\定期考查得獎名單\1\1" & Format(j, "00") & ".xls"
AllFiles = "1" & Format(j, "00") & ".xls"
Range("A2").Select
Windows(AllFiles).Activate
Range("A2:D11").Select
Selection.Copy
Windows("total.xls").Activate
ActiveSheet.Paste
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Next
End Sub
Thursday, November 03, 2011
Sunday, October 16, 2011
Sunday, September 25, 2011
如何顯示 Office 2010 的開發人員索引標籤
1.按下【檔案】 索引標籤,接著按下【說明】 底下的【選項】。
2.按下【自訂功能區】。
3.選取【自訂功能區】 清單中的【開發人員】,按下【確定】。
2.按下【自訂功能區】。
3.選取【自訂功能區】 清單中的【開發人員】,按下【確定】。
Wednesday, November 17, 2010
合併列印 數字改為國字大寫
Word僅接受原始格式的文字,不接受Excel畫面上的格式設定,所以無法使用Excel的數值類型來設定數字的呈現格式.
在excel中處理
1. 必須要使用函數,確實將數字更改為大寫文字的文字型態,方能在Word中呈現出正確的數字
2. 設定函數的方式為: =TEXT(原數字儲存格,"[DBNum2]")
3. 其中的[DBNum2]代表國字大寫數字的格式定義
或在word中處理
1..滑鼠進入 數字 會出現反灰
2.按Shift- F9 會出現{ MERGEFIELD "數字" }
3.點進去 改成 { MERGEFIELD "數字" \* CHINESENUM2 }
4.按 F9 ,完成。
1.在word主文件中,按 Alt+F9 (可看到合併列印的格式)
2..在你所要更改的欄位,在此以『平均』為例,正常情況下,你會看到 { MERGEFIELD "平均" }
3.將 \# #,##0.00 加入尾巴,如下所示:
{ MERGEFIELD "平均" \# #,##0.00 } 即可。
4.再按一次 Alt+F9 回復正常模式。
基本上:
\# 後面接的是數值性資料的格式
\@ 後面接的是日期性資料的格式
\*後面可接特殊的中文數字表示格式
譬如:
{ “合併欄位” \# NT$#,###.## } 將會顯示NT$12,345.78
{ “合併欄位” \* DBNUM1 } 將會顯示一二三四五六
{ “合併欄位” \* DBNUM2 } 將會顯示壹拾貳萬參仟肆佰伍拾陸
{ “合併欄位” \* DBNUM3 } 將會顯示一十二萬三千四百五十六
數字顯示格式 (\#) 欄位選項
Sunday, October 03, 2010
Wednesday, December 10, 2008
Thursday, December 20, 2007
嘗試修復已毀損的 Word 文件與檔案
word文件打不開時,如何處理?

一、使用 Word 2003 內建的修復功能
(1)開啟檔案使用「開啟並修護」
.
(2)或開啟檔案時,檔案類型選「修護任何檔案的文字」

二、使用第三方軟體進行文件(檔案)修復
如果第一個方法行不通時,各位網友們可以使用下列兩個軟體嘗試進行修復:
二個軟體,執行效果還不錯,但不一定成功。可以二個都試試。

一、使用 Word 2003 內建的修復功能
(1)開啟檔案使用「開啟並修護」

(2)或開啟檔案時,檔案類型選「修護任何檔案的文字」

二、使用第三方軟體進行文件(檔案)修復
如果第一個方法行不通時,各位網友們可以使用下列兩個軟體嘗試進行修復:
二個軟體,執行效果還不錯,但不一定成功。可以二個都試試。
Sunday, December 02, 2007
Excel四捨五入不再出差錯
Excel四捨五入不再出差錯<<轉載自_密技偷偷報>>
當我們在做一些數據上的報表時,有時為了避免大量小數的運算,會用到四捨五入的方法,但是這樣做常常會造成數值運算的誤差,而且很不容易抓出來,原來這是因為Excel軟體的特性,不過其實我們只要做點小設定,就可以避免錯誤發生囉!
Step
1.有的時候,在表格中,數字的精度並不是非常重要,這時候你可以在「儲存格格式」中設定「小數位數」的數字,決定留下幾位小數,超過的就會被四捨五入,但是這樣常會發生一些問題…
2.假設A的數值是34.52(四捨五入後是35),B是67.8(四捨五入後是68),照理講四捨五入後的相加數值是103才對,怎麼反而只有102呢?
3.這是因為數字相加時,Excel還是以還沒四捨五入的數字做運算,因此才會發生與實際看到的數字有差異的情形,解決這個尷尬狀況的最簡便辦法,就是按下【工具】→【選項】-->【計算】。
4.在「活頁簿選項」中勾選「以顯示值為準」,然後按下〔確定〕。
5.跳出一個提示訊息告訴你這樣做會造成數值的誤差,因此,如果你的資料是像一些會計類的資料,就不能用這種方式處理囉!
6.經過設定後,數字果然變正確了,果然是很方便呢!
Thursday, November 02, 2006
word 輸入分數
(1)功能表 [插入]—[功能變數],選用 -欄位名稱- EQ,按 [功能變數代碼],[選項]


(2)選[ \F(,) ] ,按 [加入功能變數]

(3)輸入 \F(1,2),按 [確定]

(4)用[切換功能變數代碼],修改。


Wednesday, November 01, 2006
word存檔時,出現錯誤訊息。
在使用word2003 存檔時,總會出現「文件已儲存,但因儲存空間不足,導致語音辨識資料流失,不錄音時請務必關閉麥克風,並檢查磁碟可用的空間」?
方法1:
建議 立即下載用戶端版本的「Office 2003 重大更新:KB828041」套件。
http://www.microsoft.com/downloads/details.aspx?familyid=722C7A55-E541-44CC-97CB-572859346DEE&displaylang=zh-tw
http://download.microsoft.com/download/e/1/9/e19746da-c20c-43ff-b824-90a55b5386ad/office2003-kb828041-client-enu.exe
方法2:開WORD--工具--選項--儲存--內嵌語言資料,不勾選,按確定重新存一次,Try It.
若您使用方法2, 重新啟動WORD後,[內嵌語言資料]若仍有"勾選,提供您下面BBS上永久取消[內嵌語言資料]勾勾的方法:
1.開啟Word
2.先將[內嵌語言資料]勾勾取消
3.[檔案]>[另存新檔]
3.[檔案類型]選[文件範本(*.dot)]
4.選擇存至桌面或您習慣啟動Word的位置,後給一個名稱(例如[Normal2.dot])
5.以後要啟動Word,就按[Normal2.dot]即可
方法1:
建議 立即下載用戶端版本的「Office 2003 重大更新:KB828041」套件。
http://www.microsoft.com/downloads/details.aspx?familyid=722C7A55-E541-44CC-97CB-572859346DEE&displaylang=zh-tw
http://download.microsoft.com/download/e/1/9/e19746da-c20c-43ff-b824-90a55b5386ad/office2003-kb828041-client-enu.exe
方法2:開WORD--工具--選項--儲存--內嵌語言資料,不勾選,按確定重新存一次,Try It.
若您使用方法2, 重新啟動WORD後,[內嵌語言資料]若仍有"勾選,提供您下面BBS上永久取消[內嵌語言資料]勾勾的方法:
1.開啟Word
2.先將[內嵌語言資料]勾勾取消
3.[檔案]>[另存新檔]
3.[檔案類型]選[文件範本(*.dot)]
4.選擇存至桌面或您習慣啟動Word的位置,後給一個名稱(例如[Normal2.dot])
5.以後要啟動Word,就按[Normal2.dot]即可
Subscribe to:
Posts (Atom)