要求使用VAB，打开表格时在sheet2记录登录用户名等信息

byl258

共享表格时，要求使用VAB，打开表格时在sheet2先判断非空单元格，然后在空位置记录登录用户名和MAC信息，sheet1共享用户可以自由编辑。
目前可以实现数据记录，问题是打开表格在sheet1编辑信息时，非空判断失效，会直接覆盖上次数据，但如果打开和保存每次都在sheet2页面就不会有这个问题，请大神帮忙解决，谢谢！

3190496160

说再多，没有附件，都是白搭

byl258

3190496160 发表于 2023-1-29 14:01
说再多，没有附件，都是白搭

大神,已上传附件,请指教，谢谢！

淡__

1. Sub mac2()
   
2.     Dim mc
   
3.     i = 2
   
4.     J = 0
   
5.     d = Date
   
6.     t = Time
   
7.     s = d & "-" & t
   
8.     wUserName = Environ("USERNAME")
   
9.     Do While J = 0
   
10. '        If Range("B" & i) = "" Then
    
11.         If Sheets("Login info").Range("B" & i) = "" Then
    
12.             Sheets("Login info").Range("B" & i) = wUserName  'TextBox1.Text 'Then
    
13.             Sheets("Login info").Range("D" & i) = s   'TextBox1.Text 'Then
    
14.             
    
15.             'Cells(i, 2) = wUserName
    
16.             J = 1
    
17.         Else
    
18.             i = i + 1
    
19.         End If
    
20.     Loop
    
21.    
    
22.     Set mc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
    
23.     For Each mo In mc
    
24.         If mo.IPEnabled = True Then
    
25.             Sheets("Login info").Range("C" & i) = mo.MacAddress
    
26.             'Cells(i, 3) = mo.MacAddress
    
27.             
    
28.             'MsgBox "网卡MAC地址是: " & mo.MacAddress
    
29.             
    
30.             Exit For
    
31.         End If
    
32.     Next
    
33.    
    
34. End Sub
    
35. 
    
36. 
    

复制代码

指定一下要判断的工作表就可以了

1. '        If Range("B" & i) = "" Then
   
2.         If Sheets("Login info").Range("B" & i) = "" Then

复制代码

byl258

淡__ 发表于 2023-1-30 20:31
指定一下要判断的工作表就可以了

感谢，犯了个低级问题。