1

Sheets("Data").Selectこの名前が3つの異なる場所に貼り付けられるように、「名前を入力しA15てください」というポップアップテキストボックスに必要なVBAコードは何ですかA50?場所はSheets("Run").Select、ボタンです。

3か所すべてが呼び出さOther 1れ、ポップアップから入力情報で変更できるようにしたい.

Sub TestMacro() 
    Dim Name As String 
    Name = InputBox("Enter Name.") 
    Range("A" & 15).Value = Name 
    Range("A" & 50).Value = Name 
    Sheets("Run").Select 
    Range("A" & 1).Value = Name 
    Sheets("Data").Select 
End Sub
4

1 に答える 1

1

私はあなたのために何かを持っていると思います。

Sub TestMacro() 

    Dim Name As String 

    Name = InputBox("Enter Name.") 
    If StrPtr(Name) = 0& Then Exit Sub 'user cancelled out of inputbox!

    SetCellValue Sheets("Data"), "A15", Name
    SetCellValue Sheets("Data"), "A50", Name 
    SetCellValue Sheets("Run"), "A1", Name

    'Forms button can be accessed with the "Buttons" collection of "Worksheet" object:
    Sheets("Run").Buttons(1).Caption = Name 'assumes it's the first button in the collection

    'ActiveX button can be accessed directly by its programmatic name:
    Sheet1.CommandButton1.Caption = Name 'assumes sheet "Run" is Sheet1

End Sub

Private Sub SetCellValue(xlSheet As Worksheet, addr As String, value As Variant)
    xlSheet.Range(addr).Value = value
End Sub
于 2013-10-02T01:37:32.370 に答える