请教能否分情况设置单元格内的数字格式?

关向齐

请教能否分情况设置单元格内的数字格式?

关向齐

在线等候

关向齐

非常感谢版主,问好!
第2个问题有办法解决没?问题2:能否实现当点击H1=入库单时,A8:A10单元格执行公式RIGHT(E8,8)提取VIN码后八位作为商品编码,当H1<>"出库单"时,则不执行以上公式,但不删除公式,允许用户输入编码.以便在开出库单时用VLOOKUP从编码中提取商品信息.

todaynew

IF(H1="[入库单]","HR","HC") & YEAR(G6) & IF(MONTH(G6)<10,"0" & MONTH(G6),MONTH(G6)) & "???"

这个案例应该用Access处理，Excel处理这类问题不是好办法。

老鬼

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim i As Integer
   
3. Dim rng As Range
   
4. Dim x As String, y As String
   
5. '    Debug.Print Target.Offset(5, -1)
   
6.     If Target.Address = "$H$1" Then
   
7.         Select Case Target.Value
   
8.             Case "[出库单]"
   
9.                 x = "出库记录"
   
10.                 y = "HC"
    
11.             Case "[入库单]"
    
12.                 x = "入库录"
    
13.                 y = "HR"
    
14.             Case Else
    
15.                 '…………
    
16.         End Select
    
17.         
    
18.         Set rng = Sheets(x).Range("B65536").End(xlUp)
    
19.         If rng.Address = "$B$1" Then
    
20.             i = 1
    
21.         Else
    
22.             If Mid(rng.Value, 3, 6) = Format(Target.Offset(5, -1), "YYYYMM") Then
    
23.                 i = Right(rng.Value, 3) + 1
    
24.             Else
    
25.                 i = 1
    
26.             End If
    
27.         End If
    
28.         
    
29.         Target.Offset(2, 0) = y & Format(Target.Offset(5, -1), "YYYYMM") & Format(i, "000")
    
30.     End If
    
31. End Sub

复制代码

todaynew

关向齐 发表于 2012-8-24 16:03
非常感谢版主,问好!
第2个问题有办法解决没?问题2:能否实现当点击H1=入库单时,A8:A10单元格执行公式RIGHT( ...

还是一样用if函数，第二个参数用right函数，第三个参数用vlookup函数就是了。

关向齐

非常感谢老鬼版主出手相助.问好!