打印时只打印编号前8位

scnc001

求助各位大佬，想把B列 “T”开头的编号（见附件），在打印时只打印前8位字符（后两位是自定义的，不能直接删除）。

目前想到了两个方法，一、把第9位后面的字符设置为白色（如B13、B15）,能手动双击选中后设为白色，但不知道代码怎么写。
二、或者是在打印/预览时B列 “T”开头的单元格只取前8位，但有时会出现C列内容变化（调用了新条目），返回后原附加编号丢失。

万分感谢！

tel3033

供参考……

quqiyuan

改成白色的，比较简单方便，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Dim rng As Range
    Set rng = Range("b7:b" & Cells(Rows.Count, 2).End(3).Row)
    arr = rng
    For i = 1 To UBound(arr)
        If Len(arr(i, 1)) > 8 Then
            rng.Cells(i).Characters(9, Len(arr(i, 1)) - 8).Font.ColorIndex = 2
        End If
    Next
    Beep
End Sub

ynzsvt

1. Sub 白色()
   
2. r = Cells(Rows.Count, 2).End(xlUp).Row
   
3. For i = 7 To r
   
4.   Cells(i, "B").Characters(9, Len(Cells(i, "B")) - 8).Font.Color = vbWhite
   
5. Next
   
6. End Sub
   
7. 
   
8. Sub 黑色()
   
9. r = Cells(Rows.Count, 2).End(xlUp).Row
   
10. For i = 7 To r
    
11.   Cells(i, "B").Characters.Font.Color = vbBlack
    
12. Next
    
13. End Sub

复制代码

tel3033

1. Sub byDD()
   
2. Dim arr, brr, i%
   
3.     With Sheet1
   
4.         arr = .Range("b7:b" & .Cells(Rows.Count, 1).End(xlUp).Row)
   
5.         brr = arr
   
6.         For i = 1 To UBound(arr)
   
7.             arr(i, 1) = Left(arr(i, 1), 8)
   
8.         Next
   
9.         .[b7].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
   
10.         .PrintPreview '打印预览
    
11.         .[b7].Resize(UBound(arr, 1), UBound(arr, 2)) = brr
    
12.     End With
    
13. End Sub

复制代码

scnc001

非常感谢各位大佬的解答。送上小花聊表谢意

aman1516

针对本例，貌似只有字体改白色，或先置换，再恢复的方法（建议用Range代替数组）
若单元格数据是公式的结果，那还是有问题的
N年前的一个问题，借楼顶一下：
只显示单元格部分内容
https://club.excelhome.net/thread-1407394-1-1.html
若能解决，类似楼主的问题也能更好的解决了

scnc001

tel3033 发表于 2024-8-15 16:58

老师，发现一个bug，如果只有一条记录时，会提示：数据类型不匹配，是什么原因呢？有两条记录就正常运行了