設計VBA的隱藏程式

Sub 隱C()

Columns("C:C").Select
Selection.EntireColumn.Hidden = True

End Sub
Sub 隱D()

Columns("D:D").Select
Selection.EntireColumn.Hidden = True

End Sub

Sub 隱E()

Columns("E:E").Select
Selection.EntireColumn.Hidden = True

End Sub
Sub 全部()
Columns("A:H").Select
Selection.EntireColumn.Hidden = False
Range("a1").Select

End Sub

Sub Product_Spec()
Range("a4").Select

While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "Product Spec & Scope" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select

End If

Wend


End Sub
Sub Payment_Term()
Range("a4").Select

While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "Payment Term" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select

End If

Wend


End Sub
Sub Payment_Type()
Range("a4").Select

While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "Payment Type" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select

End If

Wend


End Sub
Sub AR_Entity()
Range("a4").Select

While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "AR Entity" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select

End If

Wend


End Sub
Sub Reporting_Format()
Range("a4").Select

While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "Reporting Format" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select

End If

Wend


End Sub
Sub Audit_Term()
Range("a4").Select

While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "Audit Term" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select

End If

Wend


End Sub
Sub Termination()
Range("a4").Select

While (ActiveCell.Value <> Empty)
If ActiveCell.Value <> "Termination" Then
x = ActiveCell.Row
x = x & ":" & x
Rows(x).Select
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select

End If

Wend


End Sub
Sub all()


Rows("1:100").Select
Selection.EntireRow.Hidden = False

Range("a4").Select


End Sub

自訂驗證 - IF

今天學到資料驗證同大家分享
首先您有二個區域 A欄 : 是北區 (使用 選取A欄 , 編輯 / 名稱 / 定義 / 輸入 北區)
B欄是南區(使用 選取A欄 , 編輯 / 名稱 / 定義 / 輸入 南區)
至於A,B欄的內容至行定義
某一個欄位輸入北或南 , A或B , 1或2 [代表文字或數字] , 則另一個欄位就會有不同的資料選單
例如 : C1儲存格輸入北 , 則C2儲存格就會有下拉式選單 , 其選單資料是北區,或C1儲存格輸入南 , 則C2儲存格就會有下拉式選單 , 其選單資料是南區
請依下列步驟進行
選定C2儲存格 , 選取 資料 / 驗證 / 類型 : 清單 / 資料來源右側方塊輸入 : =if(c1="北",北區,南區)
很好用喔

妹咕燒燒

回家妹咕燒燒真是令人擔心
結果 她說了一句
阿爸 怎麼有這麼多工作要做
心中......
妹咕
加油

防止表格的列跨頁後斷表格

請選取 表格範圍
選取 表格 / 表格內容
選取 列 / 取消 允許列超越頁分隔線
確定

推-免費

http://www.informationsecurity.com.tw/WAF2009/edm.htm

改變你我 - 每日一詞

大家好 - 從今日起希望大家一同發起每日一詞
主要用以矯正目前社會亂象 , 我先發聲
有益書 , 隨手捐
無益書 , 勿流傳

謝謝大家 一同來發言

熱 心情自然涼

今天世新上課真熱
心情自然涼

ＰＨＯＴＯＩＭＰＡＣＴ問題

要如何將相片轉正?應該使用PhotoImpact的哪個功能?
調整 / 自動處理 / 調正
編輯 / 旋轉與變形 / 使用變形工具
我要如何把相片空白的地方剪裁掉?
利用選取工具 – 標準選取工具 , 或是剪裁工具
我想要將相片的色彩調成冷色系讓相片可以看起來新一點,該怎麼做呢?
相片 / 色彩 / 色彩平衡
相片 /光線 / 亮度與對比
冷色系，是利用幫相片加藍，或加青，暖色系，則是幫相片加紅，或加黃。
特效 / 光線 / 冷色系
我要如何讓相片亮的方可以再更亮一點,但是卻不會影到暗的地方呢?
選取亮的地方 / 相片 / 光線 / 亮度與對比
要如何改變相片的大小?
調整 / 調整大小
可以同時改變多張相片的大小嗎?該怎麼做呢?
開啟所有圖片檔
視窗 / 批次管理員 / 調整[類別] / 調整大小
設定尺寸 / 確定
要如何為相片加上邊框?
調整 / 擴大底框 / 設定距離 / 確定
請問數位相機中的相片要如何傳輸到電腦中?
檔案 / 數位相機 / 選取輸入項目 / 確定
請問要如何調整相片的角度、大小?
調整 / 調整大小
編輯 / 旋轉與變形 / 使用變形工具

請問要如何剪裁相片?
剪裁工具
請問要如何列印相片目錄?
檔案 / 列印 / 其他列印選項
多重列印 / 設定項目
請問要怎麼製作網路相簿?
先將所有照片置於資料夾內
檔案/分享/WEB相簿/設定資料夾
請問要如何調整相片的光線?
相片 / 光線 / 改善光線[可調陰影]
相片 / 光線 / 色階 [可調區域分佈]
相片 / 光線 /亮度與對比[整體]
要如何將相片做成自動播放網頁檔?會不會很難?
先將所有照片置於資料夾內
檔案/分享/WEB投影片秀/設定資料夾
要如何將相片做成相片目錄網頁檔?
先將所有照片置於資料夾內
檔案/分享/WEB相簿/設定資料夾

請問要如何調整相片的顏色?
相片 / 色彩 / 色相與彩度
請問要如何調整相片的焦距?
相片 / 焦距
要怎麼將相片中臉上的縐紋去除?
使用修容工具 或彷製畫筆
如何用PhotoImpact修改模糊的相片?
使用修容工具 或彷製畫筆

如何將相片的四個角裁切成圓角形狀?
檔案 / 開啟舊檔 / 複製
選取路徑繪圖工具 / 圓角矩形
編輯 / 貼入選取區
數位相機拍出來的照片尺寸都非常大，檔案下載時間也會比較久，不適合直接貼到網路相簿中給大家欣賞。
所以要壓縮轉檔
要如何將圖片裁切成適合上傳到網路相簿的大小呢？
可以使用批次管理員 / 視窗 / 批次管理員
調整[類別] / 調整大小
設定尺寸 / 確定

如何將1024*768的照片.縮小成800*600?!
調整 / 調整大小 / 預設項目 / 800*600
如何將相片調成2吋大小?
一吋等於2.54公分( 相片對角線)
一吋相片是2.2公分× 3.2公分
一吋相片是4.4公分× 6.4公分
解析度300DPI
3 X 5 = 3 X 300 X 5 X 300 = 900 X 1500 = 135 萬像素[ 7.2CM X 12.7CM ]
4 X 6 = 1200 X 2400 = 216 萬像素 [ 10.16CM X 15.24CM ]
調整 / 調整大小 / 文件大小 / 設定單位 英吋
拍照時若曝光不足有什麼可以補救的方法嗎?
相片 / 光線 / 色階