IT 免費/無料/Kostenlos(gratis) 記事本分享

2008年4月15日星期二

Excel以公分或英吋單位,做為行距列距之巨集

步驟1:開啟Excel
步驟2:按Alt+F11開啟VB編輯器
步驟3:由主選單選擇插入 | 模組
並且將微軟相關提供之函數,放置於此處,以便該Excel VBA去呼叫

RowHeightInCentimeters 函數
ColumnWidthInCentimeters 函數

步驟4:由主選單之檢視(V) | 工具列(T) | 選擇控制工具箱 ,並加入一個指令按鈕,筆者將此按鈕命名為 BtnAssignRC,系統即可按下該按鈕後,呼叫指定行高列寬(以公分為單位)

或直接由主選單選擇工具(T) | 巨集(M) | 選擇剛才模組中之RowHeightInCentimeters函數或ColumnWidthInCentimeters函數,即可指定行高列寬Size

微軟提供之函數:
http://support.microsoft.com/kb/213422/zh-tw

Excel 查詢重覆的資料函數

	A	B
1	商品類型	重覆註記
2	書籍	重覆
3	書架
4	書籍
5	文具	重覆
6	OA傢俱
7	文具

=IF(COUNTIF($A$2:$A$8,A2)>1,"重覆","")

COUNTIF函數 : 計數 A2到 A8(即商品類型欄位),與A2關鍵字"書籍"
做為查詢,故會傳回值為2

另再透過 IF函數去比對,發現值大於1,就會以"重覆"顯示出來

COUNTIF(A$1$:A$8$,"<>") ,只要A1至A8有值就計數筆數,以本例其值為7
查詢資料筆數相關函數:
ActiveSheet.UsedRange.Rows.Count
WorksheetFunction.CountA(Columns(1))

Excel重覆資料日文查詢

正向思考

個人喜歡Joseph Murphy マーフィーの成功法則
マーフィー「成功生活」８８の方法
マーフィー運命を好転させる易と成功法則 的書,

因為他提供正向思考的良策(國父曾說：吾心信其可行，雖移山填海之難，亦有成功之日，吾心信其不可行，雖反掌折枝之易，亦無成效之期),潛意識的開發運用,生活哲學(大前研一Off學概念,跳脫壞習慣),壓力釋放(暝想方法等),

相關書籍:

2008年4月14日星期一

以Vb Script腳本清除事件檢視器之系統日誌

將下列程式碼貼於以Notepad記事本上,並將檔案另存成vbs類型後,點選執行讓檔即可自動清除事件檢視器資料

'清除事件檢視器類型為Application ,Security, System等三類型

set LogFileSet = GetObject("winmgmts:{impersonationLevel= impersonate,(Backup)}").ExecQuery("select * from Win32_NTEventLogFile where " & _
"LogfileName='Application' OR LogfileName='Security' OR LogfileName='System'")

WScript.Echo "準備開始處理日誌"

dim strName, strMsg

for each Logfile in LogFileSet
strMsg = "Log: " & Logfile.LogfileName & chr(13)
' 將系統日誌備份到D槽之Temp資料夾內,格式以存檔當天之日期命名
strName = "d:\Temp\" & FormatDateTime(Date(),1) & Logfile.LogfileName & ".evt"

strMsg = strMsg & "Backup File: " & strName & chr(13)
blReturn= LogFile.BackupEventlog(strName)
if blReturn= 0 then strMsg = strMsg & "Log backed up" & chr(13)

blReturn = LogFile.ClearEventlog()
if blReturn= 0 then strMsg = strMsg &"日誌已備份至d:\temp,並清除完畢"

WScript.Echo strMsg
Next

set LogFileSet=nothing

免費繪圖軟體

Paint.Net (支援中文),
Pinta,與Paint.Net功能相近跨平台繪圖軟體

(開放源碼)TuxPaint提供簡易多功能界面(支援中文),能讓小朋友立即上手,並有多種圖案像皮圖章,我家5歲女兒非常喜歡用此軟體圖鴨
Drawing For Children

PhotoScape,安裝後即可以中文呈現,提供快速預覽功能,還可製作動畫GIF檔,先選擇第1張圖拖曳至"製作動畫"頁面,重覆將其它張圖分別拖曳至該頁面,即可免費產生動態圖檔,或處理多個圖檔(垂直或平行)拚貼處理,及影像處理功能

動畫GIF圖檔,依不同之Frame

