搜尋此網誌

2015年10月18日

金石堂的「賣家」

在逛街時突然接到電話。

「+227?這是哪門子的電話號碼,喂?」

「您好,陳先生嗎?我是金石堂的賣家,我想……」

我長長地嘆了一口氣,心想這一回我又被用幾塊錢賣給詐騙集團了呢?可能連幾毛錢都有問題吧。

「金石堂不是拍賣平台,沒有賣家。」我好想教他這一點。

2015年10月16日

儲存 Excel 指定區域為 bat 批次檔

我平常習慣用 Excel 彙總資料並產生批次的語法,但每次都要重複以下的步驟:
  1. 複製函數產生的命令指令
  2. 將指令貼到記事本軟體
  3. 另存成 .bat 批次檔案
  4. 執行 bat 檔案

透過以下這段語法,可以將選擇 Excel 函數產生出來的結果複製成 bat 檔案。

Sub myTSave()
Dim myFolder As String
'By Joe Was.
'Save Range as Text File.

ActiveSheet.Activate
'Ask user to select range for text file.
Set myRange = Application.InputBox(prompt:="請選擇要儲存的資料範圍!", _
Title:="Text File Range!", Type:=8)
myRange.Select
Selection.Copy
'This temporarily adds a sheet named "Test."
Workbooks.Add
Sheets.Add.Name = "Test"
Sheets("Test").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Ask user for folder to save text file to.
myFolder = Application.GetSaveAsFilename(fileFilter:="Text Files (*.bat), *.bat")
'Save selected data as text file in users selected folder.
ActiveWorkbook.SaveAs Filename:=myFolder, FileFormat:=xlText, CreateBackup:=False
'Remove temporary sheet.
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ActiveWorkbook.Close savechanges:=False
'Indicate save action.
MsgBox "複製指令檔: " & myFolder & " 儲存成功!"
'Go to top of sheet.
Range("A1").Select
End Sub


Ref.



2015年10月4日

眼鏡答客問

眼鏡要怎麼清洗
用水洗,用點清潔劑沙拉脫之類的把眼鏡洗乾淨,用不留下棉絮的紙巾吸乾水份,別用紙巾擦拭以免留下刮痕。

為什麼眼鏡不能用眼鏡布擦
因為眼鏡布只是店家賣給你時避免刮傷的布,它本身的防刮效果不好,細緻度也不夠。

不能用眼鏡布,我該拿什麼擦拭
用光學拭鏡紙,最好用一張丟一張

為什麼不能重複使用的好眼鏡布呢
一者是價格太高,另外一個就是布料沾到灰塵跟油漬,再度清洗過效果就更不佳,不如用拋棄式的

我不想那麼浪費,有沒有便宜的方法
有,用水洗XD(Loop)