financial KPI for profitibility

From Evernote:

financial KPI for profitibility

Clipped from: http://finance.yahoo.com/q/ks?s=BIDU+Key+Statistics

profitibility

return on Sales (ROS)
return on Asset (ROA)
return on Equity (ROE)

Return on Sales(ROS)=EBIT/Sales
Return on Assets〔ROA)≡EBIT/Average Total Assets
EBIT/(﹙Total Assets(t﹣l)+Total Assets(t))/2)

Return on Equity(ROE)=Net Income/Average Total Shareholders Equity

PE Ratio: Price/Earning Ratio

therefore much lower much better

*** check by siri
what’s Apple’s PE ratio? 13.20
what’s micorsoft’s PE ratio? around 14
what’s Baidu’s P/E ratio? 21.68
what’s google’s PE ratio? 21.41

financial KPI for profitibility

From Evernote:

financial KPI for profitibility

profitibility

return on Sales (ROS)
return on Asset (ROA)
return on Equity (ROE)

Return on Sales(ROS)=EBIT/Sales
Return on Assets〔ROA)≡EBIT/Average Total Assets
EBIT/(﹙Total Assets(t﹣l)+Total Assets(t))/2)

Return on Equity(ROE)=Net Income/Average Total Shareholders Equity

PE Ratio: Price/Earning Ratio

therefore much lower much better

getobject 不好玩 createobject and shell 好玩 D DEInitiate第一次玩

From Evernote:

getobject 不好玩 createobject and shell 好玩 DDEInitiate第一次玩

Clipped from: https://www.google.com/search?q=%22Excel.Sheet%22+getobject+winword&pws=0

Sub startultraedit()
Dim RetVal

‘RetVal = Shell("D:WindowsSystem32sndrec32.exe", 1)
RetVal = Shell("F:Program FilesUltraEdit10.20ue1020b5uedit32.exe", 1)

End Sub

Sub StartWord()
Dim W_App As Object, myRange As Object
Set W_App = CreateObject("word.application")

With W_App
.Visible = True
.documents.Open ("C:test.docx")
.documents("test.docx").Bookmarks("我在這裡").Select
With .Selection
.paragraphformat.Alignment = 1
.Font.Bold = True
.Font.Size = 18
.Font.Color = vbRed
End With
End With
End Sub

Sub DDE_Get()

Dim Word_CHN, RetFile
Word_CHN = DDEInitiate(app:="winword", topic:="C:test.docx")
On Error Resume Next
DDEExecute Word_CHN, "[startofdocument]"
DDEExecute Word_CHN, "[linedown 2,3]"
DDEExecute Word_CHN, "[editcopy]"
Range("B3").Select
ActiveSheet.Paste
End Sub

Sub test()
Dim thisobject As Object

Set thisobject = GetObject("c:test2.xlsx", "Excel.Sheet").ActiveSheet

set thisojbect2 = getobject("c:test.doc","Word.Application").
thisobject.Range("A1") = "test3"
thisobject.Range("A2") = "test3"

thisobject.Range("A3") = "test3"
thisobject.Range("A4") = "test3"
thisobject.Range("A5") = "test3"

thisobject.Calculate
thisobject.Visible = True
End Sub

Sub test()
Dim thisobject As Object

‘Set thisobject = GetObject("c:test2.xlsx", "Excel.Sheet").ActiveSheet
‘Set thisobject = GetObject("c:test.docx", "Word.Application").ActiveDocument

Dim word As Object
Dim doc As Object
Dim appwd As Object

Set appwd = GetObject(, "Word.Application")
appwd.Visible = True
With appwd
.documents.Add

End With

With appwd
.PrintOut

End With

‘appwd.Selection.Paste

With appwd.ActiveDocument
.SaveAs2 "C:autogenr.doc"

.Close
End With

End Sub

test.xlsm

test.docx

getobject 不好玩

From Evernote:

getobject 不好玩

Clipped from: https://www.google.com/search?q=%22Excel.Sheet%22+getobject+winword&pws=0

Sub test()
Dim thisobject As Object

Set thisobject = GetObject("c:\test2.xlsx", "Excel.Sheet").ActiveSheet

set thisojbect2 = getobject("c:\test.doc","Word.Application").
thisobject.Range("A1") = "test3"
thisobject.Range("A2") = "test3"

thisobject.Range("A3") = "test3"
thisobject.Range("A4") = "test3"
thisobject.Range("A5") = "test3"

thisobject.Calculate
thisobject.Visible = True
End Sub

Sub test()
Dim thisobject As Object

‘Set thisobject = GetObject("c:\test2.xlsx", "Excel.Sheet").ActiveSheet
‘Set thisobject = GetObject("c:\test.docx", "Word.Application").ActiveDocument

Dim word As Object
Dim doc As Object
Dim appwd As Object

