Integer入力を対応するセル行に変換するVBA

-3

私は、選択した行のユーザー入力に基づいて1行のデータを電子メールで送信するマクロを作成しています。私が必要とするのは、入力を対応するセル行に変換することです。例：ユーザーが入力ボックス「3」に入力すると、行3の値が電子メールで送信されます。私が手動でコードの範囲を行うと、電子メールは正常に動作します。どんな助けもありがとうございます。ありがとう。Integer入力を対応するセル行に変換するVBA

は今、私のコードは次のとおりです。あなたの声明で

myValue = InputBox("Which row are you sending?") 
ActiveSheet.Range(myValue.Rows).Select 
With ActiveSheet.MailEnvelope .Introduction = "Blah" 
    .Item.To = ActiveSheet.range("G2").Value 
    .Item.Subject = "Blah" 
    .Item.Send 
End with

出典

2016-04-07 Jacob

あなたの質問はあなたが物事をやろうとする方法に関する情報を含んでいません。あなたのコードを追加して、あなたが何をしているのか、何が南に行くのかをコミュニティに示します。現在のところ、あなたの質問は推測にのみ開いています... –

**私はあなたに役立つように助けてください、あなたの現在のコードを投稿してください。** –

、電子メールの本文に行の内容を追加する必要があります彼らは

.Item.Body = Range("A"& myValue).End(xlRight).Value

希望これを選択しました助けてください

出典

2016-04-07 13:33:20

その行の列A-Gにその範囲をトリミングする方法はありますか？ – Jacob

End（xlRight）は、データが入っている右端のセルに移動し、A-Gだけを含む範囲を変更します。Range（ "A"＆myValue＆ "：G"＆myValue） –

ありがとう。 – Jacob

Integer入力を対応するセル行に変換するVBA

答えて

関連する問題