股票交易表格制作（股票交易表格）

admin 2022-11-17 131阅读 2评论

温馨提示：这篇文章已超过456天没有更新，请注意相关的内容是否还可用！

今天给各位分享股票交易表格的知识，其中也会对股票交易表格制作进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

1、哪位使用Excel高手能帮我设计一个股票盈亏一览表？

2、股票交易记录表怎么写

3、如何下载股票历史成交数据到Excel或txt

4、如何做股票交易记录表

哪位使用Excel高手能帮我设计一个股票盈亏一览表？

现在越来越多的人炒卖股票和基金，证券公司交易系统提供的个人账户有基本的进出盈亏信息，但是到了晚上就无法查看，自己下班后有空了却无法分析。

手工计算？费时费神，容易出错。现在好了，用Excel2007设计一个“股票买卖盈亏计算表”，完全免费，直观又方便，比交易系统信息更详细，还可以方便地用Excel2007进行其他相关计算。以下以A股为例，B股、H股或基金的设计思路相似。

提示：此表是目前中国A、B股交易时的收费标准，把相关数据填写到盈亏计算表的A2：H2区域中，可作为计算盈亏必要参数。以后当证监会对收费标准有改变时，只要在此表修改帽应的数值即可。

搭建框架

第一步：在表l的A4：P4区域中，输入如“股票代码”、“股票名称”等标题。

第二步：选择A列、B列、C列和P列，在“开始”选项中选择“单元格”选项卡-“格式”选项-“设置单元格格式”命令，打开“设置单元格格式”对话框，在“数字”标签中选择“文本”，因为这些区域数据均属于“文本”格式数据（如图1所示）。

（图1）

第三步：选择E列至I列、K列至N列，在“数字”标签中选择“数值”，“小数位数”选择“2”，“负数（N）”选择“-1234.1O”项。再用类似方法设置J列为3位小数“数值”型数据，设置J列为2位小数位数的“百分比”型数据，设置B2、E2、H2三个单元格为l位小数位“百分比”型数据，设置C2单元格为2位小数“数值”型数据（如图2所示）。

（图2）

盈亏结果轻松得

在AS：E5区域中，输入如“600021”、“上海电力”等实际买入股票的信息。

在F5中输入=IF（D5.E5.$H$2，$C$2，D5.E5.$B$2，$C$2），即当按成交金额计算出的佣金D5.E5.$B$2大于最低应交佣金$C$2单元格中的值（5元）时，则取本数值，否则按5元收取。

在G5中输入=D5.E5.$H$2，即按成交金额计算出应收取印花税。

在H5中输入=IFILEFT（A5，l）=“6”，IF（D5.$E$2$F$2，D5.$E$2，$F$2），O），其中LEFT（A5，l）=“6”表示当所买股票为上海A股时，则要按IF（D5.$E$2$F$2，D5.$E$2，SF$2 ）函数式计算过户费用，否则就属于深圳A股股票，不收取过户费用。

在I5中输入=F5+G5+H5，即买入时应收取的总费用为前面三项费用之和。

在J5中输入=E5+15/D5，即计算出含买入费用的每股“成本价”。

在K5中输入=F5.D5+15，即计算出“实际投入资金”。

在M5中输入=IF （D5.L5.$B$2.$C$2.D5.L5.$B$2.$C$2）+D5.L5.$H$2+H5，这是卖出时三项费用总和，参考F5、G5、H5、I5四个单元格的公式便可更好理解此公式含义。

在N5中输入=（L5-E5）。D5-I5-M5，即计算出此笔买卖的盈亏额。

在O5中输入=N5/K5，即计算出此笔买卖的盈亏百分比。

在M2中输入“盈亏总数”，在N2单元格输入=SUM（NS：N3004），即计算出至今所有股票买卖的（注不大于3000次）盈亏总数。

至此，“盈亏计算表”设计完成，只要在L5输入实际“卖出单价”，就会自动计算出本次买卖盈亏额及盈亏百分比，分别显示于N5和05单元格中。为了更好地做好买卖统计工作，最后还要在P5单元格录入“卖出时间”。

以上是完成一次交易的过程，以后的交易则依次在第6行、第7行……单元格中录入相应买卖数据，“计算表”就会自动计算相应的盈亏情况。

股票交易表格制作（股票交易表格）

股票交易记录表怎么写

