Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

数据透视表40+个常用小技巧,让你一次学会!
查看: 456|回复: 10

[已解决]inputbox 输入到指定单元格 如何遍历其他表

[复制链接]
发表于 2022-1-22 22:57 | 显示全部楼层 |阅读模式
3学分
本帖最后由 韩立 于 2022-1-23 03:23 编辑

我知道可以右键选择所有表  想做个控件   怎么都整不明白循环

input只弹出一次 输入    然后其他表相同位置单元格(比如A8)都会同步输入

请老师们指点



新悬赏贴   自动和手动引用数据     


最佳答案
2022-1-22 22:57
每个sheet同样的位置输入相同的内容吗?试试看。

Public Sub test()
Dim countSht As Integer
Dim i As Integer
Dim MyRange As String
Dim MyCon As String
MyRange = InputBox("Input the range(eg:A8):")
MyCon = InputBox("Input the content:")

countSht = Sheets.Count
For i = 1 To countSht
Sheets(i).Range(MyRange) = MyCon
Next i
End Sub

最佳答案

查看完整内容

每个sheet同样的位置输入相同的内容吗?试试看。 Public Sub test() Dim countSht As Integer Dim i As Integer Dim MyRange As String Dim MyCon As String MyRange = InputBox("Input the range(eg:A8):") MyCon = InputBox("Input the content:") countSht = Sheets.Count For i = 1 To countSht Sheets(i).Range(MyRange) = MyCon Next i End Sub
发表于 2022-1-22 22:57 | 显示全部楼层    本楼为最佳答案   
每个sheet同样的位置输入相同的内容吗?试试看。

Public Sub test()
Dim countSht As Integer
Dim i As Integer
Dim MyRange As String
Dim MyCon As String
MyRange = InputBox("Input the range(eg:A8):")
MyCon = InputBox("Input the content:")

countSht = Sheets.Count
For i = 1 To countSht
Sheets(i).Range(MyRange) = MyCon
Next i
End Sub

回复

使用道具 举报

 楼主| 发表于 2022-1-25 16:39 | 显示全部楼层
Yunyun123 发表于 2022-1-25 16:02
每个sheet同样的位置输入相同的内容吗?试试看。

Public Sub test()

是的  老师    跳过汇总和模板  其他sheet同样的位置数如相同的内容

您这段代码 有两次弹窗   二次  Input the content:")输入满足条件 ??     不太懂    然后 1004  应用程序或对象定义错误


希望只弹一次  其他遍历 input.rar (52.63 KB, 下载次数: 2)
回复

使用道具 举报

 楼主| 发表于 2022-1-25 16:42 | 显示全部楼层
Yunyun123 发表于 2022-1-25 16:02
每个sheet同样的位置输入相同的内容吗?试试看。

Public Sub test()

老师  其实是这样

Excel的日期我感觉会变动  设置的单元格格式吧  也比较繁琐

然后结合公式   那么日期就不会变动

所以想弄个ActiveX 控件  输入一次 除 汇总 模板  其他所有sheet指定单元格  输入就好了

发了个附件  您在看看
回复

使用道具 举报

 楼主| 发表于 2022-1-25 16:44 | 显示全部楼层
Yunyun123 发表于 2022-1-25 16:02
每个sheet同样的位置输入相同的内容吗?试试看。

Public Sub test()

然后  请您 注释一下  我自己不太懂 翻译出来  不定能看懂 怎么修改
回复

使用道具 举报

发表于 2022-1-26 08:02 | 显示全部楼层
韩立 发表于 2022-1-25 16:44
然后  请您 注释一下  我自己不太懂 翻译出来  不定能看懂 怎么修改

没看懂你要通过什么方式在其他页面输入内容。
我的第一个弹窗是输入页面中单元格的位置,第二个弹窗是输入在每个页面相同位置要填写的内容。

要跳过汇总和模板,只要在循环里面判断一下sheet名字不等于“汇总“和”模板”就可以了。
回复

使用道具 举报

 楼主| 发表于 2022-1-27 12:55 | 显示全部楼层
Yunyun123 发表于 2022-1-26 08:02
没看懂你要通过什么方式在其他页面输入内容。
我的第一个弹窗是输入页面中单元格的位置,第二个弹窗是输 ...

好的 老师  非常 感谢   您这么一说  我就懂了
我在修改看看  
您这个 比较灵活  

我开始的想法是 直接第一个 弹窗不用  在vba修改单元格位置即可  你这 直接做出来了 很棒  



回复

使用道具 举报

 楼主| 发表于 2022-1-27 17:37 | 显示全部楼层
Yunyun123 发表于 2022-1-26 08:02
没看懂你要通过什么方式在其他页面输入内容。
我的第一个弹窗是输入页面中单元格的位置,第二个弹窗是输 ...

Dim sht As Worksheet
For Each sht In Worksheets
        If sht.Name <> "汇总" Then
                If sht.Name <> "模板" Then
                        'Sheets("汇总").Select
                        MyRange = "J18"
                        'MyRange = InputBox("Input the range(eg:A8):")
                        MyCon = InputBox("Input the content:")
--------------------------------------------------------------------------------------------------------
老师   添加了变量  1004错误   帮忙看看 是哪里没弄好  

第一个 我写死了  是没问题的  这样 只有一个弹窗  

回复

使用道具 举报

发表于 2022-1-28 07:57 | 显示全部楼层
韩立 发表于 2022-1-27 17:37
Dim sht As Worksheet
For Each sht In Worksheets
        If sht.Name  "汇总" Then

能把你的完整代码放上来吗?从目前这点代码看,你把要输入的内容放在循环里面,要每个页面写不同的内容吗?还是同一个内容要每次都输入?
回复

使用道具 举报

 楼主| 发表于 2022-1-28 15:42 | 显示全部楼层
Yunyun123 发表于 2022-1-28 07:57
能把你的完整代码放上来吗?从目前这点代码看,你把要输入的内容放在循环里面,要每个页面写不同的内容吗 ...

我发的就是添加的代码   第一个 弹窗修改了    然后首几行就是遍历跳过两个sheet表
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2022-5-19 23:56 , Processed in 0.307866 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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