Excel 妙招紀錄

問題:
請問一下唷！！
今天如果我有一個EXCEL的表單
假如說我表單裡面有1000筆資料
我要按照儲存格的順序由上往下
每五筆資料抽第五筆資料出來當抽樣
也就是說我要抽第一，六，十一....資料出來
降子要怎摸做壓！！

Ans : B1=OFFSET($A$1,5*ROW()-5,)
-----------------------------------------------------------------
問題我目前在做一個工作：「統計課室各課員的年齡」，不過手邊資料只有出生年月日。
我把各課員的出生年份在excel打成一欄，想用excel弄個「2006 - 欄參數(ex:1975)」，
以算出所有課員的年齡。

Ans: 那年齡一欄的公式只要輸入： =YEAR(TODAY())-YEAR(A2)
(使用TODAY()函數就不用每年修改公式了)

但這時B2的顯示可能會自動顯示為日期格式
這不會是你所要的內容, 而會是 1900/1/27 00:00

這時要把『年齡』一欄的日期格式取消：
在B2按右鍵→儲存格格式→數值→類別選為『G/通用格式』或『數值』格式
-----------------------------------------------------------------
問題:
有一份excel班表如下，12/1 A
12/2 B
12/3 A
....... 12/30 D
又另一份表格，要列出每天值班比如說 12/1 需填入A ， 12/30需填入D
重點來了，各部門每天值班的人都不一樣，每天都填一班表按日期填入人名
要花好多時間，能不能讓表格自己抓取呢？

Ans:
那可以直接在C2輸入以下公式：
=VLOOKUP(B2,Sheet2!A$1:B$4,2,0)

語法：=VLOOKUP([搜尋值],[來源範圍],[傳回資料為第n欄],[接近值或完全符合])
其中，搜尋值必需是來源範圍的最左邊一欄。
最後的[接近值或完全符合]，
如果輸入0=搜尋值必需完全符合來源範圍最左欄才會傳回值
輸入1=只要部份符合，即傳回最上面一筆的值

輸入完成後再把C2複製到資料尾端就好了
-----------------------------------------------------------------
問題:

是這樣的~
如果我在某儲存格輸入"AGTCTTGCGTATGCAACCG"

我要再另外4格計算上個字串中，含G/A/T/C分別的數量 (答案是5/4/5/5)
Ans:
若在[A1]儲存格 有"AGTCTTGCGTATGCAACCG"字串

要計算"G"的數量，語法如下:
=LEN(SUBSTITUTE(A1,"G","GX"))-LEN(A1)
-----------------------------------------------------------------

Excel 抓取檔案範例

將某個目錄的測試檔案數值自動抓取到 Excel 表格內

Sub nn()
Dim Ar(), MyPath$, Op$, MyStr$, fs$, MyAr, A, s&
MyPath = "D:\SAVE\2008-11-26\"
fs = Dir(MyPath & "*.txt")
While fs <> ""
Op = MyPath & fs
Open Op For Input As #1
Do While Not EOF(1)
Input #1, MyStr
If MyStr <> "" Then
ReDim Preserve Ar(s)
Ar(s) = MyStr
s = s + 1
End If
Loop
A = Split(Join(Ar, Chr(10)), "! !")
MyAr = Split(A(UBound(A)), Chr(10))

[IV1].End(xlToLeft).Offset(, 1).Resize(UBound(MyAr) + 1, 1) = Application.Transpose(MyAr)

'[A65536].End(xlUp).Offset(1, 0).Resize(UBound(MyAr) + 1, 1) = Application.Transpose(MyAr)
Close #1
Erase Ar: s = 0
fs = Dir
Wend
End Sub

解 MSN 病毒的程式

最近 MSN 都收到莫名的連結, 當然知道那是病毒, 所以就在網路上搜尋了一下, 感謝 Ant 大大有提供解毒劑. 在這邊特地備份起來以防我電腦以後用的到。

1. 下載 KillVirus-47 並解壓縮。

解壓縮後，執行 03_checkVirus.cmd 檢查是否有中這些病毒。
顯示 Virus/Trojan/Malware is cleaned 字樣則表示沒有中此類病毒，則不須此解毒劑。反之則繼續往下執行。

開始解毒

注意，執行此程式系統會重開機，請先儲存重要檔案。

解壓縮後，執行 04_killvirus.cmd
刪掉的檔案或註冊碼會儲存在 KillVirus\backups 目錄裡
確認解毒是否成功

重開機完成後，再次執行 03_checkVirus.cmd 程式。它會檢查是否將病毒成功移除。
若成功移除會顯示 Virus/Trojan/Malware is cleaned 字樣，否則是 still exist 字樣。

不過其他的有些防毒程式, 會建一個病毒名稱的目錄以防病毒寫入,
這時候 KillVirus 這支程式會判斷該目錄為病毒, 並且把他移除.

Excel 巨集 - 跳著取資料.

是否有想要在 Excel 中做到
B1 =A1
B2 =A3
B3 =A5
B4 =A7
B5 =A9

可以用這個巨集
Sub FillAndSkip()

Dim CellToCopy As Range
Dim n As Integer
Dim x As Integer

n = Val(InputBox("Increment relative references by how many cells?"))
Set CellToCopy = Selection.Cells(1)

For x = 2 To Selection.Rows.Count

' COPY the formula to a cell n cells down to update relative
' references.
CellToCopy.Copy
CellToCopy.Offset(n, 0).Range("A1").Select
ActiveSheet.Paste

' CUT and paste to the desired destination so the references don't
' change.
Application.CutCopyMode = False
Selection.Cut
CellToCopy.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
' Start from the formula just created to get the next formula.
Set CellToCopy = Selection
Next x
End Sub

好用的 flickr 工具

ㄧ些 flickr 的工具

webdev.yuan.cc/famaker.php
製作相本的好工具(有兩百張的限制)

flickr.tw/lfvr
可以找出超過兩百張之後的連結

陸續增加中

ㄧ些小祕技

電腦預覽影片檔會當掉大家都知道應該是解碼的問題,
可是又找不出來的時候可以用
regsvr32 /u shmedia.dll 來把預覽的功能解除.

WinXP 都會內建 MSN 4.7
可以用 rundll32 advpack.dll launchinfsection %windir%\inf\msmsgs.inf,blc.remove 把它拿掉

WinXP 可以用下列指令來達到自動登入的功能
control userpasswords2

執行 msconfig 可以暫停一些服務和刪除一些開機的執行路徑

執行 dxdiag 呼叫出 DirectX 的診斷工具.