Set appwd = GetObject(, "Word.Application")
appwd.Visible = True
With appwd
.documents.Add

End With

With appwd
.PrintOut

End With

‘appwd.Selection.Paste

With appwd.ActiveDocument
.SaveAs2 "C:\autogenr.doc"

.Close
End With

End Sub

zip all files and mail vbs

From Evernote:

zip all files and mail vbs

Dim fso,thispath,SearchMask
Dim fsoFile
Dim tfolder, tname, tfile
dim myOlApp, myItem, myRecipient, myCCRecipient, objOutlookAttach
Recipientname="your
ccReceiptname="cc@mail.com"

set fso= wscript.CreateObject("wscript.shell")
‘到D槽 ‘fso.run "cmd /K cd /D d:"
‘到特地的目錄 ‘ fso.run "cmd /K cd /D D:\dropbox\Dropbox\CSE timesheet\2013_Time_Sheet\America & C:\Program Files\WinRAR\WINRAR.exe A -IBCK America.RAR *.*"

for regioni = 1 to 10

Select Case regioni
Case 1
intstartj = 4
intendj = 10
strRegion = "America"

Case 2
intstartj = 11
intendj = 43
strRegion = "China"

Case 3

intstartj = 44
intendj = 49
strRegion = "Europe"

Case 4
intstartj = 50
intendj = 55
strRegion = "Japan"

Case 5

intstartj = 56
intendj = 76
strRegion = "Korea"

Case 6
intstartj = 77
intendj = 89
strRegion = "Malaysia"

Case 7
intstartj = 90
intendj = 98
strRegion = "Philippines"

Case 8
intstartj = 99
intendj = 107
strRegion = "Singapore"

Case 9
intstartj = 108
intendj = 141
strRegion = "Taiwan"

Case 10
intstartj = 142
intendj = 147
strRegion = "Thailand"

End Select

cmd = """c:\program files\winrar\winrar.exe"" a " & strRegion & "20121121.rar" & " *.*"
‘cmd = """c:\program files\winrar\winrar.exe"" a " & ZIPPATH & BackupFileName & " " & PATHNAME & FILE & "*.xls"

fso.run "cmd /K cd /D D:\dropbox\Dropbox\CSE timesheet\2013_Time_Sheet\" & strRegion & " & " & cmd

next

set fso= nothing

for regioni = 1 to 10

Select Case regioni
Case 1
intstartj = 4
intendj = 10
strRegion = "America"

Case 2
intstartj = 11
intendj = 43
strRegion = "China"

Case 3

intstartj = 44
intendj = 49
strRegion = "Europe"

Case 4
intstartj = 50
intendj = 55
strRegion = "Japan"

Case 5

intstartj = 56
intendj = 76
strRegion = "Korea"

Case 6
intstartj = 77
intendj = 89
strRegion = "Malaysia"

Case 7
intstartj = 90
intendj = 98
strRegion = "Philippines"

Case 8
intstartj = 99
intendj = 107
strRegion = "Singapore"

Case 9
intstartj = 108
intendj = 141
strRegion = "Taiwan"

Case 10
intstartj = 142
intendj = 147
strRegion = "Thailand"

End Select
WScript.Sleep 12000

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myRecipient = myItem.Recipients.Add(Recipientname)
Set myCCRecipient = myItem.Recipients.Add(ccReceiptname)

