| |
▼γ さん：
早速のご返信ありがとうございます。
日付からデータを引き出してユーザーフォーム上で修正をかける作業と、ユーザーフォームから指定した日付の列に入力ができればと考えております。
他サイト等で似たような作業を探して以下の２つのコードを試してみたのですが、
シリアル値への変換やvbaの基本的な事柄の理解が進んでおらず、うまくいっておりません。
初歩的で拙い質問で申し訳ありませんが、ご教示いただけますと幸いです。
よろしくお願いいたします。
Private Sub CommandButton1_Click()
Dim r As Long
r = WorksheetFunction.Match(DateValue(TextBox1), Columns("A"), 0).Row
TextBox2.Text = Cells(r, 2)
End Sub
Private Sub CommandButton1_Click()
Dim r As Long
r = Columns("A").Find(DateValue(TextBox1), LookIn:=xlFormulas).Row
TextBox2.Text = Cells(r, 2)
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
