查看單個文章
舊 2006-06-14, 01:35 AM   #33 (permalink)
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單元格實現四則運算,並自動計算結果

假設C列為輸入的沒有等號公式(假設C1為「1+2+3」),而相鄰的D列是你需要存放公式計算結果的地方(即D1顯示C1單元格中「1+2+3」相加的結果)。

  1. 選中D1,然後打開「插入」表菜單選擇「名稱」命令中的「定義」子命令,出現「定義名稱」交談視窗。

  2. 在「在當前工作表中的名稱」輸入欄中輸入定義的名稱「x」,在下方的「引用位置」編輯欄中輸入「=EVALUATE(C1)」,單擊[確認]按鈕退出。

  3. 在 D1中輸入「=x」,然後選中按住右下角的填充柄向下拉動填充即可。



可以當計算器、計算書用。如用matlab也可更快,更好!



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

excel如何使數字四省五入的取整數?

使數位四省五入的取整數,比如3.3,2.6,5.4能最終顯示出4,3,6?


樣來操作 點插入 --函數---數位與三角函數-----ROUND,在第一個框中選取源單元格,第二個中為小數位 ,也可以在單元格格式裡面設定小數位數
這不是四捨五入,而是向上捨入呀,在你要顯示的位置填入=ROUNDUP(A1,0)即可

其中A1是取表格左上角第一個格內容,可以根據需要改成別的位置或填入具體數值;0則表示要捨入到整數字

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


在Microsoft Office Excel 中實現手動雙面印表

我們知道,Microsoft Word可以很方便的在印表設置中實現手動雙面印表(即,先印表所有奇數頁,再印表所有偶數頁)。而Microsoft Excel的印表選項裡卻沒有這項功能。能不能在Microsoft Excel中也實現這項功能呢?答案是肯定的。筆者利用Microsoft Excel自帶的巨集命令很方便的實現了這項功能。現將經驗與大家一起分享。
啟動Microsoft Excel,單擊表菜單「工具」→「巨集」→「錄製新巨集」,在彈出的錄製新巨集交談視窗中將巨集名改為「手動雙面印表」,並將巨集儲存在「個人巨集工作簙」中,如所示

  
單擊確定後,按停止錄製巨集按鈕。再按快捷鍵「Alt+F11」進入Microsoft Visual Basic編輯器。在編輯器中打開模塊1,在我們剛才錄製的手動雙面印表巨集命令中輸入如下代碼,如圖所示。
Sub 手動雙面印表()
Dim Pages As Long
Dim myBottonNum As Integer
Dim myPrompt1 As String
Dim myPrompt2 As String
myPrompt1 = "在印表時發生錯誤,請檢查你的印表機設置"
myPrompt2 = "請將出紙器中已印表好一面的紙取出並將其放回到送紙器中,然後按下""確定"",繼續印表"
Pages = ExecuteExcel4Macro("Get.Document(50)") '統計總頁數

On Error Resume Next

If (Pages = 0) Then '如果為零,說明沒有可印表內容,退出程式
MsgBox "Microsoft Excel 未發現任何可以印表的內容", 0 + 48
Exit Sub
End If

If (Pages = 1) Then '判斷是否只有一頁,如果是,只印表第一頁,然後退出
ActiveSheet.PrintOut
If Err.Number = 1004 Then
MsgBox myPrompt1, 0 + 48 '提示用戶發生印表錯誤
End If
Exit Sub
End If

For i = 1 To Pages Step 2 '設置循環,印表奇數頁
ActiveSheet.PrintOut From:=i, To:=i
If Err.Number = 1004 Then
MsgBox myPrompt1, 0 + 48
Exit Sub
End If
Next i

myBottonNum = MsgBox(myPrompt2, 1 + 48) '提示用戶取出紙張,確認後繼續印表

If (myBottonNum = 1) Then
For j = 2 To Pages Step 2 '印表偶數頁
ActiveSheet.PrintOut From:=j, To:=j
Next j
End If
End Sub

http://bbs.winzheng.com/attachments/month_0409/new_RZcWnZCR8Mst.jpg
創建代碼後接下來我們將在工具欄新增按鈕,使按鈕指向我們剛才創建的巨集,這樣當單擊按鈕後,就會執行巨集,就像按「印表」按鈕執行印表功能一樣方便。好了,閒話少說,繼續往下來。
按快捷鍵「Alt+Q」返回到工作表視窗,單擊表菜單「工具」→「自定義」,在彈出的自定義交談視窗中選擇「命令」選擇項,在命令選擇項中選擇「巨集」→「自定義按鈕」,如所示。
拖動「自定義按鈕」圖示到工具欄,右鍵單擊「自定義按鈕」圖示,在彈出的交談視窗中將「自定義按鈕(&C)」更名為「手動雙面印表(&C)」,然後再單擊「指定巨集」,如所示。

在彈出的「指定巨集」交談視窗中選擇我們剛才創建的巨集,如圖所示,單擊確定結束。
至此,所有工作已全部完成,隨便打開任意工作簙單擊剛創建的按鈕試試,程式就會自動先印表所有奇數頁,然後提示你取出紙張,確認後再印表所有偶數頁,就像在使用Word的手動雙面印表一樣方便。
製作成功後的效果圖。只要單擊按鈕,就可以像Word印表設置那樣執行雙面印表任務了!
__________________
http://bbsimg.qianlong.com/upload/01/08/29/68/1082968_1136014649812.gif
psac 目前離線  
送花文章: 3, 收花文章: 1631 篇, 收花: 3205 次