[[20031011171643]]　『ボタンを押すと関数計算されるように』（ウッチー＆ホッチー）　ページの最後に飛ぶ

『ボタンを押すと関数計算されるように』（ウッチー＆ホッチー）

ボタンを押すと関数計算されるにはどうしたらいいのでしょうか？ボタン＝関数　実行にしたいのですが・・・

 ん～んん？
 解らない。もう少し詳しくご説明を。
 (EUREKA)

 [ツールメニュー･オプション・計算方法・（自動)(手動)]で
自動になっていれば、関数は入力時に自動計算されますが、
手動にして、一括計算させる場合は、再計算の「Ｆ９」で行いますが
どのような、事例でしょうか？
 (シニア)

 ごめんなさい、わかりづらくて。

 Ａのシートに
 　　電話番号　名前　住所　生年月日　が並んでいて
 Ｂのシートに
 　　電話番号　名前　住所　生年月日　性別　出身地　趣味がならんでいます

 Ａの電話番号とＢの電話番号基準に照合させ一致する行の
 ＡのシートにＢの性別　出身地　趣味を貼り付けたい・・・

 Ａのシートがこのように
 電話番号　名前　住所　生年月日　性別　出身地　趣味　になって欲しいのです。

 ただしこれらの照合→貼付作業がエクセル上のボタンを押したときに実行されるように
 設定したいのです。教えてください。お願いします。
 （ウッチー＆ホッチー）

 シート名　Ａ（←全角）に、コントロールツールボックスのコマンドボタンを配置して
 以下のコードをコピペして試してみて下さい。
 シート名　Ｂ（←全角）です。

 Private Sub CommandButton1_Click()
 Dim i As Long
 Dim FindData As Range

 With Worksheets("Ａ")
    For i = 1 To Range("A65536").End(xlUp).Row

        Set FindData = Worksheets("Ｂ").Range("A:A").Find(.Cells(i, 1).Value)

        If FindData Is Nothing Then
            MsgBox .Cells(i, 1).Value & " は、シートＢにありませんでした。"
        Else
            .Cells(i, 4).Value = FindData.Offset(0, 4).Value
            .Cells(i, 5).Value = FindData.Offset(0, 5).Value
            .Cells(i, 6).Value = FindData.Offset(0, 6).Value
        End If

    Next i
 End With
 End Sub

    (INA)

できたーーーーーーー！
有り難うございます。
これで家に帰れます。
（ウッチー＆ホッチー）

もうひとつ教えてください。
もし該当電話番号がない場合メッセージボックスを表示したくない時は
どうしたらよいでしょうか？教えてください。
Ａに入っているデータの量が多いとその分メッセージボックスが
はねかえってきてしまいますので・・・

（ウッチー）

解決しちゃいました。

（ウッチー）

コメント返信：

[ 一覧(最新更新順) ]

[[20031011171643]] 『ボタンを押すと関数計算されるように』（ウッチー＆ホッチー） ページの最後に飛ぶ

[[20031011171643]]　『ボタンを押すと関数計算されるように』（ウッチー＆ホッチー）　ページの最後に飛ぶ