切换到宽版
阿果石油APP正式发布 石油推广咨询 石油地质QQ群：181983917 物探地震反演群：165218480
阿果石油官方微信公众号：agoil2005 石油宝典（微信小程序）    
发帖 回复
返回列表
  • 3652阅读
  • 9回复

[分享]【原创】备份：压汞数据统计宏程序 [复制链接]

 上一主题 下一主题
离线阿果
管理员
 
发帖
10085
财富
62914
威望
2083
交易币
62
只看楼主 倒序阅读 使用道具 0楼 发表于: 2007-12-05 | 石油求职招聘就上: 阿果石油英才网
居然没放这里，针对西南油田分公司研究院做的压汞资料进行数据统计，半自动化，提高工作效率。

自用备份，加密很高，其他人用不上，其实就是简单的宏代码而已。
复制代码
  1. Sub 宏3()
  2. '
  3. ' 宏3 Macro
  4. ' chen guo 记录的宏 2006-4-18
  5. '
  6. ' 快捷键: Ctrl+q
  7. '
  8.     Range("B2").Select
  9.     Selection.Copy
  10.     Sheets("Sheet1").Select
  11.     Range("A3").Select
  12.     ActiveSheet.Paste
  13.     Sheets("Sheet2").Select
  14.     Range("F2").Select
  15.     Application.CutCopyMode = False
  16.     Selection.Copy
  17.     Sheets("Sheet1").Select
  18.     Range("B3").Select
  19.     ActiveSheet.Paste
  20.     Sheets("Sheet2").Select
  21.     Range("B4").Select
  22.     Application.CutCopyMode = False
  23.     Selection.Copy
  24.     Sheets("Sheet1").Select
  25.     Range("C3").Select
  26.     ActiveSheet.Paste
  27.     Sheets("Sheet2").Select
  28.     Range("F4").Select
  29.     Application.CutCopyMode = False
  30.     Selection.Copy
  31.     Sheets("Sheet1").Select
  32.     Range("D3").Select
  33.     ActiveSheet.Paste
  34.     Sheets("Sheet2").Select
  35.     Range("C9").Select
  36.     Application.CutCopyMode = False
  37.     Selection.Copy
  38.     Sheets("Sheet1").Select
  39.     Range("E3").Select
  40.     ActiveSheet.Paste
  41.     Sheets("Sheet2").Select
  42.     Range("G9").Select
  43.     Application.CutCopyMode = False
  44.     Selection.Copy
  45.     Sheets("Sheet1").Select
  46.     Range("F3").Select
  47.     ActiveSheet.Paste
  48.     Sheets("Sheet2").Select
  49.     Range("C10").Select
  50.     Application.CutCopyMode = False
  51.     Selection.Copy
  52.     Sheets("Sheet1").Select
  53.     Range("G3").Select
  54.     ActiveSheet.Paste
  55.     Sheets("Sheet2").Select
  56.     Range("G10").Select
  57.     Application.CutCopyMode = False
  58.     Selection.Copy
  59.     Sheets("Sheet1").Select
  60.     Range("H3").Select
  61.     ActiveSheet.Paste
  62.     Sheets("Sheet2").Select
  63.     Range("G11").Select
  64.     Application.CutCopyMode = False
  65.     Selection.Copy
  66.     Sheets("Sheet1").Select
  67.     Range("I3").Select
  68.     ActiveSheet.Paste
  69.     Sheets("Sheet2").Select
  70.     Range("G12").Select
  71.     Application.CutCopyMode = False
  72.     Selection.Copy
  73.     Sheets("Sheet1").Select
  74.     Range("J3").Select
  75.     ActiveSheet.Paste
  76.     Sheets("Sheet2").Select
  77.     Range("G13").Select
  78.     Application.CutCopyMode = False
  79.     Selection.Copy
  80.     Sheets("Sheet1").Select
  81.     Range("K3").Select
  82.     ActiveSheet.Paste
  83.     Sheets("Sheet2").Select
  84.     Range("G14").Select
  85.     Application.CutCopyMode = False
  86.     Selection.Copy
  87.     Sheets("Sheet1").Select
  88.     Range("L3").Select
  89.     ActiveSheet.Paste
  90.     Sheets("Sheet2").Select
  91.     Range("B13").Select
  92.     Application.CutCopyMode = False
  93.     Selection.Copy
  94.     Sheets("Sheet1").Select
  95.     Range("M3").Select
  96.     ActiveSheet.Paste
  97.     Sheets("Sheet2").Select
  98.     Range("B11").Select
  99.     Application.CutCopyMode = False
  100.     Selection.Copy
  101.     Sheets("Sheet1").Select
  102.     Range("N3").Select
  103.     ActiveSheet.Paste
  104.     Sheets("Sheet2").Select
  105.     Range("B14").Select
  106.     Application.CutCopyMode = False
  107.     Selection.Copy
  108.     Sheets("Sheet1").Select
  109.     Range("O3").Select
  110.     ActiveSheet.Paste
  111.     Sheets("Sheet2").Select
  112.     Range("B12").Select
  113.     Application.CutCopyMode = False
  114.     Selection.Copy
  115.     Sheets("Sheet1").Select
  116.     Range("P3").Select
  117.     ActiveSheet.Paste
  118.     ActiveWindow.LargeScroll ToRight:=1
  119.     ActiveWindow.ScrollColumn = 6
  120.     Sheets("Sheet2").Select
  121.     Range("B19").Select
  122.     Sheets("Sheet1").Select
  123.     ActiveWindow.SmallScroll ToRight:=1
  124.     Sheets("Sheet2").Select
  125.     Range("B19:G19").Select
  126.     Application.CutCopyMode = False
  127.     Selection.Copy
  128.     Sheets("Sheet1").Select
  129.     Range("Q3").Select
  130.     ActiveSheet.Paste
  131.     ActiveWindow.SmallScroll ToRight:=1
  132.     Sheets("Sheet2").Select
  133.     Range("B20:G20").Select
  134.     Application.CutCopyMode = False
  135.     Selection.Copy
  136.     Sheets("Sheet1").Select
  137.     Range("W3").Select
  138.     ActiveSheet.Paste
  139.     ActiveWindow.LargeScroll ToRight:=1
  140.     Sheets("Sheet2").Select
  141.     Range("B21:G21").Select
  142.     Application.CutCopyMode = False
  143.     Selection.Copy
  144.     Sheets("Sheet1").Select
  145.     Range("AC3").Select
  146.     ActiveSheet.Paste
  147.     Sheets("Sheet2").Select
  148.     Range("B22:G22").Select
  149.     Application.CutCopyMode = False
  150.     Selection.Copy
  151.     Sheets("Sheet1").Select
  152.     Range("AI3").Select
  153.     ActiveSheet.Paste
  154.     Sheets("Sheet2").Select
  155.     Range("B23:G23").Select
  156.     Application.CutCopyMode = False
  157.     Selection.Copy
  158.     Sheets("Sheet1").Select
  159.     Range("AO3").Select
  160.     ActiveSheet.Paste
  161.     ActiveWindow.LargeScroll ToRight:=1
  162.     Sheets("Sheet2").Select
  163.     Range("B24:G24").Select
  164.     Application.CutCopyMode = False
  165.     Selection.Copy
  166.     Sheets("Sheet1").Select
  167.     Range("AU3").Select
  168.     ActiveSheet.Paste
  169.     Sheets("Sheet2").Select
  170.     Range("B25:G25").Select
  171.     Application.CutCopyMode = False
  172.     Selection.Copy
  173.     Sheets("Sheet1").Select
  174.     Range("BA3").Select
  175.     ActiveSheet.Paste
  176.     ActiveWindow.LargeScroll ToRight:=1
  177.     ActiveWindow.SmallScroll ToRight:=-1
  178.     Sheets("Sheet2").Select
  179.     Range("B26:G26").Select
  180.     Application.CutCopyMode = False
  181.     Selection.Copy
  182.     Sheets("Sheet1").Select
  183.     Range("BG3").Select
  184.     ActiveSheet.Paste
  185.     Sheets("Sheet2").Select
  186.     Range("B27:G27").Select
  187.     Application.CutCopyMode = False
  188.     Selection.Copy
  189.     Sheets("Sheet1").Select
  190.     Range("BM3").Select
  191.     ActiveSheet.Paste
  192.     Sheets("Sheet2").Select
  193.     Range("B28:G28").Select
  194.     Application.CutCopyMode = False
  195.     Selection.Copy
  196.     Sheets("Sheet1").Select
  197.     Range("BS3").Select
  198.     ActiveSheet.Paste
  199.     ActiveWindow.SmallScroll ToRight:=12
  200.     Sheets("Sheet2").Select
  201.     Range("B29:G29").Select
  202.     Application.CutCopyMode = False
  203.     Selection.Copy
  204.     Sheets("Sheet1").Select
  205.     Range("BY3").Select
  206.     ActiveSheet.Paste
  207.     Sheets("Sheet2").Select
  208.     Range("B30:G30").Select
  209.     Application.CutCopyMode = False
  210.     Selection.Copy
  211.     Sheets("Sheet1").Select
  212.     Range("CE3").Select
  213.     ActiveSheet.Paste
  214.     ActiveWindow.SmallScroll ToRight:=12
  215.     Sheets("Sheet2").Select
  216.     Range("B31:G31").Select
  217.     Application.CutCopyMode = False
  218.     Selection.Copy
  219.     Sheets("Sheet1").Select
  220.     Range("CK3").Select
  221.     ActiveSheet.Paste
  222.     Sheets("Sheet2").Select
  223.     Range("B32:G32").Select
  224.     Application.CutCopyMode = False
  225.     Selection.Copy
  226.     Sheets("Sheet1").Select
  227.     Range("CQ3").Select
  228.     ActiveSheet.Paste
  229.     ActiveWindow.SmallScroll ToRight:=13
  230.     Sheets("Sheet2").Select
  231.     Range("B33:G33").Select
  232.     Application.CutCopyMode = False
  233.     Selection.Copy
  234.     Sheets("Sheet1").Select
  235.     Range("CW3").Select
  236.     ActiveSheet.Paste
  237.     Sheets("Sheet2").Select
  238.     Range("B34:G34").Select
  239.     Application.CutCopyMode = False
  240.     Selection.Copy
  241.     Sheets("Sheet1").Select
  242.     Range("DC3").Select
  243.     ActiveSheet.Paste
  244.     ActiveWindow.SmallScroll ToRight:=14
  245.     Sheets("Sheet2").Select
  246.     Range("B35:G35").Select
  247.     Application.CutCopyMode = False
  248.     Selection.Copy
  249.     Sheets("Sheet1").Select
  250.     Range("DI3").Select
  251.     ActiveSheet.Paste
  252.     Sheets("Sheet2").Select
  253.     Range("B36:G36").Select
  254.     Application.CutCopyMode = False
  255.     Selection.Copy
  256.     Sheets("Sheet1").Select
  257.     Range("DO3").Select
  258.     ActiveSheet.Paste
  259.     Sheets("Sheet2").Select
  260.     Range("B37:G37").Select
  261.     Application.CutCopyMode = False
  262.     Selection.Copy
  263.     Sheets("Sheet1").Select
  264.     Range("DU3").Select
  265.     ActiveSheet.Paste
  266.     ActiveWindow.SmallScroll ToRight:=19
  267.     Sheets("Sheet2").Select
  268.     Range("B38:G38").Select
  269.     Application.CutCopyMode = False
  270.     Selection.Copy
  271.     Sheets("Sheet1").Select
  272.     Range("EA3").Select
  273.     ActiveSheet.Paste
  274.     Sheets("Sheet2").Select
  275.     Range("B39:G39").Select
  276.     Application.CutCopyMode = False
  277.     Selection.Copy
  278.     Sheets("Sheet1").Select
  279.     Range("EG3").Select
  280.     ActiveSheet.Paste
  281.     Sheets("Sheet2").Select
  282.     Range("B40:G40").Select
  283.     Application.CutCopyMode = False
  284.     Selection.Copy
  285.     Sheets("Sheet1").Select
  286.     Range("EM3").Select
  287.     ActiveSheet.Paste
  288.     ActiveWindow.SmallScroll ToRight:=16
  289.     Sheets("Sheet2").Select
  290.     Range("B41:G41").Select
  291.     Application.CutCopyMode = False
  292.     Selection.Copy
  293.     Sheets("Sheet1").Select
  294.     Range("ES3").Select
  295.     ActiveSheet.Paste
  296.     Sheets("Sheet2").Select
  297.     Range("B42:G42").Select
  298.     Application.CutCopyMode = False
  299.     Selection.Copy
  300.     Sheets("Sheet1").Select
  301.     Range("EY3").Select
  302.     ActiveSheet.Paste
  303.     Sheets("Sheet2").Select
  304. End Sub
