ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 361|回复: 1

自己录制一个宏,可以完美运行,但是法国同事运行结果不一样

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-3-27 11:17 | 显示全部楼层 |阅读模式
自己录制一个宏,可以完美运行,但是法国同事运行结果不一样,请教各位大神,这个宏录的有什么问题吗?我对比了一下,都是一样的。

这个宏的大概思路:
     *在首页选择所需要的配置,就在all components表格里显示所需内容,根据公式设定,不需要的内容显示空白,为了便于查看,需要隐藏空白的单元格
1. 取消“Output”表格里隐藏的单元格;
2. 复制“all components ”表格需要的区域(这里我设置了超链接,B7:B8链接到所需区域【因为B7B8是合并单元格】),到“Output”表格粘贴;
3. 点击I7:I8 【是合并单元格,超链接到I9:I324】,此时已通过超链接自动框选了I9:I324,执行复制仅粘贴数值,接着用“111”替换空格,在空格替换111,使用定位条件找到I9:I324所有空格,然后隐藏空格整栏;(因为定位条件无法识别仅粘贴数值但是空的单元格,发现替换空单元格为其他值在替换回空单元格有效)
4. 点击B7:B8。。。。。(0.0步骤同第三点所述。)



自己电脑的代码
法国同事的电脑打开后发给我的代码

Sub ok()
'

' ok 宏
'
'
    Sheets("Output").Select
    Rows("8:500").Select
    Selection.EntireRow.Hidden = False
    Sheets("All components").Select
    Range("B7:B8").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Selection.Copy
    Range("a6").Select
    Sheets("Output").Select
    Range("B9").Select
    ActiveSheet.Paste
    Sheets("Output").Select
    Range("I7:I8").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="", Replacement:="111", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="111", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-12
    Range("B7:B8").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="", Replacement:="111", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="111", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollColumn = 1
    Range("A6").Select
End Sub
Sub ok()
'

' ok ºê

'

'

   Sheets("Output").Select

   Rows("8:500").Select

    Selection.EntireRow.Hidden= False

    Sheets("Allcomponents").Select

   Range("B7:B8").Select

   Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

    Selection.Copy

   Range("a6").Select

   Sheets("Output").Select

   Range("B9").Select

    ActiveSheet.Paste

   Sheets("Output").Select

   Range("I7:I8").Select

   Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

    Application.CutCopyMode= False

    Selection.Copy

    Selection.PasteSpecialPaste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

    Selection.ReplaceWhat:="", Replacement:="111", LookAt:=xlPart, _

       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

       ReplaceFormat:=False

    Selection.ReplaceWhat:="111", Replacement:="", LookAt:=xlPart, _

       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

       ReplaceFormat:=False

   Selection.SpecialCells(xlCellTypeBlanks).Select

    Selection.EntireRow.Hidden= True

    ActiveWindow.SmallScrollDown:=-12

   Range("B7:B8").Select

   Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

    Application.CutCopyMode= False

    Selection.Copy

    Selection.PasteSpecialPaste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

    Selection.ReplaceWhat:="", Replacement:="111", LookAt:=xlPart, _

       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

       ReplaceFormat:=False

    Selection.ReplaceWhat:="111", Replacement:="", LookAt:=xlPart, _

       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

       ReplaceFormat:=False

   Selection.SpecialCells(xlCellTypeBlanks).Select

   Selection.EntireRow.Hidden = True

   ActiveWindow.ScrollColumn = 1

   Range("A6").Select



Capture.PNG 7E800708 - Copy.PNG

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-27 11:20 | 显示全部楼层
他既然能点击宏按钮运行,虽然最后显示空白,但我觉得应该不是法语系统的电脑不能运行中文系统电脑的宏。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-4-8 04:50 , Processed in 0.073055 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表