| |
いつも参考にさせていただいております。
1.シート１
セルＡ１に日付を入力するようになっている
セルＡ２に金額を入力するようになっている
登録ボタンが付いている
2.シート２
セルＡ１〜ＡＥ１に日付の羅列が入力されている
→Ａ１に2008/10/1、Ｂ１に2008/10/2〜
セルＡ２〜ＡＥ２に金額が自動表示される
やりたいこととしては、例えば、シート１のセルＡ１に2008/10/7と入力し、セルＡ２に10,000と入力します。
その状態で登録ボタンを押すと、シート２の該当日付の金額セルに10,000と表示されるようにしたいのです。
以下のようにソースを組んでみましたが、エラーとなり、うまくいきません。
Dim 検査値 As Double
Sheets("Sheet1").Select
Range("A2").Select
Selection.Copy
検査値 = Range("A1").Value
Sheets("Sheet2").Select
列番号 = Application.WorksheetFunction.Match(検査値, Range("A1:AE1"),1)
行番号 = "2"
Range(列番号 & 行番号).Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
何かアドバイスを頂けたら幸いです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
