ActiveX Data Objects (ADO) 让我们能够用一个工具来操作SQL Server, Access DB, Worksheet

ADO有很多用法，首先介绍一个：把excel中的表用SQL语法来处理

使用ADO流程是

• 建立连接
• 写SQL语句
• 执行SQL语句

要使用ADO，首先要打开编辑VBA的界面，上面的菜单栏里面有一个是Tools，点击Tools, 里面找到reference。勾选上Microsoft ActiveX Data Objects 6.1 Library（如果没有6.1版本，也可以用2.8版本）

建立连接的基本语法如下

Dim Con as new ADODB.Connection
Con.Open "Connection string" 
        '运行SQL语句
Con.Close

这里的connection string需要根据不同的Excel版本确定

https://www.connectionstrings.com/ 这个网站提供了不同情况下需要用到的connection string

我的excel版本是2016，我用的connection string如下

strFileName=ThisWorkbook.Fullname
"Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & strFileName & "; Extended Properties=""Excel 12.0 Macro;HDR=Yes"";"

就可以成功连接到目前用的工作表啦

大家都知道如何安装CRAN的R包，只要输入

install.packages("包名称")

就可以直接从CRAN下载包啦！
但是有的包CRAN中没有，只有Github版本。这个时候我们需要用一个叫做devtools的工具帮我们的忙啦！
一般的流程是

install.packages('devtools')

library(devtools)

devtools::install_github("你要下载的包的github网页路径")

但是我自己实际测试之中出现了如下的Bug：

Error: Failed to install 'unknown package' from GitHub:
schannel: failed to receive handshake, SSL/TLS connection failed

好叭。
只能手动从Github下载包辽。
下载好zip文件解压之后之后在R中输入如下指令：

install("解压后的文件路径")

大功告成！

第二步是运行SQL。首先讲讲SELECT要怎么用

• 创建新对象：Recordset，用于储存SELECT运行出来的结果

Dim rs As New ADODB.Recordset
'如果你想要运行SQL的表是一个命了名的区域
strSQL="SELECT * FROM range"
’如果要运行的表是一整个worksheet
‘如果数据超过65536行，由于一个excel bug，只能用下面这种方法引用表
strSQL="SELECT * FROM [Sheet1$\$$]"
'如果是一个未命名区域
strSQL="SELECT * FROM [Sheet1$\$$A1:O60]"
'con是刚刚用到的ADO connection
rs.Open strSQL, con
rs.Close

• 把运行出来的结果保存到一个新建的excel表

Dim ws As Worksheet
        Set ws = output 'Application.Sheets.Add
        ws.Cells.ClearContents
        'Write the header
        Dim i As Long
        For i = 0 To rs.Fields.Count - 1
            ws.Cells(1, i + 1).Value2 = rs.Fields(i).Name
        Next i
        ws.Range("A2").CopyFromRecordset rs

完整代码如下

Sub ADOBD_SELECT()
Dim strFileName As String
Dim ConnectionString As String
'Fullname means the folder path is included
strFileName = ThisWorkbook.FullName

'From website https://www.connectionstrings.com/
'HDR=Yes -> my data set has heading
ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & strFileName & "; Extended Properties=""Excel 12.0 Macro;HDR=Yes;"";"

Dim conn As New ADODB.Connection
'Recordset: where the result of the query will be placed
Dim rs As New ADODB.Recordset
Dim strSQL As String
'Write the query
strSQL = Range("Query")
conn.Open ConnectionString
        rs.Open strSQL, conn
        Dim ws As Worksheet
        Set ws = output 'Application.Sheets.Add
        ws.Cells.ClearContents
        'Write the header
        Dim i As Long
        For i = 0 To rs.Fields.Count - 1
            ws.Cells(1, i + 1).Value= rs.Fields(i).Name
        Next i
        ws.Range("A2").CopyFromRecordset rs
        rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing
End Sub

大家好，我是珂珂，好久不见。

除了忙于精算工作外，最近我成为了IFoA吐槽发声组织(Voice Group)的成员。想就此机会来征集一下大家对协会有什么意见和建议。

我了解很多人在成为IFoA Fellow的过程中，很多同学都有，或曾有过退却的打算。这让我想起我上次想退坑，还是在上次。作为一个刚刚工作不久的打工人，我非常能够理解。

但是路毕竟是人走出来的。IFoA是一个愿意听大家的意见去变得更好的组织。只要愿意，我们都可以成为推动变革的一部分。和大家征集上来的意见，最终可以递交给IFoA喔~

你喜欢IFoA的什么

• 学校可以免考一些科目
• 协会代表亲切友善
• 反馈问题时，能够及时处理
• 就业上有很多帮助
• 其它 （欢迎留言）

你不喜欢IFoA的什么