描述: 压汞数据统计程序
附件: 压汞数据统计方法.rar (46 K) 下载次数:2 ，你所在用户组没有附件下载权限 ，VIP会员免积分下载 ，该附件已加密，拥有1威望才能下载
评价一下你浏览此帖子的感受

精彩
感动
搞笑
开心
愤怒
无聊
灌水


石油行业最新求职招聘信息，上阿果石油英才网：http://www.cnpcjob.com/
石油行业最新产品供应求购信息，上阿果石油供需网：http://b2b.agoil.cn/
石油文献资料预览下载，上石油文库：http://www.oilwenku.com/
网站事务联系QQ：1392013

个人微博：http://weibo.com/028chenguo
回复
举报
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信
离线eclipse
果园中坚
发帖
1929
财富
1931
威望
234
交易币
0
只看该作者 1楼 发表于: 2007-12-29 | 石油求职招聘就上: 阿果石油英才网
录制的？好累缀
本人所回复内容为网络提供，内容的真实、准确和合法性由国际互联网负责，本人对此不承担任何责任。
回复
举报
离线心平气和
果园中坚
发帖
1399
财富
1778
威望
190
交易币
0
只看该作者 2楼 发表于: 2008-06-19 | 石油求职招聘就上: 阿果石油英才网
500个威望，让人感觉更神密了!!!
回复
举报
离线wangxx
果园中坚
发帖
1097
财富
1308
威望
50
交易币
0
只看该作者 3楼 发表于: 2008-08-03 | 石油求职招聘就上: 阿果石油英才网
能不能降低威望，这样一般人都看不了啊！
回复
举报
离线阿果
管理员
发帖
10085
财富
62914
威望
2083
交易币
62
只看该作者 4楼 发表于: 2008-08-04 | 石油求职招聘就上: 阿果石油英才网
引用第3楼wangxx于2008-08-03 15:47发表的  :
能不能降低威望，这样一般人都看不了啊！