(開放源碼)GIMP (支援中文)
GimPhoto

(開放源碼)InkScape
ICON圖鈕製作查詢

HeliosPaint,免費繪圖軟體,支援Windows/Linux/Mac等系統,需與Java Runtime Environment (JRE)系統軟體一起執行

FotoSketcher,圖片處理工具

(開放源碼) Dia流程圖繪製 (支援中文),
相關軟體
Edraw Mind Map,提供簡體中文版,可輸入繁體資料

(開放源碼)Gantt Chart甘特圖繪製 ,GanttProject (支援中文)

(開放源碼)FreeCAD,與AutoCAD類似相關功能之繪圖軟體
(開放源碼)BrlCad,與AutoCAD類似相關功能之繪圖軟體
(開放源碼)Librecad,Openscad,
roomeon,sweethome3d,3D室內繪圖

SystemDetect系統偵測軟體

Unknown Device Identifier,可提供未知裝置之相關辨識資訊(如:製造商名, OEM名稱,裝置類型,裝置模組及未知裝置明細資訊等)
Device Doctor,掃描裝置之驅動程式

提供系統偵測與硬體效能評估PcWizard

System Information Viewer除本身系統偵測外,另提供快速地偵測出區域網路內,執行中電腦之作業系統類型

Speccy,

HWiNFO32,可偵測電腦內所有硬體、主機板、記憶體,包含目前CPU、主機板溫度,及相關電壓

System Report 提供檢視OS作業系統及所安裝之軟硬體偵測

pc inventory software偵測目前電腦硬體安裝環境

SIW - System Information for Windows,使用者需13歲以上,僅能使用於個人環境,公司使用需付費

Free PC Audit,可顯示電腦硬體資訊、系統分享資料夾及Hotfix資訊、開機執行檔案、已安裝軟體、目前系統Process

Belarc Advisor印象中僅能使用於個人環境,公司使用需付費

電腦硬體主機CPU電壓、風扇轉速及溫度偵測軟體(SpeedFan、NextSensor、System Monitor II)

CoreTemp,可偵測CPU目前溫度軟體

自訂新增右鍵(ContextMenuHandlers)功能

安裝Shelltools軟體,自訂右鍵功能

或自行以Vb Script程式,自行指定ContextMenu
步驟1:備份自已的Registry,以避免不小心情況,更改到Registry導致電腦無法正常執行
步驟2:開啟記事本Notepad
步驟3:將下面程式碼貼在記事本Notepad上,並將附加檔案另存成VBS檔案類型

' ContextMenu.vbs
' 右鍵選單加入 'View with IE ,即開啟檔案選擇IE
' ------------------------------------------------------------------------
Option Explicit
Dim RegShell
Dim REG_HKCR_ALL

REG_HKCR_ALL = "HKCR\*\Shell"
Set RegShell = CreateObject("WScript.Shell")
'右鍵選單顯示提示字串(即View with IE)
RegShell.RegWrite REG_HKCR_ALL & "\IExplorer\", _
"View with &Inernet Explorer", _
"REG_SZ"
'指定您欲加入之右鍵呼叫程式
RegShell.RegWrite REG_HKCR_ALL & "\IExplorer\Command\", _
"C:\Program Files\Internet Explorer\IEXPLORE.EXE %1", _
"REG_EXPAND_SZ"

步驟4:點選該VBS檔,即可於檔案總管之任意檔按滑鼠右鍵,看到View with IE,意即以IE來開啟此檔

相關右鍵管理工具:
Fast Explorer
FileMenu Tools,安裝後,可提供多元右鍵功能(傳送到郵件,搬移,複製,修改時間,執行外加參數,分割等處理)

右鍵軟體參考資源

誤刪HKCR下面shell之相關機碼,
HKCR\Folder\shell\explore
%SystemRoot%\Explorer.exe /e,/idlist,%I,%L

HKCR_Folder_shell\explore\ddeexec

(預設值)[ExploreFolder("%l", %I, %S)]
HKCR\Folder\shell\open
%SystemRoot%\Explorer.exe /idlist,%I,%L

HKCR_Folder_shell\open\ddeexec

(預設值)[ViewFolder("%l", %I, %S)]

,將導致"檔案總管"點選'資料夾'圖示時,均變成命令提示列
還好透過預先 備份/還原 System機碼.回復回來

2008年4月15日 星期二

2008年4月14日 星期一

2008年4月15日星期二

2008年4月14日星期一