Set objOutlookAttach = myItem.Attachments.Add("D:\dropbox\Dropbox\CSE timesheet\2013_Time_Sheet\" & strRegion & "\" & strRegion &"20131121.rar")

‘myCCRecipient.Type = olCC
myItem.Subject = "2013 " & strRegion & " CSE Timesheet "
myItem.Body = " "
myItem.Display

next

TEST CASE SIMULATE THE REAL DATA FOR 2013 TIMESHEET

From Evernote:

TEST CASE SIMULATE THE REAL DATA FOR 2013 TIMESHEET

Sub workouttimesheettestfile()


monthi = 1
intFront = 4

For monthi = 1 To 12

Select Case monthi
Case 1, 3, 5, 7, 8, 10, 12
intMonthdays = 31

Case 4, 6, 11, 9
intMonthdays = 30

Case 2
intMonthdays = 29

End Select

intEnd = 4 * intMonthdays + (intFront – 1)

Low = intFront
High = intEnd

For j = 1 To 3

myvalue = Int((High – Low + 1) * Rnd() + Low)

Range("P" & myvalue).Value = Int((24 – 1 + 1) * Rnd() + 1)

Range("H" & myvalue).Value = " Corp"
Range("I" & myvalue).Value = "ProCu"
Range("I" & myvalue).Value = "Copper"

Next j
intFront = intEnd + 3

For j = 1 To 3

myvalue = Int((High – Low + 1) * Rnd() + Low)

Range("AM" & myvalue).Value = Int((24 – 1 + 1) * Rnd() + 1)

Range("H" & myvalue).Value = "TI -Dallas"
Range("I" & myvalue).Value = "ConnX-LED"
Range("I" & myvalue).Value = "Gold"

Next j

For j = 1 To 3

myvalue = Int((High – Low + 1) * Rnd() + Low)

Range("AJ" & myvalue).Value = Int((10 – 1 + 1) * Rnd() + 1)

Range("H" & myvalue).Value = "Fort Washington"
Range("I" & myvalue).Value = ""
Range("I" & myvalue).Value = ""

Next j

Next monthi

End Sub

玉山的意義

From Evernote:

玉山的意義

Clipped from: http://crazeroost.pixnet.net/blog/post/24456687-%E7%8E%89%E5%B1%B1%E4%BB%A3%E8%A1%A8%E7%9A%84%E5%8F%B0%E7%81%A3%E7%B2%BE%E7%A5%9E

玉山位處太平洋一隅,但並不孤單,造訪過它的人,從運動選手到科學家,並非專業登山家的特權。

玉山高聳卻不冷酷,歡迎人們與它親近,正如同台灣這塊土地上的人民,熱情好客。

玉山並非最高,其生態多樣性卻很著名,有豐富的生態景觀,正如同台灣雖小,卻包容各種族群文化,也歡迎著外來客。

vbs call vbs

From Evernote:

vbs call vbs

Dim SH, txtFolderToOpen
Set SH = WScript.CreateObject("Shell.Application")

for regioni = 1 to 10

Select Case regioni
Case 1
intstartj = 4
intendj = 10
strRegion = "America"
replace_column="C"

Case 2
intstartj = 11
intendj = 43
strRegion = "China"
replace_column="D"

Case 3

intstartj = 44
intendj = 49
strRegion = "Europe"
replace_column="E"

Case 4
intstartj = 50
intendj = 55
strRegion = "Japan"
replace_column="F"

Case 5

intstartj = 56
intendj = 76
strRegion = "Korea"
replace_column="G"

Case 6
intstartj = 77
intendj = 89
strRegion = "Malaysia"
replace_column="H"

Case 7
intstartj = 90
intendj = 98
strRegion = "Philippines"
replace_column="I"

Case 8
intstartj = 99
intendj = 107
strRegion = "Singapore"
replace_column="J"

Case 9
intstartj = 108
intendj = 141
strRegion = "Taiwan"
replace_column="K"

Case 10
intstartj = 142
intendj = 147
strRegion = "Thailand"
replace_column="L"

End Select

Dim objShell
Set objShell = CreateObject("WScript.Shell")

objShell.CurrentDirectory = "D:\dropbox\Dropbox\CSE timesheet\2013_Time_Sheet\" & strRegion

WScript.Echo objShell.CurrentDirectory

objShell.Run "Fix_Definiation_Dropdown_Cusomter_" & strRegion &".vbs"

WScript.Sleep 120000

‘ Using Set is mandatory
Set objShell = Nothing

Set SH = Nothing

next

linux ssh

From Evernote:

linux ssh

Subject: linux ssh
From: Tsai, Fei Ting Silvia
To: silviatsaipatta@gmail.com
Date Sent: 11/20/2012 5:22:53 PM

cd /usr/local/src

gzip -dc sshxxx.tar.gz|tar -xvf

./configure

make

make install

***start up script startupscript(OS)

/etc/rc*·d

/etc/rc*.d

/etc/rc*.d

/etc AIX

/etc/rc*.d

/etc/rc·d SlackwareLinux

﹩ssh -f -e host.com xload

$ssh -n -c host.com xclock &

﹩ssh -p 2022 host.com

﹩scp user@source:/directory/file user@destination:/directory/file

url to reference

http://fTp·cshut·fi/pub/ssh

ftp://fTp.cshut.fi/pub/ssh

http://www」ysator」iu‧se/~nisse∕archive/

http://fy.chalmers.se/~appro/ssh-beyond.thml

http://ftpcshut·fI/pub/ssh/contrib

http://ftp.parc.xerox.com/pub/jean/sshsdi/

ftp;//ftp·cs.columbia-edu/pub/carson/

http://www.ncsa·uiucedu/General/CC/ssh/

patch-repositorv/

http://www·ncsa.uiuc.edu/General/CC/ssh/

patch-rep0sitorv/

http://www.ncsa.uiuc.edu/General/CC/ssh

patch-repository/

http://www.ncsa.uiuc.edu/GeneraI/CC/ssh/

patch╴repository/

http;//www.ncsa.uiuc‧edu/General/CC/ssh∕

patch-repository/

http://www.ncsa‧uiuc.edu/General/CC/ssh/

patch╴repository/

http://www.ncsa·uiuc.edu/General/CC/ssh/

patch╴repository