求助于大师

guski216 · 发表于 2024-10-20 14:55

求助1020.zip (23.96 KB, 下载次数: 12)

ww87725244 · 发表于 2024-10-20 15:04

原代码更改
Private Sub CommandButton1_Click()
Dim ws As Worksheet
On Error Resume Next
For Each ws In Worksheets
ws.ShowAllData
Next
Nm = Range("G11").Text
arr = Array([g2], [K2], [P2], [G3], [K3], [P3], [E8], [F8], [G8], [H8], [I8], [J8], [K8], [L8], [M8], [N8], [O8], [P8], [Q8], [R8], [S8], [T8], [G11])
Worksheets(Me.[g2].Value).[a65536].End(3).Offset(1, 0).Resize(1, 23) = arr
Range("E8:T8").ClearContents
Range("g2") = Range("g2") + 1
Range("U2").ClearContents
End Sub

guski216 · 发表于 2024-10-20 17:38

ww87725244 发表于 2024-10-20 15:04
原代码更改
Private Sub CommandButton1_Click()
Dim ws As Worksheet

谢谢，老师，就是这跟效果，

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

[求助] 求助于大师

评分