• 考试太难啦
• 考试太多啦
• 活动太少
• 考的人太少，没法抱团
• 没有网上的学习资源
• 没有合适的反馈渠道
• 考试费用 / 会费太贵
• 不受雇主认可
• 其它 （欢迎留言）

想要IFoA 提供什么

• 安排和Senior交流的机会
• 多一些社交活动
• 多一些网上的教学资源
• 其它 （欢迎留言）

参数定义：

• y, q
  vector of quantiles

• p
  vector of probabilities

• n
  the number of observations

• xi
  the value of xi such that the variance is var(Y) = phi * mu^xi

• power
  a synonym for xi

• mu
  the mean

• phi
  the dispersion

• exact
  logical flag; if TRUE (the default), exact zeros are used with the W-algorithm of Sidi (1982); if FALSE, approximate (asymptotic) zeros are used in place of exact zeros. Using asymptotic zeros requires less computation but is often less accurate; using exact zeros can be slower but generally improves accuracy.

• method
  either 1, 2 or 3, determining which of three methods to use to compute the density using the inversion method. If method is NULL (the default), the optimal method (in terms of relative accuracy) is used, element-by-element of y. See the Note in the Details section below

Tweedie分布介绍：随机变量是N个服从Gamma分布的数值的和。其中N服从泊松分布。

Tweedie分布会以一定的概率生成数值为0的样本。因此Tweedie分布也适合理赔的建模。

R base package "stat"不包含Tweedie这个分布。但是有一个R包可以帮助我们 -- tweedie

安装好后用下面的函数就可以了：

library(tweedie)
set.seed(987654)
y <- rtweedie( 20, xi = 1.5, mu = 1, phi = 1)

语法是

rtweedie(n, xi=NULL, mu, phi, power=NULL)

其中xi和power必须要有一个。

选择内容，调整顺序

有五种常见的文章结构，不过用的最多的还是Top-Down或者Bottom-Up。
我比较喜欢的是用Top-Down的方式-- 先给结论然后再给论证。一般考官会找结论句，它能够占至少一分

• Top Down

1. 写出文章的结论，推荐接下来的行动
2. 写这样推荐的原因
3. 列出相关的事实

• Bottom Up

1. 介绍这篇文章的目的
2. 回顾当下状况
3. 找到问题
4. 列出或者形容现有的可能选项
5. 做出结论
6. 推荐接下来怎么做
7. 问听众有没有什么问题

如何回答为什么挑选这些信息 / 为什么选择这种结构的题目

留下一个题目：如何选择右下的三角形呢？欢迎大家提供答案~ 示例文件如下供大家参考~
Triangle example.zip

代码的实现思路是横向把每个小矩形加入到三角形之中。

Sub LTTriangle() 

’row和col用来定义选择的矩形的长和宽

Dim row As Integer
Dim col As Integer

row = Selection.Rows.Count
col = Selection.Columns.Count

'rg是一个工具范围，用来做reference

Dim rg As Range
'targetRg用来储存我们最后要得到的三角形范围

Dim targetRg As Range

Dim i As Integer

'初始化
'Selection代表选择的范围；rg是选择的范围的左第一列

Set rg = Selection.Resize(row, 1)
Set targetRg = Selection.Resize(row, 1)

'逐渐把每个小矩形加入到目标三角形

For i = 1 To col - 1

   If row - i > 0 Then Set targetRg = Union(targetRg, rg.Offset(0, i).Resize(row - i, 1))
    
Next i

'选择已经定义好的范围

targetRg.Select

End Sub

IBNR计算的过程中，我们常常遇到的一个问题是左上的三角和右下的三角公式不同。
这个时候如果我们想要粘贴公式，就需要手动选择一个三角形的范围并粘贴。

手动选择三角形的范围这个工作，我们可以通过宏来实现。

这个宏可以实现如下功能，以左上三角形为例，当选择一个正方形或者矩形区域时：

运行代码后可以得到一个如下的上三角区域。

当然，如果选择的是一个矩形

仍然可以运行代码得到一个不完整的上三角形

之后可以尝试利用这些例子
https://bert-toolkit.com/bert-example-functions
来学习Bert的使用

我实验了

Drawing Maps

生成地图的例子，运行上是没有问题的。

之后有趣的项目会再更新

如何安装需要的包

由于Bert只能支持到R3.5.0，所以在安装任何包前都要先运行下面的Code：

local({r <- getOption("repos")
r["CRAN"] <- "https://cran.microsoft.com/snapshot/2019-04-15/" 
options(repos=r)
})

如果还不行可以修改里面的日期来改变安装的包的版本。我自己安装ggplot的过程基本就需要在各个版本之间反复横跳，最后终于成功。

然后可以直接在R console敲入install.packages("想要的包的名字")
以ggplot为例：

install.packages("ggplot2")