通达信版本的话 ,输入快捷键7,既可以调出投资日记,,点击撰写,就可以写日志了

范文如下：

连续的杀跌使我们看到市场人气极其低落，以至于全天的交易量沪市仅有的700亿创三个月来的量能新低，指数受到了2700点的强烈抵抗，因此这个点位证明是个重要的支撑点，不可被破否则大势继续看空。现在发布指数点位预测明日强压力位2742点，明日强支撑点在2687点，周压力点位在2830点，本月强阻力位在2950点，总体来讲，本人对后市较为乐观，预计节前应该有大的反弹行情，因此并不发布周低点和月低点。月高点定得有点高必须上涨150点才能达到，但离春节尚有10个交易日以上，行情变数多多。

本人对有色金属情有独钟，原因是目前股票市场和商品市场已经形成一定程度的背离，一方面是商品市场供小于求的局面没有根本的改变，一方面是股票市场的领导股被集体看空做空，有色金属的牛市背景依然存在，正是商品期货不断被推高的根本所在，而中国的宏观经济依旧向好的格局也没有改变，如此支撑牛市的因素都在的情况下，股票市场和商品市场的背离应该会被市场纠正，这就是我一直说的纠错行情。

本人的擒龙斩首行动组中保持第一名的是祁连山，今日调出了表现优异的第二名000401冀东水泥，调入了第二名600362江西铜业，这是一只我们一直高度关注的股票，近阶段从进攻型的组合中选入擒龙斩首52组合中，我相信它在近期会有不错的表现。

如何下载股票历史成交数据到Excel或txt

以华中智能股票软件为例：（以Think pad X13 锐龙版笔记本电脑，Windows 10 操作为例）首先切换到要下载数据的股票K线形态，按“F1”进入“日线某某股票历史成交”，点击鼠标右键-数据导出-导出所有数据-在“请选择导出的类型”中选择excel或txt

补充资料：

如何获取所有股票历史数据：

如果要对股市进行分析，首先就要获取所有股票的历史数据，只有通过股票的历史数据，我们才能分析出股市的规律。

（以Think pad X13 锐龙版笔记本电脑，Windows 10 操作为例）

一、工具/原料

1、EXCEL2007或者以上版本，不能使用WPS

2、电脑1g内存1核处理器及以上配置

3、拥有较强逻辑分析能力以及少量智慧及以上的大脑一颗

方法/步骤：

第一步，获取股票代码，复制其中一部分到第一个工作表A4到A127，然后通过程序把每一个代码写入到不同的工作表A2位置，并对该工作表以该股票代码命名。程序如下：

Sub 工作表命名()

For i = 4 To 127

Sheets(i).Range("a2") = "'"Sheets(1).Range("a"i)

Next i

For i = 4 To Sheets.Count

Sheets(i).Name = Sheets(i).Range("a2").Value

End Sub

第二步，获取股票历史数据。代码如下：

Private Function GetSource(sURL As String) As String

Dim oXHTTP As Object

Set oXHTTP = CreateObject("MSXML2.XMLHTTP")

oXHTTP.Open "GET"， sURL， False

oXHTTP.Send

GetSource = oXHTTP.responsetext

Set oXHTTP = Nothing

End Function

Sub 历史数据()

Dim objXML As Object

Dim txtContent As String

Dim i As Integer

Dim strCode As String

Dim gp As String

Dim kaishihang

Dim arr， arr1， arr2， arr3， arr4， arr5， arr6， arr7， arr8， arr9， arr10， arr11

On Error Resume Next

EndRow = Range("a65536").End(xlUp).Row

startRow = 4

If startRowRange(Cells(startRow， 1)， Cells(EndRow， 11)).Value = ""

Else

Exit Sub

End If

Set objXML = CreateObject("Microsoft.XMLHTTP")

gp = [A2]

For h = 1 To 4

For m = 1 To 4

kaishihang = [A65535].End(xlUp).Row

nian = Replace(Str(Year(Now) + 1 - h)， " "， "")

jidu = Replace(Str(4 + 1 - m)， " "， "")

With objXML

.Open "GET"， "" + gp + ".html?year=" + nian + "season=" + jidu + ""， False

.Send

If objXML.Status = 200 Then

txtContent = .responsetext

arr = Split(txtContent， "'")

For i = 1 To UBound(arr)

