通补合计程序

最新推荐文章于 2025-03-15 00:00:00 发布
原创 最新推荐文章于 2025-03-15 00:00:00 发布 · 477 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#vba

本文介绍了一个用于批量处理和文件拆分的自动化脚本，该脚本能够打开指定目录下的工作簿，执行特定操作并保存结果。 
Private Sub LetDo_Click()
    Dim name, FilesName, pname As String
    '设置删选
    
    Dim iloc, Position As String
    Do
        Position = iloc '取得当前检测到的目标字符的位置
        iloc = InStr(iloc + 1, FilePath1, "\") '测试目标字符在这个字符串中有没有下个位置，如果没有就退出
    Loop Until iloc = 0
    FilesName = Right(FilePath1, Len(FilePath1) - Position) '取得文件名称
    
    On Error Resume Next
    If StrComp(Workbooks(FilesName).name, FilesName, 1) <> 0 Then
        Workbooks.Open (FilePath1) '打开文件
    End If
    Windows(FilesName).Activate
    
    '检查有所有sheet有没有符合要求
    Dim Ws As Worksheet
    Dim BName As String
    Dim ExitSheets As Boolean
    ExitSheets = True
    On Error Resume Next
    BName = "通补合计"
    Set Ws = ActiveWorkbook.Sheets(BName)
    If Ws Is Nothing Then
       MsgBox BName & " 表不存在"
       ExitSheets = False
    End If
    BName = "收入"
    Set Ws = ActiveWorkbook.Sheets(BName)
    If Ws Is Nothing Then
       MsgBox BName & " 表不存在"
       ExitSheets = False
    End If
    BName = "汇款"
    Set Ws = ActiveWorkbook.Sheets(BName)
    If Ws Is Nothing Then
       MsgBox BName & " 表不存在"
       ExitSheets = False
    End If
     BName = "网络开发"
    Set Ws = ActiveWorkbook.Sheets(BName)
    If Ws Is Nothing Then
       MsgBox BName & " 表不存在"
       ExitSheets = False
    End If
    BName = "单店产出"
    Set Ws = ActiveWorkbook.Sheets(BName)
    If Ws Is Nothing Then
       MsgBox BName & " 表不存在"
       ExitSheets = False
    End If
    
    '进入主处理程序
    If ExitSheets = True Then
        '取消各个sheet的vlookup
    '取消“通补合计”里的vlookup
        Sheets("通补合计").Select
        Range("C3:G60").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
     '取消“收入”里的vlookup
        Sheets("收入").Select
        Range("D6:E39").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("H6:I39").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("L6:M39").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            
    '取消“回款”里的vlookup
        Sheets("回款").Select
        Range("D6:E39").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("H6:I39").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("L6:M39").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
    '取消“网络开发”里的vlookup
        Sheets("网络开发").Select
        Range("D6:E39").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("H6:I39").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("L6:M39").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            
    '取消“单店产出”里的vlookup
        Sheets("单店产出").Select
        Range("D6:E39").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("H6:I39").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("L6:M39").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            
        Sheets("sheet1").Select
        Cells.Select
        Selection.Delete
        
        Sheets("收入").Select
        
            Rows("2:5").Select
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("2:5").Select
            ActiveSheet.Paste
            
        Sheets("回款").Select
        
            Rows("2:5").Select
            Application.CutCopyMode = False
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("8:11").Select
            ActiveSheet.Paste
            
        Sheets("网络开发").Select
        
            Rows("2:5").Select
            Application.CutCopyMode = False
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("16:19").Select
            ActiveSheet.Paste
            
        Sheets("单店产出").Select
        
            Rows("2:5").Select
            Application.CutCopyMode = False
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("24:27").Select
            ActiveSheet.Paste
            
             
        Dim i As Long
        Dim fgsname, sheetname As String
        For i = 6 To 39
            
        Sheets("收入").Select
        
            fgsname = Range("B" & i).Value
            Rows(i & ":" & i).Select
            Application.CutCopyMode = False
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("6:6").Select
            ActiveSheet.Paste
            
        Sheets("回款").Select
        
            Rows(i & ":" & i).Select
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("12:12").Select
            ActiveSheet.Paste
        
            
        Sheets("网络开发").Select
        
            Rows(i & ":" & i).Select
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("20:20").Select
            ActiveSheet.Paste
            
        Sheets("单店产出").Select
        
            Rows(i & ":" & i).Select
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("28:28").Select
            ActiveSheet.Paste
        
           
            Cells.Select
            Selection.Copy
            Workbooks.Add
            Cells.Select
            ActiveSheet.Paste
            Application.DisplayAlerts = False
               ActiveWorkbook.SaveAs FileName:=FilePath2 & fgsname & "2014年上半年产品总考核得分.xls", _
                FileFormat:=xlExcel8, WriteResPassword:="", _
                ReadOnlyRecommended:=False, CreateBackup:=False
            sheetname = fgsname & "2014年上半年产品总考核得分.xls"
            Windows(FilesName).Activate
            Sheets(Array("通补合计")).Select
            Application.CutCopyMode = False
            
            Sheets("通补合计").Select
            Cells.Select
            Selection.Copy
            Workbooks(sheetname).Activate
            
            Sheets.Add After:=ActiveSheet
            Sheets("Sheet2").Select
            Cells(1, 1).Select
            ActiveSheet.Paste
            Sheets("Sheet2").name = "通补合计"
            
        
            Sheets("Sheet1").Select
            Sheets("Sheet1").name = fgsname
            Workbooks(sheetname).Save
            ActiveWorkbook.CheckCompatibility = False
         
            ActiveWindow.Close
             Windows(FilesName).Activate
            

        Next
       
       MsgBox "拆分完成"
    End If
End Sub

Private Sub OpenFile_Click()
    FilePath1 = Application.GetOpenFilename()
End Sub

Private Sub SaveFile_Click()
    '通过打开文件夹的形式取得文件夹路径
    Dim strPath As String
    Dim MyFileDialog As FileDialog
    Set MyFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    '当对话框关闭时".show=-1"
    If MyFileDialog.Show = -1 Then
    '使用循环显示选取文件的路径和名称
    For Each vrtSelectedItem In MyFileDialog.SelectedItems '遍历在对话框中选择的多个文件夹，其实只能选择一个文件夹
    strPath = vrtSelectedItem
    Next
    End If
    FilePath2 = strPath & "\"
End Sub

Public Function SheetExists(BName As String)
    Dim Ws As Worksheet
    On Error Resume Next
    Set Ws = ActiveWorkbook.Sheets(BName)
    If Ws Is Nothing Then
       MsgBox BName & " 表不存在"
    End If
End Function


Public Function SubCompany()
  
        Sheets("sheet1").Select
        Cells.Select
        Selection.Delete
        
        Sheets("收入").Select
        
            Rows("2:5").Select
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("2:5").Select
            ActiveSheet.Paste
            
        Sheets("回款").Select
        
            Rows("2:5").Select
            Application.CutCopyMode = False
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("8:11").Select
            ActiveSheet.Paste
            
        Sheets("网络开发").Select
        
            Rows("2:5").Select
            Application.CutCopyMode = False
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("16:19").Select
            ActiveSheet.Paste
            
        Sheets("单店产出").Select
        
            Rows("2:5").Select
            Application.CutCopyMode = False
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("24:27").Select
            ActiveSheet.Paste
            
             
        Dim i As Long
        Dim fgsname, sheetname As String
        For i = 6 To 39
            
        Sheets("收入").Select
        
            fgsname = Range("B" & i).Value
            Rows(i & ":" & i).Select
            Application.CutCopyMode = False
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("6:6").Select
            ActiveSheet.Paste
            
        Sheets("回款").Select
        
            Rows(i & ":" & i).Select
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("12:12").Select
            ActiveSheet.Paste
        
            
        Sheets("网络开发").Select
        
            Rows(i & ":" & i).Select
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("20:20").Select
            ActiveSheet.Paste
            
        Sheets("单店产出").Select
        
            Rows(i & ":" & i).Select
            Selection.Copy
            Sheets("Sheet1").Select
            Rows("28:28").Select
            ActiveSheet.Paste
        
           
            Cells.Select
            Selection.Copy
            Workbooks.Add
            Cells.Select
            ActiveSheet.Paste
            ActiveWorkbook.SaveAs FileName:=FilePath2 & fgsname & "2014年上半年产品总考核得分.xlsx", _
                FileFormat:=xlExcel12, WriteResPassword:="", _
                ReadOnlyRecommended:=False, CreateBackup:=False
            sheetname = fgsname & "2014年上半年产品总考核得分.xlsx"
            Windows(FilesName).Activate
            Sheets(Array("通补合计")).Select
            Application.CutCopyMode = False
            
            Sheets("通补合计").Select
            Cells.Select
            Selection.Copy
            Workbooks(sheetname).Activate
            
            Sheets.Add After:=ActiveSheet
            Sheets("Sheet2").Select
            Cells(1, 1).Select
            ActiveSheet.Paste
            Sheets("Sheet2").name = "通补合计"
            
        
            Sheets("Sheet1").Select
            Sheets("Sheet1").name = fgsname
            Workbooks(sheetname).Save
            ActiveWorkbook.CheckCompatibility = False
         
            ActiveWindow.Close
            
            Windows(FilesName).Activate

        Next
End Function

Windows中c盘占用太满了，如何解决？看此文你就通了！
**My Coding Family**
05-11 2036
🏆 本文收录于《全栈Bug调优(实战版)》专栏，致力于分享我在项目实战过程中遇到的各类Bug及其原因，并提供切实有效的解决方案。无论你是初学者还是经验丰富的开发者，本文将为你指引出一条更高效的Bug修复之路，助你早日登顶，迈向财富自由的梦想🚀！同时，欢迎大家关注、收藏、订阅本专栏，更多精彩内容正在持续更新中。让我们一起进步，Up！Up！Up！    备注： 部分问题/难题源自互联网，经过精心筛选和整理，结合数位十多年大厂实战经验资深大佬经验总结所得，数条可行方案供所需之人参考。
xlinx提供的测试驱动及程序dma_rw.exe.读取数据超过32K字节存在异常，如何解决？
**My Coding Family**
06-09 1596
🏆 本文收录于《全栈Bug调优(实战版)》专栏，致力于分享我在项目实战过程中遇到的各类Bug及其原因，并提供切实有效的解决方案。无论你是初学者还是经验丰富的开发者，本文将为你指引出一条更高效的Bug修复之路，助你早日登顶，迈向财富自由的梦想🚀！同时，欢迎大家关注、收藏、订阅本专栏，更多精彩内容正在持续更新中。让我们一起进步，Up！Up！Up！    备注： 部分问题/难题源自互联网，经过精心筛选和整理，结合数位十多年大厂实战经验资深大佬经验总结所得，数条可行方案供所需之人参考。
恶补电脑知识
想当运维的程序猿
06-10 3876
一、电脑构成及各零件作用： 台式机 = 主机+外设   主机： 主板、CPU、显卡、内存、硬盘、电源、散热、机箱 （主板+CPU+显卡的花费占到主机整体花费的60%以上）   外设： 显示器、鼠标、键盘、耳机、音箱 例如下面的配置图： 主板： 用来将其他各项硬件连接起来 CPU： 用于处理数据 显卡（GPU）： 用于处理图像 内存： 存储运行程序的数据 硬盘（固态硬盘、机械硬盘）： 存储数据 电源： 提供电 散热器： 对CPU进行散热 机箱： 保护各项硬件 二、看懂电脑配置： 主板
程序理财指南
Debroon
02-24 3338
钱往往不是单独来的，跟着而来的，还有更广阔的眼界，更宽容、更积极和更正面的心态。 我想，我要么去搞钱，要么就去搞文化。 这篇文章是搞钱的。 观念 我们中的绝大多数人是从父母那里了解钱是怎么回事的。 一对贫困的父母在培养孩子的理财观念时，只会说：“在学校里要好好学习喔，努力学习能去世界500强公司工作”。 结果，他们的孩子可能会以优异的成绩毕业，但同时也秉承了贫穷父母的理财方式...
程序员撩妹篇
weixin_42677762的博客
12-05 4624
在社交软件上不会和女孩子开场聊天，这是很多兄弟都会遇到的问题，在还 没开始聊天之前总是会纠结很多，导致一开场全程都是尬聊，或者一开场和 妹子打了招呼，根本收不到妹子的回复。 之所以很多兄弟不会和女孩开场，就是因为受到男性思维的惯性影响，再加 上想要迫切的了解对方，一开场基本就是问问题的开场“在干嘛？”“吃了 吗？”“你多大了？”这些问问题的开场都是在赤裸裸的索取价值。 今天就和大家分享究竟什么样的开场才吸引女生？既能愉快的和妹子进入聊 天，又能高价值的展示自己。 一、描述状态 用生动形象的语言描述状态开场，
职业总结（产品篇）
快乐并努力工作
06-27 1338
职业总结（产品篇）产品整体介绍“你的系统都建了哪些数据字典？哪些数据结构？“这是1999年进入毕业季的我在毕业答辩上导师提的问题，虽然产品的每句代码都是我一个一个字母敲的（照抄书本）、每个功能都是在学校微机房调试多次（技术太差、环境太差，一结合问题就更多），但还是不能自信的答复。但作为我的第一个完整产品《红娘管理系统》，也算是迈出代码生涯的第一步。截止2022年，我累计参与设计、开发了101个产品，648个用户单位，涉及铁路、卫生、广电、学校等行业。从1999年的1年1个产品，到2014年的
C++《面向对象程序设计课程设计》
程序设计
11-04 5886
面向对象程序设计课程设计》课程说明适用专业：计算机科学与技术课程周数：5周一、根据计算机科学与技术专业人才培养方案制订。（一）课程设计性质课程设计是学生对课程所学知识的综合运用，它与课堂听讲、上机实验、课外练习、自学研究相辅相成，构成一个完整的课程教学体系。（二）主要先修课程和后续课程。
研报精选230312
廖廖亦泛泛
03-12 1717
目录 【行业230312中航证券】军工行业周报：成交回暖、关注提升【行业230312山西证券】煤炭行业周报：年报业绩快报密集披露，关注超预期个股【行业230312中航证券】航天产业月报：卫星产业迎来高光时刻，关注业绩兑现持续性【行业230312山西证券】煤炭行业周报：年报业绩快报密集披露，关注超预期个股【个股230312安信证券_红相股份】红相股份：军用微波组件订单饱满，新能源业务快速发展【个股230312开源证券_一诺威】北交所新股申购报告：深耕聚氨酯领域，浇注型聚氨酯全国制造业单项冠军 【行业2303
C++程序设计综合实验任选题目(29题)[2024-07-01]
程序设计
08-07 851
汽车在停车场内按车辆达到时间的先后顺序，依次由北向南排列（大门在最南端，最先的达到的第一辆车停放在车场的最北端），若车场内已停满 n 辆汽车，则后来的汽车只能在门外的便道上等待，一旦有车开走，则排在便道上的第一辆车即可开入；否则，输入要删除的人员的编号，根据所输入的信息删除该人员记录，如果没有找到该人员信息，则提示相应的记录不存在。该类包括员工的编号、姓名、性别、年龄、参加工作时间、部门、职务、联系方式、奖金、扣发工资和基本工资等属性，还包括对员工基本信息的录入、显示和计算实发工资等功能。
基于Linux的机器人运动控制系统设计
**My Coding Family**
03-15 1137
🏆本文收录于「编程与技术实战」专栏，此专栏涵盖了C/C++编程、人工智能、数据结构、机器学习等技术领域的内容，助你早日登顶实现财富自由🚀；同时，欢迎大家关注&&收藏&&订阅！持续更新中，up！up！up！！
新库上线 | CnOpenData-ESIEC中国企业创新创业调查数据简介
CnOpenData的博客
07-19 2293
ESIEC中国企业创新创业调查数据 目录）ESIEC中国企业创新创业调查数据一、数据简介二、字段展示2020年02月网络问卷信息表v2.02020年02月样本库问卷v2.02020年05月网络问卷信息表v2.02020年05月样本库问卷信息表v2.02020年05月样本库问卷信息表v2.12017年问卷信息表v0.52017年问卷信息表v0.6三、样本数据2020年02月网络问卷信息表v2.0四、参考文献五、数据更新频率 一、数据简介   中国企业创新创业调查（Enterprise Survey for I
springboot智能在线预约挂号系统【附万字论文+PPT+包部署+录制讲解视频】.zip
09-05
标题SpringBoot智能在线预约挂号系统研究AI更换标题第1章引言介绍智能在线预约挂号系统的研究背景、意义、国内外研究现状及论文创新点。1.1研究背景与意义阐述智能在线预约挂号系统对提升医疗服务效率的重要性。1.2国内外研究现状分析国内外智能在线预约挂号系统的研究与应用情况。1.3研究方法及创新点概述本文采用的技术路线、研究方法及主要创新点。第2章相关理论总结智能在线预约挂号系统相关理论，包括系统架构、开发技术等。2.1系统架构设计理论介绍系统架构设计的基本原则和常用方法。2.2SpringBoot开发框架理论阐述SpringBoot框架的特点、优势及其在系统开发中的应用。2.3数据库设计与管理理论介绍数据库设计原则、数据模型及数据库管理系统。2.4网络安全与数据保护理论讨论网络安全威胁、数据保护技术及其在系统中的应用。第3章SpringBoot智能在线预约挂号系统设计详细介绍系统的设计方案，包括功能模块划分、数据库设计等。3.1系统功能模块设计划分系统功能模块，如用户管理、挂号管理、医生排班等。3.2数据库设计与实现设计数据库表结构，确定字段类型、主键及外键关系。3.3用户界面设计设计用户友好的界面，提升用户体验。3.4系统安全设计阐述系统安全策略，包括用户认证、数据加密等。第4章系统实现与测试介绍系统的实现过程，包括编码、测试及优化等。4.1系统编码实现采用SpringBoot框架进行系统编码实现。4.2系统测试方法介绍系统测试的方法、步骤及测试用例设计。4.3系统性能测试与分析对系统进行性能测试，分析测试结果并提出优化建议。4.4系统优化与改进根据测试结果对系统进行优化和改进，提升系统性能。第5章研究结果呈现系统实现后的效果，包括功能实现、性能提升等。5.1系统功能实现效果展示系统各功能模块的实现效果，如挂号成功界面等。5.2系统性能提升效果对比优化前后的系统性能
基于机器学习方法的信用风险评估体系构建与实现
09-05
在金融行业中，对信用风险的判断是核心环节之一，其结果对机构的信贷政策和风险控制策略有直接影响。本文将围绕如何借助机器学习方法，尤其是Sklearn工具包，建立用于判断信用状况的预测系统。文中将涵盖逻辑回归、支持向量机等常见方法，并通过实际操作流程进行说明。 一、机器学习基本概念 机器学习属于人工智能的子领域，其基本理念是通过数据自动学习规律，而非依赖人工设定规则。在信贷分析中，该技术可用于挖掘历史数据中的潜在规律，进而对未来的信用表现进行预测。 二、Sklearn工具包概述 Sklearn（Scikit-learn）是Python语言中广泛使用的机器学习模块，提供多种数据处理和建模功能。它简化了数据清洗、特征提取、模型构建、验证与优化等流程，是数据科学项目中的常用工具。 三、逻辑回归模型 逻辑回归是一种常用于分类任务的线性模型，特别适用于二类问题。在信用评估中，该模型可用于判断借款人是否可能违约。其通过逻辑函数将输出映射为0到1之间的概率值，从而表示违约的可能性。 四、支持向量机模型 支持向量机是一种用于监督学习的算法，适用于数据维度高、样本量小的情况。在信用分析中，该方法能够通过寻找最佳分割面，区分违约与非违约客户。通过选用不同核函数，可应对复杂的非线性关系，提升预测精度。 五、数据预处理步骤 在建模前，需对原始数据进行清理与转换，包括处理缺失值、识别异常点、标准化数值、筛选有效特征等。对于信用评分，常见的输入变量包括收入水平、负债比例、信用历史记录、职业稳定性等。预处理有助于减少噪声干扰，增强模型的适应性。 六、模型构建与验证 借助Sklearn，可以将数据集划分为训练集和测试集，并通过交叉验证调整参数以提升模型性能。常用评估指标包括准确率、召回率、F1值以及AUC-ROC曲线。在处理不平衡数据时，更应关注模型的召回率与特异性。 七、集成学习方法 为提升模型预测能力，可采用集成策略，如结合多个模型的预测结果。这有助于降低单一模型的偏差与方差，增强整体预测的稳定性与准确性。 综上，基于机器学习的信用评估系统可通过Sklearn中的多种算法，结合合理的数据处理与模型优化，实现对借款人信用状况的精准判断。在实际应用中，需持续调整模型以适应市场变化，保障预测结果的长期有效性。 资源来源于网络分享，仅用于学习交流使用，请勿用于商业，如有侵权请联系我删除！
橙色s（）_Orange's一个操作系统的实现(随书光盘).zip
09-05
橙色s（）_Orange's一个操作系统的实现(随书光盘).zip
perl-Hash-Flatten-1.19-26.el8.tar.gz
最新发布
09-05
# 适用操作系统：Centos8 #Step1、解压 tar -zxvf xxx.el8.tar.gz #Step2、进入解压后的目录，执行安装 sudo rpm -ivh *.rpm
jackson-dataformat-smile-2.20.0.jar中文-英文对照文档.zip
09-05
1、压缩文件中包含： 中文-英文对照文档、jar包下载地址、Maven依赖、Gradle依赖、源代码下载地址。 2、使用方法： 解压最外层zip，再解压其中的zip包，双击 【index.html】 文件，即可用浏览器打开、进行查看。 3、特殊说明： （1）本文档为人性化翻译，精心制作，请放心使用； （2）只翻译了该翻译的内容，如：注释、说明、描述、用法讲解 等； （3）不该翻译的内容保持原样，如：类名、方法名、包名、类型、关键字、代码 等。 4、温馨提示： （1）为了防止解压后路径太长导致浏览器无法打开，推荐在解压时选择“解压到当前文件夹”（放心，自带文件夹，文件不会散落一地）； （2）有时，一套Java组件会有多个jar，所以在下载前，请仔细阅读本篇描述，以确保这就是你需要的文件。 5、本文件关键字： jar中文-英文对照文档.zip,java,jar包,Maven,第三方jar包,组件,开源组件,第三方组件,Gradle,中文API文档,手册,开发手册,使用手册,参考手册。
Source code for common plots in various languages_libraries_
09-05
Source code for common plots in various languages_libraries_ R (base, ggplot2, rCharts) Python (matplotlib, seaborn, ggplot, bokeh, vincent), MATLAB, and Julia (Gadfly).zip
C语言的本息合计程序设计
03-14
非常感谢您的提问，以下是 C 语言的本息合计程序设计： #include #include int main() { double principal, rate, time, interest, amount; printf("请输入本金："); scanf("%lf", &principal); printf(...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值