M的部落格

ASDASD

--====================== 不常用SQL語法======================--

-- 修改資料欄位型態

----------------------------------------------------------------------

<script src="https://gist.github.com/michaelctwk/11d75bf00b5c2bd08b78.js"></script>

1、查找重複內容公式：

     =IF(COUNTIF(A:A,A2)>1,"重複","")。

2、用出生年月來計算年齡公式：

    =TRUNC((DAYS360(H6,"2009/8/30",FALSE))/360,0)。

3、從輸入的18位身份證號的出生年月計算公式：

    =CONCATENATE(MID(E2,7,4),"/",MID(E2,11,2),"/",MID(E2, 13,2))。

4、從輸入的身份證號碼內讓系統自動提取性別，可以輸入以下公式：

    =IF(LEN(C2)=15,IF(MOD(MID(C2,15,1),2)=1,"男","女"),IF(MOD(MID(C2,17,1), 2)=1,"男","女"))公式內的「C2」代表的是輸入身份證號碼的單元格。

1、求和： =SUM(K2:K56) ——對K2到K56這一區域進行求和；

2、平均數： =AVERAGE(K2:K56) ——對K2 K56這一區域求平均數；

3、排名： =RANK(K2，K$2:K$56) ——對55名學生的成績進行排名；

4、等級： =IF(K2>=85,"優",IF(K2>=74,"良",IF(K2>=60,"及格","不及格")))

5、學期總評： =K2*0.3+M2*0.3+N2*0.4 ——假設K列、M列和N列分別存放著學生的「平時總評」、「期中」、「期末」三項成績；

6、最高分： =MAX(K2:K56) ——求K2到K56區域（55名學生）的最高分；

7、最低分： =MIN(K2:K56) ——求K2到K56區域（55名學生）的最低分；

8、分數段人數統計：
（1） =COUNTIF(K2:K56,"100") ——求K2到K56區域100分的人數；假設把結果存放於K57單元格；
（2） =COUNTIF(K2:K56,">=95")－K57 ——求K2到K56區域95～99.5分的人數；假設把結果存放於K58單元格；
（3）=COUNTIF(K2:K56,">=90")－SUM(K57:K58) ——求K2到K56區域90～94.5分的人數；假設把結果存放於K59單元格；
（4）=COUNTIF(K2:K56,">=85")－SUM(K57:K59) ——求K2到K56區域85～89.5分的人數；假設把結果存放於K60單元格；
（5）=COUNTIF(K2:K56,">=70")－SUM(K57:K60) ——求K2到K56區域70～84.5分的人數；假設把結果存放於K61單元格；
（6）=COUNTIF(K2:K56,">=60")－SUM(K57:K61) ——求K2到K56區域60～69.5分的人數；假設把結果存放於K62單元格；
（7） =COUNTIF(K2:K56,"<60") ——求K2到K56區域60分以下的人數；假設把結果存放於K63單元格；
  說明：COUNTIF函數也可計算某一區域男、女生人數。
  如：=COUNTIF(C2:C351,"男") ——求C2到C351區域（共350人）男性人數；

9、優秀率： =SUM(K57:K60)/55*100

10、及格率： =SUM(K57:K62)/55*100

11、標準差： =STDEV(K2:K56) ——求K2到K56區域(55人)的成績波動情況（數值越小，說明該班學生間的成績差異較小，反之，說明該班存在兩極分化）；

12、條件求和： =SUMIF(B2:B56,"男"，K2:K56) ——假設B列存放學生的性別，K列存放學生的分數，則此函數返回的結果表示求該班男生的成績之和；

13、多條件求和： =SUM(IF(C3:C322="男",IF(G3:G322=1,1,0)))

     ——假設C列（C3:C322區域）存放學生的性別，G列（G3:G322區域）存放學生所在班級代碼（1、2、3、4、5），則此函數返回的結果表示求一班的男生人數；

<script src="https://gist.github.com/michaelctwk/7fb4620e5acd5e803ad0.js"></script>

Imports System.Data

Imports System.Net.Mail

Imports System.IO

Public Class MailFunction

'連線錯誤訊息

[Login Failed.  Check for valid user ID, server name and password  Native Error code: 4002]

解決方式：

加上[Persist Security Info=True]

<addname="ConnectionString"connectionString="Provider=Sybase.ASEOLEDBProvider.2;Server Name=DB;User ID=AUTO;Password=666;Initial Catalog=TWN;Persist Security Info=True"providerName="System.Data.OleDb"/>

SQL-Server

Access

Case When Sex='1' Then 'G'

Else 'M' End

IIF(Sex='1','G','M')

------------------------------[VBA程式碼]---------------------------------

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

'讀取INI檔

Dim ret As Long

'找尋目前檔案路徑

Dim FullPath As Object

Dim CurrentProject As Object

Dim Path As Object

FullPath = CurrentDb.Name