arr1 = Split(arr(i)， "

Cells(i + kaishihang， 1) = Right(Left(arr1(0)， 10)， 10)

arr2 = Split(arr1(1)， Chr(60))

Cells(i + kaishihang， 2) = Mid(arr2(0)， InStr(arr2(0)， "") + 1)

arr3 = Split(arr1(2)， Chr(60))

Cells(i + kaishihang， 3) = Mid(arr3(0)， InStr(arr3(0)， "") + 1)

arr4 = Split(arr1(3)， Chr(60))

Cells(i + kaishihang， 4) = Mid(arr4(0)， InStr(arr4(0)， "") + 1)

arr5 = Split(arr1(4)， Chr(60))

Cells(i + kaishihang， 5) = Mid(arr5(0)， InStr(arr5(0)， "") + 1)

arr6 = Split(arr1(5)， Chr(60))

Cells(i + kaishihang， 6) = Mid(arr6(0)， InStr(arr6(0)， "") + 1)

arr7 = Split(arr1(6)， Chr(60))

Cells(i + kaishihang， 7) = Mid(arr7(0)， InStr(arr7(0)， "") + 1)

arr8 = Split(arr1(7)， Chr(60))

Cells(i + kaishihang， 8) = Mid(arr8(0)， InStr(arr8(0)， "") + 1)

arr9 = Split(arr1(8)， Chr(60))

Cells(i + kaishihang， 9) = Mid(arr9(0)， InStr(arr9(0)， "") + 1)

arr10 = Split(arr1(9)， Chr(60))

Cells(i + kaishihang， 10) = Mid(arr10(0)， InStr(arr10(0)， "") + 1)

arr11 = Split(arr1(10)， Chr(60))

Cells(i + kaishihang， 11) = Mid(arr11(0)， InStr(arr11(0)， "") + 1)

Next i

End If

End With

Next m

Next h

Set objXML = Nothing

End Sub

第三步，获取上证历史数据，并获取所有股票的历史数据。程序如下：

Sub 所有股票历史数据获取()

Application.ScreenUpdating = False

Dim s As String， gp As String， nian As String， jidu As String， s1 As String

Dim arr， arr1， arr2， arr3， arr4， arr5， arr6， arr7， arr8， arr9

Dim i， h As Long

Dim kaishihang

Dim LastRow As Long， r As Long

On Error Resume Next

EndRow = Sheet2.Range("a65536").End(xlUp).Row

startRow = 4

If startRowSheet2.Range(Sheet2.Cells(startRow， 1)， Sheet2.Cells(EndRow， 9)).Value = ""

Else

Exit Sub

End If

For h = 1 To 5

For m = 1 To 4

kaishihang = Sheet2.[A65535].End(xlUp).Row

nian = Replace(Str(Year(Now) + 1 - h)， " "， "")

jidu = Replace(Str(4 + 1 - m)， " "， "")

s1 = "" + nian + "season=" + jidu + ""

s = GetSource(s1)

arr = Split(s， "'

For i = 1 To UBound(arr)

arr1 = Split(arr(i)， "

Sheet2.Cells(i + kaishihang， 1) = Right(Left(arr1(0)， 4)， 4)"-"Right(Left(arr1(0)， 6)， 2)"-"Right(Left(arr1(0)， 10)， 2)

arr2 = Split(arr1(1)， Chr(60))

Sheet2.Cells(i + kaishihang， 2) = Mid(arr2(0)， InStr(arr2(0)， "") + 1)

arr3 = Split(arr1(2)， Chr(60))

Sheet2.Cells(i + kaishihang， 3) = Mid(arr3(0)， InStr(arr3(0)， "") + 1)

arr4 = Split(arr1(3)， Chr(60))

Sheet2.Cells(i + kaishihang， 4) = Mid(arr4(0)， InStr(arr4(0)， "") + 1)

arr5 = Split(arr1(4)， Chr(60))

Sheet2.Cells(i + kaishihang， 5) = Mid(arr5(0)， InStr(arr5(0)， "") + 1)

arr6 = Split(arr1(5)， Chr(60))

Sheet2.Cells(i + kaishihang， 6) = Mid(arr6(0)， InStr(arr6(0)， "") + 1)

arr7 = Split(arr1(6)， Chr(60))

Sheet2.Cells(i + kaishihang， 7) = Mid(arr7(0)， InStr(arr7(0)， "") + 1)

arr8 = Split(arr1(7)， Chr(60))

Sheet2.Cells(i + kaishihang， 8) = Mid(arr8(0)， InStr(arr8(0)， "") + 1)

arr9 = Split(arr1(8)， Chr(60))

Sheet2.Cells(i + kaishihang， 9) = Mid(arr9(0)， InStr(arr9(0)， "") + 1)

Next i

Next m

Next h

Application.ScreenUpdating = True

n = Worksheets.Count

For i = 4 To n

Worksheets(i).Activate

历史数据

End Sub

第四步，保存工作簿，并对该工作簿命名为1，然后复制该工作簿27份，把所有股票代码写入每一个工作簿第一个工作表的A3到A127列。然后根据第一步对工作簿内的工作表命名，并在每一个工作表A2单元格内写入股票代码。

第五步，把这些工作簿存放到炒股文件夹下的数据库文件下。然后在炒股文件夹下新建一个工作簿，命名为“一键更新表格”，写入如下代码：

Sub 所有股票历史数据更新()

Dim wb As Workbook

For i = 1 To 27

Set wb = Workbooks.Open(ThisWorkbook.Path"\数据库\"i"".xlsb"")

Application.Run ""'""wb.Path""\""i"".xlsb'!所有股票历史数据获取""

wb.Save

wb.Close

Next i

End sub

当启动这一段代码以后，程序会自动一个一个的打开对应的工作簿然后获取里面所有股票的历史数据，存放在对应的工作表当中。

第六步，对相应的程序添加按钮，这样，我们在启动对应程序时，只需要点一下对应的按钮就可以实现了。这样，我们通过多个工作簿就实现了获取所有股票历史数据的方法。而后面，我们只需要通过获取对应股票每一天的历史数据，我们就能够在任意一天很快速的能够拥有所有股票的历史数据了。

注意事项

1、在后续需要对这些数据进行分析，里面会加入很多计算，所以启动所有历史数据更新时，我们应该要关闭自动更新。

2、因为历史数据很大，所以这里只获取四年的数据，想要获取更多数据，可以更改程序里面 “For h = 1 To 5”的那个5即可。

3、历史数据的获取需要较长的时间，要提前做好准备。

4、如果你想要弄清楚用EXCEL建立炒股系统的整套方法，请看后续内容。"

回答于 2021-11-11

抢首赞

已踩

下一条回答

立即下载

长安十二时辰你看懂了吗

入乡随俗，一起探访唐朝衣食住行大小事

16个问题231,534人浏览

—为你推荐更多精彩内容—

正在加载

加载失败点击重新加载

微信

微博

QQ空间

答案纠错

取消

赞赏答主

100

200

已赞赏0财富值

合计：0 财富值

登录后赞赏

选择举报类型

侵犯版权

色情低俗

涉嫌违法犯罪

时政信息不实

垃圾广告

低质灌水

工作人员会在48小时内处理,处理结果请关注系统通知,感谢您对百度知道的支持。

确定

void function(a,b,c,d,e,f){function g(b){a.attachEvent?a.attachEvent("onload",b,!1):a.addEventListener&&a.addEventListener("load",b)}function h(a,c,d){d=d||15;var e=new Date;e.setTime((new Date).getTime()+1e3*d),b.cookie=a+"="+escape(c)+";path=/;expires="+e.toGMTString()}function i(a){var c=b.cookie.match(new RegExp("(^| )"+a+"=([^;]*)(;|$)"));return null!=c?unescape(c[2]):null}function j(){var a=i("PMS_JT");if(a){h("PMS_JT","",-1);try{a=a.match(/{["']s["']:(\d+),["']r["']:["']([\s\S]+)["']}/),a=a&&a[1]&&a[2]?{s:parseInt(a[1]),r:a[2]}:{}}catch(c){a={}}a.r&&b.referrer.replace(/#.*/,"")!=a.r||alog("speed.set","wt",a.s)}}if(a.alogObjectConfig){var k=a.alogObjectConfig.sample,l=a.alogObjectConfig.rand;d="https:"===a.location.protocol?""+d:""+d,k&&l&&l>k||(g(function(){alog("speed.set","lt",+new Date),e=b.createElement(c),e.async=!0,e.src=d+"?v="+~(new Date/864e5)+~(new Date/864e5),f=b.getElementsByTagName(c)[0],f.parentNode.insertBefore(e,f)}),j())}}(window,document,"script","/hunter/alog/dp.mobile.min.js");

window.tt = 1668636311;