怎么样选择性隐藏列

~舒~

怎么样用VBA代码选择性的隐藏列，不用于打印
我附件中只能设置单列的选择隐藏和显示，但是后续列内容很多，希望将第二行凡是出现false的所在列都隐藏掉
求指教啊

Jaofuan

Sub jaofuan() '隐藏
P = Cells(2, 256).End(xlToLeft).Column
For R = 2 To P
If Cells(2, R) Like "False*" Then
   Cells(2, R).EntireColumn.Hidden = True
    Else
Cells(2, R).EntireColumn.Hidden = False
    End If
Next
End Sub

Sub jaofuan1() '取消隐藏
Columns.Hidden = False
End Sub




代码格式发不出来？？？

~舒~

Jaofuan 发表于 2019-5-8 14:30
Sub jaofuan() '隐藏
P = Cells(2, 256).End(xlToLeft).Column
For R = 2 To P

代码格式是什么意思？是不是我发的文件加密了，因为我用公司网发的
原代码这样的
Private Sub CommandButton1_Click()
If B2 = False Then
Columns("B").Hidden = True
End If
End Sub

Private Sub CommandButton2_Click()
Columns.Hidden = False
End Sub

Jaofuan

~舒~ 发表于 2019-5-8 16:26
代码格式是什么意思？是不是我发的文件加密了，因为我用公司网发的
原代码这样的
Private Sub CommandB ...

无法解释，自己看附件

~舒~

Jaofuan 发表于 2019-5-8 14:30
Sub jaofuan() '隐藏
P = Cells(2, 256).End(xlToLeft).Column
For R = 2 To P

弱弱的问一下，以下代码是什么意思？
P = Cells(2, 256).End(xlToLeft).Column
For R = 2 To P

~舒~

Jaofuan 发表于 2019-5-8 16:37
无法解释，自己看附件

谢谢，可以用

Jaofuan

~舒~ 发表于 2019-5-8 16:48
弱弱的问一下，以下代码是什么意思？
P = Cells(2, 256).End(xlToLeft).Column
For R = 2 To P

P = Cells(2, 256).End(xlToLeft).Column'查找第2行最后一列
For R = 2 To P'循环2到最后一列

~舒~

Jaofuan 发表于 2019-5-8 17:00
P = Cells(2, 256).End(xlToLeft).Column'查找第2行最后一列
For R = 2 To P'循环2到最后一列

前后加入解密加密这样的吗？结尾加密是不是不对

Sub jaofuan() '隐藏
ActiveSheet.Unprotect "1111"
P = Cells(2, 256).End(xlToLeft).Column
For R = 2 To P
If Cells(2, R) Like "False*" Then
   Cells(2, R).EntireColumn.Hidden = True
    Else
Cells(2, R).EntireColumn.Hidden = False
    End If
Next
ActiveSheet.Protect "1111"
End Sub

~舒~

~舒~ 发表于 2019-5-11 09:04
前后加入解密加密这样的吗？结尾加密是不是不对

Sub jaofuan() '隐藏

我自己试了一下可以了，但是如果是从第11行选择是不是11,256（256是个啥？）