Office中国论坛/Access中国论坛

标题: 请教能否分情况设置单元格内的数字格式? [打印本页]
作者: 关向齐    时间: 2012-8-24 13:45
标题: 请教能否分情况设置单元格内的数字格式?
请教能否分情况设置单元格内的数字格式?
作者: 关向齐    时间: 2012-8-24 13:50
在线等候
作者: todaynew    时间: 2012-8-24 15:38
IF(H1="[入库单]","HR","HC") & YEAR(G6) & IF(MONTH(G6)<10,"0" & MONTH(G6),MONTH(G6)) & "???"

这个案例应该用Access处理，Excel处理这类问题不是好办法。
作者: 关向齐    时间: 2012-8-24 16:03
非常感谢版主,问好!
第2个问题有办法解决没?问题2:能否实现当点击H1=入库单时,A8:A10单元格执行公式RIGHT(E8,8)提取VIN码后八位作为商品编码,当H1<>"出库单"时,则不执行以上公式,但不删除公式,允许用户输入编码.以便在开出库单时用VLOOKUP从编码中提取商品信息.
作者: todaynew    时间: 2012-8-24 16:15
关向齐 发表于 2012-8-24 16:03
非常感谢版主,问好!
第2个问题有办法解决没?问题2:能否实现当点击H1=入库单时,A8:A10单元格执行公式RIGHT( ...

还是一样用if函数，第二个参数用right函数，第三个参数用vlookup函数就是了。
作者: 老鬼    时间: 2012-8-24 16:26
  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
复制代码
作者: 关向齐    时间: 2012-8-29 09:50
非常感谢老鬼版主出手相助.问好!



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3