| |
こんにちは、詰まってしまいました。よろしくお願いします。
使用ワークシート：チェック、sheet1
やりたいこと：チェック上にあるオートシェイプRectangle 26に値（日付）が自動的に入力されるようにしたい。
下記コードを書きました。
Sub Macro1()
Sheets("チェック").Select
Dim FoundCell As Variant
Dim findvalue As Variant
Dim findline As Long
Dim findcolumn As Long
findvalue = ActiveSheet.Range("AC7").Value
With Worksheets("sheet1")
Set FoundCell = .Columns("A:A").Find(findvalue)
If FoundCell Is Nothing Then
MsgBox "見つかりません。", vbExclamation
Else
findline = FoundCell.Row
findcolumn = FoundCell.Column
MsgBox findline & "行目です。", vbInformation
End If
End With
ActiveSheet.Shapes("Rectangle 26").Select
'ExecuteExcel4Macro "=FORMULA("=sheet1!D""" & findline & """)" ←コンパイルエラー
'ExecuteExcel4Macro "FORMULA(""=sheet1!R[71]C[3]"")" ← ﾏｸﾛ登録でエクセルが作ったﾏｸﾛ
End Sub
上記コードで、コンパイルエラーと書いたところでまずエラーが出ます。
これは、その下の"ﾏｸﾛ登録でエクセルが作ったﾏｸﾛ"の部分の文章を私が書き換えたのですが、まずこれからして間違っています。=sheet1!R[71]C[3]の部分を変数にしたい（列は固定です）
どうか、正しい方法を教えてください。よろしくお願いします。
|
|
かかこ
- 12/1/30(月) 12:02 -
