导航

    精算后花园

    • 注册
    • 登录
    • 搜索
    • 版块
    • 最新
    • 话题
    • 热门
    • 用户
    • 群组
    1. 主页
    2. Mengkelyu
    3. 主题
    M
    • 资料
    • 关注
    • 粉丝
    • 主题
    • 帖子
    • 最佳
    • 群组

    Mengkelyu 创建的主题

    • M

      (感谢Judy同学投稿) 经验分析学习笔记(英文)
      实务交流 (Work experience) • • Mengkelyu  

      1
      0
      赞同
      1
      帖子
      7
      浏览

      尚无回复

    • M

      [调查] 做精算师的大家,对刚刚入行/想入行的学生有什么建议?
      实务交流 (Work experience) • • Mengkelyu  

      1
      0
      赞同
      1
      帖子
      18
      浏览

      尚无回复

    • M

      AI终于要取代精算师了??Excel公式解释,VBA自动编写神器
      Excel & VBA • • Mengkelyu  

      7
      0
      赞同
      7
      帖子
      10
      浏览

      M

      解释公式:
    • M

      如何在Excel中使用ChatGPT
      Excel & VBA • • Mengkelyu  

      3
      0
      赞同
      3
      帖子
      8
      浏览

      M

      代码部分 Option Explicit Const key = "your key" # 这里写入我们在准备工作中拿到的API Key Sub SendQuestionToGPT3() 'Declare variables Dim request As Object Dim response As String Dim API As String API = key #这里我们把问题放到了B3里面 Dim question As String question = """" & Range("B3").Value & """" #创建HTTP request Set request = CreateObject("MSXML2.XMLHTTP") #设置HTTP 请求 request.Open "POST", "https://api.chatanywhere.com.cn/v1/chat/completions", False request.setRequestHeader "Content-Type", "application/json" request.setRequestHeader "Authorization", "Bearer " & API request.send "{""model"": ""gpt-3.5-turbo"",""messages"": [{""role"": ""user"", ""content"": " & question & "}],""temperature"": 0.7 }" #解析返回值,这里用到了我们刚刚import进去的library response = request.responseText response = Replace(response, "[{", "{") response = Replace(response, "}]", "}") Dim ParsedResponse As Object Set ParsedResponse = JsonConverter.ParseJson(response) #把返回的答案输入到excel里面 Range("B6").Value = ParsedResponse("choices")("message")("content") 'Clean up the object Set request = Nothing End Sub
    • M

      必备精算师攻略 – 解决问题常用的MindSet
      实务交流 (Work experience) • • Mengkelyu  

      1
      0
      赞同
      1
      帖子
      10
      浏览

      尚无回复

    • M

      [提问] IFRS17中CSM是否在Contract Recognition时存在重复计算
      实务交流 (Work experience) • • Mengkelyu  

      2
      0
      赞同
      2
      帖子
      13
      浏览

      M

      @Sherry: csm和fullilment cf在initial recognition的时候通常会互为相反数。你可以把初始的csm理解为是在计算出fullilment cf并且知道合同组盈利的情况下把它变为不赚不赔状态的一个金额。 就像这张图第二行写的,csm本质上就是个unearned profit。 @Mengke 之所以在contract开始的时候合同组的financial要变成是0,是因为service还没有真正发生。 所以 CSM + fullilment cf 在一年的变化就是这一年提供保险服务所获得的利润。 又可以被分成insurance revenue, insurance service expenses,insurance finance income or expenses。
    • M

      [提问] 是否能够通过久期和即期利率估计现金流现值和现金流绝对值和的比例?
      实务交流 (Work experience) • • Mengkelyu  

      1
      0
      赞同
      1
      帖子
      8
      浏览

      尚无回复

    • M

      如何把Workbook中的Formula都存成值
      Excel & VBA • • Mengkelyu  

      1
      0
      赞同
      1
      帖子
      3
      浏览

      尚无回复

    • M

      [小技巧] 如何快速批量复制粘贴并重命名文件(Windows)
      数据科学 (Data science) • • Mengkelyu  

      1
      0
      赞同
      1
      帖子
      3
      浏览

      尚无回复

    • M

      VBA 常见快捷键,Windows VS Mac
      Excel & VBA • • Mengkelyu  

      1
      0
      赞同
      1
      帖子
      8
      浏览

      尚无回复

    • M

      VBA字符串模糊匹配 Version 2 (支持中文)
      Excel & VBA • • Mengkelyu  

      1
      0
      赞同
      1
      帖子
      9
      浏览

      尚无回复

    • M

      R Cox 分析可不可以计算生存时间?[To be Continued]
      R • • Mengkelyu  

      1
      0
      赞同
      1
      帖子
      5
      浏览

      尚无回复

    • M

      常用代码速查表
      R • • Mengkelyu  

      1
      0
      赞同
      1
      帖子
      5
      浏览

      尚无回复

    • M

      如何用VBA做一个Weekly的Email Alert
      Excel & VBA • • Mengkelyu  

      5
      0
      赞同
      5
      帖子
      6
      浏览

      M

      Email reminder public.zip
    • M

      CP3 导引篇
      CP1-3 • • Mengkelyu  

      3
      0
      赞同
      3
      帖子
      7
      浏览

      M

      说了这么多,其实CP3考试最大的要点还是多练习,多比较答案和自己写的内容的不同。 我也提供一对一CP3咨询和课程服务。会在第一节课主要讲考试技巧,之后的课程专注于考试练习。详情可以联系公众号后台。
    • M

      如何用代码实现从SQL Server导出数据
      SQL • • Mengkelyu  

      3
      0
      赞同
      3
      帖子
      5
      浏览

      M

      另外,可以参考这个StackOverflow的问题把这个sqlcmd封装到sql Script里面
    • M

      [SoA 官方工具系列一] 经验分析计算工具
      实务交流 (Work experience) • • Mengkelyu  

      2
      0
      赞同
      2
      帖子
      17
      浏览

      M

      经验分析工具篇 介绍: https://www.soa.org/resources/tables-calcs-tools/experience-study-tool/ 文档: https://www.soa.org/49378a/globalassets/assets/files/research/experience-study-calculations.pdf 工具: https://view.officeapps.live.com/op/view.aspx?src=https%3A%2F%2Fwww.soa.org%2F49378e%2Fglobalassets%2Fassets%2Ffiles%2Fresearch%2F2016-10-experience-study-calculations-workbook.xlsx&wdOrigin=BROWSELINK
    • M

      用VBA抽取一个文件夹中所有Excel并合并成一个Sheet
      Excel & VBA • • Mengkelyu  

      4
      0
      赞同
      4
      帖子
      14
      浏览

      M

      第一步我们要把这个读入工作表名和读出工作表名的map读入宏。可以这么写。这里是选择了Parameters这个工作表里面"A1"按住Ctrl+A选中的区域,并通过Offset向下移一格,然后用resize减少一行;这样可以去掉读入的表标题。 Dim mapping As Variant With ThisWorkbook.Worksheets("Parameters").Range("A1").CurrentRegion mapping = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Value End With 那么我们就把下面这个表储存到mapping这个变量里面啦 然后我们定义一个变量用来储存每个读出的数据总数,这里我们需要三组变量;因此这应该是一个有三个数字的数组。 Dim cntrows As Variant ReDim cntrows(UBound(mapping, 1)) 最后一步就是循环每个工作薄里面的每个工作表,如果这个工作表名能和Map里面的第一列任意一个匹配,那么它就会被输出到Map里面第二列对应的工作表内。 For Each st In wbResults.Worksheets For i = 1 To UBound(mapping, 1) If st.Name = mapping(i, 1) Then rng = st.UsedRange.Value ThisWorkbook.Worksheets(mapping(i, 2)).Range("A1").Offset(cntrows(i), 0).Resize(UBound(rng, 1), UBound(rng, 2)).Value = rng cntrows(i) = cntrows(i) + UBound(rng, 1) End If Next i 完整代码 Sub Copyfrom_all_excel_files_in_folder() Dim FoldPath As String Dim DialogBox As FileDialog Dim FileOpen As String Dim rng As Variant On Error Resume Next Set DialogBox = Application.FileDialog(msoFileDialogFolderPicker) If DialogBox.Show = -1 Then FoldPath = DialogBox.SelectedItems(1) End If Application.ScreenUpdating = False Application.DisplayAlerts = False 'read the mapping to the macro Dim mapping As Variant With ThisWorkbook.Worksheets("Parameters").Range("A1").CurrentRegion mapping = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Value End With Dim cntrows As Variant ReDim cntrows(UBound(mapping, 1)) Dim i As Integer ' If the output sheet does not exist create it For i = 1 To UBound(mapping, 2) If WorksheetExists(mapping(i, 2)) = False Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = mapping(i, 2) Next i On Error GoTo 0 If FoldPath = "" Then Exit Sub FileOpen = Dir(FoldPath & "\*.xls*") Do While FileOpen <> "" Set wbResults = Workbooks.Open(FoldPath & "\" & FileOpen, UpdateLinks:=0, ReadOnly:=True) For Each st In wbResults.Worksheets For i = 1 To UBound(mapping, 1) If st.Name = mapping(i, 1) Then rng = st.UsedRange.Value ThisWorkbook.Worksheets(mapping(i, 2)).Range("A1").Offset(cntrows(i), 0).Resize(UBound(rng, 1), UBound(rng, 2)).Value = rng cntrows(i) = cntrows(i) + UBound(rng, 1) End If Next i Next wbResults.Close FileOpen = Dir Loop Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Function WorksheetExists(ByVal shtName As String, Optional ByVal wb As Workbook) As Boolean Dim sht As Worksheet If wb Is Nothing Then Set wb = ThisWorkbook On Error Resume Next Set sht = wb.Sheets(shtName) On Error GoTo 0 WorksheetExists = Not sht Is Nothing End Function Copy_to_excel - V2.zip
    • M

      Python 中加号的有趣行为
      Python • • Mengkelyu  

      1
      0
      赞同
      1
      帖子
      7
      浏览

      尚无回复

    • M

      [求助] Altair 如何显示部分X轴标签
      Python • • Mengkelyu  

      5
      0
      赞同
      5
      帖子
      8
      浏览

      M

      Reference: https://altair-viz.github.io/user_guide/generated/core/altair.Axis.html https://vega.github.io/vega/docs/expressions/