| |
こんにちは、よろしくお願いします
下記コードを書きましたが、コンパイルエラーがでます
やりたいこと：条件分岐で選ばれたシートをReturnSheet とし、そのシートのテキストボックス(Rectangle 27)にﾃﾞｰﾀﾍﾞｰｽというシートの指定したセルの値を入れる
エラー箇所：※で印をつけます
Sub テスト()
Dim ReturnSheet As Worksheet
Sheets("ﾃﾞｰﾀﾍﾞｰｽ").Select
Cells(ActiveCell.Row, 2).Select
If ActiveCell.Value = "A" Then
Worksheets("sheet2").Select
ElseIf ActiveCell.Value = "B" Then
Worksheets("sheet3").Select
ElseIf ActiveCell.Value = "C" Then
Worksheets("sheet4").Select
Else
Worksheets("sheet5").Select
End If
Set ReturnSheet = ActiveSheet
Dim findvalue As Variant
Sheets("ﾃﾞｰﾀﾍﾞｰｽ").Select
findvalue = Cells(ActiveCell.Row, 4).Value
ReturnSheet.Select
Shapes("Rectangle 27").DrawingObject.Formula = findvalue …※
End Sub
※subまたはfunctionが定義されていません とでます
正しい構文をご教示願えませんでしょうか？よろしくお願いします
|
|
ジロン
- 12/4/5(木) 12:25 -