宏程序的源代码都给出来了，根本不需要下载那个文件。


石油行业最新求职招聘信息，上阿果石油英才网：http://www.cnpcjob.com/
石油行业最新产品供应求购信息，上阿果石油供需网：http://b2b.agoil.cn/
石油文献资料预览下载，上石油文库：http://www.oilwenku.com/
网站事务联系QQ：1392013

个人微博：http://weibo.com/028chenguo
回复
举报
离线wangxx
果园中坚
发帖
1097
财富
1308
威望
50
交易币
0
只看该作者 5楼 发表于: 2008-08-05 | 石油求职招聘就上: 阿果石油英才网
请问楼主，根据压汞数据做“喉道半径与渗透率贡献率”关系曲线，用的是进汞曲线的数据还是退汞曲线的数据？
回复
举报
离线wangxx
果园中坚
发帖
1097
财富
1308
威望
50
交易币
0
只看该作者 6楼 发表于: 2008-08-05 | 石油求职招聘就上: 阿果石油英才网
还请教楼主：平均孔隙半径和半径均值一样吗，或者有什么区别？以上公式哪个是求均值比较权威的算法？
回复
举报
离线阿果
管理员
发帖
10085
财富
62914
威望
2083
交易币
62
只看该作者 7楼 发表于: 2008-08-05 | 石油求职招聘就上: 阿果石油英才网
to wangxx ： 建议向李传亮教授请教这两个问题，我也说不清楚，1年多没有和压汞数据打交道了，生疏了。


石油行业最新求职招聘信息，上阿果石油英才网：http://www.cnpcjob.com/
石油行业最新产品供应求购信息，上阿果石油供需网：http://b2b.agoil.cn/
石油文献资料预览下载，上石油文库：http://www.oilwenku.com/
网站事务联系QQ：1392013

个人微博：http://weibo.com/028chenguo
回复
举报
离线equivalent
果园常客
发帖
172
财富
455
威望
46
交易币
0
只看该作者 8楼 发表于: 2012-02-24 | 石油求职招聘就上: 阿果石油英才网
看来下不了了，威望太高了
回复
举报
离线ysushy19
果园新丁
发帖
122
财富
34
威望
1
交易币
6
只看该作者 9楼 发表于: 2012-05-31 | 石油求职招聘就上: 阿果石油英才网
录制个宏，还要这么高威望，还不如贴出公式实用
回复
举报
发帖 回复
返回列表

网站事务咨询:QQ：1392013 | 26189883
阿果石油网为免费个人网站，为石油人提供免费的在线即时技术交流场所，拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论和行为!
如有言论或会员共享的资料涉及到您的权益，请立即通知网站管理员，本站将在第一时间给予配合处理，谢谢！