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

韩立

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

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

请老师们指点

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

        根据sheet名增量更新sheet 超链接

最佳答案

月排行榜 / 总排行榜

Yunyun123

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

跳转到最佳答案楼层

Yunyun123

每个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

韩立

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:37 上传

点击文件名下载附件

韩立

Yunyun123 发表于 2022-1-25 16:02
每个sheet同样的位置输入相同的内容吗？试试看。

Public Sub test()

老师  其实是这样

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

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

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

发了个附件  您在看看

韩立

Yunyun123 发表于 2022-1-25 16:02
每个sheet同样的位置输入相同的内容吗？试试看。

Public Sub test()

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

Yunyun123

韩立 发表于 2022-1-25 16:44
然后  请您 注释一下  我自己不太懂 翻译出来  不定能看懂 怎么修改

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

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

韩立

Yunyun123 发表于 2022-1-26 08:02
没看懂你要通过什么方式在其他页面输入内容。
我的第一个弹窗是输入页面中单元格的位置，第二个弹窗是输 ...

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

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

韩立

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错误   帮忙看看 是哪里没弄好  

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

Yunyun123

韩立 发表于 2022-1-27 17:37
Dim sht As Worksheet
For Each sht In Worksheets
        If sht.Name  "汇总" Then

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

韩立

Yunyun123 发表于 2022-1-28 07:57
能把你的完整代码放上来吗？从目前这点代码看，你把要输入的内容放在循环里面，要每个页面写不同的内容吗 ...

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