根据固定资产明细表，生成固定资产卡片标签

jaimie2024 · 发表于 2024-3-31 16:49

本帖最后由 jaimie2024 于 2024-3-31 17:00 编辑

求助，能不能根据固定资产明细表，生成固定资产的卡片标签？

固定资产明细表中的列数可能较多，只需要选取其中四列生成标签。
1、需不需要把四列单独列在一张表里再生成标签？
2、能不能实现自己选哪几个固定资产就生成那几个固定资产的标签？
3、点击固定资产明细表中的固定资产编号，能不能自动链接到相对应的卡片标签上？
4、用VBA还是用函数方式？
大佬可以帮忙生成吗？急用，万分感谢！

高个子 · 发表于 2024-3-31 17:05

本帖最后由高个子于 2024-3-31 19:39 编辑

1、不需要
2、能
3、能
4、你要实现2和3，你的版本要用VBA解决的

jaimie2024 · 发表于 2024-3-31 17:26

高个子发表于 2024-3-31 17:05
1、不需要
2、能
3、能

可不可以帮忙生成呀？我实在不会

咔咔乱坠 · 发表于 2024-3-31 19:24

本帖最后由咔咔乱坠于 2024-3-31 19:50 编辑

纯函数可实现，但是需要动态数组、辅助列、条件格式、隐藏列相互搭配
详见附件吧
使用前提：最新版wps！
使用建议：查询条件为多个时用顿号分隔

sucx007 · 发表于 2024-3-31 21:43

=DROP(IFNA(REDUCE("",原始明细!B4:B152,LAMBDA(x,y,VSTACK(x,原始明细!A1,TRANSPOSE(VSTACK(CHOOSECOLS(原始明细!3:3,2,3,4,26),CHOOSECOLS(OFFSET(y,,,,25),1,2,3,25))))))&"",""),1)

复制代码

用一列+条件格式

3190496160 · 发表于 2024-3-31 22:22

类似于准考证制作，vba来完成是最佳方案，灵活高效

3190496160 · 发表于 2024-4-1 09:21

Sub 生成标签()
Application.ScreenUpdating = False
With Sheets("原始明细")
r = .Cells(Rows.Count, 2).End(xlUp).Row
If r < 4 Then MsgBox "原始明细为空！": End
ar = .Range(.Cells(3, 1), .Cells(r, 26))
mc = .[a1]
End With
If (r - 3) / 2 = Int((r - 3) / 2) Then
gs = (r - 3) / 2
Else
gs = Int((r - 3) / 2) + 1
End If
With Sheets("标签")
rs = .Cells(Rows.Count, 1).End(xlUp).Row
If rs >= 6 Then .Rows("6:" & rs).Delete
.Range("B2:B5,E2:E4,E5") = Empty
m = 6
For i = 2 To gs
      .Rows("1:5").Copy .Cells(m, 1)
      m = m + 5
Next i
m = 1
For i = 2 To UBound(ar) Step 2
      If ar(i, 2) <> "" Then
         x = 0
         For j = 2 To 4
            x = x + 1
            .Cells(m + x, 2) = ar(i, j)
         Next j
         .Cells(m + 4, 2) = ar(i, 26)
      End If
      If i + 1 <= UBound(ar) Then
         If ar(i + 1, 2) <> "" Then
            x = 0
            For j = 2 To 4
                  x = x + 1
                  .Cells(m + x, 5) = ar(i + 1, j)
            Next j
            .Cells(m + 4, 5) = ar(i + 1, 26)
         End If
      End If
      m = m + 5
Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-4-1 09:22

固定资产电脑空调打印机等标签设置.rar (139.57 KB, 下载次数: 2)

3190496160 · 发表于 2024-4-1 09:23

一次性生成所有标签，仅供参考，实在不行，可以加v

高个子 · 发表于 2024-4-1 20:08

jaimie2024 发表于 2024-3-31 17:26
可不可以帮忙生成呀？我实在不会

主要是你要点击数据源的编号跳转到标签那里，要是能反过来点击标签跳转到数据源那里倒是能用函数做

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

[求助] 根据固定资产明细表，生成固定资产卡片标签