[已解决]高手能编两段代码吗？

simonshaw · 发表于 2013-3-21 15:25

如题，希望高手慢慢看，要说清楚不容易，慢慢帮我看懂。看懂估计就好编了，只要逻辑正确，没有能难懂大师的代码。

详见附件。

自动追加.rar (10.62 KB, 下载次数: 17)

我的小洁 · 发表于 2013-3-21 15:44

我是来瞧瞧的！！！！！！！！！！！！

simonshaw · 发表于 2013-3-21 18:43

求大师帮忙啊
难道对大师来说也很难么？

zjdh · 发表于 2013-3-21 18:54

看不懂！！

simonshaw · 发表于 2013-3-21 18:58

zjdh 发表于 2013-3-21 18:54
看不懂！！

我再想办法表达清楚点，大师都看不懂，就是我表达不清楚了。

simonshaw · 发表于 2013-3-21 19:30

zjdh 发表于 2013-3-21 18:54
看不懂！！

上新附件，谢谢大师帮忙啊

自动追加02.rar (12.84 KB, 下载次数: 8)

simonshaw · 发表于 2013-3-22 12:30

zjdh 发表于 2013-3-21 18:54
看不懂！！

大师，新附件能看得懂么？

zjdh · 发表于 2013-3-22 19:23

simonshaw 发表于 2013-3-22 12:30
大师，新附件能看得懂么？

Sub TJ()
For I = Range("DO:DO").Column To Range("HK:HK").Column
      If Application.Sum(Range(Cells(13, I), Cells(22, I))) = 0 Then
         W = I
         Exit For
      End If
Next
S = Range("K13").Value
For I = Range("DO:DO").Column To Range("HK:HK").Column
      Range(Cells(13, I), Cells(22, I)).Copy Cells(13, W)
      W = W + 1
      T = Application.Sum(Range(Cells(13, I), Cells(22, I)))
      If S - T < 0 Then
         For J = 13 To 22
            If Cells(J, I) <> "" Then Cells(J, W - 1) = S
         Next
         Exit For
      Else
         S = S - T
      End If
Next
For I = Range("DO:DO").Column To Range("HK:HK").Column
      If Application.Sum(Range(Cells(13, I), Cells(22, I))) = 0 Then Columns(I).Hidden = True
Next
End Sub

simonshaw · 发表于 2013-3-23 18:06

本帖最后由 simonshaw 于 2013-3-23 18:07 编辑

zjdh 发表于 2013-3-22 19:23
Sub TJ()
For I = Range("DO:DO").Column To Range("HK:HK").Column
If Application.Sum(R ...

还有个问题请教一下大师：

我把你两次编给我的代码放在一个工作表里，如果我再复制这个工作表，被复制的表也存在，这个时候我要运行宏问题就来了：因为这两个工作表一模一样，里面都有相同的代码。这个时候只能在一个工作表里运行宏，激活另一个工件表时，再运行宏就没反应了，有反应的却是另一个没被激活的工件表，这个问题怎么办？

虽然复制了工作表，但我只想代码只在激活的工作表里运行，没激活的就不要再运行了。不然数据有错。因为有代码的工作表是要被多次复制在同一个工作簿内使用的。

请大师看下怎么解决。

zjdh · 发表于 2013-3-24 07:57

建立模块，将2段宏都移入模块，按钮就引用模块中的宏即可。

		自动登录	找回密码
密码			注册