初学VBA遇到代码问题

天真无鞋

在 J 列扫码信息数据自动分列，日期，时间，动生成加扫码代码可以实现。

  

全部代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
Dim x As Integer
Dim Rng As Range
Set Rng = Range("J5:J" & Range("J1048576").End(xlUp).Row)
For Each cell In Rng
    str = Replace(Replace(Replace(cell.Text, "---", "-"), "--", "-"), " ", "")
    c = 11
    r = cell.Row
    For Each e In Split(str, "*")
        Cells(r, c) = e
        c = c + 1
    Next
Next

'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("J:J"), Target)
xOffsetColumn = -9
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Date
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
        
    Next
    Application.EnableEvents = True
End If

Dim i As Integer

Set WorkRng = Intersect(Application.ActiveSheet.Range("J:J"), Target)
xOffsetColumn = -8
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "hh:mm:ss"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
        
    Next
    Application.EnableEvents = True
End If

Dim i
For i = 1 To [a65536].End(3).Row
Range("b" & i) = Format(Range("a" & i), "ww")
Next


    ' 检查变更的单元格是否为A列
    If Not Intersect(Target, Range("N:N")) Is Nothing Then
        ' 计算A列的和，并将结果显示在B1单元格
        Range("R5").Value = Application.WorksheetFunction.Sum(Range("N:N"))
    End If
   
        If Not Intersect(Target, Range("G:G")) Is Nothing Then
        ' 计算A列的和，并将结果显示在B1单元格
        Range("S5").Value = Application.WorksheetFunction.Sum(Range("G:G"))
    End If
    If (Target.Column = 7 Or Target.Column = 14) And Target.Row > 4 Then
  r = Target.Row
  Range("h" & r) = Range("g" & r) / Range("n" & r)
End If

End Sub

蓝桥玄霜

你是求助还是分享？
没有附件不能测试代码。

qline302

源头简单化，如果扫码信息的格式给每个信息之间加上分割符，例如:A|B|C|500|D|E, 这样不就一个split函数就搞定了。

天真无鞋

蓝桥玄霜 发表于 2024-1-20 08:57
你是求助还是分享？
没有附件不能测试代码。

大哥请帮忙查看附件文件，怎么可以把周期代码添加进去，另外感觉日期和时间代码有问题，非常感谢。

Dim i
For i = 1 To [a65536].End(3).Row
Range("b" & i) = Format(Range("a" & i), "ww")
Next

天真无鞋

qline302 发表于 2024-1-20 10:46
源头简单化，如果扫码信息的格式给每个信息之间加上分割符，例如:A|B|C|500|D|E, 这样不就一个split函数就 ...

已上传附件，能否帮忙看看，非常感谢！

半百

放到最后

天真无鞋

半百 发表于 2024-1-20 20:20
放到最后

加了不得行，能否帮忙把文件改了分享一下代码，谢谢！

半百

天真无鞋 发表于 2024-1-20 21:50
加了不得行，能否帮忙把文件改了分享一下代码，谢谢！

。。。。。。。。。。

天真无鞋

半百 发表于 2024-1-20 23:11
。。。。。。。。。。

真诚的感谢大哥，还有一点小问题，无法计算，参考下图：


当修改输入密码后，宏启动失效，参考下图：

感谢大哥在帮忙之中抽时间帮忙看看，谢谢！