0

私の要件は、 （リボン>数式>名前マネージャー）を使用して、等距離のセルに名前を自動的に割り当てるか作成するを作成することmacroです。excel 2010Name Manager

For e.g. Cell A1 to be named as Name_1, Cell A11 to be named as Name_2, Cell A21 to be named as Name_3 and so on.

これが理にかなっていることを願って、他に説明を求めてください。ありがとう！

4

1 に答える 1

0

ピーター、あなたの有能な指導は私が成功するのを助けました（Siddharth Routからも助けを得ました！）:)ありがとう！私のコードの下を見つけてください-

Private Sub CommandButton1_Click()

'Define the variables
Dim vRangeDefined, vRowCount, vRowIndex, vColIndex, vCounter, vCellValue As String, vNameValue As String

'Define the range where the values are entered
vRangeDefined = ActiveSheet.Range("A:B").Value
vRowCount = ActiveSheet.UsedRange.Rows.Count

For vCounter = 2 To vRowCount
    vCellValue = vRangeDefined(vCounter, 1)
    vNameValue = vRangeDefined(vCounter, 2)
    'Divide the Cell Value in two parts
    vRowIndex = Left(vCellValue, 1)
    vColIndex = Right(vCellValue, Len(vCellValue) - 1)
    'MsgBox vRowIndex & "-" & vColIndex

   'Assign the names to cells as per the range
    ActiveWorkbook.Names.Add _
        Name:=vNameValue, _
        RefersTo:="='Sheet1'!$" & vRowIndex & "$" & vColIndex

Next

MsgBox "Process complete..."

End Sub
于 2013-03-07T20:00:39.643 に答える