Выбор столбца и применение форматирования

Question

Я хочу обновить формат столбца cni c на листе, и его можно разместить в любом месте. Я написал код ниже, но столкнулся с ошибкой. Может ли кто-нибудь проверить и исправить приведенный ниже код, пожалуйста.

Sub CNIC_ExternalAccountNumber()

Dim CNIC As String
Dim x As Integer
'Dim externalAccountNumber As String

CNIC = "CNIC"

For x = 1 To 10
  If Cells(1, x).Value = CNIC Then
    Columns(x & ":" & x).Select
    Selection.NumberFormat = "0000000000000"
  End If
Next

End Sub

Answer 1

Sub CNIC_ExternalAccountNumber ()

Dim CNI C Как строка Dim x As Integer Dim externalAccountNumber как строка

CNI C = "CNI C"

Для x = от 1 до 10

Если Cells (1, x) .Value = CNI C Then

Columns (x) .Select

Selection.NumberFormat = «0000000000000»

End If

Next

End Sub

Answer 2

Думаю, вы могли бы попробовать:

Option Explicit

Sub CNIC_ExternalAccountNumber()

    Dim CNIC As String
    Dim x As Integer
    'Dim externalAccountNumber As String
    
    CNIC = "CNIC"
    
    With ThisWorkbook.Worksheets("Sheet1")
    
        For x = 1 To 10
      
          If .Cells(1, x).Value = CNIC Then
            .Columns(x).NumberFormat = "0000000000000"
          End If
          
        Next
        
    End With

End Sub

Answer 3

Я не совсем уверен, что это за номер «CNI C». Однако я могу запустить код, разместив затемненные переменные в отдельной строке.

Sub CNIC_ExternalAccountNumber()
    Dim CNIC As String
    Dim x As Integer
    Dim externalAccountNumber As String

    CNIC = 1000

    For x = 1 To 10
        If Cells(1, x).Value = CNIC Then
            Cells(1, x).Select

            Selection.NumberFormat = "0000000000000"
        End If
    Next
End Sub